Commodore 128 Bedienungshandbuch Seite 485

Übertragung von BASIC4-Programmen
Anhang M : Umwandlung von BASIC4
Programm zur Umsetzung von CBM 8000er-Programmen (BASIC 4.0) auf
das BASIC 7.0 des C 128.
Es werden aber nur Befehlstokens umgesetzt, nicht jedoch PEEK-, POKE-,
SYS- und USR-Adressen; ebenfalls nicht die komplexeren Cursor-Steuer-
zeichen des BASIC 4.0.
Das Umsetzprogramm selbst ist in BASIC 2 geschrieben, es läuft damit auf
jedem beliebigen Commodore-Rechner.
18 REM SAUE" 8 : 4NACH7" , 8
2B REM TO KEN—UMSETZUNG BASIC 4 . 8 NACH BASIC 7 . 8
58 DIMfi$, ZZ$, N$,FG:N$=CHR$0):G$=CHF$(34)
188 PRI NT"BI SKETTE I N D R I U E B LEGEN .
185 PRI NT" UMSETZUNG ERFOLGT UON DISKETTE ZU DISKETTE
118 INPUT"8XXX-NAME = "; N8$
128 INPUT" 128-NAME = " ; N2$: I FN8$=N2$THEN12B
148 0PEN2, 8, 4, N2$: GETB2, A$, A$ : S=ST : C L 0 S E 2 : REM T E S T L E S E N
158 I F S = OTHENPRI NT" Z I E L F I L E E X I S T I E R T ! " : PR I NT : GOTO 128
168 OPEN1, 8,3, N8$: OPEN2, 8,4, N2$+", P,W"
178 GETttl, A$, B$: A8=ASC< A$+N$ 3+ 256*ASC C B$+N$ ) : REM LADE—ADR
188 A2=28«256+l:REM FUER 128: LADE—ADR = $1CB1
181H2=INTCA2/256):PRINTB2,CHR$CA2-H2*256);CHR$( HZ) ;
198DIMC$C256), ZNC256) : REM TOKEN—UMSETZ—TABELLEN
191 FORI=284T0256:READA$:IFA$="E"THENI=999:NEXT:GOTO195
192 ZNCI) = -CLEN<A$i>3):C$(I)ttCHR$CUALCLEFT$(A$,3J)3
193IFZNCI)THENC$CI)=C$CI)+CHR$CUALCRIGHT$CA$,3)))
194 NEXT
288 GETttl,A$,B$:B8=ASCCA$+N$) + 256»ASCCB$+N$>:
REM CHAINING—POINTER
281N8 = B8-A8:IFB8 = 0THENPRINT82,N$; N$; : CLOSE1:CLOSE2:
END:REM PROG-ENDE
218 Z2=8: F G = - l : GETttl, A$ : ZZ$=LEFT$C A$+N$, 1) : REM NEUE
Z E I L E IN ZZ$
211GETttl,B$:ZZ$=ZZ$+LEFT$CB$+N$, 1) : REM ZEILENNR. F E R T I G
215 PRINT"ZEILE";ASCCLEFT$CZZ$,1))+ 256«ASCCRIGHT$CZZ$,1)3
220 FORI=4T0N8-2:GETttl,A$:IFA$=G$THENFG=NOTFG:REM
FUER Z E I L E
238IFFGTHENA=ASCCA$):IFA>2B3ANDA<255THENA$=C$CA):
Z2=Z2+ZN<A) : REM UMCOD
in BASIC7-Programme
M-1
FOR