ZX81 Listing for re.p


ZX81 program listing for **REALITY**SLR/1985****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18830
VARS  : 19623
E-LINE: 19624
STKBOT: 19624
STKEND: 19624

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM **REALITY**SLR/1985****
  20 FOR A=0 TO 21
  30 PRINT "                    
            "
  40 NEXT A
  50 FOR A=1 TO 100
  60 PRINT AT INT (RND*22),INT (
RND*32);"."
  70 NEXT A
  80 FOR A=1 TO 20
  90 PRINT AT INT (RND*22),INT (
RND*32);"´"
 100 NEXT A
 110 PRINT AT 10,17;"ó´";AT 11,1
5;"÷ ³ ´";AT 12,14;"ñ³ó ¶ ";AT 1
3,13;"ñ³³³ ö·";AT 14,12;"ñö óóó·
";AT 15,11;"÷µ  ³ñ±";AT 16,11;"õ
 óó·±";AT 17,12;"³³"
 120 FOR G=1 TO 100
 130 NEXT G
 135 SCROLL
 140 PRINT "                    
            "
 150 SCROLL
 160 PRINT "                    
            "
 170 SCROLL
 180 PRINT "                    
            "
 190 SCROLL
 200 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
 210 SCROLL
 220 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
 230 SCROLL
 240 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
 250 SCROLL
 260 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
 270 SCROLL
 280 PRINT "!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!"
 290 SCROLL
 300 FOR G=11 TO 18
 310 SCROLL
 320 NEXT G
 330 LET A$="±  ²³     ±²      µ
µ    ³³³  ·õ      õ · ±    ±³ ô 
µµ²·±   ² µõ      ²± ±   õ±  ³õ 
         ²µõ                    
             "
 340 FOR G=1 TO 4
 350 PRINT A$((G-1)*32+1 TO G*32
)
 360 IF G<>4 THEN SCROLL
 370 NEXT G
 380 LET B$=" ô ¶"
 390 LET C$=" ó ´ó"
 400 LET D$="   ñ"
 410 FOR G=0 TO 19
 420 PRINT AT 10,G;B$;AT 11,G;C$
;AT 12,G;D$
 430 IF G>=12 THEN PRINT AT G,12
;"*";AT G-1,12;" "
 440 IF G=12 THEN LET C$=" òó´ó"
 450 NEXT G
 460 PRINT AT 17,0;"      !!!!!!
!!!!!!!!!!!!          !!!!!!!!!!
!!!!!!!!!!!!!!!!!!  !!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!  !!!!!!!!!!
!!!!!!!!!!!!!!!!!!  "
 470 FOR G=16 TO 10 STEP -1
 480 PRINT AT G,11;"!!!!!!!!"
 490 NEXT G
 500 PRINT AT 10,0;"  ùùùù!!!!!!
!!!!!!!!!!!!!!ùùùù  !!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!  úúúú!!!!!!
!!!!!!!!!!!!!!úúúú"
 510 FOR G=1 TO 300
 520 NEXT G
 530 DIM A$(2,32)
 540 LET A$(1)="ñò· ô  ô  · ó ñô
ò  ñ ñô·ò · òñ ñ"
 550 LET A$(2)=" ñôò ôô·   ñô· ñ
·òñ ñ ·ôôò  ñ ô"
 560 FOR A=1 TO 10
 570 FOR G=10 TO 20
 580 PRINT AT G,0;A$(INT (RND*2+
1))
 590 NEXT G
 600 NEXT A
 610 FOR G=10 TO 20
 620 PRINT AT G,0;"             
                   "
 630 NEXT G
 640 FOR G=1 TO 150
 650 PRINT AT 14,11;"**REALITY**
";AT 16,0;"GRAPHIC PROGRAM BY ST
EVEN REID.."
 660 PRINT AT 14,11;"**REALITY**
"
 670 NEXT G
 680 FOR A=1 TO 30
 690 SCROLL
 700 PRINT "                    
            "
 710 NEXT A
 720 PRINT AT 0,0;
 730 RUN
 800 SAVE "RE"
 810 RUN