PofoWiki

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
====== CMDLIN.BAS, eine Befehlszeile für PBASIC ======

Neben der Fähigkeit Random Access Files handzuhaben vermisse ich nur eine Sache bei PBASIC:
Es gibt keine Befehlszeile in der man mal eben schnell einen Term ausrechnen kann ohne ein Programm schreiben zu müssen.\\ Glücklicherweise bietet PBASIC den Befehl EVAL, mit dem eine beliebige Zeichenkette interpretiert werden kann. Also schrieb ich mir ein "kleines" BASIC-Programm, dass einen Zeileneditor mit Hot-key Funktionen bietet. Die hier entstandene Zeichenkette wird dann mit dem Befehl EVAL ausgeführt und das Programm kehrt zum Zeileneditor zurück.\\ Als ich das Programm schrieb, wusste ich noch nicht wie man Portfolios eingebauten (AES) Zeileneditor programmiert, sonst hätte ich BIOS-CALLS verwendet. In diesem Beispiel wurde alles mit normalen BASIC-Befehlen für Zeichenkettenmanipulation realisiert, dadurch ist es natürlich ein wenig langsam und entspricht nicht zu 100% dem AES Zeileneditor, ich habe aber versucht alles identisch zu machen und bin mit dem Ergebnis recht zufrieden.

Wozu das ganze? Nun, ich will häufig nur mal eben kurz einen Term lösen und in Abhängigkeit des Ergebnisses die eine oder andere Variable ändern. Natürlich könnte man ein Programm mit dem Editor schreiben und mit ALT_R ausführen. Wenn ich dann aber einen Wert öndern will, muss ich PBASIC wieder verlassen, das Programm ändern und PBASIC erneut aufrufen. Das wird auf dauer lästig und kostet Zeit. Wenn ich mit PBASIC "reden" kann wärend es läuft, geht das schneller.\\
Ich starte PBASIC CMDLIN, wenn CMDLIN geladen ist erschient die Titelleiste und eine Zeile darunter das "ok.". CMDLIN ist bereit.\\

z.B.: 20 durch 3 Teilen.\\
   ? 20/3
   6,66666
   ok.
CMDLIN (bzw. PBASIC) liefert das Ergebnis und bestätigt die bereitschaft mit einem "ok."\\
Na gut, das kann jeder Taschenrechner. Aber was ist, wenn die Aufgabe etwas komplexer ist?\\
   ? (20/3+5/4)*(20-2/3)
   153,0555560704444
   ok.
wenn ich das mit einem Taschenrechner lösen will, brauche ich wahrscheinlich noch einen Zettel und einen Stift Und sollte ich einen Fehler machen, muss ich von vorn beginnen.\\
Mit PBasic kann ich mir die Aufgabe nochmal genau ansehen und evtl. ändern, bevor ich die Eingabe-Taste drücke.\\
Wenn ich einen Wert ändern, oder die Aufgabe erweitern möchte, drücke ich Fn_1, und die Zeile wird wieder dargestellt, mit der Möglichkeit sie zu bearbeiten.\\
Fn1
   ? (19/3+5/4)*(19-2/3)/5
   27,80555644444444
   ok.
Es lassen sich natürlich auch Variablen und Funktionen definieren und lange Aufgaben über mehrere Zeilen lösen. Mit dem Befehl EVAL lassen sich Zeichenketten "interpretieren"\\


z.B: Ich möchte meine Benzin-Kosten für diesen Monat ermitteln. Die können aber je nach Benzinpreis stark variieren. Ich mache dann ein "Was ist Wenn" -Spiel.

Ich fahre jeden Werktagtag 32 Kilometer, mein Wagen verbraucht 7 Liter auf 100 km:\\ Ich tippe folgende Zeilen ein:

  TERM$="Kosten=(20*32/100)*7*Preis:?Kosten"
  Preis=1,49
  EVAL TERM$

Um die Kosten bei einem höheren Preis zu ermitteln gebe ich z.B Preis=1,52 ein und dann EVAL TERM$.
Dieses Spielchen kann man so oft wiederholen wie man will, ohne PBASIC zu verlassen.

Es lassen sich nicht nur Rechenaufgaben lösen, fast alle PBASIC Befehle , außer Grafik, lassen sich anwenden, die Befehlszeile hat allerdings eine maximale Länge von 40 Zeichen. 

