ZX81 Listing for astory.p


ZX81 program listing for **A STORY**SLR/1983****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17325
VARS  : 18118
E-LINE: 18119
STKBOT: 18119
STKEND: 18119


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **A STORY**SLR/1983****
  20 PRINT "WHAT IS YOUR NAME?"
  30 INPUT N$
  40 PRINT N$
  50 PRINT ,,"WHAT YEAR WERE YOU
 BORN?"
  60 INPUT YEAR
  70 PRINT YEAR
  80 PRINT ,,"WHAT IS YOUR FAVOR
ITE COLOR?"
  90 INPUT C$
 100 PRINT C$
 110 PRINT ,,"WHAT IS YOUR FAVOR
ITE FOOD?"
 120 INPUT F$
 130 PRINT F$
 140 PRINT AT 21,0;"PRESS ENTER 
TO BEGIN..."
 150 PAUSE 4E4
 160 CLS
 170 PRINT TAB 11;"YOUR STORY"
 180 PRINT ,,"YOU,";N$;",WERE EA
TING"
 190 PRINT F$;" WHEN YOU HEARD A
"
 200 PRINT "THUMP AT YOUR DOOR. 
YOU OPEN THEDOOR AND A ";C$;" GH
OST COMES"
 210 PRINT "IN. A YELLOW THING I
S FOLLOWING IT. IT EATS YOUR ";F
$
 220 PRINT "AND LEAVES FOLLOWED 
BY A GHOST. THIS WAS IN THE YEAR
 ";YEAR+15;" AD."
 230 PRINT ,,"THE END OF YOUR ST
ORY"
 240 PRINT AT 21,0;"PRESS ENTER 
TO BEGIN..."
 250 PAUSE 4E4
 260 CLS
 270 PRINT "NEW GAME(YES/NO)?"
 280 INPUT D$
 290 IF D$="YES" THEN RUN
 300 PRINT "ALL DONE..."
 310 PAUSE 4E4
 320 GOTO 310
 400 SAVE "ASTORY"
 410 RUN