SYSTEM VARIABLES
PROG : 16509
D-FILE: 17743
VARS : 18536
E-LINE: 19240
STKBOT: 19252
STKEND: 19252
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
10 REM **WATER BUG DEMO**
20 PRINT AT 4,3;"{5} {8} [ ] [ ][ ][ ]{8}{E}{7} [ ]{7}{5} {2}{4}{8}{5}{E}{1}{8}{6}{5} [ ] {8}{E} [ ]{E}{1} {8}{5}{8}{5} {5} {8} [ ] {8}{W}{6} [ ]{2}{6}";AT 9,2;"[ ][ ][ ][ ] {E}{R}{4} [ ] [ ] {E}{7}{7} [ ]{W}{Y}[ ] {W}{Q}{1} [ ] [ ] [ ]{E}{6} [ ]{6}{E}{Q} {E}{7}{R} {R}[ ]{E} {R}{6}{Q} [ ][ ][ ][ ][ ] [ ]{W}{W}[ ] {W}{6}{T} [ ] [ ]";TAB 23;"[ ] [ ]";TAB 23;"[ ] [ ]";
30 PRINT TAB 22;"[ ][ ][ ][ ][ ]"
40 LET A$=" {T}{7}{R}{7}{7}{4} {E}{7}{7}{R}{7}{W} [ ] {E}{W}{2}{4}{T}{2}[ ]{1}{T}{7} {6}{7}{7} {2}{Y}{8}{7} {7}{7}{8} {6}{8}[ ]{1}{8}{6}{5}[ ]{1} {W}{5} [ ] {5} {7}{Y} {Y}{T}{8}{6} {2}{6}{T}{8}{2}{6}{T} {Y}[ ] {E}{5}{E}[ ]{4}{Y}{6}{8} {8} {Y}{6}{6}{6} {6}{6}{6}{6}{6}{6}{6}{1}{Y}{6}{6}{6}{6}{6} {7}{7}{1} {E}{W}{8} {5}{E} {E}{Y} [ ] {W}{Q} [ ] {2} {T}{7} {R}{E}{8}{7}{8} {5}{E}{1}{W}{8} {E}{W}{8}{7}{2}[ ]{1}{E}{W} {7}{R} {8}{5}{8}{1}{8} {5}{E} [ ][ ] [ ]{1}{8}{1} [ ] {5}{8} {W}{Q} {8}{5}{8}{6} [ ] {W}{4}{5}{R} {5}{Y}{8}{6}{E}[ ]{4}{W}{E} "
50 LET A$=A$+" {T}{E}{E}{Y}{2}{4} {Q} {Q}{R} {T}{Y} {E}{5} {5}{8}{5} {5} {8} {2}{R} {T}{Y}{E}{W}{W} {Y}{2}{W}{T}{E}{1} {Q}{4} {8} {Y}{T} {5} "
55 LET A$=A$+" "
60 DIM B$(128)
70 LET B$=A$( TO 128)
80 PRINT AT 17,0;B$
90 FOR A=1 TO 100
100 NEXT A
110 FOR G=1 TO 11 STEP 4
111 FOR F=1 TO 4
120 LET A$=A$(33 TO )+A$( TO 32)
130 LET B$=A$( TO 128)
140 PRINT AT 17,0;B$
150 FOR A=1 TO 10
160 NEXT A
165 NEXT F
168 FOR A=1 TO 50
169 NEXT A
170 NEXT G
180 FOR A=1 TO 100
190 NEXT A
200 RUN