10 REM FAST64 V19-10-85
20 REM VON ANDREAS ZELLER, HANAU
30 :
40 REM AUFGABE: 128ER IM 64ER-MODUS
50 REM          UM 35% BESCHLEUNIGEN.
60 :
70 REM DURCH AENDERN DER ZEILE 170
80 REM KANN DAS PROGRAMM IN BELIEBIGE
90 REM BEREICHE GELEGT WERDEN.
100 :
110 REM WENN DAS PROGRAMM ZUSAMMEN MIT
120 REM "KEYS128" LAUFEN SOLL, MUSS
130 REM FOLGENDE ZEILE EINGEFUEGT WERDEN:
140 REM 395 POKE CODE+110,44
150 :
160 :
170 CODE=49440:REM STARTADRESSE
180 :
190 POKE53265,11:POKE53296,1
200 :
210 DIM P(6):FORJ=0TO6:READP:P(J)=CODE+P:NEXT
220 :
230 DATA 0,110,159,216,217,218,219
240 :
250 FORI=0TO219:READX$
260 :
270 REM UMWANDLUNG ADRESSEN
280 A$=RIGHT$(X$,1):B$=LEFT$(X$,1)
290 IFA$="+"THENP=P(ASC(B$)-65):X=P/256:GOTO360
300 IFA$="-"THENP=P(ASC(B$)-65):X=(P/256-INT(P/256))*256:GOTO360
310 :
320 REM UMWANDLUNG HEX => DEC
330 :
340 X=ASC(A$)+(A$>"@")*55+(A$<":")*48
350 X=X+(ASC(B$)+(B$>"@")*55+(B$<":")*48)*16
360 POKECODE+I,X:NEXT
370 :
380 POKE53296,0:POKE53265,27
390 :
400 PRINT">DAS PROGRAMM BENUTZT DEN BEREICH"
410 PRINT" VON"CODE"-"CODE+219"."
420 PRINT
430 PRINT">SCHNELL MIT: SYS"CODE";"
440 PRINT"  NORMAL MIT: SYS"CODE+116"."
450 :
460 END
470 :
480 :
490 :
1000 DATA  08,48,78,AD,14,03,C9,C-
1010 DATA  AD,15,03,E9,C+,F0,0C,AD
1020 DATA  14,03,8D,D-,D+,AD,15,03
1030 DATA  8D,E-,E+,AD,02,03,C9,B-
1040 DATA  AD,03,03,E9,B+,F0,0C,AD
1050 DATA  02,03,8D,F-,F+,AD,03,03
1060 DATA  8D,G-,G+,A9,C-,8D,14,03
1070 DATA  A9,C+,8D,15,03,A9,B-,8D
1080 DATA  02,03,A9,B+,8D,03,03,A9
1090 DATA  00,8D,30,D0,AD,12,D0,D0
1100 DATA  FB,A9,31,8D,12,D0,AD,11
1110 DATA  D0,29,7F,8D,11,D0,A9,01
1120 DATA  8D,30,D0,AD,1A,D0,09,01
1130 DATA  8D,1A,D0,68,28,60,20,A-
1140 DATA  A+,6C,F-,F+,08,48,78,AD
1150 DATA  1A,D0,29,FE,8D,1A,D0,A9
1160 DATA  00,8D,30,D0,AD,D-,D+,8D
1170 DATA  14,03,AD,E-,E+,8D,15,03
1180 DATA  AD,F-,F+,8D,02,03,AD,G-
1190 DATA  G+,8D,03,03,68,28,60,AC
1200 DATA  19,D0,30,07,AD,0D,DC,58
1210 DATA  6C,D-,D+,98,4A,90,F9,8C
1220 DATA  19,D0,AD,30,D0,49,01,8D
1230 DATA  30,D0,4A,B0,03,A9,FA,2C
1240 DATA  A9,31,8D,12,D0,68,A8,BA
1250 DATA  BD,04,01,D0,03,DE,05,01
1260 DATA  DE,04,01,68,AA,68,28,60
1270 DATA  31,EA,83,A4