home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1989 April / 89_apr.atr / gdw4.lst < prev    next >
File List  |  2023-02-26  |  184b  |  1 lines
  1. 1000 X=USR(ADR(MOVMEM$),ADR(INV$)+SB,MEM1+LINE*24,287)¢1280 CHANGE=-CHANGE:POKE 1791,129-PEEK(1791):POKE 19,0:POKE 20,0:POKE 53255,127+77*CHANGE:LINE=LINE+1¢1320 GOTO 1000¢5280 LINE=0¢