10 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
20 LOCATE 12,1:PRINT FNCEN$("CICADA",40)
25 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
30 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
35 PRINT FNCEN$("All Rights Reserved",40)
40 d=2500:GOSUB 31000
45 CLS
50                            '***Zapsound***
55 FOR A=0 TO 20
60 OUT 66,A:OUT 66,A
65 OUT 97,(INP(97) OR 3)
70 NEXT A
75 SOUND 37,0
80                             '***End Zapsound***
85             '*** start draw ***
90 LINE(160,55)-(80,125)
95 LINE-(160,195)
100 LINE-(240,125)
105 LINE-(160,55)
110 GOSUB 30000         '** Textpad **
115 PRINT FNCEN$("Here's CICADA's first fold.",40)
120 d=1500:GOSUB 31000
125 FOR H=80 TO 240 STEP 2
130 PSET(H,125)
135 NEXT H
140 d=750:GOSUB 31000
145 FOR V=195 TO 125 STEP -1
150 LINE(80,125)-(160,V)
155 LINE-(240,125)
160 LINE(80,125)-(160,V),0
165 LINE-(240,125),0
170 NEXT V
175 FOR V=125 TO 55 STEP -1
180 LINE(80,125)-(160,V)
185 LINE-(240,125)
190 NEXT V
195 d=750:GOSUB 31000
200 GOSUB 30000     '*** Textpad***
205 PRINT FNCEN$("Ready?  Press <C> to continue.",40)
210 A$=INKEY$:IF A$="" GOTO 210
215 IF A$="C" OR A$="c" GOTO 225
220 GOTO 200
225 GOSUB 30000         '** Textpad **
230 PRINT FNCEN$("The next folds take these corners",40)
235 d=750:GOSUB 31000
240 FOR K=1 TO 15
245 PSET(72,125):DRAW"H5D4L7D2R7D4E5"
250 PAINT(66,125)
255 PSET(248,125):DRAW"e5D4r7D2l7D4h5"
260 PAINT(254,125)
265 CIRCLE(66,125),7,0
270 PAINT(66,125),0
275 CIRCLE(254,125),7,0
280 PAINT(254,125),0
285 NEXT K
290 d=750:GOSUB 31000
295 GOSUB 30000         '** Textpad **
300 PRINT FNCEN$("up to this corner",40)
305 d=750:GOSUB 31000
310                             '*** arrow down ***
315 FOR K=1 TO 15
320 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
325 PAINT(160,41)
330 d=25:GOSUB 31000
335 CIRCLE(160,41),7,0
340 PAINT(160,41),0
345 NEXT K
350                             '***end arrow down ***
355 d=750:GOSUB 31000
360 GOSUB 30000         '** Textpad **
365 PRINT FNCEN$("across these lines,",40)
370 d=750:GOSUB 31000
375 LINE(120,90)-(160,125),0
380 LINE-(200,90),0
385 d=750:GOSUB 31000
390 GOSUB 30000         '** Textpad **
395 PRINT FNCEN$("SO!",40)
400 d=750:GOSUB 31000
405 FOR Q=0 TO 40
410 LINE(160,125)-(80+Q,125-.88*Q),0
415 LINE-(120,90),0
420 LINE(160,125)-(79+Q,125-.88*Q),0
425 LINE-(120,90),0
430 NEXT Q
435 FOR Q=0 TO 40
440 LINE(160,125)-(120+Q,90-.88*Q),0
445 LINE-(120,90),0
450 LINE(160,125)-(120+Q,90-.88*Q)
455 LINE-(120,90)
460 NEXT Q
465 LINE(160,55)-(160,125),0
470 d=750:GOSUB 31000
475 FOR Q=0 TO 40
480 LINE(160,125)-(240-Q,125-.88*Q),0
485 LINE-(200,90),0
490 LINE(160,125)-(241-Q,125-.88*Q),0
495 LINE-(200,90),0
500 NEXT Q
505 FOR Q=0 TO 40
510 LINE(160,125)-(200-Q,90-.88*Q),0
515 LINE-(200,90),0
520 LINE(160,125)-(200-Q,90-.88*Q)
525 LINE-(200,90)
530 NEXT Q
535 LINE(160,55)-(160,125),0
540 d=750:GOSUB 31000
545 GOSUB 30000     '*** Textpad***
550 PRINT FNCEN$("OK?  Press <C> to continue.",40)
555 A$=INKEY$:IF A$="" GOTO 555
560 IF A$="C" OR A$="c" GOTO 570
565 GOTO 545
570 GOSUB 30000      '** Textpad **
575 PRINT FNCEN$("Let me change scale",40)
580 d=1500:GOSUB 31000
585 PRINT FNCEN$("and make myself more comfortable.",40)
590 d=1500:GOSUB 31000
595 GOSUB 30000      '** Textpad **
600 PRINT FNCEN$("One moment, please.",40)
605 d=1500:GOSUB 31000
610                            '***Zapsound***
615 FOR A=0 TO 20
620 OUT 66,A:OUT 66,A
625 OUT 97,(INP(97) OR 3)
630 NEXT A
635 SOUND 37,0
640 GOSUB 30000      '** Textpad **
645 LINE(120,90)-(110,100)
650 LINE-(160,145)
655 LINE-(210,100)
660 LINE-(200,90)
665 LINE(160,55)-(160,125)
670 PAINT(160,135)
675 LINE(160,55)-(160,145),0
680 d=750:GOSUB 31000
685 GOSUB 30000      '** Textpad **
690 PRINT FNCEN$("There!  That's better!",40)
695 d=1500:GOSUB 31000
700 GOSUB 30000      '** Textpad **
705 PRINT FNCEN$("Purely for your reference,",40)
710 d=1000:GOSUB 31000
715 PRINT FNCEN$("here's the other center line",40)
720 d=1000:GOSUB 31000
725 PRINT FNCEN$("of our figure.",40)
730 d=1000:GOSUB 31000
735 FOR H=110 TO 210
740 PSET(H,100),1
745 NEXT H
750 d=750:GOSUB 31000
755 GOSUB 30000      '** Textpad **
760 PRINT FNCEN$("Next, these corners",40)
765 d=750:GOSUB 31000
770 LINE(155,60)-(165,60),0
775 LINE-(160,65),0
780 LINE-(155,60),0
785 LINE(160,55)-(160,59)
790 d=750:GOSUB 31000
795                            '*** arrow down ***
800 FOR K=1 TO 15
805 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
810 PAINT(160,41)
815 d=25:GOSUB 31000
820 CIRCLE(160,41),7,0
825 PAINT(160,41),0
830 NEXT K
835                            '***end arrow down ***
840 LINE(155,60)-(165,60)
845 LINE-(160,65)
850 LINE-(155,60)
855 LINE(160,55)-(160,70),0
860 d=750:GOSUB 31000
865 GOSUB 30000         '** Textpad **
870 PRINT FNCEN$("fold down to these points",40)
875 d=750:GOSUB 31000
880                               '*** flashdot ***
885 FOR K=1 TO 15
890 CIRCLE(145,155),5,3
895 LINE(143,155)-(147,155),3
900 LINE(145,153)-(145,157),3
905 CIRCLE(175,155),5,3
910 LINE(173,155)-(177,155),3
915 LINE(175,153)-(175,157),3
920 CIRCLE(145,155),5,0
925 LINE(143,155)-(147,155),0
930 LINE(145,153)-(145,157),0
935 CIRCLE(175,155),5,0
940 LINE(173,155)-(177,155),0
945 LINE(175,153)-(175,157),0
950 NEXT K
955 d=750:GOSUB 31000
960 GOSUB 30000     '*** Textpad***
965 PRINT FNCEN$("across these lines,",40)
970 d=750:GOSUB 31000
975 LINE(110,100)-(160,105),0
980 LINE-(210,100),0
985 d=750:GOSUB 31000
990 GOSUB 30000   '*** <Textpad> ***
995 PRINT FNCEN$("* Hint *",40)
1000 d=750:GOSUB 31000
1005 PRINT FNCEN$("Our straightedge would be helpful here.",40)
1010 d=1500:GOSUB 31000
1015 GOSUB 30000   '*** Textpad ***
1020 PRINT FNCEN$("Press <C> to continue.",40)
1025 A$=INKEY$:IF A$="" GOTO 1025
1030 IF A$="C" OR A$="c" GOTO 1040
1035 GOTO 1015
1040 GOSUB 30000      '** Textpad **
1045 PRINT FNCEN$("Fold!",40)
1050 d=750:GOSUB 31000
1055 LINE(110,100)-(210,100)
1060 LINE(110,100)-(160,105),0
1065 LINE-(210,100),0
1070 FOR Q=0 TO 100
1075 LINE(110,100)-(160-.15*Q,56+Q),0
1080 LINE-(160,105),0
1085 LINE(110,100)-(160-.15*Q,56+Q)
1090 LINE-(160,105)
1095 LINE(110,100)-(160-.15*Q,55+Q)
1100 LINE-(160,105)
1105 LINE(110,100)-(160,105),0
1110 LINE(160,55)-(160,145),0
1115 NEXT Q
1120 LINE(160,105)-(145,156),0
1125 d=750:GOSUB 31000
1130 GOSUB 30000      '** Textpad **
1135 PRINT FNCEN$("and repeat on the other side.",40)
1140 d=750:GOSUB 31000
1145 FOR Q=0 TO 100
1150 LINE(210,100)-(160+.15*Q,56+Q),0
1155 LINE-(160,105),0
1160 LINE(210,100)-(160+.15*Q,56+Q)
1165 LINE-(160,105)
1170 LINE(210,100)-(160+.15*Q,55+Q)
1175 LINE-(160,105)
1180 LINE(210,100)-(160,105),0
1185 NEXT Q
1190 LINE(160,105)-(175,156),0
1195 d=750:GOSUB 31000
1200 GOSUB 30000      '** Textpad **
1205 PRINT FNCEN$("Press <C> to continue.",40)
1210 A$=INKEY$:IF A$="" GOTO 1210
1215 IF A$="C" OR A$="c" GOTO 1225
1220 GOTO 1200
1225 GOSUB 30000      '** Textpad **
1230 PRINT FNCEN$("The next fold takes this corner",40)
1235 d=750:GOSUB 31000
1240 LINE(155,60)-(165,60),0
1245 LINE-(160,65),0
1250 LINE-(155,60),0
1255 LINE(156,59)-(160,56),0
1260 LINE-(164,59),0
1265 LINE-(156,59),0
1270 PAINT(160,58),0
1275 LINE(154,60)-(160,55)
1280 LINE-(166,60)
1285 d=750:GOSUB 31000
1290                            '*** arrow down ***
1295 FOR K=1 TO 15
1300 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
1305 PAINT(160,41)
1310 d=25:GOSUB 31000
1315 CIRCLE(160,41),7,0
1320 PAINT(160,41),0
1325 NEXT K
1330                            '***end arrow down ***
1335 d=750:GOSUB 31000
1340 LINE(155,60)-(165,60)
1345 LINE-(160,65)
1350 LINE-(155,60)
1355 LINE(156,59)-(160,56)
1360 LINE-(164,59)
1365 PAINT(160,58)
1370 d=750:GOSUB 31000
1375 GOSUB 30000      '** Textpad **
1380 PRINT FNCEN$("down to this point",40)
1385 d=750:GOSUB 31000
1390                               '*** flashdot ***
1395 FOR K=1 TO 15
1400 CIRCLE(160,125),5,0
1405 LINE(158,125)-(162,125),0
1410 LINE(160,123)-(160,127),0
1415 d=25:GOSUB 31000
1420 CIRCLE(160,125),5
1425 LINE(158,125)-(162,125)
1430 LINE(160,123)-(160,127)
1435 NEXT K
1440 LINE(160,120)-(160,130),0
1445 d=750:GOSUB 31000
1450 GOSUB 30000      '** Textpad **
1455 PRINT FNCEN$("across this line,",40)
1460 d=750:GOSUB 31000
1465 FOR H=120 TO 200 STEP 2
1470 PSET(H,90),0
1475 NEXT H
1480 d=750:GOSUB 31000
1485 GOSUB 30000      '** Textpad **
1490 PRINT FNCEN$("THUS!",40)
1495 d=750:GOSUB 31000
1500 LINE(157,57)-(124,86),0
1505 LINE(163,57)-(196,86),0
1510 FOR V=55 TO 90
1515 LINE(120,90)-(160,V),0
1520 LINE-(200,90),0
1525 LINE(120,90)-(160,55)
1530 LINE-(200,90)
1535 NEXT V
1540 FOR V=90 TO 125
1545 LINE(120,90)-(160,V),0
1550 LINE-(200,90),0
1555 LINE(120,90)-(200,90)
1560 NEXT V
1565 LINE(200,90)-(160,125),0
1570 LINE-(200,90),0
1575 d=750:GOSUB 31000
1580 GOSUB 30000     '*** Textpad***
1585 PRINT FNCEN$("Your turn.  Press <C> to continue.",40)
1590 A$=INKEY$:IF A$="" GOTO 1590
1595 IF A$="C" OR A$="c" GOTO 1605
1600 GOTO 1580
1605 GOSUB 30000      '** Textpad **
1610 PRINT FNCEN$("Now, this corner",40)
1615 d=750:GOSUB 31000
1620                            '*** arrow down ***
1625 FOR K=1 TO 15
1630 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
1635 PAINT(160,41)
1640 d=25:GOSUB 31000
1645 CIRCLE(160,41),7,0
1650 PAINT(160,41),0
1655 NEXT K
1660                            '***end arrow down ***
1665 d=750:GOSUB 31000
1670 GOSUB 30000      '** Textpad **
1675 PRINT FNCEN$("folds down to this point",40)
1680 d=750:GOSUB 31000
1685                               '*** flashdot ***
1690 FOR K=1 TO 15
1695 CIRCLE(160,115),5
1700 LINE(158,115)-(162,115)
1705 LINE(160,113)-(160,117)
1710 d=25:GOSUB 31000
1715 CIRCLE(160,115),5,0
1720 LINE(158,115)-(162,115),0
1725 LINE(160,113)-(160,117),0
1730 NEXT K
1735 d=750:GOSUB 31000
1740 GOSUB 30000      '** Textpad **
1745 PRINT FNCEN$("over this line,",40)
1750 d=750:GOSUB 31000
1755 FOR H=126 TO 194 STEP 2
1760 PSET(H,85)
1765 NEXT H
1770 d=750:GOSUB 31000
1775 GOSUB 30000      '** Textpad **
1780 PRINT FNCEN$("SO!",40)
1785 d=750:GOSUB 31000
1790 LINE(126,85)-(146,67),0
1795 LINE(174,67)-(194,85),0
1800 PSET(131,80),0:PSET(189,80),0
1805 FOR V=55 TO 85
1810 LINE(126,85)-(160,V)
1815 LINE-(194,85)
1820 LINE(126,85)-(160,V),0
1825 LINE-(194,85),0
1830 NEXT V
1835 FOR V=85 TO 115
1840 LINE(126,85)-(160,V)
1845 LINE-(194,85)
1850 NEXT V
1855 d=750:GOSUB 31000
1860 GOSUB 30000     '*** Textpad***
1865 PRINT FNCEN$("There!  Your turn.  <C> to continue.",40)
1870 A$=INKEY$:IF A$="" GOTO 1870
1875 IF A$="C" OR A$="c" GOTO 1885
1880 GOTO 1860
1885 GOSUB 30000      '** Textpad **
1890 PRINT FNCEN$("Our next folds are on the hidden side.",40)
1895 d=1500:GOSUB 31000
1900 GOSUB 30000     '*** Textpad***
1905 PRINT FNCEN$("We'll flip over.",40)
1910 d=1500:GOSUB 31000
1915 GOSUB 30000     '*** Textpad***
1920 PRINT FNCEN$("One moment, please.",40)
1925 d=1500:GOSUB 31000
1930                            '***Zapsound***
1935 CLS
1940 FOR A=0 TO 20
1945 OUT 66,A:OUT 66,A
1950 OUT 97,(INP(97) OR 3)
1955 NEXT A
1960 SOUND 37,0
1965 LINE(126,85)-(110,100)
1970 LINE-(145,155)
1975 LINE-(151,137)
1980 LINE-(160,145)
1985 LINE-(169,137)
1990 LINE-(175,155)
1995 LINE-(210,100)
2000 LINE-(194,85)
2005 LINE-(126,85)
2010 PAINT(160,100)
2015 LINE(110,100)-(160,145),0
2020 LINE-(210,100),0
2025 d=750:GOSUB 31000
2030 GOSUB 30000      '** Textpad **
2035 PRINT FNCEN$("Again for your reference,",40)
2040 d=1000:GOSUB 31000
2045 PRINT FNCEN$("here's the center line",40)
2050 d=1000:GOSUB 31000
2055 PRINT FNCEN$("of our figure.",40)
2060 d=1000:GOSUB 31000
2065 FOR V=85 TO 145 STEP 2
2070 PSET(160,V),0
2075 NEXT V
2080 d=750:GOSUB 31000
2085 GOSUB 30000      '** Textpad **
2090 PRINT FNCEN$("Our final folds take these corners",40)
2095 d=1500:GOSUB 31000
2100 FOR K=1 TO 15
2105 PSET(126,77):DRAW"E5L4U7L2D7L4F5"
2110 PAINT(126,71)
2115 PSET(194,77):DRAW"E5L4U7L2D7L4F5"
2120 PAINT(194,71)
2125 CIRCLE(126,71),7,0
2130 PAINT(126,71),0
2135 CIRCLE(194,71),7,0
2140 PAINT(194,71),0
2145 NEXT K
2150                             '***end arrow down ***
2155 d=750:GOSUB 31000
2160 GOSUB 30000      '** Textpad **
2165 PRINT FNCEN$("down to this point",40)
2170 d=750:GOSUB 31000
2175                               '*** flashdot ***
2180 FOR K=1 TO 15
2185 CIRCLE(160,97),5,0
2190 LINE(158,97)-(162,97),0
2195 LINE(160,95)-(160,99),0
2200 d=25:GOSUB 31000
2205 CIRCLE(160,97),5
2210 LINE(158,97)-(162,97)
2215 LINE(160,95)-(160,99)
2220 NEXT K
2225 FOR V=85 TO 145 STEP 2
2230 PSET(160,V),0
2235 NEXT V
2240 d=750:GOSUB 31000
2245 GOSUB 30000      '** Textpad **
2250 PRINT FNCEN$("over these lines,",40)
2255 d=750:GOSUB 31000
2260 LINE(145,85)-(126,124),0
2265 LINE(175,85)-(194,124),0
2270 d=750:GOSUB 31000
2275 GOSUB 30000   '*** <Textpad> ***
2280 PRINT FNCEN$("* Hint *",40)
2285 d=750:GOSUB 31000
2290 PRINT FNCEN$("Straightedge?",40)
2295 d=1500:GOSUB 31000
2300 GOSUB 30000   '*** Textpad ***
2305 PRINT FNCEN$("Press <C> to continue.",40)
2310 A$=INKEY$:IF A$="" GOTO 2310
2315 IF A$="C" OR A$="c" GOTO 2325
2320 GOTO 2300
2325 GOSUB 30000      '** Textpad **
2330 PRINT FNCEN$("SO!",40)
2335 d=750:GOSUB 31000
2340 LINE(114,107)-(126,125),0
2345 FOR Q=0 TO 23
2350 LINE(145,85)-(125+.74*Q,85+.26*Q),0
2355 LINE-(110+Q,100+.39*Q),0
2360 LINE-(125,125),0
2365 LINE(145,85)-(124+.74*Q,85+.26*Q),0
2370 LINE-(109+Q,100+.39*Q),0
2375 NEXT Q
2380 PSET(131,110),0
2385 FOR Q=0 TO 27
2390 LINE(145,85)-(142+.67*Q,91+.22*Q),0
2395 LINE-(133+Q,109+.33*Q),0
2400 LINE-(126,124),0
2405 LINE(145,85)-(142+.67*Q,91+.22*Q)
2410 LINE-(133+Q,109+.33*Q)
2415 LINE-(126,124)
2420 LINE(139+.78*Q,97)-(136+.89*Q,104),0
2425 LINE(138+.78*Q,97)-(135+.89*Q,104),0
2430 LINE(145,85)-(126,124)
2435 NEXT Q
2440 LINE(145,85)-(160,97),0
2445 LINE-(160,118),0
2450 LINE-(126,124),0
2455 d=750:GOSUB 31000
2460 GOSUB 30000      '** Textpad **
2465 PRINT FNCEN$("and repeat on the other side.",40)
2470 d=750:GOSUB 31000
2475 FOR Q=0 TO 23
2480 LINE(175,85)-(195-.74*Q,85+.26*Q),0
2485 LINE-(210-Q,100+.39*Q),0
2490 LINE-(195,125),0
2495 LINE(175,85)-(196-.74*Q,85+.26*Q),0
2500 LINE-(211-Q,100+.39*Q),0
2505 NEXT Q
2510 PSET(189,110),0
2515 FOR Q=0 TO 27
2520 LINE(175,85)-(178-.67*Q,91+.22*Q),0
2525 LINE-(187-Q,109+.33*Q),0
2530 LINE-(194,124),0
2535 LINE(175,85)-(178-.67*Q,91+.22*Q)
2540 LINE-(187-Q,109+.33*Q)
2545 LINE-(194,124)
2550 LINE(181-.78*Q,97)-(184-.89*Q,104),0
2555 LINE(182-.78*Q,97)-(185-.89*Q,104),0
2560 LINE(175,85)-(194,124)
2565 NEXT Q
2570 LINE(145,85)-(175,96),3,BF
2575 LINE(145,85)-(160,96),0
2580 LINE(175,85)-(160,96),0
2585 LINE-(160,118),0
2590 LINE-(194,124),0
2595 LINE(160,97)-(160,104)
2600 d=750:GOSUB 31000
2605 GOSUB 30000      '** Textpad **
2610 PRINT FNCEN$("There!  All folds completed!",40)
2615 d=1500:GOSUB 31000
2620 GOSUB 30000   '*** <Textpad> ***
2625 PRINT FNCEN$("Care to review those last folds?",40)
2630 d=1500:GOSUB 31000
2635 GOSUB 30000      '** Textpad **
2640 PRINT FNCEN$("If so, press <R> to review.",40)
2645 d=1000:GOSUB 31000
2650 PRINT FNCEN$("If not, press <C> to continue.",40)
2655 A$=INKEY$:IF A$="" GOTO 2655
2660 IF A$="R" OR A$="r" GOTO 2675
2665 IF A$="C" OR A$="c" GOTO 2695
2670 GOTO 2635
2675 GOSUB 30000   '*** <Textpad> ***
2680 PRINT FNCEN$("* Review *",40)
2685 d=1500:GOSUB 31000
2690 GOTO 1935
2695 GOSUB 30000      '** Textpad **
2700 PRINT FNCEN$("Let's flip over to CICADA's formal side.",40)
2705 d=1500:GOSUB 31000
2710 GOSUB 30000      '** Textpad **
2715 PRINT FNCEN$("One moment, please.",40)
2720 d=750:GOSUB 31000
2725 CLS
2730 FOR A=0 TO 20
2735 OUT 66,A:OUT 66,A
2740 OUT 97,(INP(97) OR 3)
2745 NEXT A
2750 SOUND 37,0
2755 LINE(145,85)-(125,125)
2760 LINE-(145,155)
2765 LINE-(151,137)
2770 LINE-(160,145)
2775 LINE-(169,137)
2780 LINE-(175,155)
2785 LINE-(195,125)
2790 LINE-(175,85)
2795 LINE-(145,85)
2800 PAINT(160,100)
2805 LINE(120,90)-(160,125),0
2810 LINE-(200,90),0
2815 LINE(125,85)-(160,115),0
2820 LINE-(195,85),0
2825 PAINT(160,120),0
2830 LINE(145,85)-(125,125)
2835 LINE(175,85)-(195,125)
2840 LINE(146,155)-(155,121),0
2845 LINE(174,155)-(165,121),0
2850 LINE(160,126)-(160,145),0
2855 d=750:GOSUB 31000
2860 GOSUB 30000      '** Textpad **
2865 PRINT FNCEN$("There!",40)
2870 d=1500:GOSUB 31000
2875 GOSUB 30000   '*** <Textpad> ***
2880 PRINT FNCEN$("We'll give CICADA some eyes.",40)
2885 d=1500:GOSUB 31000
2890 FOR A=0 TO 20
2895 OUT 66,A:OUT 66,A
2900 OUT 97,(INP(97) OR 3)
2905 NEXT A
2910 SOUND 37,0
2915 LINE(170,85)-(177,89),0
2920 LINE-(175,85),0
2925 LINE-(170,85),0
2930 PAINT(174,86),0
2935 LINE(170,85)-(177,89)
2940 LINE-(172,89),0
2945 LINE-(170,85),0
2950 LINE(150,85)-(143,89),0
2955 LINE-(145,85),0
2960 LINE-(150,85),0
2965 PAINT(146,86),0
2970 LINE(150,85)-(143,89)
2975 LINE-(148,89),0
2980 LINE-(150,85),0
2985 LINE(173,88)-(174,87),0
2990 LINE(147,88)-(146,87),0
2995 GOSUB 30000      '** Textpad **
3000 PRINT FNCEN$("Mission accomplished!",40)
3005 d=1500:GOSUB 31000
3010 GOSUB 30000                '*** Textpad ***
3015 PRINT FNCEN$("     Press <1> - Return to MAIN MENU.",40)
3020 PRINT FNCEN$("      (2) - Repeat CICADA.",40)
3025 PRINT FNCEN$("         <3> - Exit from program.",40)
3030 E$=INPUT$(1)
3035 IF E$<"1" OR E$>"3" GOTO 3030
3040 SEL=VAL(E$)
3045 COMMON SEL
3050 CLS
3055 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
3056 LINE(70,75)-(250,125),3,B
3060 ON SEL GOTO 3065,3070,3075
3065 CHAIN"main"
3070 CHAIN"cicada
3075 CHAIN"end"
3080 END
30000 LOCATE 1,1
30010 PRINT"                                                                                                                        "
30020 LOCATE 1,1:RETURN
31000 REM *** Delay procedure     added by Maarten van Gelder
31010 FOR I=1 TO D
31020   FOR J=1 TO 1:NEXT J    ' Delay factor: change for actual CPU
31030 NEXT I
31040 RETURN