Quazatron: QUAZAT.B

  1 POKE 23624,0: POKE 23693,0: CLS : PRINT AT 8,8; PAPER 3;"Instruction (Y/N)": PRINT AT 20,3; PAPER 5; BRIGHT 1;"DISK COPY BY CHUCHKALOV '89": PRINT AT 0,0;: BEEP .1 TO ,1: BEEP .1 TO ,2: BEEP .1 TO ,3: BEEP .1 TO ,4: BEEP .1 TO ,5: POKE 23570,16: LET a$="01": GO SUB 6
  2 IF INKEY$="y" OR INKEY$="Y" THEN  LET d=58: GO SUB 5: GO SUB 8: LET a$="02": GO SUB 6: LET d=97: GO SUB 5: GO SUB 8: LET a$="03": GO SUB 6: LET d=136: GO SUB 5: GO SUB 8: LET a$="04": GO SUB 6: LET d=22944: POKE 23570,6: GO SUB 5
  3 IF INKEY$="n" OR INKEY$="N" THEN  LET a$="02": GO SUB 6: LET a$="03": GO SUB 6: LET a$="04": GO SUB 6: POKE 23570,6: LET d=22944: GO SUB 5
  4 GO TO 2
  5 RANDOMIZE USR (34000+d): RETURN 
  6 RANDOMIZE USR 15619: REM : LOAD "quazat"+a$CODE 
  7 RETURN 
  8 IF INKEY$<>"" THEN  RETURN 
  9 GO TO 8
  59648]0uAaaaaaaaSCREEN$ 5619: REM : SAVE "QUAZAT" LINE 1 LINE LaLa