home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1989 April
/
89_apr.atr
/
gdw1.lst
< prev
next >
Wrap
File List
|
2023-02-26
|
271b
|
1 lines
1270 IF PEEK(53251)=0 THEN 1330¢1280 CHANGE=-CHANGE:POKE 1791,129-PEEK(1791):POKE 53255,127+77*CHANGE¢3310 FOR BYTE=39 TO 205:POKE PA+768+BYTE,192:NEXT BYTE¢5440 POKE 704,15:POKE 705,40:POKE 706,40:POKE 707,15¢5450 POKE 53248,128:POKE 53249,0:POKE 53250,5:POKE 53255,204¢