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$("PIG",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 d=250:GOSUB 31000
85                             '***End Zapsound***
90 LINE(105,45)-(215,145),3,B
95 GOSUB 30000         '** Textpad **
100 PRINT FNCEN$("PIG begins with three simple folds.",40)
105 d=1500:GOSUB 31000
110 FOR H=105 TO 215 STEP 2
115 PSET(H,95)
120 NEXT H
125 d=250:GOSUB 31000
130 FOR V=45 TO 95
135 LINE(105,V)-(215,V),3
140 LINE(105,V)-(215,V),0
145 NEXT V
150 FOR V=95 TO 145
155 LINE(105,V)-(215,V),3
160 NEXT V
165 d=250:GOSUB 31000
170 FOR V=145 TO 95 STEP -1
175 LINE(105,V)-(215,V),0
180 LINE(105,145)-(215,145),3
185 PSET(105,V),3
190 PSET(215,V),3
195 NEXT V
200 FOR H=105 TO 215 STEP 2
205 PSET(H,95),3
210 NEXT H
215 FOR V=94 TO 45 STEP -1
220 LINE(105,V)-(215,V),3
225 LINE(105,V)-(215,V),0
230 PSET(105,V),3
235 PSET(215,V),3
240 NEXT V
245 LINE(105,45)-(215,45),3
250 d=750:GOSUB 31000
255 FOR H=105 TO 215 STEP 2
260 PSET(H,70),3
265 NEXT H
270 d=250:GOSUB 31000
275 FOR V=45 TO 70
280 LINE(105,V)-(215,V),3
285 LINE(105,V)-(215,V),0
290 NEXT V
295 FOR V=70 TO 95
300 LINE(105,V)-(215,V),3
305 NEXT V
310 d=250:GOSUB 31000
315 FOR H=105 TO 215 STEP 2
320 PSET(H,120)
325 NEXT H
330 d=250:GOSUB 31000
335 FOR V=145 TO 120 STEP -1
340 LINE(105,V)-(215,V),3
345 LINE(105,V)-(215,V),0
350 NEXT V
355 FOR V=120 TO 95 STEP -1
360 LINE(105,V)-(215,V),3
365 NEXT V
370 LINE(105,95)-(215,95),0
375 d=750:GOSUB 31000
380 GOSUB 30000         '** Textpad **
385 PRINT FNCEN$("There!  Now, I'll wait for you.",40)
390 d=1500:GOSUB 31000
395 GOSUB 30000       '*** Textpad ***
400 PRINT FNCEN$("To see those folds again, press <R>.",40)
405 d=1000:GOSUB 31000
410 PRINT FNCEN$("To continue, press <C>.",40)
415 A$=INKEY$:IF A$="" GOTO 415
420 IF A$="r" OR A$="R" GOTO 435
425 IF A$="c" OR A$="C" GOTO 490
430 GOTO 395
435 FOR A=0 TO 20
440 OUT 66,A:OUT 66,A
445 OUT 97,(INP(97) OR 3)
450 NEXT A
455 SOUND 37,0
460 CLS
465 LINE(105,45)-(215,145),3,B
470 GOSUB 30000   '** Textpad **
475 PRINT FNCEN$("* Review *",40)
480 d=1500:GOSUB 31000
485 GOTO 110
490 GOSUB 30000         '** Textpad **
495 PRINT FNCEN$("We next fold and backfold these corners",40)
500 d=1500:GOSUB 31000
505 FOR K=1 TO 5
510 PSET(215,62):DRAW"E5L4U7L2D7L4F5"
515 PAINT(215,56)
520 PSET(215,128):DRAW"G5R4D7R2U7R4H5"
525 PAINT(215,134)
530 PSET(105,62):DRAW"E5L4U7L2D7L4F5"
535 PAINT(105,56)
540 PSET(105,128):DRAW"G5R4D7R2U7R4H5"
545 PAINT(105,134)
550 CIRCLE(215,56),7,0
555 PAINT(215,56),0
560 CIRCLE(215,134),7,0
565 PAINT(215,134),0
570 CIRCLE(105,56),7,0
575 PAINT(105,56),0
580 CIRCLE(105,134),7,0
585 PAINT(105,134),0
590 NEXT K
595 d=750:GOSUB 31000
600 GOSUB 30000         '** Textpad **
605 PRINT FNCEN$("over to these points",40)
610 d=750:GOSUB 31000
615 FOR K=1 TO 15
620 CIRCLE(190,95),5,0
625 LINE(188,95)-(192,95),0
630 LINE(190,93)-(190,97),0
635 CIRCLE(130,95),5,0
640 LINE(128,95)-(132,95),0
645 LINE(130,93)-(130,97),0
650 'd=25:GOSUB 31000
655 CIRCLE(190,95),5,3
660 LINE(188,95)-(192,95),3
665 LINE(190,93)-(190,97),3
670 CIRCLE(130,95),5,3
675 LINE(128,95)-(132,95),3
680 LINE(130,93)-(130,97),3
685 NEXT K
690 LINE(185,95)-(195,95),0
695 LINE(125,95)-(135,95),0
700 d=750:GOSUB 31000
705 GOSUB 30000         '** Textpad **
710 PRINT FNCEN$("across these lines,",40)
715 d=750:GOSUB 31000
720 LINE(190,70)-(215,95),0
725 LINE-(190,120),0
730 LINE(130,70)-(105,95),0
735 LINE-(130,120),0
740 d=750:GOSUB 31000
745 GOSUB 30000         '** Textpad **
750 PRINT FNCEN$("SO!",40)
755 d=750:GOSUB 31000
760 FOR Q=0 TO 12
765 LINE(190,70)-(215-Q,70+Q)
770 LINE-(215,95)
775 LINE(190,70)-(215-Q,70+Q),0
780 LINE-(215,95),0
785 LINE(190,70)-(215,70+Q),0
790 LINE(215,95)-(215-Q,70),0
795 LINE(191,70)-(216-Q,69+Q),0
800 LINE-(216,95),0
805 NEXT Q
810 LINE(202,80)-(205,83),0,BF
815 LINE(203,75)-(210,82),0,BF
820 PSET(202,83),3
825 LINE(190,70)-(215,95),3
830 FOR Q=0 TO 12
835 LINE(190,70)-(203-Q,83+Q),0
840 LINE-(215,95),0
845 LINE(190,70)-(203-Q,83+Q),3
850 LINE-(215,95),3
855 LINE(190,95)-(215,95),0
860 NEXT Q
865 LINE(190,70)-(190,95),0
870 d=750:GOSUB 31000
875 FOR Q=0 TO 12
880 LINE(190,70)-(190+Q,95-Q),0
885 LINE-(215,95),0
890 LINE(190,70)-(190+Q,95-Q),3
895 LINE-(215,95),3
900 LINE(190,95)-(215,95),0
905 LINE(190,70)-(215,95),0
910 NEXT Q
915 FOR Q=0 TO 13
920 LINE(190,70)-(203+Q,83-Q),3
925 LINE-(215,95),3
930 LINE(190,70)-(215,95),0
935 LINE(190,70)-(215,95-Q)
940 LINE(215,95)-(190+Q,70)
945 NEXT Q
950 LINE(190,70)-(215,94),3,BF
955 LINE(216,70)-(216,195),0
960 LINE(190,70)-(215,95),0
965 d=750:GOSUB 31000
970 FOR Q=0 TO 12
975 LINE(190,120)-(215-Q,120-Q)
980 LINE-(215,95)
985 LINE(190,120)-(215-Q,120-Q),0
990 LINE-(215,95),0
995 LINE(190,120)-(215,120-Q),0
1000 LINE(215,95)-(215-Q,120),0
1005 LINE(191,120)-(216-Q,121-Q),0
1010 LINE-(216,95),0
1015 NEXT Q
1020 LINE(202,110)-(205,107),0,BF
1025 LINE(203,115)-(210,108),0,BF
1030 PSET(202,107),3
1035 LINE(190,120)-(215,95),3
1040 FOR Q=0 TO 12
1045 LINE(190,120)-(203-Q,107-Q),0
1050 LINE-(215,95),0
1055 LINE(190,120)-(203-Q,107-Q),3
1060 LINE-(215,95),3
1065 LINE(190,95)-(215,95),0
1070 NEXT Q
1075 LINE(190,120)-(190,95),0
1080 LINE-(215,95),0
1085 d=750:GOSUB 31000
1090 FOR Q=0 TO 12
1095 LINE(190,120)-(190+Q,95+Q),0
1100 LINE-(215,95),0
1105 LINE(190,120)-(190+Q,95+Q),3
1110 LINE-(215,95),3
1115 LINE(190,95)-(215,95),0
1120 LINE(190,120)-(215,95),0
1125 NEXT Q
1130 FOR Q=0 TO 13
1135 LINE(190,120)-(203+Q,107+Q),3
1140 LINE-(215,95),3
1145 LINE(190,120)-(215,95),0
1150 LINE(215,95)-(190+Q,120)
1155 LINE(190,120)-(215,95+Q)
1160 NEXT Q
1165 LINE(190,120)-(215,96),3,BF
1170 LINE(216,120)-(216,95),0
1175 LINE(190,120)-(215,95),0
1180 LINE(130,70)-(105,95),0
1185 LINE-(130,120),0
1190 d=750:GOSUB 31000
1195 FOR Q=0 TO 12
1200 LINE(130,70)-(105+Q,70+Q)
1205 LINE-(105,95)
1210 LINE(130,70)-(105+Q,70+Q),0
1215 LINE-(105,95),0
1220 LINE(130,70)-(105,70+Q),0
1225 LINE(105,95)-(105+Q,70),0
1230 LINE(129,70)-(104+Q,69+Q),0
1235 LINE-(104,95),0
1240 NEXT Q
1245 LINE(118,80)-(115,83),0,BF
1250 LINE(117,75)-(100,82),0,BF
1255 PSET(118,83),3
1260 LINE(130,70)-(105,95),3
1265 FOR Q=0 TO 12
1270 LINE(130,70)-(117+Q,83+Q),0
1275 LINE-(105,95),0
1280 LINE(130,70)-(117+Q,83+Q),3
1285 LINE-(105,95),3
1290 LINE(105,95)-(130,95),0
1295 NEXT Q
1300 LINE(130,70)-(130,95),0
1305 LINE-(105,95),0
1310 d=750:GOSUB 31000
1315 FOR Q=0 TO 12
1320 LINE(130,70)-(130-Q,95-Q),0
1325 LINE-(105,95),0
1330 LINE(130,70)-(130-Q,95-Q),3
1335 LINE-(105,95),3
1340 LINE(130,95)-(105,95),0
1345 LINE(130,70)-(105,95),0
1350 NEXT Q
1355 FOR Q=0 TO 13
1360 LINE(130,70)-(117-Q,83-Q),3
1365 LINE-(105,95),3
1370 LINE(130,70)-(105,95),0
1375 LINE(130,70)-(105,95-Q)
1380 LINE(105,95)-(130-Q,70)
1385 NEXT Q
1390 LINE(130,70)-(105,94),3,BF
1395 LINE(104,70)-(104,95),0
1400 LINE(130,70)-(105,95),0
1405 d=750:GOSUB 31000
1410 FOR Q=0 TO 12
1415 LINE(130,120)-(105+Q,120-Q)
1420 LINE-(105,95)
1425 LINE(130,120)-(105+Q,120-Q),0
1430 LINE-(105,95),0
1435 LINE(130,120)-(105,120-Q),0
1440 LINE(105,95)-(105+Q,120),0
1445 LINE(129,120)-(104+Q,121-Q),0
1450 LINE-(104,95),0
1455 NEXT Q
1460 LINE(115,107)-(118,110),0
1465 LINE(113,108)-(117,112),0,BF
1470 PSET(100,107),0
1475 LINE(130,120)-(105,95),3
1480 FOR Q=0 TO 12
1485 LINE(130,120)-(117+Q,107-Q),0
1490 LINE-(105,95),0
1495 LINE(130,120)-(117+Q,107-Q),3
1500 LINE-(105,95),3
1505 LINE(130,95)-(105,95),0
1510 NEXT Q
1515 LINE(130,120)-(130,95),0
1520 LINE-(105,95),0
1525 d=750:GOSUB 31000
1530 FOR Q=0 TO 12
1535 LINE(130,120)-(130-Q,95+Q),0
1540 LINE-(105,95),0
1545 LINE(130,120)-(130-Q,95+Q),3
1550 LINE-(105,95),3
1555 LINE(130,95)-(105,95),0
1560 LINE(130,120)-(105,95),0
1565 NEXT Q
1570 FOR Q=0 TO 13
1575 LINE(130,120)-(117-Q,107+Q),3
1580 LINE-(105,95),3
1585 LINE(130,120)-(105,95),0
1590 LINE(105,95)-(130-Q,120)
1595 LINE(130,120)-(105,95+Q)
1600 NEXT Q
1605 LINE(130,120)-(105,96),3,BF
1610 LINE(104,120)-(104,95),0
1615 LINE(130,120)-(105,95),0
1620 d=750:GOSUB 31000
1625 GOSUB 30000   '*** <Textpad> ***
1630 PRINT FNCEN$("Your turn to fold and backfold.",40)
1635 d=1500:GOSUB 31000
1640 GOSUB 30000       '*** Textpad ***
1645 PRINT FNCEN$("To review those folds, press <R>.",40)
1650 d=1000:GOSUB 31000
1655 PRINT FNCEN$("To continue, press <C>.",40)
1660 A$=INKEY$:IF A$="" GOTO 1660
1665 IF A$="r" OR A$="R" GOTO 1680
1670 IF A$="c" OR A$="C" GOTO 1750
1675 GOTO 1640
1680 FOR A=0 TO 20
1685 OUT 66,A:OUT 66,A
1690 OUT 97,(INP(97) OR 3)
1695 NEXT A
1700 SOUND 37,0
1705 LINE(190,70)-(215,95)
1710 LINE-(190,120)
1715 LINE(130,70)-(105,95)
1720 LINE-(130,120)
1725 LINE(105,95)-(215,95),0
1730 GOSUB 30000   '** Textpad **
1735 PRINT FNCEN$("* Review *",40)
1740 d=1500:GOSUB 31000
1745 GOTO 490
1750 GOSUB 30000         '** Textpad **
1755 PRINT FNCEN$("Next, we fold this edge",40)
1760 d=750:GOSUB 31000
1765                             '*** arrow left ***
1770 PSET(223,95):DRAW"E5D4R7D2L7D4H5"
1775 PAINT(229,95)
1780 FOR K=1 TO 25
1785 LINE(215,70)-(215,120),0
1790 d=25:GOSUB 31000
1795 LINE(215,70)-(215,120)
1800 NEXT K
1805 PSET(215,95),0
1810 d=750:GOSUB 31000
1815 CIRCLE(229,95),7,0
1820 PAINT(229,95),0
1825 d=750:GOSUB 31000
1830 GOSUB 30000         '** Textpad **
1835 PRINT FNCEN$("over across this line,",40)
1840 d=750:GOSUB 31000
1845 FOR V=70 TO 120 STEP 2
1850 PSET(190,V),0
1855 NEXT V
1860 d=750:GOSUB 31000
1865 GOSUB 30000         '** Textpad **
1870 PRINT FNCEN$("THUS!",40)
1875 d=750:GOSUB 31000
1880 FOR H=215 TO 190 STEP -1
1885 LINE(190,70)-(H,95),0
1890 LINE-(190,120),0
1895 LINE(190,70)-(H,95),3
1900 LINE-(190,120),3
1905 LINE(H,70)-(H,120),0
1910 d=20:GOSUB 31000
1915 NEXT H
1920 FOR H=190 TO 165 STEP -1
1925 LINE(H,70)-(H,120),0
1930 LINE(H,70)-(H,120),3
1935 d=20:GOSUB 31000
1940 NEXT H
1945 LINE(165,70)-(165,120),0
1950 d=750:GOSUB 31000
1955 GOSUB 30000         '** Textpad **
1960 PRINT FNCEN$("and return!",40)
1965 d=750:GOSUB 31000
1970 FOR H=165 TO 190
1975 LINE(H,70)-(H,120),0
1980 LINE(H,70)-(H,120),3
1985 d=20:GOSUB 31000
1990 PSET(H,95),0
1995 NEXT H
2000 FOR H=190 TO 215
2005 LINE(H,70)-(H,120),3
2010 LINE(190,70)-(H,95),0
2015 LINE-(190,120),0
2020 LINE(190,70)-(H,95),3
2025 LINE-(190,120),3
2030 FOR V=70 TO 120 STEP 2
2035 PSET(187,V),0
2040 NEXT V
2045 PSET(H,95),0
2050 NEXT H
2055 LINE(187,70)-(215,95),0
2060 LINE-(187,120),0
2065 d=750:GOSUB 31000
2070 GOSUB 30000         '** Textpad **
2075 PRINT FNCEN$("and repeat on the other side.",40)
2080 FOR V=70 TO 120 STEP 2
2085 PSET(130,V),0
2090 NEXT V
2095 d=750:GOSUB 31000
2100 FOR H=105 TO 130
2105 LINE(130,70)-(H,95),0
2110 LINE-(130,120),0
2115 LINE(130,70)-(H,95),3
2120 LINE-(130,120),3
2125 LINE(H,70)-(H,120),0
2130 d=20:GOSUB 31000
2135 NEXT H
2140 FOR H=130 TO 155
2145 LINE(H,70)-(H,120),0
2150 LINE(H,70)-(H,120),3
2155 d=20:GOSUB 31000
2160 NEXT H
2165 LINE(155,70)-(155,120),0
2170 d=750:GOSUB 31000
2175 LINE(155,70)-(155,120),0
2180 FOR H=155 TO 130 STEP -1
2185 LINE(H,70)-(H,120),0
2190 LINE(H,70)-(H,120),3
2195 d=20:GOSUB 31000
2200 PSET(H,95),0
2205 NEXT H
2210 FOR H=130 TO 105 STEP -1
2215 LINE(H,70)-(H,120),3
2220 LINE(130,70)-(H,95),0
2225 LINE-(130,120),0
2230 LINE(130,70)-(H,95),3
2235 LINE-(130,120),3
2240 FOR V=70 TO 120 STEP 2
2245 PSET(133,V),0
2250 NEXT V
2255 PSET(H,95),0
2260 NEXT H
2265 LINE(133,70)-(105,95),0
2270 LINE-(133,120),0
2275 d=750:GOSUB 31000
2280 GOSUB 30000       '*** Textpad ***
2285 PRINT FNCEN$("To review those folds, press <R>.",40)
2290 d=1000:GOSUB 31000
2295 PRINT FNCEN$("To continue, press <C>.",40)
2300 A$=INKEY$:IF A$="" GOTO 2300
2305 IF A$="r" OR A$="R" GOTO 2320
2310 IF A$="c" OR A$="C" GOTO 2420
2315 GOTO 2280
2320 FOR A=0 TO 20
2325 OUT 66,A:OUT 66,A
2330 OUT 97,(INP(97) OR 3)
2335 NEXT A
2340 SOUND 37,0
2345 LINE(187,70)-(187,120)
2350 LINE-(215,95)
2355 LINE-(187,70)
2360 LINE(133,70)-(133,120)
2365 LINE-(105,95)
2370 LINE-(133,70)
2375 LINE(105,95)-(215,95),0
2380 LINE(190,70)-(215,95),0
2385 LINE-(190,120),0
2390 LINE(130,70)-(105,95),0
2395 LINE-(130,120),0
2400 GOSUB 30000   '** Textpad **
2405 PRINT FNCEN$("* Review *",40)
2410 d=1500:GOSUB 31000
2415 GOTO 1750
2420 GOSUB 30000         '** Textpad **
2425 PRINT FNCEN$("We now meet a new fold",40)
2430 d=1500:GOSUB 31000
2435 GOSUB 30000         '** Textpad **
2440 PRINT FNCEN$("The SQUASH FOLD",40)
2445 d=1500:GOSUB 31000
2450 GOSUB 30000         '** Textpad **
2455 PRINT FNCEN$("In this fold, this part of our figure",40)
2460 d=1500:GOSUB 31000
2465 FOR K=1 TO 15
2470 LINE(187,70)-(215,70),0
2475 LINE-(215,95),0
2480 LINE-(187,70),0
2485 d=25:GOSUB 31000
2490 LINE(187,70)-(215,70),3
2495 LINE-(215,95),3
2500 LINE-(187,70),3
2505 NEXT K
2510 LINE(187,70)-(215,95),0
2515 GOSUB 30000         '** Textpad **
2520 PRINT FNCEN$("gets squashed into this figure.",40)
2525 d=1500:GOSUB 31000
2530 FOR A=0 TO 20
2535 OUT 66,A:OUT 66,A
2540 OUT 97,(INP(97) OR 3)
2545 NEXT A
2550 SOUND 37,0
2555 LINE(187,70)-(215,70),0
2560 LINE-(215,95),0
2565 LINE-(187,70),0
2570 PAINT(205,80),0
2575 LINE(187,70)-(160,95),0
2580 LINE-(215,95),0
2585 FOR V=70 TO 95 STEP 2
2590 PSET(187,V),0
2595 NEXT V
2600 d=150:GOSUB 31000
2605 FOR K=1 TO 10
2610 LINE(187,70)-(160,95)
2615 LINE-(215,95)
2620 LINE-(187,70)
2625 LINE-(187,95)
2630 d=25:GOSUB 31000
2635 LINE(187,70)-(160,95),0
2640 LINE-(215,95),0
2645 LINE-(187,70),0
2650 LINE-(187,95),0
2655 NEXT K
2660 LINE(187,70)-(187,95),3
2665 FOR V=70 TO 95 STEP 2
2670 PSET(187,V),0
2675 NEXT V
2680 GOSUB 30000         '** Textpad **
2685 PRINT FNCEN$("Let's analyze that transformation",40)
2690 d=1500:GOSUB 31000
2695 GOSUB 30000         '** Textpad **
2700 PRINT FNCEN$("in a bit more detail.",40)
2705 d=1500:GOSUB 31000
2710 GOSUB 30000         '** Textpad **
2715 LINE(160,95)-(187,70),3
2720 FOR A=0 TO 20
2725 OUT 66,A:OUT 66,A
2730 OUT 97,(INP(97) OR 3)
2735 NEXT A
2740 SOUND 37,0
2745 LINE-(187,95),3
2750 FOR V=70 TO 95 STEP 2
2755 PSET(187,V),0
2760 NEXT V
2765 LINE(187,70)-(215,70),3
2770 LINE-(215,95),3
2775 PAINT(205,85),3
2780 LINE(187,70)-(215,95),0
2785 LINE-(187,120),0
2790 LINE(160,95)-(215,95),0
2795 d=250:GOSUB 31000
2800 GOSUB 30000         '** Textpad **
2805 PRINT FNCEN$("Remember, we have two layers here.",40)
2810 d=1500:GOSUB 31000
2815 LINE(215,95)-(210,90),3
2820 LINE(210,95)-(215,90),0
2825 LINE-(210,90),0
2830 LINE-(210,95),0
2835 PSET(215,95),0
2840 d=1500:GOSUB 31000
2845 LINE(210,95)-(215,90),3
2850 LINE-(210,90),3
2855 LINE-(210,95),3
2860 LINE(215,95)-(210,90),0
2865 LINE(215,95)-(200,95),0
2870 d=250:GOSUB 31000
2875 GOSUB 30000         '** Textpad **
2880 PRINT FNCEN$("This line",40)
2885 d=750:GOSUB 31000
2890 LINE(187,70)-(215,95),3
2895 PSET(210,90),3
2900 FOR K=1 TO 25
2905 LINE(187,70)-(215,95),3
2910 d=25:GOSUB 31000
2915 LINE(187,70)-(215,95),2
2920 NEXT K
2925 d=750:GOSUB 31000
2930 GOSUB 30000         '** Textpad **
2935 PRINT FNCEN$("will move along this line",40)
2940 d=750:GOSUB 31000
2945 FOR K=1 TO 25
2950 LINE(215,95)-(160,95),3
2955 d=25:GOSUB 31000
2960 LINE(215,95)-(160,95),0
2965 NEXT K
2970 'LINE(160,95)-(215,95),0
2975 d=750:GOSUB 31000
2980 GOSUB 30000         '** Textpad **
2985 PRINT FNCEN$("over to here,",40)
2990 d=750:GOSUB 31000
2995 LINE(187,70)-(215,95),3
3000 FOR K=1 TO 25
3005 LINE(187,70)-(161,94),3
3010 d=25:GOSUB 31000
3015 LINE(187,70)-(161,94),2
3020 NEXT K
3025 d=750:GOSUB 31000
3030 LINE(187,70)-(161,94),3
3035 LINE(187,70)-(215,95),2
3040 GOSUB 30000         '** Textpad **
3045 PRINT FNCEN$("and this line",40)
3050 d=750:GOSUB 31000
3055 FOR K=1 TO 25
3060 LINE(187,70)-(215,70),3
3065 LINE(187,71)-(215,71),3
3070 d=25:GOSUB 31000
3075 LINE(187,70)-(215,70),2
3080 LINE(187,71)-(215,71),2
3085 NEXT K
3090 LINE(187,71)-(215,71),3
3095 d=750:GOSUB 31000
3100 GOSUB 30000         '** Textpad **
3105 PRINT FNCEN$("will wind up here.",40)
3110 d=750:GOSUB 31000
3115 FOR A=0 TO 20
3120 OUT 66,A:OUT 66,A
3125 OUT 97,(INP(97) OR 3)
3130 NEXT A
3135 SOUND 37,0
3140 LINE(187,70)-(215,70),0
3145 LINE-(215,95),0
3150 LINE-(187,70),0
3155 PAINT(205,80),0
3160 LINE(187,70)-(215,95),3
3165 LINE(187,70)-(161,94),2
3170 FOR K=1 TO 25
3175 LINE(187,70)-(187,94),3
3180 d=25:GOSUB 31000
3185 LINE(187,70)-(187,94),2
3190 NEXT K
3195 d=1500:GOSUB 31000
3200 GOSUB 30000         '** Textpad **
3205 PRINT FNCEN$("OK!  Let's execute that fold.",40)
3210 d=750:GOSUB 31000
3215 FOR A=0 TO 20
3220 OUT 66,A:OUT 66,A
3225 OUT 97,(INP(97) OR 3)
3230 NEXT A
3235 SOUND 37,0
3240 LINE(161,94)-(187,70),3
3245 LINE-(187,94),3
3250 LINE(187,70)-(215,94),3,BF
3255 LINE(187,70)-(215,95),0
3260 FOR V=70 TO 95 STEP 2
3265 PSET(187,V),0
3270 NEXT V
3275 d=750:GOSUB 31000
3280 GOSUB 30000         '** Textpad **
3285 PRINT FNCEN$("And away we go!",40)
3290 d=750:GOSUB 31000
3295 LINE(187,70)-(215,95),3
3300 FOR Q=1 TO 35
3305 LINE(186,70)-(214-Q,95),0
3310 LINE(187,70)-(215-Q,95),0
3315 LINE-(215-.4*Q,70+.371*Q),0
3320 LINE(187,70)-(215-Q,95),3
3325 LINE(214,95)-(214-.4*Q,70+.371*Q),3
3330 LINE(215,95)-(215-.4*Q,70+.371*Q),3
3335 LINE(187,70)-(215-.4*Q,70+.371*Q),0
3340 LINE-(215,95),0
3345 LINE(187,70)-(215,95)
3350 PSET(215-Q,95),0
3355 d=50:GOSUB 31000
3360 NEXT Q
3365 PSET(198,77),0:PSET(201,79),0
3370 PSET(203,80),0:PSET(204,81),0
3375 PSET(207,85),0
3380 LINE(187,70)-(215,95),3
3385 LINE(195,78)-(200,83),3
3390 FOR Q=0 TO 20
3395 LINE(186,70)-(179-Q,95),0
3400 LINE(187,70)-(180-Q,95),0
3405 LINE-(201-.7*Q,83+.6*Q),0
3410 LINE(160,94)-(201-.7*Q,83+.6*Q),3
3415 LINE-(215,94),3
3420 LINE(187,70)-(180-Q,95),3
3425 LINE(186,70)-(200-.7*Q,83+.6*Q),0
3430 LINE(187,70)-(201-.7*Q,83+.6*Q),0
3435 LINE(187,70)-(201-.7*Q,83+.6*Q),3
3440 LINE(160,95)-(215,95),0
3445 LINE(195,78)-(200,83),3
3450 d=50:GOSUB 31000
3455 NEXT Q
3460 PSET(201,83),2
3465 LINE(185,71)-(160,94),3
3470 PSET(179,76),3
3475 LINE(186,70)-(186,94),3
3480 LINE(187,70)-(160,95),0
3485 CIRCLE(198,87),6,0
3490 PAINT(198,87),0
3495 CIRCLE(198,87),6,3
3500 PAINT(198,87),3
3505 PSET(194,81),3
3510 FOR V=70 TO 95 STEP 2
3515 PSET(187,V),0
3520 NEXT V
3525 d=750:GOSUB 31000
3530 GOSUB 30000         '** Textpad **
3535 PRINT FNCEN$("And with the other corners,",40)
3540 d=750:GOSUB 31000
3545 GOSUB 30000   '*** <Textpad> ***
3550 PRINT FNCEN$("SO!",40)
3555 d=750:GOSUB 31000
3560 LINE(187,120)-(215,95),3
3565 FOR Q=1 TO 35
3570 LINE(186,120)-(214-Q,95),0
3575 LINE(187,120)-(215-Q,95),0
3580 LINE-(215-.4*Q,120-.371*Q),0
3585 LINE(187,120)-(215-Q,95),3
3590 LINE(214,95)-(214-.4*Q,120-.371*Q),3
3595 LINE(215,95)-(215-.4*Q,120-.371*Q),3
3600 LINE(187,120)-(215-.4*Q,120-.371*Q),0
3605 LINE-(215,95),0
3610 LINE(187,120)-(215,95)
3615 PSET(215-Q,95),0
3620 NEXT Q
3625 PSET(198,113),0:PSET(201,111),0
3630 PSET(203,110),0:PSET(204,109),0
3635 PSET(207,105),0
3640 LINE(187,120)-(215,95),3
3645 LINE(195,112)-(200,107),3
3650 FOR Q=0 TO 20
3655 LINE(186,120)-(179-Q,95),0
3660 LINE(187,120)-(180-Q,95),0
3665 LINE-(201-.7*Q,107-.6*Q),0
3670 LINE(160,96)-(201-.7*Q,107-.6*Q),3
3675 LINE-(215,96),3
3680 LINE(187,120)-(180-Q,95),3
3685 LINE(186,120)-(200-.7*Q,107-.6*Q),0
3690 LINE(187,120)-(201-.7*Q,107-.6*Q),0
3695 LINE(187,120)-(201-.7*Q,107-.6*Q),3
3700 LINE(160,95)-(215,95),0
3705 LINE(195,112)-(200,107),3
3710 NEXT Q
3715 PSET(201,107),2
3720 LINE(185,119)-(160,96),3
3725 PSET(179,114),3
3730 LINE(186,120)-(186,96),3
3735 LINE(187,120)-(160,95),0
3740 CIRCLE(198,103),6,0
3745 PAINT(198,103),0
3750 CIRCLE(198,103),6,3
3755 PAINT(198,103),3
3760 PSET(194,109),3
3765 FOR V=95 TO 120 STEP 2
3770 PSET(187,V),0
3775 NEXT V
3780 PSET(194,113),3
3785 d=750:GOSUB 31000
3790 LINE(132,70)-(105,95),3
3795 FOR Q=1 TO 35
3800 LINE(134,70)-(106+Q,95),0
3805 LINE(133,70)-(105+Q,95),0
3810 LINE-(105+.4*Q,70+.371*Q),0
3815 LINE(133,70)-(105+Q,95),3
3820 LINE(106,95)-(106+.4*Q,70+.371*Q),3
3825 LINE(105,95)-(105+.4*Q,70+.371*Q),3
3830 LINE(133,70)-(105+.4*Q,70+.371*Q),0
3835 LINE-(105,95),0
3840 LINE(133,70)-(105,95)
3845 PSET(105+Q,95),0
3850 NEXT Q
3855 PSET(122,77),0:PSET(119,79),0
3860 PSET(117,80),0:PSET(116,81),0
3865 PSET(113,85),0
3870 LINE(133,70)-(105,95),3
3875 LINE(125,78)-(120,83),3
3880 FOR Q=0 TO 20
3885 LINE(134,70)-(141+Q,95),0
3890 LINE(133,70)-(140+Q,95),0
3895 LINE-(119+.7*Q,83+.6*Q),0
3900 LINE(160,94)-(119+.7*Q,83+.6*Q),3
3905 LINE-(105,94),3
3910 LINE(133,70)-(140+Q,95),3
3915 LINE(134,70)-(120+.7*Q,83+.6*Q),0
3920 LINE(133,70)-(119+.7*Q,83+.6*Q),0
3925 LINE(133,70)-(119+.7*Q,83+.6*Q),3
3930 LINE(160,95)-(105,95),0
3935 LINE(125,78)-(120,83),3
3940 NEXT Q
3945 PSET(119,83),2
3950 LINE(135,71)-(160,94),3
3955 PSET(141,76),3
3960 LINE(134,70)-(134,94),3
3965 LINE(133,70)-(160,95),0
3970 CIRCLE(122,87),6,0
3975 PAINT(122,87),0
3980 CIRCLE(122,87),6,3
3985 PAINT(122,87),3
3990 PSET(124,80),3
3995 LINE(133,70)-(133,95),3
4000 FOR V=70 TO 95 STEP 2
4005 PSET(133,V),0
4010 NEXT V
4015 d=750:GOSUB 31000
4020 LINE(133,120)-(105,95),3
4025 FOR Q=1 TO 35
4030 LINE(134,120)-(106+Q,95),0
4035 LINE(133,120)-(105+Q,95),0
4040 LINE-(105-.4*Q,120+.371*Q),0
4045 LINE(133,120)-(105+Q,95),3
4050 LINE(106,95)-(106+.4*Q,120-.371*Q),3
4055 LINE(105,95)-(105+.4*Q,120-.371*Q),3
4060 LINE(133,120)-(105+.4*Q,120-.371*Q),0
4065 LINE-(105,95),0
4070 LINE(133,120)-(105,95)
4075 PSET(105+Q,95),0
4080 NEXT Q
4085 PSET(122,113),0:PSET(119,111),0
4090 PSET(117,110),0:PSET(116,109),0
4095 PSET(113,105),0
4100 LINE(133,120)-(105,95),3
4105 LINE(125,112)-(120,107),3
4110 FOR Q=0 TO 20
4115 LINE(134,120)-(141+Q,95),0
4120 LINE(133,120)-(140+Q,95),0
4125 LINE-(119+.7*Q,107-.6*Q),0
4130 LINE(160,96)-(119+.7*Q,107-.6*Q),3
4135 LINE-(105,96),3
4140 LINE(133,120)-(140+Q,95),3
4145 LINE(134,120)-(120+.7*Q,107-.6*Q),0
4150 LINE(133,120)-(119+.7*Q,107-.6*Q),0
4155 LINE(133,120)-(119+.7*Q,107-.6*Q),3
4160 LINE(160,95)-(105,95),0
4165 LINE(125,112)-(120,107),3
4170 NEXT Q
4175 PSET(119,107),2
4180 LINE(135,119)-(160,96),3
4185 PSET(141,114),3
4190 LINE(134,120)-(134,96),3
4195 LINE(133,120)-(160,95),0
4200 CIRCLE(122,103),6,0
4205 PAINT(122,103),0
4210 CIRCLE(122,103),6,3
4215 PAINT(122,103),3
4220 PSET(139,109),3
4225 FOR V=95 TO 120 STEP 2
4230 PSET(133,V),0
4235 NEXT V
4240 PSET(139,113),3
4245 PSET(125,108),3:PSET(126,113),3
4250 GOSUB 30000         '** Textpad **
4255 PRINT FNCEN$("All SQUASHes accomplished!",40)
4260 d=1500:GOSUB 31000
4265 GOSUB 30000       '*** Textpad ***
4270 PRINT FNCEN$("To review those folds, press <R>.",40)
4275 d=1000:GOSUB 31000
4280 PRINT FNCEN$("To continue, press <C>.",40)
4285 A$=INKEY$:IF A$="" GOTO 4285
4290 IF A$="r" OR A$="R" GOTO 4305
4295 IF A$="c" OR A$="C" GOTO 4405
4300 GOTO 4265
4305 FOR A=0 TO 20
4310 OUT 66,A:OUT 66,A
4315 OUT 97,(INP(97) OR 3)
4320 NEXT A
4325 SOUND 37,0
4330 LINE(105,70)-(215,120),3,BF
4335 LINE(133,70)-(105,95),0
4340 LINE-(133,120),0
4345 LINE(187,70)-(215,95),0
4350 LINE-(187,120),0
4355 FOR V=70 TO 120 STEP 2
4360 PSET(187,V),0
4365 PSET(133,V),0
4370 NEXT V
4375 LINE(105,95)-(215,95),0
4380 GOSUB 30000   '** Textpad **
4385 PRINT FNCEN$("* Review *",40)
4390 d=1500:GOSUB 31000
4395 GOTO 2420
4400 LINE(105,95)-(215,105),0
4405 GOSUB 30000         '** Textpad **
4410 PRINT FNCEN$("For our next folds,",40)
4415 d=1500:GOSUB 31000
4420 PRINT FNCEN$("we need to turn our figure over.",40)
4425 d=1500:GOSUB 31000
4430 GOSUB 30000         '** Textpad **
4435 PRINT FNCEN$("Let's just do that.",40)
4440 d=1500:GOSUB 31000
4445 GOSUB 30000         '** Textpad **
4450 PRINT FNCEN$("One moment, please.",40)
4455 d=750:GOSUB 31000
4460 FOR A=0 TO 20
4465 OUT 66,A:OUT 66,A
4470 OUT 97,(INP(97) OR 3)
4475 NEXT A
4480 SOUND 37,0
4485 CLS
4490 LINE(70,120)-(115,80)
4495 LINE-(205,80)
4500 LINE-(250,120)
4505 LINE-(205,160)
4510 LINE-(115,160)
4515 LINE-(70,120)
4520 PAINT(160,120)
4525 FOR H=70 TO 250 STEP 2
4530 PSET(H,120),0
4535 NEXT H
4540 d=250:GOSUB 31000
4545 GOSUB 30000         '** Textpad **
4550 PRINT FNCEN$("We next take this lower portion",40)
4555 d=750:GOSUB 31000
4560 FOR K=1 TO 15
4565 LINE(70,120)-(115,160),0
4570 LINE-(205,160),0
4575 LINE-(250,120),0
4580 LINE-(70,120),0
4585 d=25:GOSUB 31000
4590 LINE(70,120)-(115,160),3
4595 LINE-(205,160),3
4600 LINE-(250,120),3
4605 LINE-(70,120),3
4610 NEXT K
4615 FOR H=70 TO 250 STEP 2
4620 PSET(H,120),0
4625 NEXT H
4630 d=250:GOSUB 31000
4635 GOSUB 30000         '** Textpad **
4640 PRINT FNCEN$("up and over to this upper portion,",40)
4645 d=750:GOSUB 31000
4650 FOR K=1 TO 15
4655 LINE(70,120)-(115,80),0
4660 LINE-(205,80),0
4665 LINE-(250,120),0
4670 LINE-(70,120),0
4675 d=25:GOSUB 31000
4680 LINE(70,120)-(115,80),3
4685 LINE-(205,80),3
4690 LINE-(250,120),3
4695 LINE-(70,120),3
4700 NEXT K
4705 FOR H=70 TO 250 STEP 2
4710 PSET(H,120),0
4715 NEXT H
4720 GOSUB 30000         '** Textpad **
4725 PRINT FNCEN$("SO!",40)
4730 d=750:GOSUB 31000
4735 FOR V=160 TO 120 STEP -1
4740 LINE(70,120)-(115,V),0
4745 LINE-(205,V),0
4750 LINE-(250,120),0
4755 NEXT V
4760 FOR V=120 TO 80 STEP -1
4765 LINE(70,120)-(115,V),0
4770 LINE-(205,V),0
4775 LINE-(250,120),0
4780 LINE(70,120)-(115,V),3
4785 LINE-(205,V),3
4790 LINE-(250,120),3
4795 NEXT V
4800 LINE(115,80)-(205,160),0
4805 LINE(115,160)-(205,80),0
4810 FOR V=80 TO 120 STEP 2
4815 PSET(115,V),0
4820 PSET(205,V),0
4825 NEXT V
4830 d=750:GOSUB 31000
4835 GOSUB 30000         '** Textpad **
4840 PRINT FNCEN$("Press <C> to continue.",40)
4845 A$=INKEY$:IF A$="" GOTO 4845
4850 IF A$="C" OR A$="c" GOTO 4860
4855 GOTO 4835
4860 GOSUB 30000         '** Textpad **
4865 PRINT FNCEN$("Next, this corner",40)
4870 d=750:GOSUB 31000
4875 LINE(155,115)-(159,119)
4880 LINE(155,116)-(150,120),0
4885 LINE-(155,120),0
4890 LINE-(155,116),0
4895 d=1500:GOSUB 31000
4900 GOSUB 30000         '** Textpad **
4905 PRINT FNCEN$("goes down to this point",40)
4910 d=750:GOSUB 31000
4915                               '*** flashdot ***
4920 FOR K=1 TO 15
4925 CIRCLE(115,137),5,3
4930 LINE(113,137)-(117,137),3
4935 LINE(115,135)-(115,139),3
4940 d=25:GOSUB 31000
4945 CIRCLE(115,137),5,0
4950 LINE(113,137)-(117,137),0
4955 LINE(115,135)-(115,139),0
4960 NEXT K
4965 d=750:GOSUB 31000
4970                             '*** end flashdot ***
4975 GOSUB 30000         '** Textpad **
4980 PRINT FNCEN$("across this line,",40)
4985 d=750:GOSUB 31000
4990 LINE(115,80)-(133,120),0
4995 d=750:GOSUB 31000
5000 GOSUB 30000         '** Textpad **
5005 PRINT FNCEN$("SO!",40)
5010 d=750:GOSUB 31000
5015 FOR A=0 TO 20
5020 OUT 66,A:OUT 66,A
5025 OUT 97,(INP(97) OR 3)
5030 NEXT A
5035 SOUND 37,0
5040 LINE(155,115)-(159,119),0
5045 LINE(155,116)-(150,120),3
5050 LINE-(155,120),3
5055 LINE-(155,116),3
5060 LINE(116,81)-(159,119),3
5065 PSET(120,84),3
5070 LINE(133,120)-(115,137)
5075 LINE-(115,120)
5080 PAINT(120,125)
5085 LINE(115,81)-(115,120),3
5090 LINE(114,80)-(114,120),0
5095 LINE(115,80)-(133,120),0
5100 d=1000:GOSUB 31000
5105 GOSUB 30000         '** Textpad **
5110 PRINT FNCEN$("and on the other side,",40)
5115 d=1000:GOSUB 31000
5120 LINE(205,80)-(187,120),0
5125 d=750:GOSUB 31000
5130 FOR A=0 TO 20
5135 OUT 66,A:OUT 66,A
5140 OUT 97,(INP(97) OR 3)
5145 NEXT A
5150 SOUND 37,0
5155 LINE(205,80)-(160,120),3
5160 LINE(187,120)-(205,137)
5165 LINE-(205,120)
5170 PAINT(200,125)
5175 LINE(205,80)-(205,120),3
5180 LINE(206,80)-(206,120),0
5185 LINE(205,80)-(187,120),0
5190 d=750:GOSUB 31000
5195 GOSUB 30000         '** Textpad **
5200 PRINT FNCEN$("and on the hidden side,",40)
5205 d=1000:GOSUB 31000
5210 FOR A=0 TO 20
5215 OUT 66,A:OUT 66,A
5220 OUT 97,(INP(97) OR 3)
5225 NEXT A
5230 SOUND 37,0
5235 d=250:GOSUB 31000
5240 GOSUB 30000         '** Textpad **
5245 PRINT FNCEN$("and one more on the hidden side.",40)
5250 d=1000:GOSUB 31000
5255 FOR A=0 TO 20
5260 OUT 66,A:OUT 66,A
5265 OUT 97,(INP(97) OR 3)
5270 NEXT A
5275 SOUND 37,0
5280 d=750:GOSUB 31000
5285 GOSUB 30000         '** Textpad **
5290 PRINT FNCEN$("Press <C> to continue.",40)
5295 A$=INKEY$:IF A$="" GOTO 5295
5300 IF A$="C" OR A$="c" GOTO 5310
5305 GOTO 5285
5310 GOSUB 30000         '** Textpad **
5315 PRINT FNCEN$("The next two folds are for PIG's tail.",40)
5320 d=1500:GOSUB 31000
5325 GOSUB 30000         '** Textpad **
5330 PRINT FNCEN$("The first is a POCKET FOLD.",40)
5335 d=1500:GOSUB 31000
5340 PRINT FNCEN$("The second is a REVERSE POCKET FOLD.",40)
5345 d=1500:GOSUB 31000
5350 PRINT FNCEN$("We will be BACKFOLDing both these folds.",40)
5355 d=2500:GOSUB 31000
5360 GOSUB 30000         '** Textpad **
5365 PRINT FNCEN$("Here's the first fold.",40)
5370 d=1000:GOSUB 31000
5375 GOSUB 30000         '** Textpad **
5380 PRINT FNCEN$("This corner",40)
5385 d=750:GOSUB 31000
5390                             '*** arrow up ***
5395 FOR K=1 TO 15
5400 PSET(250,128):DRAW"G5R4D7R2U7R4H5"
5405 PAINT(250,134)
5410 d=25:GOSUB 31000
5415 CIRCLE(250,134),7,0
5420 PAINT(250,134),0
5425 NEXT K
5430 CIRCLE(250,134),7,0
5435 PAINT(250,134),0
5440 d=750:GOSUB 31000
5445                             '***end arrow up ***
5450 GOSUB 30000         '** Textpad **
5455 PRINT FNCEN$("folds up to this corner",40)
5460 d=750:GOSUB 31000
5465                             '*** arrow down ***
5470 FOR K=1 TO 15
5475 PSET(205,72):DRAW"E5L4U7L2D7L4F5"
5480 PAINT(205,66)
5485 d=25:GOSUB 31000
5490 CIRCLE(205,66),7,0
5495 PAINT(205,66),0
5500 NEXT K
5505 CIRCLE(205,66),7,0
5510 PAINT(205,66),0
5515 d=750:GOSUB 31000
5520                             '***end arrow down ***
5525 GOSUB 30000         '** Textpad **
5530 PRINT FNCEN$("across this line,",40)
5535 d=750:GOSUB 31000
5540 LINE(227,100)-(207,120),0
5545 d=750:GOSUB 31000
5550 GOSUB 30000   '** <Textpad **
5555 PRINT FNCEN$("SO!",40)
5560 d=750:GOSUB 31000
5565 FOR Q=0 TO 43
5570 LINE(207,120)-(250-.535*Q,120-.4650001*Q),0
5575 LINE(207,121)-(250-.535*Q,121-.4650001*Q),0
5580 d=10:GOSUB 31000
5585 NEXT Q
5590 FOR Q=0 TO 20
5595 LINE(207,120)-(227-Q,100-.9000001*Q),0
5600 LINE(208,120)-(228,101),0
5605 LINE(207,120)-(227-Q,100-.9000001*Q),3
5610 d=10:GOSUB 31000
5615 NEXT Q
5620 GOSUB 30000         '** Textpad **
5625 PRINT FNCEN$("Press <C> to continue.",40)
5630 A$=INKEY$:IF A$="" GOTO 5630
5635 IF A$="C" OR A$="c" GOTO 5645
5640 GOTO 5620
5645 GOSUB 30000         '** Textpad **
5650 PRINT FNCEN$("The second fold takes this edge",40)
5655 d=750:GOSUB 31000
5660 FOR K=1 TO 15
5665 LINE(207,82)-(207,120),0
5670 d=25:GOSUB 31000
5675 LINE(207,82)-(207,120),3
5680 NEXT K
5685 d=750:GOSUB 31000
5690                             '***end arrow down ***
5695 GOSUB 30000         '** Textpad **
5700 PRINT FNCEN$("over to this edge",40)
5705 d=750:GOSUB 31000
5710                             '*** arrow left ***
5715 PSET(225,113):DRAW"R8G3F6G2H6G3U8"
5720 PAINT(230,118)
5725 FOR K=1 TO 25
5730 LINE(207,120)-(227,100),0
5735 d=25:GOSUB 31000
5740 LINE(207,120)-(227,100),3
5745 NEXT K
5750 d=750:GOSUB 31000
5755 CIRCLE(230,118),9,0
5760 PAINT(230,118),0
5765 GOSUB 30000         '** Textpad **
5770 PRINT FNCEN$("along this line,",40)
5775 d=750:GOSUB 31000
5780 LINE(207,120)-(217,91),0
5785 d=750:GOSUB 31000
5790 GOSUB 30000         '** Textpad **
5795 PRINT FNCEN$("SO!",40)
5800 d=750:GOSUB 31000
5805 FOR Q=0 TO 10
5810 LINE(208,120)-(208+Q,83+.9000001*Q),0
5815 LINE(207,120)-(207+Q,82+.9000001*Q),0
5820 LINE(207,120)-(207+Q,82+.9000001*Q),3
5825 LINE(207,120)-(217,91),0
5830 PSET(213,90),3
5835 PSET(215,91),3
5840 d=25:GOSUB 31000
5845 NEXT Q
5850 FOR H=217 TO 237
5855 LINE(207,120)-(H,91),0
5860 LINE(207,120)-(H,91),3
5865 LINE(207,120)-(217,91),0
5870 d=25:GOSUB 31000
5875 NEXT H
5880 LINE(207,120)-(237,91),0
5885 d=750:GOSUB 31000
5890 GOSUB 30000   '*** Textpad ***
5895 PRINT FNCEN$("Press <C> to continue.",40)
5900 A$=INKEY$:IF A$="" GOTO 5900
5905 IF A$="C" OR A$="c" GOTO 5915
5910 GOTO 5890
5915 GOSUB 30000   '** Textpad **
5920 PRINT FNCEN$("Next comes a series of returns",40)
5925 d=1500:GOSUB 31000
5930 GOSUB 30000   '** Textpad **
5935 PRINT FNCEN$("and backfolds,",40)
5940 d=1500:GOSUB 31000
5945 GOSUB 30000   '** Textpad **
5950 PRINT FNCEN$("and here's the first return,",40)
5955 d=1000:GOSUB 31000
5960 FOR Q=0 TO 20
5965 LINE(228-.591*Q,99-.45*Q)-(237-Q,91),0
5970 LINE(228-.591*Q,98-.45*Q)-(237-Q,91),0
5975 LINE(207,120)-(227-Q,100-.818*Q),3
5980 LINE(207,120)-(228-Q,100-.818*Q),3
5985 LINE(217,91)-(207,120),0
5990 PSET(215,95)
5995 d=25:GOSUB 31000
6000 NEXT Q
6005 FOR Q=0 TO 10
6010 LINE(207,120)-(217-Q,91-.9000001*Q),0
6015 LINE(207,120)-(217-Q,91-.9000001*Q)
6020 LINE(207,120)-(217,91),0
6025 PSET(218,94):PSET(217,96)
6030 d=25:GOSUB 31000
6035 NEXT Q
6040 LINE(208,120)-(228,100),0
6045 LINE(209,120)-(229,100),0
6050 LINE(208,82)-(228,100),0
6055 LINE(209,82)-(229,100),0
6060 LINE(210,120)-(230,100),0
6065 LINE(211,120)-(231,100),0
6070 LINE(212,120)-(232,100),0
6075 LINE(207,120)-(217,91),0
6080 d=750:GOSUB 31000
6085 GOSUB 30000
6090 PRINT FNCEN$("Press <C> to continue.",40)
6095 A$=INKEY$:IF A$="" GOTO 6095
6100 IF A$="C" OR A$="c" GOTO 6110
6105 GOTO 6085
6110 GOSUB 30000   '** <Textpad **
6115 PRINT FNCEN$("and here's the second return.",40)
6120 d=1000:GOSUB 31000
6125 FOR Q=0 TO 20
6130 LINE(207,120)-(207+Q,82+.9000001*Q),0
6135 LINE(207,120)-(207+Q,82+.9000001*Q),3
6140 PSET(208,120),0
6145 d=25:GOSUB 31000
6150 NEXT Q
6155 FOR Q=0 TO 23
6160 LINE(207,120)-(228+Q,100+.87*Q)
6165 LINE(207,120)-(227+Q,100+.87*Q)
6170 LINE(207,120)-(227,100),0
6175 LINE(207,120)-(238,110),0
6180 d=25:GOSUB 31000
6185 NEXT Q
6190 d=750:GOSUB 31000
6195 GOSUB 30000
6200 PRINT FNCEN$("Press <C> to continue.",40)
6205 A$=INKEY$:IF A$="" GOTO 6205
6210 IF A$="C" OR A$="c" GOTO 6220
6215 GOTO 6195
6220 GOSUB 30000   '** <Textpad **
6225 PRINT FNCEN$("Here's the first backfold,",40)
6230 d=750:GOSUB 31000
6235 FOR Q=0 TO 23
6240 LINE(207,120)-(238-.478*Q,110-.435*Q),0
6245 LINE(207,120)-(238-.478*Q,110-.435*Q),3
6250 LINE(207,120)-(250-Q,120-.87*Q),0
6255 LINE(207,121)-(250-Q,121-.87*Q),0
6260 LINE(208,82)-(251,120),0
6265 LINE(251,120)-(232,103),0
6270 PSET(230,102),0
6275 d=25:GOSUB 31000
6280 NEXT Q
6285 FOR Q=0 TO 20
6290 LINE(207,120)-(227-Q,100-.9000001*Q),1
6295 LINE(208,120)-(228,101),0
6300 LINE(207,120)-(228-Q,100-.9000001*Q),3
6305 LINE(207,120)-(227-Q,100-.9000001*Q),3
6310 d=25:GOSUB 31000
6315 NEXT Q
6320 GOSUB 30000
6325 PRINT FNCEN$("Press <C> to continue.",40)
6330 A$=INKEY$:IF A$="" GOTO 6330
6335 IF A$="C" OR A$="c" GOTO 6345
6340 GOTO 6320
6345 GOSUB 30000   '** <Textpad **
6350 PRINT FNCEN$("and return,",40)
6355 d=750:GOSUB 31000
6360 FOR Q=0 TO 20
6365 LINE(207,120)-(207+Q,82+.9000001*Q),1
6370 LINE(207,120)-(207+Q,82+.9000001*Q),3
6375 PSET(208,120),0
6380 d=25:GOSUB 31000
6385 NEXT Q
6390 FOR Q=0 TO 23
6395 LINE(207,120)-(227+Q,100+.87*Q)
6400 LINE(207,120)-(228+Q,100+.87*Q)
6405 LINE(207,120)-(227,100),0
6410 LINE(207,120)-(238,110),0
6415 NEXT Q
6420 d=750:GOSUB 31000
6425 GOSUB 30000
6430 PRINT FNCEN$("Press <C> to continue.",40)
6435 A$=INKEY$:IF A$="" GOTO 6435
6440 IF A$="C" OR A$="c" GOTO 6450
6445 GOTO 6425
6450 GOSUB 30000   '** <Textpad **
6455 PRINT FNCEN$("and here's the second backfold,",40)
6460 d=750:GOSUB 31000
6465 FOR Q=0 TO 12
6470 LINE(207,120)-(250-Q,120-.8330001*Q),0
6475 LINE-(238,110),0
6480 LINE(208,82)-(251,120),0
6485 PSET(239,110),0:PSET(240,114),0
6490 PSET(237,111),0:PSET(240,111),0:PSET(238,113),0
6495 d=25:GOSUB 31000
6500 NEXT Q
6505 CIRCLE(244,116),7,0
6510 PAINT(244,116),0
6515 FOR Q=0 TO 20
6520 LINE(207,120)-(238,110-Q)
6525 LINE(207,120)-(238-.55*Q,110-.5*Q),1
6530 LINE(207,120)-(238-.55*Q,110-.5*Q),3
6535 LINE(207,120)-(227,100),0
6540 LINE(208,82)-(251,120),0
6545 NEXT Q
6550 d=750:GOSUB 31000
6555 GOSUB 30000
6560 PRINT FNCEN$("Press <C> to continue.",40)
6565 A$=INKEY$:IF A$="" GOTO 6565
6570 IF A$="C" OR A$="c" GOTO 6580
6575 GOTO 6555
6580 GOSUB 30000   '** <Textpad **
6585 PRINT FNCEN$("and return.",40)
6590 d=750:GOSUB 31000
6595 FOR Q=0 TO 11
6600 LINE(227+Q,100+.9090001*Q)-(238,91+.818*Q),0
6605 LINE(228+Q,100+.9090001*Q)-(239,91+.818*Q),0
6610 LINE(207,120)-(227+Q,100+.9090001*Q),1
6615 LINE(207,120)-(227+Q,100+.9090001*Q),3
6620 LINE(207,120)-(227,100),0
6625 LINE(238,90)-(236,92),0
6630 d=25:GOSUB 31000
6635 NEXT Q
6640 FOR Q=0 TO 12
6645 LINE(207,120)-(238+Q,110+.8330001*Q)
6650 LINE(207,120)-(238,110),0
6655 PSET(238,113),3:PSET(240,114),3:PSET(239,113),3
6660 d=25:GOSUB 31000
6665 NEXT Q
6670 d=750:GOSUB 31000
6675 GOSUB 30000   '** <Textpad **
6680 PRINT FNCEN$("Would you like to see those folds again?",40)
6685 d=1500:GOSUB 31000
6690 GOSUB 30000
6695 PRINT FNCEN$("If so, press <R> to review.",40)
6700 d=1000:GOSUB 31000
6705 PRINT FNCEN$("If not, press <C> to continue.",40)
6710 A$=INKEY$:IF A$="" GOTO 6710
6715 IF A$="r" OR A$="R" GOTO 6730
6720 IF A$="c" OR A$="C" GOTO 6785
6725 GOTO 6690
6730 FOR A=0 TO 20
6735 OUT 66,A:OUT 66,A
6740 OUT 97,(INP(97) OR 3)
6745 NEXT A
6750 SOUND 37,0
6755 LINE(207,120)-(227,100)
6760 LINE(207,120)-(238,110)
6765 GOSUB 30000
6770 PRINT FNCEN$("* Review *",40)
6775 d=1500:GOSUB 31000
6780 GOTO 5310
6785 GOSUB 30000         '** Textpad **
6790 PRINT FNCEN$("Now, we'll go on to POCKET those folds.",40)
6795 d=1500:GOSUB 31000
6800 GOSUB 30000         '** Textpad **
6805 PRINT FNCEN$("And here's the pocket.",40)
6810 d=750:GOSUB 31000
6815 PSET(227,100):PSET(238,110)
6820 LINE(207,82)-(226,100),0
6825 LINE-(250,120),0
6830 LINE-(228,100)
6835 LINE-(207,82)
6840 d=750:GOSUB 31000
6845 FOR K=1 TO 15
6850 PSET(235,95):DRAW"U8F3E6F2G6F3L8"
6855 PAINT(240,90)
6860 d=25:GOSUB 31000
6865 CIRCLE(240,90),9,0
6870 PAINT(240,90),0
6875 NEXT K
6880 d=750:GOSUB 31000
6885 GOSUB 30000         '** Textpad **
6890 PRINT FNCEN$("And off we go!",40)
6895 d=750:GOSUB 31000
6900 LINE(207,82)-(226,100),3
6905 LINE-(250,120),3
6910 LINE-(228,100),0
6915 LINE-(207,82),0
6920 PSET(227,100),0:PSET(238,110),0
6925 FOR Q=0 TO 23
6930 LINE(207,120)-(250-Q,120-.87*Q),0
6935 LINE(208,120)-(251-Q,120-.87*Q),0
6940 d=25:GOSUB 31000
6945 NEXT Q
6950 FOR Q=0 TO 20
6955 LINE(207,120)-(227-Q,100-.9000001*Q),1
6960 LINE(207,120)-(227-Q,100-.9000001*Q),3
6965 d=25:GOSUB 31000
6970 NEXT Q
6975 LINE(207,82)-(207,120),1
6980 GOSUB 30000         '** Textpad **
6985 PRINT FNCEN$("Press <C> to continue.",40)
6990 A$=INKEY$:IF A$="" GOTO 6990
6995 IF A$="C" OR A$="c" GOTO 7005
7000 GOTO 6980
7005 GOSUB 30000         '** Textpad **
7010 PRINT FNCEN$("And here's our REVERSE POCKET FOLD.",40)
7015 d=750:GOSUB 31000
7020 LINE(207,120)-(217,91),1
7025 d=750:GOSUB 31000
7030 FOR Q=0 TO 10
7035 LINE(207,120)-(207+Q,82+.9000001*Q),1
7040 LINE(207,120)-(207+Q,82+.9000001*Q),3
7045 d=25:GOSUB 31000
7050 NEXT Q
7055 FOR Q=0 TO 20
7060 LINE(207,120)-(217+.5*Q,91+.45*Q),1
7065 LINE(207,120)-(217+.5*Q,91+.45*Q),3
7070 LINE(207,120)-(217+Q,91),3
7075 LINE(208,82)-(251,120),0
7080 d=25:GOSUB 31000
7085 NEXT Q
7090 LINE(207,120)-(217,91),1
7095 GOSUB 30000         '** Textpad **
7100 PRINT FNCEN$("THERE!",40)
7105 d=1500:GOSUB 31000
7110 GOSUB 30000         '** Textpad **
7115 PRINT FNCEN$("On second thought,",40)
7120 d=1500:GOSUB 31000
7125 GOSUB 30000         '** Textpad **
7130 PRINT FNCEN$("let's give PIG's tail a jauntier angle,",40)
7135 d=1500:GOSUB 31000
7140 GOSUB 30000         '** Textpad **
7145 PRINT FNCEN$("using a technique you can use",40)
7150 d=1500:GOSUB 31000
7155 GOSUB 30000         '** Textpad **
7160 PRINT FNCEN$("to give your work a personal touch.",40)
7165 d=1500:GOSUB 31000
7170 GOSUB 30000         '** Textpad **
7175 PRINT FNCEN$("We'll call it CREATIVE FUDGING.",40)
7180 d=1500:GOSUB 31000
7185 GOSUB 30000         '** Textpad **
7190 PRINT FNCEN$("Take PIG's tail and FUDGE it,",40)
7195 d=1500:GOSUB 31000
7200 GOSUB 30000         '** Textpad **
7205 PRINT FNCEN$("SO!",40)
7210 d=1500:GOSUB 31000
7215 FOR K=1 TO 15
7220 LINE(219,91)-(229,99)
7225 LINE-(237,91)
7230 LINE-(219,91)
7235 d=25:GOSUB 31000
7240 LINE(219,91)-(229,99),0
7245 LINE-(237,91),0
7250 LINE-(219,91),0
7255 NEXT K
7260 PAINT(228,95),0
7265 PSET(227,98),0:PSET(228,99),0
7270 LINE(218,90)-(233,90),3
7275 LINE-(225,96),3
7280 LINE-(218,90)
7285 PAINT(225,93),3
7290 LINE(207,120)-(217,91),3
7295 d=750:GOSUB 31000
7300 GOSUB 30000         '** Textpad **
7305 PRINT FNCEN$("Press <R> to review.",40)
7310 d=1000:GOSUB 31000
7315 PRINT FNCEN$("Press <C> to continue.",40)
7320 A$=INKEY$:IF A$="" GOTO 7320
7325 IF A$="r" OR A$="R" GOTO 7340
7330 IF A$="c" OR A$="C" GOTO 7430
7335 GOTO 7300
7340 FOR A=0 TO 20
7345 OUT 66,A:OUT 66,A
7350 OUT 97,(INP(97) OR 3)
7355 NEXT A
7360 SOUND 37,0
7365 LINE(218,90)-(233,90),0
7370 LINE-(225,96),0
7375 LINE-(218,90),0
7380 PAINT(225,93),0
7385 LINE(206,81)-(250,120)
7390 LINE-(206,120)
7395 PAINT(230,110)
7400 LINE(227,100)-(207,120),0
7405 LINE-(238,110),0
7410 GOSUB 30000   '** Textpad **
7415 PRINT FNCEN$("* Review *",40)
7420 d=1500:GOSUB 31000
7425 GOTO 6785
7430 LINE(207,120)-(217,91)
7435 GOSUB 30000         '** Textpad **
7440 PRINT FNCEN$("Our final folds are for PIG's snout.",40)
7445 d=1500:GOSUB 31000
7450 GOSUB 30000         '** Textpad **
7455 PRINT FNCEN$("We first fold and backfold this corner",40)
7460 d=750:GOSUB 31000
7465 FOR K=1 TO 15
7470 PSET(70,128):DRAW"G5R4D7R2U7R4H5"
7475 PAINT(70,134)
7480 d=25:GOSUB 31000
7485 CIRCLE(70,134),7,0
7490 PAINT(70,134),0
7495 NEXT K
7500 d=750:GOSUB 31000
7505 GOSUB 30000         '** Textpad **
7510 PRINT FNCEN$("up to here",40)
7515 d=750:GOSUB 31000
7520 FOR K=1 TO 15
7525 PSET(115,72):DRAW"E5L4U7L2D7L4F5"
7530 PAINT(115,66)
7535 d=25:GOSUB 31000
7540 CIRCLE(115,66),7,0
7545 PAINT(115,66),0
7550 NEXT K
7555 d=750:GOSUB 31000
7560 GOSUB 30000         '** Textpad **
7565 PRINT FNCEN$("across this line",40)
7570 d=750:GOSUB 31000
7575 LINE(93,100)-(113,120),0
7580 d=750:GOSUB 31000
7585 FOR Q=0 TO 23
7590 LINE(113,120)-(70+Q,120-.87*Q),0
7595 LINE-(93,100),0
7600 LINE(113,120)-(69+Q,120-.87*Q),0
7605 LINE-(93,100),O
7610 NEXT Q
7615 FOR Q=0 TO 20
7620 LINE(113,120)-(93+Q,100-Q),0
7625 LINE-(93,100),0
7630 LINE(113,120)-(93+Q,100-Q)
7635 LINE-(93,100)
7640 NEXT Q
7645 d=750:GOSUB 31000
7650 GOSUB 30000   '*** <Textpad> ***
7655 PRINT FNCEN$("and back!",40)
7660 d=750:GOSUB 31000
7665 FOR Q=0 TO 20
7670 LINE(113,120)-(113-Q,80+Q),0
7675 LINE-(93,100),0
7680 LINE(113,120)-(113-Q,80+Q)
7685 LINE-(93,100)
7690 LINE(69,120)-(114,80),0
7695 LINE(113,80)-(110,83),0
7700 NEXT Q
7705 FOR Q=0 TO 23
7710 LINE(113,120)-(93-Q,100+.87*Q)
7715 LINE-(93,100)
7720 LINE(113,120)-(94-Q,100+.87*Q)
7725 LINE-(93,100)
7730 LINE(113,120)-(93,100),0
7735 LINE(69,120)-(114,80),0
7740 NEXT Q
7745 d=750:GOSUB 31000
7750 GOSUB 30000   '*** <Textpad> ***
7755 PRINT FNCEN$("Your turn to fold and backfold.",40)
7760 d=1500:GOSUB 31000
7765 GOSUB 30000
7770 PRINT FNCEN$("Press <R> to review.",40)
7775 d=1000:GOSUB 31000
7780 PRINT FNCEN$("Press <C> to continue.",40)
7785 A$=INKEY$:IF A$="" GOTO 7785
7790 IF A$="r" OR A$="R" GOTO 7805
7795 IF A$="c" OR A$="C" GOTO 7855
7800 GOTO 7765
7805 FOR A=0 TO 20
7810 OUT 66,A:OUT 66,A
7815 OUT 97,(INP(97) OR 3)
7820 NEXT A
7825 SOUND 37,0
7830 LINE(93,100)-(113,120)
7835 GOSUB 30000
7840 PRINT FNCEN$("* Review *",40)
7845 d=1500:GOSUB 31000
7850 GOTO 7435
7855 GOSUB 30000   '*** <Textpad> ***
7860 PRINT FNCEN$("Our final fold is preparatory",40)
7865 d=1500:GOSUB 31000
7870 GOSUB 30000   '*** <Textpad> ***
7875 PRINT FNCEN$("to a POCKET FOLD",40)
7880 d=1500:GOSUB 31000
7885 GOSUB 30000   '*** <Textpad> ***
7890 PRINT FNCEN$("and folds and backfolds this corner",40)
7895 d=750:GOSUB 31000
7900 FOR K=1 TO 15
7905 PSET(70,128):DRAW"G5R4D7R2U7R4H5"
7910 PAINT(70,134)
7915 d=25:GOSUB 31000
7920 CIRCLE(70,134),7,0
7925 PAINT(70,134),0
7930 NEXT K
7935 d=750:GOSUB 31000
7940 GOSUB 30000         '** Textpad **
7945 PRINT FNCEN$("up to this point",40)
7950 d=750:GOSUB 31000
7955 FOR K=1 TO 15
7960 CIRCLE(81,90),5
7965 LINE(79,90)-(83,90)
7970 LINE(81,88)-(81,92)
7975 d=25:GOSUB 31000
7980 CIRCLE(81,90),5,0
7985 LINE(79,90)-(83,90),0
7990 LINE(81,88)-(81,92),0
7995 NEXT K
8000 d=750:GOSUB 31000
8005 GOSUB 30000         '** Textpad **
8010 PRINT FNCEN$("over this line,",40)
8015 d=750:GOSUB 31000
8020 LINE(113,120)-(81,110),0
8025 d=750:GOSUB 31000
8030 GOSUB 30000   '*** <Textpad> ***
8035 PRINT FNCEN$("SO!",40)
8040 d=750:GOSUB 31000
8045 FOR Q=1 TO 11
8050 LINE(113,120)-(70+Q,120-.9099999*Q)
8055 LINE-(81,110)
8060 LINE(113,120)-(70+Q,120-.9099999*Q),0
8065 LINE(70,120)-(110,120),0
8070 d=10:GOSUB 31000
8075 PSET(77,113),0:PSET(76,114),0:PSET(82,111),0:PSET(81,113),0:PSET(80,114),0
8080 NEXT Q
8085 FOR Q=0 TO 20
8090 LINE(113,120)-(81,110-Q),0
8095 LINE-(81,110),0
8100 LINE(113,120)-(81,110-Q)
8105 LINE-(81,110)
8110 d=10:GOSUB 31000
8115 NEXT Q
8120 LINE(113,120)-(93,100)
8125 LINE(113,120)-(81,90),0
8130 d=750:GOSUB 31000
8135 GOSUB 30000   '*** <Textpad> ***
8140 PRINT FNCEN$("and return!",40)
8145 d=750:GOSUB 31000
8150 FOR Q=0 TO 20
8155 LINE(93,100)-(81,90+Q),0
8160 LINE-(81,110),0
8165 d=10:GOSUB 31000
8170 NEXT Q
8175 FOR Q=0 TO 11
8180 LINE(113,120)-(81-Q,110+.9099999*Q)
8185 LINE(113,120)-(81,110),0
8190 NEXT Q
8195 LINE(113,81)-(70,120)
8200 LINE(84,108)-(93,100)
8205 LINE(81,110)-(113,120)
8210 LINE-(92,100)
8215 PSET(80,114):PSET(81,113):PSET(82,111)
8220 LINE(103,111)-(105,113)
8225 LINE(93,100)-(113,120),0
8230 LINE-(81,110),0
8235 d=750:GOSUB 31000
8240 GOSUB 30000   '*** <Textpad> ***
8245 PRINT FNCEN$("Your turn to fold and backfold.",40)
8250 d=1500:GOSUB 31000
8255 GOSUB 30000
8260 PRINT FNCEN$("Press <R> to review.",40)
8265 d=1000:GOSUB 31000
8270 PRINT FNCEN$("Press <C> to continue.",40)
8275 A$=INKEY$:IF A$="" GOTO 8275
8280 IF A$="r" OR A$="R" GOTO 8295
8285 IF A$="c" OR A$="C" GOTO 8345
8290 GOTO 8255
8295 FOR A=0 TO 20
8300 OUT 66,A:OUT 66,A
8305 OUT 97,(INP(97) OR 3)
8310 NEXT A
8315 SOUND 37,0
8320 LINE(113,120)-(81,110)
8325 GOSUB 30000
8330 PRINT FNCEN$("* Review *",40)
8335 d=1500:GOSUB 31000
8340 GOTO 7855
8345 GOSUB 30000         '** Textpad **
8350 PRINT FNCEN$("And here's the pocket,",40)
8355 d=750:GOSUB 31000
8360 LINE(115,80)-(93,100),0
8365 LINE-(70,120),0
8370 LINE-(91,100)
8375 LINE-(115,80)
8380 d=250:GOSUB 31000
8385 FOR K=1 TO 15
8390 PSET(90,95):DRAW"U8G3H6G2F6G3R8"
8395 PAINT(85,90)
8400 d=25:GOSUB 31000
8405 CIRCLE(85,90),9,0
8410 PAINT(85,90),0
8415 NEXT K
8420 d=750:GOSUB 31000
8425 GOSUB 30000         '** Textpad **
8430 PRINT FNCEN$("and in we go!",40)
8435 d=750:GOSUB 31000
8440 LINE(115,80)-(93,100)
8445 LINE-(70,120)
8450 LINE-(91,100),0
8455 LINE-(115,80),0
8460 LINE(69,120)-(114,80),0
8465 FOR Q=1 TO 11
8470 LINE(113,120)-(70+Q,120-.9099999*Q)
8475 LINE-(81,110)
8480 LINE(113,120)-(70+Q,120-.9099999*Q),0
8485 LINE(70,120)-(110,120),0
8490 d=10:GOSUB 31000
8495 PSET(77,113),0:PSET(76,114),0:PSET(82,111),0:PSET(81,113),0:PSET(80,114),0
8500 NEXT Q
8505 FOR Q=0 TO 20
8510 LINE(113,120)-(81,110-Q),1
8515 LINE-(81,110),1
8520 LINE(113,120)-(81,110-Q)
8525 LINE-(81,110)
8530 LINE(69,120)-(115,80),0
8535 d=10:GOSUB 31000
8540 NEXT Q
8545 LINE(113,120)-(93,100),1
8550 d=750:GOSUB 31000
8555 LINE(113,120)-(93,100)
8560 d=750:GOSUB 31000
8565 GOSUB 30000
8570 PRINT FNCEN$("Press <R> to review.",40)
8575 d=1000:GOSUB 31000
8580 PRINT FNCEN$("Press <C> to continue.",40)
8585 A$=INKEY$:IF A$="" GOTO 8585
8590 IF A$="r" OR A$="R" GOTO 8625
8595 IF A$="c" OR A$="C" GOTO 8690
8600 GOTO 8565
8605 FOR A=0 TO 20
8610 OUT 66,A:OUT 66,A
8615 OUT 97,(INP(97) OR 3)
8620 NEXT A
8625 SOUND 37,0
8630 LINE(81,110)-(81,90),0
8635 LINE-(92,99),0
8640 PAINT(85,100),0
8645 LINE(113,82)-(70,120)
8650 LINE-(113,120)
8655 PAINT(80,115)
8660 LINE(93,100)-(113,120),0
8665 LINE-(81,110),0
8670 GOSUB 30000
8675 PRINT FNCEN$("* Review *",40)
8680 d=1500:GOSUB 31000
8685 GOTO 8345
8690 GOSUB 30000         '** Textpad **
8695 PRINT FNCEN$("And open up!",40)
8700 d=1000:GOSUB 31000
8705                           '***Zapsound***
8710 FOR A=0 TO 20
8715 OUT 66,A:OUT 66,A
8720 OUT 97,(INP(97) OR 3)
8725 NEXT A
8730 SOUND 37,0
8735                            '***End Zapsound***
8740 CLS
8745 LINE(130,133)-(135,131)
8750 LINE-(140,140)
8755 LINE-(145,126)
8760 LINE-(150,145)
8765 LINE-(158,128)
8770 LINE-(154,122)
8775 LINE-(195,105)
8780 LINE-(200,115)
8785 LINE-(205,100)
8790 LINE-(220,120)
8795 LINE-(219,94)
8800 LINE-(230,75)
8805 LINE-(225,70)       'tail
8810 LINE-(230,65)       'tail
8815 LINE-(220,65)
8820 LINE-(215,60)
8825 LINE-(125,75)
8830 LINE-(105,105)
8835 LINE-(100,105)
8840 LINE-(90,115)
8845 LINE-(100,125)
8850 LINE-(130,133)
8855 PAINT(160,100)
8860 LINE(100,105)-(110,115),0   'snout
8865 LINE-(100,125),0            'snout
8870 LINE(215,60)-(130,80),0    'back
8875 LINE-(105,105),0            'snout
8880 LINE-(110,115),0           'snout
8885 LINE(144,126)-(130,80),0   'front
8890 LINE-(155,122),0           'leg
8895 LINE(135,131)-(144,127),0  'fl
8900 LINE(205,101)-(215,60),0   'back
8905 LINE-(219,94),0            'leg
8910 LINE(195,105)-(204,102),0  'bl
8915 LINE(221,65)-(226,70),0    'tail
8920 FOR V=105 TO 125 STEP 2
8925 PSET(100,V),0
8930 NEXT V
8935 GOSUB 30000   '*** <Textpad> ***
8940 PRINT FNCEN$("There!  Mission accomplished.",40)
8945 d=1500:GOSUB 31000
8950 GOSUB 30000   '*** <Textpad> ***
8955 PRINT FNCEN$("PIG",40)
8960 d=1500:GOSUB 31000
8965 GOSUB 30000   '*** <Textpad> ***
8970 PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
8975 PRINT FNCEN$("<2> - To repeat PIG.",40)
8980 PRINT FNCEN$("      <3> - To exit from program.",40)
8985 E$=INPUT$(1)
8990 IF E$<"1" OR E$>"3" GOTO 8985
8995 SEL=VAL(E$)
9000 COMMON SEL
9005 CLS
9010 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
9011 LINE(70,75)-(250,125),3,B
9015 ON SEL GOTO 9020,9025,9030
9020 CHAIN"main"
9025 CHAIN"pig
9030 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