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$("CHICK",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 FOR A=0 TO 20
55 OUT 66,A:OUT 66,A
60 OUT 97,(INP(97) OR 3)
65 NEXT A
70 SOUND 37,0
75 LINE(160,30)-(80,100)
80 LINE-(160,170)
85 LINE-(240,100)
90 LINE-(160,30)
95 d=250:GOSUB 31000
100 GOSUB 30000         '** Textpad **
105 PRINT FNCEN$("CHICK begins with two folds",40)
110 d=1500:GOSUB 31000
115 GOSUB 30000         '** Textpad **
120 PRINT FNCEN$("which generate these creases",40)
125 d=1500:GOSUB 31000
130 FOR V=30 TO 170 STEP 2
135 PSET(160,V)
140 NEXT V
145 d=750:GOSUB 31000
150 FOR H=80 TO 240 STEP 2
155 PSET(H,100)
160 NEXT H
165 d=750:GOSUB 31000
170 GOSUB 30000         '** Textpad **
175 PRINT FNCEN$("and our old friends,",40)
180 d=1500:GOSUB 31000
185 GOSUB 30000         '** Textpad **
190 PRINT FNCEN$("the KITE BASE folds.",40)
195 FOR K=1 TO 1500: NEXT K
200 LINE(205,70)-(160,170),3
205 d=750:GOSUB 31000
210 FOR Q=0 TO 35
215 LINE(160,170)-(240-Q,100-.8599999*Q),3
220 LINE(160,170)-(240-Q,100-.8599999*Q),0
225 LINE(160,170)-(241-Q,100-.8599999*Q),0
230 NEXT Q
235 FOR H=205 TO 160 STEP -1
240 LINE(160,170)-(H,70),3
245 LINE(160,70)-(193,100),0
250 PSET(160,70)
255 NEXT H
260 d=750:GOSUB 31000
265 LINE(115,70)-(160,170)
270 FOR K=1 TO 750: NEXT K
275 FOR Q=0 TO 35
280 LINE (80+Q,100-.8599999*Q)-(160,170),3
285 LINE(80+Q,100-.8599999*Q)-(160,170),0
290 LINE(79+Q,100-.8599999*Q)-(160,170),0
295 NEXT Q
300 FOR H=115 TO 160
305 LINE(160,170)-(H,70),3
310 LINE(160,70)-(127,100),0
315 NEXT H
320 LINE(160,70)-(160,170),0
325 d=750:GOSUB 31000
330 GOSUB 30000         '** Textpad **
335 PRINT FNCEN$("There!  Your turn to fold.  I'll wait.",40)
340 d=1500:GOSUB 31000
345 GOSUB 30000   '*** Textpad ***
350 PRINT FNCEN$("When ready to continue, press <C>.",40)
355 A$=INKEY$:IF A$="" GOTO 355
360 IF A$="C" OR A$="c" GOTO 370
365 GOTO 345
370 GOSUB 30000         '** Textpad **
375 PRINT FNCEN$("Our next fold takes this corner",40)
380 d=1500:GOSUB 31000
385                             '*** arrow up ***
390 FOR K=1 TO 15
395 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
400 PAINT(160,184)
405 d=25:GOSUB 31000
410 CIRCLE(160,184),7,0
415 PAINT(160,184),0
420 NEXT K
425                             '***end arrow up ***
430 d=250:GOSUB 31000
435 GOSUB 30000         '** Textpad **
440 PRINT FNCEN$("up to here",40)
445 d=750:GOSUB 31000
450                             '*** arrow down ***
455 FOR K=1 TO 15
460 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
465 PAINT(160,16)
470 d=25:GOSUB 31000
475 CIRCLE(160,16),7,0
480 PAINT(160,16),0
485 NEXT K
490                             '***end arrow down ***
495 d=250:GOSUB 31000
500 GOSUB 30000         '** Textpad **
505 PRINT FNCEN$("across this line,",40)
510 d=750:GOSUB 31000
515 FOR K=1 TO 25
520 LINE(127,100)-(193,100),0
525 d=25:GOSUB 31000
530 LINE(127,100)-(193,100),3
535 NEXT K
540 FOR H=127 TO 193 STEP 2
545 PSET(H,100),0
550 NEXT H
555 d=250:GOSUB 31000
560 GOSUB 30000         '** Textpad **
565 PRINT FNCEN$("SO!",40)
570 d=750:GOSUB 31000
575 LINE(149,148)-(160,171),0
580 LINE-(171,148),0
585 FOR V=170 TO 100 STEP -1
590 LINE(127,100)-(160,V),0
595 LINE-(193,100),0
600 LINE(193,102)-(169,151),0:LINE(127,102)-(151,151),0
605 NEXT V
610 FOR V=99 TO 70 STEP -1
615 LINE(127,100)-(160,V),0
620 LINE-(193,100),0
625 LINE(127,100)-(160,V+1),3
630 LINE-(193,100),3
635 NEXT V
640 LINE(127,101)-(193,101),0
645 FOR V=70 TO 30 STEP -1
650 LINE(127,100)-(160,V),0
655 LINE-(193,100),0
660 LINE(127,100)-(160,V),3
665 LINE-(193,100),3
670 NEXT V
675 LINE(127,100)-(140,70),0
680 LINE(193,100)-(180,70),0
685 d=750:GOSUB 31000
690 GOSUB 30000         '** Textpad **
695 PRINT FNCEN$("and back!",40)
700 d=750:GOSUB 31000
705 LINE(160,30)-(160,100),3
710 FOR V=30 TO 70
715 LINE(127,100)-(160,V),0
720 LINE-(193,100),0
725 LINE(127,70)-(193,100),3,BF
730 FOR W=30 TO 70 STEP 2
735 PSET(160,W)
740 NEXT W
745 NEXT V
750 FOR V=71 TO 100
755 LINE(127,100)-(160,V),0
760 LINE-(193,100),0
765 LINE(127,100)-(160,V),3
770 LINE-(193,100),3
775 LINE(127,V-1)-(193,V-1),3
780 PSET(160,V-1),0
785 LINE(127,100)-(160,70),0
790 LINE-(193,100),0
795 NEXT V
800 FOR H=127 TO 193 STEP 2
805 PSET(H,99),0
810 NEXT H
815 FOR V=100 TO 170
820 LINE(127,101)-(160,V),3
825 LINE-(193,101),3
830 PSET(160,V-1),0
835 NEXT V
840 LINE(160,70)-(160,170),0
845 FOR H=127 TO 193 STEP 2
850 PSET(H,99),3
855 NEXT H
860 FOR H=127 TO 193 STEP 2
865 PSET(H,100),0
870 NEXT H
875 PSET(160,99),0
880 LINE(114,70)-(160,171),3
885 LINE-(206,70),3
890 PSET(127,102),0:PSET(193,102),0
895 d=750:GOSUB 31000
900 GOSUB 30000       '*** Textpad ***
905 PRINT FNCEN$("To review that fold, press <R>.",40)
910 d=750:GOSUB 31000
915 PRINT FNCEN$("To continue, press <C>.",40)
920 A$=INKEY$:IF A$="" GOTO 920
925 IF A$="r" OR A$="R" GOTO 940
930 IF A$="c" OR A$="C" GOTO 960
935 GOTO 905
940 GOSUB 30000                '*** Textpad ***
945 PRINT FNCEN$("* Review *",40)
950 d=1500:GOSUB 31000
955 GOTO 370
960 GOSUB 30000               '*** Textpad ***
965 PRINT FNCEN$("We continue by folding this corner",40)
970 d=750:GOSUB 31000
975                     '*** arrow left ***
980 FOR K=1 TO 15
985 PSET(213,70):DRAW"E5D4R7D2L7D4H5"
990 PAINT(219,70)
995 d=25:GOSUB 31000
1000 CIRCLE(219,70),7,0
1005 PAINT(219,70),0
1010 NEXT K
1015                             '***end arrow left ***
1020 GOSUB 30000               '*** Textpad ***
1025 PRINT FNCEN$("over to this point",40)
1030 d=750:GOSUB 31000
1035 FOR K=1 TO 15       '*** flashdot ***
1040 CIRCLE(160,90),5,0
1045 LINE(158,90)-(162,90),0
1050 LINE(160,88)-(160,92),0
1055 d=25:GOSUB 31000
1060 CIRCLE(160,90),5,3
1065 LINE(158,90)-(162,90),3
1070 LINE(160,88)-(160,92),3
1075 NEXT K      '*** end flashdot ***
1080 LINE(160,80)-(160,100),0
1085 GOSUB 30000               '*** Textpad ***
1090 PRINT FNCEN$("along this line",40)
1095 d=750:GOSUB 31000
1100 LINE(160,30)-(178,70),3
1105 LINE-(193,100),0
1110 d=750:GOSUB 31000
1115 LINE(190,56)-(205,69),0
1120 LINE(206,71)-(204,75),0
1125 FOR Q=0 TO 20   '*** Fold right
1130 LINE(160,30)-(205-Q,70+.5*Q),3
1135 LINE-(193,100),3
1140 LINE(160,30)-(205-Q,70+.5*Q),0
1145 LINE-(193,100),0
1150 LINE(160,30)-(206-Q,69+.5*Q),0
1155 LINE-(193,100),0
1160 NEXT Q
1165 LINE(179,71)-(183,79)
1170 FOR Q=0 TO 25
1175 LINE(160,30)-(185-Q,80+.4*Q),3
1180 LINE(185-Q,80+.4*Q)-(193,100),0
1185 LINE(185-Q,80+.4*Q)-(193,100),3
1190 NEXT Q
1195 LINE(160,30)-(160,90),0
1200 LINE-(193,100),0
1205 PSET(185,84),3:PSET(184,82)
1210 d=750:GOSUB 31000
1215 GOSUB 30000               '*** Textpad ***
1220 PRINT FNCEN$("and repeat on the left side",40)
1225 d=750:GOSUB 31000
1230 LINE(160,30)-(142,70),3
1235 LINE-(127,100),0
1240 d=750:GOSUB 31000
1245 LINE(115,70)-(127,100),3
1250 LINE(130,56)-(120,65),0
1255 LINE(114,71)-(116,75),0
1260 PSET(115,69),0
1265 FOR Q=0 TO 20   '*** Fold left
1270 LINE(160,30)-(115+Q,70+.5*Q),3
1275 LINE-(127,100),3
1280 LINE(160,30)-(115+Q,70+.5*Q),0
1285 LINE-(127,100),0
1290 LINE(160,30)-(114+Q,69+.5*Q),0
1295 LINE-(127,100),0
1300 NEXT Q
1305 LINE(141,71)-(137,79)
1310 FOR Q=0 TO 25
1315 LINE(160,30)-(135+Q,80+.4*Q),3
1320 LINE(135+Q,80+.4*Q)-(127,100),0
1325 LINE(135+Q,80+.4*Q)-(127,100),3
1330 NEXT Q
1335 LINE(160,30)-(160,90),0
1340 LINE-(127,100),0
1345 PSET(135,84),3:PSET(136,82)
1350 d=750:GOSUB 31000
1355 GOSUB 30000               '*** Textpad ***
1360 PRINT FNCEN$("and unfold right!",40)
1365 d=750:GOSUB 31000
1370 FOR Q=0 TO 20   'Unfold right
1375 LINE(160,30)-(160+Q,69),3
1380 LINE(160,30)-(160+Q,69),0
1385 LINE(160,90)-(160+Q,90-.5*Q),0
1390 LINE-(193,100),0
1395 LINE(160,90)-(160+Q,90-.5*Q),3
1400 LINE-(193,100),3
1405 NEXT Q
1410 LINE(160,70)-(193,100),0
1415 FOR Q=1 TO 25
1420 LINE(160,30)-(180+Q,70),3
1425 LINE(160,30)-(180+Q,70),0
1430 LINE(193,100)-(180+.8*Q,80-.4*Q),3
1435 LINE(193,100)-(180+Q,70),3
1440 LINE(160,30)-(178,70),3
1445 LINE-(192,100),0
1450 NEXT Q
1455 LINE(160,30)-(205,70)
1460 FOR V=30 TO 70 STEP 2
1465 PSET(160,V)
1470 NEXT V
1475 d=750:GOSUB 31000
1480 GOSUB 30000               '*** Textpad ***
1485 PRINT FNCEN$("and unfold left!",40)
1490 d=750:GOSUB 31000
1495 FOR Q=0 TO 20   '*** Unfold left
1500 LINE(160,30)-(159-Q,69),3
1505 LINE(160,30)-(159-Q,69),0
1510 LINE(160,90)-(160-Q,90-.5*Q),0
1515 LINE-(127,100),0
1520 LINE(160,90)-(160-Q,90-.5*Q),3
1525 LINE-(127,100),3
1530 NEXT Q
1535 FOR V=30 TO 70 STEP 2
1540 PSET(160,V),3
1545 NEXT V
1550 LINE(160,70)-(127,100),0
1555 FOR Q=1 TO 25
1560 LINE(160,30)-(140-Q,70),3
1565 LINE(160,30)-(140-Q,70),0
1570 LINE(127,100)-(140-.8*Q,80-.4*Q),3
1575 LINE(127,100)-(140-Q,70),3
1580 LINE(160,30)-(142,70),3
1585 LINE-(128,100),0
1590 NEXT Q
1595 LINE(160,30)-(115,70),0
1600 LINE-(160,170),0
1605 LINE-(205,70),0
1610 LINE(127,100)-(117,76),0
1615 LINE-(128,100),0
1620 LINE(193,100)-(203,76),0
1625 LINE-(192,100),0
1630 LINE(160,30)-(115,70),3
1635 LINE-(160,170),3
1640 LINE-(205,70),3
1645 LINE(160,70)-(160,170),0
1650 LINE(114,70)-(159,171),0
1655 LINE(206,70)-(161,171),0
1660 LINE(113,70)-(158,171),0
1665 LINE(207,70)-(162,171),0
1670 LINE(128,100)-(192,100)
1675 FOR H=128 TO 192 STEP 2
1680 PSET(H,100),0
1685 NEXT H
1690 d=750:GOSUB 31000
1695 GOSUB 30000       '*** Textpad ***
1700 PRINT FNCEN$("To review those folds, press <R>.",40)
1705 d=750:GOSUB 31000
1710 PRINT FNCEN$("To continue, press <C>.",40)
1715 A$=INKEY$:IF A$="" GOTO 1715
1720 IF A$="r" OR A$="R" GOTO 1735
1725 IF A$="c" OR A$="C" GOTO 1785
1730 GOTO 1695
1735 LINE(160,30)-(142,70),0
1740 LINE-(128,100)
1745 LINE(160,30)-(178,70),0
1750 LINE-(192,100)
1755 LINE(127,100)-(160,70),0
1760 LINE-(193,100),0
1765 GOSUB 30000                '*** Textpad ***
1770 PRINT FNCEN$("* Review *",40)
1775 d=1500:GOSUB 31000
1780 GOTO 960
1785 GOSUB 30000     '*** Textpad ***
1790 PRINT FNCEN$("Our next folds are tricky ones,",40)
1795 d=1500:GOSUB 31000
1800 PRINT FNCEN$("but we are fully prepared for them.",40)
1805 d=1500:GOSUB 31000
1810 GOSUB 30000                '*** Textpad ***
1815 PRINT FNCEN$("Here are some folding hints.",40)
1820 d=1500:GOSUB 31000
1825 GOSUB 30000                '*** Textpad ***
1830 PRINT FNCEN$("We might use our straightedge",40)
1835 d=1500:GOSUB 31000
1840 PRINT FNCEN$("to help hold down KITE,",40)
1845 d=750:GOSUB 31000
1850                            '***Zapsound***
1855 FOR A=0 TO 20
1860 OUT 66,A:OUT 66,A
1865 OUT 97,(INP(97) OR 3)
1870 NEXT A
1875 SOUND 37,0
1880 d=250:GOSUB 31000
1885                             '***End Zapsound***
1890 LINE(100,100)-(220,117),2,BF
1895 FOR V=100 TO 108
1900 FOR H=0 TO 90 STEP 20
1905 PSET(120+H,V),0
1910 NEXT H
1915 NEXT V
1920 FOR V=100 TO 105
1925 FOR H=0 TO 105 STEP 20
1930 PSET(110+H,V),0
1935 NEXT H
1940 NEXT V
1945 FOR V=100 TO 103
1950 FOR H=0 TO 110 STEP 10
1955 PSET(105+H,V),0
1960 NEXT H
1965 NEXT V
1970 d=750:GOSUB 31000
1975 GOSUB 30000                '*** Textpad ***
1980 PRINT FNCEN$("but that would be entirely up to us.",40)
1985 d=1500:GOSUB 31000
1990                           '***Zapsound***
1995 FOR A=0 TO 20
2000 OUT 66,A:OUT 66,A
2005 OUT 97,(INP(97) OR 3)
2010 NEXT A
2015 SOUND 37,0
2020 d=250:GOSUB 31000
2025                            '***End Zapsound***
2030 LINE(100,100)-(220,120),0,BF
2035 LINE(115,70)-(160,170)
2040 LINE-(205,70)
2045 LINE(115,70)-(205,70),3
2050 PAINT(160,110),3
2055 LINE(127,100)-(160,70)
2060 LINE-(193,100)
2065 LINE(128,100)-(160,70),0
2070 LINE-(192,100),0
2075 FOR H=127 TO 193 STEP 2
2080 PSET(H,100),0
2085 NEXT H
2090 LINE(160,70)-(160,170),0
2095 d=750:GOSUB 31000
2100 GOSUB 30000                '*** Textpad ***
2105 PRINT FNCEN$("Let's clear the deck for our next hints",40)
2110 d=1500:GOSUB 31000
2115 GOSUB 30000                '*** Textpad ***
2120 PRINT FNCEN$("so we can see what the essentials are.",40)
2125 d=1500:GOSUB 31000
2130 FOR A=0 TO 20
2135 OUT 66,A:OUT 66,A
2140 OUT 97,(INP(97) OR 3)
2145 NEXT A
2150 SOUND 37,0
2155 LINE(178,70)-(192,100)
2160 LINE(142,70)-(128,100)
2165 LINE(128,100)-(160,70)
2170 LINE-(192,100)
2175 LINE(128,100)-(192,100)
2180 LINE(160,70)-(160,170),0
2185 GOSUB 30000                '*** Textpad ***
2190 d=750:GOSUB 31000
2195 GOSUB 30000                '*** Textpad ***
2200 PRINT FNCEN$("This crease",40)
2205 d=750:GOSUB 31000
2210 FOR K=1 TO 15
2215 LINE(160,70)-(192,100)
2220 d=25:GOSUB 31000
2225 LINE(160,70)-(192,100),0
2230 NEXT K
2235 FOR K=1 TO 750: NEXT K
2240 GOSUB 30000                '*** Textpad ***
2245 PRINT FNCEN$("plays the most active role",40)
2250 d=1500:GOSUB 31000
2255 GOSUB 30000                '*** Textpad ***
2260 PRINT FNCEN$("and ends up as a MOUNTAIN FOLD,",40)
2265 d=1500:GOSUB 31000
2270 FOR K=1 TO 15
2275 LINE(192,100)-(160,70)
2280 d=25:GOSUB 31000
2285 LINE(192,100)-(160,70),2
2290 NEXT K
2295 FOR K=1 TO 750: NEXT K
2300 GOSUB 30000                '*** Textpad ***
2305 PRINT FNCEN$("and this crease",40)
2310 FOR K=1 TO 750: NEXT K
2315 FOR K=1 TO 15
2320 LINE(161,100)-(192,100),0
2325 d=25:GOSUB 31000
2330 LINE(161,100)-(192,100)
2335 NEXT K
2340 FOR H=160 TO 192 STEP 2
2345 PSET(H,100),0
2350 NEXT H
2355 d=750:GOSUB 31000
2360 GOSUB 30000                '*** Textpad ***
2365 PRINT FNCEN$("plays a passive role",40)
2370 FOR K=1 TO 1500: NEXT K
2375 GOSUB 30000                '*** Textpad ***
2380 PRINT FNCEN$("and ends up right where it is",40)
2385 FOR K=1 TO 1500: NEXT K
2390 GOSUB 30000                '*** Textpad ***
2395 PRINT FNCEN$("as a VALLEY FOLD.",40)
2400 FOR K=1 TO 1500: NEXT K
2405 FOR K=1 TO 15
2410 LINE(161,100)-(192,100),0
2415 d=25:GOSUB 31000
2420 LINE(161,100)-(192,100),1
2425 NEXT K
2430 d=750:GOSUB 31000
2435 GOSUB 30000                '*** Textpad ***
2440 PRINT FNCEN$("In other words,",40)
2445 FOR K=1 TO 750: NEXT K
2450 LINE(160,70)-(192,100)
2455 LINE-(161,100)
2460 d=750:GOSUB 31000
2465 GOSUB 30000                '*** Textpad ***
2470 PRINT FNCEN$("this corner",40)
2475 FOR K=1 TO 750: NEXT K
2480 FOR Q=0 TO 5
2485 LINE(160,75)-(160+Q,70+Q),0
2490 LINE-(165,70),0
2495 NEXT Q
2500 LINE(160,75)-(165,70),3
2505 d=1500:GOSUB 31000
2510 LINE(155,70)-(165,75),3,BF
2515 LINE(160,70)-(160,75),0
2520 GOSUB 30000                '*** Textpad ***
2525 PRINT FNCEN$("goes up in a MOUNTAIN FOLD",40)
2530 d=750:GOSUB 31000
2535 FOR K=1 TO 15
2540 LINE(160,70)-(192,100)
2545 d=25:GOSUB 31000
2550 LINE(160,70)-(192,100),2
2555 NEXT K
2560 FOR K=1 TO 750: NEXT K
2565 GOSUB 30000                '*** Textpad ***
2570 PRINT FNCEN$("over this VALLEY FOLD",40)
2575 d=750:GOSUB 31000
2580 FOR K=1 TO 15
2585 LINE(161,100)-(192,100),0
2590 d=25:GOSUB 31000
2595 LINE(161,100)-(192,100),1
2600 NEXT K
2605 d=750:GOSUB 31000
2610 GOSUB 30000                '*** Textpad ***
2615 PRINT FNCEN$("down to this point",40)
2620 d=750:GOSUB 31000
2625 FOR K=1 TO 15
2630 CIRCLE(160,130),5,0
2635 CIRCLE(160,130),5,0
2640 LINE(158,130)-(162,130),0
2645 LINE(160,128)-(160,132),0
2650 d=25:GOSUB 31000
2655 CIRCLE(160,130),5
2660 LINE(158,130)-(162,130)
2665 LINE(160,128)-(160,132)
2670 NEXT K
2675 LINE(160,125)-(160,135),0
2680 d=750:GOSUB 31000
2685 GOSUB 30000                '*** Textpad ***
2690 PRINT FNCEN$("along this line,",40)
2695 d=750:GOSUB 31000
2700 FOR K=1 TO 25
2705 LINE(160,70)-(160,130),3
2710 d=25:GOSUB 31000
2715 LINE(160,70)-(160,130),0
2720 NEXT K
2725 d=750:GOSUB 31000
2730 GOSUB 30000                '*** Textpad ***
2735 PRINT FNCEN$("SO!",40)
2740 d=750:GOSUB 31000
2745 FOR V=70 TO 130
2750 LINE(161,V)-(192,100),2
2755 LINE(161,V)-(192,100)
2760 d=25:GOSUB 31000
2765 NEXT V
2770 LINE(161,V)-(192,100),2
2775 d=1500:GOSUB 31000
2780 LINE(161,V)-(192,100)
2785 GOSUB 30000   '** Textpad **
2790 PRINT FNCEN$("Would you like to review those hints?",40)
2795 d=1500:GOSUB 31000
2800 GOSUB 30000       '*** Textpad ***
2805 PRINT FNCEN$("If so, press <R>.",40)
2810 d=1000:GOSUB 31000
2815 PRINT FNCEN$("If not, press <C> to continue.",40)
2820 A$=INKEY$:IF A$="" GOTO 2820
2825 IF A$="r" OR A$="R" GOTO 2840
2830 IF A$="c" OR A$="C" GOTO 2905
2835 GOTO 2785
2840 FOR H=128 TO 192 STEP 2
2845 PSET(H,100),0
2850 NEXT H
2855 LINE(160,30)-(142,70)
2860 LINE-(128,100),0
2865 LINE-(160,70),0
2870 LINE-(192,100),0
2875 LINE-(178,70),0
2880 LINE-(160,30)
2885 GOSUB 30000                '*** Textpad ***
2890 PRINT FNCEN$("* Review *",40)
2895 d=1500:GOSUB 31000
2900 GOTO 1810
2905 LINE(128,100)-(160,70),0
2910 LINE-(192,100),0
2915 FOR H=128 TO 192 STEP 2
2920 PSET(H,100),0
2925 NEXT H
2930 GOSUB 30000                '*** Textpad ***
2935 PRINT FNCEN$("OK!  Let's execute those folds!",40)
2940 d=1500:GOSUB 31000
2945 GOSUB 30000                '*** Textpad ***
2950 PRINT FNCEN$("And away we go!",40)
2955 d=750:GOSUB 31000
2960 GOSUB 30000                '*** Textpad ***
2965 LINE(160,70)-(192,100)
2970 FOR Q=1 TO 30
2975 LINE(160,30)-(205-.4*Q,70+.167*Q),3
2980 LINE-(192,100),3
2985 LINE(161,30)-(206-.4*Q,70+.167*Q),0
2990 LINE-(193,100),0
2995 LINE(162,30)-(207-.4*Q,70+.167*Q),0
3000 LINE-(194,100),0
3005 LINE(160,100)-(160,69+Q),0
3010 LINE-(205-.4*Q,70+.167*Q),0
3015 LINE(192,100)-(160,70+Q),0
3020 LINE(192,100)-(160,70+Q),3
3025 LINE(160,72+Q)-(190,101),0
3030 LINE(160,71+Q)-(191,100),0
3035 LINE(160,71+Q)-(191,100),3
3040 LINE(160,30)-(192,100),3
3045 NEXT Q
3050 LINE(161,85)-(161,91),0
3055 FOR Q=0 TO 20
3060 LINE(160,30)-(193-.45*Q,75+.35*Q),3
3065 LINE-(193,100),0
3070 LINE(160,30)-(194-.45*Q,75+.35*Q),0
3075 LINE(160,30)-(195-.45*Q,75+.35*Q),0
3080 LINE(193,101)-(160,101+Q),0
3085 LINE(193,100)-(160,100+Q),0
3090 LINE(160,100+Q)-(192-.45*Q,75+.35*Q),0
3095 LINE(192,100)-(160,100+Q),3
3100 LINE(192,100)-(178-.4*Q,87+.65*Q),0
3105 LINE(192,100)-(178-.4*Q,87+.65*Q),3
3110 LINE(161,100)-(192,100),3
3115 LINE(160,30)-(192,100),3
3120 PSET(160,100+Q),0
3125 PSET(160,100),0
3130 NEXT Q
3135 LINE(176,93)-(172,100),0
3140 LINE(175,93)-(171,100),0
3145 LINE(174,93)-(170,100),0
3150 LINE(160,100)-(173,100),3
3155 PSET(170,99),0
3160 LINE(160,120)-(192,100),3 'cleanup
3165 FOR Q=0 TO 24
3170 LINE(160,30)-(183-Q,82+.333*Q),3
3175 LINE-(192,100),3
3180 LINE(184-Q,82+.333*Q)-(160,120+.417*Q),3
3185 LINE(184-Q,82+.333*Q)-(160,120+.417*Q),3
3190 LINE(160,122+.417*Q)-(191,102),0
3195 LINE(160,120+.417*Q)-(193,100),3
3200 LINE(160,30)-(193,100),0
3205 LINE(160,30)-(194,100),0
3210 LINE(160,70)-(160,170),0
3215 NEXT Q
3220 PSET(183,85)
3225 LINE(160,132)-(191,102),3
3230 LINE(160,131)-(192,101),3
3235 LINE(160,170)-(193,100),3
3240 LINE-(160,30),3
3245 LINE(160,131)-(192,101),3
3250 LINE(160,130)-(193,100),0
3255 LINE(160,90)-(192,100),3
3260 LINE(161,71)-(179,96),3,BF
3265 PSET(180,79),3
3270 PSET(159,90),3
3275 PSET(176,69),3:PSET(181,81),3
3280 LINE(189,107)-(183,120)
3285 PSET(190,105),3:PSET(191,103),3:PSET(193,100),3
3290 LINE(159,60)-(159,69),0
3295 LINE(160,31)-(160,170),0
3300 PSET(159,91),3:PSET(158,91),3
3305 LINE(178,96)-(190,101),3,BF
3310 d=750:GOSUB 31000
3315 LINE(160,70)-(128,100)
3320 FOR Q= 1 TO 30
3325 LINE(160,30)-(115+.4*Q,70+.167*Q),3
3330 LINE-(128,100),3
3335 LINE(159,30)-(114+.4*Q,70+.167*Q),0
3340 LINE-(114,100),0
3345 LINE(158,30)-(113+.4*Q,70+.167*Q),0
3350 LINE-(126,100),0
3355 LINE(160,100)-(160,69+Q),0
3360 LINE-(115+.4*Q,70+.167*Q),0
3365 LINE(130,100)-(160,72+Q),0
3370 LINE(129,100)-(160,71+Q),0
3375 LINE(129,100)-(160,71+Q),3
3380 LINE(160,30)-(128,100),3
3385 NEXT Q
3390 FOR Q=0 TO 20
3395 LINE(160,30)-(127+.45*Q,75+.35*Q),3
3400 LINE-(127,100),0
3405 LINE(160,30)-(126+.45*Q,75+.35*Q),0
3410 LINE(160,30)-(125+.45*Q,75+.35*Q),0
3415 LINE(127,101)-(160,101+Q),0
3420 LINE(127,100)-(160,100+Q),0
3425 LINE(160,100+Q)-(128+.45*Q,75+.35*Q),0
3430 LINE(128,100)-(160,100+Q),3
3435 LINE(128,100)-(142+.4*Q,87+.65*Q),0
3440 LINE(128,100)-(142+.4*Q,87+.65*Q),3
3445 LINE(161,100)-(128,100),3
3450 LINE(160,30)-(128,100),3
3455 PSET(131,81),0
3460 LINE(126,77)-(126,87),0
3465 NEXT Q
3470 LINE(144,93)-(148,100),0
3475 LINE(145,93)-(149,100),0
3480 LINE(146,93)-(150,100),0
3485 LINE(160,100)-(147,100),3
3490 PSET(150,99),0
3495 LINE(160,120)-(128,100),3 'cleanup
3500 FOR Q=0 TO 24
3505 LINE(160,30)-(137+Q,82+.333*Q),3
3510 LINE-(128,100),3
3515 LINE(136+Q,82+.333*Q)-(160,120+.417*Q),3
3520 LINE(160,121+.417*Q)-(127,101),0
3525 LINE(160,120+.417*Q)-(128,100),3
3530 LINE(160,70)-(160,170),0
3535 LINE(135,81)-(132,88),0
3540 NEXT Q
3545 PSET(130,105)
3550 LINE(159,101)-(127,101),3
3555 LINE(161,90)-(130,100),3
3560 LINE(162,91)-(131,100),3
3565 LINE(138,78)-(155,85),3,BF
3570 PSET(144,69),3
3575 PSET(142,74),3
3580 PSET(127,102),0
3585 LINE(160,131)-(128,101),3  '
3590 LINE(160,131)-(127,101),3  '
3595 LINE(160,30)-(160,170),0   '
3600 LINE(160,170)-(127,100),3  '
3605 LINE-(160,30),3
3610 LINE(127,100)-(160,130),0
3615 LINE(131,107)-(137,120),3
3620 LINE(160,30)-(127,100)
3625 LINE-(160,170)
3630 LINE-(193,100)
3635 LINE-(160,30)
3640 PAINT(160,100),3
3645 LINE(160,30)-(160,170),0
3650 LINE(127,100)-(160,130),0
3655 LINE-(193,100),0
3660 GOSUB 30000       '*** Textpad ***
3665 PRINT FNCEN$("To review those folds, press <R>.",40)
3670 d=1000:GOSUB 31000
3675 PRINT FNCEN$("To continue, press <C>",40)
3680 A$=INKEY$:IF A$="" GOTO 3680
3685 IF A$="r" OR A$="R" GOTO 3700
3690 IF A$="c" OR A$="C" GOTO 3840
3695 GOTO 3660
3700 FOR A=0 TO 20
3705 OUT 66,A:OUT 66,A
3710 OUT 97,(INP(97) OR 3)
3715 NEXT A
3720 SOUND 37,0
3725 CLS
3730 LINE(160,30)-(115,70)
3735 LINE-(160,170)
3740 LINE-(205,70)
3745 LINE-(160,30)
3750 LINE(115,70)-(205,70)
3755 PAINT(160,130)
3760 LINE(115,70)-(160,30)
3765 LINE-(205,70)
3770 FOR V=30 TO 70 STEP 2
3775 PSET(160,V)
3780 NEXT V
3785 FOR H=128 TO 192 STEP 2
3790 PSET(H,100),0
3795 NEXT H
3800 LINE(128,100)-(160,70),0
3805 LINE-(192,100),0
3810 LINE(160,70)-(160,170),0
3815 GOSUB 30000                '*** Textpad ***
3820 PRINT FNCEN$("* Review *",40)
3825 d=1500:GOSUB 31000
3830 GOTO 2930
3835 '****************
3840 GOSUB 30000      '** Textpad **
3845 PRINT FNCEN$("Here are CHICK's other creases,",40)
3850 d=750:GOSUB 31000
3855 FOR K=1 TO 25
3860 LINE(127,100)-(160,90),1
3865 LINE-(193,100),1
3870 LINE-(160,115),1
3875 LINE-(127,100),1
3880 d=25:GOSUB 31000
3885 LINE(127,100)-(160,90),0
3890 LINE-(193,100),0
3895 LINE-(160,115),0
3900 LINE-(127,100),0
3905 NEXT K
3910 d=750:GOSUB 31000
3915 GOSUB 30000      '** Textpad **
3920 PRINT FNCEN$("two of which are not important.",40)
3925 d=750:GOSUB 31000
3930 FOR K=0 TO 25
3935 LINE(127,100)-(160,115),1
3940 LINE-(193,100),1
3945 d=25:GOSUB 31000
3950 LINE(127,100)-(160,115),0
3955 LINE-(193,100),0
3960 NEXT K
3965 LINE(127,100)-(160,115)
3970 LINE-(193,100)
3975 PSET(160,115),0
3980 LINE(127,100)-(160,90),0
3985 LINE-(193,100),0
3990 d=750:GOSUB 31000
3995 GOSUB 30000      '** Textpad **
4000 PRINT FNCEN$("Let's proceed.",40)
4005 d=1500:GOSUB 31000
4010 GOSUB 30000      '** Textpad **
4015 PRINT FNCEN$("First, we turn CHICK over",40)
4020 d=1500:GOSUB 31000
4025 GOSUB 30000      '** Textpad **
4030 PRINT FNCEN$("SO!",40)
4035 d=750:GOSUB 31000
4040 LINE(156,163)-(160,171),0
4045 LINE-(164,163),0
4050 FOR H=125 TO 160
4055 LINE(160,30)-(H,100),0
4060 LINE-(160,170),0
4065 LINE(160,90)-(H,100),0
4070 LINE-(160,130),0
4075 LINE(160,90)-(H,100)
4080 LINE-(160,130)
4085 LINE(H,30)-(H,170),0
4090 LINE(160,30)-(320-H,100),0
4095 LINE-(160,170),0
4100 LINE(160,90)-(320-H,100),0
4105 LINE-(160,130),0
4110 LINE(160,90)-(320-H,100)
4115 LINE-(160,130)
4120 LINE(320-H,30)-(320-H,170),0
4125 NEXT H
4130 FOR H=160 TO 125 STEP -1
4135 LINE(160,30)-(H,100)
4140 LINE-(160,170)
4145 LINE(160,30)-(320-H,100)
4150 LINE-(160,170)
4155 NEXT H
4160 FOR V=30 TO 170 STEP 2
4165 PSET(160,V),0
4170 NEXT V
4175 d=750:GOSUB 31000
4180 GOSUB 30000      '** Textpad **
4185 PRINT FNCEN$("Our first folds are preparatory folds",40)
4190 d=1500:GOSUB 31000
4195 PRINT FNCEN$("for CHICK's beak,",40)
4200 d=1500:GOSUB 31000
4205 PRINT FNCEN$("the size of which we ourselves control.",40)
4210 d=1500:GOSUB 31000
4215 GOSUB 30000      '** Textpad **
4220 PRINT FNCEN$("We begin by folding this corner",40)
4225 d=750:GOSUB 31000
4230                             '*** arrow down ***
4235 FOR K=1 TO 15
4240 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
4245 PAINT(160,16)
4250 d=25:GOSUB 31000
4255 CIRCLE(160,16),7,0
4260 PAINT(160,16),0
4265 NEXT K
4270                             '***end arrow down ***
4275 d=750:GOSUB 31000
4280 GOSUB 30000      '** Textpad **
4285 PRINT FNCEN$("down across this line of our choosing,",40)
4290 d=750:GOSUB 31000
4295 FOR H=153 TO 167 STEP 2
4300 PSET(H,45),0
4305 NEXT H
4310 d=750:GOSUB 31000
4315 GOSUB 30000      '** Textpad **
4320 PRINT FNCEN$("THUS!",40)
4325 d=750:GOSUB 31000
4330 FOR V=30 TO 45
4335 LINE(152,45)-(160,V),0
4340 LINE-(168,45),0
4345 NEXT V
4350 FOR V=45 TO 60
4355 LINE(152,45)-(160,V),0
4360 LINE-(168,45),0
4365 LINE(152,45)-(160,V)
4370 LINE-(168,45)
4375 PSET(160,V),0
4380 NEXT V
4385 LINE(152,45)-(160,60),0
4390 LINE-(168,45),0
4395 LINE(160,45)-(160,60),0
4400 d=1500:GOSUB 31000
4405 GOSUB 30000      '** Textpad **
4410 PRINT FNCEN$("Our next fold takes us back up again",40)
4415 d=1500:GOSUB 31000
4420 GOSUB 30000      '** Textpad **
4425 PRINT FNCEN$("across this line,",40)
4430 d=750:GOSUB 31000
4435 FOR H=155 TO 165 STEP 2
4440 PSET(H,50),0
4445 NEXT H
4450 d=750:GOSUB 31000
4455 PRINT FNCEN$("again of our own choosing,",40)
4460 d=1500:GOSUB 31000
4465 GOSUB 30000      '** Textpad **
4470 PRINT FNCEN$("SO!",40)
4475 d=750:GOSUB 31000
4480 FOR V=60 TO 40 STEP -1
4485 LINE(155,50)-(160,V),0
4490 LINE-(165,50),0
4495 LINE(155,50)-(160,V)
4500 LINE-(165,50)
4505 LINE(155,51)-(160,60)
4510 LINE-(165,51)
4515 FOR W=42 TO 60 STEP 2
4520 PSET(160,W),0
4525 NEXT W
4530 NEXT V
4535 LINE(157,45)-(155,50),0
4540 LINE-(165,50),0
4545 LINE-(163,45),0
4550 d=750:GOSUB 31000
4555 GOSUB 30000       '*** Textpad ***
4560 PRINT FNCEN$("Want to see those folds again?",40)
4565 d=1500:GOSUB 31000
4570 GOSUB 30000       '*** Textpad ***
4575 PRINT FNCEN$("If so, press <R>.",40)
4580 d=1000:GOSUB 31000
4585 PRINT FNCEN$("If not, press <C> to continue.",40)
4590 A$=INKEY$:IF A$="" GOTO 4590
4595 IF A$="r" OR A$="R" GOTO 4610
4600 IF A$="c" OR A$="C" GOTO 4720
4605 GOTO 4570
4610 GOTO 4615
4615 GOSUB 30000       '*** Textpad ***
4620 PRINT FNCEN$("* Review *",40)
4625 d=1500:GOSUB 31000
4630 CLS
4635                            '***Zapsound***
4640 FOR A=0 TO 20
4645 OUT 66,A:OUT 66,A
4650 OUT 97,(INP(97) OR 3)
4655 NEXT A
4660 SOUND 37,0
4665                             '***End Zapsound***
4670             '*** start draw ***
4675 LINE(160,30)-(125,100)
4680 LINE-(160,170)
4685 LINE-(195,100)
4690 LINE-(160,30)
4695 PAINT(160,100)
4700 FOR V=32 TO 170 STEP 2
4705 PSET(160,V),0
4710 NEXT V
4715 GOTO 4215
4720 GOSUB 30000      '** Textpad **
4725 PRINT FNCEN$("We'll be using those folds",40)
4730 d=1500:GOSUB 31000
4735 PRINT FNCEN$("for CHICK's beak later on.",40)
4740 d=1500:GOSUB 31000
4745 GOSUB 30000      '** Textpad **
4750 PRINT FNCEN$("Let's move on.",40)
4755 d=1500:GOSUB 31000
4760 FOR V=50 TO 30 STEP -1
4765 LINE(150,50)-(160,V)
4770 LINE-(170,50)
4775 FOR W=32 TO 50 STEP 2
4780 PSET(160,W),0
4785 NEXT W
4790 NEXT V
4795 FOR H=150 TO 170 STEP 2
4800 PSET(H,40),0
4805 PSET(H,45),0
4810 NEXT H
4815 d=750:GOSUB 31000
4820 GOSUB 30000      '** Textpad **
4825 PRINT FNCEN$("and fold CHICK's left side",40)
4830 d=750:GOSUB 31000
4835 FOR V=30 TO 170 STEP 2
4840 PSET(160,V),0
4845 NEXT V
4850 d=500:GOSUB 31000
4855 FOR K=1 TO 15
4860 LINE(160,30)-(125,100),0
4865 LINE-(160,170),0
4870 d=25:GOSUB 31000
4875 LINE(160,30)-(125,100)
4880 LINE-(160,170)
4885 NEXT K
4890 d=750:GOSUB 31000
4895 GOSUB 30000      '** Textpad **
4900 PRINT FNCEN$("over onto its right side,",40)
4905 d=750:GOSUB 31000
4910 FOR K=1 TO 15
4915 LINE(160,30)-(195,100),0
4920 LINE-(160,170),0
4925 d=25:GOSUB 31000
4930 LINE(160,30)-(195,100)
4935 LINE-(160,170)
4940 NEXT K
4945 d=750:GOSUB 31000
4950 GOSUB 30000      '** Textpad **
4955 PRINT FNCEN$("SO!",40)
4960 d=750:GOSUB 31000
4965 FOR H=125 TO 160
4970 LINE(160,30)-(H,100),0
4975 LINE-(160,170),0
4980 NEXT H
4985 FOR H=160 TO 195
4990 LINE(160,30)-(H,100),0
4995 LINE-(160,170),0
5000 LINE(160,30)-(H,100)
5005 LINE-(160,170)
5010 NEXT H
5015 LINE(160,90)-(195,100),0
5020 LINE-(160,130),0
5025 d=750:GOSUB 31000
5030 GOSUB 30000      '** Textpad **
5035 PRINT FNCEN$("There!  Now I'll position myself",40)
5040 d=1500:GOSUB 31000
5045 PRINT FNCEN$("more comfortably.",40)
5050 d=1500:GOSUB 31000
5055 GOSUB 30000      '** Textpad **
5060 PRINT FNCEN$("One moment, please.",40)
5065 d=750:GOSUB 31000
5070 CLS
5075                          '***Zapsound***
5080 FOR A=0 TO 20
5085 OUT 66,A:OUT 66,A
5090 OUT 97,(INP(97) OR 3)
5095 NEXT A
5100 SOUND 37,0
5105                             '***End Zapsound***
5110 LINE(80,100)-(240,100)
5115 LINE-(160,130)
5120 LINE-(80,100)
5125 PAINT(160,115)
5130 LINE(125,100)-(160,130),0
5135 LINE-(173,100),0
5140 d=750:GOSUB 31000
5145 GOSUB 30000      '** Textpad **
5150 PRINT FNCEN$("We now fold and backfold this corner",40)
5155 d=1500:GOSUB 31000
5160                             '*** arrow left ***
5165 FOR K=1 TO 15
5170 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
5175 PAINT(254,100)
5180 d=25:GOSUB 31000
5185 CIRCLE(254,100),7,0
5190 PAINT(254,100),0
5195 NEXT K
5200                             '***end arrow left ***
5205 d=750:GOSUB 31000
5210 GOSUB 30000      '** Textpad **
5215 PRINT FNCEN$("up to this point",40)
5220 d=750:GOSUB 31000
5225                               '*** flashdot ***
5230 FOR K=1 TO 15
5235 CIRCLE(125,60),5,3
5240 LINE(123,60)-(127,60),3
5245 LINE(125,58)-(125,62),3
5250 d=25:GOSUB 31000
5255 CIRCLE(125,60),5,0
5260 LINE(123,60)-(127,60),0
5265 LINE(125,58)-(125,62),0
5270 NEXT K
5275 d=750:GOSUB 31000
5280 GOSUB 30000      '** Textpad **
5285 PRINT FNCEN$("across this crease,",40)
5290 d=750:GOSUB 31000
5295 FOR K=1 TO 25
5300 LINE(173,100)-(160,130),1
5305 d=25:GOSUB 31000
5310 LINE(173,100)-(160,130),0
5315 NEXT K
5320 d=750:GOSUB 31000
5325 GOSUB 30000      '** Textpad **
5330 PRINT FNCEN$("SO!",40)
5335 d=750:GOSUB 31000
5340 FOR Q=0 TO 58
5345 LINE(160,130)-(240-Q,100-.34*Q)
5350 LINE-(173,100)
5355 LINE(160,130)-(240-Q,100-.34*Q),0
5360 LINE(160,130)-(241-Q,100-.34*Q),0
5365 NEXT Q
5370 FOR Q=0 TO 57
5375 LINE(160,130)-(182-Q,80-.35*Q),0
5380 LINE(160,130)-(182-Q,80-.35*Q)
5385 LINE-(173,100)
5390 LINE-(182-Q,80-.35*Q),0
5395 PSET(177,81),0:PSET(174,99),0
5400 PSET(175,97),0:PSET(178,90),0
5405 NEXT Q
5410 LINE(124,60)-(160,130),0
5415 d=750:GOSUB 31000
5420 GOSUB 30000      '** Textpad **
5425 PRINT FNCEN$("and return!",40)
5430 d=750:GOSUB 31000
5435 FOR Q=0 TO 57
5440 LINE(173,100)-(125+Q,60+.35*Q)
5445 LINE-(160,130)
5450 LINE(160,130)-(125+Q,60+.35*Q),0
5455 LINE(142+.49*Q,100)-(160,130)
5460 PSET(172,79),0:PSET(174,79),0:PSET(177,80),0
5465 LINE(171,83)-(179,83),0
5470 PSET(175,86),0:PSET(177,88),0
5475 NEXT Q
5480 LINE(160,130)-(173,100)
5485 LINE(160,129)-(172,100)
5490 LINE(160,128)-(171,100)
5495 LINE(125,100)-(160,130),0
5500 FOR Q=0 TO 58
5505 LINE(160,130)-(182+Q,80+.34*Q)
5510 LINE-(173,100)
5515 LINE(182+Q,80+.34*Q)-(173,99),0
5520 LINE(181+Q,80+.34*Q)-(173,99),0
5525 LINE(160,130)-(173,100),0
5530 LINE(160,130)-(173,100),0
5535 NEXT Q
5540 LINE(174,100)-(240,100)
5545 LINE(185,101)-(222,107),3,BF
5550 LINE(223,104)-(228,102)
5555 LINE(228,104)-(236,101)
5560 PSET(225,105)
5565 d=750:GOSUB 31000
5570 GOSUB 30000   '** Textpad **
5575 PRINT FNCEN$("Your turn to fold and backfold.",40)
5580 d=1500:GOSUB 31000
5585 GOSUB 30000       '*** Textpad ***
5590 PRINT FNCEN$("Press <R> for a review of that fold.",40)
5595 d=1000:GOSUB 31000
5600 PRINT FNCEN$("Press <C> to continue.",40)
5605 A$=INKEY$:IF A$="" GOTO 5605
5610 IF A$="r" OR A$="R" GOTO 5625
5615 IF A$="c" OR A$="C" GOTO 5645
5620 GOTO 5585
5625 GOSUB 30000       '*** Textpad ***
5630 PRINT FNCEN$("* Review *",40)
5635 d=1500:GOSUB 31000
5640 GOTO 5145
5645 GOSUB 30000       '*** Textpad ***
5650 PRINT FNCEN$("Our next fold takes this corner",40)
5655 d=1500:GOSUB 31000
5660                             '*** arrow left ***
5665 FOR K=1 TO 15
5670 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
5675 PAINT(254,100)
5680 d=25:GOSUB 31000
5685 CIRCLE(254,100),7,0
5690 PAINT(254,100),0
5695 NEXT K
5700                             '***end arrow left ***
5705 d=750:GOSUB 31000
5710 GOSUB 30000      '** Textpad **
5715 PRINT FNCEN$("back up again to this point",40)
5720 d=750:GOSUB 31000
5725                               '*** flashdot ***
5730 FOR K=1 TO 15
5735 CIRCLE(125,60),5,3
5740 LINE(123,60)-(127,60),3
5745 LINE(125,58)-(125,62),3
5750 d=25:GOSUB 31000
5755 CIRCLE(125,60),5,0
5760 LINE(123,60)-(127,60),0
5765 LINE(125,58)-(125,62),0
5770 NEXT K
5775 d=750:GOSUB 31000
5780 GOSUB 30000      '** Textpad **
5785 PRINT FNCEN$("across this same crease,",40)
5790 d=750:GOSUB 31000
5795 FOR K=1 TO 25
5800 LINE(173,100)-(160,130),1
5805 d=25:GOSUB 31000
5810 LINE(173,100)-(160,130),0
5815 NEXT K
5820 d=750:GOSUB 31000
5825 GOSUB 30000      '** Textpad **
5830 PRINT FNCEN$("but with this difference:",40)
5835 d=1500:GOSUB 31000
5840 GOSUB 30000      '** Textpad **
5845 PRINT FNCEN$("this fold is a HOOD FOLD,",40)
5850 d=1500:GOSUB 31000
5855 PRINT FNCEN$("and we will have to open CHICK up",40)
5860 d=1500:GOSUB 31000
5865 PRINT FNCEN$("considerably to execute it,",40)
5870 d=1500:GOSUB 31000
5875 GOSUB 30000      '** Textpad **
5880 PRINT FNCEN$("SO!",40)
5885 d=750:GOSUB 31000
5890 LINE(80,100)-(160,140)
5895 LINE-(240,100)
5900 PAINT(160,135)
5905 LINE(80,100)-(160,131),0
5910 LINE-(240,100),0
5915 LINE(125,100)-(160,130),0
5920 LINE-(173,100),0
5925 FOR K=1 TO 15
5930 PSET(160,148):DRAW"g5r4d7r2u7r4h5"
5935 PAINT(160,154)
5940 d=25:GOSUB 31000
5945 CIRCLE(160,154),7,0
5950 PAINT(160,154),0
5955 NEXT K
5960 d=750:GOSUB 31000
5965 LINE(80,100)-(160,140),0
5970 LINE-(240,100),0
5975 PAINT(160,135),0
5980 PSET(95,107),0:PSET(96,107),0
5985 PSET(224,107),0:PSET(225,107),0
5990 GOSUB 30000      '** Textpad **
5995 PRINT FNCEN$("OK!  Here we go!",40)
6000 d=1500:GOSUB 31000
6005 GOSUB 30000      '** Textpad **
6010 PRINT FNCEN$("WATCH!",40)
6015 d=750:GOSUB 31000
6020 FOR A=0 TO 20
6025 OUT 66,A:OUT 66,A
6030 OUT 97,(INP(97) OR 3)
6035 NEXT A
6040 SOUND 37,0
6045 LINE(173,100)-(160,130),0
6050 LINE-(239,100),0
6055 LINE-(173,100),0
6060 PAINT(200,110),0
6065 LINE(160,130)-(173,100)
6070 LINE(124,60)-(160,130),0
6075 LINE(140,100)-(124,60)
6080 LINE-(173,101)
6085 PAINT(140,95)
6090 LINE(124,60)-(160,130),0
6095 LINE(80,99)-(145,99),0
6100 d=750:GOSUB 31000
6105 GOSUB 30000   '** Textpad **
6110 PRINT FNCEN$("The trick to that fold",40)
6115 d=1500:GOSUB 31000
6120 PRINT FNCEN$("is to open CHICK up enough",40)
6125 d=1500:GOSUB 31000
6130 PRINT FNCEN$("so that we can execute it.",40)
6135 d=1500:GOSUB 31000
6140 GOSUB 30000       '*** Textpad ***
6145 PRINT FNCEN$("Your turn.  To review, press <R>.",40)
6150 d=1000:GOSUB 31000
6155 PRINT FNCEN$("To continue, press <C>.",40)
6160 A$=INKEY$:IF A$="" GOTO 6160
6165 IF A$="r" OR A$="A" GOTO 6180
6170 IF A$="c" OR A$="C" GOTO 6265
6175 GOTO 6140
6180 GOSUB 30000       '*** Textpad ***
6185 PRINT FNCEN$("* Review *",40)
6190 d=750:GOSUB 31000
6195 FOR A=0 TO 20
6200 OUT 66,A:OUT 66,A
6205 OUT 97,(INP(97) OR 3)
6210 NEXT A
6215 SOUND 37,0
6220 CLS
6225 LINE(80,100)-(240,100)
6230 LINE-(160,130)
6235 LINE-(80,100)
6240 PAINT(160,115)
6245 LINE(125,100)-(160,130),0
6250 LINE-(173,100),0
6255 d=750:GOSUB 31000
6260 GOTO 5645
6265 GOSUB 30000       '*** Textpad ***
6270 PRINT FNCEN$("Back to 2-D!",40)
6275 d=750:GOSUB 31000
6280 FOR A=0 TO 20
6285 OUT 66,A:OUT 66,A
6290 OUT 97,(INP(97) OR 3)
6295 NEXT A
6300 SOUND 37,0
6305 d=250:GOSUB 31000
6310 LINE(145,99)-(124,60),0
6315 LINE-(139,99),0
6320 PAINT(140,95),0
6325 LINE(128,69)-(131,76),0
6330 GOSUB 30000       '*** Textpad ***
6335 PRINT FNCEN$("We next fold and backfold this corner",40)
6340 d=750:GOSUB 31000
6345 FOR K=1 TO 15
6350 PSET(125,54):DRAW"E5L4U7L2D7L4F5"
6355 PAINT(125,48)
6360 d=25:GOSUB 31000
6365 CIRCLE(125,48),7,0
6370 PAINT(125,48),0
6375 NEXT K
6380 d=750:GOSUB 31000
6385 GOSUB 30000   '** Textpad **
6390 PRINT FNCEN$("down to this point",40)
6395 d=750:GOSUB 31000
6400 FOR K=1 TO 15
6405 CIRCLE(190,115),5
6410 LINE(188,115)-(192,115)
6415 LINE(190,113)-(190,117)
6420 d=25:GOSUB 31000
6425 CIRCLE(190,115),5,0
6430 LINE(188,115)-(192,115),0
6435 LINE(190,113)-(190,117),0
6440 NEXT K
6445 d=750:GOSUB 31000
6450 GOSUB 30000   '** Textpad **
6455 PRINT FNCEN$("across this line,",40)
6460 d=750:GOSUB 31000
6465 LINE(145,100)-(157,88),0
6470 d=750:GOSUB 31000
6475 GOSUB 30000   '** Textpad **
6480 PRINT FNCEN$("THUS!",40)
6485 d=750:GOSUB 31000
6490 LINE(126,60)-(191,115),0 '<X>
6495 FOR Q=0 TO 32
6500 LINE(145,100)-(125+Q,60+.88*Q),0
6505 LINE-(157,88),0
6510 d=10:GOSUB 31000
6515 NEXT Q
6520 LINE(149,80)-(157,87),0
6525 LINE(150,84)-(156,88),0
6530 LINE(154,90)-(157,88),0
6535 PSET(152,88),0:PSET(152,91),0
6540 FOR Q=0 TO 33
6545 LINE(145,100)-(157+Q,88+.82*Q),0
6550 LINE-(157,88),0
6555 LINE(145,100)-(157+Q,88+.82*Q)
6560 LINE-(157,88)
6565 d=10:GOSUB 31000
6570 NEXT Q
6575 LINE(146,99)-(157,88),0
6580 LINE(145,100)-(190,115),0
6585 PSET(158,88)
6590 d=750:GOSUB 31000
6595 GOSUB 30000   '** Textpad **
6600 PRINT FNCEN$("and back!",40)
6605 d=750:GOSUB 31000
6610 FOR Q=0 TO 17
6615 LINE(158,87)-(190-Q,115-.88*Q),0
6620 LINE-(145,100),0
6625 LINE(145,100)-(169+.18*Q,110-.53*Q)
6630 PSET(149,101):PSET(157,102)
6635 PSET(165,103):PSET(166,103)
6640 PSET(163,104):PSET(168,105)
6645 PSET(165,107):PSET(168,108)
6650 LINE(126,60)-(191,115),0 '<X>
6655 NEXT Q
6660 LINE(160,130)-(173,100)
6665 FOR Q=0 TO 48
6670 LINE(145,100)-(173-Q,100-.83*Q),0
6675 LINE-(157,88),0
6680 LINE(145,100)-(173-Q,100-.83*Q)
6685 LINE-(157,88)
6690 LINE(156,89)-(152,93)
6695 LINE(126,60)-(191,115),0 '<X>
6700 LINE(145,100)-(157,88),0
6705 NEXT Q
6710 PSET(153,87):PSET(153,89):PSET(155,88)
6715 LINE(150,83)-(164,94)
6720 d=750:GOSUB 31000
6725 GOSUB 30000   '** Textpad **
6730 PRINT FNCEN$("Your turn to fold and backfold.",40)
6735 d=1500:GOSUB 31000
6740 GOSUB 30000   '** Textpad **
6745 PRINT FNCEN$("To review that fold, press <R>.",40)
6750 d=1000:GOSUB 31000
6755 PRINT FNCEN$("To continue, press <C>.",40)
6760 A$=INKEY$:IF A$="" GOTO 6760
6765 IF A$="r" OR A$="R" GOTO 6780
6770 IF A$="c" OR A$="C" GOTO 6805
6775 GOTO 6740
6780 GOSUB 30000       '*** Textpad ***
6785 PRINT FNCEN$("* Review *",40)
6790 d=750:GOSUB 31000
6795 LINE(145,100)-(157,88)
6800 GOTO 6330
6805 GOSUB 30000   '** Textpad **
6810 PRINT FNCEN$("We again take this corner",40)
6815 d=1500:GOSUB 31000
6820 FOR K=1 TO 15
6825 PSET(125,54):DRAW"E5L4U7L2D7L4F5"
6830 PAINT(125,48)
6835 d=25:GOSUB 31000
6840 CIRCLE(125,48),7,0
6845 PAINT(125,48),0
6850 NEXT K
6855 d=750:GOSUB 31000
6860 GOSUB 30000   '** Textpad **
6865 PRINT FNCEN$("down to this point",40)
6870 d=750:GOSUB 31000
6875 FOR K=1 TO 15
6880 CIRCLE(190,115),5
6885 LINE(188,115)-(192,115)
6890 LINE(190,113)-(190,117)
6895 d=25:GOSUB 31000
6900 CIRCLE(190,115),5,0
6905 LINE(188,115)-(192,115),0
6910 LINE(190,113)-(190,117),0
6915 NEXT K
6920 d=750:GOSUB 31000
6925 GOSUB 30000   '** Textpad **
6930 PRINT FNCEN$("across this crease,",40)
6935 d=750:GOSUB 31000
6940 FOR K=1 TO 15
6945 LINE(145,100)-(157,88)
6950 d=25:GOSUB 31000
6955 LINE(145,100)-(157,88),0
6960 NEXT K
6965 d=750:GOSUB 31000
6970 GOSUB 30000   '** Textpad **
6975 PRINT FNCEN$("but again there's a difference:",40)
6980 d=1500:GOSUB 31000
6985 GOSUB 30000   '** Textpad **
6990 PRINT FNCEN$("this fold is a REVERSE HOOD FOLD,",40)
6995 d=1500:GOSUB 31000
7000 PRINT FNCEN$("and we will have to open CHICK up",40)
7005 d=1500:GOSUB 31000
7010 PRINT FNCEN$("considerably to execute it,",40)
7015 d=1500:GOSUB 31000
7020 GOSUB 30000   '** Textpad **
7025 PRINT FNCEN$("THUS!",40)
7030 d=750:GOSUB 31000
7035 FOR A=0 TO 20
7040 OUT 66,A:OUT 66,A
7045 OUT 97,(INP(97) OR 3)
7050 NEXT A
7055 SOUND 37,0
7060 LINE(124,60)-(160,130),0
7065 LINE(124,60)-(140,100)
7070 PAINT(140,95)
7075 LINE(80,99)-(145,99),0
7080 LINE(80,100)-(162,135)
7085 LINE-(173,100)
7090 PAINT(160,132)
7095 LINE(124,60)-(160,130),0
7100 LINE(80,100)-(160,130),0
7105 LINE-(173,100),0
7110 d=750:GOSUB 31000
7115 GOSUB 30000   '*** Textpad ***
7120 PRINT FNCEN$("Ready for our fold?  <C> to continue.",40)
7125 A$=INKEY$:IF A$="" GOTO 7125
7130 IF A$="C" OR A$="c" GOTO 7140
7135 GOTO 7115
7140 GOSUB 30000   '** Textpad **
7145 PRINT FNCEN$("SO!",40)
7150 d=750:GOSUB 31000
7155 LINE(145,99)-(124,60),0
7160 LINE-(139,99),0
7165 PAINT(140,95),0
7170 LINE(128,69)-(131,76),0
7175 LINE(80,100)-(162,135),0
7180 LINE-(173,100),0
7185 PAINT(160,132),0
7190 LINE(110,112)-(124,117),0
7195 LINE(110,113)-(124,118),0
7200 PSET(167,115),0
7205 d=750:GOSUB 31000
7210 FOR A=0 TO 20
7215 OUT 66,A:OUT 66,A
7220 OUT 97,(INP(97) OR 3)
7225 NEXT A
7230 SOUND 37,0
7235 LINE(145,100)-(125,60),0
7240 LINE-(157,88),0
7245 LINE-(145,100),0
7250 PAINT(145,85),0
7255 LINE(120,60)-(157,87),0,BF
7260 LINE(145,100)-(190,115)
7265 LINE-(158,88)
7270 LINE-(145,100)
7275 PAINT(175,105)
7280 PAINT(150,98)
7285 LINE(158,127)-(145,100)
7290 LINE(190,115)-(145,100)
7295 LINE(158,88)-(148,103),0
7300 LINE-(190,116),0
7305 LINE(148,103)-(160,130),0
7310 LINE(145,99)-(150,99),0
7315 PSET(186,113):PSET(187,113)
7320 d=750:GOSUB 31000
7325 GOSUB 30000   '*** Textpad ***
7330 PRINT FNCEN$("There!  Your turn.  <C> to continue.",40)
7335 A$=INKEY$:IF A$="" GOTO 7335
7340 IF A$="C" OR A$="c" GOTO 7350
7345 GOTO 7325
7350 GOSUB 30000   '** Textpad **
7355 PRINT FNCEN$("Now the very first folds we made",40)
7360 d=1500:GOSUB 31000
7365 PRINT FNCEN$("way back when we first started",40)
7370 d=1500:GOSUB 31000
7375 LINE(171,109)-(176,103),0 'beak
7380 LINE(177,112)-(181,107),0 'beak
7385 d=250:GOSUB 31000
7390 FOR K=1 TO 15
7395 PSET(183,100):DRAW"E5L4U7L2D7L4F5"
7400 PAINT(183,94)
7405 d=25:GOSUB 31000
7410 CIRCLE(183,94),7,0
7415 PAINT(183,94),0
7420 NEXT K
7425 d=750:GOSUB 31000
7430 PRINT FNCEN$("come into play to form CHICK's beak,",40)
7435 d=1500:GOSUB 31000
7440 GOSUB 30000   '** Textpad **
7445 PRINT FNCEN$("and we'll have to open CHICK up again",40)
7450 d=1500:GOSUB 31000
7455 FOR A=0 TO 20
7460 OUT 66,A:OUT 66,A
7465 OUT 97,(INP(97) OR 3)
7470 NEXT A
7475 SOUND 37,0
7480 LINE(80,100)-(162,135)
7485 LINE-(173,100)
7490 PAINT(160,132)
7495 LINE(80,100)-(160,130),0
7500 LINE-(169,109),0
7505 LINE(125,100)-(160,130),0
7510 LINE-(148,103),0
7515 LINE(190,115)-(171,112)
7520 PAINT(172,111)
7525 LINE(190,115)-(148,103),0
7530 LINE(163,135)-(171,110),0
7535 LINE(171,109)-(176,103),0 'beak
7540 LINE(177,112)-(181,107),0 'beak
7545 d=750:GOSUB 31000
7550 PRINT FNCEN$("considerably to tuck CHICK's beak",40)
7555 d=1500:GOSUB 31000
7560 PRINT FNCEN$("into this pocket,",40)
7565 d=750:GOSUB 31000
7570 FOR K=1 TO 15
7575 PSET(177,120):DRAW"G5R4D7R2U7R4H5"
7580 PAINT(177,126)
7585 d=25:GOSUB 31000
7590 CIRCLE(177,126),7,0
7595 PAINT(177,126),0
7600 NEXT K
7605 d=750:GOSUB 31000
7610 GOSUB 30000   '** Textpad **
7615 PRINT FNCEN$("SO!",40)
7620 d=750:GOSUB 31000
7625 FOR A=0 TO 20
7630 OUT 66,A:OUT 66,A
7635 OUT 97,(INP(97) OR 3)
7640 NEXT A
7645 SOUND 37,0
7650 LINE(80,100)-(162,135),0
7655 LINE-(171,109),0
7660 PAINT(160,132),0
7665 LINE(80,100)-(159,129)
7670 LINE(79,100)-(159,130),0
7675 LINE(78,100)-(158,130),0
7680 LINE(77,100)-(157,130),0
7685 PSET(170,109),0
7690 LINE(190,115)-(171,112),0
7695 PAINT(172,111),0
7700 PSET(170,110),0
7705 LINE(181,113)-(175,112),0
7710 LINE(160,130)-(148,103)
7715 LINE-(157,88)
7720 LINE(190,115)-(148,103)
7725 LINE(160,130)-(145,100),0
7730 LINE-(190,115),0
7735 LINE(145,100)-(157,88)
7740 LINE(146,99)-(150,99)
7745 LINE(170,109)-(185,114),0
7750 PSET(171,110),0
7755 LINE(153,105)-(163,108)
7760 LINE(151,99)-(157,90)
7765 PSET(157,89)
7770 d=750:GOSUB 31000
7775 PSET(178,104),0
7780 FOR Q=0 TO 14
7785 LINE(176,103)-(190-Q,115-.8599999*Q),0
7790 LINE-(171,109),0
7795 d=25:GOSUB 31000
7800 NEXT Q
7805 PSET(177,105),0
7810 FOR Q=0 TO 13
7815 LINE(176,103)-(176-Q,103-.77*Q),1
7820 LINE-(171,109),1
7825 LINE(176,103)-(176-Q,103-.77*Q)
7830 LINE-(171,109)
7835 d=25:GOSUB 31000
7840 NEXT Q
7845 LINE(163,93)-(172,108),1
7850 LINE(168,104)-(172,100),1
7855 PSET(171,109),0
7860 d=750:GOSUB 31000
7865 GOSUB 30000   '** Textpad **
7870 PRINT FNCEN$("and REVERSE POCKET FOLD CHICK'S beak!",40)
7875 d=1500:GOSUB 31000
7880 FOR Q=0 TO 13
7885 LINE(168,104)-(163+Q,93+.77*Q),1
7890 LINE-(172,100),1
7895 LINE(168,104)-(163+Q,93+.77*Q)
7900 LINE-(172,100)
7905 LINE(172,100)-(168,104),1
7910 d=25:GOSUB 31000
7915 NEXT Q
7920 LINE(172,100)-(168,104)
7925 LINE-(172,108)
7930 PSET(171,106)
7935 FOR Q=0 TO 5
7940 LINE(172,100)-(176+Q,103+Q)
7945 LINE-(168,104)
7950 LINE(172,109)-(178,104),0
7955 NEXT Q
7960 LINE(172,109)-(178,104),0
7965 d=750:GOSUB 31000
7970 GOSUB 30000       '*** Textpad ***
7975 PRINT FNCEN$("To see those folds again, press <R>.",40)
7980 d=1000:GOSUB 31000
7985 PRINT FNCEN$("To continue, press <C>.",40)
7990 A$=INKEY$:IF A$="" GOTO 7990
7995 IF A$="r" OR A$="R" GOTO 8010
8000 IF A$="c" OR A$="C" GOTO 8125
8005 GOTO 7970
8010 GOTO 8015
8015 GOSUB 30000       '*** Textpad ***
8020 PRINT FNCEN$("* Review *",40)
8025 d=1500:GOSUB 31000
8030 FOR A=0 TO 20
8035 OUT 66,A:OUT 66,A
8040 OUT 97,(INP(97) OR 3)
8045 NEXT A
8050 SOUND 37,0
8055 LINE(125,100)-(160,130)
8060 LINE-(145,100)
8065 LINE-(190,115)
8070 LINE-(178,104)
8075 PAINT(180,110)
8080 LINE(125,100)-(160,130),0
8085 LINE-(148,103),0
8090 LINE-(190,115),0
8095 LINE(157,88)-(148,103),0
8100 LINE(145,99)-(150,99),0
8105 LINE(171,109)-(176,103),0
8110 LINE(177,112)-(181,107),0
8115 PSET(177,105)
8120 GOTO 7350
8125 GOSUB 30000   '** Textpad **
8130 PRINT FNCEN$("Next we fold CHICK's wings",40)
8135 d=750:GOSUB 31000
8140 LINE(125,100)-(131,105)
8145 LINE(131,105)-(135,100),0
8150 LINE-(135,105),0
8155 LINE-(131,105),0
8160 d=750:GOSUB 31000
8165 FOR K=1 TO 15
8170 PSET(135,92):DRAW"E5L4U7L2D7L4F5"
8175 PAINT(135,86)
8180 d=25:GOSUB 31000
8185 CIRCLE(135,86),7,0
8190 PAINT(135,86),0
8195 NEXT K
8200 LINE(131,105)-(135,100)
8205 LINE-(135,105)
8210 LINE-(131,105)
8215 LINE(125,100)-(131,105),0
8220 GOSUB 30000   '** Textpad **
8225 PRINT FNCEN$("up to here,",40)
8230 d=750:GOSUB 31000
8235 FOR K=1 TO 15
8240 PSET(158,80):DRAW"E5L4U7L2D7L4F5"
8245 PAINT(158,74)
8250 d=25:GOSUB 31000
8255 CIRCLE(158,74),7,0
8260 PAINT(158,74),0
8265 NEXT K
8270 d=750:GOSUB 31000
8275 GOSUB 30000   '** Textpad **
8280 PRINT FNCEN$("SO!",40)
8285 d=750:GOSUB 31000
8290 FOR H=125 TO 145
8295 LINE(160,130)-(H,100),0
8300 LINE(160,130)-(H,100)
8305 d=25:GOSUB 31000
8310 NEXT H
8315 FOR Q=0 TO 12
8320 LINE(160,130)-(145+Q,100-Q),0
8325 LINE(160,130)-(145+Q,100-Q)
8330 LINE(145,100)-(160,130),0
8335 d=25:GOSUB 31000
8340 NEXT Q
8345 LINE(158,88)-(160,130),0
8350 LINE(159,129)-(161,127)
8355 d=750:GOSUB 31000
8360 GOSUB 30000   '** Textpad **
8365 PRINT FNCEN$("and repeat on the hidden side.",40)
8370 d=750:GOSUB 31000
8375 FOR H=125 TO 145
8380 LINE(160,130)-(H,100),1
8385 LINE(160,130)-(H,100)
8390 d=25:GOSUB 31000
8395 NEXT H
8400 FOR Q=0 TO 12
8405 LINE(160,130)-(145+Q,100-Q),1
8410 LINE(160,130)-(145+Q,100-Q)
8415 LINE(145,100)-(160,130),0
8420 d=25:GOSUB 31000
8425 NEXT Q
8430 LINE(158,88)-(160,130),0
8435 LINE(159,129)-(161,127)
8440 d=750:GOSUB 31000
8445 d=750:GOSUB 31000
8450 GOSUB 30000   '*** Textpad ***
8455 PRINT FNCEN$("Press <C> to continue.",40)
8460 A$=INKEY$:IF A$="" GOTO 8460
8465 IF A$="C" OR A$="c" GOTO 8475
8470 GOTO 8450
8475 GOSUB 30000   '** Textpad **
8480 PRINT FNCEN$("We now take this corner",40)
8485 d=750:GOSUB 31000
8490 FOR K=1 TO 15
8495 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
8500 PAINT(66,100)
8505 d=25:GOSUB 31000
8510 CIRCLE(66,100),7,0
8515 PAINT(66,100),0
8520 NEXT K
8525 d=750:GOSUB 31000
8530 GOSUB 30000   '** Textpad **
8535 PRINT FNCEN$("down to this point",40)
8540 d=750:GOSUB 31000
8545 FOR K=1 TO 15
8550 CIRCLE(190,125),5
8555 LINE(188,125)-(192,125)
8560 LINE(190,123)-(190,127)
8565 d=25:GOSUB 31000
8570 CIRCLE(190,125),5,0
8575 LINE(188,125)-(192,125),0
8580 LINE(190,123)-(190,127),0
8585 NEXT K
8590 d=750:GOSUB 31000
8595 GOSUB 30000   '** Textpad **
8600 PRINT FNCEN$("across this line,",40)
8605 d=750:GOSUB 31000
8610 LINE(140,100)-(135,120),0
8615 d=750:GOSUB 31000
8620 GOSUB 30000   '** Textpad **
8625 PRINT FNCEN$("SO!",40)
8630 d=750:GOSUB 31000
8635 FOR Q=0 TO 56
8640 LINE(140,100)-(80+Q,100+.23*Q),0
8645 LINE-(135,121),0
8650 LINE(140,100)-(79+Q,100+.23*Q),0
8655 LINE-(135,121),0
8660 NEXT Q
8665 FOR Q=0 TO 54
8670 LINE(140,100)-(136+Q,113+.22*Q),0
8675 LINE-(135,121),0
8680 LINE(140,100)-(136+Q,113+.22*Q)
8685 LINE-(135,121)
8690 NEXT Q
8695 LINE(140,100)-(190,125),0
8700 LINE-(135,121),0
8705 PSET(183,125),0:PSET(169,124),0
8710 d=750:GOSUB 31000
8715 GOSUB 30000   '** Textpad **
8720 PRINT FNCEN$("Your turn to fold and backfold.",40)
8725 d=1500:GOSUB 31000
8730 PRINT FNCEN$("To see that fold again, press <R>.",40)
8735 d=1000:GOSUB 31000
8740 PRINT FNCEN$("To continue, press <C>.",40)
8745 A$=INKEY$:IF A$="" GOTO 8745
8750 IF A$="r" OR A$="R" GOTO 8765
8755 IF A$="c" OR A$="C" GOTO 8890
8760 GOTO 8715
8765 GOTO 8770
8770 GOSUB 30000       '*** Textpad ***
8775 PRINT FNCEN$("* Review *",40)
8780 d=1500:GOSUB 31000
8785 FOR A=0 TO 20
8790 OUT 66,A:OUT 66,A
8795 OUT 97,(INP(97) OR 3)
8800 NEXT A
8805 SOUND 37,0
8810 LINE(140,100)-(167,114)
8815 LINE(140,121)-(163,123),3,BF
8820 LINE(168,115)-(190,125),0
8825 LINE-(165,122),0
8830 LINE-(168,115),0
8835 PAINT(175,120),0
8840 PSET(186,124),0
8845 LINE(80,100)-(145,100)
8850 LINE-(160,130)
8855 LINE-(80,100)
8860 PAINT(120,110)
8865 LINE(145,100)-(160,130),0
8870 LINE-(158,88),0
8875 PSET(138,121):PSET(139,121)
8880 d=750:GOSUB 31000
8885 GOTO 8475
8890 GOSUB 30000   '** Textpad **
8895 PRINT FNCEN$("Next, we fold and backfold this corner",40)
8900 d=750:GOSUB 31000
8905 FOR K=1 TO 15
8910 PSET(198,125):DRAW"E5D4R7D2L7D4H5"
8915 PAINT(204,125)
8920 d=25:GOSUB 31000
8925 CIRCLE(204,125),7,0
8930 PAINT(204,125),0
8935 NEXT K
8940 d=750:GOSUB 31000
8945 GOSUB 30000   '** Textpad **
8950 PRINT FNCEN$("down to this point",40)
8955 d=750:GOSUB 31000
8960 FOR K=1 TO 15
8965 CIRCLE(135,150),5
8970 LINE(133,150)-(137,150)
8975 LINE(135,148)-(135,152)
8980 d=25:GOSUB 31000
8985 CIRCLE(135,150),5,0
8990 LINE(133,150)-(137,150),0
8995 LINE(135,148)-(135,152),0
9000 NEXT K
9005 d=750:GOSUB 31000
9010 GOSUB 30000   '** Textpad **
9015 PRINT FNCEN$("across this line,",40)
9020 d=750:GOSUB 31000
9025 FOR K=1 TO 15
9030 LINE(148,105)-(156,123),1
9035 d=25:GOSUB 31000
9040 LINE(148,105)-(156,123),0
9045 NEXT K
9050 d=750:GOSUB 31000
9055 GOSUB 30000   '** Textpad **
9060 PRINT FNCEN$("SO!",40)
9065 d=750:GOSUB 31000
9070 LINE(165,123)-(170,123)
9075 LINE(180,124)-(184,124)
9080 FOR Q=0 TO 26
9085 LINE(148,105)-(190-Q,125+.46*Q)
9090 LINE-(156,123)
9095 LINE(148,105)-(190-Q,125+.46*Q),0
9100 LINE(148,105)-(191-Q,125+.46*Q),0
9105 LINE(148,105)-(168-.27*Q,110+.65*Q)
9110 LINE(161,111)-(165,113)
9115 LINE(163,115)-(165,116)
9120 LINE(157,114)-(164,121)
9125 LINE(159,119)-(162,123)
9130 LINE(160,118)-(161,119)
9135 PSET(150,105)
9140 NEXT Q
9145 LINE(158,88)-(160,130),0
9150 LINE(170,110)-(161,130),0
9155 FOR Q=0 TO 29
9160 LINE(148,105)-(164-Q,137+.45*Q),0
9165 LINE-(156,123),0
9170 LINE(148,105)-(164-Q,137+.45*Q)
9175 LINE-(156,123)
9180 LINE(156,123)-(164-Q,137+.45*Q),0
9185 d=50:GOSUB 31000
9190 LINE(156,123)-(160-.24*Q,130-.1*Q)
9195 LINE(161,130)-(164,136),0
9200 LINE(145,100)-(160,130),0
9205 PSET(155,125):PSET(158,123):PSET(159,125)
9210 NEXT Q
9215 LINE(148,105)-(135,150),0
9220 LINE-(156,123),0
9225 GOSUB 30000   '** Textpad **
9230 PRINT FNCEN$("Your turn to fold and backfold.",40)
9235 d=1500:GOSUB 31000
9240 PRINT FNCEN$("To see that fold again, press <R>.",40)
9245 d=1000:GOSUB 31000
9250 PRINT FNCEN$("To continue, press <C>.",40)
9255 A$=INKEY$:IF A$="" GOTO 9255
9260 IF A$="r" OR A$="R" GOTO 9275
9265 IF A$="c" OR A$="C" GOTO 9405
9270 GOTO 9225
9275 GOTO 9280
9280 GOSUB 30000       '*** Textpad ***
9285 PRINT FNCEN$("* Review *",40)
9290 d=1500:GOSUB 31000
9295 FOR A=0 TO 20
9300 OUT 66,A:OUT 66,A
9305 OUT 97,(INP(97) OR 3)
9310 NEXT A
9315 SOUND 37,0
9320 LINE(148,105)-(135,150)
9325 LINE-(156,123)
9330 LINE-(148,105)
9335 LINE(80,101)-(135,150),0
9340 LINE-(160,131),0
9345 LINE-(80,101),0
9350 PAINT(145,130),0
9355 PSET(135,149),0
9360 LINE(153,115)-(156,121)
9365 LINE(159,111)-(160,122)
9370 LINE(140,100)-(190,125)
9375 LINE-(135,121)
9380 PAINT(165,120)
9385 LINE(140,100)-(190,125),0
9390 LINE-(135,121),0
9395 LINE(159,117)-(159,119)
9400 GOTO 8890
9405 GOSUB 30000   '** Textpad **
9410 PRINT FNCEN$("We next fold and backfold this corner",40)
9415 d=1500:GOSUB 31000
9420 FOR K=1 TO 15
9425 PSET(135,158):DRAW"G5R4D7R2U7R4H5"
9430 PAINT(135,164)
9435 d=25:GOSUB 31000
9440 CIRCLE(135,164),7,0
9445 PAINT(135,164),0
9450 NEXT K
9455 d=750:GOSUB 31000
9460 GOSUB 30000   '** Textpad **
9465 PRINT FNCEN$("over to this point",40)
9470 d=750:GOSUB 31000
9475 FOR K=1 TO 15
9480 CIRCLE(160,140),5
9485 LINE(158,140)-(162,140)
9490 LINE(160,138)-(160,142)
9495 d=25:GOSUB 31000
9500 CIRCLE(160,140),5,0
9505 LINE(158,140)-(162,140),0
9510 LINE(160,138)-(160,142),0
9515 NEXT K
9520 d=750:GOSUB 31000
9525 GOSUB 30000   '** Textpad **
9530 PRINT FNCEN$("across this line,",40)
9535 d=750:GOSUB 31000
9540 LINE(143,124)-(146,135),0
9545 d=750:GOSUB 31000
9550 GOSUB 30000   '** Textpad **
9555 PRINT FNCEN$("SO!",40)
9560 d=750:GOSUB 31000
9565 FOR Q=0 TO 14
9570 LINE(143,124)-(135+Q,150-.36*Q)
9575 LINE-(146,135)
9580 LINE(143,124)-(135+Q,150-.36*Q),0
9585 d=10:GOSUB 31000
9590 NEXT Q
9595 FOR Q=O TO 11
9600 LINE(143,124)-(149+Q,145-.45*Q),0
9605 LINE(143,124)-(149+Q,145-.45*Q)
9610 LINE-(146,135)
9615 LINE(146,135)-(149+Q,145-.45*Q),0
9620 LINE(146,135)-(148+Q,145-.45*Q),0
9625 PSET(147,143),0
9630 d=10:GOSUB 31000
9635 NEXT Q
9640 LINE(143,124)-(160,140),0
9645 GOSUB 30000   '** Textpad **
9650 PRINT FNCEN$("Your turn to fold and backfold.",40)
9655 d=1500:GOSUB 31000
9660 PRINT FNCEN$("To see that fold again, press <R>.",40)
9665 d=1000:GOSUB 31000
9670 PRINT FNCEN$("To continue, press <C>.",40)
9675 A$=INKEY$:IF A$="" GOTO 9675
9680 IF A$="r" OR A$="R" GOTO 9695
9685 IF A$="c" OR A$="C" GOTO 9805
9690 GOTO 9645
9695 GOSUB 30000       '*** Textpad ***
9700 PRINT FNCEN$("* Review *",40)
9705 d=1500:GOSUB 31000
9710 FOR A=0 TO 20
9715 OUT 66,A:OUT 66,A
9720 OUT 97,(INP(97) OR 3)
9725 NEXT A
9730 SOUND 37,0
9735 LINE(80,101)-(135,150),0
9740 LINE-(160,131),0
9745 LINE-(80,101),0
9750 PAINT(145,130),0
9755 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129)
9760 LINE(151,128)-(146,126),3
9765 LINE(147,107)-(135,150)
9770 LINE-(155,124)
9775 LINE-(147,107)
9780 PAINT(145,130)
9785 LINE(148,105)-(135,150),0
9790 LINE-(156,123),0
9795 PSET(141,127),0:PSET(139,134),0:PSET(150,127)
9800 GOTO 9405  '***6425***
9805 GOSUB 30000   '** Textpad **
9810 PRINT FNCEN$("We now go back three folds.",40)
9815 d=1500:GOSUB 31000
9820 GOSUB 30000   '** Textpad **
9825 PRINT FNCEN$("One moment, please.",40)
9830 d=750:GOSUB 31000
9835 FOR A=0 TO 20
9840 OUT 66,A:OUT 66,A
9845 OUT 97,(INP(97) OR 3)
9850 NEXT A
9855 SOUND 37,0
9860 LINE(168,114)-(190,125),0
9865 LINE-(162,125),0
9870 LINE-(168,114),0
9875 PAINT(175,120),0
9880 LINE(164,124)-(170,124),0
9885 LINE-(160,131),0
9890 LINE-(80,101),0
9895 PAINT(145,130),0
9900 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129)
9905 LINE(146,127)-(152,129),0
9910 LINE(146,128)-(152,130),0
9915 LINE(146,129)-(152,131),0
9920 LINE(156,123)-(153,128)
9925 LINE(147,107)-(143,124)
9930 LINE(140,100)-(148,104)
9935 PSET(154,125):PSET(153,127):PSET(142,122):PSET(147,110)
9940 LINE(135,121)-(143,121)
9945 LINE(140,100)-(80,100)
9950 LINE-(160,130)
9955 PAINT(125,105)
9960 LINE(145,100)-(160,130),0
9965 d=750:GOSUB 31000
9970 GOSUB 30000   '** Textpad **
9975 PRINT FNCEN$("We take this corner",40)
9980 d=750:GOSUB 31000
9985 FOR K=1 TO 15
9990 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
9995 PAINT(66,100)
10000 d=25:GOSUB 31000
10005 CIRCLE(66,100),7,0
10010 PAINT(66,100),0
10015 NEXT K
10020 d=750:GOSUB 31000
10025 GOSUB 30000   '** Textpad **
10030 PRINT FNCEN$("down to this point again",40)
10035 d=750:GOSUB 31000
10040 FOR K=1 TO 15
10045 CIRCLE(190,125),5
10050 LINE(188,125)-(192,125)
10055 LINE(190,123)-(190,127)
10060 d=25:GOSUB 31000
10065 CIRCLE(190,125),5,0
10070 LINE(188,125)-(192,125),0
10075 LINE(190,123)-(190,127),0
10080 NEXT K
10085 d=750:GOSUB 31000
10090 GOSUB 30000   '** Textpad **
10095 PRINT FNCEN$("across this crease,",40)
10100 d=1500:GOSUB 31000
10105 FOR K=1 TO 25
10110 LINE(140,100)-(135,120),1
10115 d=25:GOSUB 31000
10120 LINE(140,100)-(135,120),0
10125 NEXT K
10130 d=750:GOSUB 31000
10135 GOSUB 30000   '** Textpad **
10140 PRINT FNCEN$("but with this difference:",40)
10145 d=1500:GOSUB 31000
10150 GOSUB 30000   '** Textpad **
10155 PRINT FNCEN$("our next fold is an INSIDE REVERSE FOLD",40)
10160 d=1500:GOSUB 31000
10165 GOSUB 30000   '** Textpad **
10170 PRINT FNCEN$("that tucks into this pocket,",40)
10175 d=750:GOSUB 31000
10180 LINE(80,100)-(162,135)
10185 LINE-(170,110)
10190 LINE-(160,130)
10195 LINE-(80,100)
10200 PAINT(160,132)
10205 LINE(80,100)-(160,130),0
10210 LINE-(170,110),0
10215 FOR K=1 TO 15
10220 PSET(160,143):DRAW"G5R4D7R2U7R4H5"
10225 PAINT(160,149)
10230 d=25:GOSUB 31000
10235 CIRCLE(160,149),7,0
10240 PAINT(160,149),0
10245 NEXT K
10250 d=750:GOSUB 31000
10255 GOSUB 30000   '** Textpad **
10260 PRINT FNCEN$("SO!",40)
10265 d=750:GOSUB 31000
10270 FOR A=0 TO 20
10275 OUT 66,A:OUT 66,A
10280 OUT 97,(INP(97) OR 3)
10285 NEXT A
10290 SOUND 37,0
10295 LINE(80,100)-(162,135),0
10300 LINE-(170,110),0
10305 LINE-(160,130),0
10310 LINE-(80,100),0
10315 PAINT(160,132),0
10320 LINE(80,100)-(135,120)
10325 LINE(80,100)-(140,100),0
10330 LINE-(134,124),0
10335 LINE-(80,100),0
10340 PAINT(125,110),0
10345 LINE(168,114)-(190,125)
10350 LINE-(162,125)
10355 PAINT(175,120)
10360 LINE(190,125)-(164,123),0
10365 LINE(170,110)-(160,131),0
10370 d=750:GOSUB 31000
10375 GOSUB 30000   '** Textpad **
10380 PRINT FNCEN$("To review that fold, press <R>.",40)
10385 d=1000:GOSUB 31000
10390 PRINT FNCEN$("To continue, press <C>.",40)
10395 A$=INKEY$:IF A$="" GOTO 10395
10400 IF A$="r" OR A$="R" GOTO 10415
10405 IF A$="c" OR A$="C" GOTO 10435
10410 GOTO 10375
10415 GOSUB 30000   '** Textpad **
10420 PRINT FNCEN$("* Review *",40)
10425 d=1500:GOSUB 31000
10430 GOTO 9805  '***6825***
10435 GOSUB 30000   '** Textpad **
10440 PRINT FNCEN$("We next fold CHICK's wings",40)
10445 d=1500:GOSUB 31000
10450 GOSUB 30000   '** Textpad **
10455 PRINT FNCEN$("back to where they were,",40)
10460 d=1500:GOSUB 31000
10465 GOSUB 30000   '** Textpad **
10470 PRINT FNCEN$("both in front",40)
10475 d=750:GOSUB 31000
10480 FOR Q=0 TO 12
10485 LINE(145,100)-(157-Q,88+Q),0
10490 LINE-(160,130),0
10495 LINE(145,100)-(157-Q,88+Q)
10500 LINE-(160,130)
10505 LINE(158,88)-(160,130)
10510 d=10:GOSUB 31000
10515 NEXT Q
10520 LINE(160,106)-(169,109)
10525 PSET(161,107):PSET(164,108)
10530 LINE(145,100)-(190,115),0
10535 FOR H=145 TO 125 STEP -1
10540 LINE(160,130)-(H,100),0
10545 LINE(160,130)-(H,100)
10550 LINE(160,130)-(145,100),0
10555 d=10:GOSUB 31000
10560 NEXT H
10565 LINE(125,100)-(160,130),0
10570 d=750:GOSUB 31000
10575 GOSUB 30000   '** Textpad **
10580 PRINT FNCEN$("and in back,",40)
10585 d=750:GOSUB 31000
10590 FOR Q=0 TO 12
10595 LINE(145,100)-(157-Q,88+Q),1
10600 LINE-(160,130),1
10605 LINE(145,100)-(157-Q,88+Q)
10610 LINE-(160,130)
10615 LINE(158,88)-(160,130)
10620 d=10:GOSUB 31000
10625 NEXT Q
10630 LINE(160,106)-(169,109)
10635 PSET(161,107):PSET(164,108)
10640 LINE(145,100)-(190,115),0
10645 FOR H=145 TO 125 STEP -1
10650 LINE(160,130)-(H,100),1
10655 LINE(160,130)-(H,100)
10660 LINE(160,130)-(145,100),0
10665 d=10:GOSUB 31000
10670 NEXT H
10675 LINE(125,100)-(160,130),0
10680 d=750:GOSUB 31000
10685 GOSUB 30000   '** Textpad **
10690 PRINT FNCEN$("and again fold this corner",40)
10695 d=1500:GOSUB 31000
10700 FOR K=1 TO 15
10705 PSET(198,125):DRAW"E5D4R7D2L7D4H5"
10710 PAINT(204,125)
10715 d=25:GOSUB 31000
10720 CIRCLE(204,125),7,0
10725 PAINT(204,125),0
10730 NEXT K
10735 d=750:GOSUB 31000
10740 GOSUB 30000   '** Textpad **
10745 PRINT FNCEN$("down to this point",40)
10750 d=750:GOSUB 31000
10755 FOR K=1 TO 15
10760 CIRCLE(135,150),5
10765 LINE(133,150)-(137,150)
10770 LINE(135,148)-(135,152)
10775 d=25:GOSUB 31000
10780 CIRCLE(135,150),5,0
10785 LINE(133,150)-(137,150),0
10790 LINE(135,148)-(135,152),0
10795 NEXT K
10800 d=750:GOSUB 31000
10805 GOSUB 30000   '** Textpad **
10810 PRINT FNCEN$("in another INSIDE REVERSE FOLD,",40)
10815 d=1500:GOSUB 31000
10820 GOSUB 30000   '** Textpad **
10825 PRINT FNCEN$("SO!",40)
10830 d=750:GOSUB 31000
10835 FOR A=0 TO 20
10840 OUT 66,A:OUT 66,A
10845 OUT 97,(INP(97) OR 3)
10850 NEXT A
10855 SOUND 37,0
10860 LINE(168,114)-(190,125),0
10865 LINE-(163,125),0
10870 LINE-(168,114),0
10875 PAINT(175,120),0
10880 LINE(170,124)-(164,124),0
10885 LINE(167,114)-(141,100)
10890 LINE-(138,110)
10895 LINE(135,120)-(163,123)
10900 LINE(148,105)-(156,123)
10905 PSET(158,126):PSET(157,124)
10910 LINE(80,101)-(135,150),0
10915 LINE-(160,131),0
10920 LINE-(80,101),0
10925 PAINT(145,130),0
10930 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129)
10935 LINE(151,128)-(146,126),3
10940 LINE(147,107)-(135,150)
10945 LINE-(155,124)
10950 LINE-(147,107)
10955 PAINT(145,130)
10960 LINE(148,105)-(135,150)
10965 LINE-(156,128)
10970 PAINT(152,130)
10975 LINE(141,143)-(147,136)
10980 PSET(141,127),0:PSET(139,134),0:PSET(150,127)
10985 LINE(149,107)-(159,127)
10990 LINE(125,100)-(160,130),0
10995 LINE-(145,100),0
11000 PSET(150,126):PSET(152,127):PSET(142,123)
11005 LINE(140,123)-(156,129),0
11010 LINE(135,150)-(152,128),0
11015 d=750:GOSUB 31000
11020 GOSUB 30000   '** Textpad **
11025 PRINT FNCEN$("To review that fold, press <R>.",40)
11030 d=1000:GOSUB 31000
11035 PRINT FNCEN$("To continue, press <C>.",40)
11040 A$=INKEY$:IF A$="" GOTO 11040
11045 IF A$="r" OR A$="R" GOTO 11060
11050 IF A$="c" OR A$="C" GOTO 11190
11055 GOTO 11020
11060 GOSUB 30000   '** Textpad **
11065 PRINT FNCEN$("* Review *",40)
11070 d=750:GOSUB 31000
11075 FOR A=0 TO 20
11080 OUT 66,A:OUT 66,A
11085 OUT 97,(INP(97) OR 3)
11090 NEXT A
11095 SOUND 37,0
11100 LINE(140,123)-(156,129),0
11105 LINE-(135,150),0
11110 LINE-(140,123),0
11115 PAINT(145,135),0
11120 PAINT(148,135),0
11125 LINE(80,100)-(162,135),0
11130 LINE-(170,110),0
11135 LINE-(160,130),0
11140 LINE-(80,100),0
11145 PAINT(160,132),0
11150 LINE(168,114)-(190,125)
11155 LINE-(162,125)
11160 PAINT(175,120)
11165 LINE(190,125)-(164,123),0
11170 LINE(170,110)-(160,131),0
11175 LINE(136,148)-(143,141),0
11180 d=750:GOSUB 31000
11185 GOTO 10685
11190 GOSUB 30000   '** Textpad **
11195 PRINT FNCEN$("Our last fold",40)
11200 d=1500:GOSUB 31000
11205 PRINT FNCEN$("is also an INSIDE REVERSE FOLD",40)
11210 d=1500:GOSUB 31000
11215 GOSUB 30000   '** Textpad **
11220 PRINT FNCEN$("which takes this corner",40)
11225 d=750:GOSUB 31000
11230 FOR K=1 TO 15
11235 PSET(135,158):DRAW"G5R4D7R2U7R4H5"
11240 PAINT(135,164)
11245 d=25:GOSUB 31000
11250 CIRCLE(135,164),7,0
11255 PAINT(135,164),0
11260 NEXT K
11265 d=750:GOSUB 31000
11270 GOSUB 30000   '** Textpad **
11275 PRINT FNCEN$("over again to this point",40)
11280 d=750:GOSUB 31000
11285 FOR K=1 TO 15
11290 CIRCLE(160,140),5
11295 LINE(158,140)-(162,140)
11300 LINE(160,138)-(160,142)
11305 d=25:GOSUB 31000
11310 CIRCLE(160,140),5,0
11315 LINE(158,140)-(162,140),0
11320 LINE(160,138)-(160,142),0
11325 NEXT K
11330 d=750:GOSUB 31000
11335 GOSUB 30000   '** Textpad **
11340 PRINT FNCEN$("across this crease,",40)
11345 d=750:GOSUB 31000
11350 LINE(143,124)-(146,135),0
11355 d=750:GOSUB 31000
11360 GOSUB 30000   '** Textpad **
11365 PRINT FNCEN$("SO!",40)
11370 d=750:GOSUB 31000
11375 FOR A=0 TO 20
11380 OUT 66,A:OUT 66,A
11385 OUT 97,(INP(97) OR 3)
11390 NEXT A
11395 SOUND 37,0
11400 LINE(79,100)-(160,131),0
11405 LINE-(135,155),0
11410 LINE-(79,100),0
11415 PAINT(143,135),0
11420 PAINT(148,130),0
11425 PAINT(149,134),0
11430 LINE(135,149)-(140,145),0
11435 LINE(143,122)-(140,136)
11440 LINE-(160,140)
11445 LINE-(150,131)
11450 LINE-(152,128)
11455 PAINT(148,131)
11460 LINE(143,124)-(143,135),0
11465 LINE-(160,140),0
11470 LINE(81,100)-(160,131),0
11475 LINE(152,128)-(144,135),0
11480 PSET(151,130),0
11485 d=750:GOSUB 31000
11490 GOSUB 30000   '** Textpad **
11495 PRINT FNCEN$("To review that fold, press <R>.",40)
11500 d=1000:GOSUB 31000
11505 PRINT FNCEN$("To continue, press <C>.",40)
11510 A$=INKEY$:IF A$="" GOTO 11510
11515 IF A$="r" OR A$="R" GOTO 11530
11520 IF A$="c" OR A$="C" GOTO 11715
11525 GOTO 11490
11530 GOSUB 30000   '** Textpad **
11535 PRINT FNCEN$("* Review *",40)
11540 d=750:GOSUB 31000
11545 FOR A=0 TO 20
11550 OUT 66,A:OUT 66,A
11555 OUT 97,(INP(97) OR 3)
11560 NEXT A
11565 SOUND 37,0
11570 LINE(143,126)-(143,135)
11575 LINE-(160,140)
11580 LINE(81,100)-(160,131),0
11585 LINE(152,128)-(144,135)
11590 LINE(143,126)-(140,136)
11595 LINE-(160,140),0
11600 LINE-(150,131),0
11605 LINE-(152,128),0
11610 PAINT(148,131),0
11615 PSET(158,139),0
11620 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129)
11625 LINE(151,128)-(146,126),3
11630 LINE(147,107)-(135,150)
11635 LINE-(155,124)
11640 LINE-(147,107)
11645 PAINT(145,130)
11650 LINE(148,105)-(135,150)
11655 LINE-(156,128)
11660 PAINT(152,130)
11665 LINE(141,143)-(147,136)
11670 PSET(141,127),0:PSET(139,134),0:PSET(150,127)
11675 LINE(149,107)-(159,127)
11680 LINE(125,100)-(160,130),0
11685 LINE-(145,100),0
11690 PSET(150,126):PSET(152,127):PSET(142,123)
11695 LINE(140,123)-(156,129),0
11700 LINE(135,150)-(152,128),0
11705 d=750:GOSUB 31000
11710 GOTO 11190
11715 GOSUB 30000   '** Textpad **
11720 PRINT FNCEN$("Our final task is to set CHICK",40)
11725 d=1500:GOSUB 31000
11730 GOSUB 30000   '** Textpad **
11735 PRINT FNCEN$("firmly on the ground,",40)
11740 d=1500:GOSUB 31000
11745 GOSUB 30000   '** Textpad **
11750 PRINT FNCEN$("SO!",40)
11755 d=750:GOSUB 31000
11760 FOR A=0 TO 20
11765 OUT 66,A:OUT 66,A
11770 OUT 97,(INP(97) OR 3)
11775 NEXT A
11780 SOUND 37,0
11785 CLS
11790 LINE(190,90)-(160,75)
11795 LINE-(154,85)
11800 LINE-(135,80)
11805 LINE-(147,93)
11810 LINE-(130,90)
11815 LINE-(138,97)
11820 LINE-(135,100)
11825 LINE-(131,127)
11830 LINE-(142,127)
11835 LINE-(150,140)
11840 LINE-(175,140)
11845 LINE-(156,132)
11850 LINE-(161,127)
11855 LINE-(167,127)
11860 LINE-(167,125)
11865 LINE-(170,125)
11870 LINE-(176,95)
11875 LINE-(178,95)
11880 LINE-(180,90)
11885 LINE-(190,90)
11890 PAINT(160,100)
11895 LINE(155,95)-(179,95),0
11900 LINE-(183,86),0
11905 LINE(170,125)-(155,95),0
11910 LINE-(160,76),0
11915 LINE(170,125)-(135,125),0
11920 LINE-(135,100),0
11925 LINE(163,125)-(150,140),0
11930 LINE-(140,125),0
11935 LINE(170,125)-(129,89),0
11940 LINE-(155,95),0
11945 LINE(150,94)-(159,75),0
11950 GOSUB 30000   '** Textpad **
11955 PRINT FNCEN$("And there we have it!",40)
11960 d=1500:GOSUB 31000
11965 GOSUB 30000   '** Textpad **
11970 PRINT FNCEN$("CHICK",40)
11975 d=1500:GOSUB 31000
11980 GOSUB 30000                '*** Textpad ***
11985 PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
11990 PRINT FNCEN$("  <2> - To repeat CHICK.",40)
11995 PRINT FNCEN$("      <3> - To exit from program.",40)
12000 E$=INPUT$(1)
12005 IF E$<"1" OR E$>"3" GOTO 12000
12010 SEL=VAL(E$)
12015 COMMON SEL
12020 CLS
12025 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
12026 LINE(70,75)-(250,125),3,B
12030 ON SEL GOTO 12035,12040,12045
12035 CHAIN"main"
12040 CHAIN"chick"
12045 CHAIN"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