home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1989 March
/
89_mar.atr
/
gdw10.lst
< prev
next >
Wrap
File List
|
2023-02-26
|
417b
|
1 lines
180 X=USR(ADR(MISCLR$),PA+768,255,252):POKE 1720,0:IF PEEK(1716)<>255 THEN 230¢230 TMP=PEEK(53248):IF TMP<4 OR TMP=8 THEN RETURN ¢250 X=PEEK(1692)-47+2*(RND(0)>0.5)-1:Y=PEEK(1696)-158¢260 POKE 89,INT(MEM7/256):POKE 88,MEM7-256*PEEK(89):POKE 87,7:COLOR 0¢270 YT=Y-3:YT=YT*(YT>=0)¢280 PLOT X-2,YT:DRAWTO X+2,YT+6:PLOT X,YT:DRAWTO X,YT+6:PLOT X+2,YT:DRAWTO X-2,YT+6¢290 PLOT X-2,Y*(Y>=0):DRAWTO X+2,Y*(Y>=0)¢300 RETURN ¢