home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 December
/
64er_Magazin_86-12_1986_Markt__Technik_de.d64
/
hsg-aenderungen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
52 lines
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