PROG : 16509
D-FILE: 18589
VARS : 19382
E-LINE: 19383
STKBOT: 19383
STKEND: 19383
9999 means line number
PRINT means treat as KEYWORD P
10 REM **COMP. TALK**SLR/1983*
20 PRINT "HELLO, I AM ZX81, A
SMALL PART OF A LARGE FIELD OF
COMPUTING. I WILL GIVE YOU A VE
RY SMALL IN-TRODUTON TO MY COMPU
TING POWER AND USES."
30 PRINT ,,"A COMPUTER PICTURE
:"
40 PRINT " ¸¸
¸¸¸¸
ZX81 ¸¸¸
¸¸¸
¹¹¹"
ºº
õ µ ¹¹
õ:::µ óóóóó
²³³³±"
50 PRINT ,,,,"PLEASE PRESS ENT
ER TO CONTINUE."
60 PAUSE 4E4
70 CLS
80 PRINT "NOW, WE SHALL CREATE
A STORY. WHAT IS YOUR NAME?";
90 INPUT A$
100 PRINT A$;TAB 0;"WHAT COLOR
DO YOU LIKE?";
110 INPUT B$
120 PRINT B$;TAB 0;"AND NUMBER?
";
130 INPUT C
140 PRINT C;TAB 0,,TAB 3;"A STO
RY BY ZX81 AND ";A$
150 PRINT ,,"YOU WERE WATCHING
CHANNEL ";C,"WHEN A GHOST FLOATE
D INTO YOUR ROOM. IT WAS ";B$;
" AND WAS","FOLLOWED BY A YELLOW
THING WITH A LARGE MOUTH. IT A
TE HALF YOURROOM AND LEFT, FOLLO
WED BY THE GHOST. THE END"
160 PRINT ,,,,"PLEASE PRESS ENT
ER TO CONTINUE."
170 PAUSE 4E4
180 CLS
190 PRINT "I HAVE SOME PROGRAMS
FOR YOU TO TYPE IN:"
200 PRINT ,," 10 REM *ADDER*
20 PRINT ""ENTER
IN A NUMBER"" 30 INPUT A
40 PRINT ""ENE
R IN ANOTHER"" 50 INPUT B
60 PRINT ,,A
;""+"";B;""="";A+B 70 STOP"
210 PRINT ,," 10 REM *MOVER*
20 PRINT ""PRESS
Z FOR LFT,. FOR RIGHT.""
30 PRINT ,,""º
¹¹º"" 40 LET X=10
50 PRINT AT
6,X;"" <O> "" 60 LET X=X
-(INKEY$=""Z"" AND X>0)+(INKEY$=
""."" AND X<27) 70 GOT
O 50"
220 PRINT ,,"PLEASE PRESS ENTER
TO CONTINUE."
230 PAUSE 4E4
240 CLS
250 PRINT "I HOPE YOU HAVE FUN
PROGRAMMING ME. IT WAS FUN HAVI
NG YOU HERE WITH ME."
260 PRINT ,,"IF YOU WISH TO SEE
MY TWO PRO- GRAMS AGAIN, ENTER
IN: RUN 180 .TO SEE MY WHOLE PR
OGRAM, ENTER IN: LIST ."
270 PRINT ,,"HAVE A VERY GOOD D
AY";TAB 10;"WITH BYTES,";TAB 15;
"ZX81"
280 PRINT ,,,,"P.S. THIS IS ON
LY A PROGRAM, THE COMPUTER IS
NOT REALLY SPEAKING TO YOU.
SO, DON""T ASK IT ANY QUESTION
S, IT WILL NOT ANSWER."
290 PAUSE 500
300 CLS
310 RUN
400 SAVE "CT"
410 RUN