5 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
10 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
15 LOCATE 12,1:PRINT FNCEN$("PUPPY",40)
20 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
25 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
30 PRINT FNCEN$("All Rights Reserved",40)
35 d=2500:GOSUB 31000
40 CLS
45                            '***Zapsound***
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 d=250:GOSUB 31000
80                             '***End Zapsound***
85             '*** start draw ***
90 LINE(160,30)-(80,100)
95 LINE-(160,170)
100 LINE-(240,100)
105 LINE-(160,30)
110 GOSUB 30000         '** Textpad **
115 PRINT FNCEN$("PUPPY starts with KITE Base",40)
120 d=1500:GOSUB 31000
125 PRINT FNCEN$("which by now we should be able to fold",40)
130 d=1500:GOSUB 31000
135 PRINT FNCEN$("in our sleep,",40)
140 d=1500:GOSUB 31000
145 GOSUB 30000         '** Textpad **
150 PRINT FNCEN$("SO!",40)
155 d=750:GOSUB 31000
160 FOR V=30 TO 170 STEP 2
165 PSET(160,V)
170 NEXT V
175 d=750:GOSUB 31000
180 LINE(205,70)-(160,170)
185 d=750:GOSUB 31000
190 FOR Q=0 TO 35
195 LINE(160,170)-(240-Q,100-.8750001*Q)
200 LINE(160,170)-(240-Q,100-.8750001*Q),0
205 LINE(160,170)-(241-Q,100-.8750001*Q),0
210 NEXT Q
215 FOR H=205 TO 160 STEP -1
220 LINE(160,170)-(H,70)
225 NEXT H
230 d=750:GOSUB 31000
235 LINE(115,70)-(160,170)
240 d=750:GOSUB 31000
245 FOR Q=0 TO 35
250 LINE(160,170)-(80+Q,100-.8570001*Q)
255 LINE(160,170)-(80+Q,100-.8570001*Q),0
260 LINE(160,170)-(79+Q,100-.8570001*Q),0
265 NEXT Q
270 LINE(115,70)-(160,170)
275 FOR H=115 TO 160
280 LINE(H,70)-(160,170)
285 NEXT H
290 LINE(160,70)-(160,170),0
295 GOSUB 30000         '** Textpad **
300 PRINT FNCEN$("There!  I'll wait for your KITE.",40)
305 d=1500:GOSUB 31000
310 GOSUB 30000         '** Textpad **
315 PRINT FNCEN$("Press <C> to continue.",40)
320 A$=INKEY$:IF A$="" GOTO 320
325 IF A$="C" OR A$="c" GOTO 335
330 GOTO 310
335 GOSUB 30000         '** Textpad **
340 PRINT FNCEN$("Now we'll stand KITE on its head.",40)
345 d=1500:GOSUB 31000
350 GOSUB 30000         '** Textpad **
355 PRINT FNCEN$("One moment, please.",40)
360 d=750:GOSUB 31000
365 CLS
370 FOR A=0 TO 20
375 OUT 66,A:OUT 66,A
380 OUT 97,(INP(97) OR 3)
385 NEXT A
390 SOUND 37,0
395 d=250:GOSUB 31000
400 LINE(160,30)-(115,130)
405 LINE-(160,170)
410 LINE-(205,130)
415 LINE-(160,30)
420 LINE(115,130)-(205,130)
425 PAINT(160,100)
430 LINE(160,30)-(160,130),0
435 FOR V=132 TO 170 STEP 2
440 PSET(160,V)
445 NEXT V
450 d=750:GOSUB 31000
455 GOSUB 30000         '** Textpad **
460 PRINT FNCEN$("We first fold and backfold this corner",40)
465 d=750:GOSUB 31000
470                             '*** arrow down ***
475 FOR K=1 TO 15
480 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
485 PAINT(160,16)
490 d=25:GOSUB 31000
495 CIRCLE(160,16),7,0
500 PAINT(160,16),0
505 NEXT K
510                             '***end arrow down ***
515 d=750:GOSUB 31000
520 GOSUB 30000         '** Textpad **
525 PRINT FNCEN$("down to this point",40)
530 d=750:GOSUB 31000
535                               '*** flashdot ***
540 FOR K=1 TO 15
545 CIRCLE(160,130),5,0
550 LINE(158,130)-(162,130),0
555 LINE(160,128)-(160,132),0
560 d=25:GOSUB 31000
565 CIRCLE(160,130),5
570 LINE(158,130)-(162,130)
575 LINE(160,128)-(160,132)
580 NEXT K
585 CIRCLE(160,130),5,0,3.14,6.28
590 LINE(150,130)-(170,130)
595 LINE(160,120)-(160,130),0
600 FOR V=132 TO 170 STEP 2
605 PSET(160,V)
610 NEXT V
615 PSET(160,131),0
620 d=750:GOSUB 31000
625 GOSUB 30000         '** Textpad **
630 PRINT FNCEN$("over this line",40)
635 d=750:GOSUB 31000
640 FOR H=136 TO 184 STEP 2
645 PSET(H,80),0
650 NEXT H
655 d=750:GOSUB 31000
660 FOR V=30 TO 80
665 LINE(137,80)-(160,V)
670 LINE-(183,80)
675 LINE(137,80)-(160,V),0
680 LINE-(183,80),0
685 NEXT V
690 FOR V=80 TO 129
695 LINE(137,80)-(160,V),0
700 LINE-(183,80),0
705 LINE(137,80)-(160,V)
710 LINE-(183,80)
715 NEXT V
720 LINE(137,80)-(160,129),0
725 LINE-(183,80),0
730 d=750:GOSUB 31000
735 GOSUB 30000     '*** Textpad***
740 PRINT FNCEN$("and back.",40)
745 d=750:GOSUB 31000
750 FOR V=129 TO 80 STEP -1
755 LINE(137,80)-(160,V),0
760 LINE-(183,80),0
765 LINE(137,80)-(160,V)
770 LINE-(183,80)
775 PSET(160,V),0
780 NEXT V
785 FOR H=136 TO 185 STEP 2
790 PSET(H,81),0
795 NEXT H
800 FOR V=80 TO 30 STEP -1
805 LINE(138,80)-(160,V)
810 LINE-(182,80)
815 PSET(160,V),0
820 NEXT V
825 LINE(160,30)-(160,40),0
830 LINE(114,130)-(160,29),0
835 LINE-(206,130),0
840 d=750:GOSUB 31000
845 GOSUB 30000     '*** Textpad***
850 PRINT FNCEN$("Your turn to fold and backfold.",40)
855 d=1500:GOSUB 31000
860 GOSUB 30000       '*** Textpad ***
865 PRINT FNCEN$("To review that fold, press <R>.",40)
870 d=750:GOSUB 31000
875 PRINT FNCEN$("To continue, press <C>.",40)
880 A$=INKEY$:IF A$="" GOTO 880
885 IF A$="r" OR A$="R" GOTO 900
890 IF A$="c" OR A$="C" GOTO 940
895 GOTO 860
900 FOR H=138 TO 183 STEP 2
905 PSET(H,81)
910 NEXT H
915 PSET(160,81),0
920 GOSUB 30000         '** Textpad **
925 PRINT FNCEN$("* Review *",40)
930 d=1500:GOSUB 31000
935 GOTO 455
940 GOSUB 30000         '** Textpad **
945 PRINT FNCEN$("We next take our friend here",40)
950 d=750:GOSUB 31000
955                            '*** arrow down ***
960 FOR K=1 TO 15
965 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
970 PAINT(160,16)
975 d=25:GOSUB 31000
980 CIRCLE(160,16),7,0
985 PAINT(160,16),0
990 NEXT K
995                            '***end arrow down ***
1000 d=750:GOSUB 31000
1005 GOSUB 30000         '** Textpad **
1010 PRINT FNCEN$("down across this fold line,",40)
1015 d=750:GOSUB 31000
1020 FOR H=148 TO 172 STEP 2
1025 PSET(H,55),0
1030 NEXT H
1035 d=750:GOSUB 31000
1040 GOSUB 30000         '** Textpad **
1045 PRINT FNCEN$("THUS!",40)
1050 d=750:GOSUB 31000
1055 FOR V=30 TO 55
1060 LINE(149,55)-(160,V)
1065 LINE-(171,55)
1070 LINE(149,55)-(160,V),0
1075 LINE-(171,55),0
1080 NEXT V
1085 FOR V=55 TO 80
1090 LINE(149,55)-(160,V),0
1095 LINE-(171,55),0
1100 LINE(149,55)-(160,V)
1105 LINE-(171,55)
1110 NEXT V
1115 LINE(149,55)-(160,79),0
1120 LINE-(171,55),0
1125 d=750:GOSUB 31000
1130 GOSUB 30000         '** Textpad **
1135 PRINT FNCEN$("and back.",40)
1140 d=750:GOSUB 31000
1145 FOR V=80 TO 55 STEP -1
1150 LINE(149,55)-(160,V),0
1155 LINE-(171,55),0
1160 LINE(149,55)-(160,V)
1165 LINE-(171,55)
1170 PSET(160,V),0
1175 NEXT V
1180 FOR H=148 TO 172 STEP 2
1185 PSET(H,56),0
1190 NEXT H
1195 FOR V=55 TO 30 STEP -1
1200 LINE(149,55)-(160,V)
1205 LINE-(171,55)
1210 PSET(160,V),0
1215 NEXT V
1220 LINE(160,30)-(160,40),0
1225 GOSUB 30000       '*** Textpad ***
1230 PRINT FNCEN$("Press <R> to review.",40)
1235 d=1000:GOSUB 31000
1240 PRINT FNCEN$("To continue, press <C>.",40)
1245 A$=INKEY$:IF A$="" GOTO 1245
1250 IF A$="r" OR A$="R" GOTO 1265
1255 IF A$="c" OR A$="C" GOTO 1295
1260 GOTO 1225
1265 LINE(150,56)-(170,56)
1270 PSET(160,56),0
1275 GOSUB 30000         '** Textpad **
1280 PRINT FNCEN$("* Review *",40)
1285 d=1500:GOSUB 31000
1290 GOTO 940
1295 GOSUB 30000     '*** Textpad***
1300 PRINT FNCEN$("We now fold and backfold",40)
1305 d=1500:GOSUB 31000
1310 GOSUB 30000     '*** Textpad***
1315 PRINT FNCEN$("across this line",40)
1320 d=750:GOSUB 31000
1325 FOR H=150 TO 170 STEP 2
1330 PSET(H,50),0
1335 NEXT H
1340 d=750:GOSUB 31000
1345 FOR V=30 TO 50
1350 LINE(151,50)-(160,V),3
1355 LINE-(169,50),3
1360 LINE(151,50)-(160,V),0
1365 LINE-(169,50),0
1370 NEXT V
1375 FOR V=50 TO 70
1380 LINE(151,50)-(160,V),0
1385 LINE-(169,50),0
1390 LINE(151,50)-(160,V),3
1395 LINE-(169,50),3
1400 NEXT V
1405 LINE(151,50)-(160,V),0
1410 LINE-(169,50),0
1415 d=750:GOSUB 31000
1420 GOSUB 30000     '*** Textpad***
1425 PRINT FNCEN$("and return.",40)
1430 d=750:GOSUB 31000
1435 FOR V=70 TO 56 STEP -1
1440 LINE(151,50)-(160,V),0
1445 LINE-(169,50),0
1450 LINE(151,50)-(160,V),3
1455 LINE-(169,50),3
1460 PSET(160,V),0
1465 LINE(154,58)-(159,69)
1470 LINE(166,58)-(161,69)
1475 NEXT V
1480 LINE(151,50)-(160,55),0
1485 LINE-(169,50),0
1490 FOR H=148 TO 172 STEP 2
1495 PSET(H,56),0
1500 NEXT H
1505 FOR V=55 TO 50 STEP -1
1510 LINE(151,50)-(160,V),3
1515 LINE-(169,50),3
1520 PSET(160,V),0
1525 FOR H=150 TO 170 STEP 2
1530 PSET(H,50),0
1535 NEXT H
1540 NEXT V
1545 FOR V=49 TO 30 STEP -1
1550 LINE(152,49)-(160,V),3
1555 LINE-(168,49),3
1560 PSET(160,V),0
1565 NEXT V
1570 LINE(160,30)-(160,35),0
1575 d=750:GOSUB 31000
1580 GOSUB 30000     '*** Textpad***
1585 PRINT FNCEN$("Your turn to fold and backfold.",40)
1590 d=1500:GOSUB 31000
1595 GOSUB 30000       '*** Textpad ***
1600 PRINT FNCEN$("Press <R> to review.",40)
1605 d=1000:GOSUB 31000
1610 PRINT FNCEN$("To continue, press <C>.",40)
1615 A$=INKEY$:IF A$="" GOTO 1615
1620 IF A$="r" OR A$="R" GOTO 1630
1625 IF A$="c" OR A$="C" GOTO 1665
1630 LINE(151,50)-(169,50)
1635 PSET(160,50),0
1640 GOSUB 30000         '** Textpad **
1645 PRINT FNCEN$("* Review *",40)
1650 d=1500:GOSUB 31000
1655 GOTO 1295
1660 END
1665 GOSUB 30000         '** Textpad **
1670 PRINT FNCEN$("Our next fold is the last of this set.",40)
1675 d=1500:GOSUB 31000
1680 FOR K=1 TO 15
1685 LINE(154,40)-(166,40),0
1690 d=25:GOSUB 31000
1695 LINE(154,40)-(166,40),3
1700 NEXT K
1705 FOR H=154 TO 166 STEP 2
1710 PSET(H,40),0
1715 NEXT H
1720 d=750:GOSUB 31000
1725 FOR V=30 TO 40
1730 LINE(155,40)-(160,V),3
1735 LINE-(165,40),3
1740 LINE(155,40)-(160,V),0
1745 LINE-(165,40),0
1750 NEXT V
1755 FOR V=40 TO 49
1760 LINE(155,40)-(160,V),0
1765 LINE-(165,40),0
1770 LINE(155,40)-(160,V),3
1775 LINE-(165,40),3
1780 NEXT V
1785 LINE(155,40)-(160,49),0
1790 LINE-(165,40),0
1795 GOSUB 30000         '** Textpad **
1800 PRINT FNCEN$("Return.",40)
1805 d=750:GOSUB 31000
1810 FOR V=49 TO 40 STEP -1
1815 LINE(155,40)-(160,V),0
1820 LINE-(165,40),0
1825 LINE(155,40)-(160,V)
1830 LINE-(165,40)
1835 PSET(160,V),0
1840 NEXT V
1845 FOR H=154 TO 166 STEP 2
1850 PSET(H,41),0
1855 NEXT H
1860 FOR V=39 TO 30 STEP -1
1865 LINE(155,40)-(160,V),3
1870 LINE-(165,40),3
1875 PSET(160,V),0
1880 NEXT V
1885 FOR H=154 TO 166 STEP 2
1890 PSET(H,41),0
1895 NEXT H
1900 LINE(160,30)-(160,60),0
1905 LINE(114,130)-(160,29),0
1910 LINE-(206,130),0
1915 PSET(155,41):PSET(165,41)
1920 d=750:GOSUB 31000
1925 GOSUB 30000       '*** Textpad ***
1930 PRINT FNCEN$("Press <R> to review.",40)
1935 d=1000:GOSUB 31000
1940 PRINT FNCEN$("To continue, press <C>.",40)
1945 A$=INKEY$:IF A$="" GOTO 1945
1950 IF A$="r" OR A$="R" GOTO 1965
1955 IF A$="c" OR A$="C" GOTO 1995
1960 GOTO 1925
1965 LINE(155,41)-(165,41)
1970 PSET(160,41),0
1975 GOSUB 30000         '** Textpad **
1980 PRINT FNCEN$("* Review *",40)
1985 d=750:GOSUB 31000
1990 GOTO 1665
1995 GOSUB 30000         '** Textpad **
2000 PRINT FNCEN$("Now we'll position those folds",40)
2005 d=1500:GOSUB 31000
2010 GOSUB 30000         '** Textpad **
2015 PRINT FNCEN$("in their proper places.",40)
2020 d=1500:GOSUB 31000
2025 GOSUB 30000         '** Textpad **
2030 PRINT FNCEN$("First placement.",40)
2035 d=750:GOSUB 31000
2040 FOR V=30 TO 55
2045 LINE(149,55)-(160,V),3
2050 LINE-(171,55),3
2055 LINE(149,55)-(160,V),0
2060 LINE-(171,55),0
2065 NEXT V
2070 FOR V=55 TO 80
2075 LINE(149,55)-(160,V),0
2080 LINE-(171,55),0
2085 LINE(149,55)-(160,V),3
2090 LINE-(171,55),3
2095 NEXT V
2100 LINE(149,55)-(160,80),0
2105 LINE-(171,55),0
2110 FOR H=156 TO 164 STEP 2
2115 PSET(H,70),0
2120 NEXT H
2125 FOR H=151 TO 169 STEP 2
2130 PSET(H,60),0
2135 NEXT H
2140 d=750:GOSUB 31000
2145 GOSUB 30000         '** Textpad **
2150 PRINT FNCEN$("Press <C> to continue.",40)
2155 A$=INKEY$:IF A$="" GOTO 2155
2160 IF A$="C" OR A$="c" GOTO 2170
2165 GOTO 2145
2170 GOSUB 30000         '** Textpad **
2175 PRINT FNCEN$("Next placement.",40)
2180 d=1500:GOSUB 31000
2185 FOR V=80 TO 60 STEP -1
2190 LINE(151,60)-(160,V),0
2195 LINE-(169,60),0
2200 LINE(151,60)-(160,V)
2205 LINE-(169,60)
2210 PSET(160,V),0
2215 NEXT V
2220 FOR V=60 TO 40 STEP -1
2225 LINE(151,60)-(160,V)
2230 LINE-(169,60)
2235 PSET(160,V),0
2240 LINE(151,60)-(169,60),0
2245 NEXT V
2250 LINE(149,55)-(151,60),0
2255 LINE-(153,55),0
2260 LINE(171,55)-(169,60),0
2265 LINE-(167,55),0
2270 LINE(160,40)-(160,60),0
2275 FOR H=154 TO 166 STEP 2
2280 PSET(H,51),0
2285 NEXT H
2290 d=750:GOSUB 31000
2295 GOSUB 30000         '** Textpad **
2300 PRINT FNCEN$("Press <C> to continue.",40)
2305 A$=INKEY$:IF A$="" GOTO 2305
2310 IF A$="C" OR A$="c" GOTO 2320
2315 GOTO 2295
2320 GOSUB 30000         '** Textpad **
2325 PRINT FNCEN$("Final placement.",40)
2330 d=1500:GOSUB 31000
2335 FOR V=40 TO 50
2340 LINE(155,50)-(160,V),3
2345 LINE-(165,50),3
2350 LINE(155,50)-(160,V),0
2355 LINE-(165,50),0
2360 NEXT V
2365 FOR V=50 TO 60
2370 LINE(155,50)-(160,V),0
2375 LINE-(165,50),0
2380 LINE(155,50)-(160,V),3
2385 LINE-(165,50),3
2390 NEXT V
2395 LINE(155,50)-(160,60),0
2400 LINE-(165,50),0
2405 FOR V=50 TO 60 STEP 2
2410 PSET(160,V),0
2415 NEXT V
2420 GOSUB 30000         '** Textpad **
2425 PRINT FNCEN$("Press <C> to continue.",40)
2430 A$=INKEY$:IF A$="" GOTO 2430
2435 IF A$="C" OR A$="c" GOTO 2445
2440 GOTO 2420
2445 GOSUB 30000         '** Textpad **
2450 PRINT FNCEN$("We now take the left side of PUPPY",40)
2455 d=1500:GOSUB 31000
2460 FOR K=1 TO 15
2465 LINE(160,50)-(155,50),0
2470 LINE-(153,55),0
2475 LINE-(149,55),0
2480 LINE-(115,130),0
2485 LINE-(160,170),0
2490 d=25:GOSUB 31000
2495 LINE(160,50)-(155,50)
2500 LINE-(153,55)
2505 LINE-(149,55)
2510 LINE-(115,130)
2515 LINE-(160,170)
2520 NEXT K
2525 LINE(149,55)-(151,60),0
2530 LINE-(155,50),0
2535 d=750:GOSUB 31000
2540 GOSUB 30000         '** Textpad **
2545 PRINT FNCEN$("over onto the right side,",40)
2550 d=1500:GOSUB 31000
2555 FOR K=1 TO 15
2560 LINE(160,50)-(165,50),0
2565 LINE-(167,55),0
2570 LINE-(171,55),0
2575 LINE-(205,130),0
2580 LINE-(160,170),0
2585 d=25:GOSUB 31000
2590 LINE(160,50)-(165,50)
2595 LINE-(167,55)
2600 LINE-(171,55)
2605 LINE-(205,130)
2610 LINE-(160,170)
2615 NEXT K
2620 LINE(171,55)-(169,60),0
2625 LINE-(165,50),0
2630 d=750:GOSUB 31000
2635 GOSUB 30000         '** Textpad **
2640 PRINT FNCEN$("THUS!",40)
2645 d=750:GOSUB 31000
2650 FOR Q=0 TO 45
2655 LINE(160,50)-(155+.111*Q,50)
2660 LINE-(153+.156*Q,55)
2665 LINE-(149+.244*Q,55)
2670 LINE-(115+Q,130)
2675 LINE-(160,170)
2680 LINE(160,50)-(155+.111*Q,50),0
2685 LINE-(153+.156*Q,55),0
2690 LINE-(149+.244*Q,55),0
2695 LINE-(115+Q,130),0
2700 LINE-(160,170),0
2705 NEXT Q
2710 FOR Q=0 TO 45
2715 LINE(160,50)-(160+.089*Q,50),0
2720 LINE-(160+.156*Q,55),0
2725 LINE-(160+.244*Q,55),0
2730 LINE-(160+Q,130),0
2735 LINE-(160,170),0
2740 LINE(160,50)-(160+.089*Q,50)
2745 LINE-(160+.156*Q,55)
2750 LINE-(160+.244*Q,55)
2755 LINE-(160+Q,130)
2760 LINE-(160,170)
2765 NEXT Q
2770 FOR H=160 TO 183 STEP 2
2775 PSET(H,80),0
2780 NEXT H
2785 LINE(160,54)-(167,54),0
2790 GOSUB 30000         '** Textpad **
2795 PRINT FNCEN$("There!",40)
2800 d=750:GOSUB 31000
2805 GOSUB 30000         '** Textpad **
2810 PRINT FNCEN$("Press <C> to continue.",40)
2815 A$=INKEY$:IF A$="" GOTO 2815
2820 IF A$="C" OR A$="c" GOTO 2830
2825 GOTO 2805
2830 GOSUB 30000         '** Textpad **
2835 PRINT FNCEN$("One moment, please.",40)
2840 d=1500:GOSUB 31000
2845 GOSUB 30000         '** Textpad **
2850 PRINT FNCEN$("This tippytoes position is not for me.",40)
2855 d=2000:GOSUB 31000
2860                            '***Zapsound***
2865 FOR A=0 TO 20
2870 OUT 66,A:OUT 66,A
2875 OUT 97,(INP(97) OR 3)
2880 NEXT A
2885 SOUND 37,0
2890 CLS
2895                             '***End Zapsound***
2900             '*** start draw ***
2905 LINE(75,170)-(235,25)
2910 LINE-(240,30)
2915 LINE-(235,40)
2920 LINE-(240,45)
2925 LINE-(185,170)
2930 LINE-(75,170)
2935 PAINT(210,65)
2940 LINE(225,30)-(240,45),0
2945 LINE(190,65)-(220,90),0
2950 GOSUB 30000         '** Textpad **
2955 PRINT FNCEN$("There!  Now I feel more like myself.",40)
2960 d=1500:GOSUB 31000
2965 GOSUB 30000         '** Textpad **
2970 PRINT FNCEN$("Here's the line for our next fold",40)
2975 d=1500:GOSUB 31000
2980 LINE(190,65)-(196,145),0
2985 d=750:GOSUB 31000
2990 GOSUB 30000         '** Textpad **
2995 PRINT FNCEN$("which takes this entire right side",40)
3000 d=750:GOSUB 31000
3005 FOR K=1 TO 15
3010 LINE(190,65)-(235,25),0
3015 LINE-(240,30),0
3020 LINE-(235,40),0
3025 LINE-(240,45),0
3030 LINE-(196,145),0
3035 LINE-(190,65)
3040 d=25:GOSUB 31000
3045 LINE(190,65)-(235,25)
3050 LINE-(240,30)
3055 LINE-(235,40)
3060 LINE-(240,45)
3065 LINE-(196,145)
3070 LINE-(190,65),0
3075 NEXT K
3080 d=750:GOSUB 31000
3085 GOSUB 30000         '** Textpad **
3090 PRINT FNCEN$("over to the left side,",40)
3095 d=1500:GOSUB 31000
3100 GOSUB 30000   '*** <Textpad> ***
3105 PRINT FNCEN$("* Hint *",40)
3110 d=1000:GOSUB 31000
3115 PRINT FNCEN$("Our straightedge would be handy here.",40)
3120 d=1500:GOSUB 31000
3125 GOSUB 30000   '*** Textpad ***
3130 PRINT FNCEN$("Press <C> to continue.",40)
3135 A$=INKEY$:IF A$="" GOTO 3135
3140 IF A$="C" OR A$="c" GOTO 3150
3145 GOTO 3100
3150 GOSUB 30000         '** Textpad **
3155 PRINT FNCEN$("SO!",40)
3160 d=750:GOSUB 31000
3165 FOR Q=0 TO 54
3170 LINE(190,65)-(235-.9070001*Q,25)
3175 LINE-(240-Q,30)
3180 LINE-(235-.87*Q,40)
3185 LINE-(240-.9630001*Q,45)
3190 LINE-(197,146),0
3195 LINE(235-.9070001*Q,25)-(240-Q,30),0
3200 LINE-(235-.87*Q,40),0
3205 LINE-(240-.9630001*Q,45),0
3210 NEXT Q
3215 FOR Q=0 TO 53
3220 LINE(190,65)-(186-.868*Q,25+9.400001E-02*Q)
3225 LINE-(186-.962*Q,30+9.400001E-02*Q)
3230 LINE-(187-.887*Q,40+9.400001E-02*Q)
3235 LINE-(188-Q,45+9.400001E-02*Q)
3240 LINE-(197,146),0
3245 LINE(187-Q,45+9.400001E-02*Q)-(197,146)
3250 LINE(188-Q,45+9.400001E-02*Q)-(197,146)
3255 LINE(189-Q,45+9.400001E-02*Q)-(197,146)
3260 LINE(190,65)-(186-.868*Q,25+9.400001E-02*Q),0
3265 LINE(190,65)-(187-.868*Q,25+9.400001E-02*Q),0
3270 PSET(191,64),0:PSET(191,65),0
3275 LINE(190,52)-(190,58),0
3280 NEXT Q
3285 PSET(134,50),0
3290 LINE(141,36)-(144,43)
3295 LINE(153,42)-(152,40)
3300 LINE(161,91)-(197,146),0
3305 LINE(135,50)-(150,35),0
3310 d=500:GOSUB 31000
3315 GOSUB 30000         '** Textpad **
3320 PRINT FNCEN$("and return.",40)
3325 d=750:GOSUB 31000
3330 FOR Q=0 TO 53
3335 LINE(190,65)-(140+.868*Q,30-9.400001E-02*Q)
3340 LINE-(135+.962*Q,35-9.400001E-02*Q)
3345 LINE-(140+.887*Q,45-9.400001E-02*Q)
3350 LINE-(135+Q,50-9.400001E-02*Q)
3355 LINE(140+.868*Q,30-9.400001E-02*Q)-(135+.962*Q,35-9.400001E-02*Q),0
3360 LINE-(140+.887*Q,45-9.400001E-02*Q),0
3365 LINE-(135+Q,50-9.400001E-02*Q),0
3370 LINE-(161+.5470001*Q,91-.4910001*Q),0
3375 LINE-(197,146),0
3380 LINE(139+.868*Q,30-9.400001E-02*Q)-(134+.962*Q,35-9.400001E-02*Q),0
3385 LINE-(139+.887*Q,45-9.400001E-02*Q),0
3390 LINE-(134+Q,50-9.400001E-02*Q),0
3395 LINE-(160+.5470001*Q,91-.4910001*Q),0
3400 LINE(161+.5470001*Q,91-.4910001*Q)-(197,146)
3405 NEXT Q
3410 FOR Q=0 TO 54
3415 LINE(190,65)-(186+.9070001*Q,25)
3420 LINE-(186+Q,30)
3425 LINE-(188+.87*Q,40)
3430 LINE-(188+.9630001*Q,45)
3435 LINE-(197,146)
3440 LINE(190,65)-(186+.9070001*Q,25),0
3445 LINE(225,30)-(240,45),0
3450 LINE(190,65)-(220,90),0
3455 LINE(190,65)-(196,145),0
3460 LINE(186,32)-(189,61),0
3465 PSET(187,32),0
3470 PSET(186,30),0:PSET(186,31),0
3475 NEXT Q
3480 LINE(241,45)-(186,170),0
3485 LINE(242,45)-(187,170),0
3490 d=750:GOSUB 31000
3495 GOSUB 30000   '** Textpad **
3500 PRINT FNCEN$("Your turn to fold and backfold.",40)
3505 d=1500:GOSUB 31000
3510 GOSUB 30000       '*** Textpad ***
3515 PRINT FNCEN$("Press <R> to review.",40)
3520 d=1000:GOSUB 31000
3525 PRINT FNCEN$("To continue, press <C>.",40)
3530 A$=INKEY$:IF A$="" GOTO 3530
3535 IF A$="r" OR A$="R" GOTO 3550
3540 IF A$="c" OR A$="C" GOTO 3570
3545 GOTO 3495
3550 GOSUB 30000         '** Textpad **
3555 PRINT FNCEN$("* Review *",40)
3560 d=750:GOSUB 31000
3565 GOTO 2965
3570 GOSUB 30000         '** Textpad **
3575 PRINT FNCEN$("Our next fold takes PUPPY's muzzle",40)
3580 d=1500:GOSUB 31000
3585                             '*** arrow down ***
3590 FOR K=1 TO 15
3595 PSET(248,30):DRAW"E5d4r7d2l7d4h5"
3600 PAINT(254,30)
3605 d=25:GOSUB 31000
3610 d=25:GOSUB 31000
3615 CIRCLE(254,30),7,0
3620 PAINT(254,30),0
3625 NEXT K
3630                             '***end arrow down ***
3635 d=750:GOSUB 31000
3640 GOSUB 30000         '** Textpad **
3645 PRINT FNCEN$("in a HOOD FOLD",40)
3650 d=1500:GOSUB 31000
3655 GOSUB 30000         '** Textpad **
3660 PRINT FNCEN$("down to this point",40)
3665 d=750:GOSUB 31000
3670                               '*** flashdot ***
3675 FOR K=1 TO 15
3680 CIRCLE(235,105),5,3
3685 LINE(233,105)-(237,105),3
3690 LINE(235,103)-(235,107),3
3695 d=25:GOSUB 31000
3700 CIRCLE(235,105),5,0
3705 LINE(233,105)-(237,105),0
3710 LINE(235,103)-(235,107),0
3715 NEXT K
3720 d=750:GOSUB 31000
3725 GOSUB 30000         '** Textpad **
3730 PRINT FNCEN$("with this crease",40)
3735 d=750:GOSUB 31000
3740 FOR K=1 TO 15
3745 LINE(190,65)-(196,145)
3750 d=25:GOSUB 31000
3755 LINE(190,65)-(196,145),1
3760 NEXT K
3765 PSET(190,65),0
3770 d=750:GOSUB 31000
3775 GOSUB 30000         '** Textpad **
3780 PRINT FNCEN$("staying where it is in a VALLEY FOLD",40)
3785 d=1500:GOSUB 31000
3790 GOSUB 30000         '** Textpad **
3795 PRINT FNCEN$("and this crease",40)
3800 d=750:GOSUB 31000
3805 FOR K=1 TO 15
3810 LINE(190,65)-(220,90)
3815 d=25:GOSUB 31000
3820 LINE(190,65)-(220,90),2
3825 NEXT K
3830 d=750:GOSUB 31000
3835 GOSUB 30000         '** Textpad **
3840 PRINT FNCEN$("and this edge",40)
3845 d=750:GOSUB 31000
3850 FOR K=1 TO 15
3855 LINE(220,90)-(196,145)
3860 d=25:GOSUB 31000
3865 LINE(220,90)-(196,145),2
3870 NEXT K
3875 d=750:GOSUB 31000
3880 GOSUB 30000         '** Textpad **
3885 PRINT FNCEN$("folding over to here",40)
3890 d=750:GOSUB 31000
3895 FOR K=1 TO 15
3900 LINE(190,65)-(161,91)
3905 LINE-(196,145)
3910 d=25:GOSUB 31000
3915 LINE(190,65)-(161,91),2
3920 LINE-(196,145),2
3925 NEXT K
3930 d=750:GOSUB 31000
3935 GOSUB 30000         '** Textpad **
3940 PRINT FNCEN$("in a MOUNTAIN FOLD,",40)
3945 d=750:GOSUB 31000
3950 GOSUB 30000         '** Textpad **
3955 PRINT FNCEN$("THUS!",40)
3960 d=750:GOSUB 31000
3965 LINE(190,65)-(161,91)
3970 LINE-(196,145)
3975 LINE(190,65)-(196,145),0
3980 FOR Q=0 TO 43
3985 LINE(190,65)-(235+.535*Q,25+.9299999*Q)
3990 LINE-(240+.419*Q,30+Q)
3995 LINE-(235+.163*Q,40+.8599999*Q)
4000 LINE-(240+.047*Q,45+.8840001*Q)
4005 LINE-(220-.651*Q,90)   'culprit
4010 LINE-(196,145)
4015 LINE(240+.047*Q,45+.8840001*Q)-(220-.651*Q,90+.279*Q),0
4020 LINE(190,65)-(220-.628*Q,90+.279*Q),2
4025 LINE-(196,145),2
4030 LINE(190,65)-(220-.628*Q,90+.279*Q)
4035 LINE(190,65)-(235+.535*Q,25+.9299999*Q),0
4040 LINE(190,64)-(236+.535*Q,24+.9299999*Q),0
4045 LINE(190,63)-(237+.535*Q,23+.9299999*Q),0
4050 LINE(190,62)-(238+.535*Q,22+.9299999*Q),0
4055 LINE(200,137)-(218,96),0
4060 LINE(220-.628*Q,90+.279*Q)-(196,145),0
4065 LINE(193,102)-(240+.05*Q,45+.88*Q)
4070 PSET(225,80),0:PSET(221,89),0:PSET(222,87),0
4075 NEXT Q
4080 LINE(191,66)-(258,73),3,BF
4085 LINE(256,72)-(244,75)
4090 LINE(201,97)-(222,87)
4095 LINE(190,65)-(196,145),0
4100 LINE(190,66)-(258,66)  'ok
4105 LINE-(258,73)
4110 LINE-(242,77)
4115 LINE-(242,83)
4120 LINE-(192,102)
4125 LINE(243,65)-(243,83),0
4130 LINE(195,100)-(229,86)
4135 PSET(225,80):PSET(210,92)
4140 PSET(212,91):PSET(225,87):PSET(226,86)
4145 FOR Q=0 TO 40
4150 LINE(190,65)-(258-.5750001*Q,65+Q)
4155 LINE-(258-.67*Q,73+.9250001*Q)
4160 LINE-(242-.55*Q,77+.7*Q)
4165 LINE-(242-.675*Q,83+.675*Q)
4170 LINE-(192-.7750001*Q,102-.25*Q)
4175 LINE(242-.675*Q,83+.675*Q)-(192,102)
4180 LINE(190,65)-(258-.5750001*Q,65+Q),0
4185 LINE-(258-.67*Q,73+.9250001*Q),0
4190 LINE(190,64)-(259-.5750001*Q,64+Q),0
4195 LINE-(259-.67*Q,73+.9250001*Q),0
4200 LINE(190,65)-(192-.7750001*Q,102-.25*Q),2
4205 LINE-(196,145),2
4210 LINE(190,64)-(258-.5750001*Q,64+Q),0
4215 LINE(190,65)-(192-.7750001*Q,102-.25*Q)
4220 LINE-(196,145)
4225 LINE(192,103)-(192-.7750001*Q,103-.275*Q),0
4230 LINE(191,72)-(192,90)
4235 PSET(192,91):PSET(192,92)
4240 LINE(193,104)-(196,145),1
4245 NEXT Q
4250 LINE(208,100)-(227,105),3,BF
4255 LINE(227,97)-(234,103),0
4260 LINE(161,91)-(192,102),3,BF
4265 LINE(192,103)-(160,92),2
4270 LINE-(196,145),2
4275 LINE(216,107)-(214,109)
4280 PSET(248,78),0:PSET(245,85),0:PSET(234,94),0:PSET(236,95),0:PSET(237,96),0:PSET(229,105):PSET(232,106):PSET(231,108)
4285 PAINT(240,85),0
4290 LINE(230,109)-(224,106)
4295 LINE(190,65)-(235,105)
4300 LINE-(230,110)
4305 PSET(227,99):PSET(212,106):PSET(211,108)
4310 LINE(221,105)-(228,98),0
4315 d=1500:GOSUB 31000
4320 LINE(193,104)-(196,145)
4325 LINE(192,103)-(160,92),0
4330 LINE-(196,145),0
4335 GOSUB 30000       '*** Textpad ***
4340 PRINT FNCEN$("Press <R> to review.",40)
4345 d=1000:GOSUB 31000
4350 PRINT FNCEN$("To continue, press <C>.",40)
4355 A$=INKEY$:IF A$="" GOTO 4355
4360 IF A$="r" OR A$="R" GOTO 4375
4365 IF A$="c" OR A$="C" GOTO 4485
4370 GOTO 4335
4375 GOTO 4380
4380 GOSUB 30000       '*** Textpad ***
4385 PRINT FNCEN$("* Review *",40)
4390 d=750:GOSUB 31000
4395 FOR A=0 TO 20
4400 OUT 66,A:OUT 66,A
4405 OUT 97,(INP(97) OR 3)
4410 NEXT A
4415 SOUND 37,0
4420 CLS
4425 LINE(75,170)-(235,25)
4430 LINE-(240,30)
4435 LINE-(235,40)
4440 LINE-(240,45)
4445 LINE-(185,170)
4450 LINE-(75,170)
4455 PAINT(210,65)
4460 LINE(227,32)-(240,45),2
4465 LINE(190,65)-(220,90),0
4470 LINE(190,65)-(196,145),0
4475 LINE(227,32)-(240,45),0
4480 GOTO 3570
4485 GOSUB 30000       '*** Textpad ***
4490 PRINT FNCEN$("For PUP's hind end, we fold",40)
4495 d=1500:GOSUB 31000
4500 GOSUB 30000       '*** Textpad ***
4505 PRINT FNCEN$("and backfold this corner",40)
4510 d=750:GOSUB 31000
4515                             '*** arrow right ***
4520 FOR K=1 TO 15
4525 PSET(67,170):DRAW"H5D4L7D2R7D4E5"
4530 PAINT(61,170)
4535 d=25:GOSUB 31000
4540 CIRCLE(61,170),7,0
4545 PAINT(61,170),0
4550 NEXT K
4555                             '***end arrow right ***
4560 d=750:GOSUB 31000
4565 GOSUB 30000       '*** Textpad ***
4570 PRINT FNCEN$("over to this corner,",40)
4575 d=750:GOSUB 31000
4580                             '*** arrow left ***
4585 FOR K=1 TO 15
4590 PSET(193,170):DRAW"E5D4R7D2L7D4H5"
4595 PAINT(199,170)
4600 d=25:GOSUB 31000
4605 CIRCLE(199,170),7,0
4610 PAINT(199,170),0
4615 NEXT K
4620 d=750:GOSUB 31000
4625                             '***end arrow left ***
4630 GOSUB 30000       '*** Textpad ***
4635 PRINT FNCEN$("THUS!",40)
4640 d=750:GOSUB 31000
4645 FOR V=120 TO 170 STEP 2
4650 PSET(130,V),0
4655 NEXT V
4660 d=750:GOSUB 31000
4665 FOR H=75 TO 130
4670 LINE(130,120)-(H,170)
4675 LINE-(130,170)
4680 LINE(130,120)-(H,170),0
4685 LINE-(130,170),0
4690 NEXT H
4695 FOR H=130 TO 185
4700 LINE(130,120)-(H,170),0
4705 LINE-(130,170),0
4710 LINE(130,120)-(H,170)
4715 LINE-(130,170)
4720 NEXT H
4725 LINE(130,120)-(185,170),0
4730 d=750:GOSUB 31000
4735 GOSUB 30000       '*** Textpad ***LIST 10210
4740 PRINT FNCEN$("and return.",40)
4745 d=750:GOSUB 31000
4750 FOR H=185 TO 130 STEP -1
4755 LINE(130,120)-(H,170),0
4760 LINE-(130,170),0
4765 LINE(130,120)-(H,170)
4770 LINE-(130,170)
4775 NEXT H
4780 FOR V=119 TO 170 STEP 2
4785 PSET(131,V),0
4790 NEXT V
4795 FOR H=130 TO 75 STEP -1
4800 LINE(130,120)-(H,170)
4805 LINE-(130,170)
4810 NEXT H
4815 d=750:GOSUB 31000
4820 GOSUB 30000   '** Textpad **
4825 PRINT FNCEN$("Your turn to fold and backfold.",40)
4830 d=1500:GOSUB 31000
4835 GOSUB 30000       '*** Textpad ***
4840 PRINT FNCEN$("Press <R> to review.",40)
4845 d=1000:GOSUB 31000
4850 PRINT FNCEN$("To continue, press <C>.",40)
4855 A$=INKEY$:IF A$="" GOTO 4855
4860 IF A$="r" OR A$="R" GOTO 4875
4865 IF A$="c" OR A$="C" GOTO 4900
4870 GOTO 4820
4875 LINE(131,120)-(131,170)
4880 GOSUB 30000         '** Textpad **
4885 PRINT FNCEN$("* Review *",40)
4890 d=750:GOSUB 31000
4895 GOTO 4485
4900 GOSUB 30000       '*** Textpad ***
4905 PRINT FNCEN$("For PUPPY's tail, we fold",40)
4910 d=1500:GOSUB 31000
4915 GOSUB 30000       '*** Textpad ***
4920 PRINT FNCEN$("and backfold this corner",40)
4925 d=750:GOSUB 31000
4930 FOR K=1 TO 15
4935 PSET(67,170):DRAW"H5D4L7D2R7D4E5"
4940 PAINT(61,170)
4945 d=25:GOSUB 31000
4950 CIRCLE(61,170),7,0
4955 PAINT(61,170),0
4960 NEXT K
4965                            '***end arrow right ***
4970 d=750:GOSUB 31000
4975 GOSUB 30000       '*** Textpad ***
4980 PRINT FNCEN$("over to this point,",40)
4985 d=750:GOSUB 31000
4990                              '*** flashdot ***
4995 FOR K=1 TO 15
5000 CIRCLE(165,135),5,0
5005 LINE(163,135)-(167,135),0
5010 LINE(165,133)-(165,137),0
5015 d=25:GOSUB 31000
5020 CIRCLE(165,135),5
5025 LINE(163,135)-(167,135)
5030 LINE(165,133)-(165,137)
5035 NEXT K
5040 d=750:GOSUB 31000
5045 GOSUB 30000       '*** Textpad ***
5050 PRINT FNCEN$("THUS!",40)
5055 d=750:GOSUB 31000
5060 LINE(113,135)-(130,170),0
5065 d=750:GOSUB 31000
5070 FOR Q=0 TO 46
5075 LINE(113,135)-(75+Q,170-.39*Q)
5080 LINE-(130,170)
5085 LINE(113,135)-(75+Q,170-.39*Q),0
5090 LINE-(130,170),0
5095 LINE(113,135)-(74+Q,170-.39*Q),0
5100 LINE-(130,170),0
5105 NEXT Q
5110 FOR Q=0 TO 44
5115 LINE(113,135)-(121+Q,152-.39*Q),0
5120 LINE-(130,170),0
5125 LINE(113,135)-(121+Q,152-.39*Q)
5130 LINE-(130,170)
5135 PSET(130,146)
5140 NEXT Q
5145 LINE(113,135)-(165,135),0
5150 LINE-(130,170),0
5155 d=750:GOSUB 31000
5160 GOSUB 30000         '** Textpad **
5165 PRINT FNCEN$("Note that this edge",40)
5170 d=750:GOSUB 31000
5175 PSET(105,135):DRAW"H5D4L7D2R7D4E5
5180 PAINT(99,135)
5185 d=1000:GOSUB 31000
5190 FOR K=1 TO 15
5195 LINE(114,135)-(164,135)
5200 d=25:GOSUB 31000
5205 LINE(114,135)-(164,135),2
5210 NEXT K
5215 d=750:GOSUB 31000
5220 CIRCLE(99,135),7,0
5225 PAINT(99,135),0
5230 GOSUB 30000         '** Textpad **
5235 PRINT FNCEN$("is parallel to this edge.",40)
5240 d=750:GOSUB 31000
5245 PSET(122,170):DRAW"H5D4L7D2R7D4E5
5250 PAINT(116,170)
5255 d=1000:GOSUB 31000
5260 FOR K=1 TO 15
5265 LINE(130,170)-(185,170)
5270 d=25:GOSUB 31000
5275 LINE(130,170)-(185,170),2
5280 NEXT K
5285 d=750:GOSUB 31000
5290 CIRCLE(116,170),7,0
5295 PAINT(116,170),0
5300 d=750:GOSUB 31000
5305 LINE(130,170)-(185,170)
5310 LINE(115,135)-(165,135),0
5315 GOSUB 30000       '*** Textpad ***
5320 PRINT FNCEN$("and return.",40)
5325 d=750:GOSUB 31000
5330 FOR Q=0 TO 44
5335 LINE(113,135)-(165-Q,135+.39*Q),0
5340 LINE-(130,170),0
5345 LINE(113,135)-(165-Q,135+.39*Q)
5350 LINE-(130,170)
5355 NEXT Q
5360 FOR V=119 TO 170 STEP 2
5365 PSET(131,V),0
5370 NEXT V
5375 FOR Q=0 TO 46
5380 LINE(113,135)-(121-Q,152+.39*Q)
5385 LINE-(130,170)
5390 LINE(113,135)-(122-Q,152+.39*Q)
5395 LINE-(130,170)
5400 LINE(113,135)-(130,170),0
5405 NEXT Q
5410 d=1500:GOSUB 31000
5415 GOSUB 30000   '** Textpad **
5420 PRINT FNCEN$("Your turn to fold and backfold.",40)
5425 d=1500:GOSUB 31000
5430 GOSUB 30000       '*** Textpad ***
5435 PRINT FNCEN$("Press <R> to review.",40)
5440 d=1000:GOSUB 31000
5445 PRINT FNCEN$("To continue, press <C>.",40)
5450 A$=INKEY$:IF A$="" GOTO 5450
5455 IF A$="r" OR A$="R" GOTO 5470
5460 IF A$="c" OR A$="C" GOTO 5495
5465 GOTO 5415
5470 LINE(113,135)-(130,170)
5475 GOSUB 30000   '** Textpad **
5480 PRINT FNCEN$("* Review *",40)
5485 d=1500:GOSUB 31000
5490 GOTO 4900
5495 GOSUB 30000         '** Textpad **
5500 PRINT FNCEN$("We next tuck PUPPY's hind parts",40)
5505 d=1500:GOSUB 31000
5510 PSET(95,140):DRAW"U8G3H6G2F6G3R8"
5515 PAINT(90,135)
5520 d=250:GOSUB 31000
5525 FOR K=1 TO 15
5530 LINE(130,120)-(75,170),0
5535 LINE-(130,170),0
5540 d=25:GOSUB 31000
5545 LINE(130,120)-(75,170)
5550 LINE-(130,170)
5555 NEXT K
5560 CIRCLE(90,135),9,0
5565 PAINT(90,135),0
5570 d=750:GOSUB 31000
5575 GOSUB 30000         '** Textpad **
5580 PRINT FNCEN$("into this pocket",40)
5585 d=750:GOSUB 31000
5590 LINE(75,170)-(175,175)
5595 LINE-(180,170)
5600 FOR K=1 TO 15
5605 PSET(160,178):DRAW"g5r4d7r2u7r4h5"
5610 PAINT(160,184)
5615 d=25:GOSUB 31000
5620 CIRCLE(160,184),7,0
5625 PAINT(160,184),0
5630 NEXT K
5635 d=750:GOSUB 31000
5640 GOSUB 30000   '** Textpad **
5645 PRINT FNCEN$("in an INSIDE REVERSE FOLD,",40)
5650 d=1500:GOSUB 31000
5655 GOSUB 30000   '** Textpad **
5660 PRINT FNCEN$("THUS!",40)
5665 d=750:GOSUB 31000
5670 FOR A=0 TO 20
5675 OUT 66,A:OUT 66,A
5680 OUT 97,(INP(97) OR 3)
5685 NEXT A
5690 SOUND 37,0
5695 LINE(75,171)-(180,175),0,BF
5700 LINE(113,135)-(130,169)
5705 LINE(131,120)-(131,169)
5710 LINE(75,120)-(129,170),0,BF
5715 LINE(130,120)-(185,170),1
5720 'LINE(146,134)-(130,170),1
5725 d=750:GOSUB 31000
5730 GOSUB 30000   '** Textpad **
5735 PRINT FNCEN$("Would you like to see that fold again?",40)
5740 d=1500:GOSUB 31000
5745 GOSUB 30000       '*** Textpad ***
5750 PRINT FNCEN$("If so, press <R>.",40)
5755 d=1000:GOSUB 31000
5760 PRINT FNCEN$("To continue, press <C>.",40)
5765 A$=INKEY$:IF A$="" GOTO 5765
5770 IF A$="r" OR A$="R" GOTO 5785
5775 IF A$="c" OR A$="C" GOTO 5875
5780 GOTO 5730
5785 FOR A=0 TO 20
5790 OUT 66,A:OUT 66,A
5795 OUT 97,(INP(97) OR 3)
5800 NEXT A
5805 SOUND 37,0
5810 LINE(130,120)-(185,170)
5815 LINE(146,134)-(130,170)
5820 LINE(130,120)-(75,170)
5825 LINE-(135,170)
5830 PAINT(120,145)
5835 LINE(113,135)-(130,170),0
5840 FOR V=119 TO 170 STEP 2
5845 PSET(131,V),0
5850 NEXT V
5855 GOSUB 30000   '** Textpad **
5860 PRINT FNCEN$("* Review *",40)
5865 d=1500:GOSUB 31000
5870 GOTO 5495
5875 GOSUB 30000         '** Textpad **
5880 PRINT FNCEN$("We now pull PUP's tail out.",40)
5885 d=750:GOSUB 31000
5890 LINE(146,134)-(130,170),1
5895 FOR Q=0 TO 47
5900 LINE(147,135)-(185-Q,170-.38*Q),1
5905 LINE-(130,170),1
5910 LINE(147,135)-(185-Q,170-.38*Q)
5915 LINE-(130,170)
5920 NEXT Q
5925 FOR Q=0 TO 43
5930 LINE(147,135)-(138-Q,152-.4*Q),1
5935 LINE-(130,170),1
5940 LINE(147,135)-(138-Q,152-.4*Q)
5945 LINE-(130,170)
5950 LINE(148,135)-(138-Q,152-.4*Q)
5955 LINE-(131,170)
5960 LINE(147,135)-(130,170),1
5965 LINE(129,120)-(129,170),0
5970 NEXT Q
5975 LINE(130,135)-(146,135),1
5980 LINE(113,140)-(127,147)
5985 PSET(124,143)
5990 d=750:GOSUB 31000
5995 GOSUB 30000         '** Textpad **
6000 PRINT FNCEN$("Press <R> to review.",40)
6005 d=1000:GOSUB 31000
6010 PRINT FNCEN$("To continue, press <C>.",40)
6015 A$=INKEY$:IF A$="" GOTO 6015
6020 IF A$="R" OR A$="r" GOTO 6035
6025 IF A$="C" OR A$="c" GOTO 6095
6030 GOTO 5995
6035 FOR A=0 TO 20
6040 OUT 66,A:OUT 66,A
6045 OUT 97,(INP(97) OR 3)
6050 NEXT A
6055 SOUND 37,0
6060 LINE(95,120)-(129,170),0,BF
6065 LINE(130,120)-(150,170),3,BF
6070 LINE(130,120)-(185,170),1
6075 GOSUB 30000         '** Textpad **
6080 PRINT FNCEN$("* Review *",40)
6085 d=1500:GOSUB 31000
6090 GOTO 5875
6095 GOSUB 30000         '** Textpad **
6100 PRINT FNCEN$("Next, we fold and backfold this corner",40)
6105 LINE(130,120)-(150,170),3,BF
6110 d=750:GOSUB 31000
6115 FOR K=1 TO 15
6120 PSET(87,135):DRAW"H5D4L7D2R7D4E5"
6125 PAINT(81,135)
6130 d=25:GOSUB 31000
6135 CIRCLE(81,135),7,0
6140 PAINT(81,135),0
6145 NEXT K
6150 d=750:GOSUB 31000
6155 GOSUB 30000         '** Textpad **
6160 PRINT FNCEN$("down along this line",40)
6165 d=750:GOSUB 31000
6170 LINE(129,135)-(112,152),0
6175 d=750:GOSUB 31000
6180 GOSUB 30000         '** Textpad **
6185 PRINT FNCEN$("over to here,",40)
6190 d=750:GOSUB 31000
6195 FOR K=1 TO 15
6200 PSET(130,178):DRAW"g5r4d7r2u7r4h5"
6205 PAINT(130,184)
6210 d=25:GOSUB 31000
6215 CIRCLE(130,184),7,0
6220 PAINT(130,184),0
6225 NEXT K
6230 d=750:GOSUB 31000
6235 GOSUB 30000         '** Textpad **
6240 PRINT FNCEN$("SO!",40)
6245 d=750:GOSUB 31000
6250 FOR Q=0 TO 17
6255 LINE(129,135)-(95+Q,135+Q),0
6260 LINE-(111,153),0
6265 LINE(129,135)-(94+Q,135+Q),0
6270 LINE-(111,153),0
6275 d=50:GOSUB 31000
6280 NEXT Q
6285 FOR Q=0 TO 18
6290 LINE(129,135)-(113+Q,152+.94*Q),0
6295 LINE-(111,153),0
6300 LINE(129,135)-(113+Q,152+.94*Q)
6305 LINE-(111,153)
6310 LINE(129,135)-(112+Q,152+.94*Q)
6315 LINE-(111,153)
6320 d=50:GOSUB 31000
6325 NEXT Q
6330 LINE(129,135)-(129,170),0
6335 d=250:GOSUB 31000
6340 GOSUB 30000         '** Textpad **
6345 PRINT FNCEN$("and return!",40)
6350 d=750:GOSUB 31000
6355 FOR Q=0 TO 35
6360 LINE(129,135)-(128-.97*Q,170-Q),0
6365 LINE-(111,153),0
6370 LINE(129,135)-(128-.97*Q,170-Q)
6375 LINE-(111,153)
6380 LINE(129,135)-(129-.97*Q,170-Q)
6385 LINE-(111,153)
6390 d=50:GOSUB 31000
6395 LINE(129,135)-(111,153),0
6400 LINE(129,135)-(129,170),0
6405 NEXT Q
6410 d=750:GOSUB 31000
6415 GOSUB 30000   '** Textpad **
6420 PRINT FNCEN$("Your turn to fold and backfold.",40)
6425 d=1500:GOSUB 31000
6430 GOSUB 30000       '*** Textpad ***
6435 PRINT FNCEN$("Press <R> to review.",40)
6440 d=1000:GOSUB 31000
6445 PRINT FNCEN$("To continue, press <C>.",40)
6450 A$=INKEY$:IF A$="" GOTO 6450
6455 IF A$="r" OR A$="R" GOTO 6470
6460 IF A$="c" OR A$="C" GOTO 6495
6465 GOTO 6415
6470 LINE(129,135)-(112,152)
6475 GOSUB 30000   '** Textpad **
6480 PRINT FNCEN$("* Review *",40)
6485 d=1500:GOSUB 31000
6490 GOTO 6095
6495 GOSUB 30000         '** Textpad **
6500 PRINT FNCEN$("Our final fold takes this corner",40)
6505 d=750:GOSUB 31000
6510                             '*** arrow right ***
6515 FOR K=1 TO 15
6520 PSET(87,135):DRAW"H5D4L7D2R7D4E5"
6525 PAINT(81,135)
6530 d=25:GOSUB 31000
6535 CIRCLE(81,135),7,0
6540 PAINT(81,135),0
6545 NEXT K
6550                             '***end arrow right ***
6555 d=750:GOSUB 31000
6560 GOSUB 30000         '** Textpad **
6565 PRINT FNCEN$("UP!",40)
6570 LINE(94,135)-(128,170),0
6575 LINE(129,135)-(112,152),0
6580 LINE(103,145)-(110,152),0
6585 LINE(98,135)-(102,144),0
6590 LINE(93,135)-(102,143),0
6595 LINE(98,140)-(101,143),0
6600 FOR H=95 TO 129
6605 LINE(129,135)-(H,135),0
6610 LINE-(129,170),0
6615 d=50:GOSUB 31000
6620 NEXT H
6625 LINE(128,135)-(125,170)
6630 PSET(129,135)
6635 d=750:GOSUB 31000
6640 GOSUB 30000      '*** Textpad ***
6645 PRINT FNCEN$("so that it is pointing straight at us,",40)
6650 d=1500:GOSUB 31000
6655 GOSUB 30000         '** Textpad **
6660 PRINT FNCEN$("Press <C> to continue.",40)
6665 A$=INKEY$:IF A$="" GOTO 6665
6670 IF A$="C" OR A$="c" GOTO 6680
6675 GOTO 6655
6680 GOSUB 30000      '*** Textpad ***
6685 PRINT FNCEN$("and SQUASH!",40)
6690 d=750:GOSUB 31000
6695 LINE(125,135)-(129,170),0,BF
6700 FOR Q=0 TO 35
6705 LINE(130,135+Q)-(130,170),0
6710 LINE(130,135)-(130-.51*Q,152)
6715 LINE-(130,170)
6720 LINE(130-.51*Q,152)-(130,135+Q)
6725 LINE(130-.51*Q,152)-(130,134+Q),0
6730 LINE(130-.51*Q,152)-(130,133+Q),0
6735 LINE(130-.51*Q,152)-(130,132+Q)
6740 LINE(130+.51*Q,152)-(130,135+Q)
6745 LINE(130+.51*Q,152)-(130,134+Q),0
6750 LINE(130+.51*Q,152)-(130,133+Q),0
6755 LINE(130+.51*Q,152)-(130,132+Q)
6760 LINE(130,135)-(130+.51*Q,152),0
6765 LINE(130,135)-(129+.51*Q,152)
6770 LINE(130,170)-(130+.51*Q,152),0
6775 LINE(130,170)-(129+.51*Q,152)
6780 NEXT Q
6785 LINE(112,152)-(130,170)
6790 LINE(122,161)-(130,169)
6795 LINE-(137,162)
6800 LINE(140,144)-(148,152)
6805 LINE-(139,161)
6810 LINE(128,166)-(130,168)
6815 LINE-(132,166)
6820 FOR V=135 TO 170 STEP 2
6825 PSET(130,V),0
6830 NEXT V
6835 LINE(130,135)-(148,152),0
6840 LINE-(130,170),0
6845 d=750:GOSUB 31000
6850 GOSUB 30000       '*** Textpad ***
6855 PRINT FNCEN$("Would you like to see that fold again?",40)
6860 d=1500:GOSUB 31000
6865 PRINT FNCEN$("Press <R> to review.",40)
6870 d=1000:GOSUB 31000
6875 PRINT FNCEN$("To continue, press <C>.",40)
6880 A$=INKEY$:IF A$="" GOTO 6880
6885 IF A$="r" OR A$="R" GOTO 6900
6890 IF A$="c" OR A$="C" GOTO 7005
6895 GOTO 6850
6900 FOR A=0 TO 20
6905 OUT 66,A:OUT 66,A
6910 OUT 97,(INP(97) OR 3)
6915 NEXT A
6920 SOUND 37,0
6925 LINE(130,135)-(148,152)
6930 LINE-(130,170)
6935 LINE(95,120)-(129,170),0,BF
6940 LINE(129,135)-(93,135)
6945 LINE-(128,170)
6950 LINE-(129,170)
6955 PAINT(125,165)
6960 LINE(129,135)-(129,170),0
6965 LINE(129,135)-(111,153),0
6970 LINE(93,125)-(102,144),0
6975 LINE(98,135)-(102,144)
6980 'LINE(93,135)-(102,143),0
6985 GOSUB 30000   '** Textpad **
6990 PRINT FNCEN$("* Review *",40)
6995 d=1500:GOSUB 31000
7000 GOTO 6495
7005 GOSUB 30000         '** Textpad **
7010 PRINT FNCEN$("And there we have it!",40)
7015 d=1500:GOSUB 31000
7020                           '***Zapso8nd***
7025 FOR A=0 TO 20
7030 OUT 66,A:OUT 66,A
7035 OUT 97,(INP(97) OR 3)
7040 NEXT A
7045 SOUND 37,0
7050                            '***End Zapsound***
7055 CLS
7060 LINE(113,167)-(175,167)
7065 LINE-(192,135)
7070 LINE-(188,94)
7075 LINE-(203,91)
7080 LINE-(204,86)
7085 LINE-(220,82)
7090 LINE-(217,73)
7095 LINE-(204,73)
7100 LINE-(174,63)
7105 LINE-(172,69)
7110 LINE-(110,130)
7115 LINE-(110,143)
7120 LINE-(100,152)
7125 LINE-(110,160)
7130 LINE-(120,152)
7135 LINE-(110,170)
7140 LINE-(174,170)
7145 PAINT(160,100)
7150 LINE(100,152)-(110,170)
7155 LINE(174,63)-(165,92),0
7160 LINE-(189,134),0
7165 LINE-(172,167),0
7170 LINE(165,92)-(201,90),0
7175 LINE-(205,73),0
7180 LINE(189,134)-(184,91),0
7185 LINE(189,94)-(189,91),0
7190 LINE(202,87)-(220,82),0
7195 LINE(217,72)-(217,81),0
7200 LINE-(202,85),0
7205 LINE(172,168)-(174,168)
7210 LINE(173,169)-(175,168)
7215 LINE(110,143)-(120,152),0
7220 LINE-(111,161),0
7225 LINE(110,130)-(110,160),0
7230 LINE(110,160)-(110,169)
7235 GOSUB 30000         '** Textpad **
7240 PRINT FNCEN$("PUPPY",40)
7245 d=1500:GOSUB 31000
7250 GOSUB 30000       '*** Textpad ***
7255 PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
7260 PRINT FNCEN$("  <2> - To repeat PUPPY.",40)
7265 PRINT FNCEN$("      <3> - To exit from program.",40)
7270 E$=INPUT$(1)
7275 IF E$<"1" OR E$>"3" GOTO 7270
7280 SEL=VAL(E$)
7285 COMMON SEL
7290 CLS
7295 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
7296 LINE(70,75)-(250,125),3,B
7300 ON SEL GOTO 7305,7310,7315
7305 CHAIN"main"
7310 CHAIN"puppy
7315 CHAIN"end"
7320 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