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

  1. 40 POSITION 3,12:? #6;"PRINT REPORT"¢42 POSITION 3,14:? #6;"END"¢50 POSITION 7,18:? #6;"USE צדכדבק TO CHOOSE ITEM":POSITION 9,22:? #6;"PRESS צקIJפק TO BEGIN"¢100 ON CHOICE GOTO 110,120,130,140,145,150¢145 RUN "D:REPORT"¢160 OLDROW=ROW:ROW=ROW+2:IF ROW=16 THEN ROW=4¢220 IF OLDROW=10 THEN POSITION 3,10:? #6;"UTILITIES":POSITION 3,12:? #6;"≡≥Θ∈⌠á≥σ≡∩≥⌠"¢225 IF OLDROW=12 THEN POSITION 3,12:? #6;"PRINT REPORT":POSITION 3,14:? #6;"σ∈Σ"¢230 IF OLDROW=14 THEN POSITION 3,14:? #6;"END":POSITION 3,4:? #6;"σ∈⌠σ≥áπΦσπδ≤"¢310 POKE DL-1,198:POKE DL+2,135:POKE DL+3,134:POKE DL+16,134:POKE DL+18,134¢