Da ich Portfolios Zeileneditor möglichst treu nachahmen wollte, brauchte ich natürlich Hot-Keys um in der Zeile herumspringen zu können. Da ich schon mal dabei war habe ich gleich noch ein paar weitere Hot-Keys als Makros definiert um die Tipparbeit zu reduzieren:

Macros:
^Tastenkombination^Text^
|Alt_A|ABS(|
|Alt_B|BIN$(|
|Alt_H|HEX$(|
|Alt_I|INT(|
|Alt_K|KILL "|
|Alt_L|LOG(|
|Alt_P|PRINT|
|Alt_R|RUN "|
|Alt_S|SQR(|
|Alt_V|VAL(|

Hot-keys:
^Tastenkombination^Wirkung^
|Alt_C|CLS, löscht den Bildschirm|
|Alt_E|END, beendet CMDLIN (und PBASIC)|
|Alt_F|FILES, listet alle Dateien im aktuellen Verzeichnis|
|Alt_M|MENU, öffnet ein Menü mit allen *.BAS Dateien im aktuellen Verzeichnis.|
|Alt_N|NEW, löscht den Speicher (verlässt und lädt CMDLIN erneut)|

CMDLIN kann keine Grafik, sollten sie versehentlich SCREEN 8 eingeben wird der Bildschirm unlesbar, bzw. CMDLIN kann nicht richtig ausgeführt werden.\\ Vermeiden sie es irgendeinen der folgenden Befehle zu verwenden:\\ 
  *CMODE     kein Grafik-Modus
  *EDIT$     funktioniert nicht
  *ERRWIN    funktioniert nicht
  *GLOCATE   kein Grafik-Modus
  *GPRINT    kein Grafik-Modus
  *INVERT    kein Grafik-Modus
  *LINE      kein Grafik-Modus
  *PGSHOW    kein Grafik-Modus
  *PGSAVE    kein Grafik-Modus
  *POINT     kein Grafik-Modus
  *PSET      kein Grafik-Modus
  *REFRESH   kein Grafik-Modus
  *SCREEN n  kein Grafik-Modus

\\ Der Befehl MENU wird von CMDLIN anders genutzt (siehe Alt_M). Obwohl CMDLIN keine Grafik unterstützt, können PGC-Files im Menü angezeigt werden, der Befehl schaltet selbständig zwischen den Bildschirm-Modi hin und her.

CMDLIN hat zwei eigene Befehle, die nicht von PBASIC stammen:
  *FILES (siehe Alt_F). Dateien werden wie mit Microsofts BASICA aufgelistet.
  *NEW (siehe Alt_N). Alle Daten werden gelöscht (tatsächlich wird CMDLIN.BAS beendet un neu gestartet)
\\ 

Tasten zum editieren der Zeile:
^Funktion^Tastenkombination^
|Cursor nach links|	    <-|
|Cursor nach rechts|	    ->|
|Cursor ein Wort nach links|  Ctrl_<-|
|Cursor ein Wort nach rechts|  Ctrl_->|
|Cursor an Zeilenanfang|      Shift_<-|
|Cursor an Zeilenende|        Shift_->|
|nach rechts löschen|         Del|
|nach links löschen|          BS|
|ein Wort nach rechts löschen|   Ctrl_RShift_BS|
|ein Wort nach links löschen|    Ctrl_BS|
|bis Zeilenanfang löschen|       Shift_BS|
|bis Zeilenende löschen|         RShift_LShift_BS|


Shift_Del schaltet den Tastaturmodus zwischen Einfügen und Überschreiben hin und her. 

Fn_1 holt die letzte Zeile zurück.


Wenn die Meldung "command line error" erscheint, ist ein Fehler in CMDLIN.BAS aufgetreten, nicht in der Zeile die sie getippt haben. Alle anderen Fehlermeldungen beziehen sich auf die Zeile die sie getippt haben.

Der Code:
Auffalend ist, dass alle Varaiblen mit "XX" anfangen. Dies wurde gemacht, um zu verhindern, dass Variablen im Programm durch Variablen des Benutzers überschrieben werden. Ich hielt es für unwarscheinlich, dass jemand Variablen benutzt die mit "XX" anfangen.

<code SDLbasic>
XXM0=FRE(0):XXSO=SHIFT:SSIZE=40:GOTO 1000
10 ? "ok"
ON ERROR GOTO 400
XXCP=(CSRLIN-1)*40:XXHK=0
? @XXCP,XXCM$;
15 IF SHIFT<>XXS1 THEN GOSUB 17
IF XXIT>XXTO THEN 29
XXIK$=INKEY$:IF XXIK$="" THEN XXIT=XXIT+1:GOTO 15
XXIT=0
IF XXS1=SHIFT THEN XXHK=0
XXCAP=VAL(MID$(BIN$(SHIFT),2,1))
IF LEN(XXIK$)>1 THEN 25
IF ASC(XXIK$)<31 OR ASC(XXIK$)>126 THEN 20
XXCL$=XXCL$+XXIK$:XXCP=XXCP+1:? @XXCP-1,XXIK$;
? @XXCP,XXCR$" ";:? @XXCP,"";
XXCM$=XXCL$+XXCR$:GOTO 15

17 XXS1=16*INT(SHIFT/16):XXHK=SHIFT-XXS1
RETURN

20 REM SINGLESTROKE KEYS
IF XXIK$=CHR$(8) THEN 200
IF XXIK$=CHR$(127) AND (XXHK=1 OR XXHK=2) THEN 235
IF XXIK$=CHR$(127) THEN 220
IF XXIK$=CHR$(13) THEN ? "": GOTO 90
IF XXIK$=CHR$(27) THEN 300
GOTO 15
25 REM DOUBLESTROKE KEYS
IF XXIK$="KK" THEN 100
IF XXIK$="MM" THEN 110
IF XXIK$="ss" THEN 140
IF XXIK$="tt" THEN 150
IF XXIK$="GG" THEN 120
IF XXIK$="OO" THEN 130
IF XXIK$=";;" AND POS(0)=1 THEN 350
IF XXIK$="SS" THEN 210
IF XXIK$="RR" THEN 430
IF XXIK$=STRING$(2,30) THEN XXMAC$="ABS(":GOTO 260
IF XXIK$=STRING$(2,48) THEN XXMAC$="BIN$(":GOTO 260
IF XXIK$=STRING$(2,46) AND POS(0)=1 THEN XXMAC$="CLS":GOTO 270
IF XXIK$=STRING$(2,33) AND POS(0)=1 THEN XXMAC$="FILES":GOTO 270
IF XXIK$=STRING$(2,35) THEN XXMAC$="HEX$(":GOTO 260
IF XXIK$=STRING$(2,23) THEN XXMAC$="INT(":GOTO 260
IF XXIK$=STRING$(2,37) THEN XXMAC$="KILL "+CHR$(34):GOTO 260
IF XXIK$=STRING$(2,38) THEN XXMAC$="LOG(":GOTO 260
IF XXIK$=STRING$(2,50) THEN 310
IF XXIK$=STRING$(2,24) AND POS(0)=1 THEN GOTO 350
IF XXIK$=STRING$(2,25) THEN XXMAC$="PRINT ":GOTO 260
IF XXIK$=STRING$(2,18) THEN XXMAC$="EVAL ":GOTO 260
IF XXIK$=STRING$(2,19) THEN XXMAC$="RUN "+CHR$(34):GOTO 260
IF XXIK$=STRING$(2,31) THEN XXMAC$="SQR(":GOTO 260
IF XXIK$=STRING$(2,47) THEN XXMAC$="VAL(":GOTO 260
IF XXIK$=STRING$(2,49) AND POS(0)=1 THEN XXMAC$="NEW":GOTO 270
GOTO 15

29 IF XXOT=0 THEN 15
OFF:XXIT=0:GOTO 15

90 REM EVAL
XXC$=UCASE$(XXCM$)
IF XXCM$<>"" THEN XXOC$=XXCM$
IF XXC$="FILES" THEN 340
IF XXC$="MENU" THEN 310
IF INSTR(XXC$,"EVAL ")<>0 THEN GOSUB 450
IF XXC$="NEW" THEN 170
IF XXC$="END" THEN 300
XXELD=1:EVAL XXCM$:XXELD=0
95 XXCM$="":XXCL$="":XXCR$=""
XXTO=XXLT*XXOT:GOTO 10

100 REM MOVE CURSOR TO THE LEFT
IF POS(0)<2 THEN 15
IF XXINS=0 THEN 200
IF XXHK=1 OR XXHK=2 THEN 120
IF XXHK=4 THEN 140
XXCP=XXCP-1:? @XXCP,"";:GOTO 160

110 REM MOVE CURSOR TO THE RIGHT
IF XXINS=0 OR POS(0)>LEN(XXCM$) THEN 15
IF XXHK=1 OR XXHK=2 THEN 130
XXCP=XXCP+1:? @XXCP,"";:GOTO 160

120 REM MOVE CURSOR TO START OF LINE
IF XXINS=0 THEN 240
XXCP=(CSRLIN-1)*40
XXCL$="":XXCR$=XXCM$
? @XXCP,"";:GOTO 15

130 REM MOVE CURSOR TO END OF LINE
IF XXINS=0 THEN 15
XXCP=(CSRLIN-1)*40+LEN(XXCM$)
XXCR$="":XXCL$=XXCM$
? @XXCP,"";:GOTO 15

140 REM MOVE CURSOR ONE WORD BACK
IF XXINS=0 THEN 220
IF POS(0)<2 THEN 15
XXI=POS(0)-2
142 XXI=XXI-1:IF XXI<1 THEN 145
XXX$=MID$(XXCM$,XXI,1)
IF XXX$=" " THEN 145
IF XXX$=CHR$(34) OR XXX$="/" THEN 145
GOTO 142
145 XXCP=(CSRLIN-1)*40+XXI:? @XXCP,"";
GOTO 160

150 REM MOVE CURSOR ONE WORD TO THE RIGHT
IF XXINS=0 OR POS(0)>LEN(XXCM$) THEN 15
XXI=POS(0)
152 XXI=XXI+1:IF XXI>LEN(XXCM$)-1 THEN 155
 IF MID$(XXCM$,XXI,1)=" " THEN 155
 IF MID$(XXCM$,XXI,1)=CHR$(34) THEN 155
GOTO 152
155 XXCP=(CSRLIN-1)*40+XXI:? @XXCP,"";
GOTO 160

160 XXCL$=LEFT$(XXCM$,POS(0)-1)
XXCR$=RIGHT$(XXCM$,LEN(XXCM$)-POS(0)+1)
GOTO 15

170 REM NEW
IF NOT EXISTS("C:\CMDLIN.BAS") THEN 171
RUN "C:\CMDLIN.BAS"
171 IF NOT EXISTS("A:\BASIC\CMDLIN.BAS") THEN 172
RUN "A:\BASIC\CMDLIN.BAS"
172 IF NOT EXISTS("A:\CMDLIN.BAS") THEN 173
RUN "A:\CMDLIN.BAS"
173 
? CHR$(13)"couldn't find CMDLIN.BAS"
XXCL$="":XXCM$="":XXCR$="":XXOC$=""
GOTO 10

200 REM BACKSPACE
IF XXHK=3 THEN 250
IF XXHK=2 THEN 240
IF XXHK=1 THEN 210
IF POS(0)<2 THEN 15
XXCL$=LEFT$(XXCL$,LEN(XXCL$)-1)
XXCP=XXCP-1:? @XXCP,XXCR$" ";:? @XXCP,"";
XXCM$=XXCL$+XXCR$:GOTO 15

210 REM DEL
IF XXINS=0 OR POS(0)>LEN(XXCM$) THEN 15
IF XXHK=5 OR XXHK=6 THEN 250
XXCR$=RIGHT$(XXCR$,LEN(XXCR$)-1)
XXCM$=XXCL$+XXCR$:? @XXCP,XXCR$" ";
? @XXCP,"";:GOTO 15

220 REM BS WORD
IF XXINS=1 AND (XXHK=5 OR XXHK=6) THEN 230
IF POS(0)<2 THEN 15
XXI=POS(0)-2
222 XXI=XXI-1:IF XXI<1 THEN 225
XXX$=MID$(XXCM$,XXI,1)
IF XXX$=" " OR XXX$="/" OR XXX$=":" THEN 225
IF XXX$=CHR$(34) THEN 225
GOTO 222
225 XXCL$=LEFT$(XXCL$,XXI)
XXCP=(CSRLIN-1)*40+XXI
? @XXCP,SPACE$(39-LEN(XXCL$));
? @XXCP,XXCR$;:XXCM$=XXCL$+XXCR$
? @XXCP,"";:GOTO 15

230 REM DEL WORD
IF XXINS=0 OR POS(0)>LEN(XXCM$) THEN 15
XXI=POS(0)
232 XXI=XXI+1:IF XXI>LEN(XXCM$)-1 THEN 235
XXX$=MID$(XXCM$,XXI,1)
IF XXX$=" " OR XXX$=CHR$(34) THEN 235
GOTO 232
235 XXCR$=RIGHT$(XXCM$,(LEN(XXCM$)-XXI))
? @XXCP,SPACE$(39-LEN(XXCL$));
? @XXCP,XXCR$;:XXCM$=XXCL$+XXCR$
? @XXCP,"";:GOTO 15

240 REM BACKSPACE TO START OF LINE
IF XXHK=5 OR XXHK=6 THEN 250 
XXCP=(CSRLIN-1)*40:? @XXCP,SPACE$(39);
? @XXCP,XXCR$;:? @XXCP,"";
XXCM$=XXCR$:XXCL$="":GOTO 15

250 REM DEL TO END OF LINE
? SPACE$(LEN(XXCR$));
XXCR$="":? @XXCP,"";
XXCM$=XXCL$:GOTO 15

260 IF XXCAP=0 THEN XXMAC$=LCASE$(XXMAC$)
XXCL$=XXCL$+XXMAC$:XXCM$=XXCL$+XXCR$
? XXMAC$;XXCR$;
XXCP=40*(CSRLIN-1)+LEN(XXCL$)
? @XXCP,"";:XXHK=0:GOTO 15

270 IF XXCAP=0 THEN XXMAC$=LCASE$(XXMAC$)
XXCM$=XXMAC$:? XXCM$;
XXCP=40*(CSRLIN-1)+LEN(XXCM$)
? @XXCP,"":XXHK=0:GOTO 90

300 REM END
IF XXCP/40<>CEIL(XXCP/40) THEN PRINT
? "Bye.";:CHDIR XXORG$:SHIFT=XXSO:END

310 REM MENU
? "reading directory...";
XXCL$="":XXCM$="":XXCR$=""
IF XXSFN$="$" THEN 311
DIM XXFN$(50),XXFS(50)
XXM0=FRE(0)+10464
311 XXFN$(0)="Files"
XXFN$(1)=FINDFILE$("*.*")
XXFS(1)=FILESIZE
XXFS(0)=XXFS(1)
FOR XXI=2 TO 50
 XXFN$(XXI)=FINDNEXT$
 IF XXFN$(XXI)="" THEN XXI=XXI-1:GOTO 312
 XXFS(XXI)=FILESIZE
 XXFS(0)=XXFS(0)+XXFS(XXI)
NEXT XXI
312 REM END OF LIST
CLS:? "PBASIC Ver 5.0 (C) 1991 BJ Gleason"
? XXM0" bytes free RAM  "
? CWD$
? XXFS(0)" bytes in "XXI" files";
313 XXMC=MENU(2,25,5,0,0,-XXI-1,XXFN$(0))
IF XXMC=-1 THEN 330
IF XXMC>255 THEN XXMC=(XXMC%256)
XXSFN$=XXFN$(XXMC+1)
IF RIGHT$(XXSFN$,3)="BAT" THEN 314
IF RIGHT$(XXSFN$,3)="BAS" THEN 318
IF RIGHT$(XXSFN$,3)="PGC" THEN 320
IF RIGHT$(XXSFN$,3)="PGF" THEN 322
IF RIGHT$(XXSFN$,3)="FPX" THEN 322
ERRWIN 5,4,"can't execute."
GOTO 313

314 REM BAT
EXIT$=XXSFN$:EXITCMD EXIT$

318 REM BAS
CLS:RUN XXSFN$

320 SCREEN 8:PGLOAD XXSFN$:WAIT
SCREEN 7:GOTO 312

322 SCREEN 8:DEF SEG=&HB000
BLOAD XXSFN$,0:REFRESH
WAIT:SCREEN 7:GOTO 312

330 REM QUIT MENU
XXCL$="":XXCM$="":XXCR$="":XXC$=""
XXSFN$="$":XXOC$="MENU":CLS:GOTO 10

340 REM FILES
XXCAP=VAL(MID$(BIN$(SHIFT),2,1))
XXFSIZE=0:XXCLIN=CSRLIN
XXNOM$=FINDFILE$("*.*")
FOR XXI=1 TO 100
IF XXI/7=CEIL(XXI/7) THEN GOSUB 345
XXCL=XXCLIN+XXI
IF XXCL>8 THEN XXCL=8 : PRINT
FOR XXJ=1 TO 2
XXNM$=LEFT$(XXNOM$,LEN(XXNOM$)-4)+SPACE$(12-LEN(XXNOM$))+RIGHT$(XXNOM$,4)
IF XXCAP=0 THEN XXNM$=LCASE$(XXNM$)
XXFS$=RIGHT$("000"+STR$(FILESIZE),5)
XXFSIZE=XXFSIZE+FILESIZE
LOCATE XXCL-1,(XXJ-1)*21+1 : ? XXNM$
LOCATE XXCL-1,(XXJ-1)*21+14 : ? XXFS$
XXNOM$=FINDNEXT$
IF XXNOM$="" THEN 342
NEXT XXJ
NEXT XXI   
342 IF (XXI % 7)>2 OR XXI<7 THEN GOSUB 345
XXX$=" FILES   "+STR$(XXFSIZE)+" BYTES"
IF XXCAP=0 THEN XXX$=LCASE$(XXX$)
LOCATE XXCL,8 : ? 2*(XXI-2)+XXJ+2""XXX$;
? "":XXCL$="":XXCR$="":XXCM$="":GOTO 10
345 REM WAIT
 IF XXI<6 THEN RETURN
 XXIK$=INKEY$:IF XXIK$<>"" THEN 348
 XXIT=XXIT+1:IF XXIT>(XXOT*14) THEN OFF:GOTO 347
 GOTO 345
347 XXIT=0:GOTO 345
348 XXIT=0:RETURN

350 REM OLD COMMAND LINE
IF RIGHT$(XXOC$,1)=CHR$(13) THEN 355
? XXOC$;:XXCL$=XXOC$:XXCR$="":XXCM$=XXOC$
XXCP=(CSRLIN-1)*40+LEN(XXCL$):GOTO 15
355 XXCM$=LEFT$(XXOC$,LEN(XXOC$)-1)
IF MID$(BIN$(SHIFT),2,1)="0" THEN XXCM$=LCASE$(XXCM$)
? XXCM$;:GOTO 10

400 REM ERROR HANDLING
IF ERR=38 THEN 350
XXX$="command line error "
IF XXELD=0 THEN ? XXX$:GOTO 10 
IF XXEH=0 THEN 410
XXEL$=" [line "+STR$(ERL)+"]"
? @(CSRLIN-1)*40,XXEL$
XXX$="error "+STR$(ERR)+" at "+STR$(PROGLOC+ERADR))
? @(CSRLIN-1)*40,XXX$
XXCM$="":XXCL$="":XXCR$=""
XXEL$="":RESUME 10
410 ? @(CSRLIN-1)*40,ERMSG$
XXCM$="":XXCL$="":XXCR$=""
XXEL$="":RESUME 10

430 REM TOGGLE INS
XXINS=ABS(XXINS-1)
IF XXINS=1 OR XXCR$="" THEN 435
? @(CSRLIN-1)*40+LEN(XXCL$),SPACE$(LEN(XXCR$));
XXCR$="":XXCM$=XXCL$
435 XXS1=16*INT(SHIFT/16)
XXCP=(CSRLIN-1)*40+LEN(XXCL$):? @XXCP,"";
GOTO 15

450 REM EVAL "EVAL..."
XXI=INSTR(XXC$,"EVAL "):XXJ=XXI+6
451 IF MID$(XXC$,XXJ,1)="$" THEN 457
 IF MID$(XXC$,XXJ,1)=CHR$(34) THEN 457
 XXJ=XXJ+1:IF XXJ>39 THEN 460
 GOTO 451
457 XXX$=MID$(XXC$,XXI+5,XXJ-XXI-4)
XXY$="XXX$="+XXX$:EVAL XXY$
XXCM$=LEFT$(XXCM$,XXI-1)+XXX$+RIGHT$(XXCM$,LEN(XXC$)-XXJ)
IF LEN(XXCM$)>40 THEN 460
RETURN
460 REM LINE TO LONG
XXX$="line too long"
IF XXCAP=1 THEN XXX$=UCASE$(XXX$)
? XXX$:? "":XXCL$="":XXCR$="":XXCM$=""
GOTO 10

1000 REM INIT
XXOT=120:XXLT=14:XXTO=XXOT*XXLT:XXEH=0
XXINS=VAL(LEFT$(BIN$(XXSO),1))
XXCAP=VAL(MID$(BIN$(XXSO),2,1))
XXS1=16*INT(SHIFT/16):XXORG$=CWD$
XXCL$="":XXCM$="":XXCR$="":XXOC$="":XXIK$=""
GOTO 10

</code>