ZX81 Programs


Read about, play, run, or list games, animations, and more. These are my programs from the ’80s to today.

ZX81 Program Listing

*COMP CONTROL*SLR/1984 (cctrl.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17981
VARS  : 18774
E-LINE: 18775
STKBOT: 18775
STKEND: 18775


LEGEND

A means INVERSE A
A means GRAPHICS A
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM  *COMP CONTROL*SLR/1984
  20 CLS
  30 PRINT "PASSWORD:"
  35 LET B$="CCTRL"
  38 PRINT AT 20,15;"(";B$;")";
AT 1,0;
  40 INPUT A$
  50 PRINT A$
  60 IF A$=B$ THEN GOTO 100
  70 PRINT ,,"**CODE WORD REFUSE
D**"
  80 PAUSE 200
  90 RUN
 100 CLS
 110 PRINT "GOOD MORNING/ HOW AR
E YOU TODAY?"
 115 DIM A$(96)
 120 INPUT A$
 130 PRINT A$
 140 FOR A=1 TO 96-11
 145 FAST
 150 IF A$(A TO A+3)="FINE" OR A
$(A TO A+4)="GREAT" OR A$(A TO A
+7)="TERRIFIC" OR A$(A TO A+3)="
GOOD" OR A$(A TO A+8)="WONDERFUL
" THEN PRINT "THAT IS GOOD."
 160 IF A$(A TO A+4)="GAMES"
THEN GOTO 300
 170 IF A$(A TO A+5)="STATUS"
OR A$(A TO A+4)="GOING" THEN
GOTO 400
 180 IF A$(A TO A+3)="KILL"
THEN NEW
 190 IF A$(A TO A+3)="STOP" OR A
$(A TO A+2)="BYE" OR A$(A TO A+3
)="CIAO" THEN STOP
 200 IF A$(A TO A+6)="RESTART"
OR A$(A TO A+2)="RUN" OR A$(A
TO A+10)="BEGIN AGAIN" THEN
RUN
 205 IF A$(A TO A+2)="CLS" OR A$
(A TO A+4)="CLEAR" THEN CLS
 210 NEXT A
 215 SLOW
 220 PRINT "DO YOU WISH ANYTHING
?"
 230 INPUT A$
 240 GOTO 130
 300 CLS
 310 SLOW
 320 PRINT "GAMES:"
 330 PRINT ,,,,"WATER BUG       
                WATER BUG II    
                RAIDER V        
                LASER CATCH     
                TOWER OF LOVE   
                LANDER          
                TABULAR"
 340 PRINT ,,,,
 350 GOTO 220
 400 CLS
 410 SLOW
 420 PRINT "STATUS OF GAMES, TRA
NSIT...     ALL MUST BE PLAYED T
O BE ON..."
 430 PRINT ,,,,"GAME TO BE PLAYE
D?"
 440 INPUT A$
 450 FOR A=1 TO (LEN A$)-6
 460 IF A$(A TO A+5)="RETURN"
OR A$(A TO A+1)="GO" THEN GOTO
220
 470 NEXT A
 480 PRINT "LOADING GAME ";A$
 490 PRINT ,,,,"PRESS ENTER TO B
EGIN..."
 500 PAUSE 4E4
 510 LOAD A$
 600 SAVE "CCTRL"
 610 RUN