The title screen demo for Water Bug II.
PROG : 16509
D-FILE: 17743
VARS : 18536
E-LINE: 19240
STKBOT: 19252
STKEND: 19252
9999 means line number
PRINT means treat as KEYWORD P
10 REM **WATER BUG DEMO**
20 PRINT AT 4,3;"õ µ
µ÷ó óõ òôµõ·ñµ³õ
µ÷ ÷ñ µõµõ õ µ
µ²³ ò³";AT 9,2;" ÷´ô
·óó ²¶ ²±ñ
·³ ³·± ÷ó´ ´ ÷
´³± ²² ²³ö
";TAB 23;" ";TAB 23;"
";
30 PRINT TAB 22;" "
40 LET A$=" öó´óóô ·óó´ó² ÷
²òôöò ñöó ³óó ò¶µó óóµ ³µ ñµ³õ
ñ ²õ õ ó¶ ¶öµ³ ò³öµò³ö ¶
÷õ· ô¶³µ µ ¶³³³ ³³³³³
³³ñ¶³³³³³ óóñ ÷²µ õ·
֦
²± ò
öó ´÷µóµ õ÷ñ²µ
÷²µóò ñ÷² ó´ µõµñµ õ÷
ñµñ õµ ²± µõµ³ ²ôõ´
õ¶µ³· ô²÷ "
50 LET A$=A$+"
ö·÷¶òô ± ±´
ö¶ ·õ õµõ õ µ ò´
ö¶·²² ¶ò²ö·ñ ±ô µ
¶ö õ "
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