100 REM  HSG-W  MODIFIZIERUNG
110 REM  AENDERT VERWENDETE ZERO-PAGE
120 REM  ADRESSIERUNG
130 REM
140 REM  ERMOEGLICHT VERWENDUNG VON
150 REM  FUNKTIONEN ALS ARGUMENTE
160 REM  DER BEFEHLE.
170 REM
180 REM  ACHTUNG ! DAUER CA 7 MIN
190 REM
1000 FOR I=36864 TO 40032
1010 Q=PEEK(I)
1020 IF Q=164 OR Q=165 OR Q=166THEN3000
1050 IF Q=132 OR Q=133 OR Q=134THEN3000
1080 IF Q=197 OR Q=229 OR Q=230THEN3000
1110 IF Q=101 OR Q=141 OR Q=177THEN3000
1140 IF Q= 49 OR Q=145 OR Q=17 THEN3000
2000 NEXT
2005 :
2010 FORI=1TO21
2020 READ W,Q:POKEW,Q
2030 NEXT
2100 :
2200 OPEN1,8,1,"HSG2,P,W"
2210 PRINT#1,CHR$(0);CHR$(144);
2220 FOR I=36864 TO 40032
2230 PRINT#1,CHR$(PEEK(I));
2240 NEXT
2250 CLOSE1
2500 END
3000 :
3010 W=PEEK(I+1)
3020 IF W=87 THEN POKEI+1,164:GOSUB4000
3030 IF W=88 THEN POKEI+1,165:GOSUB4000
3040 IF W=89 THEN POKEI+1,166:GOSUB4000
3050 IF W=90 THEN POKEI+1,180:GOSUB4000
3060 IF W=91 THEN POKEI+1,181:GOSUB4000
3070 IF W=92 THEN POKEI+1,173:GOSUB4000
3080 IF W=93 THEN POKEI+1,176:GOSUB4000
3090 IF W=94 THEN POKEI+1,177:GOSUB4000
3100 IF W=95 THEN POKEI+1,178:GOSUB4000
3110 IF W=96 THEN POKEI+1,179:GOSUB4000
3850 GOTO2000
3900 :
4000 C=C+1
4010 PRINTC:PRINT"[145]";
4020 RETURN
5000 :
5010 DATA 37205,96,37264,95,37989,180,38317,92,38323,93,38336,96,38379,87
5020 DATA 38388,89,38394,91,38420,95,38425,94,39047,87,39060,88,39063,89
5030 DATA 39066,90,39069,91,39103,92,39106,93,39114,96,39127,94,39130,95