ZX81 Programs


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

ZX81 Program Listing

**E.T.**SLR/1985-2012** (etmc.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 26324
VARS  : 27117
E-LINE: 27118
STKBOT: 27118
STKEND: 27118


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   0 REM MCII
30403 ?/INKEY$?INKEY$?CALL INKEY$
??INKEY$?  ??INKEY$PI?8PI?
INPUT PI?ERR MSGS CALL LN Vò84
IF INT £FAST STR$ ACS ?C!Y-LN õ
PILN (INKEY$)(BLN UNPLOT RNDK;)
CONT óLN UNPLOT RNDK=)HOME  LN
UNPLOT RNDK>2úLN UNPLOT RNDK)/=
LN òINKEY$)CONT óLN òINKEY$)
HOME  LN òINKEY$LN òINKEY$
LN òINKEY$SGN LPRINT TAN FAST B
GOSUB DELETE LPRINT TAN Y0B
GOSUB DELETE SóW/RAND ;?õPI?J
LINE ?J?7TAN RND)5 FAST GOSUB
UNDRAW /RNDù7FAST ;FOR 5CHR$ ò
GOSUB PISTOP AT FOR GOSUB K
LPRINT ñQòù6:RNDCLEAR QT5CLEAR Q
TAN LN VòñCOPY RETURN JFAST
GOSUB PILPRINT COS //LN VòG4IF
LN Vò?RETURN COPY CSAVE ñCOPY
RETURN JFAST GOSUB PILPRINT C
INPUT JERR MSGS 8COS 9EDIT LN X÷
ASN DRNDTAN ACS UNPLOT 6ORNDEO
RND?NEW ?PCOS LN CALL INKEY$C
NEXT TAN YF( AND GOTO PICHAR Yñ
ACS CKòYôACS DKòACS ÷PRINT LN
INT INKEY$÷ACS ?KòINPUT ?CHAR )2
£UKRND<IF VAL INKEY$LET J4LET
KRETURN !SòINPUT ?/QY*( AND
GOTO PI?NEW 3DEF PROC VAL VAL
VAL JACS (ACS (ACS (POP LINE DD
AT CHAR ùAT CHAR ùGOSUB UNDRAW
£RNDù76:RNDAT Y/(MURNDY5)MTRND
TAN STR$ FAST VAL RETURN
8218 RNDACS AUTO CõLN ( /QE:RND
LN DO PI/CRETURN RNDABS JPIRND
ACS AUTO CõLN ( /*E:RNDPRINT
LET E:RND?76:RND5TRNDPAT LPRINT
SGN TAN 7PRINT 6:RNDCLEAR QT5UU
RNDXMURNDRETURN òATN PUSH PILET
TAN U5RNDRETURN  CöXM5RND/AE£RND
ñSAVE òùQ?FAST LN CALL INKEY$C
CLS LPRINT RETURN CASN
RETURN ZC:RETURN D4÷ACS 0F?O4
CLS ?/INKEY$LN PUSH !/ABS ?LCOS
,LN õPI<"/PRINT RETURN CALL Sù
RETURN ""ACS R AND FPINEW Z5)ñ
CHAR ôRETURN 5K£RETURN ñCô
RETURN *SôJLN õPIACS õPI7/PRINT
NEW ZLN õPIJ?!PIINT º?MCIF LN O
CALL VAL UNDRAW PI)  STR$ FOR 7D
FOR D?+?0FOR KPLOT FOR FOR J?3
LINE ?3?OC/FOR JACS 0ACS 1?+?0
IF ùCALL ?+DEF PROC ?0CHAR STOP
;STOP /<>LPRINT AT ACS ?TAB (
INKEY$TAN ERR MSGS ?*>=(INKEY$
FOR ?CCHAR ACS ?TAB (INKEY$TAN
GOSUB OFFMRNDONICLEAR ?Rö GOSUB
DELETE /GOSUB DELETE /READ
END PROC GOSUB DELETE Kñ76MRND
ACS WERR MSGS EDIT TAN LN   E-
RND7PRINT LN -DPOKE LN -DPOKE
LN SCHAR LN INPUT DEF PROC INT ?
LN RAUTO LN <>AUTO TAN LN LEN
AUTO YCODE LN RUN DEF PROC LN *
EDIT /$LN RAUTO 5  LN >ERR MSGS
óLN NEXT AUTO FAST LN LEN AUTO
LPRINT LN >ERR MSGS LN A
ERR MSGS LN LLIST !)CLEAR CALL ñ
LN IF DEF PROC E?RNDLN INPUT
DEF PROC )RUN CALL ñô LN IF
DEF PROC E?RNDLN INPUT DEF PROC
LN .CHAR LN .CHAR YRUN LN RUN
DEF PROC Y?LN RUN DEF PROC LN
LET DEF PROC RETURN YTAB DRND5
LIST CALL FAST LN EúE?RNDDIM LN
POKE DEF PROC 4CLS INT ?
30455  
30386 DER II ENDAT YTAN ?BDPOKE 6
?RNDGOSUB OFF0RND<5?RNDLN OFF
DPOKE 5  6?RNDE?RND6?RNDLN A
DEF PROC WMõEND PROC 5?RNDFAST
LN 7DPOKE LPRINT FAST 7776-RNDU*
RNDM5RNDLN -DPOKE RETURN PAUSE
ATN NEXT ERR MSGS RETURN RAND
ATN CHR$ UNDRAW RETURN IF ATN ,
EDIT RETURN THEN CREM RETURN
DIM ATN JDEF PROC RETURN GOTO
ATN ?DPOKE RETURN GOSUB ATN >
DPOKE RETURN FOR ATN PAUSE
UNDRAW RETURN NEXT ATN 2PROTECT
RETURN SLOW ATN ""AUTO RETURN
POKE ATN VAL UNDRAW RETURN FAST
ATN LAUTO RETURN INPUT ATN ¶
PROTECT RETURN PLOT ATN DATA
EDIT RETURN UNPLOT ATN ³EDIT
RETURN LET ATN 2 RETURN CLS ATN
KUNDRAW RETURN STOP ASN £UNDRAW
RETURN PRINT ATN LET DPOKE
RETURN LPRINT ATN CHR$ DPOKE
RETURN NEW ATN òDPOKE RETURN
COPY ATN UNPLOT ERR MSGS RETURN
REM CPROTECT RETURN SCROLL ATN P
UNDRAW RETURN RETURN ATN $
ERR MSGS RETURN CLEAR ATN A
DEF PROC RETURN  4;E-RND-DPOKE
RETURN
8202 2DEF PROC TAB QERR MSGS LN
£UNDRAW LN LEN AUTO YSLN RUN
DEF PROC ?DRNDLN HTRACE 5=RND?S
UNDRAW 5PUSH !?SUNDRAW 5?ó?S
UNDRAW SCROLL RETURN ?4SGN LN
RUN DEF PROC 5/DPOKE LN SUNDRAW
/LEN ñRETURN RETURN GOSUB POP
ACS 1**?POKE DEF PROC UNTIL 7
RESTORE STR$ FOR FAST 67RNDRND
LN .CHAR LN INPUT DEF PROC JLN
RUN DEF PROC LPRINT LN BREAK
DPOKE ..FOR SGN LN OFFDPOKE
GOSUB OFF?RNDLN OFFDPOKE FAST
GOSUB OFF?RNDBGOSUB DELETE
LPRINT **6?RND?SCROLL CHAR ?7?7
TAN RESTORE 7UNTIL 7TAN FAST AT
E0RND7LN NOSTALGIC DPOKE FOR B
GOSUB PISQR E?RNDGOSUB DELETE **
FOR 7/GOSUB Y?PRINT LN -DPOKE
LN DO PROTECT LN BREAK DPOKE
FOR LN NOSTALGIC DPOKE FOR LET ?
UUNDRAW YLN /DIM FAST SCROLL
RETURN
10249 PRINT LN RUN DEF PROC
LET LPRINT TAN VAL FAST E?RND
PRINT ?FAST 76?RNDLN POKE
DEF PROC RETURN D4-Y
52727 LN INPUT DEF PROC JLN RUN
DEF PROC LET A ?LN INPUT
DEF PROC /òLPRINT LET LPRINT AT
JTAN 5CLEAR ACS LN XUNDRAW 5ñ
EXP LN XUNDRAW LN LET DPOKE 5
CLEAR ACS LN XUNDRAW 5ñ:?X
UNDRAW LN -DPOKE RETURN
8198 ERROR LN -DPOKE RETURN
INKEY$CZRETURN
51890 "CYRETURN AT C?RETURN CHR$
ASN >=ERROR RETURN TAB ASN GOTO
ERROR RETURN ,ASN OERROR PRINT E
-RND7LET ñTERROR VAL ñ  VAL ñM
TRACE VAL ?CHAR UNDRAW 5INPUT
DEF PROC LN SUNDRAW /RESEQ 5RND
TRACE LN SUNDRAW /óLN LOOP
ERROR 5IF DEF PROC LN SUNDRAW /
CHAR Y?LN BDPOKE E?RNDFAST LN X
UNDRAW ñCOPY COPY LN TRACE  ó
PRINT LN RUN DEF PROC LET
RETURN "CõLN BDPOKE /INPUT
LPRINT VAL GOSUB OFF?RNDLN OFF
DPOKE Y)LN UUNDRAW YñLPRINT ?U
UNDRAW LN IUNDRAW LN SQR UNDRAW
5CALL EDIT LN XUNDRAW 5PRINT !
LN SUNDRAW LN -DPOKE RETURN ,C>
RETURN ;ASN CLS DPOKE RETURN +
ASN CLS DPOKE 5.CHAR LN SUNDRAW
JTAN 5XERROR LN SUNDRAW ?CLS
DPOKE 5ñRNDACS AUTO TAB :"JLN
RUN DEF PROC UTRNDRETURN )S
UNDRAW :(Y/5URND-CHAR ?PRINT !
LN ERR MSGS UNDRAW Y?LN BDPOKE 5
RUN DEF PROC LN SUNDRAW /JLN H
TRACE 5RUN ERROR LN SUNDRAW /8?
NEW 3DEF PROC 5ñRNDACS AUTO C:5S
RND-ACS COPY LEN WUSR ?!?òùUTRND
CHR$ UNPLOT .CHAR /RY
50167 LN ABS 5IF DEF PROC LN S
UNDRAW ?.ERROR LN NOSTALGIC
DPOKE STR$ LN NOSTALGIC DPOKE
STR$ AT SGN TAN RETURN RNDABS
CONT ERR MSGS ñWRNDòLN LINE
CALL RETURN 0SúRETURN RNDLN -
DPOKE ó/INPUT RETURN (M÷
END PROC CôRETURN $4òóòúACS
COPY òLN ³CHAR A ?DDGOSUB
UNDRAW ?RNDùCHAR U÷END PROC
RETURN $C!RETURN (4òJTAN ?TAN
TAN RND9ñWRNDJMöEND PROC úY
ACS ?4KACS LIST ACS RNDFAST
END PROC OASN CONT ERR MSGS
LPRINT ?FFAST LN SCROLL CHAR
LPRINT óACS ?CNEXT J?6ùEND PROC
UöEND PROC LN DPEEK CHAR RETURN
ñ4"Y5LN UUNDRAW 5SAVE CHAR LN S
UNDRAW UöEND PROC 5õEND PROC
ERROR ôS**?TAN EùEND PROC )M 
GOSUB DELETE GOSUB OFF?RNDGOSUB
DELETE SQR INT ³FAST LN
NOSTALGIC DPOKE ?NLPRINT ""
GOSUB OFFñEND PROC LN OFFDPOKE )
  LN OFFDPOKE E?RNDGOSUB OFFñ
END PROC ;6ñEND PROC ñ  ?COS :
LN -DPOKE LN SCHAR RETURN ñASN
RESEQ RETURN  4úLN DPOKE ACOPY
FAST LN -DPOKE RETURN =TAB CONT
ERR MSGS LN HTRACE LPRINT ?
RETURN COPY 4£5SGN FOR LN X
UNDRAW 5OFFDPOKE ?SUNDRAW Y6?U
UNDRAW FAST 5NOSTALGIC TRACE LN
SUNDRAW LN -DPOKE LN LINE CALL
RETURN (46LPRINT LN ** 5STR$
VAL LN XUNDRAW 5DUP DEF PROC LN
SUNDRAW LN -DPOKE LN 3 5AT SGN
LN XUNDRAW 5?DEF PROC ?SUNDRAW
LN -DPOKE LN 3 LPRINT Y5LN U
UNDRAW 5?TRACE ?SUNDRAW I+FAST
LN -DPOKE RETURN (CRAND RETURN "
LN LOOP ERROR /END WHEN
RETURN INKEY$4!5RNDTRACE LN S
UNDRAW /USER RETURN CHR$ 4"LN
ERR MSGS UNDRAW 5UTRACE LN S
UNDRAW /DELETE LN ABS /EDIT LN
SCHAR LN -DPOKE FAST LN LINE
CALL RETURN (4NLN -DPOKE LN H
TRACE E-RNDDATA LOOP LN XUNDRAW
/"LN -DPOKE RETURN TO TAB CONT
ERR MSGS LN OUNDRAW 5AUTO TRACE
LN SUNDRAW LPRINT Y5LN UUNDRAW 5
WHILE TRACE ?SUNDRAW LPRINT Y5
LN UUNDRAW 5HCHAR ?SUNDRAW 5
LINE TRACE LN SUNDRAW LN LINE
CALL RETURN )CùLPRINT X""LN -
DPOKE ?5 LN -DPOKE /FOR ?ññ /ù
LN POKE DEF PROC ñ  GCOS £)ù
END PROC >TAN B.GOSUB DELETE
ERR MSGS EDIT LIST INT ºSTR$ LN
NOSTALGIC DPOKE FOR SGN ;FOR
TAN EñEND PROC 6õEND PROC TAN ?L
COS EõEND PROC FOR GOSUB KGOSUB
DO õEND PROC TAN FAST
END PROC GOSUB OFFñEND PROC B
GOSUB DELETE FAST AT LPRINT LN
NOSTALGIC DPOKE VAL FAST LN ?
DEF PROC LPRINT AT ?7?TAN FOR ö!
?RETURN  CñACS  DRAW ?FOR 5  
ACS T3Kñ;FOR DFOR (PRINT TAN J
PRINT LN ERR MSGS UNDRAW LN
LINE CALL RETURN + AND RNDDRAW
RETURN ;ABS RNDDRAW YFAST LN B
DPOKE LN -DPOKE PRINT LN
ERR MSGS UNDRAW LET RETURN +Cô
RETURN -47AT LINE ?RETURN  4ô
PRINT FAST /PEEK FAST 5ERR MSGS
EDIT LN XUNDRAW LN NEXT TRACE Y
FAST 5PUSH NOSTALGIC LN UUNDRAW
/ZPRINT VAL /0RETURN /C(RETURN *
TAB CONT ERR MSGS LN VDRAW 5)
TRACE LN SUNDRAW /BLN VDRAW 5
CLEAR DEF PROC /NEXT YLPRINT LN
BDPOKE LET RETURN  COS RETURN +C
)LN VDRAW 5BFOR LN XUNDRAW 5
GOSUB DELETE LN XUNDRAW /SCROLL
LN VDRAW Y;LN BDPOKE /<>YSGN ?B
DPOKE RETURN )4USR LN -DPOKE /
INT RETURN PEEK 4?LN ERR MSGS
UNDRAW 5A ?XUNDRAW RETURN USR 4>
LN ERR MSGS UNDRAW 5PUSH DRAW ?S
UNDRAW ñ?DRAW VAL FAST TAN
NOSTALGIC PUSH TAN RETURN CODE 4
G5õEND PROC YELN UUNDRAW YFAST
LN BDPOKE ICOPY LN 5 YSGN LN B
DPOKE 5>DRAW /USR EõEND PROC
GOSUB DO õEND PROC JGOSUB
DELETE LINE ?COS ,?TAN RETURN
RND4õ5ARND/VRETURN ABS 4)LN
ERR MSGS UNDRAW 5ACS ?LN X
UNDRAW YCODE 5?UNDRAW ?UUNDRAW
RETURN INT ASN ERR MSGS UNDRAW
RETURN LEN 4,LN -DPOKE LN SCHAR
LN -DPOKE Y5LN UUNDRAW 5>=DRAW /
º77LN NOSTALGIC DPOKE FOR TAN
RETURN SGN 4+LN ERR MSGS UNDRAW
5LIST DRAW ?SUNDRAW ?PCOS ACS ?5
ñ TAB ?UNDRAW TAN RETURN SQR
TAB CONT ERR MSGS LN ERR MSGS
UNDRAW 5úUNDRAW ?SUNDRAW JXACS ?
INT ¹?ELSE A )RND ö!GOSUB
DELETE Kñ;ZACS GOSUB
CLR STACK ·GOSUB CLR STACK (
LIST CLR STACK LINE TAN LN H
TRACE LN -DPOKE PRINT YFAST LN B
DPOKE LN HTRACE YSGN LN BDPOKE
LET TAN LN -DPOKE RETURN -PRINT
ATN -DPOKE RETURN (C-RETURN RNDK
$RETURN AUSR ?UNDRAW >=µUNDRAW
LET ATN ELSE UNDRAW TAN LN
TRACE DRAW /PLOT LN HTRACE /LET
5?UNDRAW /CHAR ?JLINE ?J?7TAN
LN SCHAR RETURN  ASN >DEF PROC Y
E/PLN DO PROTECT Y5/I)(BLN A
DPOKE LN $ERR MSGS UõEND PROC
DEF PROC £E?RND6?RNDöôLN BDPOKE
(CLS $4PLOT LPRINT GOSUB UNDRAW
?RNDTAN 5Eú/ó5"RNDYLN LN BDPOKE
?LN BDPOKE ??BDPOKE LN IUNDRAW
LN SQR UNDRAW 5FOR ?/GOSUB
RETURN ,TAB CONT ERR MSGS TAN
LN LINE CALL RETURN
10245 TRACE /!YE5ORNDLN UUNDRAW Y
65MRND?UUNDRAW LN -DPOKE LN S
CHAR FAST FAST LN -DPOKE LN I
UNDRAW Y7LN BDPOKE 5GOSUB DO LN
XUNDRAW LPRINT LN XUNDRAW Y677
LN UUNDRAW LPRINT GOSUB OFF?RND?
OFFDPOKE LN -DPOKE LN SCHAR
FAST FAST YELN UUNDRAW 576LN X
UNDRAW LPRINT LN XUNDRAW 77Y
GOSUB LN BDPOKE YOFFLN UUNDRAW Y
B5GOSUB DELETE LN UUNDRAW YIF
LPRINT LN NOSTALGIC DPOKE FOR ?U
UNDRAW 5  /?LN -DPOKE RETURN  
LN )TRACE LET RETURN AABS CONT
ERR MSGS RETURN 0 AND CONT
ERR MSGS CHR$ 0ö DEF PROC ù/ TO
FAST E-RND)õ ;6-RNDLPRINT TAN
LN -DPOKE LN SCHAR RETURN ñC1
PRINT FAST 5*EDIT LN SUNDRAW
LPRINT LET RETURN  TAB EXIT Y
FOR LN BDPOKE LN SUNDRAW Y5LN U
UNDRAW LN -DPOKE 5VPROTECT ?S
UNDRAW GOSUB UNDRAW ñEND PROC
VAL FAST LN òEDIT 6ñEND PROC
FAST LN PAUSE PROTECT RETURN
10249 KPRINT LN $EDIT /LIST SGN
GOSUB DELETE FAST AT LPRINT LN ³
TRACE AT GOSUB CALL ñEND PROC
FAST LN òEDIT ñ3 LN ?DEF PROC
LPRINT TAN FAST LN LET DEF PROC
LPRINT RETURN ?""J?FY
48672 £RNDñSAVE òùYL?TAN ?7Y
48672 /PAUSE LN òEDIT FAST FAST
LN PAUSE PROTECT RETURN
10257 C!RETURN 0SLET RETURN AK
GOSUB LN $EDIT /CONT 5  SGN ,
RETURN -C(RETURN LC?CHR$ 0DFAST
DDAT ùö DEF PROC ù</CONT SGN ,
RETURN -PRINT LN NEW PROTECT
LET ""??UNDRAW Y.PRINT LN I
UNDRAW LN SQR UNDRAW 5UNDRAW
DPOKE LN XUNDRAW YYLN BDPOKE
LET LN BDPOKE YM5KRNDLN UUNDRAW
5,RND?SUNDRAW Y4/**?PCOS ?NCOS R
TAN ?PCòRTAN ?NCOS RTAN E-RND7(C
PLOT RETURN INKEY$ASN ERR MSGS
AUTO RETURN CHR$ ASN ERR MSGS
AUTO RETURN "ASN ERR MSGS AUTO 7
LN IUNDRAW RETURN OR 4ú5?EDIT
LN SUNDRAW YABS /CHAR RETURN
AND 4õ5·EDIT /LIST PRINT YB5
GOSUB DELETE LN UUNDRAW LET
RETURN =4ôYTAB /GRETURN <>4ôY
ASN /8RETURN >C+RETURN <4÷YASN
LN 5AUTO /<RETURN >=4ú5CóLN X
UNDRAW YPAUSE RETURN <=TAB
CONT ERR MSGS YIF LN 5AUTO LN -
DPOKE RETURN AND ASN ,EDIT TAN
LN BDPOKE EúRND7LN BREAK DPOKE
FOR LN NOSTALGIC DPOKE FOR ?X
UNDRAW LN XAUTO 6õEND PROC 6÷
END PROC TAN EõEND PROC QCOPY 7
TAN 5NOSTALGIC TRACE LN SUNDRAW
LN 3 LN -DPOKE PRINT 5NAUTO LN S
UNDRAW LN 3 5XAUTO LN SUNDRAW 52
AUTO LN SUNDRAW LET RETURN =4ôY
TAB /ARETURN <>4ôYASN /2RETURN >
4÷YASN LN 5AUTO /!RETURN <C<
RETURN >=4ôY AND RETURN <=TAB
CONT ERR MSGS 5CóLN XUNDRAW Y
ABS ?+AUTO E÷END PROC GOSUB
UNDRAW ñEND PROC úWOY""RETURN  
COS 7ó/POKE 5RAUTO ?SUNDRAW LN
SCROLL ò5VRNDACS QTAN 5LEN AUTO
?SUNDRAW 5VRNDACS PLOT ?÷ò5ò LN
**ù""FAST LN 2DEF PROC SGN ?
DATA ú5ò LN **ù""LN 2DEF PROC
COS LN 2DEF PROC COS LOOP DATA E
£RND/SCROLL óóóVAL óóóóVAL LN
EXP AUTO 5ó LN **ùAT LN 2ù7Y
28963 7AT ?7?7QREM 7?7?7TAN 77
AUTO 7ERROR ù7U£RND1""U$RND0TAN
LN -DPOKE LN SCHAR Y5LN UUNDRAW
YGOSUB LN BDPOKE YOFF5ñEND PROC
LN UUNDRAW 5OFFDPOKE LN SUNDRAW
LN HTRACE 5UNTIL DEF PROC ?S
UNDRAW 7D7FAST FAST AT
END PROC LN COS :AT LN DUP
DEF PROC GOSUB DO ñEND PROC TAN
EñEND PROC DATA LOOP <Q /óEñ
END PROC ?LCOS GOSUB KTAN FAST
LN ERR MSGS UNDRAW 5GOSUB
UNDRAW LN XUNDRAW LPRINT LN X
UNDRAW 5Dù?XUNDRAW LN DPOKE 5
NOSTALGIC DPOKE LN SUNDRAW 5FOR
SGN ?XUNDRAW EôRND9QCOPY FQCOPY
FQ 6ùEND PROC Y5E?RNDLN UUNDRAW
I:UõEND PROC LINE LN XUNDRAW 5
ATN DEF PROC ?SUNDRAW £JM5RNDöô?
7(UNPLOT $4RUN 54 6?RNDE0RNDñ
HOME  ù6ñEND PROC 6õEND PROC
TAN RND?:RND?)RND?1RND?4RND
FOR ?7RND5   <<
32997 
   2 REM
30241 :<LN ATN DEF PROC 5´ó6DIM
BREAK 5M 6GOSUB BREAK 5  FAST 5+
 SGN 7GOSUB DO LET BREAK 6NEXT
BREAK ELET BREAK FAST 5  SGN
CALL EDIT LN PRINT !?TRACE
END PROC  ) END PROC ññ LN IF
DEF PROC ELET BREAK FAST 53 SGN
CALL EDIT LN PRINT !?ONEND PROC
 )*END PROC ññ LN IF DEF PROC 5 
 FAST ELET BREAK SGN CALL EDIT
LN PRINT !?¶END PROC           )
?END PROC ñú LN IF DEF PROC 5+ 
FAST ELET BREAK SGN CALL EDIT
LN PRINT !?DEND PROC           )
3END PROC ñú LN IF DEF PROC 5ó 
FAST 5õ SGN CALL EDIT LN PRINT !
?VAL END PROC ±P²)TAB END PROC ñ
ó LN IF DEF PROC 5ô FAST 5õ SGN
CALL EDIT LN PRINT !?LPRINT
END PROC òóñ) THEN END PROC ñó 
LN IF DEF PROC 5õ FAST 5" SGN
CALL EDIT LN PRINT !?CLEAR
END PROC ±P²)IF END PROC ñó LN
IF DEF PROC 5ö FAST 5" SGN CALL
EDIT LN PRINT !?;òóñ)-ñó LN IF
DEF PROC 5! FAST 5ô SGN CALL
EDIT LN PRINT !?P±P²)Mñó LN IF
DEF PROC 5ù FAST 5ô SGN CALL
EDIT LN PRINT !?òóñ)AUTO ñó LN
IF DEF PROC 5$ FAST 5õ SGN CALL
EDIT LN PRINT !?END WHEN ±P²)
CLR STACK ñó LN IF DEF PROC 5: 
FAST 5õ SGN CALL EDIT LN PRINT !
?¹òóñ)¶ñó LN IF DEF PROC 5) 
FAST 5ó SGN CALL EDIT LN PRINT !
?9±P²)6ñó LN IF DEF PROC 5> 
FAST 5ó SGN CALL EDIT LN PRINT !
?AT òóñ)Yñó LN IF DEF PROC 5> 
FAST 5ù SGN CALL EDIT LN PRINT !
?<>±P²) AND ñó LN IF DEF PROC 5<
 FAST 5ù SGN CALL EDIT LN PRINT
!?RAND òóñ)PLOT ñó LN IF
DEF PROC LN .CHAR ELET BREAK 76
LET BREAK GOSUB OFFNEXT BREAK B
GOSUB DELETE IF SEND PROC 5ô 
FAST 5! SGN 7GOSUB DO LET BREAK
6NEXT BREAK 5£ FAST 5; SGN CALL
EDIT LN PRINT !?WDELETE ¸¸¸¸¸¸)Q
DELETE ñö LN IF DEF PROC 5ñ 
FAST 5; SGN CALL EDIT LN PRINT !
?OFFDELETE  ENRG:)EXIT DELETE ñö
 LN IF DEF PROC 5ò FAST 5; SGN
CALL EDIT LN PRINT !??DELETE  
  <)?DELETE ñö LN IF DEF PROC 5ó
 FAST 5; SGN CALL EDIT LN PRINT
!?;DELETE       )<DELETE ñö LN
IF DEF PROC ELET BREAK FAST 5; 
SGN CALL EDIT LN PRINT !?S
DELETE !    !)MDELETE ñö LN IF
DEF PROC 5ù FAST 5; SGN CALL
EDIT LN PRINT !?NOT DELETE !!!!!
!)SGN DELETE ñö LN IF DEF PROC 5
ú FAST 5; SGN CALL EDIT LN
PRINT !?PLOT DELETE ¸   TE)LIST
DELETE ñö LN IF DEF PROC 5" 
FAST 5; SGN CALL EDIT LN PRINT !
?+DO ¸   LP)?DO ñö LN IF
DEF PROC LN .CHAR ELET BREAK 76
LET BREAK GOSUB OFFNEXT BREAK B
GOSUB DELETE IF ADELETE 5? FAST
51 SGN CALL EDIT LN PRINT !?
CALL DO ³)PIDO ññ LN IF
DEF PROC 5( FAST 50 SGN CALL
EDIT LN PRINT !?READ DO ± ²)
CURSOR DO ñó LN IF DEF PROC 5) 
FAST 50 SGN CALL EDIT LN PRINT !
??DO  H )?DO ñó LN IF DEF PROC 5
FAST 50 SGN CALL EDIT LN
PRINT !?*DO    )=DO ñó LN IF
DEF PROC LN .CHAR 5+ FAST 5  
SGN CALL EDIT LN PRINT !?PEEK
DO PRESS ENTER TO BEGIN GAME PLA
Y**)NDO ñ4 LN IF DEF PROC 5  
FAST 5  SGN CALL EDIT LN PRINT !
?GOTO DO )GOTO DO ñ  LN IF
DEF PROC LN .CHAR 54?LN =RNDLN
NOSTALGIC TRACE LN RNDTRACE LN
LINE TRACE LN NAUTO ?$LOOP )$
LOOP ñ  LN LINE TRACE LN XAUTO
LN 2AUTO TAB 6LOOP ?SAVE DO 5+ 
FAST 5  SGN CALL EDIT LN PRINT !
?DELETE LOOP                    
             )MLOOP ñ4 LN IF
DEF PROC 5  FAST 5  SGN CALL
EDIT LN PRINT !?DUP LOOP )DUP
LOOP ñ  LN IF DEF PROC LN .CHAR
5ñ FAST 5) SGN CALL EDIT LN
PRINT !?ºLOOP ÷K´)·LOOP ñó LN
IF DEF PROC LN .CHAR LN YBREAK 5
ñ FAST 5) SGN CALL EDIT LN
PRINT !?GLOOP · ô)DLOOP ñó LN
IF DEF PROC 5ò FAST 5) SGN CALL
EDIT LN PRINT !?COS LOOP ÷K´)
VAL LOOP ñó LN IF DEF PROC LN .
CHAR LN YBREAK 5ñ FAST 5" SGN 7
GOSUB DO LET BREAK 6NEXT BREAK E
LET BREAK FAST 5ò SGN ;FAST 5) 
SGN CALL EDIT LN PRINT !? EXIT ÷
K´)CLEAR LOOP ñó LN IF DEF PROC
ELET BREAK FAST 5ñ SGN ;FAST 5) 
SGN CALL EDIT LN PRINT !?6EXIT ·
 ô)3EXIT ñó LN IF DEF PROC ELET
BREAK FAST 5) SGN CALL EDIT LN
PRINT !?YEXIT    )VEXIT ñó LN
IF DEF PROC LN .CHAR LN YBREAK E
LET BREAK 76LET BREAK GOSUB OFF
NEXT BREAK BGOSUB DELETE IF
SCROLL LOOP LN YBREAK LN YBREAK
5£ FAST 5) SGN CALL EDIT LN
PRINT !??EXIT    )?EXIT ñó LN
IF DEF PROC 5$ FAST 5) SGN CALL
EDIT LN PRINT !?<EXIT    )(EXIT
ñó LN IF DEF PROC 5> FAST 51 
SGN CALL EDIT LN PRINT !?HEXIT K
)GEXIT ññ LN IF DEF PROC LN .
CHAR 5> 6PRINT BREAK 51 6RAND
BREAK 5  6CLEAR BREAK EPRINT
BREAK 6ñDPEEK ERAND BREAK 6õ
DPEEK 5  6ùDPEEK 5  6$DPEEK LN A
RNDFAST 5**ùSGN LN CLEAR
DEF PROC FAST 5! SGN ;6)DPEEK
LN ARNDFAST 5COPY ?SGN LN CLEAR
DEF PROC FAST 5: SGN ;6GOSUB
BREAK EPRINT BREAK FAST ERAND
BREAK SGN CALL EDIT LN PRINT !?0
UNTIL K).UNTIL ññ LN IF
DEF PROC LN .CHAR EñDPEEK FAST E
PRINT BREAK SGN BGOSUB DELETE
ASN DO UNTIL EñDPEEK FAST
DPEEK SGN CALL EDIT LN PRINT !?
CHAR UNTIL  )ERROR UNTIL ññ LN
IF DEF PROC LN .CHAR EõDPEEK
FAST ERAND BREAK SGN BGOSUB
DELETE ASN EõDPEEK SGN CALL
EDIT LN PRINT !??UNTIL  )?UNTIL
ññ LN IF DEF PROC LN .CHAR E
PRINT BREAK 6ñDPEEK ERAND BREAK
6õDPEEK LN YBREAK 5+DPEEK LN
SAVE CHAR LN NOSTALGIC TRACE LN
RNDTRACE LN LINE TRACE 5+DPEEK
LN ?TRACE LN NOSTALGIC TRACE 5+
DPEEK LN SAVE CHAR 5+DPEEK LN H
CHAR LN LINE TRACE LN NAUTO ?V
UNTIL A)UUNTIL ññ LN LINE TRACE
LN XAUTO LN 2AUTO TAB >=UNTIL E
PRINT BREAK FAST 5ñ SGN BFOR
GOSUB DELETE 6PRINT BREAK LN
NOSTALGIC TRACE 5+DPEEK LN SAVE
CHAR 5+DPEEK LN HCHAR LN LINE
TRACE LN NAUTO ?PRINT UNTIL Z)
POKE UNTIL ññ LN LINE TRACE LN X
AUTO LN 2AUTO TAB <WHILE EPRINT
BREAK FAST 5ñ SGN ;6PRINT BREAK
LN NOSTALGIC TRACE 5+DPEEK LN
SAVE CHAR 5+DPEEK LN HCHAR LN
LINE TRACE LN NAUTO ?GWHILE N)F
WHILE ññ LN LINE TRACE LN XAUTO
LN 2AUTO TAB EDIT WHILE ERAND
BREAK FAST 5ñ SGN BFOR GOSUB
DELETE 6RAND BREAK LN NOSTALGIC
TRACE 5+DPEEK LN SAVE CHAR 5+
DPEEK LN HCHAR LN LINE TRACE LN
NAUTO ?DPEEK WHILE M)BREAK
WHILE ññ LN LINE TRACE LN XAUTO
LN 2AUTO TAB ´WHILE ERAND BREAK
FAST 5ñ SGN ;6RAND BREAK LN
NOSTALGIC TRACE 5+DPEEK LN SAVE
CHAR 5+DPEEK LN HCHAR LN LINE
TRACE LN NAUTO ?1WHILE E)0WHILE
ññ LN LINE TRACE LN XAUTO LN 2
AUTO TAB SWHILE 5>=£LN PUSH
DRAW 6;DPEEK EPRINT BREAK FAST E
RAND BREAK SGN CALL EDIT LN
PRINT !5:RND ñFAST 5?RND)TRACE
SGN ;DPEEK E1DPEEK FAST 5  SGN B
GOSUB DELETE TAB PLOT WHILE ?
CLR STACK WHEN E1DPEEK FAST 5K 
SGN BGOSUB DELETE TAB ÷WHEN ?
CLR STACK WHEN E1DPEEK FAST 5* 
SGN BGOSUB DELETE TAB /WHEN ?
CLR STACK WHEN E1DPEEK FAST
END PROC FAST ?8WHEN P)7WHEN ññ 
LN LINE TRACE SGN LN >DRAW SGN B
GOSUB DELETE TAB VWHEN LN
ERR MSGS OFFE1DPEEK FAST
END PROC FAST ?CHAR WHEN H)
ERROR WHEN ññ LN LINE TRACE SGN
LN >DRAW SGN BGOSUB DELETE TAB
RESTORE WHEN LN úREAD EñDPEEK 6
PRINT BREAK EõDPEEK 6RAND BREAK
E1DPEEK FAST EõEND PROC FAST ?
22709 WHEN ññ LN LINE TRACE SGN
LN >DRAW SGN BGOSUB DELETE ASN ;
WHEN EDIM BREAK FAST 5ñ SGN B
FOR GOSUB DELETE 6DIM BREAK 5ò 
FAST 5. SGN CALL EDIT LN PRINT !
EDIM BREAK LN INPUT DEF PROC E
DIM BREAK FAST 5HOME  SGN B
GOSUB DELETE ASN ASN WHEN IF
ASN WHEN ?AT WHEN  )""WHEN ññ 
LN IF DEF PROC EPRINT BREAK
FAST E)DPEEK FAST 5ñ SGN BFOR
GOSUB DELETE SGN BGOSUB DELETE
TAB SAVE WHEN ERAND BREAK FAST E
GOSUB BREAK FAST 5ñ SGN ;SGN B
GOSUB DELETE TAB SAVE WHEN ?ù
INDENT EùDPEEK FAST 5ò SGN B
GOSUB DELETE ASN ùINDENT ?C
INDENT E)DPEEK FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?0
INDENT ú!ú);INDENT ñó LN IF
DEF PROC LN .CHAR EPRINT BREAK
FAST E)DPEEK SGN BGOSUB DELETE
TAB WHEN INDENT ERAND BREAK
FAST 5/ SGN BGOSUB DELETE TAB
WHEN INDENT EùDPEEK FAST 5  SGN
BGOSUB DELETE TAB WHEN INDENT 5ñ
 6ùDPEEK ERAND BREAK FAST E
GOSUB BREAK SGN BGOSUB DELETE
TAB ¸INDENT EPRINT BREAK FAST 5=
 SGN BGOSUB DELETE TAB ¸INDENT E
ùDPEEK FAST 5ñ SGN BGOSUB
DELETE TAB ¸INDENT 5ò 6ùDPEEK E
DIM BREAK FAST 5  SGN BGOSUB
DELETE TAB õRESEQ EPRINT BREAK
FAST ERAND BREAK SGN CALL EDIT
LN PRINT !?BINDENT -)AINDENT ññ 
LN IF DEF PROC 5+ FAST 5  SGN
CALL EDIT LN PRINT !? STEP
INDENT NO ENERGY...YOU DIED*****
*******)""INDENT ñ4 LN IF
DEF PROC 5  FAST 5  SGN CALL
EDIT LN PRINT !?RAND INDENT )
RAND INDENT ñ  LN IF DEF PROC
LN .CHAR EDIM BREAK FAST 5  SGN
BGOSUB DELETE TAB 0RESEQ 5>=£LN
PUSH DRAW 6;DPEEK ECLEAR BREAK
FAST 5  SGN BGOSUB DELETE PAUSE
HRESEQ LN ?READ LN ARNDFAST 5(
WHEN RESEQ 5õ FAST 5< SGN CALL
EDIT LN PRINT !?PROTECT RESEQ *)
UNDRAW RESEQ ññ LN IF DEF PROC
LN .CHAR LN ARNDFAST 5(³RESEQ 5"
 FAST 5+ SGN CALL EDIT LN PRINT
!??RESEQ *)
23041 LN IF DEF PROC LN .CHAR LN
ARNDFAST 5(IRESEQ 5£ FAST 5÷ 
SGN CALL EDIT LN PRINT !?6RESEQ
*)5RESEQ ññ LN IF DEF PROC LN .
CHAR LN ARNDFAST 5( OR RESEQ 5( 
FAST 5£ SGN CALL EDIT LN PRINT !
?LN RESEQ *)ATN RESEQ ññ LN IF
DEF PROC LN .CHAR LN ARNDFAST 5(
ôOFF5> FAST 5- SGN CALL EDIT LN
PRINT !?SAVE RESEQ *)RUN RESEQ ñ
ñ LN IF DEF PROC LN .CHAR E1
DPEEK FAST EõEND PROC FAST ?(OFF
*)?OFFññ LN LINE TRACE SGN LN >
DRAW SGN BGOSUB DELETE TAB
INKEY$OFFEDIM BREAK FAST 5?óSGN
BGOSUB DELETE ASN INKEY$OFFIF
INKEY$OFFEDIM BREAK FAST 5ú SGN
;6DIM BREAK ?"UNTIL LN ARNDFAST
5TRACE >SGN LN CLEAR DEF PROC 65
DPEEK 5ô FAST 5! SGN 7GOSUB DO
LET BREAK 6NEXT BREAK ELET
BREAK FAST 5ô SGN BGOSUB DELETE
PAUSE -OFFELET BREAK FAST 5ñ 
SGN BFOR GOSUB DELETE FAST 51 
SGN CALL EDIT LN PRINT !?ºOFF 
OFFññ LN IF DEF PROC LN .CHAR E
LET BREAK FAST 51 SGN CALL EDIT
LN PRINT !?BOFFK)AOFFññ LN IF
DEF PROC LN .CHAR 51 69DPEEK E
LET BREAK 76LET BREAK GOSUB OFF
NEXT BREAK BGOSUB DELETE IF *OFF
E5DPEEK FAST 5ñ SGN BGOSUB
DELETE TAB ?CURSOR 5÷ FAST 5. 
SGN CALL EDIT LN PRINT !?DIM OFF
-)CONT OFFññ LN IF DEF PROC 5! 
FAST 5. SGN CALL EDIT LN PRINT !
?óCURSOR /)òCURSOR ññ LN IF
DEF PROC LN .CHAR E5DPEEK FAST 5
ò SGN BGOSUB DELETE TAB UCURSOR
5! FAST 5. SGN CALL EDIT LN
PRINT !?ICURSOR X)HCURSOR ññ LN
IF DEF PROC LN .CHAR E5DPEEK
FAST 5ó SGN BGOSUB DELETE TAB
BREAK CURSOR 5! FAST 5. SGN
CALL EDIT LN PRINT !?INDENT
CURSOR 0)WHEN CURSOR ññ LN IF
DEF PROC LN .CHAR E5DPEEK FAST 5
ô SGN BGOSUB DELETE ASN ?CURSOR
IF ?CURSOR ?IF CURSOR E$DPEEK
FAST 5  SGN BGOSUB DELETE TAB 8
CURSOR 5! FAST 5. SGN CALL EDIT
LN PRINT !?/CURSOR ¶)*CURSOR ññ 
LN IF DEF PROC LN .CHAR E$DPEEK
FAST 5ñ SGN BGOSUB DELETE TAB
INT CURSOR 5! FAST 5. SGN CALL
EDIT LN PRINT !??CURSOR º)TAB
CURSOR ññ LN IF DEF PROC LN .
CHAR E$DPEEK FAST 5ò SGN BGOSUB
DELETE TAB IF CURSOR 5! FAST 5. 
SGN CALL EDIT LN PRINT !?INPUT
CURSOR ö)GOSUB CURSOR ññ LN IF
DEF PROC LN .CHAR EDIM BREAK
FAST 5ñ SGN BFOR GOSUB DELETE 6
DIM BREAK LN NOSTALGIC TRACE LN
RNDTRACE LN LINE TRACE LN NAUTO
?;DATA N)/DATA ññ LN LINE TRACE
LN XAUTO LN 2AUTO TAB LDATA 50 6
9DPEEK LN NOSTALGIC TRACE LN RND
TRACE LN LINE TRACE LN NAUTO ?
INKEY$DATA A)RNDDATA ññ LN LINE
TRACE LN XAUTO LN 2AUTO TAB
UNTIL DATA ?CRESTORE 5ò FAST 5. 
SGN CALL EDIT LN PRINT !EDIM
BREAK LN INPUT DEF PROC EDIM
BREAK FAST 5HOME  SGN BGOSUB
DELETE ASN ºDATA IF ºDATA ?ññ 
LN IF DEF PROC LN .CHAR E9DPEEK
FAST 50 SGN BGOSUB DELETE TAB P
DATA 5! FAST 51 SGN CALL EDIT
LN PRINT !?DDATA  )CDATA ññ LN
IF DEF PROC LN .CHAR 5! FAST E9
DPEEK SGN CALL EDIT LN PRINT !?
LEN DATA K)VAL DATA ññ LN IF
DEF PROC LN .CHAR E9DPEEK FAST 5
SGN BGOSUB DELETE TAB 9
RESTORE E5DPEEK FAST 5ñ SGN B
GOSUB DELETE TAB 9RESTORE 5÷ 
FAST 5. SGN CALL EDIT LN PRINT !
?COPY DATA *)RETURN DATA ññ LN
IF DEF PROC 5! FAST 5. SGN CALL
EDIT LN PRINT !?;RESTORE T)/
RESTORE ññ LN IF DEF PROC LN .
CHAR ?IF CURSOR E5DPEEK FAST 5ñ 
SGN BGOSUB DELETE TAB DRAW
RESTORE E9DPEEK FAST 50 SGN B
GOSUB DELETE TAB DRAW RESTORE 5´
ó6DIM BREAK E5DPEEK FAST 5ò SGN
BGOSUB DELETE ASN OFFRESTORE ?´
RESTORE EDIM BREAK FAST 5ON SGN
BGOSUB DELETE PAUSE ELSE
RESTORE ??RESTORE 5  6DIM BREAK
?´RESTORE EDIM BREAK FAST 5HOME
 SGN BFOR GOSUB DELETE 6DIM
BREAK E5DPEEK FAST 5ó SGN B
GOSUB DELETE TAB JRESTORE EDIM
BREAK FAST 5?óSGN BGOSUB DELETE
ASN JRESTORE IF JRESTORE EDIM
BREAK FAST 5= SGN ;6DIM BREAK 5÷
 FAST 5. SGN CALL EDIT LN PRINT
!?TAB RESTORE    )ZRESTORE ñó 
LN IF DEF PROC 5! FAST 5. SGN
CALL EDIT LN PRINT !? THEN
RESTORE    )<=RESTORE ñó LN IF
DEF PROC LN .CHAR E9DPEEK FAST 5
SGN BGOSUB DELETE TAB ùREAD E5
DPEEK FAST 5ó SGN BGOSUB DELETE
PAUSE ùREAD ?NOSTALGIC *TAN E$
DPEEK FAST 5ó SGN BGOSUB DELETE
TAB GREAD ECLEAR BREAK FAST 5  
SGN BGOSUB DELETE TAB GREAD 5ñ 6
CLEAR BREAK E$DPEEK FAST 5ó SGN
BGOSUB DELETE ASN YREAD IF Y
READ TAN 5ú FAST 5, SGN CALL
EDIT LN PRINT !?DO READ ·ôTI¸)
AUTO READ ñõ LN IF DEF PROC 5" 
FAST 5, SGN CALL EDIT LN PRINT !
??READ òñME¸)ELSE READ ñõ LN IF
DEF PROC LN .CHAR ECLEAR BREAK
FAST 5ñ SGN BGOSUB DELETE TAB C
READ 5ú FAST 5. SGN CALL EDIT
LN PRINT !?0READ õ).READ ññ LN
IF DEF PROC LN .CHAR ECLEAR
BREAK FAST 5ñ SGN ;6CLEAR BREAK
ECLEAR BREAK FAST 5õ SGN BGOSUB
DELETE TAB TO READ 5ú FAST 5. 
SGN CALL EDIT LN PRINT !?PEEK
READ ö)ABS READ ññ LN IF
DEF PROC LN .CHAR ECLEAR BREAK
FAST 5ú SGN BGOSUB DELETE TAB ú
NOSTALGIC 5ú FAST 5. SGN CALL
EDIT LN PRINT !?RETURN READ ³)
CLEAR READ ññ LN IF DEF PROC LN
.CHAR ECLEAR BREAK FAST 5? SGN B
GOSUB DELETE TAB DEF PROC
NOSTALGIC 5ú FAST 5. SGN CALL
EDIT LN PRINT !?DNOSTALGIC ô)C
NOSTALGIC ññ LN IF DEF PROC 5" 
FAST 5. SGN CALL EDIT LN PRINT !
?CALL NOSTALGIC ó)PINOSTALGIC ññ
 LN IF DEF PROC LN .CHAR ECLEAR
BREAK FAST 5= SGN BGOSUB DELETE
TAB ?NOSTALGIC 5" FAST 5. SGN
CALL EDIT LN PRINT !??NOSTALGIC
¶)END WHEN NOSTALGIC ññ LN IF
DEF PROC LN .CHAR ECLEAR BREAK
FAST 5; SGN BGOSUB DELETE TAB 9
NOSTALGIC 5" FAST 5. SGN CALL
EDIT LN PRINT !?;NOSTALGIC õ)/
NOSTALGIC ññ LN IF DEF PROC LN .
CHAR ECLEAR BREAK FAST 52 SGN B
GOSUB DELETE TAB SGN NOSTALGIC 5
FAST 5, SGN CALL EDIT LN
PRINT !?VAL NOSTALGIC µñ)?
NOSTALGIC ñò LN IF DEF PROC LN .
CHAR ECLEAR BREAK FAST 57 SGN B
GOSUB DELETE TAB UNPLOT
NOSTALGIC 5" FAST 5, SGN CALL
EDIT LN PRINT !?LIST NOSTALGIC ö
)LOAD NOSTALGIC ññ LN IF
DEF PROC LN .CHAR ECLEAR BREAK
FAST 5C SGN BGOSUB DELETE TAB B
USER 5" FAST 5, SGN CALL EDIT
LN PRINT !?.USER ó),USER ññ LN
IF DEF PROC LN .CHAR ECLEAR
BREAK FAST 5H SGN BGOSUB DELETE
TAB ELSE USER 5" FAST 5, SGN
CALL EDIT LN PRINT !?ERROR USER
ò)DPOKE USER ññ LN IF DEF PROC 5
ú FAST 5, SGN CALL EDIT LN
PRINT !?NOSTALGIC USER ³)READ
USER ññ LN IF DEF PROC LN .CHAR
ECLEAR BREAK FAST 5M SGN BGOSUB
DELETE TAB *USER 5ú FAST 5, SGN
CALL EDIT LN PRINT !?"USER ¶)º
USER ññ LN IF DEF PROC LN .CHAR
ECLEAR BREAK FAST 5R SGN BGOSUB
DELETE TAB TAB USER 5ú FAST 5, 
SGN CALL EDIT LN PRINT !?QUSER µ
)PUSER ññ LN IF DEF PROC LN .
CHAR ECLEAR BREAK FAST 5W SGN B
GOSUB DELETE TAB ?*5ú FAST 5, 
SGN CALL EDIT LN PRINT !?FAST
USER õ¸µTE) STEP USER ñõ LN IF
DEF PROC 5" FAST 5, SGN CALL
EDIT LN PRINT !?ó*µ õLP)RETURN
USER ñõ LN IF DEF PROC LN .CHAR
ECLEAR BREAK FAST 5W SGN BGOSUB
DELETE TAB UNDRAW *EPRINT BREAK
FAST E)DPEEK FAST 5ñ SGN BFOR
GOSUB DELETE SGN BGOSUB DELETE
TAB UNDRAW *ERAND BREAK FAST E
GOSUB BREAK FAST 5ñ SGN ;SGN B
GOSUB DELETE TAB UNDRAW *?EDIT
ONECLEAR BREAK FAST 5W SGN B
GOSUB DELETE TAB READ *5  6
CLEAR BREAK TAN E$DPEEK FAST 5ó 
SGN BGOSUB DELETE ASN ?*IF ?*E$
DPEEK FAST 5ñ SGN ;6$DPEEK E$
DPEEK FAST 5ñ SGN BGOSUB DELETE
TAB TAB *5ú FAST 5, SGN CALL
EDIT LN PRINT !?0*õ).*ññ LN IF
DEF PROC 5" FAST 5, SGN CALL
EDIT LN PRINT !?Q*µ)P*ññ LN IF
DEF PROC LN .CHAR E$DPEEK FAST 5
ò SGN BGOSUB DELETE TAB ÷ON5ú 
FAST 5. SGN CALL EDIT LN PRINT !
?LPRINT *¸) STEP *ññ LN IF
DEF PROC 5" FAST 5. SGN CALL
EDIT LN PRINT !?CLS * )IF *ññ 
LN IF DEF PROC LN .CHAR E$DPEEK
FAST 5ó SGN BGOSUB DELETE TAB
PROTECT ON5ú FAST 50 SGN CALL
EDIT LN PRINT !?AONµ)9ONññ LN
IF DEF PROC 5" FAST 50 SGN CALL
EDIT LN PRINT !?RNDONõ)ZONññ LN
IF DEF PROC LN .CHAR TAN 5ñ 
FAST EGOSUB BREAK SGN CALL EDIT
LN PRINT !?NOSTALGIC ON÷ ´)DATA
ONñó LN IF DEF PROC LN .CHAR LN
YBREAK 5ñ FAST EGOSUB BREAK SGN
CALL EDIT LN PRINT !?²ON· ô)?ONñ
ó LN IF DEF PROC 5ò FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?2
ON÷ ´).ONñó LN IF DEF PROC LN .
CHAR LN YBREAK 5ñ FAST E)DPEEK
FAST 5ó SGN BFOR GOSUB DELETE
SGN 7GOSUB DO LET BREAK 6NEXT
BREAK ELET BREAK FAST 5ò SGN ;
FAST EGOSUB BREAK SGN CALL EDIT
LN PRINT !?<>ON÷)>=ONññ LN IF
DEF PROC ELET BREAK FAST 5ò SGN
;FAST EGOSUB BREAK FAST 5ò SGN ;
SGN CALL EDIT LN PRINT !?óHOME ´
)òHOME ññ LN IF DEF PROC ELET
BREAK FAST 5ñ SGN ;FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?9
HOME · ô)6HOME ñó LN IF
DEF PROC ELET BREAK FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?
INKEY$HOME    )YHOME ñó LN IF
DEF PROC LN .CHAR LN YBREAK E
LET BREAK 76LET BREAK GOSUB OFF
NEXT BREAK BGOSUB DELETE IF LEN
ONE)DPEEK FAST 5ó SGN BFOR
GOSUB DELETE 6LET BREAK 5ñ FAST
E)DPEEK FAST 5ó SGN BFOR GOSUB
DELETE SGN 7GOSUB DO DDPEEK 6F
DPEEK ELET BREAK FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?0
HOME · ô);HOME ñó LN IF
DEF PROC ELET BREAK FAST 5ñ SGN
;FAST EGOSUB BREAK SGN CALL
EDIT LN PRINT !?YHOME ÷K´)VHOME
ñó LN IF DEF PROC ELET BREAK
FAST 5ò SGN ;FAST EGOSUB BREAK
SGN CALL EDIT LN PRINT !? STEP
HOME    )<>HOME ñó LN IF
DEF PROC LN .CHAR LN YBREAK E
LET BREAK FAST 5ñ SGN BFOR
GOSUB DELETE 6LET BREAK EDDPEEK
76DDPEEK GOSUB OFFFDPEEK BGOSUB
DELETE IF ¹HOME 5ñ FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?6
BREAK ÷K´)3BREAK ñó LN IF
DEF PROC 5ò FAST EGOSUB BREAK
SGN CALL EDIT LN PRINT !?YBREAK
   )VBREAK ñó LN IF DEF PROC LN
.CHAR LN YBREAK 5ñ FAST EGOSUB
BREAK SGN CALL EDIT LN PRINT !?
NOSTALGIC BREAK    )DATA BREAK ñ
ó LN IF DEF PROC LN .CHAR LN Y
BREAK 5+ FAST 5  SGN CALL EDIT
LN PRINT !?3BREAK YOU GOT E.T. H
OME...GAME OVER***)?BREAK ñ4 LN
IF DEF PROC 5  FAST 5  SGN CALL
EDIT LN PRINT !5>=£LN PUSH DRAW
6;DPEEK 5ñ FAST 5CONT óSGN 7
GOSUB DO HDPEEK 6JDPEEK EHDPEEK
76HDPEEK GOSUB OFFJDPEEK BGOSUB
DELETE IF EXP BREAK TAN TAN <   
                                
                                
              óWHEN  REM       M
CODER II         COPYRIGHT 1983 
  D C THRELFALL COMPILER AT 1730
0 PROG AT 20500
  10 REM **E.T.**SLR/1985-2012**
  20 LET L=USR 20500
  30 STOP
 100 SAVE "ETMC"
 110 RUN