ZX81 Listing for ct.p


ZX81 program listing for **COMP. TALK**SLR/1983*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18589
VARS  : 19382
E-LINE: 19383
STKBOT: 19383
STKEND: 19383


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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