ZX81 Listing for codeiv.p


ZX81 program listing for *CODE IV*SLR/1985,2017*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18313
VARS  : 19106
E-LINE: 19107
STKBOT: 19107
STKEND: 19107


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM *CODE IV*SLR/1985,2017*
  20 DIM C$(5)
  21 LET X=0
  22 LET Y=1
  30 FOR G=1 TO 5
  40 LET C$(G)=STR$ (INT (RND*10
))
  50 NEXT G
  60 LET D$="....."
  70 PRINT "READY"
  80 DIM A$(5)
  90 INPUT A$
 100 IF A$(1 TO 4)="HELP" THEN
GOTO 480
 110 IF A$(1)=CHR$ (49) AND A$(2
)=CHR$ (42) AND A$(3)=CHR$ (60)
AND A$(4)=CHR$ (46) AND A$(5)=
CHR$ (56) THEN GOTO 130
 111 IF A$=C$ THEN GOTO 360
 112 GOTO 450
 120 FOR G=1 TO 100
 121 NEXT G
 122 CLS
 123 GOTO 70
 130 PRINT "HELLO...I WILL HELP 
YOU BREAK   INTO THIS COMPUTER P
ROGRAM AND  DEFEAT YOUR ENEMY."
 140 FOR F=1 TO 200
 150 NEXT F
 160 FOR G=1 TO 5
 170 FOR H=0 TO 9
 180 SCROLL
 190 IF STR$ H=C$(G) THEN LET D$
(G)=STR$ H
 195 PRINT D$
 200 NEXT H
 210 NEXT G
 220 SCROLL
 230 PRINT "I""VE FOUND IT. THE 
CODE IS ";D$
 240 SCROLL
 250 PRINT "I WILL NOW REENTER Y
OU INTO THE"
 260 SCROLL
 270 PRINT "SYSTEM.  GOOD LUCK."
 275 FOR G=1 TO 100
 276 NEXT G
 280 FOR G=1 TO 200
 300 FOR H=1 TO 100
 310 SLOW
 320 FAST
 330 NEXT H
 340 SLOW
 345 CLS
 350 GOTO 70
 360 PRINT "HELLO...WHAT IS YOUR
 WISH?"
 370 INPUT B$
 380 IF B$="HELP" THEN GOTO 510
 381 IF B$="FLOOR OFF" THEN
GOTO 530
 382 IF B$="FLOOR ON" THEN GOTO
560
 383 IF B$="EXIT" THEN GOTO 590
 400 PRINT "INVALID COMMAND.","D
O YOU NEED HELP?"
 410 FOR G=1 TO 100
 420 NEXT G
 430 CLS
 440 GOTO 360
 450 PRINT "ALERT...ALERT...INTR
UDER...ALERT",,"ATTEMPT LOGGED."
,,"DO YOU NEED HELP?"
 460 LET X=X+1
 470 GOTO 120
 480 PRINT "ENTER IN CODE TO RES
ET COMMAND  ON FLOOR CONTROL."
 490 IF X>2 THEN PRINT "WHAT ARE
 YOU DOING LEWIS?"
 500 GOTO 120
 510 PRINT "VALID COMMANDS ARE:"
,"FLOOR OFF",,"FLOOR ON",,"EXIT"
 520 GOTO 410
 530 PRINT "FLOOR IS ";"ALREADY"
AND Y=0;"NOW" AND Y=1;" OFF..."
 540 LET Y=0
 550 GOTO 410
 560 PRINT "FLOOR IS ";"ALREADY"
AND Y=1;"NOW" AND Y=0;" ON...",
"BE CAREFUL*"
 570 LET Y=1
 580 GOTO 410
 590 PRINT "THANK YOU FOR USING 
THE FLOOR   CONTROL.",,"EXITING.
.."
 600 FOR G=1 TO 100
 610 NEXT G
 620 CLS
 630 RUN
 700 SAVE "CODEIV"
 710 RUN