A graphic example of the perceived dangers of the world in the mid-eighties.
PROG : 16509
D-FILE: 18830
VARS : 19623
E-LINE: 19624
STKBOT: 19624
STKEND: 19624
9999 means line number
PRINT means treat as KEYWORD P
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