home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1989 April / 89_apr.atr / gdw10.lst < prev    next >
File List  |  2023-02-26  |  431b  |  1 lines

  1. 1290 IF CHANGE=1 THEN 1400¢1320 GOTO 1400¢1400 POKE 53278,0¢1430 IF LINE+BOTROW*2<>15+BARLIM OR BARLIM=3 THEN 1000¢1435 POKE 559,0:POKE 20,0¢1440 IF PEEK(20)=0 THEN 1440¢1450 POKE DLIST+21+BARLIM,22:X=USR(ADR(MOVMEM$),DLIST+31+BARLIM,ADR(DL$),29-10*BARLIM)¢1460 X=USR(ADR(MOVMEM$),ADR(DL$),DLIST+22+BARLIM,29-10*BARLIM)¢1470 POKE 559,62:BARLIM=BARLIM+1:GOTO 1000¢3030 DIM MLANG$(90),INV$(578),DAT$(16),ROW(5),DL$(30)¢5150 BARLIM=0¢