SYSTEM VARIABLES
PROG : 16509
D-FILE: 18066
VARS : 18859
E-LINE: 18860
STKBOT: 18860
STKEND: 18860
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
1 REM BY:STEVEN L. REID <SLR> (DESIGNED)1983 <<<<THE BALL>>>>
2 SLOW
5 LET B=0
10 PRINT "THE BALL<BY:STEVEN REID(C)1983>"
11 PRINT "[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
12 FOR A=2 TO 20
13 PRINT "[ ]";TAB 31;"[ ]"
14 NEXT A
15 PRINT "[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
20 FOR A=2 TO 20
30 PRINT AT A,10;"[ ][ ][ ][ ]{A}{A}{A}{A}{H}{H}{H}{H}{A}{A}{H}{H}[ ][ ]"
40 NEXT A
50 LET H=-1
60 LET V=1
70 LET X=20
80 LET Y=1
90 LET C=X
100 LET U=Y
110 LET A$="[ ]"
120 LET B$=" "
130 LET J=1
140 PRINT AT X,Y;A$;AT C,U;B$ AND (X<>C OR Y<>U)
150 REM **CHECK COLOR**
151 IF B=1 THEN GOTO 400
160 IF J=9 THEN LET A$=" "
161 IF J=10 THEN LET B$="[ ]"
170 IF J=13 THEN LET A$="{H}"
171 IF J=14 THEN LET B$="{A}"
180 IF J=17 THEN LET A$="{A}"
181 IF J=18 THEN LET B$="{H}"
190 IF J=21 THEN LET A$="{H}"
191 IF J=22 THEN LET B$="{A}"
200 IF J=23 THEN LET A$="{A}"
201 IF J=24 THEN LET B$="{H}"
210 IF J=25 THEN LET A$=" "
211 IF J=26 THEN LET B$="[ ]"
220 IF J=27 THEN LET A$="[ ]"
221 IF J=28 THEN LET B$=" "
230 REM ***MOVEMNT***
240 LET C=X
250 LET U=Y
260 LET X=X+H
270 LET Y=Y+V
280 IF X=2 OR X=20 THEN LET H=-H
290 IF Y=1 OR Y=30 THEN LET V=-V
300 IF J=30 THEN LET B=1
301 IF B=1 THEN GOTO 340
310 LET J=J+1
320 REM ***GOTO START***
330 GOTO 140
340 LET J=J-1
350 IF J=1 THEN LET B=0
360 GOTO 140
400 REM **CHECK COLOR**
410 IF J=28 THEN LET A$=" "
411 IF J=27 THEN LET B$="[ ]"
420 IF J=26 THEN LET A$="{A}"
421 IF J=25 THEN LET B$="{H}"
430 IF J=24 THEN LET A$="{H}"
431 IF J=23 THEN LET B$="{A}"
440 IF J=22 THEN LET A$="{A}"
441 IF J=21 THEN LET B$="{H}"
450 IF J=18 THEN LET A$="{H}"
451 IF J=17 THEN LET B$="{A}"
460 IF J=14 THEN LET A$=" "
461 IF J=13 THEN LET B$="[ ]"
470 IF J=10 THEN LET A$="[ ]"
471 IF J=9 THEN LET B$=" "
480 GOTO 230
490 SAVE "BAL[L]"
500 RUN