ZX81 Listing for inone.p

INPUT ONE**SLR/1984 (inone.p)

A simple input demonstration.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16926
VARS  : 17719
E-LINE: 17720
STKBOT: 17720
STKEND: 17720

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  10 REM ****INPUT ONE****
  20 REM 1984/SLR
  30 CLS
  40 PRINT "WHAT IS YOUR NAME?"
  50 INPUT A$
  60 PRINT "HELLO ";A$;".";TAB 0
;"HOW ARE YOU TODAY?"
  70 INPUT B$
  80 IF B$="FINE" OR B$="GREAT"
OR B$="WONDERFUL" OR B$="FANTAS
TIC" THEN PRINT "ME TO."
  90 IF B$<>"FINE" AND B$<>"GREA
T" AND B$<>"WONDERFUL" AND B$<>"
FANTASTIC" THEN PRINT "THAT""S T
OO BAD. HOPE YOU FEEL   BETTER."
 100 PRINT ,,,,"OOPS. GOT TO GO.
 I""VE GOT TO DO A CIRCUIT WASH 
AND MEMORY SAVE. BYE."
 110 PAUSE 500
 120 RUN
 200 SAVE "INONE"
 210 RUN