home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1989 March
/
89_mar.atr
/
gdw3.lst
< prev
next >
Wrap
File List
|
2023-02-26
|
312b
|
1 lines
3070 DIM MEMCLR$(36):GOSUB 30500:MEMCLR$=MLANG$¢3150 PB=PEEK(740)-8:CB=PB-4:POKE 106,CB-4:CA=CB*256:PA=PB*256¢3250 X=USR(ADR(MEMCLR$),PA+768,1280)¢3270 FOR BYTE=201 TO 208:READ DAT:POKE PA+1024+BYTE,DAT:NEXT BYTE¢3280 DATA 16,16,56,56,124,124,198,198¢5200 POKE 54279,PB:POKE 559,62:POKE 704,10¢5480 POKE 53277,3¢