home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1988 December / 88_dec.atr / gdw1.lst < prev    next >
File List  |  2023-02-26  |  721b  |  1 lines
  1. 5020 POKE DLIST+3,86¢5030 L=PEEK(DLIST+4)+44:POKE DLIST+5,PEEK(DLIST+5)+(L>255):POKE DLIST+4,L-256*(L>255)¢5040 FOR X=6 TO 20:POKE DLIST+X,22:NEXT X:FOR X=24 TO 50:POKE DLIST+X,14:NEXT X¢5050 MEM7=PEEK(88)+PEEK(89)*256+600¢5060 POKE DLIST+21,78:POKE DLIST+23,INT(MEM7/256):POKE DLIST+22,MEM7-INT(MEM7/256)*256¢5070 POKE DLIST+31,78:POKE DLIST+33,INT((MEM7+320)/256):POKE DLIST+32,MEM7+320-PEEK(DLIST+33)*256¢5080 POKE DLIST+41,78:POKE DLIST+43,INT((MEM7+640)/256):POKE DLIST+42,MEM7+640-PEEK(DLIST+43)*256¢5090 POKE DLIST+51,22:POKE DLIST+52,22¢5100 POKE DLIST+53,22¢5110 POKE DLIST+54,6:POKE DLIST+55,70:POKE DLIST+56,PEEK(88):POKE DLIST+57,PEEK(89)¢5120 POKE DLIST+58,65:POKE DLIST+59,PEEK(560):POKE DLIST+60,PEEK(561)¢