ZX81 Listing for beo.p


ZX81 program listing for ****BEO ONE****SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17404
VARS  : 17429
E-LINE: 17533
STKBOT: 17533
STKEND: 17533


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM ****BEO ONE****SLR/1984
  20 PRINT AT 10,10;"ö´ó÷¶"
  30 PRINT AT 11,10;"õ¶ôõµ"
  40 PRINT AT 12,10;"õùñùµ"
  50 PRINT AT 13,10;"õòVñµ"
  60 PRINT AT 14,10;"¶·³ôö"
  70 PRINT AT 15,10;"µòóñõ"
  80 PRINT AT 16,10;"ò³³³ñ"
  90 DIM A$(32)
 100 DIM C$(32)
 110 LET A$="HELLO,I""M BEO,WHAT
 IS YOUR NAME?"
 120 GOSUB 250
 130 INPUT N$
 140 LET A$=" HI "+N$+" ENTER IN
 "
 150 GOSUB 250
 160 LET A$="ANY 32 SYMBOL SENTE
NCE AFTER A "
 170 GOSUB 250
 180 LET A$="DISPLAY. HAVE FUN//
/           "
 190 GOSUB 250
 200 LET C$=""
 210 PRINT AT 20,0;"            
                    "
 220 INPUT A$
 230 GOSUB 250
 240 GOTO 220
 250 FOR A=1 TO 32
 260 LET C$=C$(2 TO )+A$(A)
 270 PRINT AT 20,0;C$
 280 PRINT AT 15,12;"ó"
 290 PRINT AT 15,12;"º" AND
CODE (A$(A))>28
 300 IF A$(A TO )="             
                   "(A TO ) AND
A$<>"" THEN GOTO 320
 310 NEXT A
 320 PRINT AT 15,12;"ó"
 330 RETURN
 500 SAVE "BEO"
 510 RUN