PCjs Machines
Home of the original IBM PC emulator for browsers.
PC-SIG Diskette Library (Disk #408)
[PCjs Machine "ibm5150"]
Waiting for machine "ibm5150" to load....
Information about “ORIGAMI”
ORIGAMI is an introduction to the ancient Eastern art of paper folding.
This tutorial begins with the basics -- the main starting folds -- and
proceeds to demonstrate how to create many traditional and modern paper
sculptures. Step-by-step colorful graphic instructions walk you
through the construction of graceful and fanciful creatures.
BALLOON.BAS
10 SCREEN 1:COLOR 8,0:KEY OFF:CLS
15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
20 LOCATE 11,1:PRINT FNCEN$("BALLOON",40)
25 LOCATE 22,1:PRINT FNCEN$("(C) Copyright 1985 George Furiya",40)
30 PRINT FNCEN$("All Rights Reserved",40)
35 FOR K=1 TO 1500:NEXT K
40 '***Zapsound***
45 FOR A=0 TO 20
50 OUT 66,A:OUT 66,A
55 OUT 97,(INP(97) OR 3)
60 NEXT A
65 SOUND 37,0
70 CLS
75 LINE(105,45)-(215,145),3,B
80 GOSUB 30000 '***Textpad***
85 PRINT FNCEN$("We start with these two folds.",40)
90 FOR K=1 TO 1500:NEXT K
95 LINE(105,45)-(215,145)
100 FOR K=1 TO 750:NEXT K
105 LINE(215,45)-(105,145)
110 FOR K=1 TO 1500:NEXT K
115 GOSUB 30000 '***Textpad***
120 PRINT FNCEN$("You've made them before.",40)
125 FOR K=1 TO 1500:NEXT K
130 GOSUB 30000 '***Textpad***
135 PRINT FNCEN$("I'll wait till you finish.",40)
140 FOR K=1 TO 1500:NEXT K
145 GOSUB 30000 '*** Textpad ***
150 PRINT FNCEN$("Press <C> to continue.",40)
155 A$=INKEY$:IF A$="" GOTO 155
160 IF A$="C" OR A$="c" GOTO 170
165 GOTO 145
170 GOSUB 30000 '***Textpad***
175 PRINT FNCEN$("And here's our third fold.",40)
180 FOR K=1 TO 1500:NEXT K
185 LINE(105,45)-(215,145),0
190 LINE(105,145)-(215,45),0
195 LINE(105,145)-(215,145),3,B
200 FOR K=1 TO 500:NEXT K
205 FOR H= 105 TO 215 STEP 2
210 PSET(H,95)
215 NEXT H
220 FOR K=1 TO 750:NEXT K
225 FOR V=45 TO 95 'TRANSDOWN
230 LINE(105,V)-(215,V),3
235 LINE(105,V)-(215,V),0
240 NEXT V
245 FOR V=95 TO 145
250 LINE(105,V)-(215,V),3
255 NEXT V 'END TRANSDOWN
260 LINE(105,145)-(160,95),0
265 LINE-(215,145),0
270 FOR K=1 TO 750:NEXT K
275 GOSUB 30000 '*** Textpad ***
280 PRINT FNCEN$("Your turn. Press <C> to continue.",40)
285 A$=INKEY$:IF A$="" GOTO 285
290 IF A$="C" OR A$="c" GOTO 300
295 GOTO 275
300 GOSUB 30000 '***Textpad***
305 PRINT FNCEN$("The next folds are called POCKET FOLDs,",40)
310 FOR K=1 TO 1500:NEXT K
315 GOSUB 30000 '***Textpad***
320 PRINT FNCEN$("and here's why.",40)
325 FOR K=1 TO 750:NEXT K
330 LINE(105,95)-(95,140)
335 LINE-(105,140)
340 FOR K=1 TO 250:NEXT K
345 GOSUB 30000 '***Textpad***
350 PRINT FNCEN$("Lo! a pocket!",40)
355 FOR K=1 TO 750:NEXT K
360 FOR K=1 TO 15
365 PSET(85,142):DRAW"H5 D4 L7 D2 R7 D4 E5" 'ARROW RIGHT
370 PAINT(79,142)
375 FOR M=1 TO 25:NEXT M
380 CIRCLE(79,142),7,0
385 PAINT(79,142),0
390 NEXT K
395 FOR K=1 TO 750:NEXT K
400 GOSUB 30000 '***Textpad***
405 PRINT FNCEN$("Into this pocket goes this corner",40)
410 FOR K=1 TO 750:NEXT K
415 FOR K=1 TO 15
420 PSET(105,90):DRAW"E5 L4 U7 L2 D7 L4 F5" 'ARROW DOWN
425 PAINT(105,84)
430 FOR M=1 TO 25:NEXT M
435 CIRCLE(105,84),7,0
440 PAINT(105,84),0
445 NEXT K
450 FOR K=1 TO 500:NEXT K
455 GOSUB 30000 '***Textpad***
460 PRINT FNCEN$("down to this center point",40)
465 FOR K=1 TO 750:NEXT K
470 FOR K=1 TO 15
475 PSET(160,150):DRAW"G5 R4 D7 R2 U7 R4 H5" 'ARROW UP
480 PAINT(160,156)
485 FOR M=1 TO 25:NEXT M
490 CIRCLE(160,156),7,0
495 PAINT(160,156),0
500 NEXT K
505 FOR K=1 TO 500:NEXT K
510 GOSUB 30000 '***Textpad***
515 PRINT FNCEN$("THUS!",40)
520 FOR K=1 TO 750:NEXT K
525 CIRCLE(105,84),7,0
530 PAINT(105,84),0
535 CIRCLE(215,84),7,0
540 PAINT(215,85),0
545 CIRCLE(79,142),7,0
550 PAINT(79,142),0
555 CIRCLE(160,156),7,0
560 PAINT(160,156),0
565 CIRCLE(231,142),7,0
570 PAINT(231,142),0
575 LINE(215,95)-(205,140),3
580 LINE-(105,140),3
585 LINE(95,95)-(104,145),0,BF
590 FOR Q=0 TO 50
595 LINE(160,95)-(105+0.54*Q,95+0.5*Q),0
600 LINE-(105,145),0
605 LINE(160,95)-(105,95+Q),0
610 NEXT Q
615 FOR Q=0 TO 55
620 LINE(160,95)-(105+Q,145),1
625 LINE(160,95)-(105+Q,145),3
630 NEXT Q
635 LINE(160,95)-(160,145),1
640 LINE(160,95)-(100,140)
645 LINE-(110,140)
650 PAINT(110,135),3
655 PAINT(145,107),3
660 LINE(160,95)-(104,145),0
665 GOSUB 30000 '***Textpad***
670 PRINT FNCEN$("and repeat on the other side.",40)
675 FOR K=1 TO 1500:NEXT K
680 FOR Q=0 TO 50
685 LINE(160,95)-(215-0.54*Q,95+0.5*Q),0
690 LINE-(215,145),0
695 LINE(160,95)-(215,95+Q),0
700 NEXT Q
705 FOR Q=0 TO 55
710 LINE(160,95)-(215-Q,145),1
715 LINE(160,95)-(215-Q,145),3
720 NEXT Q
725 LINE(160,95)-(160,145),1
730 LINE(160,95)-(220,140)
735 LINE-(200,140)
740 PAINT(203,130),3
745 LINE(160,95)-(216,145),0
750 GOSUB 30000 '***Textpad***
755 PRINT FNCEN$("Would you like to see those folds again?",40)
760 FOR K=1 TO 1500:NEXT K
765 GOSUB 30000 '*** Textpad ***
770 PRINT FNCEN$("If so, press <R>.",40)
775 FOR K=1 TO 1000:NEXT K
780 PRINT FNCEN$("If not, press <C> to continue.",40)
785 A$=INKEY$:IF A$="" GOTO 785
790 IF A$="r" OR A$="R" GOTO 805
795 IF A$="c" OR A$="C" GOTO 875
800 GOTO 765
805 GOSUB 30000 '** Textpad **
810 PRINT FNCEN$("* Review *",40)
815 FOR K=1 TO 1500:NEXT K
820 FOR A=0 TO 20
825 OUT 66,A:OUT 66,A
830 OUT 97,(INP(97) OR 3)
835 NEXT A
840 SOUND 37,0
845 CLS
850 LINE(105,95)-(215,145),3,BF
855 LINE(105,145)-(160,95),0
860 LINE-(215,145),0
865 FOR K=1 TO 750:NEXT K
870 GOTO 300
875 GOSUB 30000 '** Textpad **
880 PRINT FNCEN$("One moment, please,",40)
885 FOR K=1 TO 750:NEXT K
890 PRINT FNCEN$("while I change scale.",40)
895 FOR K=1 TO 1500:NEXT K
900 FOR A=0 TO 20
905 OUT 66,A:OUT 66,A
910 OUT 97,(INP(97) OR 3)
915 NEXT A
920 SOUND 37,0
925 CLS
930 LINE(160,45)-(45,140)
935 LINE-(55,140)
940 LINE-(50,145)
945 LINE-(270,145)
950 LINE-(265,140)
955 LINE-(275,140)
960 LINE-(160,45)
965 PAINT(160,100),3
970 LINE(160,45)-(49,145),0
975 LINE(160,45)-(271,145),0
980 LINE(160,45)-(160,145),1
985 FOR K=1 TO 500:NEXT K
990 GOSUB 30000 '***Textpad***
995 PRINT FNCEN$("There! That's better!",40)
1000 FOR K=1 TO 1500:NEXT K
1005 GOSUB 30000 '***Textpad***
1010 PRINT FNCEN$("Now, I'll wait for your POCKET FOLDs.",40)
1015 FOR K=1 TO 1500:NEXT K
1020 GOSUB 30000 '***Textpad***
1025 PRINT FNCEN$("Press <C> to continue.",40)
1030 A$=INKEY$:IF A$="" GOTO 1030
1035 IF A$="C" OR A$="c" GOTO 1045
1040 GOTO 1020
1045 GOSUB 30000 '***Textpad***
1050 FOR H=0 TO 10
1055 LINE(160,45)-(45+H,140),0
1060 LINE(160,45)-(275-H,140),0
1065 NEXT H
1070 LINE(50,145)-(160,45),3
1075 LINE-(270,145),3
1080 GOSUB 30000 '***Textpad***
1085 PRINT FNCEN$("We next take these corners",40)
1090 FOR K=1 TO 750:NEXT K
1095 FOR K=1 TO 15
1100 PSET(50,150):DRAW"G5R4D7R2U7R4H5"
1105 PAINT(50,156)
1110 PSET(270,150):DRAW"G5R4D7R2U7R4H5"
1115 PAINT(270,156)
1120 CIRCLE(50,156),7,0
1125 PAINT(50,156),0
1130 CIRCLE(270,156),7,0
1135 PAINT(270,156),0
1140 NEXT K
1145 FOR K=1 TO 500:NEXT K
1150 GOSUB 30000 '***Textpad***
1155 PRINT FNCEN$("up to here",40)
1160 FOR K=1 TO 750:NEXT K
1165 '*** arrow down ***
1170 FOR K=1 TO 15
1175 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
1180 PAINT(160,34)
1185 FOR M=1 TO 25:NEXT M
1190 CIRCLE(160,34),7,0
1195 PAINT(160,34),0
1200 NEXT K
1205 '***end arrow down ***
1210 FOR K=1 TO 500:NEXT K
1215 GOSUB 30000 '***Textpad***
1220 PRINT FNCEN$("across these lines",40)
1225 FOR K=1 TO 750:NEXT K
1230 LINE(105,95)-(160,145),0
1235 LINE(215,95)-(160,145),0
1240 FOR K=1 TO 750:NEXT K
1245 GOSUB 30000 '***Textpad***
1250 PRINT FNCEN$("THUS!",40)
1255 FOR K=1 TO 750:NEXT K
1260 FOR Q=0 TO 55 'FOLD LEFT
1265 LINE(160,145)-(50+Q,145-0.9090001*Q),0
1270 LINE(160,145)-(50+Q,145-0.9090001*Q),3
1275 NEXT Q
1280 LINE(160,145)-(105,95),0
1285 FOR Q=1 TO 55 'NEXT LEFT
1290 LINE(160,145)-(105+Q,96-0.9090001*Q),0
1295 LINE(160,145)-(105+Q,96-0.9090001*Q),3
1300 LINE(160,145)-(105,95),0
1305 NEXT Q 'END LEFT
1310 LINE(160,145)-(105,95),0
1315 LINE(160,45)-(160,145),0
1320 GOSUB 30000 '***Textpad***
1325 PRINT FNCEN$("and repeat on the other side.",40)
1330 FOR K=1 TO 750:NEXT K
1335 LINE(215,95)-(160,145),0
1340 FOR K=1 TO 750:NEXT K
1345 FOR Q=0 TO 55 'FOLD RIGHT
1350 LINE(160,145)-(270-Q,145-0.9090001*Q),0
1355 LINE(160,145)-(270-Q,145-0.9090001*Q),3
1360 NEXT Q
1365 LINE(160,145)-(215,95),0
1370 LINE(160,45)-(160,145),0
1375 FOR Q=1 TO 55 'NEXT FOLD RIGHT
1380 LINE(160,145)-(215-Q,96-0.9090001*Q),0
1385 LINE(160,145)-(215-Q,96-0.9090001*Q),3
1390 LINE(160,145)-(215,95),0
1395 NEXT Q 'END RIGHT
1400 LINE(215,95)-(160,145),0
1405 LINE(160,145)-(215,95),0
1410 LINE(160,45)-(160,145),0
1415 GOSUB 30000 '*** Textpad ***
1420 PRINT FNCEN$("To review those folds, press <R>.",40)
1425 FOR K=1 TO 1000:NEXT K
1430 PRINT FNCEN$("To continue, press <C>.",40)
1435 A$=INKEY$:IF A$="" GOTO 1435
1440 IF A$="r" OR A$="R" GOTO 1455
1445 IF A$="c" OR A$="C" GOTO 1520
1450 GOTO 1415
1455 GOSUB 30000 '** Textpad **
1460 PRINT FNCEN$("* Review *",40)
1465 FOR K=1 TO 1500:NEXT K
1470 FOR A=0 TO 20
1475 OUT 66,A:OUT 66,A
1480 OUT 97,(INP(97) OR 3)
1485 NEXT A
1490 SOUND 37,0
1495 LINE(105,95)-(160,145)
1500 LINE-(215,95)
1505 LINE(160,45)-(160,145),1
1510 FOR K=1 TO 750:NEXT K
1515 GOTO 1080
1520 GOSUB 30000 '** Textpad **
1525 PRINT FNCEN$("Our next folds are to the hidden side.",40)
1530 FOR K=1 TO 1500:NEXT K
1535 FOR Q=0 TO 55 'FOLD LEFT
1540 LINE(160,145)-(50+Q,145-0.9090001*Q),0
1545 LINE(160,145)-(50+Q,146-0.9090001*Q),0
1550 NEXT Q
1555 LINE(160,145)-(105,95),0
1560 FOR Q=1 TO 55 'NEXT LEFT
1565 LINE(160,145)-(105+Q,96-0.9090001*Q),1
1570 LINE(160,145)-(105+Q,96-0.9090001*Q),3
1575 NEXT Q 'END LEFT
1580 LINE(160,45)-(160,145),0
1585 FOR K=1 TO 750:NEXT K
1590 FOR Q=0 TO 55 'FOLD RIGHT
1595 LINE(160,145)-(270-Q,145-0.9090001*Q),0
1600 LINE(160,145)-(270-Q,146-0.9090001*Q),0
1605 NEXT Q
1610 FOR Q=1 TO 55 'NEXT FOLD RIGHT
1615 LINE(160,145)-(215-Q,96-0.9090001*Q),1
1620 LINE(160,145)-(215-Q,96-0.9090001*Q),3
1625 NEXT Q 'END RIGHT
1630 LINE(160,45)-(160,145),0
1635 FOR K=1 TO 750:NEXT K
1640 GOSUB 30000 '*** Textpad ***
1645 PRINT FNCEN$("Press <C> to continue.",40)
1650 A$=INKEY$:IF A$="" GOTO 1650
1655 IF A$="C" OR A$="c" GOTO 1665
1660 GOTO 1640
1665 GOSUB 30000 '***Textpad***
1670 PRINT FNCEN$("Next, we fold these corners",40)
1675 FOR K=1 TO 750:NEXT K
1680 LINE(105,95)-(110,100)
1685 LINE(110,90)-(110,100),0
1690 LINE-(115,95),0
1695 LINE-(110,90),0
1700 LINE(215,95)-(210,100)
1705 LINE(210,90)-(210,100),0
1710 LINE-(205,95),0
1715 LINE-(210,90),0
1720 FOR K=1 TO 750:NEXT K
1725 FOR K=1 TO 15
1730 PSET(222,95):DRAW"E5D4R7D2L7D4H5"
1735 PAINT(228,95)
1740 PSET(98,95):DRAW"H5D4L7D2R7D4E5"
1745 PAINT(92,95)
1750 CIRCLE(228,95),7,0
1755 PAINT(228,95),0
1760 CIRCLE(92,95),7,0
1765 PAINT(92,95),0
1770 NEXT K
1775 FOR K=1 TO 750:NEXT K
1780 LINE(110,90)-(110,100)
1785 LINE-(115,95)
1790 LINE-(110,90)
1795 LINE(105,95)-(110,100),0
1800 LINE(210,90)-(210,100)
1805 LINE-(205,95)
1810 LINE-(210,90)
1815 LINE(215,95)-(210,100),0
1820 GOSUB 30000 '***Textpad***
1825 PRINT FNCEN$("over to this point",40)
1830 FOR K=1 TO 750:NEXT K
1835 '*** flashdot ***
1840 'down to this point
1845 '
1850 FOR K=1 TO 15
1855 CIRCLE(160,95),5,3
1860 LINE(158,95)-(162,95),0
1865 LINE(160,93)-(160,97),0
1870 FOR M=1 TO 25:NEXT M
1875 CIRCLE(160,95),5,0
1880 LINE(158,95)-(162,95),3
1885 LINE(160,93)-(160,97),3
1890 NEXT K
1895 CIRCLE(160,95),5,3
1900 PSET(160,95),3
1905 '*** end flashdot ***
1910 LINE(160,85)-(160,105),0
1915 FOR K=1 TO 750:NEXT K
1920 GOSUB 30000 '***Textpad***
1925 PRINT FNCEN$("over these lines,",40)
1930 FOR K=1 TO 750:NEXT K
1935 FOR V=70 TO 120 STEP 2
1940 PSET(133,V),0
1945 NEXT V
1950 FOR V=70 TO 120 STEP 2
1955 PSET(187,V),0
1960 NEXT V
1965 FOR K=1 TO 750:NEXT K
1970 GOSUB 30000 '***Textpad***
1975 PRINT FNCEN$("THUS!",40)
1980 FOR K=1 TO 750:NEXT K
1985 LINE(110,100)-(132,120)
1990 FOR H=105 TO 133 'FOLD LEFT
1995 LINE(133,70)-(H,95),0
2000 LINE-(133,120),0
2005 LINE(133,70)-(H,95),3
2010 LINE-(133,120),3
2015 FOR M=1 TO 25:NEXT M
2020 NEXT H
2025 LINE(133,70)-(133,120),0
2030 FOR H=146 TO 160
2035 LINE(133,70)-(H,95),0
2040 LINE-(133,120),0
2045 LINE(133,70)-(H,95),3
2050 LINE-(133,120),3
2055 FOR M=1 TO 25:NEXT M
2060 NEXT H
2065 LINE(133,70)-(160,95),0
2070 LINE-(133,120),0
2075 FOR K=1 TO 750:NEXT K
2080 GOSUB 30000 '***Textpad***
2085 PRINT FNCEN$("and repeat on the other side.",40)
2090 FOR K=1 TO 750:NEXT K
2095 LINE(210,100)-(188,120)
2100 FOR H=215 TO 187 STEP -1 'FOLD RT
2105 LINE(187,70)-(H,95),0
2110 LINE-(187,120),0
2115 LINE(187,70)-(H,95),3
2120 LINE-(187,120),3
2125 FOR M=1 TO 25:NEXT M
2130 NEXT H
2135 LINE(187,70)-(187,120),0
2140 FOR H=174 TO 160 STEP -1
2145 LINE(187,70)-(H,95),0
2150 LINE-(187,120),0
2155 LINE(187,70)-(H,95),3
2160 LINE-(187,120),3
2165 FOR M=1 TO 25:NEXT M
2170 NEXT H
2175 LINE(187,70)-(160,95),0
2180 LINE-(187,120),0
2185 FOR K=1 TO 750:NEXT K
2190 GOSUB 30000 '*** Textpad ***
2195 PRINT FNCEN$("To see those folds again, press <R>.",40)
2200 FOR K=1 TO 1000:NEXT K
2205 PRINT FNCEN$("To continue, press <C>.",40)
2210 A$=INKEY$:IF A$="" GOTO 2210
2215 IF A$="r" OR A$="R" GOTO 2230
2220 IF A$="c" OR A$="C" GOTO 2315
2225 GOTO 2190
2230 GOSUB 30000 '** Textpad **
2235 PRINT FNCEN$("* Review *",40)
2240 FOR K=1 TO 250:NEXT K
2245 FOR A=0 TO 20
2250 OUT 66,A:OUT 66,A
2255 OUT 97,(INP(97) OR 3)
2260 NEXT A
2265 SOUND 37,0
2270 LINE(133,70)-(187,120)
2275 LINE-(187,70)
2280 LINE-(133,120)
2285 LINE-(133,70)
2290 LINE(160,45)-(160,145),0
2295 LINE(105,95)-(160,145)
2300 LINE-(215,95)
2305 FOR K=1 TO 750:NEXT K
2310 GOTO 1665
2315 GOSUB 30000 '***Textpad***
2320 PRINT FNCEN$("We repeat for the hidden side.",40)
2325 FOR K=1 TO 750:NEXT K
2330 LINE(132,70)-(110,90),0
2335 LINE(110,100)-(132,120),0
2340 FOR H=105 TO 133 'FOLD LEFT
2345 LINE(133,70)-(H,95),0
2350 LINE-(133,120),0
2355 FOR M=1 TO 25:NEXT M
2360 NEXT H
2365 LINE(133,70)-(133,120),0
2370 FOR H=146 TO 160
2375 LINE(133,70)-(H,95),1
2380 LINE-(133,120),1
2385 LINE(133,70)-(H,95),3
2390 LINE-(133,120),3
2395 FOR M=1 TO 25:NEXT M
2400 NEXT H
2405 LINE(133,70)-(160,95),0
2410 LINE-(133,120),0
2415 FOR K=1 TO 750:NEXT K
2420 FOR K=1 TO 750:NEXT K
2425 LINE(188,70)-(210,90),0
2430 LINE(210,100)-(188,120),0
2435 FOR H=215 TO 187 STEP -1 'FOLD RT
2440 LINE(187,70)-(H,95),0
2445 LINE-(187,120),0
2450 FOR M=1 TO 25:NEXT M
2455 NEXT H
2460 LINE(187,70)-(187,120),0
2465 FOR H=174 TO 160 STEP -1
2470 LINE(187,70)-(H,95),1
2475 LINE-(187,120),1
2480 LINE(187,70)-(H,95),3
2485 LINE-(187,120),3
2490 FOR M=1 TO 25:NEXT M
2495 NEXT H
2500 LINE(187,70)-(160,95),0
2505 LINE-(187,120),0
2510 GOSUB 30000 '*** Textpad ***
2515 PRINT FNCEN$("Press <C> to continue.",40)
2520 A$=INKEY$:IF A$="" GOTO 2520
2525 IF A$="C" OR A$="c" GOTO 2535
2530 GOTO 2510
2535 GOSUB 30000 '***Textpad***
2540 PRINT FNCEN$("Next, these two corners",40)
2545 FOR K=1 TO 750:NEXT K
2550 '*** arrow down ***
2555 FOR K=1 TO 15
2560 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
2565 PAINT(160,34)
2570 FOR M=1 TO 25:NEXT M
2575 CIRCLE(160,34),7,0
2580 PAINT(160,34),0
2585 NEXT K
2590 '***end arrow down ***
2595 LINE(160,55)-(165,50),0
2600 LINE-(165,55),0
2605 LINE-(160,55),0
2610 FOR K=1 TO 250:NEXT K
2615 LINE(160,55)-(155,50),0
2620 LINE-(155,55),0
2625 LINE-(160,55),0
2630 FOR K=1 TO 750:NEXT K
2635 GOSUB 30000 '***Textpad***
2640 PRINT FNCEN$("fold down to this point",40)
2645 FOR K=1 TO 750:NEXT K
2650 '*** flashdot ***
2655 FOR K=1 TO 15
2660 CIRCLE(160,95),5,0
2665 LINE(158,95)-(162,95),0
2670 LINE(160,93)-(160,97),0
2675 FOR M=1 TO 25:NEXT M
2680 CIRCLE(160,95),5,3
2685 LINE(158,95)-(162,95),3
2690 LINE(160,93)-(160,97),3
2695 NEXT K
2700 CIRCLE(160,95),5,3
2705 PSET(160,95),3
2710 '*** end flashdot ***
2715 LINE(133,70)-(160,95),0
2720 LINE-(133,120),0
2725 LINE(187,70)-(160,95),0
2730 LINE-(187,120),0
2735 LINE(160,90)-(160,110),0
2740 FOR K=1 TO 250:NEXT K
2745 GOSUB 30000 '***Textpad***
2750 PRINT FNCEN$("over this line",40)
2755 FOR K=1 TO 750:NEXT K
2760 FOR H=133 TO 187 STEP 2
2765 PSET(H,70),0
2770 NEXT H
2775 FOR K=1 TO 250:NEXT K
2780 GOSUB 30000 '***Textpad***
2785 PRINT FNCEN$("SO!",40)
2790 FOR K=1 TO 750:NEXT K
2795 LINE(160,55)-(165,50),3
2800 LINE-(165,55),3
2805 LINE-(160,55),3
2810 LINE(160,55)-(155,50),3
2815 LINE-(155,55),3
2820 LINE-(160,55),3
2825 PSET(160,55),0
2830 FOR V=46 TO 70 'right flap
2835 LINE(161,V)-(186,70),0
2840 LINE(161,V+1)-(186,70),0
2845 LINE(161,V)-(186,70),3
2850 FOR M=1 TO 75:NEXT M
2855 NEXT V
2860 FOR V=75 TO 94
2865 LINE(161,V)-(186,70),0
2870 LINE(161,V+1)-(186,70),0
2875 LINE(161,V)-(186,70),3
2880 LINE(161,71)-(180,71),3
2885 LINE(187,70)-(160,70),0
2890 FOR M=1 TO 75:NEXT M
2895 NEXT V 'end right flap
2900 LINE(187,70)-(160,70),0
2905 LINE(161,81)-(170,95),3,BF
2910 LINE(187,70)-(160,95),0
2915 FOR V=46 TO 70 'left flap
2920 LINE(160,V)-(134,70),0
2925 LINE(160,V+1)-(134,70),0
2930 LINE(160,V)-(134,70),3
2935 FOR M=1 TO 75:NEXT M
2940 NEXT V
2945 FOR V=75 TO 94
2950 LINE(159,V)-(134,70),0
2955 LINE(159,V+1)-(134,70),0
2960 LINE(159,V)-(134,70),3
2965 LINE(140,71)-(159,71),3
2970 LINE(133,70)-(160,70),0
2975 FOR M=1 TO 75:NEXT M
2980 NEXT V 'end left flap
2985 LINE(133,70)-(160,70),0
2990 LINE(150,81)-(159,95),3,BF
2995 LINE(133,70)-(160,95),0
3000 GOSUB 30000 '*** Textpad ***
3005 PRINT FNCEN$("To see those folds again, press <R>.",40)
3010 FOR K=1 TO 1000:NEXT K
3015 PRINT FNCEN$("To continue, press <C>.",40)
3020 A$=INKEY$:IF A$="" GOTO 3020
3025 IF A$="r" OR A$="R" GOTO 3040
3030 IF A$="c" OR A$="C" GOTO 3095
3035 GOTO 3000
3040 GOSUB 30000 '** Textpad **
3045 PRINT FNCEN$("* Review *",40)
3050 FOR K=1 TO 250:NEXT K
3055 FOR A=0 TO 20
3060 OUT 66,A:OUT 66,A
3065 OUT 97,(INP(97) OR 3)
3070 NEXT A
3075 SOUND 37,0
3080 LINE(133,70)-(187,70)
3085 LINE(160,45)-(160,70),0
3090 GOTO 2535
3095 GOSUB 30000 '*** Textpad ***
3100 PRINT FNCEN$("The next folds require nimble fingers",40)
3105 FOR K=1 TO 1500:NEXT K
3110 GOSUB 30000 '*** Textpad ***
3115 PRINT FNCEN$("and a bit of patience.",40)
3120 FOR K=1 TO 1500:NEXT K
3125 GOSUB 30000 '*** Textpad ***
3130 PRINT FNCEN$("These flaps",40)
3135 FOR K=1 TO 750:NEXT K
3140 LINE(161,70)-(164,70),3
3145 LINE(165,70)-(160,75),0
3150 LINE-(165,75),0
3155 LINE-(165,70),0
3160 FOR K=1 TO 1000:NEXT K
3165 LINE(165,70)-(160,75),3
3170 LINE-(165,75),3
3175 LINE-(165,70),3
3180 LINE(160,70)-(160,95),0
3185 LINE(160,70)-(165,70),0
3190 LINE(159,70)-(155,70),3
3195 LINE(155,70)-(160,75),0
3200 LINE-(155,75),0
3205 LINE-(155,70),0
3210 FOR K=1 TO 1000:NEXT K
3215 LINE(155,70)-(160,75),3
3220 LINE-(155,75),3
3225 LINE-(155,70),3
3230 LINE(159,70)-(155,70),0
3235 LINE(160,70)-(160,95),0
3240 FOR K=1 TO 250:NEXT K
3245 PRINT FNCEN$("get tucked into these pockets,",40)
3250 FOR K=1 TO 1500:NEXT K
3255 LINE(187,70)-(160,95),3
3260 LINE (186,69)-(160,95)
3265 LINE(187,70)-(170,82),0 'rt pocket
3270 LINE-(160,95),0
3275 LINE-(174,85),0
3280 LINE-(187,70),0
3285 LINE(133,70)-(160,95),3 'eraseln
3290 LINE(134,69)-(160,95)
3295 LINE(133,70)-(150,82),0 'lftpock
3300 LINE-(160,95),0
3305 LINE-(146,85),0
3310 LINE-(133,70),0
3315 FOR K=1 TO 1500:NEXT K
3320 GOSUB 30000 '*** Textpad ***
3325 PRINT FNCEN$("SO!",40)
3330 FOR K=1 TO 750:NEXT K
3335 FOR Q=0 TO 13
3340 LINE(187,70)-(161+Q,70+Q),0
3345 LINE-(161,95),0
3350 LINE(187,70)-(161+Q,70+Q),3
3355 LINE-(161,95),3
3360 FOR M=1 TO 125:NEXT M
3365 NEXT Q
3370 LINE(187,70)-(170,82),3
3375 LINE-(160,95),3
3380 LINE-(174,85),3
3385 LINE-(187,70),3
3390 PSET(187,71),0
3395 LINE(186,69)-(160,95),0
3400 FOR Q=0 TO 12
3405 LINE(186,70)-(174+Q,83+Q),1
3410 LINE-(161,95),1
3415 LINE(186,70)-(174+Q,82+Q),1
3420 LINE-(161,95),1
3425 LINE(186,70)-(174+Q,82+Q)
3430 LINE-(161,95)
3435 LINE(186,70)-(174+Q,81+Q)
3440 LINE-(161,95)
3445 LINE(186,69)-(160,95),0
3450 FOR M=1 TO 125:NEXT M
3455 NEXT Q
3460 LINE(186,69)-(186,95),1
3465 LINE-(161,95),1
3470 FOR K=1 TO 500:NEXT K
3475 FOR Q=0 TO 13
3480 LINE(133,70)-(160-Q,70+Q),0
3485 LINE-(160,95),0
3490 LINE(133,70)-(160-Q,70+Q),3
3495 LINE-(160,95),3
3500 FOR M=1 TO 125:NEXT M
3505 NEXT Q
3510 LINE(133,70)-(150,82),3
3515 LINE-(160,95),3
3520 LINE-(146,85),3
3525 LINE-(133,70),3
3530 LINE(134,69)-(160,95),0
3535 PSET(133,71),0
3540 FOR Q=0 TO 12
3545 LINE(134,70)-(146-Q,83+Q),1
3550 LINE-(159,95),1
3555 LINE(134,70)-(146-Q,82+Q),1
3560 LINE-(159,95),1
3565 LINE(134,70)-(146-Q,82+Q)
3570 LINE-(159,95)
3575 LINE(134,70)-(146-Q,81+Q)
3580 LINE-(159,95)
3585 LINE(134,69)-(160,95),0
3590 FOR M=1 TO 125:NEXT M
3595 NEXT Q
3600 LINE(134,69)-(134,95),1
3605 LINE-(159,95),1
3610 FOR K=1 TO 1500:NEXT K
3615 LINE(134,69)-(134,95)
3620 LINE-(159,95)
3625 LINE(186,69)-(186,95)
3630 LINE-(161,95)
3635 PSET(133,70),0:PSET(134,69),0:PSET(187,70),0:PSET(186,69),0
3640 GOSUB 30000 '*** Textpad ***
3645 PRINT FNCEN$("To see those tucks again, press <R>.",40)
3650 FOR K=1 TO 1000:NEXT K
3655 PRINT FNCEN$("To continue, press <C>.",40)
3660 A$=INKEY$:IF A$="" GOTO 3660
3665 IF A$="r" OR A$="R" GOTO 3680
3670 IF A$="c" OR A$="C" GOTO 3735
3675 GOTO 3640
3680 GOSUB 30000 '** Textpad **
3685 PRINT FNCEN$("* Review *",40)
3690 FOR K=1 TO 250:NEXT K
3695 FOR A=0 TO 20
3700 OUT 66,A:OUT 66,A
3705 OUT 97,(INP(97) OR 3)
3710 NEXT A
3715 SOUND 37,0
3720 LINE(133,70)-(187,70),0
3725 LINE(160,70)-(160,95),0
3730 GOTO 3095
3735 GOSUB 30000 '*** Textpad ***
3740 PRINT FNCEN$("We repeat those tucks on the back side.",40)
3745 FOR K=1 TO 1500:NEXT K
3750 GOSUB 30000 '*** Textpad ***
3755 PRINT FNCEN$("Go ahead. I'll wait.",40)
3760 FOR K=1 TO 1500:NEXT K
3765 GOSUB 30000 '*** Textpad ***
3770 PRINT FNCEN$("Press <C> to continue.",40)
3775 A$=INKEY$:IF A$="" GOTO 3775
3780 IF A$="C" OR A$="c" GOTO 3790
3785 GOTO 3765
3790 GOSUB 30000 '*** Textpad ***
3795 PRINT FNCEN$("Next, we fold and backfold this corner",40)
3800 FOR K=1 TO 1500:NEXT K
3805 FOR K=1 TO 15
3810 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
3815 PAINT(160,34),3
3820 FOR M=1 TO 25:NEXT M
3825 CIRCLE(160,34),7,0
3830 PAINT(160,34),0
3835 NEXT K
3840 '***end arrow down ***
3845 FOR K=1 TO 750:NEXT K
3850 GOSUB 30000 '*** Textpad ***
3855 PRINT FNCEN$("down to this point",40)
3860 FOR K=1 TO 750:NEXT K
3865 '*** flashdot ***
3870 FOR K=1 TO 15
3875 CIRCLE(160,95),5,0
3880 LINE(158,95)-(162,95),0
3885 LINE(160,93)-(160,97),0
3890 FOR M=1 TO 25:NEXT M
3895 CIRCLE(160,95),5,3
3900 LINE(158,95)-(162,95),3
3905 LINE(160,93)-(160,97),3
3910 NEXT K
3915 CIRCLE(160,95),5,3
3920 PSET(160,95),3
3925 PSET(157,92),0:PSET(163,92),0
3930 PSET(157,98),0:PSET(163,98),0
3935 LINE(160,95)-(160,110),0
3940 FOR K=1 TO 250:NEXT K
3945 GOSUB 30000 '*** Textpad ***
3950 PRINT FNCEN$("across this line",40)
3955 FOR K=1 TO 750:NEXT K
3960 FOR H=134 TO 186 STEP 2
3965 PSET(H,70),0
3970 NEXT H
3975 FOR K=1 TO 250:NEXT K
3980 GOSUB 30000 '*** Textpad ***
3985 PRINT FNCEN$("SO!",40)
3990 FOR K=1 TO 750:NEXT K
3995 LINE(139,64)-(135,68),0
4000 LINE(181,64)-(185,68),0
4005 FOR V=45 TO 70
4010 LINE(134,70)-(160,V),0
4015 LINE-(186,70),0
4020 LINE(154,50)-(140,63),0
4025 LINE(166,50)-(180,63),0
4030 FOR M=1 TO 25:NEXT M
4035 NEXT V
4040 FOR V= 70 TO 95
4045 LINE(134,70)-(160,V),0
4050 LINE-(186,70),0
4055 LINE(134,70)-(160,V),3
4060 LINE-(186,70),3
4065 FOR M=1 TO 25:NEXT M
4070 NEXT V
4075 LINE(134,70)-(160,95),0
4080 LINE-(186,70),0
4085 FOR K=1 TO 750:NEXT K
4090 GOSUB 30000 '*** Textpad ***
4095 PRINT FNCEN$("and back we go up again!",40)
4100 FOR K=1 TO 750:NEXT K
4105 FOR V=94 TO 70 STEP -1
4110 LINE(134,70)-(160,V),0
4115 LINE-(186,70),0
4120 LINE(134,70)-(160,V),3
4125 LINE-(186,70),3
4130 LINE(134,70)-(160,95),0
4135 LINE-(186,70),0
4140 FOR M=1 TO 25:NEXT M
4145 NEXT V
4150 FOR V=70 TO 45 STEP -1
4155 LINE(134,70)-(160,V)
4160 LINE-(186,70)
4165 FOR H=134 TO 186 STEP 2
4170 PSET(H,70),0
4175 NEXT H
4180 NEXT V
4185 GOSUB 30000 '*** Textpad ***
4190 PRINT FNCEN$("Your turn to fold and backfold.",40)
4195 FOR K=1 TO 1500:NEXT K
4200 PRINT FNCEN$("Press <C> to continue.",40)
4205 A$=INKEY$:IF A$="" GOTO 4205
4210 IF A$="c" OR A$="C" GOTO 4220
4215 GOTO 4185
4220 GOSUB 30000 '*** Textpad ***
4225 PRINT FNCEN$("We repeat with this corner.",40)
4230 FOR K=1 TO 750:NEXT K
4235 '*** arrow up ***
4240 FOR K=1 TO 15
4245 PSET(160,153):DRAW"G5R4D7R2U7R4H5"
4250 PAINT(160,159)
4255 FOR M=1 TO 25:NEXT M
4260 CIRCLE(160,159),7,0
4265 PAINT(160,159),0
4270 NEXT K
4275 FOR K=1 TO 750:NEXT K
4280 FOR H=134 TO 186 STEP 2
4285 PSET(H,120),0
4290 NEXT H
4295 FOR K=1 TO 750:NEXT K
4300 GOSUB 30000 '*** Textpad ***
4305 PRINT FNCEN$("SO!",40)
4310 FOR K=1 TO 750:NEXT K
4315 FOR V= 145 TO 120 STEP -1
4320 LINE(134,120)-(160,V),0
4325 LINE-(186,120),0
4330 LINE(134,121)-(154,140),0
4335 LINE(186,121)-(166,140),0
4340 FOR M=1 TO 25:NEXT M
4345 NEXT V
4350 FOR V=120 TO 95 STEP -1
4355 LINE(134,120)-(160,V),0
4360 LINE-(186,120),0
4365 LINE(134,120)-(160,V),3
4370 LINE-(186,120),3
4375 FOR M=1 TO 25:NEXT M
4380 PSET(160,V),0
4385 LINE(134,119)-(160,95),0
4390 LINE-(186,119),0
4395 NEXT V
4400 FOR K=1 TO 750:NEXT K
4405 GOSUB 30000 '*** Textpad ***
4410 PRINT FNCEN$("and back down again!",40)
4415 FOR K=1 TO 750:NEXT K
4420 FOR V=95 TO 145
4425 LINE(134,120)-(160,V),0
4430 LINE-(186,120),0
4435 LINE(134,120)-(160,V),3
4440 LINE-(186,120),3
4445 LINE(134,119)-(160,95),0
4450 LINE-(186,119),0
4455 PSET(160,V),0
4460 FOR H=134 TO 186 STEP 2
4465 PSET(H,121),0
4470 NEXT H
4475 NEXT V
4480 FOR K=1 TO 750:NEXT K
4485 GOSUB 30000 '*** Textpad ***
4490 PRINT FNCEN$("Press <C> to continue.",40)
4495 A$=INKEY$:IF A$="" GOTO 4495
4500 GOSUB 30000 '*** Textpad ***
4505 IF A$="C" OR A$="c" GOTO 4515
4510 GOTO 4485
4515 GOSUB 30000 '** Textpad **
4520 PRINT FNCEN$("You'll find a little hole here",40)
4525 FOR K=1 TO 750:NEXT K
4530 FOR K=1 TO 15
4535 PSET(160,153):DRAW"G5R4D7R2U7R4H5"
4540 PAINT(160,159)
4545 FOR M=1 TO 25:NEXT M
4550 CIRCLE(160,159),7,0
4555 PAINT(160,159),0
4560 NEXT K
4565 FOR K=1 TO 750:NEXT K
4570 PRINT FNCEN$("that you'll be blowing air into",40)
4575 FOR K=1 TO 1500:NEXT K
4580 PRINT FNCEN$("to inflate BALLOON.",40)
4585 FOR K=1 TO 1500:NEXT K
4590 GOSUB 30000 '*** Textpad ***
4595 PRINT FNCEN$("But first, I'll show you",40)
4600 FOR K=1 TO 1500:NEXT K
4605 PRINT FNCEN$("how to hold BALLOON",40)
4610 FOR K=1 TO 1500:NEXT K
4615 PRINT FNCEN$("as you blow.",40)
4620 FOR K=1 TO 1500:NEXT K
4625 GOSUB 30000 '*** Textpad ***
4630 PRINT FNCEN$("One moment, please.",40)
4635 FOR K=1 TO 750:NEXT K
4640 '***Zapsound***
4645 FOR A=0 TO 20
4650 OUT 66,A:OUT 66,A
4655 OUT 97,(INP(97) OR 3)
4660 NEXT A
4665 SOUND 37,0
4670 CLS
4675 FOR K=1 TO 250:NEXT K
4680 '***End Zapsound***
4685 LINE(160,95)-(120,105)
4690 LINE-(160,100)
4695 LINE-(200,105)
4700 LINE-(120,85)
4705 LINE-(160,90)
4710 LINE-(200,85)
4715 LINE-(160,95)
4720 PAINT(160,92),3
4725 PAINT(160,97),3
4730 LINE(120,85)-(160,92),0
4735 LINE-(200,85),0
4740 LINE(120,105)-(160,98),0
4745 LINE-(200,105),0
4750 CIRCLE(160,95),3,0
4755 PAINT(160,95),0
4760 FOR K=1 TO 250:NEXT K
4765 GOSUB 30000 '*** Textpad ***
4770 PRINT FNCEN$("Here's the hole you'll be blowing into.",40)
4775 FOR K=1 TO 750:NEXT K
4780 FOR K=1 TO 15
4785 CIRCLE(160,95),3,3
4790 PAINT(160,95),3
4795 FOR M=1 TO 25:NEXT M
4800 CIRCLE(160,95),3,0
4805 PAINT(160,95),0
4810 NEXT K
4815 GOSUB 30000 '*** Textpad ***
4820 PRINT FNCEN$("And here's the way to hold BALLOON.",40)
4825 FOR K=1 TO 1500:NEXT K
4830 GOSUB 30000 '*** Textpad ***
4835 PRINT FNCEN$("Your thumbs go here,",40)
4840 FOR K=1 TO 500:NEXT K
4845 '*** arrow up ***
4850 PSET(130,110):DRAW"G5R4D7R2U7R4H5"
4855 PAINT(130,116)
4860 PSET(190,110):DRAW"G5R4D7R2U7R4H5"
4865 PAINT(190,116)
4870 FOR K=1 TO 1500:NEXT K
4875 CIRCLE(130,116),7,0
4880 PAINT(130,116),0
4885 CIRCLE(190,116),7,0
4890 PAINT(190,116),0
4895 '***end arrow up ***
4900 FOR K=1 TO 250:NEXT K
4905 GOSUB 30000 '*** Textpad ***
4910 PRINT FNCEN$("your pointers go here,",40)
4915 FOR K=1 TO 500:NEXT K
4920 PSET(205,95):DRAW"E5D4R7D2L7D4H5"
4925 PAINT(211,95)
4930 PSET(115,95):DRAW"H5D4L7D2R7D4E5"
4935 PAINT(109,95)
4940 FOR K=1 TO 1500:NEXT K
4945 CIRCLE(109,95),7,0
4950 PAINT(109,95),0
4955 CIRCLE(211,95),7,0
4960 PAINT(211,95),0
4965 FOR K=1 TO 250:NEXT K
4970 GOSUB 30000 '*** Textpad ***
4975 PRINT FNCEN$("and your middle fingers go here.",40)
4980 FOR K=1 TO 500:NEXT K
4985 PSET(130,80):DRAW"E5L4U7L2D7L4F5"
4990 PAINT(130,74)
4995 PSET(190,80):DRAW"E5L4U7L2D7L4F5"
5000 PAINT(190,74)
5005 FOR K=1 TO 1500:NEXT K
5010 CIRCLE(190,74),7,0
5015 PAINT(190,74),0
5020 CIRCLE(130,74),7,0
5025 PAINT(130,74),0
5030 FOR K=1 TO 250:NEXT K
5035 GOSUB 30000 '*** Textpad ***
5040 PRINT FNCEN$("Want those instructions repeated?",40)
5045 FOR K=1 TO 1000:NEXT K
5050 PRINT FNCEN$("If so, press <R>.",40)
5055 FOR K=1 TO 1000:NEXT K
5060 PRINT FNCEN$("To continue, press <C>.",40)
5065 A$=INKEY$:IF A$="" GOTO 5065
5070 IF A$="r" OR A$="R" GOTO 5085
5075 IF A$="c" OR A$="C" GOTO 5130
5080 GOTO 5035
5085 GOSUB 30000 '** Textpad **
5090 PRINT FNCEN$("* Review *",40)
5095 FOR K=1 TO 250:NEXT K
5100 FOR A=0 TO 20
5105 OUT 66,A:OUT 66,A
5110 OUT 97,(INP(97) OR 3)
5115 NEXT A
5120 SOUND 37,0
5125 GOTO 4765
5130 GOSUB 30000 '*** Textpad ***
5135 PRINT FNCEN$("BLOW!",40)
5140 FOR K=1 TO 750:NEXT K
5145 '***Zapsound***
5150 FOR A=0 TO 20
5155 OUT 66,A:OUT 66,A
5160 OUT 97,(INP(97) OR 3)
5165 NEXT A
5170 SOUND 37,0
5175 CLS
5180 FOR K=1 TO 250:NEXT K
5185 '***End Zapsound***
5190 LINE(120,135)-(120,60)
5195 LINE-(140,45)
5200 LINE-(220,45)
5205 LINE-(220,115)
5210 LINE-(200,135)
5215 LINE-(120,135)
5220 PAINT(160,98),3
5225 CIRCLE(160,98),3,0
5230 PAINT(160,98),0
5235 LINE(120,60)-(200,60),0
5240 LINE-(200,135),0
5245 LINE-(120,60),0
5250 LINE-(220,45),0
5255 LINE-(200,60),0
5260 LINE-(120,135),0
5265 LINE(140,45)-(200,60),0
5270 LINE(159,60)-(159,140),0
5275 LINE(161,60)-(161,140),0
5280 LINE(120,98)-(200,98),0
5285 LINE-(220,78),0
5290 FOR K=1 TO 750:NEXT K
5295 GOSUB 30000 '*** Textpad ***
5300 PRINT FNCEN$("Mission accomplished!",40)
5305 FOR K=1 TO 1500:NEXT K
5310 GOSUB 30000 '*** Textpad ***
5315 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
5320 PRINT FNCEN$(" <2> - To repeat BALLOON.",40)
5325 PRINT FNCEN$(" <3> - To exit from program.",40)
5330 E$=INPUT$(1)
5335 IF E$<"1" OR E$>"3" GOTO 5330
5340 SEL=VAL(E$)
5345 COMMON SEL
5350 CLS
5355 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
5356 LINE(70,75)-(250,125),3,B
5360 ON SEL GOTO 5365,5370,5375
5365 CHAIN"a:main"
5370 CHAIN"a:balloon"
5375 CHAIN"a:end"
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
BOXES.BAS
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$("TWO BOXES",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 FOR K=1 TO 2500:NEXT K
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 FOR K=1 TO 250:NEXT K
85 '***End Zapsound***
90 '*** start draw ***
95 LINE(160,30)-(80,100)
100 LINE-(160,170)
105 LINE-(240,100)
110 LINE-(160,30)
115 FOR K=1 TO 750:NEXT K
120 GOSUB 30000 '*** <Textpad> ***
125 PRINT FNCEN$("We begin with two folds",40)
130 FOR K=1 TO 1500:NEXT K
135 GOSUB 30000 '*** <Textpad> ***
140 PRINT FNCEN$("which generate these creases.",40)
145 FOR K=1 TO 750:NEXT K
150 FOR V=30 TO 170 STEP 2
155 PSET(160,V)
160 NEXT V
165 FOR K=1 TO 750:NEXT K
170 FOR H=80 TO 240 STEP 2
175 PSET(H,100)
180 NEXT H
185 FOR K=1 TO 750:NEXT K
190 GOSUB 30000 '*** <Textpad> ***
195 PRINT FNCEN$("Standard folds. Your turn. I'll wait.",40)
200 FOR K=1 TO 1500:NEXT K
205 GOSUB 30000 '*** Textpad ***
210 PRINT FNCEN$("Press <C> to continue.",40)
215 A$=INKEY$:IF A$="" GOTO 215
220 IF A$="C" OR A$="c" GOTO 230
225 GOTO 205
230 'LINE(160,31)-(160,169),0
235 'LINE(81,100)-(239,100),0
240 GOSUB 30000 '*** <Textpad> ***
245 PRINT FNCEN$("Our next folds are a set of three",40)
250 FOR K=1 TO 1500:NEXT K
255 PRINT FNCEN$("which apply to all four of our corners.",40)
260 FOR K=1 TO 1500:NEXT K
265 GOSUB 30000 '*** <Textpad> ***
270 PRINT FNCEN$("The first fold takes this corner",40)
275 FOR K=1 TO 750:NEXT K
280 FOR K=1 TO 15
285 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
290 PAINT(160,184)
295 FOR M=1 TO 25:NEXT M
300 CIRCLE(160,184),7,0
305 PAINT(160,184),0
310 NEXT K
315 FOR K=1 TO 750:NEXT K
320 GOSUB 30000 '*** <Textpad> ***
325 PRINT FNCEN$("up to this center point",40)
330 FOR K=1 TO 750:NEXT K
335 FOR K=1 TO 15
340 CIRCLE(160,100),5
345 LINE(158,100)-(162,100)
350 LINE(160,98)-(160,102)
355 FOR M=1 TO 25:NEXT M
360 CIRCLE(160,100),5,0
365 LINE(158,100)-(162,100),0
370 LINE(160,98)-(160,102),0
375 NEXT K
380 FOR V=90 TO 110 STEP 2
385 PSET(160,V)
390 NEXT V
395 FOR H=150 TO 170 STEP 2
400 PSET(H,100)
405 NEXT H
410 FOR K=1 TO 750:NEXT K
415 GOSUB 30000 '*** <Textpad> ***
420 PRINT FNCEN$("across this line,",40)
425 FOR K=1 TO 750:NEXT K
430 FOR H=120 TO 200 STEP 2
435 PSET(H,135)
440 NEXT H
445 FOR K=1 TO 750:NEXT K
450 GOSUB 30000 '*** <Textpad> ***
455 PRINT FNCEN$("SO!",40)
460 FOR K=1 TO 750:NEXT K
465 FOR V=170 TO 135 STEP -1
470 LINE(120,135)-(160,V)
475 LINE-(200,135)
480 LINE(120,135)-(160,V),0
485 LINE-(200,135),0
490 NEXT V
495 FOR V=135 TO 100 STEP -1
500 LINE(120,135)-(160,V)
505 LINE-(200,135)
510 NEXT V
515 FOR K=1 TO 750:NEXT K
520 GOSUB 30000 '*** <Textpad> ***
525 PRINT FNCEN$("and return.",40)
530 FOR K=1 TO 750:NEXT K
535 PSET(160,100)
540 FOR V=100 TO 135 STEP 2
545 LINE(120,135)-(160,V)
550 LINE-(200,135)
555 LINE(120,135)-(160,V+1),0
560 LINE-(200,135),0
565 LINE(120,135)-(160,V),0
570 LINE-(200,135),0
575 PSET(160,V)
580 NEXT V
585 FOR H=120 TO 200 STEP 2
590 PSET(H,135)
595 NEXT H
600 FOR V=140 TO 170 STEP 2
605 LINE(120,135)-(160,V)
610 LINE-(200,135)
615 LINE(120,135)-(160,V),0
620 LINE-(200,135),0
625 PSET(160,V)
630 PSET(160,136):PSET(160,138)
635 NEXT V
640 LINE(120,135)-(160,170)
645 LINE-(200,135)
650 FOR H=120 TO 200 STEP 2
655 PSET(H,135)
660 NEXT H
665 LINE-(200,135)
670 FOR K=1 TO 750:NEXT K
675 GOSUB 30000 '*** Textpad ***
680 PRINT FNCEN$("Press <C> to continue.",40)
685 A$=INKEY$:IF A$="" GOTO 685
690 IF A$="C" OR A$="c" GOTO 700
695 GOTO 675
700 GOSUB 30000 '*** <Textpad> ***
705 PRINT FNCEN$("The second fold takes this corner again",40)
710 FOR K=1 TO 750:NEXT K
715 FOR K=1 TO 15
720 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
725 PAINT(160,184)
730 FOR M=1 TO 25:NEXT M
735 CIRCLE(160,184),7,0
740 PAINT(160,184),0
745 NEXT K
750 FOR K=1 TO 750:NEXT K
755 GOSUB 30000 '*** <Textpad> ***
760 PRINT FNCEN$("this time up to this point",40)
765 FOR K=1 TO 750:NEXT K
770 FOR K=1 TO 15
775 CIRCLE(160,135),5
780 LINE(158,135)-(162,135)
785 LINE(160,133)-(160,137)
790 FOR M=1 TO 25:NEXT M
795 CIRCLE(160,135),5,0
800 LINE(158,135)-(162,135),0
805 LINE(160,133)-(160,137),0
810 NEXT K
815 FOR H=150 TO 170 STEP 2
820 PSET(H,135)
825 NEXT H
830 PSET(160,134):PSET(160,136)
835 FOR K=1 TO 750:NEXT K
840 GOSUB 30000 '*** <Textpad> ***
845 PRINT FNCEN$("across this line,",40)
850 FOR K=1 TO 750:NEXT K
855 FOR H=140 TO 180 STEP 2
860 PSET(H,153)
865 NEXT H
870 FOR K=1 TO 750:NEXT K
875 GOSUB 30000 '*** <Textpad> ***
880 PRINT FNCEN$("SO!",40)
885 FOR K=1 TO 750:NEXT K
890 FOR V=170 TO 153 STEP -1
895 LINE(140,153)-(160,V)
900 LINE-(180,153)
905 LINE(140,153)-(160,V),0
910 LINE-(180,153),0
915 NEXT V
920 FOR V=153 TO 135 STEP -1
925 LINE(140,153)-(160,V)
930 LINE-(180,153)
935 NEXT V
940 FOR K=1 TO 750:NEXT K
945 GOSUB 30000 '*** Textpad ***
950 PRINT FNCEN$("Press <C> to continue.",40)
955 A$=INKEY$:IF A$="" GOTO 955
960 IF A$="C" OR A$="c" GOTO 970
965 GOTO 945
970 GOSUB 30000 '*** <Textpad> ***
975 PRINT FNCEN$("The final fold of our set",40)
980 FOR K=1 TO 1500:NEXT K
985 GOSUB 30000 '*** <Textpad> ***
990 PRINT FNCEN$("continues our second fold on up,",40)
995 FOR K=1 TO 1500:NEXT K
1000 GOSUB 30000 '*** <Textpad> ***
1005 PRINT FNCEN$("SO!",40)
1010 FOR K=1 TO 750:NEXT K
1015 FOR V=153 TO 135 STEP -1
1020 LINE(120,135)-(140,V)
1025 LINE-(180,V)
1030 LINE-(200,135)
1035 LINE(120,135)-(140,V),0
1040 LINE-(180,V),0
1045 LINE-(200,135),0
1050 NEXT V
1055 FOR V=135 TO 118 STEP -1
1060 LINE(120,135)-(140,V)
1065 LINE-(180,V)
1070 LINE-(200,135)
1075 NEXT V
1080 FOR K=1 TO 750:NEXT K
1085 GOSUB 30000
1090 PRINT FNCEN$("To review those folds, press <R>.",40)
1095 FOR K=1 TO 1000:NEXT K
1100 PRINT FNCEN$("Press <C> to continue.",40)
1105 A$=INKEY$:IF A$="" GOTO 1105
1110 IF A$="r" OR A$="R" GOTO 1125
1115 IF A$="c" OR A$="C" GOTO 1220
1120 GOTO 1085
1125 FOR A=0 TO 20
1130 OUT 66,A:OUT 66,A
1135 OUT 97,(INP(97) OR 3)
1140 NEXT A
1145 SOUND 37,0
1150 LINE(120,135)-(140,118),0
1155 LINE-(180,118),0
1160 LINE-(200,135),0
1165 LINE-(120,135),0
1170 PAINT(160,125),0
1175 LINE(120,135)-(160,170)
1180 LINE-(200,135)
1185 FOR V=100 TO 170 STEP 2
1190 PSET(160,V)
1195 NEXT V
1200 GOSUB 30000
1205 PRINT FNCEN$("* Review *",40)
1210 FOR K=1 TO 1500:NEXT K
1215 GOTO 240
1220 GOSUB 30000 '*** <Textpad> ***
1225 PRINT FNCEN$("We now proceed to execute",40)
1230 FOR K=1 TO 1500:NEXT K
1235 PRINT FNCEN$("that set of folds on our other corners.",40)
1240 FOR K=1 TO 1500:NEXT K
1245 LINE(80,80)-(100,125),0,BF
1250 LINE(100,83)-(100,118)
1255 LINE-(120,100)
1260 LINE-(100,83)
1265 PAINT(110,99)
1270 FOR K=1 TO 750:NEXT K
1275 LINE(100,65)-(120,135),0,BF
1280 LINE(120,65)-(120,135)
1285 LINE-(140,118)
1290 LINE-(140,83)
1295 LINE-(120,65)
1300 PAINT(130,99)
1305 LINE(120,135)-(140,118),0
1310 FOR K=1 TO 750:NEXT K
1315 LINE(220,80)-(240,125),0,BF
1320 LINE(220,83)-(220,118)
1325 LINE-(200,100)
1330 LINE-(220,83)
1335 PAINT(210,99)
1340 FOR K=1 TO 750:NEXT K
1345 LINE(220,65)-(200,135),0,BF
1350 LINE(200,65)-(200,135)
1355 LINE-(180,118)
1360 LINE-(180,83)
1365 LINE-(200,65)
1370 PAINT(190,99)
1375 LINE(200,135)-(180,118),0
1380 FOR K=1 TO 750:NEXT K
1385 LINE(140,30)-(180,47),0,BF
1390 LINE(140,47)-(180,47)
1395 LINE-(160,65)
1400 LINE-(140,47)
1405 PAINT(160,55)
1410 FOR K=1 TO 750:NEXT K
1415 LINE(120,47)-(200,65),0,BF
1420 LINE(120,65)-(140,82)
1425 LINE-(180,82)
1430 LINE-(200,65)
1435 LINE-(120,65)
1440 PAINT(160,75)
1445 LINE(120,65)-(140,82),0
1450 LINE(200,65)-(180,82),0
1455 FOR K=1 TO 750:NEXT K
1460 GOSUB 30000 '*** Textpad ***
1465 PRINT FNCEN$("Press <C> to continue.",40)
1470 A$=INKEY$:IF A$="" GOTO 1470
1475 IF A$="C" OR A$="c" GOTO 1485
1480 GOTO 1460
1485 GOSUB 30000 '*** <Textpad> ***
1490 PRINT FNCEN$("Our next two folds are to the back",40)
1495 FOR K=1 TO 1500:NEXT K
1500 GOSUB 30000 '*** <Textpad> ***
1505 PRINT FNCEN$("on the hidden side",40)
1510 FOR K=1 TO 1500:NEXT K
1515 GOSUB 30000 '*** <Textpad> ***
1520 PRINT FNCEN$("across these lines,",40)
1525 FOR K=1 TO 750:NEXT K
1530 FOR V=65 TO 135 STEP 2
1535 PSET(141,V),0
1540 PSET(179,V),0
1545 NEXT V
1550 FOR K=1 TO 750:NEXT K
1555 GOSUB 30000 '*** <Textpad> ***
1560 PRINT FNCEN$("SO!",40)
1565 FOR K=1 TO 750:NEXT K
1570 LINE(140,82)-(120,65)
1575 LINE(140,118)-(120,135)
1580 FOR H=120 TO 141
1585 LINE(141,82)-(H,65),0
1590 LINE(141,82)-(H,65)
1595 LINE(141,118)-(H,135),0
1600 LINE(141,118)-(H,135)
1605 LINE(H,65)-(H,135),0
1610 FOR M=1 TO 10:NEXT M
1615 NEXT H
1620 LINE(141,65)-(141,135)
1625 FOR K=1 TO 750:NEXT K
1630 LINE(180,82)-(200,65)
1635 LINE(180,118)-(200,135)
1640 FOR H=200 TO 179 STEP -1
1645 LINE(179,82)-(H,65),0
1650 LINE(179,82)-(H,65)
1655 LINE(179,118)-(H,135),0
1660 LINE(179,118)-(H,135)
1665 LINE(H,65)-(H,135),0
1670 FOR M=1 TO 10:NEXT M
1675 NEXT H
1680 LINE(179,65)-(179,135)
1685 FOR K=1 TO 750:NEXT K
1690 GOSUB 30000 '*** Textpad ***
1695 PRINT FNCEN$("Press <C> to continue.",40)
1700 A$=INKEY$:IF A$="" GOTO 1700
1705 IF A$="C" OR A$="c" GOTO 1715
1710 GOTO 1690
1715 GOSUB 30000 '*** <Textpad> ***
1720 PRINT FNCEN$("Now we need to turn our figure over",40)
1725 FOR K=1 TO 1500:NEXT K
1730 PRINT FNCEN$("to work on the hidden side.",40)
1735 FOR K=1 TO 1500:NEXT K
1740 GOSUB 30000 '*** Textpad ***
1745 PRINT FNCEN$("One moment, please.",40)
1750 FOR K=1 TO 1500:NEXT K
1755 FOR A=0 TO 20
1760 OUT 66,A:OUT 66,A
1765 OUT 97,(INP(97) OR 3)
1770 NEXT A
1775 SOUND 37,0
1780 CLS
1785 LINE(120,30)-(200,170),3,BF
1790 LINE(120,65)-(160,30),0
1795 LINE-(200,65),0
1800 LINE(120,135)-(160,170),0
1805 LINE-(200,135),0
1810 LINE(160,30)-(160,170),0
1815 FOR K=1 TO 750:NEXT K
1820 GOSUB 30000 '*** <Textpad> ***
1825 PRINT FNCEN$("We first fold the flap on the left side",40)
1830 FOR K=1 TO 750:NEXT K
1835 FOR K=1 TO 15
1840 LINE(160,30)-(120,65)
1845 LINE-(120,135)
1850 LINE-(160,170)
1855 FOR M=1 TO 25:NEXT M
1860 LINE(160,30)-(120,65),0
1865 LINE-(120,135),0
1870 LINE-(160,170),0
1875 NEXT K
1880 LINE(120,66)-(120,134)
1885 FOR K=1 TO 750:NEXT K
1890 GOSUB 30000 '*** <Textpad> ***
1895 PRINT FNCEN$("over to the right side,",40)
1900 FOR K=1 TO 750:NEXT K
1905 FOR K=1 TO 15
1910 LINE(160,30)-(200,65)
1915 LINE-(200,135)
1920 LINE-(160,170)
1925 FOR M=1 TO 25:NEXT M
1930 LINE(160,30)-(200,65),0
1935 LINE-(200,135),0
1940 LINE-(160,170),0
1945 NEXT K
1950 LINE(200,66)-(200,134)
1955 FOR K=1 TO 750:NEXT K
1960 GOSUB 30000 '*** <Textpad> ***
1965 PRINT FNCEN$("SO!",40)
1970 FOR K=1 TO 750:NEXT K
1975 FOR H=120 TO 160
1980 LINE(160,30)-(H,65),0
1985 LINE-(H,135),0
1990 LINE-(160,170),0
1995 LINE(120,30)-(120,170)
2000 NEXT H
2005 FOR V=30 TO 170 STEP 2
2010 PSET(160,V)
2015 NEXT V
2020 FOR H=163 TO 200
2025 LINE(160,30)-(H,65),0
2030 LINE-(H,135),0
2035 LINE-(160,170),0
2040 LINE(160,30)-(H,65)
2045 LINE-(H,135)
2050 LINE-(160,170)
2055 LINE(160,30)-(H,65),0
2060 LINE-(160,100),0
2065 LINE-(H,135),0
2070 LINE-(160,170),0
2075 LINE(161,45)-(162,85),0,BF
2080 LINE(161,115)-(162,155),0,BF
2085 PSET(160,32):PSET(160,34):PSET(160,96):PSET(160,98)
2090 PSET(160,102):PSET(160,104):PSET(160,166):PSET(160,168)
2095 NEXT H
2100 FOR K=1 TO 750:NEXT K
2105 GOSUB 30000 '*** Textpad ***
2110 PRINT FNCEN$("Press <C> to continue.",40)
2115 A$=INKEY$:IF A$="" GOTO 2115
2120 IF A$="C" OR A$="c" GOTO 2130
2125 GOTO 2105
2130 GOSUB 30000 '*** <Textpad> ***
2135 PRINT FNCEN$("and then fold this corner",40)
2140 FOR K=1 TO 750:NEXT K
2145 FOR K=1 TO 15
2150 PSET(115,25):DRAW"U8G3H6G2F6G3R8"
2155 PAINT(110,20)
2160 FOR M=1 TO 25:NEXT M
2165 CIRCLE(110,20),9,0
2170 PAINT(110,20),0
2175 NEXT K
2180 GOSUB 30000 '*** <Textpad> ***
2185 PRINT FNCEN$("in to this point,",40)
2190 FOR K=1 TO 750:NEXT K
2195 FOR K=1 TO 15
2200 CIRCLE(160,65),5
2205 LINE(158,65)-(162,65)
2210 LINE(160,63)-(160,67)
2215 FOR M=1 TO 25:NEXT M
2220 CIRCLE(160,65),5,0
2225 LINE(158,65)-(162,65),0
2230 LINE(160,63)-(160,67),0
2235 NEXT K
2240 PSET(160,64):PSET(160,66)
2245 PSET(160,134):PSET(160,136)
2250 GOSUB 30000 '*** <Textpad> ***
2255 PRINT FNCEN$("SO!",40)
2260 FOR K=1 TO 750:NEXT K
2265 FOR Q=0 TO 20
2270 LINE(120,65)-(120+Q,30+0.8499999*Q),0
2275 LINE-(160,30),0
2280 LINE(120,65)-(119+Q,30+0.8499999*Q),0
2285 LINE-(160,30),0
2290 FOR M=1 TO 10:NEXT M
2295 NEXT Q
2300 FOR Q=0 TO 20
2305 LINE(120,65)-(140+Q,47+0.9*Q)
2310 LINE-(160,30)
2315 LINE(120,65)-(139+Q,47+0.9*Q)
2320 LINE-(160,30)
2325 FOR M=1 TO 10:NEXT M
2330 NEXT Q
2335 LINE(160,30)-(120,65)
2340 FOR K=1 TO 750:NEXT K
2345 GOSUB 30000 '*** <Textpad> ***
2350 PRINT FNCEN$("and repeat with our lower corner",40)
2355 FOR K=1 TO 1500:NEXT K
2360 FOR Q=0 TO 20
2365 LINE(120,135)-(120+Q,170-0.8499999*Q),0
2370 LINE-(160,170),0
2375 LINE(120,135)-(119+Q,170-0.8499999*Q),0
2380 LINE-(160,170),0
2385 NEXT Q
2390 FOR Q=0 TO 20
2395 LINE(120,135)-(140+Q,153-0.9*Q)
2400 LINE-(160,170)
2405 LINE(120,135)-(141+Q,153-0.9*Q)
2410 LINE-(160,170)
2415 NEXT Q
2420 LINE(161,135)-(161,160),0
2425 LINE(160,170)-(120,135)
2430 FOR K=1 TO 750:NEXT K
2435 GOSUB 30000 '*** Textpad ***
2440 PRINT FNCEN$("Press <C> to continue.",40)
2445 A$=INKEY$:IF A$="" GOTO 2445
2450 IF A$="C" OR A$="c" GOTO 2460
2455 GOTO 2435
2460 GOSUB 30000 '*** <Textpad> ***
2465 PRINT FNCEN$("and then fold our flap back again",40)
2470 FOR K=1 TO 1500:NEXT K
2475 GOSUB 30000 '*** <Textpad> ***
2480 PRINT FNCEN$("to its original position,",40)
2485 FOR K=1 TO 1500:NEXT K
2490 GOSUB 30000 '*** <Textpad> ***
2495 PRINT FNCEN$("SO!",40)
2500 FOR K=1 TO 750:NEXT K
2505 FOR H=200 TO 160 STEP -1
2510 LINE(160,30)-(H,65)
2515 LINE-(160,100)
2520 LINE-(H,135)
2525 LINE-(160,170)
2530 LINE(160,30)-(200,65),0
2535 LINE(H,65)-(H,135),0
2540 LINE(H,65)-(H,135)
2545 LINE(160,170)-(200,135),0
2550 FOR M=1 TO 10:NEXT M
2555 NEXT H
2560 FOR H=160 TO 120 STEP -1
2565 LINE(160,30)-(H,65),0
2570 LINE-(H,135),0
2575 LINE-(160,170),0
2580 LINE(160,30)-(H,65)
2585 LINE-(H,135)
2590 LINE-(160,170)
2595 LINE(160,30)-(160,170),0
2600 FOR M=1 TO 10:NEXT M
2605 NEXT H
2610 GOSUB 30000
2615 PRINT FNCEN$("To see those folds again, press <R>.",40)
2620 FOR K=1 TO 1000:NEXT K
2625 PRINT FNCEN$("To continue, press <C>.",40)
2630 A$=INKEY$:IF A$="" GOTO 2630
2635 IF A$="r" OR A$="R" GOTO 2650
2640 IF A$="c" OR A$="C" GOTO 2715
2645 GOTO 2610
2650 FOR A=0 TO 20
2655 OUT 66,A:OUT 66,A
2660 OUT 97,(INP(97) OR 3)
2665 NEXT A
2670 SOUND 37,0
2675 LINE(120,30)-(159,65),3,BF
2680 LINE(120,135)-(159,170),3,BF
2685 LINE(160,30)-(120,65),0
2690 LINE(160,170)-(120,135),0
2695 GOSUB 30000
2700 PRINT FNCEN$("* Review *",40)
2705 FOR K=1 TO 1500:NEXT K
2710 GOTO 1820
2715 GOSUB 30000 '*** <Textpad> ***
2720 PRINT FNCEN$("Our next folds repeat that set of folds",40)
2725 FOR K=1 TO 1500:NEXT K
2730 GOSUB 30000 '*** <Textpad> ***
2735 PRINT FNCEN$("on the right side,",40)
2740 FOR K=1 TO 1500:NEXT K
2745 GOSUB 30000 '*** <Textpad> ***
2750 PRINT FNCEN$("SO!",40)
2755 FOR K=1 TO 750:NEXT K
2760 FOR H=200 TO 160 STEP -1
2765 LINE(160,30)-(H,65),0
2770 LINE-(H,135),0
2775 LINE-(160,170),0
2780 LINE(200,30)-(200,170)
2785 NEXT H
2790 FOR V=30 TO 170 STEP 2
2795 PSET(160,V)
2800 NEXT V
2805 FOR H=157 TO 120 STEP -1
2810 LINE(160,30)-(H,65),0
2815 LINE-(H,135),0
2820 LINE-(160,170),0
2825 LINE(160,30)-(H,65)
2830 LINE-(H,135)
2835 LINE-(160,170)
2840 LINE(160,30)-(H,65),0
2845 LINE-(160,100),0
2850 LINE-(H,135),0
2855 LINE-(160,170),0
2860 LINE(159,45)-(158,85),0,BF
2865 LINE(159,115)-(158,155),0,BF
2870 PSET(160,32):PSET(160,34):PSET(160,96):PSET(160,98)
2875 PSET(160,102):PSET(160,104):PSET(160,166):PSET(160,168)
2880 NEXT H
2885 LINE(124,61)-(157,32),0
2890 LINE(125,140)-(150,162),0
2895 LINE(129,56)-(146,41),0
2900 LINE(160,30)-(120,65)
2905 LINE(160,170)-(120,135)
2910 FOR K=1 TO 750:NEXT K
2915 GOSUB 30000 '*** Textpad ***
2920 PRINT FNCEN$("Press <C> to continue.",40)
2925 A$=INKEY$:IF A$="" GOTO 2925
2930 IF A$="C" OR A$="c" GOTO 2940
2935 GOTO 2915
2940 GOSUB 30000 '*** <Textpad> ***
2945 PRINT FNCEN$("Next, our corners",40)
2950 FOR K=1 TO 750:NEXT K
2955 FOR Q=0 TO 20
2960 LINE(200,65)-(200-Q,30+0.8499999*Q),0
2965 LINE-(160,30),0
2970 LINE(200,65)-(201-Q,30+0.8499999*Q),0
2975 LINE-(160,30),0
2980 FOR M=1 TO 10:NEXT M
2985 NEXT Q
2990 FOR Q=0 TO 20
2995 LINE(200,65)-(180-Q,47+0.9*Q)
3000 LINE-(160,30)
3005 LINE(200,65)-(181-Q,47+0.9*Q)
3010 LINE-(160,30)
3015 FOR M=1 TO 10:NEXT M
3020 NEXT Q
3025 LINE(160,30)-(200,65)
3030 FOR K=1 TO 750:NEXT K
3035 FOR Q=0 TO 20
3040 LINE(200,135)-(200-Q,170-0.8499999*Q),0
3045 LINE-(160,170),0
3050 LINE(200,135)-(201-Q,170-0.8499999*Q),0
3055 LINE-(160,170),0
3060 NEXT Q
3065 FOR Q=0 TO 20
3070 LINE(200,135)-(180-Q,153-0.9*Q)
3075 LINE-(160,170)
3080 LINE(200,135)-(181-Q,153-0.9*Q)
3085 LINE-(160,170)
3090 NEXT Q
3095 LINE(159,135)-(159,160),0
3100 LINE(160,170)-(200,135)
3105 FOR K=1 TO 750:NEXT K
3110 GOSUB 30000
3115 PRINT FNCEN$("Press <C> to continue.",40)
3120 A$=INKEY$:IF A$="" GOTO 3120
3125 IF A$="C" OR A$="c" GOTO 3135
3130 GOTO 3110
3135 GOSUB 30000 '*** <Textpad> ***
3140 PRINT FNCEN$("and finally our flap back again",40)
3145 FOR K=1 TO 1500:NEXT K
3150 GOSUB 30000 '*** <Textpad> ***
3155 PRINT FNCEN$("to the right,",40)
3160 FOR K=1 TO 1500:NEXT K
3165 GOSUB 30000 '*** <Textpad> ***
3170 PRINT FNCEN$("SO!",40)
3175 FOR K=1 TO 750:NEXT K
3180 FOR H=120 TO 160
3185 LINE(160,30)-(H,65)
3190 LINE-(160,100)
3195 LINE-(H,135)
3200 LINE-(160,170)
3205 LINE(160,30)-(120,65),0
3210 LINE(H,65)-(H,135),0
3215 LINE(H,65)-(H,135)
3220 LINE(160,170)-(120,135),0
3225 FOR M=1 TO 10:NEXT M
3230 NEXT H
3235 FOR H=160 TO 200
3240 LINE(160,30)-(H,65),0
3245 LINE-(H,135),0
3250 LINE-(160,170),0
3255 LINE(160,30)-(H,65)
3260 LINE-(H,135)
3265 LINE-(160,170)
3270 LINE(160,30)-(160,170),0
3275 FOR M=1 TO 10:NEXT M
3280 NEXT H
3285 LINE(160,30)-(200,65),0
3290 LINE-(200,135),0
3295 LINE-(160,170),0
3300 LINE(160,29)-(201,65),0
3305 LINE(160,171)-(201,135),0
3310 PSET(179,45),0:PSET(180,46),0
3315 PSET(179,155),0:PSET(180,154),0
3320 FOR K=1 TO 750:NEXT K
3325 GOSUB 30000
3330 PRINT FNCEN$("Would you like to see those folds again?",40)
3335 FOR K=1 TO 1500:NEXT K
3340 GOSUB 30000
3345 PRINT FNCEN$("If so, press <R>.",40)
3350 FOR K=1 TO 1000:NEXT K
3355 PRINT FNCEN$("To continue, press <C>.",40)
3360 A$=INKEY$:IF A$="" GOTO 3360
3365 IF A$="r" OR A$="R" GOTO 3380
3370 IF A$="c" OR A$="C" GOTO 3440
3375 GOTO 3340
3380 FOR A=0 TO 20
3385 OUT 66,A:OUT 66,A
3390 OUT 97,(INP(97) OR 3)
3395 NEXT A
3400 SOUND 37,0
3405 LINE(161,30)-(200,170),3,BF
3410 LINE(160,30)-(200,65),0
3415 LINE(160,170)-(200,135),0
3420 GOSUB 30000
3425 PRINT FNCEN$("* Review *",40)
3430 FOR K=1 TO 1500:NEXT K
3435 GOTO 2715
3440 GOSUB 30000 '*** <Textpad> ***
3445 PRINT FNCEN$("Now, we are at a crossroads.",40)
3450 FOR K=1 TO 1500:NEXT K
3455 GOSUB 30000
3460 PRINT FNCEN$("For Box A, press <A>.",40)
3465 FOR K=1 TO 1000:NEXT K
3470 PRINT FNCEN$("For Box B, press <B>.",40)
3475 A$=INKEY$:IF A$="" GOTO 3475
3480 IF A$="a" OR A$="A" GOTO 3495
3485 IF A$="b" OR A$="B" GOTO 4515
3490 GOTO 3455
3495 GOSUB 30000 '*** <Textpad> ***
3500 PRINT FNCEN$("* Box A *",40)
3505 FOR K=1 TO 1500:NEXT K
3510 GOSUB 30000 '*** <Textpad> ***
3515 PRINT FNCEN$("We fold and backfold this corner",40)
3520 FOR K=1 TO 750:NEXT K
3525 FOR K=1 TO 15
3530 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
3535 PAINT(160,16)
3540 FOR M=1 TO 25:NEXT M
3545 CIRCLE(160,16),7,0
3550 PAINT(160,16),0
3555 NEXT K
3560 FOR K=1 TO 750:NEXT K
3565 GOSUB 30000 '*** <Textpad> ***
3570 PRINT FNCEN$("down across this line,",40)
3575 FOR K=1 TO 750:NEXT K
3580 FOR H=120 TO 200 STEP 2
3585 PSET(H,65),0
3590 NEXT H
3595 FOR K=1 TO 750:NEXT K
3600 GOSUB 30000 '*** <Textpad> ***
3605 PRINT FNCEN$("SO!",40)
3610 FOR K=1 TO 750:NEXT K
3615 LINE(163,32)-(196,61),0
3620 FOR V=30 TO 65
3625 LINE(120,65)-(160,V),0
3630 LINE-(200,65),0
3635 NEXT V
3640 FOR V=65 TO 100
3645 LINE(120,65)-(160,V),0
3650 LINE-(200,65),0
3655 LINE(120,65)-(160,V)
3660 LINE-(200,65)
3665 NEXT V
3670 LINE(120,65)-(160,100),0
3675 LINE-(200,65),0
3680 FOR K=1 TO 750:NEXT K
3685 GOSUB 30000 '*** Textpad ***
3690 PRINT FNCEN$("Press <C> to continue.",40)
3695 A$=INKEY$:IF A$="" GOTO 3695
3700 IF A$="C" OR A$="c" GOTO 3710
3705 GOTO 3685
3710 GOSUB 30000 '*** <Textpad> ***
3715 PRINT FNCEN$("and back up again!",40)
3720 FOR K=1 TO 750:NEXT K
3725 FOR V=100 TO 65 STEP -1
3730 LINE(120,65)-(160,V),0
3735 LINE-(200,65),0
3740 LINE(120,65)-(160,V)
3745 LINE-(200,65)
3750 PSET(160,V),0
3755 NEXT V
3760 FOR H=120 TO 200 STEP 2
3765 PSET(H,65),0
3770 NEXT H
3775 FOR V=60 TO 30 STEP -1
3780 LINE(120,65)-(160,V)
3785 LINE-(200,65)
3790 LINE(132,60)-(188,64),3,BF
3795 LINE(160,60)-(160,64),0
3800 PSET(160,V),0
3805 NEXT V
3810 FOR H=120 TO 200 STEP 2
3815 PSET(H,65),0
3820 NEXT H
3825 FOR K=1 TO 750:NEXT K
3830 GOSUB 30000 '*** <Textpad> ***
3835 PRINT FNCEN$("and fold this lower corner",40)
3840 FOR K=1 TO 750:NEXT K
3845 FOR K=1 TO 15
3850 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
3855 PAINT(160,184)
3860 FOR M=1 TO 25:NEXT M
3865 CIRCLE(160,184),7,0
3870 PAINT(160,184),0
3875 NEXT K
3880 FOR K=1 TO 750:NEXT K
3885 GOSUB 30000 '*** <Textpad> ***
3890 PRINT FNCEN$("up across this line,",40)
3895 FOR K=1 TO 750:NEXT K
3900 FOR H=120 TO 200 STEP 2
3905 PSET(H,135),0
3910 NEXT H
3915 FOR K=1 TO 750:NEXT K
3920 GOSUB 30000 '*** <Textpad> ***
3925 PRINT FNCEN$("SO!",40)
3930 FOR K=1 TO 750:NEXT K
3935 FOR V=170 TO 135 STEP -1
3940 LINE(120,135)-(160,V),0
3945 LINE-(200,135),0
3950 NEXT V
3955 FOR V=135 TO 100 STEP -1
3960 LINE(120,135)-(160,V),0
3965 LINE-(200,135),0
3970 LINE(120,135)-(160,V)
3975 LINE-(200,135)
3980 NEXT V
3985 LINE(120,135)-(160,100),0
3990 LINE-(200,135),0
3995 FOR K=1 TO 750:NEXT K
4000 GOSUB 30000 '*** Textpad ***
4005 PRINT FNCEN$("Press <C> to continue.",40)
4010 A$=INKEY$:IF A$="" GOTO 4010
4015 IF A$="C" OR A$="c" GOTO 4025
4020 GOTO 4000
4025 GOSUB 30000 '*** <Textpad> ***
4030 PRINT FNCEN$("and back down again!",40)
4035 FOR K=1 TO 750:NEXT K
4040 FOR V=100 TO 135
4045 LINE(120,135)-(160,V),0
4050 LINE-(200,135),0
4055 LINE(120,135)-(160,V)
4060 LINE-(200,135)
4065 PSET(160,V),0
4070 NEXT V
4075 FOR H=120 TO 200 STEP 2
4080 PSET(H,135),0
4085 NEXT H
4090 FOR V=140 TO 170
4095 LINE(120,135)-(160,V)
4100 LINE-(200,135)
4105 LINE(132,136)-(188,139),3,BF
4110 LINE(160,136)-(160,139),0
4115 PSET(160,V),0
4120 NEXT V
4125 FOR H=120 TO 200 STEP 2
4130 PSET(H,135),0
4135 NEXT H
4140 FOR K=1 TO 750:NEXT K
4145 GOSUB 30000 '*** Textpad ***
4150 PRINT FNCEN$("Press <C> to continue.",40)
4155 A$=INKEY$:IF A$="" GOTO 4155
4160 IF A$="C" OR A$="c" GOTO 4170
4165 GOTO 4145
4170 GOSUB 30000 '*** <Textpad> ***
4175 PRINT FNCEN$("Our final task is to open up our figure,",40)
4180 FOR K=1 TO 1500:NEXT K
4185 GOSUB 30000 '*** <Textpad> ***
4190 PRINT FNCEN$("SO!",40)
4195 FOR K=1 TO 750:NEXT K
4200 FOR Q=0 TO 40
4205 LINE(160,30+0.88*Q)-(160-Q,65),0
4210 LINE-(160-Q,135),0
4215 LINE-(160,170-0.88*Q),0
4220 LINE(160,30+0.88*Q)-(160+Q,65),0
4225 LINE-(160+Q,135),0
4230 LINE-(160,170-0.88*Q),0
4235 LINE(160,30+0.88*Q)-(160-Q,65)
4240 LINE-(160-Q,135)
4245 LINE-(160,170-0.88*Q)
4250 LINE(160,30+0.88*Q)-(160+Q,65)
4255 LINE-(160+Q,135)
4260 LINE-(160,170-0.88*Q)
4265 LINE(120,65)-(160,30+0.88*Q),0
4270 LINE-(200,65),0
4275 LINE(120,135)-(160,170-0.88*Q),0
4280 LINE-(200,135),0
4285 NEXT Q
4290 FOR A=0 TO 20
4295 OUT 66,A:OUT 66,A
4300 OUT 97,(INP(97) OR 3)
4305 NEXT A
4310 SOUND 37,0
4315 CLS
4320 LINE(180,145)-(215,95)
4325 LINE-(215,70)
4330 LINE-(145,50)
4335 LINE-(110,95)
4340 LINE-(110,120)
4345 LINE-(180,145)
4350 PAINT(160,100)
4355 LINE(110,95)-(180,120),0
4360 LINE-(215,70),0
4365 LINE(110,120)-(145,107),0
4370 LINE-(180,145),0
4375 LINE-(180,120),0
4380 LINE(125,100)-(145,75),0
4385 LINE-(200,90),0
4390 LINE(145,50)-(145,75),0
4395 LINE-(180,60),0
4400 LINE-(205,84),0
4405 FOR K=1 TO 750:NEXT K
4410 GOSUB 30000 '*** <Textpad> ***
4415 PRINT FNCEN$("And there we have it! ",40)
4420 FOR K=1 TO 1500:NEXT K
4425 GOSUB 30000 '*** <Textpad> ***
4430 PRINT FNCEN$("BOX A",40)
4435 FOR K=1 TO 1500:NEXT K
4440 GOSUB 30000 '*** Textpad ***
4445 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
4450 PRINT FNCEN$(" <2> - To repeat TWO BOXES.",40)
4455 PRINT FNCEN$(" <3> - To exit from program.",40)
4460 E$=INPUT$(1)
4465 IF E$<"1" OR E$>"3" GOTO 4465
4470 SEL=VAL(E$)
4475 COMMON SEL
4480 CLS
4485 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
4490 ON SEL GOTO 4495,4500,4505
4495 CHAIN"a:main"
4500 CHAIN"a:boxes
4505 CHAIN"a:end"
4510 END
4515 GOSUB 30000 '*** <Textpad> ***
4520 PRINT FNCEN$("* Box B *",40)
4525 FOR K=1 TO 1500:NEXT K
4530 GOSUB 30000 '*** <Textpad> ***
4535 PRINT FNCEN$("For this box, we fold open our figure,",40)
4540 FOR K=1 TO 1500:NEXT K
4545 GOSUB 30000 '*** <Textpad> ***
4550 PRINT FNCEN$("in such a way that the flaps here",40)
4555 FOR K=1 TO 750:NEXT K
4560 FOR K=1 TO 15
4565 CIRCLE(160,100),5,0
4570 LINE(158,100)-(162,100),0
4575 LINE(160,98)-(160,102),0
4580 FOR M=1 TO 25:NEXT M
4585 CIRCLE(160,100),5
4590 LINE(158,100)-(162,100)
4595 LINE(160,98)-(160,102)
4600 NEXT K
4605 LINE(160,95)-(160,105),0
4610 FOR K=1 TO 750:NEXT K
4615 GOSUB 30000 '*** <Textpad> ***
4620 PRINT FNCEN$("become corners here",40)
4625 FOR K=1 TO 750:NEXT K
4630 FOR K=1 TO 15
4635 CIRCLE(80,100),5
4640 LINE(78,100)-(82,100)
4645 LINE(80,98)-(80,102)
4650 CIRCLE(240,100),5
4655 LINE(238,100)-(242,100)
4660 LINE(240,98)-(240,102)
4665 CIRCLE(80,100),5,0
4670 LINE(78,100)-(82,100),0
4675 LINE(80,98)-(80,102),0
4680 CIRCLE(240,100),5,0
4685 LINE(238,100)-(242,100),0
4690 LINE(240,98)-(240,102),0
4695 NEXT K
4700 FOR K=1 TO 750:NEXT K
4705 GOSUB 30000 '*** <Textpad> ***
4710 PRINT FNCEN$("and these corners",40)
4715 FOR K=1 TO 750:NEXT K
4720 FOR K=1 TO 15
4725 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
4730 PAINT(160,16)
4735 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
4740 PAINT(160,184)
4745 CIRCLE(160,16),7,0
4750 PAINT(160,16),0
4755 CIRCLE(160,184),7,0
4760 PAINT(160,184),0
4765 NEXT K
4770 FOR K=1 TO 750:NEXT K
4775 GOSUB 30000 '*** <Textpad> ***
4780 PRINT FNCEN$("come together here,",40)
4785 FOR K=1 TO 750:NEXT K
4790 FOR K=1 TO 15
4795 CIRCLE(160,100),5,0
4800 LINE(158,100)-(162,100),0
4805 LINE(160,98)-(160,102),0
4810 FOR M=1 TO 25:NEXT M
4815 CIRCLE(160,100),5
4820 LINE(158,100)-(162,100)
4825 LINE(160,98)-(160,102)
4830 NEXT K
4835 LINE(160,95)-(160,105),0
4840 FOR K=1 TO 750:NEXT K
4845 GOSUB 30000 '*** <Textpad> ***
4850 PRINT FNCEN$("SO!",40)
4855 FOR K=1 TO 750:NEXT K
4860 FOR Q=0 TO 40
4865 LINE(160,30+0.25*Q)-(160-Q,100),0
4870 LINE-(160,170-0.25*Q),0
4875 LINE(160,30+0.25*Q)-(160+Q,100),0
4880 LINE-(160,170-0.25*Q),0
4885 LINE(160,30+0.25*Q)-(160-Q,100)
4890 LINE-(160,170-0.25*Q)
4895 LINE(160,30+0.25*Q)-(160+Q,100)
4900 LINE-(160,170-0.25*Q)
4905 LINE(120,65)-(160,30+0.25*Q),0
4910 LINE-(200,65),0
4915 LINE(120,135)-(160,170-0.25*Q),0
4920 LINE-(200,135),0
4925 NEXT Q
4930 FOR Q=0 TO 30
4935 LINE(160,40+0.83*Q)-(120-Q,100),0
4940 LINE-(160,160-0.83*Q),0
4945 LINE(160,40+0.83*Q)-(200+Q,100),0
4950 LINE-(160,160-0.83*Q),0
4955 LINE(160,40+0.83*Q)-(120-Q,100)
4960 LINE-(160,160-0.83*Q)
4965 LINE(160,40+0.83*Q)-(200+Q,100)
4970 LINE-(160,160-0.83*Q)
4975 LINE(120,65)-(160,40+0.83*Q),0
4980 LINE-(200,65),0
4985 LINE(120,135)-(160,160-0.83*Q),0
4990 LINE-(200,135),0
4995 LINE(120,65)-(120-Q,100)
5000 LINE-(120,135)
5005 LINE(200,65)-(200+Q,100)
5010 LINE-(200,135)
5015 NEXT Q
5020 FOR Q=0 TO 35
5025 LINE(160,65+Q)-(90-0.29*Q,100),0
5030 LINE-(160,135-Q),0
5035 LINE(160,65+Q)-(230+0.29*Q,100),0
5040 LINE-(160,135-Q),0
5045 LINE(160,65+Q)-(90-0.29*Q,100)
5050 LINE-(160,135-Q)
5055 LINE(160,65+Q)-(230+0.29*Q,100)
5060 LINE-(160,135-Q)
5065 LINE(120,65)-(90-0.29*Q,100)
5070 LINE-(120,135)
5075 LINE(200,65)-(230+0.29*Q,100)
5080 LINE-(200,135)
5085 LINE(120,65)-(200,65)
5090 LINE(120,135)-(200,135)
5095 NEXT Q
5100 LINE(80,100)-(240,100),0
5105 LINE(120,65)-(200,135),0
5110 LINE(120,135)-(200,65),0
5115 FOR K=1 TO 750:NEXT K
5120 GOSUB 30000 '*** <Textpad> ***
5125 PRINT FNCEN$("There! That completes our folds.",40)
5130 FOR K=1 TO 1500:NEXT K
5135 GOSUB 30000 '*** <Textpad> ***
5140 PRINT FNCEN$("Would you like a review of those folds",40)
5145 FOR K=1 TO 1000:NEXT K
5150 PRINT FNCEN$("before we open up?",40)
5155 FOR K=1 TO 1500:NEXT K
5160 GOSUB 30000
5165 PRINT FNCEN$("If so, press <R> to review.",40)
5170 FOR K=1 TO 1000:NEXT K
5175 PRINT FNCEN$("Press <C> to continue.",40)
5180 A$=INKEY$:IF A$="" GOTO 5180
5185 IF A$="r" OR A$="R" GOTO 5200
5190 IF A$="c" OR A$="C" GOTO 5290
5195 GOTO 5160
5200 FOR A=0 TO 20
5205 OUT 66,A:OUT 66,A
5210 OUT 97,(INP(97) OR 3)
5215 NEXT A
5220 SOUND 37,0
5225 CLS
5230 LINE(160,30)-(120,65)
5235 LINE-(120,135)
5240 LINE-(160,170)
5245 LINE-(200,135)
5250 LINE-(200,65)
5255 LINE-(160,30)
5260 PAINT(160,100)
5265 LINE(160,30)-(160,170),0
5270 GOSUB 30000
5275 PRINT FNCEN$("* Review *",40)
5280 FOR K=1 TO 1500:NEXT K
5285 GOTO 4515
5290 GOSUB 30000 '*** <Textpad> ***
5295 PRINT FNCEN$("OK! Let's open up!",40)
5300 FOR K=1 TO 1500:NEXT K
5305 FOR A=0 TO 20
5310 OUT 66,A:OUT 66,A
5315 OUT 97,(INP(97) OR 3)
5320 NEXT A
5325 SOUND 37,0
5330 CLS
5335 LINE(160,50)-(120,65)
5340 LINE-(105,100)
5345 LINE-(120,135)
5350 LINE-(160,150)
5355 LINE-(200,135)
5360 LINE-(215,100)
5365 LINE-(200,65)
5370 LINE-(160,50)
5375 PAINT(160,100)
5380 LINE(160,50)-(105,100),0
5385 LINE-(160,150),0
5390 LINE-(215,100),0
5395 LINE-(160,50),0
5400 LINE(121,85)-(121,115),0
5405 LINE(199,85)-(199,115),0
5410 LINE(145,65)-(175,65),0
5415 LINE(145,135)-(175,135),0
5420 FOR K=1 TO 750:NEXT K
5425 GOSUB 30000 '*** <Textpad> ***
5430 PRINT FNCEN$("And there we have it!",40)
5435 FOR K=1 TO 1500:NEXT K
5440 GOSUB 30000 '*** <Textpad> ***
5445 PRINT FNCEN$("BOX B",40)
5450 FOR K=1 TO 1500:NEXT K
5455 GOSUB 30000 '*** Textpad ***
5460 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
5465 PRINT FNCEN$(" <2> - To repeat TWO BOXES.",40)
5470 PRINT FNCEN$(" <3> - To exit from program.",40)
5475 E$=INPUT$(1)
5480 IF E$<"1" OR E$>"3" GOTO 5480
5485 SEL=VAL(E$)
5490 COMMON SEL
5495 CLS
5500 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
5501 LINE(70,75)-(250,125),3,B
5505 ON SEL GOTO 5510,5515,5520
5510 CHAIN"a:main"
5515 CHAIN"a:boxes
5520 CHAIN"a:end"
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
CANDY.BAS
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$("CANDY DISH",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 FOR K=1 TO 2500:NEXT K
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 FOR K=1 TO 250:NEXT K
85 '***End Zapsound***
90 '*** start draw ***
95 LINE(160,30)-(80,100)
100 LINE-(160,170)
105 LINE-(240,100)
110 LINE-(160,30)
115 FOR K=1 TO 750:NEXT K
120 GOSUB 30000 '** Textpad **
125 PRINT FNCEN$("We begin with two folds,",40)
130 FOR K=1 TO 1500:NEXT K
135 GOSUB 30000 '** Textpad **
140 PRINT FNCEN$("which generate these creases,",40)
145 FOR K=1 TO 750:NEXT K
150 FOR H=80 TO 240 STEP 2
155 PSET(H,100)
160 NEXT H
165 FOR K=1 TO 750:NEXT K
170 FOR V=30 TO 170 STEP 2
175 PSET(160,V)
180 NEXT V
185 FOR K=1 TO 750:NEXT K
190 GOSUB 30000 '** Textpad **
195 PRINT FNCEN$("Do you remember those folds?",40)
200 FOR K=1 TO 1500:NEXT K
205 GOSUB 30000 '*** Textpad ***
210 PRINT FNCEN$("If not, press <R> for a refresher.",40)
215 FOR K=1 TO 1000:NEXT K
220 PRINT FNCEN$("To move on, press <C>.",40)
225 A$=INKEY$:IF A$="" GOTO 225
230 IF A$="C" OR A$="c" GOTO 720
235 IF A$="r" OR A$="R" GOTO 245
240 GOTO 205
245 FOR A=0 TO 20
250 OUT 66,A:OUT 66,A
255 OUT 97,(INP(97) OR 3)
260 NEXT A
265 SOUND 37,0
270 LINE(81,100)-(239,100),0
275 LINE(160,31)-(160,169),0
280 GOSUB 30000 '** Textpad **
285 PRINT FNCEN$("* Refresher *",40)
290 FOR K=1 TO 1000:NEXT K
295 GOSUB 30000 '** Textpad **
300 PRINT FNCEN$("Fold 1",40)
305 FOR K=1 TO 750:NEXT K
310 FOR H=80 TO 240 STEP 2
315 PSET(H,100)
320 NEXT H
325 FOR K=1 TO 750:NEXT K
330 FOR V=30 TO 100
335 LINE(80,100)-(160,V)
340 LINE-(240,100)
345 LINE(80,100)-(160,V),0
350 LINE-(240,100),0
355 NEXT V
360 FOR V=100 TO 170
365 LINE(80,100)-(160,V)
370 LINE-(240,100)
375 NEXT V
380 FOR K=1 TO 750:NEXT K
385 FOR V=170 TO 100 STEP -1
390 LINE(80,100)-(160,V),0
395 LINE-(240,100),0
400 LINE(80,100)-(160,170)
405 LINE-(240,100)
410 NEXT V
415 FOR H=80 TO 240 STEP 2
420 PSET(H,100)
425 NEXT H
430 FOR V=90 TO 30 STEP -1
435 LINE(80,100)-(160,V)
440 LINE-(240,100)
445 LINE(80,100)-(160,V),0
450 LINE-(240,100),0
455 NEXT V
460 LINE(80,100)-(160,30)
465 LINE-(240,100)
470 FOR H=82 TO 238 STEP 2
475 PSET(H,100),0
480 NEXT H
485 FOR K=1 TO 750:NEXT K
490 GOSUB 30000 '** Textpad **
495 PRINT FNCEN$("Fold 2",40)
500 FOR K=1 TO 1500:NEXT K
505 FOR V=30 TO 170 STEP 2
510 PSET(160,V)
515 NEXT V
520 FOR K=1 TO 750:NEXT K
525 FOR H=80 TO 160
530 LINE(160,30)-(H,100)
535 LINE-(160,170)
540 LINE(160,30)-(H,100),0
545 LINE-(160,170),0
550 NEXT H
555 FOR H=160 TO 240
560 LINE(160,30)-(H,100)
565 LINE-(160,170)
570 NEXT H
575 FOR K=1 TO 750:NEXT K
580 FOR H=240 TO 160 STEP -1
585 LINE(160,30)-(H,100),0
590 LINE-(160,170),0
595 LINE(160,30)-(240,100)
600 LINE-(160,170)
605 NEXT H
610 FOR V=30 TO 170 STEP 2
615 PSET(160,V)
620 NEXT V
625 FOR H=150 TO 80 STEP -1
630 LINE(160,30)-(H,100)
635 LINE-(160,170)
640 LINE(160,30)-(H,100),0
645 LINE-(160,170),0
650 NEXT H
655 LINE(160,30)-(80,100)
660 LINE-(160,170)
665 FOR V=30 TO 170 STEP 2
670 PSET(160,V)
675 NEXT V
680 FOR H=80 TO 240 STEP 2
685 PSET(H,100)
690 NEXT H
695 FOR K=1 TO 750:NEXT K
700 GOSUB 30000 '*** Textpad ***
705 PRINT FNCEN$("To move on, press <C>.",40)
710 A$=INKEY$:IF A$="" GOTO 710
715 IF A$="C" OR A$="c" GOTO 720
720 GOSUB 30000 '** Textpad **
725 PRINT FNCEN$("Our next fold takes this corner",40)
730 FOR K=1 TO 750:NEXT K
735 FOR K=1 TO 15
740 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
745 PAINT(254,100)
750 FOR M=1 TO 25:NEXT M
755 CIRCLE(254,100),7,0
760 PAINT(254,100),0
765 NEXT K
770 FOR K=1 TO 750:NEXT K
775 GOSUB 30000 '** Textpad **
780 PRINT FNCEN$("over to this center point",40)
785 FOR K=1 TO 750:NEXT K
790 FOR K=1 TO 15
795 CIRCLE(160,100),5
800 LINE(158,100)-(162,100)
805 LINE(160,98)-(160,102)
810 FOR M=1 TO 25:NEXT M
815 CIRCLE(160,100),5,0
820 LINE(158,100)-(162,100),0
825 LINE(160,98)-(160,102),0
830 NEXT K
835 PSET(158,100):PSET(162,100)
840 FOR V=96 TO 104 STEP 2
845 PSET(160,V)
850 NEXT V
855 FOR K=1 TO 750:NEXT K
860 GOSUB 30000 '** Textpad **
865 PRINT FNCEN$("across this line,",40)
870 FOR K=1 TO 750:NEXT K
875 FOR V=65 TO 135 STEP 2
880 PSET(200,V)
885 NEXT V
890 FOR K=1 TO 750:NEXT K
895 GOSUB 30000 '** Textpad **
900 PRINT FNCEN$("SO!",40)
905 FOR K=1 TO 750:NEXT K
910 FOR H=240 TO 200 STEP -1
915 LINE(200,65)-(H,100)
920 LINE-(200,135)
925 LINE(200,65)-(H,100),0
930 LINE-(200,135),0
935 NEXT H
940 FOR H=200 TO 160 STEP -1
945 LINE(200,65)-(H,100)
950 LINE-(200,135)
955 NEXT H
960 FOR K=1 TO 750:NEXT K
965 GOSUB 30000 '** Textpad **
970 PRINT FNCEN$("and repeat with the other corners.",40)
975 FOR K=1 TO 750:NEXT K
980 FOR V=65 TO 135 STEP 2
985 PSET(120,V)
990 NEXT V
995 FOR K=1 TO 750:NEXT K
1000 FOR H=80 TO 120
1005 LINE(120,65)-(H,100)
1010 LINE-(120,135)
1015 LINE(120,65)-(H,100),0
1020 LINE-(120,135),0
1025 NEXT H
1030 FOR H=120 TO 160
1035 LINE(120,65)-(H,100)
1040 LINE-(120,135)
1045 NEXT H
1050 FOR K=1 TO 750:NEXT K
1055 FOR H=120 TO 200 STEP 2
1060 PSET(H,65)
1065 NEXT H
1070 FOR K=1 TO 750:NEXT K
1075 FOR V=30 TO 65
1080 LINE(120,65)-(160,V)
1085 LINE-(200,65)
1090 LINE(120,65)-(160,V),0
1095 LINE-(200,65),0
1100 NEXT V
1105 FOR V=65 TO 100
1110 LINE(120,65)-(160,V)
1115 LINE-(200,65)
1120 NEXT V
1125 LINE(120,65)-(160,100),0
1130 LINE-(200,65),0
1135 FOR K=1 TO 750:NEXT K
1140 FOR H=120 TO 200 STEP 2
1145 PSET(H,135)
1150 NEXT H
1155 FOR K=1 TO 750:NEXT K
1160 FOR V=170 TO 135 STEP -1
1165 LINE(120,135)-(160,V)
1170 LINE-(200,135)
1175 LINE(120,135)-(160,V),0
1180 LINE-(200,135),0
1185 NEXT V
1190 FOR V=135 TO 100 STEP -1
1195 LINE(120,135)-(160,V)
1200 LINE-(200,135)
1205 NEXT V
1210 LINE(120,135)-(160,100),0
1215 LINE-(200,135),0
1220 FOR K=1 TO 750:NEXT K
1225 GOSUB 30000 '*** Textpad ***
1230 PRINT FNCEN$("Press <C> to continue.",40)
1235 A$=INKEY$:IF A$="" GOTO 1235
1240 IF A$="C" OR A$="c" GOTO 1250
1245 GOTO 1225
1250 GOSUB 30000 '** Textpad **
1255 PRINT FNCEN$("Next, we turn our figure over,",40)
1260 FOR K=1 TO 1500:NEXT K
1265 GOSUB 30000 '** Textpad **
1270 PRINT FNCEN$("changing its scale and repositioning it,",40)
1275 FOR K=1 TO 1500:NEXT K
1280 GOSUB 30000 '** Textpad **
1285 PRINT FNCEN$("SO!",40)
1290 FOR K=1 TO 750:NEXT K
1295 FOR A=0 TO 20
1300 OUT 66,A:OUT 66,A
1305 OUT 97,(INP(97) OR 3)
1310 NEXT A
1315 SOUND 37,0
1320 CLS
1325 LINE(160,30)-(80,100)
1330 LINE-(160,170)
1335 LINE-(240,100)
1340 LINE-(160,30)
1345 PAINT(160,100)
1350 LINE(120,65)-(200,135),0
1355 LINE(120,135)-(200,65),0
1360 FOR K=1 TO 750:NEXT K
1365 GOSUB 30000 '** Textpad **
1370 PRINT FNCEN$("and again take our corners",40)
1375 FOR K=1 TO 1500:NEXT K
1380 GOSUB 30000 '** Textpad **
1385 PRINT FNCEN$("and fold them into the center,",40)
1390 FOR K=1 TO 1500:NEXT K
1395 GOSUB 30000 '** Textpad **
1400 PRINT FNCEN$("SO!",40)
1405 FOR K=1 TO 750:NEXT K
1410 FOR V=65 TO 135 STEP 2
1415 PSET(200,V),0
1420 NEXT V
1425 FOR K=1 TO 750:NEXT K
1430 FOR H=240 TO 200 STEP -1
1435 LINE(200,65)-(H,100),0
1440 LINE-(200,135),0
1445 NEXT H
1450 FOR H=200 TO 160 STEP -1
1455 LINE(200,65)-(H,100),0
1460 LINE-(200,135),0
1465 LINE(200,65)-(H,100)
1470 LINE-(200,135)
1475 PSET(H,100),0
1480 NEXT H
1485 LINE(200,65)-(160,100),0
1490 LINE-(200,135),0
1495 FOR K=1 TO 750:NEXT K
1500 FOR V=65 TO 135 STEP 2
1505 PSET(120,V),0
1510 NEXT V
1515 FOR K=1 TO 750:NEXT K
1520 FOR H=80 TO 120
1525 LINE(120,65)-(H,100),0
1530 LINE-(120,135),0
1535 NEXT H
1540 FOR H=120 TO 160
1545 LINE(120,65)-(H,100),0
1550 LINE-(120,135),0
1555 LINE(120,65)-(H,100)
1560 LINE-(120,135)
1565 PSET(H,100),0
1570 NEXT H
1575 LINE(120,65)-(160,100),0
1580 LINE-(120,135),0
1585 FOR K=1 TO 750:NEXT K
1590 FOR H=120 TO 200 STEP 2
1595 PSET(H,65),0
1600 NEXT H
1605 FOR K=1 TO 750:NEXT K
1610 FOR V=30 TO 65
1615 LINE(120,65)-(160,V),0
1620 LINE-(200,65),0
1625 NEXT V
1630 FOR V=65 TO 100
1635 LINE(120,65)-(160,V),0
1640 LINE-(200,65),0
1645 LINE(120,65)-(160,V)
1650 LINE-(200,65)
1655 PSET(160,V),0
1660 NEXT V
1665 LINE(120,65)-(160,100),0
1670 LINE-(200,65),0
1675 FOR K=1 TO 750:NEXT K
1680 FOR H=120 TO 200 STEP 2
1685 PSET(H,135),0
1690 NEXT H
1695 FOR K=1 TO 750:NEXT K
1700 FOR V=170 TO 135 STEP -1
1705 LINE(120,135)-(160,V),0
1710 LINE-(200,135),0
1715 NEXT V
1720 FOR V=135 TO 100 STEP -1
1725 LINE(120,135)-(160,V),0
1730 LINE-(200,135),0
1735 LINE(120,135)-(160,V)
1740 LINE-(200,135)
1745 PSET(160,V),0
1750 NEXT V
1755 LINE(120,135)-(160,100),0
1760 LINE-(200,135),0
1765 FOR K=1 TO 750:NEXT K
1770 GOSUB 30000 '*** Textpad ***
1775 PRINT FNCEN$("Press <C> to continue.",40)
1780 A$=INKEY$:IF A$="" GOTO 1780
1785 IF A$="C" OR A$="c" GOTO 1795
1790 GOTO 1770
1795 GOSUB 30000 '** Textpad **
1800 PRINT FNCEN$("Now, the upper part of our figure",40)
1805 FOR K=1 TO 1500:NEXT K
1810 FOR K=1 TO 15
1815 LINE(120,100)-(120,65),0
1820 LINE-(200,65),0
1825 LINE-(200,100),0
1830 FOR M=0 TO 25:NEXT M
1835 LINE(120,100)-(120,65)
1840 LINE-(200,65)
1845 LINE-(200,100)
1850 NEXT K
1855 PSET(120,65),0:PSET(160,65),0:PSET(200,65),0
1860 PSET(120,100),0:PSET(200,100),0
1865 FOR K=1 TO 750:NEXT K
1870 GOSUB 30000 '** Textpad **
1875 PRINT FNCEN$("folds forward onto the lower part,",40)
1880 FOR K=1 TO 750:NEXT K
1885 FOR K=1 TO 15
1890 LINE(120,100)-(120,135),0
1895 LINE-(200,135),0
1900 LINE-(200,100),0
1905 FOR M=1 TO 25:NEXT M
1910 LINE(120,100)-(120,135)
1915 LINE-(200,135)
1920 LINE-(200,100)
1925 NEXT K
1930 PSET(120,135),0:PSET(160,135),0:PSET(200,135),0
1935 PSET(120,100),0:PSET(200,100),0
1940 FOR K=1 TO 750:NEXT K
1945 GOSUB 30000 '** Textpad **
1950 PRINT FNCEN$("SO!",40)
1955 FOR K=1 TO 750:NEXT K
1960 FOR V=65 TO 100
1965 LINE(120,V)-(160,100),0
1970 LINE-(200,V),0
1975 LINE(120,V)-(160,100)
1980 LINE-(200,V)
1985 LINE(120,100)-(120,V),0
1990 LINE-(200,V),0
1995 LINE-(200,100),0
2000 NEXT V
2005 FOR V=100 TO 135
2010 LINE(120,100)-(120,V),0
2015 LINE-(200,V),0
2020 LINE-(200,100),0
2025 LINE(120,100)-(120,V)
2030 LINE-(200,V)
2035 LINE-(200,100)
2040 LINE(120,V)-(160,100),0
2045 LINE-(200,V),0
2050 LINE(120,V)-(160,100)
2055 LINE-(200,V)
2060 PSET(160,V),0
2065 NEXT V
2070 LINE(120,135)-(160,100),0
2075 LINE-(200,135),0
2080 FOR K=1 TO 750:NEXT K
2085 GOSUB 30000 '*** Textpad ***
2090 PRINT FNCEN$("Press <C> to continue.",40)
2095 A$=INKEY$:IF A$="" GOTO 2095
2100 IF A$="C" OR A$="c" GOTO 2110
2105 GOTO 2085
2110 GOSUB 30000 '** Textpad **
2115 PRINT FNCEN$("Let's now take a good look",40)
2120 FOR K=1 TO 1500:NEXT K
2125 PRINT FNCEN$("at what we have before us.",40)
2130 FOR K=1 TO 1500:NEXT K
2135 GOSUB 30000 '** Textpad **
2140 PRINT FNCEN$("We have two flaps in front,",40)
2145 FOR K=1 TO 1500:NEXT K
2150 LINE(155,100)-(165,105),0,BF
2155 LINE(155,100)-(160,105)
2160 LINE-(165,100)
2165 LINE(120,99)-(200,99)
2170 FOR K=1 TO 750:NEXT K
2175 GOSUB 30000 '** Textpad **
2180 PRINT FNCEN$("and of course, two on the hidden side",40)
2185 FOR K=1 TO 1500:NEXT K
2190 'GOSUB 30000 '** Textpad **
2195 PRINT FNCEN$("which we can't see,",40)
2200 FOR K=1 TO 1500:NEXT K
2205 GOSUB 30000 '** Textpad **
2210 PRINT FNCEN$("and if we pull those flaps out,",40)
2215 FOR K=1 TO 1500:NEXT K
2220 GOSUB 30000 '** Textpad **
2225 PRINT FNCEN$("SO!",40)
2230 FOR K=1 TO 750:NEXT K
2235 LINE(120,99)-(200,99),0
2240 FOR Q=0 TO 10
2245 LINE(120,100)-(160-Q,100+Q),0
2250 LINE-(160,135),0
2255 PSET(160-Q,100+Q)
2260 LINE(120,100)-(160,100)
2265 LINE(149,109)-(151,106),0
2270 LINE(151,111)-(155,108),0
2275 PSET(154,113),0:PSET(153,109),0
2280 NEXT Q
2285 FOR Q=0 TO 10
2290 LINE(200,100)-(160+Q,100+Q),0
2295 LINE-(160,135),0
2300 PSET(160+Q,100+Q)
2305 LINE(200,100)-(160,100)
2310 LINE(171,109)-(169,106),0
2315 LINE(169,111)-(165,108),0
2320 PSET(166,113),0:PSET(167,109),0
2325 FOR V=100 TO 135 STEP 2
2330 PSET(160,V)
2335 NEXT V
2340 NEXT Q
2345 GOSUB 30000 '** Textpad **
2350 PRINT FNCEN$("we have two pockets in front",40)
2355 FOR K=1 TO 750:NEXT K
2360 FOR K=1 TO 15
2365 PSET(140,92):DRAW"E5L4U7L2D7L4F5"
2370 PAINT(140,86)
2375 PSET(180,92):DRAW"E5L4U7L2D7L4F5"
2380 PAINT(180,86)
2385 CIRCLE(140,86),7,0
2390 PAINT(140,86),0
2395 CIRCLE(180,86),7,0
2400 PAINT(180,86),0
2405 NEXT K
2410 FOR K=1 TO 750:NEXT K
2415 GOSUB 30000 '** Textpad **
2420 PRINT FNCEN$("and two on the hidden side.",40)
2425 FOR K=1 TO 750:NEXT K
2430 FOR K=1 TO 15
2435 PSET(140,92),1:DRAW"E5L4U7L2D7L4F5"
2440 PAINT(140,86),1
2445 PSET(180,92),1:DRAW"E5L4U7L2D7L4F5
2450 PAINT(180,86),1
2455 CIRCLE(140,86),7,0
2460 PAINT(140,86),0
2465 CIRCLE(180,86),7,0
2470 PAINT(180,86),0
2475 NEXT K
2480 FOR K=1 TO 750:NEXT K
2485 GOSUB 30000 '** Textpad **
2490 PRINT FNCEN$("And for our last operation,",40)
2495 FOR K=1 TO 1500:NEXT K
2500 GOSUB 30000 '** Textpad **
2505 PRINT FNCEN$("we put our right thumb into this pocket,",40)
2510 FOR K=1 TO 750:NEXT K
2515 PSET(140,92):DRAW"E5L4U7L2D7L4F5"
2520 PAINT(140,86)
2525 FOR K=1 TO 1500:NEXT K
2530 CIRCLE(140,86),7,0
2535 PAINT(140,86),0
2540 FOR K=1 TO 750:NEXT K
2545 GOSUB 30000 '** Textpad **
2550 PRINT FNCEN$("our pointer into this one,",40)
2555 FOR K=1 TO 750:NEXT K
2560 PSET(140,92),1:DRAW"E5L4U7L2D7L4F5"
2565 PAINT(140,86),1
2570 FOR K=1 TO 1500:NEXT K
2575 CIRCLE(140,86),7,0
2580 PAINT(140,86),0
2585 FOR K=1 TO 750:NEXT K
2590 GOSUB 30000 '** Textpad **
2595 PRINT FNCEN$("our middle finger into this,",40)
2600 FOR K=1 TO 750:NEXT K
2605 PSET(180,92),1:DRAW"E5L4U7L2D7L4F5"
2610 PAINT(180,86),1
2615 FOR K=1 TO 1500:NEXT K
2620 CIRCLE(180,86),7,0
2625 PAINT(180,86),0
2630 FOR K=1 TO 750:NEXT K
2635 GOSUB 30000 '** Textpad **
2640 PRINT FNCEN$("and our ring finger into this last one,",40)
2645 FOR K=1 TO 750:NEXT K
2650 PSET(180,92):DRAW"E5L4U7L2D7L4F5"
2655 PAINT(180,86)
2660 FOR K=1 TO 1500:NEXT K
2665 CIRCLE(180,86),7,0
2670 PAINT(180,86),0
2675 FOR K=1 TO 750:NEXT K
2680 GOSUB 30000 '*** Textpad ***
2685 PRINT FNCEN$("To review those directions, press <R>.",40)
2690 FOR K=1 TO 1000:NEXT K
2695 PRINT FNCEN$("To continue, press <C>.",40)
2700 A$=INKEY$:IF A$="" GOTO 2700
2705 IF A$="r" OR A$="R" GOTO 2720
2710 IF A$="c" OR A$="C" GOTO 2765
2715 GOTO 2685
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 GOSUB 30000 '** Textpad **
2750 PRINT FNCEN$("* Review *",40)
2755 FOR K=1 TO 1500:NEXT K
2760 GOTO 2485
2765 GOSUB 30000 '** Textpad **
2770 PRINT FNCEN$("and SQUEEZE!",40)
2775 FOR K=1 TO 750:NEXT K
2780 FOR A=0 TO 20
2785 OUT 66,A:OUT 66,A
2790 OUT 97,(INP(97) OR 3)
2795 NEXT A
2800 SOUND 37,0
2805 CLS
2810 LINE(160,70)-(115,110)
2815 LINE-(160,150)
2820 LINE-(205,110)
2825 LINE-(160,70)
2830 PAINT(160,100)
2835 LINE(115,110)-(100,60)
2840 LINE-(110,140)
2845 LINE-(130,120)
2850 PAINT(115,120)
2855 LINE(205,110)-(220,60)
2860 LINE-(210,140)
2865 LINE-(190,120)
2870 PAINT(205,120)
2875 LINE(115,110)-(100,60)
2880 LINE-(120,90)
2885 LINE-(160,55)
2890 LINE-(200,90)
2895 LINE-(220,60)
2900 LINE-(205,110)
2905 LINE(115,110)-(120,90)
2910 LINE-(160,75)
2915 LINE(205,110)-(200,90)
2920 LINE-(160,75)
2925 LINE(160,55)-(160,70)
2930 LINE(110,140)-(115,110),0
2935 LINE(160,71)-(160,150),0
2940 LINE(210,140)-(205,110),0
2945 FOR K=1 TO 750:NEXT K
2950 GOSUB 30000 '** Textpad **
2955 PRINT FNCEN$("And there we have it!",40)
2960 FOR K=1 TO 1500:NEXT K
2965 GOSUB 30000 '** Textpad **
2970 PRINT FNCEN$("CANDY DISH",40)
2975 FOR K=1 TO 1500:NEXT K
2980 GOSUB 30000 '*** Textpad ***
2985 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
2990 PRINT FNCEN$(" <2> - To repeat CANDY DISH.",40)
2995 PRINT FNCEN$(" <3> - To exit from program.",40)
3000 E$=INPUT$(1)
3005 IF E$<"1" OR E$>"3" GOTO 3000
3010 SEL=VAL(E$)
3015 COMMON SEL
3020 CLS
3025 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
3026 LINE(70,75)-(250,125),3,B
3030 ON SEL GOTO 3035,3040,3045
3035 CHAIN"a:main"
3040 CHAIN"a:candy
3045 CHAIN"a:end"
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
CHICK.BAS
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 FOR K=1 TO 2500:NEXT K
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 FOR K=1 TO 250:NEXT K
100 GOSUB 30000 '** Textpad **
105 PRINT FNCEN$("CHICK begins with two folds",40)
110 FOR K=1 TO 1500:NEXT K
115 GOSUB 30000 '** Textpad **
120 PRINT FNCEN$("which generate these creases",40)
125 FOR K=1 TO 1500:NEXT K
130 FOR V=30 TO 170 STEP 2
135 PSET(160,V)
140 NEXT V
145 FOR K=1 TO 750:NEXT K
150 FOR H=80 TO 240 STEP 2
155 PSET(H,100)
160 NEXT H
165 FOR K=1 TO 750:NEXT K
170 GOSUB 30000 '** Textpad **
175 PRINT FNCEN$("and our old friends,",40)
180 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
210 FOR Q=0 TO 35
215 LINE(160,170)-(240-Q,100-0.8599999*Q),3
220 LINE(160,170)-(240-Q,100-0.8599999*Q),0
225 LINE(160,170)-(241-Q,100-0.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 FOR K=1 TO 750:NEXT K
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-0.8599999*Q)-(160,170),3
285 LINE(80+Q,100-0.8599999*Q)-(160,170),0
290 LINE(79+Q,100-0.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 FOR K=1 TO 750:NEXT K
330 GOSUB 30000 '** Textpad **
335 PRINT FNCEN$("There! Your turn to fold. I'll wait.",40)
340 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
385 '*** arrow up ***
390 FOR K=1 TO 15
395 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
400 PAINT(160,184)
405 FOR M=1 TO 25:NEXT M
410 CIRCLE(160,184),7,0
415 PAINT(160,184),0
420 NEXT K
425 '***end arrow up ***
430 FOR K=1 TO 250:NEXT K
435 GOSUB 30000 '** Textpad **
440 PRINT FNCEN$("up to here",40)
445 FOR K=1 TO 750:NEXT K
450 '*** arrow down ***
455 FOR K=1 TO 15
460 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
465 PAINT(160,16)
470 FOR M=1 TO 25:NEXT M
475 CIRCLE(160,16),7,0
480 PAINT(160,16),0
485 NEXT K
490 '***end arrow down ***
495 FOR K=1 TO 250:NEXT K
500 GOSUB 30000 '** Textpad **
505 PRINT FNCEN$("across this line,",40)
510 FOR K=1 TO 750:NEXT K
515 FOR K=1 TO 25
520 LINE(127,100)-(193,100),0
525 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 250:NEXT K
560 GOSUB 30000 '** Textpad **
565 PRINT FNCEN$("SO!",40)
570 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
690 GOSUB 30000 '** Textpad **
695 PRINT FNCEN$("and back!",40)
700 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
900 GOSUB 30000 '*** Textpad ***
905 PRINT FNCEN$("To review that fold, press <R>.",40)
910 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
955 GOTO 370
960 GOSUB 30000 '*** Textpad ***
965 PRINT FNCEN$("We continue by folding this corner",40)
970 FOR K=1 TO 750:NEXT K
975 '*** arrow left ***
980 FOR K=1 TO 15
985 PSET(213,70):DRAW"E5D4R7D2L7D4H5"
990 PAINT(219,70)
995 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
1100 LINE(160,30)-(178,70),3
1105 LINE-(193,100),0
1110 FOR K=1 TO 750:NEXT K
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+0.5*Q),3
1135 LINE-(193,100),3
1140 LINE(160,30)-(205-Q,70+0.5*Q),0
1145 LINE-(193,100),0
1150 LINE(160,30)-(206-Q,69+0.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+0.4*Q),3
1180 LINE(185-Q,80+0.4*Q)-(193,100),0
1185 LINE(185-Q,80+0.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 FOR K=1 TO 750:NEXT K
1215 GOSUB 30000 '*** Textpad ***
1220 PRINT FNCEN$("and repeat on the left side",40)
1225 FOR K=1 TO 750:NEXT K
1230 LINE(160,30)-(142,70),3
1235 LINE-(127,100),0
1240 FOR K=1 TO 750:NEXT K
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+0.5*Q),3
1275 LINE-(127,100),3
1280 LINE(160,30)-(115+Q,70+0.5*Q),0
1285 LINE-(127,100),0
1290 LINE(160,30)-(114+Q,69+0.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+0.4*Q),3
1320 LINE(135+Q,80+0.4*Q)-(127,100),0
1325 LINE(135+Q,80+0.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 FOR K=1 TO 750:NEXT K
1355 GOSUB 30000 '*** Textpad ***
1360 PRINT FNCEN$("and unfold right!",40)
1365 FOR K=1 TO 750:NEXT K
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-0.5*Q),0
1390 LINE-(193,100),0
1395 LINE(160,90)-(160+Q,90-0.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+0.8*Q,80-0.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 FOR K=1 TO 750:NEXT K
1480 GOSUB 30000 '*** Textpad ***
1485 PRINT FNCEN$("and unfold left!",40)
1490 FOR K=1 TO 750:NEXT K
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-0.5*Q),0
1515 LINE-(127,100),0
1520 LINE(160,90)-(160-Q,90-0.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-0.8*Q,80-0.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 FOR K=1 TO 750:NEXT K
1695 GOSUB 30000 '*** Textpad ***
1700 PRINT FNCEN$("To review those folds, press <R>.",40)
1705 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
1780 GOTO 960
1785 GOSUB 30000 '*** Textpad ***
1790 PRINT FNCEN$("Our next folds are tricky ones,",40)
1795 FOR K=1 TO 1500:NEXT K
1800 PRINT FNCEN$("but we are fully prepared for them.",40)
1805 FOR K=1 TO 1500:NEXT K
1810 GOSUB 30000 '*** Textpad ***
1815 PRINT FNCEN$("Here are some folding hints.",40)
1820 FOR K=1 TO 1500:NEXT K
1825 GOSUB 30000 '*** Textpad ***
1830 PRINT FNCEN$("We might use our straightedge",40)
1835 FOR K=1 TO 1500:NEXT K
1840 PRINT FNCEN$("to help hold down KITE,",40)
1845 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
1975 GOSUB 30000 '*** Textpad ***
1980 PRINT FNCEN$("but that would be entirely up to us.",40)
1985 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
2100 GOSUB 30000 '*** Textpad ***
2105 PRINT FNCEN$("Let's clear the deck for our next hints",40)
2110 FOR K=1 TO 1500:NEXT K
2115 GOSUB 30000 '*** Textpad ***
2120 PRINT FNCEN$("so we can see what the essentials are.",40)
2125 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
2195 GOSUB 30000 '*** Textpad ***
2200 PRINT FNCEN$("This crease",40)
2205 FOR K=1 TO 750:NEXT K
2210 FOR K=1 TO 15
2215 LINE(160,70)-(192,100)
2220 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 1500:NEXT K
2255 GOSUB 30000 '*** Textpad ***
2260 PRINT FNCEN$("and ends up as a MOUNTAIN FOLD,",40)
2265 FOR K=1 TO 1500:NEXT K
2270 FOR K=1 TO 15
2275 LINE(192,100)-(160,70)
2280 FOR M=1 TO 25:NEXT M
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
2420 LINE(161,100)-(192,100),1
2425 NEXT K
2430 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
2535 FOR K=1 TO 15
2540 LINE(160,70)-(192,100)
2545 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
2580 FOR K=1 TO 15
2585 LINE(161,100)-(192,100),0
2590 FOR M=1 TO 25:NEXT M
2595 LINE(161,100)-(192,100),1
2600 NEXT K
2605 FOR K=1 TO 750:NEXT K
2610 GOSUB 30000 '*** Textpad ***
2615 PRINT FNCEN$("down to this point",40)
2620 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
2685 GOSUB 30000 '*** Textpad ***
2690 PRINT FNCEN$("along this line,",40)
2695 FOR K=1 TO 750:NEXT K
2700 FOR K=1 TO 25
2705 LINE(160,70)-(160,130),3
2710 FOR M=1 TO 25:NEXT M
2715 LINE(160,70)-(160,130),0
2720 NEXT K
2725 FOR K=1 TO 750:NEXT K
2730 GOSUB 30000 '*** Textpad ***
2735 PRINT FNCEN$("SO!",40)
2740 FOR K=1 TO 750:NEXT K
2745 FOR V=70 TO 130
2750 LINE(161,V)-(192,100),2
2755 LINE(161,V)-(192,100)
2760 FOR M=1 TO 25:NEXT M
2765 NEXT V
2770 LINE(161,V)-(192,100),2
2775 FOR K=1 TO 1500:NEXT K
2780 LINE(161,V)-(192,100)
2785 GOSUB 30000 '** Textpad **
2790 PRINT FNCEN$("Would you like to review those hints?",40)
2795 FOR K=1 TO 1500:NEXT K
2800 GOSUB 30000 '*** Textpad ***
2805 PRINT FNCEN$("If so, press <R>.",40)
2810 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
2945 GOSUB 30000 '*** Textpad ***
2950 PRINT FNCEN$("And away we go!",40)
2955 FOR K=1 TO 750:NEXT K
2960 GOSUB 30000 '*** Textpad ***
2965 LINE(160,70)-(192,100)
2970 FOR Q=1 TO 30
2975 LINE(160,30)-(205-0.4*Q,70+0.167*Q),3
2980 LINE-(192,100),3
2985 LINE(161,30)-(206-0.4*Q,70+0.167*Q),0
2990 LINE-(193,100),0
2995 LINE(162,30)-(207-0.4*Q,70+0.167*Q),0
3000 LINE-(194,100),0
3005 LINE(160,100)-(160,69+Q),0
3010 LINE-(205-0.4*Q,70+0.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-0.45*Q,75+0.35*Q),3
3065 LINE-(193,100),0
3070 LINE(160,30)-(194-0.45*Q,75+0.35*Q),0
3075 LINE(160,30)-(195-0.45*Q,75+0.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-0.45*Q,75+0.35*Q),0
3095 LINE(192,100)-(160,100+Q),3
3100 LINE(192,100)-(178-0.4*Q,87+0.65*Q),0
3105 LINE(192,100)-(178-0.4*Q,87+0.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+0.333*Q),3
3175 LINE-(192,100),3
3180 LINE(184-Q,82+0.333*Q)-(160,120+0.417*Q),3
3185 LINE(184-Q,82+0.333*Q)-(160,120+0.417*Q),3
3190 LINE(160,122+0.417*Q)-(191,102),0
3195 LINE(160,120+0.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 FOR K=1 TO 750:NEXT K
3315 LINE(160,70)-(128,100)
3320 FOR Q= 1 TO 30
3325 LINE(160,30)-(115+0.4*Q,70+0.167*Q),3
3330 LINE-(128,100),3
3335 LINE(159,30)-(114+0.4*Q,70+0.167*Q),0
3340 LINE-(114,100),0
3345 LINE(158,30)-(113+0.4*Q,70+0.167*Q),0
3350 LINE-(126,100),0
3355 LINE(160,100)-(160,69+Q),0
3360 LINE-(115+0.4*Q,70+0.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+0.45*Q,75+0.35*Q),3
3400 LINE-(127,100),0
3405 LINE(160,30)-(126+0.45*Q,75+0.35*Q),0
3410 LINE(160,30)-(125+0.45*Q,75+0.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+0.45*Q,75+0.35*Q),0
3430 LINE(128,100)-(160,100+Q),3
3435 LINE(128,100)-(142+0.4*Q,87+0.65*Q),0
3440 LINE(128,100)-(142+0.4*Q,87+0.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+0.333*Q),3
3510 LINE-(128,100),3
3515 LINE(136+Q,82+0.333*Q)-(160,120+0.417*Q),3
3520 LINE(160,121+0.417*Q)-(127,101),0
3525 LINE(160,120+0.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 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
3830 GOTO 2930
3835 '****************
3840 GOSUB 30000 '** Textpad **
3845 PRINT FNCEN$("Here are CHICK's other creases,",40)
3850 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
3915 GOSUB 30000 '** Textpad **
3920 PRINT FNCEN$("two of which are not important.",40)
3925 FOR K=1 TO 750:NEXT K
3930 FOR K=0 TO 25
3935 LINE(127,100)-(160,115),1
3940 LINE-(193,100),1
3945 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
3995 GOSUB 30000 '** Textpad **
4000 PRINT FNCEN$("Let's proceed.",40)
4005 FOR K=1 TO 1500:NEXT K
4010 GOSUB 30000 '** Textpad **
4015 PRINT FNCEN$("First, we turn CHICK over",40)
4020 FOR K=1 TO 1500:NEXT K
4025 GOSUB 30000 '** Textpad **
4030 PRINT FNCEN$("SO!",40)
4035 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
4180 GOSUB 30000 '** Textpad **
4185 PRINT FNCEN$("Our first folds are preparatory folds",40)
4190 FOR K=1 TO 1500:NEXT K
4195 PRINT FNCEN$("for CHICK's beak,",40)
4200 FOR K=1 TO 1500:NEXT K
4205 PRINT FNCEN$("the size of which we ourselves control.",40)
4210 FOR K=1 TO 1500:NEXT K
4215 GOSUB 30000 '** Textpad **
4220 PRINT FNCEN$("We begin by folding this corner",40)
4225 FOR K=1 TO 750:NEXT K
4230 '*** arrow down ***
4235 FOR K=1 TO 15
4240 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
4245 PAINT(160,16)
4250 FOR M=1 TO 25:NEXT M
4255 CIRCLE(160,16),7,0
4260 PAINT(160,16),0
4265 NEXT K
4270 '***end arrow down ***
4275 FOR K=1 TO 750:NEXT K
4280 GOSUB 30000 '** Textpad **
4285 PRINT FNCEN$("down across this line of our choosing,",40)
4290 FOR K=1 TO 750:NEXT K
4295 FOR H=153 TO 167 STEP 2
4300 PSET(H,45),0
4305 NEXT H
4310 FOR K=1 TO 750:NEXT K
4315 GOSUB 30000 '** Textpad **
4320 PRINT FNCEN$("THUS!",40)
4325 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
4405 GOSUB 30000 '** Textpad **
4410 PRINT FNCEN$("Our next fold takes us back up again",40)
4415 FOR K=1 TO 1500:NEXT K
4420 GOSUB 30000 '** Textpad **
4425 PRINT FNCEN$("across this line,",40)
4430 FOR K=1 TO 750:NEXT K
4435 FOR H=155 TO 165 STEP 2
4440 PSET(H,50),0
4445 NEXT H
4450 FOR K=1 TO 750:NEXT K
4455 PRINT FNCEN$("again of our own choosing,",40)
4460 FOR K=1 TO 1500:NEXT K
4465 GOSUB 30000 '** Textpad **
4470 PRINT FNCEN$("SO!",40)
4475 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
4555 GOSUB 30000 '*** Textpad ***
4560 PRINT FNCEN$("Want to see those folds again?",40)
4565 FOR K=1 TO 1500:NEXT K
4570 GOSUB 30000 '*** Textpad ***
4575 PRINT FNCEN$("If so, press <R>.",40)
4580 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
4735 PRINT FNCEN$("for CHICK's beak later on.",40)
4740 FOR K=1 TO 1500:NEXT K
4745 GOSUB 30000 '** Textpad **
4750 PRINT FNCEN$("Let's move on.",40)
4755 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
4820 GOSUB 30000 '** Textpad **
4825 PRINT FNCEN$("and fold CHICK's left side",40)
4830 FOR K=1 TO 750:NEXT K
4835 FOR V=30 TO 170 STEP 2
4840 PSET(160,V),0
4845 NEXT V
4850 FOR K=1 TO 500:NEXT K
4855 FOR K=1 TO 15
4860 LINE(160,30)-(125,100),0
4865 LINE-(160,170),0
4870 FOR M=1 TO 25:NEXT M
4875 LINE(160,30)-(125,100)
4880 LINE-(160,170)
4885 NEXT K
4890 FOR K=1 TO 750:NEXT K
4895 GOSUB 30000 '** Textpad **
4900 PRINT FNCEN$("over onto its right side,",40)
4905 FOR K=1 TO 750:NEXT K
4910 FOR K=1 TO 15
4915 LINE(160,30)-(195,100),0
4920 LINE-(160,170),0
4925 FOR M=1 TO 25:NEXT M
4930 LINE(160,30)-(195,100)
4935 LINE-(160,170)
4940 NEXT K
4945 FOR K=1 TO 750:NEXT K
4950 GOSUB 30000 '** Textpad **
4955 PRINT FNCEN$("SO!",40)
4960 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
5030 GOSUB 30000 '** Textpad **
5035 PRINT FNCEN$("There! Now I'll position myself",40)
5040 FOR K=1 TO 1500:NEXT K
5045 PRINT FNCEN$("more comfortably.",40)
5050 FOR K=1 TO 1500:NEXT K
5055 GOSUB 30000 '** Textpad **
5060 PRINT FNCEN$("One moment, please.",40)
5065 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
5145 GOSUB 30000 '** Textpad **
5150 PRINT FNCEN$("We now fold and backfold this corner",40)
5155 FOR K=1 TO 1500:NEXT K
5160 '*** arrow left ***
5165 FOR K=1 TO 15
5170 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
5175 PAINT(254,100)
5180 FOR M=1 TO 25:NEXT M
5185 CIRCLE(254,100),7,0
5190 PAINT(254,100),0
5195 NEXT K
5200 '***end arrow left ***
5205 FOR K=1 TO 750:NEXT K
5210 GOSUB 30000 '** Textpad **
5215 PRINT FNCEN$("up to this point",40)
5220 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5255 CIRCLE(125,60),5,0
5260 LINE(123,60)-(127,60),0
5265 LINE(125,58)-(125,62),0
5270 NEXT K
5275 FOR K=1 TO 750:NEXT K
5280 GOSUB 30000 '** Textpad **
5285 PRINT FNCEN$("across this crease,",40)
5290 FOR K=1 TO 750:NEXT K
5295 FOR K=1 TO 25
5300 LINE(173,100)-(160,130),1
5305 FOR M=1 TO 25:NEXT M
5310 LINE(173,100)-(160,130),0
5315 NEXT K
5320 FOR K=1 TO 750:NEXT K
5325 GOSUB 30000 '** Textpad **
5330 PRINT FNCEN$("SO!",40)
5335 FOR K=1 TO 750:NEXT K
5340 FOR Q=0 TO 58
5345 LINE(160,130)-(240-Q,100-0.34*Q)
5350 LINE-(173,100)
5355 LINE(160,130)-(240-Q,100-0.34*Q),0
5360 LINE(160,130)-(241-Q,100-0.34*Q),0
5365 NEXT Q
5370 FOR Q=0 TO 57
5375 LINE(160,130)-(182-Q,80-0.35*Q),0
5380 LINE(160,130)-(182-Q,80-0.35*Q)
5385 LINE-(173,100)
5390 LINE-(182-Q,80-0.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 FOR K=1 TO 750:NEXT K
5420 GOSUB 30000 '** Textpad **
5425 PRINT FNCEN$("and return!",40)
5430 FOR K=1 TO 750:NEXT K
5435 FOR Q=0 TO 57
5440 LINE(173,100)-(125+Q,60+0.35*Q)
5445 LINE-(160,130)
5450 LINE(160,130)-(125+Q,60+0.35*Q),0
5455 LINE(142+0.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+0.34*Q)
5510 LINE-(173,100)
5515 LINE(182+Q,80+0.34*Q)-(173,99),0
5520 LINE(181+Q,80+0.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 FOR K=1 TO 750:NEXT K
5570 GOSUB 30000 '** Textpad **
5575 PRINT FNCEN$("Your turn to fold and backfold.",40)
5580 FOR K=1 TO 1500:NEXT K
5585 GOSUB 30000 '*** Textpad ***
5590 PRINT FNCEN$("Press <R> for a review of that fold.",40)
5595 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
5640 GOTO 5145
5645 GOSUB 30000 '*** Textpad ***
5650 PRINT FNCEN$("Our next fold takes this corner",40)
5655 FOR K=1 TO 1500:NEXT K
5660 '*** arrow left ***
5665 FOR K=1 TO 15
5670 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
5675 PAINT(254,100)
5680 FOR M=1 TO 25:NEXT M
5685 CIRCLE(254,100),7,0
5690 PAINT(254,100),0
5695 NEXT K
5700 '***end arrow left ***
5705 FOR K=1 TO 750:NEXT K
5710 GOSUB 30000 '** Textpad **
5715 PRINT FNCEN$("back up again to this point",40)
5720 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5755 CIRCLE(125,60),5,0
5760 LINE(123,60)-(127,60),0
5765 LINE(125,58)-(125,62),0
5770 NEXT K
5775 FOR K=1 TO 750:NEXT K
5780 GOSUB 30000 '** Textpad **
5785 PRINT FNCEN$("across this same crease,",40)
5790 FOR K=1 TO 750:NEXT K
5795 FOR K=1 TO 25
5800 LINE(173,100)-(160,130),1
5805 FOR M=1 TO 25:NEXT M
5810 LINE(173,100)-(160,130),0
5815 NEXT K
5820 FOR K=1 TO 750:NEXT K
5825 GOSUB 30000 '** Textpad **
5830 PRINT FNCEN$("but with this difference:",40)
5835 FOR K=1 TO 1500:NEXT K
5840 GOSUB 30000 '** Textpad **
5845 PRINT FNCEN$("this fold is a HOOD FOLD,",40)
5850 FOR K=1 TO 1500:NEXT K
5855 PRINT FNCEN$("and we will have to open CHICK up",40)
5860 FOR K=1 TO 1500:NEXT K
5865 PRINT FNCEN$("considerably to execute it,",40)
5870 FOR K=1 TO 1500:NEXT K
5875 GOSUB 30000 '** Textpad **
5880 PRINT FNCEN$("SO!",40)
5885 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5945 CIRCLE(160,154),7,0
5950 PAINT(160,154),0
5955 NEXT K
5960 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
6005 GOSUB 30000 '** Textpad **
6010 PRINT FNCEN$("WATCH!",40)
6015 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6105 GOSUB 30000 '** Textpad **
6110 PRINT FNCEN$("The trick to that fold",40)
6115 FOR K=1 TO 1500:NEXT K
6120 PRINT FNCEN$("is to open CHICK up enough",40)
6125 FOR K=1 TO 1500:NEXT K
6130 PRINT FNCEN$("so that we can execute it.",40)
6135 FOR K=1 TO 1500:NEXT K
6140 GOSUB 30000 '*** Textpad ***
6145 PRINT FNCEN$("Your turn. To review, press <R>.",40)
6150 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6260 GOTO 5645
6265 GOSUB 30000 '*** Textpad ***
6270 PRINT FNCEN$("Back to 2-D!",40)
6275 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
6345 FOR K=1 TO 15
6350 PSET(125,54):DRAW"E5L4U7L2D7L4F5"
6355 PAINT(125,48)
6360 FOR M=1 TO 25:NEXT M
6365 CIRCLE(125,48),7,0
6370 PAINT(125,48),0
6375 NEXT K
6380 FOR K=1 TO 750:NEXT K
6385 GOSUB 30000 '** Textpad **
6390 PRINT FNCEN$("down to this point",40)
6395 FOR K=1 TO 750:NEXT K
6400 FOR K=1 TO 15
6405 CIRCLE(190,115),5
6410 LINE(188,115)-(192,115)
6415 LINE(190,113)-(190,117)
6420 FOR M=1 TO 25:NEXT M
6425 CIRCLE(190,115),5,0
6430 LINE(188,115)-(192,115),0
6435 LINE(190,113)-(190,117),0
6440 NEXT K
6445 FOR K=1 TO 750:NEXT K
6450 GOSUB 30000 '** Textpad **
6455 PRINT FNCEN$("across this line,",40)
6460 FOR K=1 TO 750:NEXT K
6465 LINE(145,100)-(157,88),0
6470 FOR K=1 TO 750:NEXT K
6475 GOSUB 30000 '** Textpad **
6480 PRINT FNCEN$("THUS!",40)
6485 FOR K=1 TO 750:NEXT K
6490 LINE(126,60)-(191,115),0 '<X>
6495 FOR Q=0 TO 32
6500 LINE(145,100)-(125+Q,60+0.88*Q),0
6505 LINE-(157,88),0
6510 FOR M=1 TO 10:NEXT M
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+0.82*Q),0
6550 LINE-(157,88),0
6555 LINE(145,100)-(157+Q,88+0.82*Q)
6560 LINE-(157,88)
6565 FOR M=1 TO 10:NEXT M
6570 NEXT Q
6575 LINE(146,99)-(157,88),0
6580 LINE(145,100)-(190,115),0
6585 PSET(158,88)
6590 FOR K=1 TO 750:NEXT K
6595 GOSUB 30000 '** Textpad **
6600 PRINT FNCEN$("and back!",40)
6605 FOR K=1 TO 750:NEXT K
6610 FOR Q=0 TO 17
6615 LINE(158,87)-(190-Q,115-0.88*Q),0
6620 LINE-(145,100),0
6625 LINE(145,100)-(169+0.18*Q,110-0.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-0.83*Q),0
6675 LINE-(157,88),0
6680 LINE(145,100)-(173-Q,100-0.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 FOR K=1 TO 750:NEXT K
6725 GOSUB 30000 '** Textpad **
6730 PRINT FNCEN$("Your turn to fold and backfold.",40)
6735 FOR K=1 TO 1500:NEXT K
6740 GOSUB 30000 '** Textpad **
6745 PRINT FNCEN$("To review that fold, press <R>.",40)
6750 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
6795 LINE(145,100)-(157,88)
6800 GOTO 6330
6805 GOSUB 30000 '** Textpad **
6810 PRINT FNCEN$("We again take this corner",40)
6815 FOR K=1 TO 1500:NEXT K
6820 FOR K=1 TO 15
6825 PSET(125,54):DRAW"E5L4U7L2D7L4F5"
6830 PAINT(125,48)
6835 FOR M=1 TO 25:NEXT M
6840 CIRCLE(125,48),7,0
6845 PAINT(125,48),0
6850 NEXT K
6855 FOR K=1 TO 750:NEXT K
6860 GOSUB 30000 '** Textpad **
6865 PRINT FNCEN$("down to this point",40)
6870 FOR K=1 TO 750:NEXT K
6875 FOR K=1 TO 15
6880 CIRCLE(190,115),5
6885 LINE(188,115)-(192,115)
6890 LINE(190,113)-(190,117)
6895 FOR M=1 TO 25:NEXT M
6900 CIRCLE(190,115),5,0
6905 LINE(188,115)-(192,115),0
6910 LINE(190,113)-(190,117),0
6915 NEXT K
6920 FOR K=1 TO 750:NEXT K
6925 GOSUB 30000 '** Textpad **
6930 PRINT FNCEN$("across this crease,",40)
6935 FOR K=1 TO 750:NEXT K
6940 FOR K=1 TO 15
6945 LINE(145,100)-(157,88)
6950 FOR M=1 TO 25:NEXT M
6955 LINE(145,100)-(157,88),0
6960 NEXT K
6965 FOR K=1 TO 750:NEXT K
6970 GOSUB 30000 '** Textpad **
6975 PRINT FNCEN$("but again there's a difference:",40)
6980 FOR K=1 TO 1500:NEXT K
6985 GOSUB 30000 '** Textpad **
6990 PRINT FNCEN$("this fold is a REVERSE HOOD FOLD,",40)
6995 FOR K=1 TO 1500:NEXT K
7000 PRINT FNCEN$("and we will have to open CHICK up",40)
7005 FOR K=1 TO 1500:NEXT K
7010 PRINT FNCEN$("considerably to execute it,",40)
7015 FOR K=1 TO 1500:NEXT K
7020 GOSUB 30000 '** Textpad **
7025 PRINT FNCEN$("THUS!",40)
7030 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
7365 PRINT FNCEN$("way back when we first started",40)
7370 FOR K=1 TO 1500:NEXT K
7375 LINE(171,109)-(176,103),0 'beak
7380 LINE(177,112)-(181,107),0 'beak
7385 FOR K=1 TO 250:NEXT K
7390 FOR K=1 TO 15
7395 PSET(183,100):DRAW"E5L4U7L2D7L4F5"
7400 PAINT(183,94)
7405 FOR M=1 TO 25:NEXT M
7410 CIRCLE(183,94),7,0
7415 PAINT(183,94),0
7420 NEXT K
7425 FOR K=1 TO 750:NEXT K
7430 PRINT FNCEN$("come into play to form CHICK's beak,",40)
7435 FOR K=1 TO 1500:NEXT K
7440 GOSUB 30000 '** Textpad **
7445 PRINT FNCEN$("and we'll have to open CHICK up again",40)
7450 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
7550 PRINT FNCEN$("considerably to tuck CHICK's beak",40)
7555 FOR K=1 TO 1500:NEXT K
7560 PRINT FNCEN$("into this pocket,",40)
7565 FOR K=1 TO 750:NEXT K
7570 FOR K=1 TO 15
7575 PSET(177,120):DRAW"G5R4D7R2U7R4H5"
7580 PAINT(177,126)
7585 FOR M=1 TO 25:NEXT M
7590 CIRCLE(177,126),7,0
7595 PAINT(177,126),0
7600 NEXT K
7605 FOR K=1 TO 750:NEXT K
7610 GOSUB 30000 '** Textpad **
7615 PRINT FNCEN$("SO!",40)
7620 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
7775 PSET(178,104),0
7780 FOR Q=0 TO 14
7785 LINE(176,103)-(190-Q,115-0.8599999*Q),0
7790 LINE-(171,109),0
7795 FOR M=1 TO 25:NEXT M
7800 NEXT Q
7805 PSET(177,105),0
7810 FOR Q=0 TO 13
7815 LINE(176,103)-(176-Q,103-0.77*Q),1
7820 LINE-(171,109),1
7825 LINE(176,103)-(176-Q,103-0.77*Q)
7830 LINE-(171,109)
7835 FOR M=1 TO 25:NEXT M
7840 NEXT Q
7845 LINE(163,93)-(172,108),1
7850 LINE(168,104)-(172,100),1
7855 PSET(171,109),0
7860 FOR K=1 TO 750:NEXT K
7865 GOSUB 30000 '** Textpad **
7870 PRINT FNCEN$("and REVERSE POCKET FOLD CHICK'S beak!",40)
7875 FOR K=1 TO 1500:NEXT K
7880 FOR Q=0 TO 13
7885 LINE(168,104)-(163+Q,93+0.77*Q),1
7890 LINE-(172,100),1
7895 LINE(168,104)-(163+Q,93+0.77*Q)
7900 LINE-(172,100)
7905 LINE(172,100)-(168,104),1
7910 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
7970 GOSUB 30000 '*** Textpad ***
7975 PRINT FNCEN$("To see those folds again, press <R>.",40)
7980 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
8140 LINE(125,100)-(131,105)
8145 LINE(131,105)-(135,100),0
8150 LINE-(135,105),0
8155 LINE-(131,105),0
8160 FOR K=1 TO 750:NEXT K
8165 FOR K=1 TO 15
8170 PSET(135,92):DRAW"E5L4U7L2D7L4F5"
8175 PAINT(135,86)
8180 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
8235 FOR K=1 TO 15
8240 PSET(158,80):DRAW"E5L4U7L2D7L4F5"
8245 PAINT(158,74)
8250 FOR M=1 TO 25:NEXT M
8255 CIRCLE(158,74),7,0
8260 PAINT(158,74),0
8265 NEXT K
8270 FOR K=1 TO 750:NEXT K
8275 GOSUB 30000 '** Textpad **
8280 PRINT FNCEN$("SO!",40)
8285 FOR K=1 TO 750:NEXT K
8290 FOR H=125 TO 145
8295 LINE(160,130)-(H,100),0
8300 LINE(160,130)-(H,100)
8305 FOR M=1 TO 25:NEXT M
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 FOR M=1 TO 25:NEXT M
8340 NEXT Q
8345 LINE(158,88)-(160,130),0
8350 LINE(159,129)-(161,127)
8355 FOR K=1 TO 750:NEXT K
8360 GOSUB 30000 '** Textpad **
8365 PRINT FNCEN$("and repeat on the hidden side.",40)
8370 FOR K=1 TO 750:NEXT K
8375 FOR H=125 TO 145
8380 LINE(160,130)-(H,100),1
8385 LINE(160,130)-(H,100)
8390 FOR M=1 TO 25:NEXT M
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 FOR M=1 TO 25:NEXT M
8425 NEXT Q
8430 LINE(158,88)-(160,130),0
8435 LINE(159,129)-(161,127)
8440 FOR K=1 TO 750:NEXT K
8445 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
8490 FOR K=1 TO 15
8495 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
8500 PAINT(66,100)
8505 FOR M=1 TO 25:NEXT M
8510 CIRCLE(66,100),7,0
8515 PAINT(66,100),0
8520 NEXT K
8525 FOR K=1 TO 750:NEXT K
8530 GOSUB 30000 '** Textpad **
8535 PRINT FNCEN$("down to this point",40)
8540 FOR K=1 TO 750:NEXT K
8545 FOR K=1 TO 15
8550 CIRCLE(190,125),5
8555 LINE(188,125)-(192,125)
8560 LINE(190,123)-(190,127)
8565 FOR M=1 TO 25:NEXT M
8570 CIRCLE(190,125),5,0
8575 LINE(188,125)-(192,125),0
8580 LINE(190,123)-(190,127),0
8585 NEXT K
8590 FOR K=1 TO 750:NEXT K
8595 GOSUB 30000 '** Textpad **
8600 PRINT FNCEN$("across this line,",40)
8605 FOR K=1 TO 750:NEXT K
8610 LINE(140,100)-(135,120),0
8615 FOR K=1 TO 750:NEXT K
8620 GOSUB 30000 '** Textpad **
8625 PRINT FNCEN$("SO!",40)
8630 FOR K=1 TO 750:NEXT K
8635 FOR Q=0 TO 56
8640 LINE(140,100)-(80+Q,100+0.23*Q),0
8645 LINE-(135,121),0
8650 LINE(140,100)-(79+Q,100+0.23*Q),0
8655 LINE-(135,121),0
8660 NEXT Q
8665 FOR Q=0 TO 54
8670 LINE(140,100)-(136+Q,113+0.22*Q),0
8675 LINE-(135,121),0
8680 LINE(140,100)-(136+Q,113+0.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 FOR K=1 TO 750:NEXT K
8715 GOSUB 30000 '** Textpad **
8720 PRINT FNCEN$("Your turn to fold and backfold.",40)
8725 FOR K=1 TO 1500:NEXT K
8730 PRINT FNCEN$("To see that fold again, press <R>.",40)
8735 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
8885 GOTO 8475
8890 GOSUB 30000 '** Textpad **
8895 PRINT FNCEN$("Next, we fold and backfold this corner",40)
8900 FOR K=1 TO 750:NEXT K
8905 FOR K=1 TO 15
8910 PSET(198,125):DRAW"E5D4R7D2L7D4H5"
8915 PAINT(204,125)
8920 FOR M=1 TO 25:NEXT M
8925 CIRCLE(204,125),7,0
8930 PAINT(204,125),0
8935 NEXT K
8940 FOR K=1 TO 750:NEXT K
8945 GOSUB 30000 '** Textpad **
8950 PRINT FNCEN$("down to this point",40)
8955 FOR K=1 TO 750:NEXT K
8960 FOR K=1 TO 15
8965 CIRCLE(135,150),5
8970 LINE(133,150)-(137,150)
8975 LINE(135,148)-(135,152)
8980 FOR M=1 TO 25:NEXT M
8985 CIRCLE(135,150),5,0
8990 LINE(133,150)-(137,150),0
8995 LINE(135,148)-(135,152),0
9000 NEXT K
9005 FOR K=1 TO 750:NEXT K
9010 GOSUB 30000 '** Textpad **
9015 PRINT FNCEN$("across this line,",40)
9020 FOR K=1 TO 750:NEXT K
9025 FOR K=1 TO 15
9030 LINE(148,105)-(156,123),1
9035 FOR M=1 TO 25:NEXT M
9040 LINE(148,105)-(156,123),0
9045 NEXT K
9050 FOR K=1 TO 750:NEXT K
9055 GOSUB 30000 '** Textpad **
9060 PRINT FNCEN$("SO!",40)
9065 FOR K=1 TO 750:NEXT K
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+0.46*Q)
9090 LINE-(156,123)
9095 LINE(148,105)-(190-Q,125+0.46*Q),0
9100 LINE(148,105)-(191-Q,125+0.46*Q),0
9105 LINE(148,105)-(168-0.27*Q,110+0.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+0.45*Q),0
9165 LINE-(156,123),0
9170 LINE(148,105)-(164-Q,137+0.45*Q)
9175 LINE-(156,123)
9180 LINE(156,123)-(164-Q,137+0.45*Q),0
9185 FOR M=1 TO 50:NEXT M
9190 LINE(156,123)-(160-0.24*Q,130-0.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 FOR K=1 TO 1500:NEXT K
9240 PRINT FNCEN$("To see that fold again, press <R>.",40)
9245 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
9420 FOR K=1 TO 15
9425 PSET(135,158):DRAW"G5R4D7R2U7R4H5"
9430 PAINT(135,164)
9435 FOR M=1 TO 25:NEXT M
9440 CIRCLE(135,164),7,0
9445 PAINT(135,164),0
9450 NEXT K
9455 FOR K=1 TO 750:NEXT K
9460 GOSUB 30000 '** Textpad **
9465 PRINT FNCEN$("over to this point",40)
9470 FOR K=1 TO 750:NEXT K
9475 FOR K=1 TO 15
9480 CIRCLE(160,140),5
9485 LINE(158,140)-(162,140)
9490 LINE(160,138)-(160,142)
9495 FOR M=1 TO 25:NEXT M
9500 CIRCLE(160,140),5,0
9505 LINE(158,140)-(162,140),0
9510 LINE(160,138)-(160,142),0
9515 NEXT K
9520 FOR K=1 TO 750:NEXT K
9525 GOSUB 30000 '** Textpad **
9530 PRINT FNCEN$("across this line,",40)
9535 FOR K=1 TO 750:NEXT K
9540 LINE(143,124)-(146,135),0
9545 FOR K=1 TO 750:NEXT K
9550 GOSUB 30000 '** Textpad **
9555 PRINT FNCEN$("SO!",40)
9560 FOR K=1 TO 750:NEXT K
9565 FOR Q=0 TO 14
9570 LINE(143,124)-(135+Q,150-0.36*Q)
9575 LINE-(146,135)
9580 LINE(143,124)-(135+Q,150-0.36*Q),0
9585 FOR M=1 TO 10:NEXT M
9590 NEXT Q
9595 FOR Q=O TO 11
9600 LINE(143,124)-(149+Q,145-0.45*Q),0
9605 LINE(143,124)-(149+Q,145-0.45*Q)
9610 LINE-(146,135)
9615 LINE(146,135)-(149+Q,145-0.45*Q),0
9620 LINE(146,135)-(148+Q,145-0.45*Q),0
9625 PSET(147,143),0
9630 FOR M=1 TO 10:NEXT M
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 FOR K=1 TO 1500:NEXT K
9660 PRINT FNCEN$("To see that fold again, press <R>.",40)
9665 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
9820 GOSUB 30000 '** Textpad **
9825 PRINT FNCEN$("One moment, please.",40)
9830 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
9970 GOSUB 30000 '** Textpad **
9975 PRINT FNCEN$("We take this corner",40)
9980 FOR K=1 TO 750:NEXT K
9985 FOR K=1 TO 15
9990 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
9995 PAINT(66,100)
10000 FOR M=1 TO 25:NEXT M
10005 CIRCLE(66,100),7,0
10010 PAINT(66,100),0
10015 NEXT K
10020 FOR K=1 TO 750:NEXT K
10025 GOSUB 30000 '** Textpad **
10030 PRINT FNCEN$("down to this point again",40)
10035 FOR K=1 TO 750:NEXT K
10040 FOR K=1 TO 15
10045 CIRCLE(190,125),5
10050 LINE(188,125)-(192,125)
10055 LINE(190,123)-(190,127)
10060 FOR M=1 TO 25:NEXT M
10065 CIRCLE(190,125),5,0
10070 LINE(188,125)-(192,125),0
10075 LINE(190,123)-(190,127),0
10080 NEXT K
10085 FOR K=1 TO 750:NEXT K
10090 GOSUB 30000 '** Textpad **
10095 PRINT FNCEN$("across this crease,",40)
10100 FOR K=1 TO 1500:NEXT K
10105 FOR K=1 TO 25
10110 LINE(140,100)-(135,120),1
10115 FOR M=1 TO 25:NEXT M
10120 LINE(140,100)-(135,120),0
10125 NEXT K
10130 FOR K=1 TO 750:NEXT K
10135 GOSUB 30000 '** Textpad **
10140 PRINT FNCEN$("but with this difference:",40)
10145 FOR K=1 TO 1500:NEXT K
10150 GOSUB 30000 '** Textpad **
10155 PRINT FNCEN$("our next fold is an INSIDE REVERSE FOLD",40)
10160 FOR K=1 TO 1500:NEXT K
10165 GOSUB 30000 '** Textpad **
10170 PRINT FNCEN$("that tucks into this pocket,",40)
10175 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
10235 CIRCLE(160,149),7,0
10240 PAINT(160,149),0
10245 NEXT K
10250 FOR K=1 TO 750:NEXT K
10255 GOSUB 30000 '** Textpad **
10260 PRINT FNCEN$("SO!",40)
10265 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
10375 GOSUB 30000 '** Textpad **
10380 PRINT FNCEN$("To review that fold, press <R>.",40)
10385 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
10430 GOTO 9805 '***6825***
10435 GOSUB 30000 '** Textpad **
10440 PRINT FNCEN$("We next fold CHICK's wings",40)
10445 FOR K=1 TO 1500:NEXT K
10450 GOSUB 30000 '** Textpad **
10455 PRINT FNCEN$("back to where they were,",40)
10460 FOR K=1 TO 1500:NEXT K
10465 GOSUB 30000 '** Textpad **
10470 PRINT FNCEN$("both in front",40)
10475 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 10:NEXT M
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 FOR M=1 TO 10:NEXT M
10560 NEXT H
10565 LINE(125,100)-(160,130),0
10570 FOR K=1 TO 750:NEXT K
10575 GOSUB 30000 '** Textpad **
10580 PRINT FNCEN$("and in back,",40)
10585 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 10:NEXT M
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 FOR M=1 TO 10:NEXT M
10670 NEXT H
10675 LINE(125,100)-(160,130),0
10680 FOR K=1 TO 750:NEXT K
10685 GOSUB 30000 '** Textpad **
10690 PRINT FNCEN$("and again fold this corner",40)
10695 FOR K=1 TO 1500:NEXT K
10700 FOR K=1 TO 15
10705 PSET(198,125):DRAW"E5D4R7D2L7D4H5"
10710 PAINT(204,125)
10715 FOR M=1 TO 25:NEXT M
10720 CIRCLE(204,125),7,0
10725 PAINT(204,125),0
10730 NEXT K
10735 FOR K=1 TO 750:NEXT K
10740 GOSUB 30000 '** Textpad **
10745 PRINT FNCEN$("down to this point",40)
10750 FOR K=1 TO 750:NEXT K
10755 FOR K=1 TO 15
10760 CIRCLE(135,150),5
10765 LINE(133,150)-(137,150)
10770 LINE(135,148)-(135,152)
10775 FOR M=1 TO 25:NEXT M
10780 CIRCLE(135,150),5,0
10785 LINE(133,150)-(137,150),0
10790 LINE(135,148)-(135,152),0
10795 NEXT K
10800 FOR K=1 TO 750:NEXT K
10805 GOSUB 30000 '** Textpad **
10810 PRINT FNCEN$("in another INSIDE REVERSE FOLD,",40)
10815 FOR K=1 TO 1500:NEXT K
10820 GOSUB 30000 '** Textpad **
10825 PRINT FNCEN$("SO!",40)
10830 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
11020 GOSUB 30000 '** Textpad **
11025 PRINT FNCEN$("To review that fold, press <R>.",40)
11030 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
11185 GOTO 10685
11190 GOSUB 30000 '** Textpad **
11195 PRINT FNCEN$("Our last fold",40)
11200 FOR K=1 TO 1500:NEXT K
11205 PRINT FNCEN$("is also an INSIDE REVERSE FOLD",40)
11210 FOR K=1 TO 1500:NEXT K
11215 GOSUB 30000 '** Textpad **
11220 PRINT FNCEN$("which takes this corner",40)
11225 FOR K=1 TO 750:NEXT K
11230 FOR K=1 TO 15
11235 PSET(135,158):DRAW"G5R4D7R2U7R4H5"
11240 PAINT(135,164)
11245 FOR M=1 TO 25:NEXT M
11250 CIRCLE(135,164),7,0
11255 PAINT(135,164),0
11260 NEXT K
11265 FOR K=1 TO 750:NEXT K
11270 GOSUB 30000 '** Textpad **
11275 PRINT FNCEN$("over again to this point",40)
11280 FOR K=1 TO 750:NEXT K
11285 FOR K=1 TO 15
11290 CIRCLE(160,140),5
11295 LINE(158,140)-(162,140)
11300 LINE(160,138)-(160,142)
11305 FOR M=1 TO 25:NEXT M
11310 CIRCLE(160,140),5,0
11315 LINE(158,140)-(162,140),0
11320 LINE(160,138)-(160,142),0
11325 NEXT K
11330 FOR K=1 TO 750:NEXT K
11335 GOSUB 30000 '** Textpad **
11340 PRINT FNCEN$("across this crease,",40)
11345 FOR K=1 TO 750:NEXT K
11350 LINE(143,124)-(146,135),0
11355 FOR K=1 TO 750:NEXT K
11360 GOSUB 30000 '** Textpad **
11365 PRINT FNCEN$("SO!",40)
11370 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
11490 GOSUB 30000 '** Textpad **
11495 PRINT FNCEN$("To review that fold, press <R>.",40)
11500 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
11710 GOTO 11190
11715 GOSUB 30000 '** Textpad **
11720 PRINT FNCEN$("Our final task is to set CHICK",40)
11725 FOR K=1 TO 1500:NEXT K
11730 GOSUB 30000 '** Textpad **
11735 PRINT FNCEN$("firmly on the ground,",40)
11740 FOR K=1 TO 1500:NEXT K
11745 GOSUB 30000 '** Textpad **
11750 PRINT FNCEN$("SO!",40)
11755 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
11965 GOSUB 30000 '** Textpad **
11970 PRINT FNCEN$("CHICK",40)
11975 FOR K=1 TO 1500:NEXT K
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"a:main"
12040 CHAIN"a:chick"
12045 CHAIN"a:end"
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
CICADA.BAS
10 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
20 LOCATE 12,1:PRINT FNCEN$("CICADA",40)
25 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
30 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
35 PRINT FNCEN$("All Rights Reserved",40)
40 FOR K=1 TO 2500:NEXT K
45 CLS
50 '***Zapsound***
55 FOR A=0 TO 20
60 OUT 66,A:OUT 66,A
65 OUT 97,(INP(97) OR 3)
70 NEXT A
75 SOUND 37,0
80 '***End Zapsound***
85 '*** start draw ***
90 LINE(160,55)-(80,125)
95 LINE-(160,195)
100 LINE-(240,125)
105 LINE-(160,55)
110 GOSUB 30000 '** Textpad **
115 PRINT FNCEN$("Here's CICADA's first fold.",40)
120 FOR K=1 TO 1500:NEXT K
125 FOR H=80 TO 240 STEP 2
130 PSET(H,125)
135 NEXT H
140 FOR K=1 TO 750:NEXT K
145 FOR V=195 TO 125 STEP -1
150 LINE(80,125)-(160,V)
155 LINE-(240,125)
160 LINE(80,125)-(160,V),0
165 LINE-(240,125),0
170 NEXT V
175 FOR V=125 TO 55 STEP -1
180 LINE(80,125)-(160,V)
185 LINE-(240,125)
190 NEXT V
195 FOR K=1 TO 750:NEXT K
200 GOSUB 30000 '*** Textpad***
205 PRINT FNCEN$("Ready? Press <C> to continue.",40)
210 A$=INKEY$:IF A$="" GOTO 210
215 IF A$="C" OR A$="c" GOTO 225
220 GOTO 200
225 GOSUB 30000 '** Textpad **
230 PRINT FNCEN$("The next folds take these corners",40)
235 FOR K=1 TO 750:NEXT K
240 FOR K=1 TO 15
245 PSET(72,125):DRAW"H5D4L7D2R7D4E5"
250 PAINT(66,125)
255 PSET(248,125):DRAW"e5D4r7D2l7D4h5"
260 PAINT(254,125)
265 CIRCLE(66,125),7,0
270 PAINT(66,125),0
275 CIRCLE(254,125),7,0
280 PAINT(254,125),0
285 NEXT K
290 FOR K=1 TO 750:NEXT K
295 GOSUB 30000 '** Textpad **
300 PRINT FNCEN$("up to this corner",40)
305 FOR K=1 TO 750:NEXT K
310 '*** arrow down ***
315 FOR K=1 TO 15
320 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
325 PAINT(160,41)
330 FOR M=1 TO 25:NEXT M
335 CIRCLE(160,41),7,0
340 PAINT(160,41),0
345 NEXT K
350 '***end arrow down ***
355 FOR K=1 TO 750:NEXT K
360 GOSUB 30000 '** Textpad **
365 PRINT FNCEN$("across these lines,",40)
370 FOR K=1 TO 750:NEXT K
375 LINE(120,90)-(160,125),0
380 LINE-(200,90),0
385 FOR K=1 TO 750:NEXT K
390 GOSUB 30000 '** Textpad **
395 PRINT FNCEN$("SO!",40)
400 FOR K=1 TO 750:NEXT K
405 FOR Q=0 TO 40
410 LINE(160,125)-(80+Q,125-0.88*Q),0
415 LINE-(120,90),0
420 LINE(160,125)-(79+Q,125-0.88*Q),0
425 LINE-(120,90),0
430 NEXT Q
435 FOR Q=0 TO 40
440 LINE(160,125)-(120+Q,90-0.88*Q),0
445 LINE-(120,90),0
450 LINE(160,125)-(120+Q,90-0.88*Q)
455 LINE-(120,90)
460 NEXT Q
465 LINE(160,55)-(160,125),0
470 FOR K=1 TO 750:NEXT K
475 FOR Q=0 TO 40
480 LINE(160,125)-(240-Q,125-0.88*Q),0
485 LINE-(200,90),0
490 LINE(160,125)-(241-Q,125-0.88*Q),0
495 LINE-(200,90),0
500 NEXT Q
505 FOR Q=0 TO 40
510 LINE(160,125)-(200-Q,90-0.88*Q),0
515 LINE-(200,90),0
520 LINE(160,125)-(200-Q,90-0.88*Q)
525 LINE-(200,90)
530 NEXT Q
535 LINE(160,55)-(160,125),0
540 FOR K=1 TO 750:NEXT K
545 GOSUB 30000 '*** Textpad***
550 PRINT FNCEN$("OK? Press <C> to continue.",40)
555 A$=INKEY$:IF A$="" GOTO 555
560 IF A$="C" OR A$="c" GOTO 570
565 GOTO 545
570 GOSUB 30000 '** Textpad **
575 PRINT FNCEN$("Let me change scale",40)
580 FOR K=1 TO 1500:NEXT K
585 PRINT FNCEN$("and make myself more comfortable.",40)
590 FOR K=1 TO 1500:NEXT K
595 GOSUB 30000 '** Textpad **
600 PRINT FNCEN$("One moment, please.",40)
605 FOR K=1 TO 1500:NEXT K
610 '***Zapsound***
615 FOR A=0 TO 20
620 OUT 66,A:OUT 66,A
625 OUT 97,(INP(97) OR 3)
630 NEXT A
635 SOUND 37,0
640 GOSUB 30000 '** Textpad **
645 LINE(120,90)-(110,100)
650 LINE-(160,145)
655 LINE-(210,100)
660 LINE-(200,90)
665 LINE(160,55)-(160,125)
670 PAINT(160,135)
675 LINE(160,55)-(160,145),0
680 FOR K=1 TO 750:NEXT K
685 GOSUB 30000 '** Textpad **
690 PRINT FNCEN$("There! That's better!",40)
695 FOR K=1 TO 1500:NEXT K
700 GOSUB 30000 '** Textpad **
705 PRINT FNCEN$("Purely for your reference,",40)
710 FOR K=1 TO 1000:NEXT K
715 PRINT FNCEN$("here's the other center line",40)
720 FOR K=1 TO 1000:NEXT K
725 PRINT FNCEN$("of our figure.",40)
730 FOR K=1 TO 1000:NEXT K
735 FOR H=110 TO 210
740 PSET(H,100),1
745 NEXT H
750 FOR K=1 TO 750:NEXT K
755 GOSUB 30000 '** Textpad **
760 PRINT FNCEN$("Next, these corners",40)
765 FOR K=1 TO 750:NEXT K
770 LINE(155,60)-(165,60),0
775 LINE-(160,65),0
780 LINE-(155,60),0
785 LINE(160,55)-(160,59)
790 FOR K=1 TO 750:NEXT K
795 '*** arrow down ***
800 FOR K=1 TO 15
805 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
810 PAINT(160,41)
815 FOR M=1 TO 25:NEXT M
820 CIRCLE(160,41),7,0
825 PAINT(160,41),0
830 NEXT K
835 '***end arrow down ***
840 LINE(155,60)-(165,60)
845 LINE-(160,65)
850 LINE-(155,60)
855 LINE(160,55)-(160,70),0
860 FOR K=1 TO 750:NEXT K
865 GOSUB 30000 '** Textpad **
870 PRINT FNCEN$("fold down to these points",40)
875 FOR K=1 TO 750:NEXT K
880 '*** flashdot ***
885 FOR K=1 TO 15
890 CIRCLE(145,155),5,3
895 LINE(143,155)-(147,155),3
900 LINE(145,153)-(145,157),3
905 CIRCLE(175,155),5,3
910 LINE(173,155)-(177,155),3
915 LINE(175,153)-(175,157),3
920 CIRCLE(145,155),5,0
925 LINE(143,155)-(147,155),0
930 LINE(145,153)-(145,157),0
935 CIRCLE(175,155),5,0
940 LINE(173,155)-(177,155),0
945 LINE(175,153)-(175,157),0
950 NEXT K
955 FOR K=1 TO 750:NEXT K
960 GOSUB 30000 '*** Textpad***
965 PRINT FNCEN$("across these lines,",40)
970 FOR K=1 TO 750:NEXT K
975 LINE(110,100)-(160,105),0
980 LINE-(210,100),0
985 FOR K=1 TO 750:NEXT K
990 GOSUB 30000 '*** <Textpad> ***
995 PRINT FNCEN$("* Hint *",40)
1000 FOR K=1 TO 750:NEXT K
1005 PRINT FNCEN$("Our straightedge would be helpful here.",40)
1010 FOR K=1 TO 1500:NEXT K
1015 GOSUB 30000 '*** Textpad ***
1020 PRINT FNCEN$("Press <C> to continue.",40)
1025 A$=INKEY$:IF A$="" GOTO 1025
1030 IF A$="C" OR A$="c" GOTO 1040
1035 GOTO 1015
1040 GOSUB 30000 '** Textpad **
1045 PRINT FNCEN$("Fold!",40)
1050 FOR K=1 TO 750:NEXT K
1055 LINE(110,100)-(210,100)
1060 LINE(110,100)-(160,105),0
1065 LINE-(210,100),0
1070 FOR Q=0 TO 100
1075 LINE(110,100)-(160-0.15*Q,56+Q),0
1080 LINE-(160,105),0
1085 LINE(110,100)-(160-0.15*Q,56+Q)
1090 LINE-(160,105)
1095 LINE(110,100)-(160-0.15*Q,55+Q)
1100 LINE-(160,105)
1105 LINE(110,100)-(160,105),0
1110 LINE(160,55)-(160,145),0
1115 NEXT Q
1120 LINE(160,105)-(145,156),0
1125 FOR K=1 TO 750:NEXT K
1130 GOSUB 30000 '** Textpad **
1135 PRINT FNCEN$("and repeat on the other side.",40)
1140 FOR K=1 TO 750:NEXT K
1145 FOR Q=0 TO 100
1150 LINE(210,100)-(160+0.15*Q,56+Q),0
1155 LINE-(160,105),0
1160 LINE(210,100)-(160+0.15*Q,56+Q)
1165 LINE-(160,105)
1170 LINE(210,100)-(160+0.15*Q,55+Q)
1175 LINE-(160,105)
1180 LINE(210,100)-(160,105),0
1185 NEXT Q
1190 LINE(160,105)-(175,156),0
1195 FOR K=1 TO 750:NEXT K
1200 GOSUB 30000 '** Textpad **
1205 PRINT FNCEN$("Press <C> to continue.",40)
1210 A$=INKEY$:IF A$="" GOTO 1210
1215 IF A$="C" OR A$="c" GOTO 1225
1220 GOTO 1200
1225 GOSUB 30000 '** Textpad **
1230 PRINT FNCEN$("The next fold takes this corner",40)
1235 FOR K=1 TO 750:NEXT K
1240 LINE(155,60)-(165,60),0
1245 LINE-(160,65),0
1250 LINE-(155,60),0
1255 LINE(156,59)-(160,56),0
1260 LINE-(164,59),0
1265 LINE-(156,59),0
1270 PAINT(160,58),0
1275 LINE(154,60)-(160,55)
1280 LINE-(166,60)
1285 FOR K=1 TO 750:NEXT K
1290 '*** arrow down ***
1295 FOR K=1 TO 15
1300 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
1305 PAINT(160,41)
1310 FOR M=1 TO 25:NEXT M
1315 CIRCLE(160,41),7,0
1320 PAINT(160,41),0
1325 NEXT K
1330 '***end arrow down ***
1335 FOR K=1 TO 750:NEXT K
1340 LINE(155,60)-(165,60)
1345 LINE-(160,65)
1350 LINE-(155,60)
1355 LINE(156,59)-(160,56)
1360 LINE-(164,59)
1365 PAINT(160,58)
1370 FOR K=1 TO 750:NEXT K
1375 GOSUB 30000 '** Textpad **
1380 PRINT FNCEN$("down to this point",40)
1385 FOR K=1 TO 750:NEXT K
1390 '*** flashdot ***
1395 FOR K=1 TO 15
1400 CIRCLE(160,125),5,0
1405 LINE(158,125)-(162,125),0
1410 LINE(160,123)-(160,127),0
1415 FOR M=1 TO 25:NEXT M
1420 CIRCLE(160,125),5
1425 LINE(158,125)-(162,125)
1430 LINE(160,123)-(160,127)
1435 NEXT K
1440 LINE(160,120)-(160,130),0
1445 FOR K=1 TO 750:NEXT K
1450 GOSUB 30000 '** Textpad **
1455 PRINT FNCEN$("across this line,",40)
1460 FOR K=1 TO 750:NEXT K
1465 FOR H=120 TO 200 STEP 2
1470 PSET(H,90),0
1475 NEXT H
1480 FOR K=1 TO 750:NEXT K
1485 GOSUB 30000 '** Textpad **
1490 PRINT FNCEN$("THUS!",40)
1495 FOR K=1 TO 750:NEXT K
1500 LINE(157,57)-(124,86),0
1505 LINE(163,57)-(196,86),0
1510 FOR V=55 TO 90
1515 LINE(120,90)-(160,V),0
1520 LINE-(200,90),0
1525 LINE(120,90)-(160,55)
1530 LINE-(200,90)
1535 NEXT V
1540 FOR V=90 TO 125
1545 LINE(120,90)-(160,V),0
1550 LINE-(200,90),0
1555 LINE(120,90)-(200,90)
1560 NEXT V
1565 LINE(200,90)-(160,125),0
1570 LINE-(200,90),0
1575 FOR K=1 TO 750:NEXT K
1580 GOSUB 30000 '*** Textpad***
1585 PRINT FNCEN$("Your turn. Press <C> to continue.",40)
1590 A$=INKEY$:IF A$="" GOTO 1590
1595 IF A$="C" OR A$="c" GOTO 1605
1600 GOTO 1580
1605 GOSUB 30000 '** Textpad **
1610 PRINT FNCEN$("Now, this corner",40)
1615 FOR K=1 TO 750:NEXT K
1620 '*** arrow down ***
1625 FOR K=1 TO 15
1630 PSET(160,47):DRAW"E5L4U7L2D7L4F5"
1635 PAINT(160,41)
1640 FOR M=1 TO 25:NEXT M
1645 CIRCLE(160,41),7,0
1650 PAINT(160,41),0
1655 NEXT K
1660 '***end arrow down ***
1665 FOR K=1 TO 750:NEXT K
1670 GOSUB 30000 '** Textpad **
1675 PRINT FNCEN$("folds down to this point",40)
1680 FOR K=1 TO 750:NEXT K
1685 '*** flashdot ***
1690 FOR K=1 TO 15
1695 CIRCLE(160,115),5
1700 LINE(158,115)-(162,115)
1705 LINE(160,113)-(160,117)
1710 FOR M=1 TO 25:NEXT M
1715 CIRCLE(160,115),5,0
1720 LINE(158,115)-(162,115),0
1725 LINE(160,113)-(160,117),0
1730 NEXT K
1735 FOR K=1 TO 750:NEXT K
1740 GOSUB 30000 '** Textpad **
1745 PRINT FNCEN$("over this line,",40)
1750 FOR K=1 TO 750:NEXT K
1755 FOR H=126 TO 194 STEP 2
1760 PSET(H,85)
1765 NEXT H
1770 FOR K=1 TO 750:NEXT K
1775 GOSUB 30000 '** Textpad **
1780 PRINT FNCEN$("SO!",40)
1785 FOR K=1 TO 750:NEXT K
1790 LINE(126,85)-(146,67),0
1795 LINE(174,67)-(194,85),0
1800 PSET(131,80),0:PSET(189,80),0
1805 FOR V=55 TO 85
1810 LINE(126,85)-(160,V)
1815 LINE-(194,85)
1820 LINE(126,85)-(160,V),0
1825 LINE-(194,85),0
1830 NEXT V
1835 FOR V=85 TO 115
1840 LINE(126,85)-(160,V)
1845 LINE-(194,85)
1850 NEXT V
1855 FOR K=1 TO 750:NEXT K
1860 GOSUB 30000 '*** Textpad***
1865 PRINT FNCEN$("There! Your turn. <C> to continue.",40)
1870 A$=INKEY$:IF A$="" GOTO 1870
1875 IF A$="C" OR A$="c" GOTO 1885
1880 GOTO 1860
1885 GOSUB 30000 '** Textpad **
1890 PRINT FNCEN$("Our next folds are on the hidden side.",40)
1895 FOR K=1 TO 1500:NEXT K
1900 GOSUB 30000 '*** Textpad***
1905 PRINT FNCEN$("We'll flip over.",40)
1910 FOR K=1 TO 1500:NEXT K
1915 GOSUB 30000 '*** Textpad***
1920 PRINT FNCEN$("One moment, please.",40)
1925 FOR K=1 TO 1500:NEXT K
1930 '***Zapsound***
1935 CLS
1940 FOR A=0 TO 20
1945 OUT 66,A:OUT 66,A
1950 OUT 97,(INP(97) OR 3)
1955 NEXT A
1960 SOUND 37,0
1965 LINE(126,85)-(110,100)
1970 LINE-(145,155)
1975 LINE-(151,137)
1980 LINE-(160,145)
1985 LINE-(169,137)
1990 LINE-(175,155)
1995 LINE-(210,100)
2000 LINE-(194,85)
2005 LINE-(126,85)
2010 PAINT(160,100)
2015 LINE(110,100)-(160,145),0
2020 LINE-(210,100),0
2025 FOR K=1 TO 750:NEXT K
2030 GOSUB 30000 '** Textpad **
2035 PRINT FNCEN$("Again for your reference,",40)
2040 FOR K=1 TO 1000:NEXT K
2045 PRINT FNCEN$("here's the center line",40)
2050 FOR K=1 TO 1000:NEXT K
2055 PRINT FNCEN$("of our figure.",40)
2060 FOR K=1 TO 1000:NEXT K
2065 FOR V=85 TO 145 STEP 2
2070 PSET(160,V),0
2075 NEXT V
2080 FOR K=1 TO 750:NEXT K
2085 GOSUB 30000 '** Textpad **
2090 PRINT FNCEN$("Our final folds take these corners",40)
2095 FOR K=1 TO 1500:NEXT K
2100 FOR K=1 TO 15
2105 PSET(126,77):DRAW"E5L4U7L2D7L4F5"
2110 PAINT(126,71)
2115 PSET(194,77):DRAW"E5L4U7L2D7L4F5"
2120 PAINT(194,71)
2125 CIRCLE(126,71),7,0
2130 PAINT(126,71),0
2135 CIRCLE(194,71),7,0
2140 PAINT(194,71),0
2145 NEXT K
2150 '***end arrow down ***
2155 FOR K=1 TO 750:NEXT K
2160 GOSUB 30000 '** Textpad **
2165 PRINT FNCEN$("down to this point",40)
2170 FOR K=1 TO 750:NEXT K
2175 '*** flashdot ***
2180 FOR K=1 TO 15
2185 CIRCLE(160,97),5,0
2190 LINE(158,97)-(162,97),0
2195 LINE(160,95)-(160,99),0
2200 FOR M=1 TO 25:NEXT M
2205 CIRCLE(160,97),5
2210 LINE(158,97)-(162,97)
2215 LINE(160,95)-(160,99)
2220 NEXT K
2225 FOR V=85 TO 145 STEP 2
2230 PSET(160,V),0
2235 NEXT V
2240 FOR K=1 TO 750:NEXT K
2245 GOSUB 30000 '** Textpad **
2250 PRINT FNCEN$("over these lines,",40)
2255 FOR K=1 TO 750:NEXT K
2260 LINE(145,85)-(126,124),0
2265 LINE(175,85)-(194,124),0
2270 FOR K=1 TO 750:NEXT K
2275 GOSUB 30000 '*** <Textpad> ***
2280 PRINT FNCEN$("* Hint *",40)
2285 FOR K=1 TO 750:NEXT K
2290 PRINT FNCEN$("Straightedge?",40)
2295 FOR K=1 TO 1500:NEXT K
2300 GOSUB 30000 '*** Textpad ***
2305 PRINT FNCEN$("Press <C> to continue.",40)
2310 A$=INKEY$:IF A$="" GOTO 2310
2315 IF A$="C" OR A$="c" GOTO 2325
2320 GOTO 2300
2325 GOSUB 30000 '** Textpad **
2330 PRINT FNCEN$("SO!",40)
2335 FOR K=1 TO 750:NEXT K
2340 LINE(114,107)-(126,125),0
2345 FOR Q=0 TO 23
2350 LINE(145,85)-(125+0.74*Q,85+0.26*Q),0
2355 LINE-(110+Q,100+0.39*Q),0
2360 LINE-(125,125),0
2365 LINE(145,85)-(124+0.74*Q,85+0.26*Q),0
2370 LINE-(109+Q,100+0.39*Q),0
2375 NEXT Q
2380 PSET(131,110),0
2385 FOR Q=0 TO 27
2390 LINE(145,85)-(142+0.67*Q,91+0.22*Q),0
2395 LINE-(133+Q,109+0.33*Q),0
2400 LINE-(126,124),0
2405 LINE(145,85)-(142+0.67*Q,91+0.22*Q)
2410 LINE-(133+Q,109+0.33*Q)
2415 LINE-(126,124)
2420 LINE(139+0.78*Q,97)-(136+0.89*Q,104),0
2425 LINE(138+0.78*Q,97)-(135+0.89*Q,104),0
2430 LINE(145,85)-(126,124)
2435 NEXT Q
2440 LINE(145,85)-(160,97),0
2445 LINE-(160,118),0
2450 LINE-(126,124),0
2455 FOR K=1 TO 750:NEXT K
2460 GOSUB 30000 '** Textpad **
2465 PRINT FNCEN$("and repeat on the other side.",40)
2470 FOR K=1 TO 750:NEXT K
2475 FOR Q=0 TO 23
2480 LINE(175,85)-(195-0.74*Q,85+0.26*Q),0
2485 LINE-(210-Q,100+0.39*Q),0
2490 LINE-(195,125),0
2495 LINE(175,85)-(196-0.74*Q,85+0.26*Q),0
2500 LINE-(211-Q,100+0.39*Q),0
2505 NEXT Q
2510 PSET(189,110),0
2515 FOR Q=0 TO 27
2520 LINE(175,85)-(178-0.67*Q,91+0.22*Q),0
2525 LINE-(187-Q,109+0.33*Q),0
2530 LINE-(194,124),0
2535 LINE(175,85)-(178-0.67*Q,91+0.22*Q)
2540 LINE-(187-Q,109+0.33*Q)
2545 LINE-(194,124)
2550 LINE(181-0.78*Q,97)-(184-0.89*Q,104),0
2555 LINE(182-0.78*Q,97)-(185-0.89*Q,104),0
2560 LINE(175,85)-(194,124)
2565 NEXT Q
2570 LINE(145,85)-(175,96),3,BF
2575 LINE(145,85)-(160,96),0
2580 LINE(175,85)-(160,96),0
2585 LINE-(160,118),0
2590 LINE-(194,124),0
2595 LINE(160,97)-(160,104)
2600 FOR K=1 TO 750:NEXT K
2605 GOSUB 30000 '** Textpad **
2610 PRINT FNCEN$("There! All folds completed!",40)
2615 FOR K=1 TO 1500:NEXT K
2620 GOSUB 30000 '*** <Textpad> ***
2625 PRINT FNCEN$("Care to review those last folds?",40)
2630 FOR K=1 TO 1500:NEXT K
2635 GOSUB 30000 '** Textpad **
2640 PRINT FNCEN$("If so, press <R> to review.",40)
2645 FOR K=1 TO 1000:NEXT K
2650 PRINT FNCEN$("If not, press <C> to continue.",40)
2655 A$=INKEY$:IF A$="" GOTO 2655
2660 IF A$="R" OR A$="r" GOTO 2675
2665 IF A$="C" OR A$="c" GOTO 2695
2670 GOTO 2635
2675 GOSUB 30000 '*** <Textpad> ***
2680 PRINT FNCEN$("* Review *",40)
2685 FOR K=1 TO 1500:NEXT K
2690 GOTO 1935
2695 GOSUB 30000 '** Textpad **
2700 PRINT FNCEN$("Let's flip over to CICADA's formal side.",40)
2705 FOR K=1 TO 1500:NEXT K
2710 GOSUB 30000 '** Textpad **
2715 PRINT FNCEN$("One moment, please.",40)
2720 FOR K=1 TO 750:NEXT K
2725 CLS
2730 FOR A=0 TO 20
2735 OUT 66,A:OUT 66,A
2740 OUT 97,(INP(97) OR 3)
2745 NEXT A
2750 SOUND 37,0
2755 LINE(145,85)-(125,125)
2760 LINE-(145,155)
2765 LINE-(151,137)
2770 LINE-(160,145)
2775 LINE-(169,137)
2780 LINE-(175,155)
2785 LINE-(195,125)
2790 LINE-(175,85)
2795 LINE-(145,85)
2800 PAINT(160,100)
2805 LINE(120,90)-(160,125),0
2810 LINE-(200,90),0
2815 LINE(125,85)-(160,115),0
2820 LINE-(195,85),0
2825 PAINT(160,120),0
2830 LINE(145,85)-(125,125)
2835 LINE(175,85)-(195,125)
2840 LINE(146,155)-(155,121),0
2845 LINE(174,155)-(165,121),0
2850 LINE(160,126)-(160,145),0
2855 FOR K=1 TO 750:NEXT K
2860 GOSUB 30000 '** Textpad **
2865 PRINT FNCEN$("There!",40)
2870 FOR K=1 TO 1500:NEXT K
2875 GOSUB 30000 '*** <Textpad> ***
2880 PRINT FNCEN$("We'll give CICADA some eyes.",40)
2885 FOR K=1 TO 1500:NEXT K
2890 FOR A=0 TO 20
2895 OUT 66,A:OUT 66,A
2900 OUT 97,(INP(97) OR 3)
2905 NEXT A
2910 SOUND 37,0
2915 LINE(170,85)-(177,89),0
2920 LINE-(175,85),0
2925 LINE-(170,85),0
2930 PAINT(174,86),0
2935 LINE(170,85)-(177,89)
2940 LINE-(172,89),0
2945 LINE-(170,85),0
2950 LINE(150,85)-(143,89),0
2955 LINE-(145,85),0
2960 LINE-(150,85),0
2965 PAINT(146,86),0
2970 LINE(150,85)-(143,89)
2975 LINE-(148,89),0
2980 LINE-(150,85),0
2985 LINE(173,88)-(174,87),0
2990 LINE(147,88)-(146,87),0
2995 GOSUB 30000 '** Textpad **
3000 PRINT FNCEN$("Mission accomplished!",40)
3005 FOR K=1 TO 1500:NEXT K
3010 GOSUB 30000 '*** Textpad ***
3015 PRINT FNCEN$(" Press <1> - Return to MAIN MENU.",40)
3020 PRINT FNCEN$(" (2) - Repeat CICADA.",40)
3025 PRINT FNCEN$(" <3> - Exit from program.",40)
3030 E$=INPUT$(1)
3035 IF E$<"1" OR E$>"3" GOTO 3030
3040 SEL=VAL(E$)
3045 COMMON SEL
3050 CLS
3055 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
3056 LINE(70,75)-(250,125),3,B
3060 ON SEL GOTO 3065,3070,3075
3065 CHAIN"a:main"
3070 CHAIN"a:cicada
3075 CHAIN"a:end"
9860 GOSUB 30000 '*** <Textpad> ***
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
END.BAS
10 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2+V$
20 CLS
30 LOCATE 9,9:PRINT"That was a good session."
40 FOR K=1 TO 1500:NEXT K
50 LOCATE 12,5:PRINT"See you again soon for another."
60 FOR K=1 TO 1500:NEXT K
70 LOCATE 23,1
80 END
FILES408.TXT
------------------------------------------------------------------------
Disk No 408 ORIGAMI v1 DS2
-------------------------------------------------------------------------
This disk will introduce you to Origami, the ancient art of paper folding.
It will show you the basic beginings (the main starting folds), and show
you how to create many paper scultures with step-by-step graphic instructions.
CHICK BAS Basic program that shows you how to fold a paper chicken
SHARE BAS Program and suggested donation info
MAIN BAS Main menu Program
INTRO BAS An introduction to origami
RABBIT BAS How to fold yourself a rabbit
JET BAS " " " " " jet plane
WATERFOW BAS " " " " " duck
CANDY BAS " " " " " candy box
PENGUIN BAS " " " " " penguin
BOXES BAS " " " " two kind of boxes
HELMET BAS A two part exercise (1st - a samurai helmut, 2nd - a grouper)
BALLOON BAS How to fold yourself a balloon
PIG BAS " " " " " pig
CICADA BAS " " " " " cicada (?)
END BAS End message to main program
PUPPY BAS How to fold yourself a puppy
TITLEPG BAS Run this to start the program (Main Program Starter)
STATS BAS File that lists the stats for origami program files
PC Software Interest Group (PC-SIG)
1030 E Duane, Suite J
Sunnyvale, CA 94086
(408) 730-9291
HELMET.BAS
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$("SAMURAI HELMET/GROUPER",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 FOR K=1 TO 3500:NEXT K
45 CLS
50 LOCATE 10,1:PRINT FNCEN$("We will first fold SAMURAI HELMET",40)
55 FOR K=1 TO 2000:NEXT K
60 PRINT:PRINT FNCEN$("and then transform HELMET into GROUPER.",40)
65 FOR K=1 TO 2500:NEXT K
70 PRINT:PRINT FNCEN$("What's a GROUPER?",40)
75 FOR K=1 TO 1500:NEXT K
80 PRINT:PRINT:PRINT FNCEN$("You'll see.",40)
85 FOR K=1 TO 1500:NEXT K
90 CLS
95 LOCATE 12,1
100 PRINT FNCEN$("One moment, please.",40)
105 FOR K=1 TO 1500:NEXT K
110 '***Zapsound***
115 FOR A=0 TO 20
120 OUT 66,A:OUT 66,A
125 OUT 97,(INP(97) OR 3)
130 NEXT A
135 SOUND 37,0
140 CLS
145 FOR K=1 TO 250:NEXT K
150 LINE(160,30)-(240,100)
155 LINE-(160,170)
160 LINE-(80,100)
165 LINE-(160,30)
170 FOR K=1 TO 750:NEXT K
175 GOSUB 30000 '** Textpad **
180 PRINT FNCEN$("Here's our first fold.",40)
185 FOR K=1 TO 1500:NEXT K
190 FOR H=80 TO 240 STEP 2
195 PSET(H,100)
200 NEXT H
205 FOR K=1 TO 750:NEXT K
210 FOR V=30 TO 100
215 LINE(80,100)-(160,V),3
220 LINE-(240,100),3
225 LINE(80,100)-(160,V),0
230 LINE-(240,100),0
235 NEXT V
240 FOR V=100 TO 170
245 LINE(80,100)-(160,V),3
250 LINE-(240,100),3
255 NEXT V
260 GOSUB 30000 '*** Textpad ***
265 PRINT FNCEN$("Press <C> to continue.",40)
270 A$=INKEY$:IF A$="" GOTO 270
275 IF A$="C" OR A$="c" GOTO 285
280 GOTO 260
285 GOSUB 30000 '** Textpad **
290 PRINT FNCEN$("These corners",40)
295 FOR K=1 TO 1500:NEXT K
300 '*** arrow right ***
305 FOR K=1 TO 15
310 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
315 PAINT(66,100)
320 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
325 PAINT(254,100)
330 'FOR M=1 TO 25:NEXT M
335 CIRCLE(66,100),7,0
340 PAINT(66,100),0
345 CIRCLE(254,100),7,0
350 PAINT(254,100),0
355 NEXT K
360 '***end arrow right ***
365 FOR K=1 TO 250:NEXT K
370 GOSUB 30000 '** Textpad **
375 PRINT FNCEN$("fold down to this corner",40)
380 FOR K=1 TO 750:NEXT K
385 '*** arrow up ***
390 FOR K=1 TO 15
395 PSET(160,178):DRAW"g5r4d7r2u7r4h5"
400 PAINT(160,184)
405 FOR M=1 TO 25:NEXT M
410 CIRCLE(160,184),7,0
415 PAINT(160,184),0
420 NEXT K
425 FOR K=1 TO 750:NEXT K
430 GOSUB 30000 '** Textpad **
435 PRINT FNCEN$("across these lines,",40)
440 FOR K=1 TO 1000:NEXT K
445 CIRCLE(160,184),7,0
450 PAINT(160,184),0
455 LINE(120,135)-(160,100),0
460 LINE-(200,135),0
465 FOR K=1 TO 750:NEXT K
470 GOSUB 30000 '** Textpad **
475 PRINT FNCEN$("SO!",40)
480 FOR K=1 TO 1000:NEXT K
485 FOR Q=0 TO 40
490 LINE(160,100)-(80+Q,100+0.8750001*Q),0
495 LINE(160,99)-(80+Q,99+0.8750001*Q),0
500 FOR M=1 TO 50:NEXT M
505 NEXT Q
510 FOR Q=0 TO 40
515 LINE(160,100)-(120+Q,135+0.8750001*Q),0
520 LINE(160,99)-(120+Q,134+0.8750001*Q),0
525 LINE(160,100)-(120+Q,135+0.8750001*Q),3
530 LINE(160,99)-(120+Q,134+0.8750001*Q),3
535 FOR M=1 TO 50:NEXT M
540 NEXT Q
545 LINE(160,100)-(160,170),0
550 FOR K=1 TO 250:NEXT K
555 FOR Q=0 TO 40
560 LINE(160,100)-(240-Q,100+0.8750001*Q),0
565 LINE(160,99)-(240-Q,99+0.8750001*Q),0
570 FOR M=1 TO 50:NEXT M
575 NEXT Q
580 FOR Q=0 TO 40
585 LINE(160,100)-(200-Q,135+0.8750001*Q),0
590 LINE(160,99)-(200-Q,134+0.8750001*Q),0
595 LINE(160,100)-(200-Q,135+0.8750001*Q),3
600 LINE(160,99)-(200-Q,134+0.8750001*Q),3
605 FOR M=1 TO 50:NEXT M
610 NEXT Q
615 LINE(160,100)-(160,170),0
620 FOR K=1 TO 750:NEXT K
625 GOSUB 30000 '** Textpad **
630 PRINT FNCEN$("Now, I'll change scale.",40)
635 FOR K=1 TO 1500:NEXT K
640 GOSUB 30000 '** Textpad **
645 PRINT FNCEN$("One moment, please.",40)
650 FOR K=1 TO 1500:NEXT K
655 '***Zapsound***
660 FOR A=0 TO 20
665 OUT 66,A:OUT 66,A
670 OUT 97,(INP(97) OR 3)
675 NEXT A
680 SOUND 37,0
685 CLS
690 FOR K=1 TO 250:NEXT K
695 LINE(160,30)-(80,100)
700 LINE-(160,170)
705 LINE-(240,100)
710 LINE-(160,30)
715 PAINT(160,100)
720 LINE(160,30)-(160,170),0
725 GOSUB 30000 '*** Textpad ***
730 PRINT FNCEN$("Press <C> to continue.",40)
735 A$=INKEY$:IF A$="" GOTO 735
740 IF A$="C" OR A$="c" GOTO 745
745 GOSUB 30000 '** Textpad **
750 PRINT FNCEN$("These flaps",40)
755 FOR K=1 TO 750:NEXT K
760 LINE(150,160)-(170,160),0
765 LINE-(165,150),0
770 LINE-(160,160),0
775 LINE-(155,150),0
780 LINE-(150,160),0
785 FOR K=1 TO 250:NEXT K
790 FOR K=1 TO 15
795 PSET(160,178):DRAW"g5r4d7r2u7r4h5"
800 PAINT(160,184)
805 FOR M=1 TO 25:NEXT M
810 CIRCLE(160,184),7,0
815 PAINT(160,184),0
820 NEXT K
825 FOR K=1 TO 250:NEXT K
830 GOSUB 30000 '** Textpad **
835 PRINT FNCEN$("fold across this line",40)
840 FOR K=1 TO 750:NEXT K
845 FOR H=80 TO 240 STEP 2
850 PSET(H,100),0
855 NEXT H
860 FOR K=1 TO 750:NEXT K
865 GOSUB 30000 '** Textpad **
870 PRINT FNCEN$("up to here,",40)
875 FOR K=1 TO 750:NEXT K
880 '*** arrow down ***
885 FOR K=1 TO 15
890 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
895 PAINT(160,16)
900 FOR M=1 TO 25:NEXT M
905 CIRCLE(160,16),7,0
910 PAINT(160,16),0
915 NEXT K
920 '***end arrow down ***
925 FOR K=1 TO 750:NEXT K
930 GOSUB 30000 '** Textpad **
935 PRINT FNCEN$("THUS!",40)
940 FOR K=1 TO 750:NEXT K
945 LINE(150,160)-(170,160)
950 LINE-(165,150)
955 LINE-(160,160)
960 LINE-(155,150)
965 LINE-(150,160)
970 LINE(160,150)-(160,170),0
975 FOR V=169 TO 100 STEP -1
980 LINE(239,100)-(161,V-1),0
985 LINE(240,100)-(161,V),0
990 LINE(240,100)-(161,V),3
995 NEXT V
1000 FOR V=100 TO 32 STEP -1
1005 LINE(239,100)-(161,V-1),0
1010 LINE(240,100)-(161,V),0
1015 LINE(239,100)-(161,V-1),3
1020 LINE(240,100)-(161,V),3
1025 LINE(161,100)-(240,100),0
1030 NEXT V
1035 FOR K=1 TO 750:NEXT K
1040 FOR V=169 TO 100 STEP -1
1045 LINE(81,100)-(160,V-1),0
1050 LINE(80,100)-(160,V),0
1055 LINE(80,100)-(160,V),3
1060 NEXT V
1065 FOR V=100 TO 32 STEP -1
1070 LINE(81,100)-(160,V-1),0
1075 LINE(80,100)-(160,V),0
1080 LINE(81,100)-(160,V-1),3
1085 LINE(80,100)-(160,V),3
1090 LINE(80,100)-(240,100),0
1095 LINE(160,30)-(160,100),0
1100 NEXT V
1105 FOR K=1 TO 750:NEXT K
1110 GOSUB 30000 '*** Textpad ***
1115 PRINT FNCEN$("Press <C> to continue.",40)
1120 A$=INKEY$:IF A$="" GOTO 1120
1125 IF A$="C" OR A$="c" GOTO 1135
1130 GOTO 1110
1135 GOSUB 30000 '** Textpad **
1140 PRINT FNCEN$("Execute the next folds so that this edge",40)
1145 FOR K=1 TO 2000:NEXT K
1150 LINE(160,100)-(183,50),0
1155 FOR K=1 TO 250:NEXT K
1160 PSET(179,40):DRAW"u5f2e5f2g5f2l6"
1165 PAINT(183,36)
1170 FOR K=1 TO 750:NEXT K
1175 FOR K=1 TO 25
1180 LINE(160,30)-(183,50),3
1185 LINE(161,31)-(182,50),3
1190 FOR M=1 TO 25:NEXT M
1195 LINE(160,30)-(183,50),2
1200 LINE(161,31)-(182,50),2
1205 NEXT K
1210 CIRCLE(183,37),7,0
1215 PAINT(183,37),0
1220 GOSUB 30000 '** Textpad **
1225 PRINT FNCEN$("ends up parallel to this center line,",40)
1230 FOR K=1 TO 2000:NEXT K
1235 FOR K=1 TO 25
1240 LINE(80,100)-(240,100),3
1245 FOR M=1 TO 25:NEXT M
1250 LINE(80,100)-(240,100),2
1255 NEXT K
1260 FOR K=1 TO 750:NEXT K
1265 GOSUB 30000 '** Textpad **
1270 PRINT FNCEN$("SO!",40)
1275 FOR K=1 TO 250:NEXT K
1280 'LINE(160,30)-(183,50),3
1285 'LINE(161,31)-(182,50),3
1290 FOR K=1 TO 250:NEXT K
1295 FOR Q=0 TO 23
1300 LINE(160,100)-(160+Q,30+0.87*Q),0
1305 LINE(160,100)-(160+Q,30+0.87*Q),3
1310 LINE(160,30)-(160,100),0
1315 FOR M=1 TO 50:NEXT M
1320 NEXT Q
1325 FOR H=183 TO 215
1330 LINE(160,100)-(H,50),0
1335 LINE(160,100)-(H,50),3
1340 LINE(160,100)-(183,50),0
1345 FOR M=1 TO 50:NEXT M
1350 NEXT H
1355 LINE(160,100)-(215,50),0
1360 LINE(184,50)-(214,50),2
1365 FOR K=1 TO 250:NEXT K
1370 GOSUB 30000 '** Textpad **
1375 PRINT FNCEN$("Parallel?",40)
1380 FOR K=1 TO 1500:NEXT K
1385 GOSUB 30000 '** Textpad **
1390 PRINT FNCEN$("Parallel!",40)
1395 FOR K=1 TO 1500:NEXT K
1400 LINE(80,100)-(240,100),0
1405 LINE(184,50)-(214,50)
1410 GOSUB 30000 '** Textpad **
1415 PRINT FNCEN$("Repeat on the other side.",40)
1420 FOR K=1 TO 750:NEXT K
1425 LINE(160,100)-(137,50),0
1430 FOR K=1 TO 750:NEXT K
1435 FOR Q=0 TO 23
1440 LINE(160,100)-(160-Q,30+0.87*Q),0
1445 LINE(160,100)-(160-Q,30+0.87*Q),3
1450 LINE(160,30)-(160,100),0
1455 FOR M=1 TO 50:NEXT M
1460 NEXT Q
1465 FOR H=137 TO 105 STEP -1
1470 LINE(160,100)-(H,50),0
1475 LINE(160,100)-(H,50),3
1480 LINE(160,100)-(137,50),0
1485 FOR M=1 TO 50:NEXT M
1490 NEXT H
1495 LINE(160,100)-(105,50),0
1500 GOSUB 30000 '*** Textpad ***
1505 PRINT FNCEN$("Press <C> to continue.",40)
1510 A$=INKEY$:IF A$="" GOTO 1510
1515 IF A$="C" OR A$="c" GOTO 1525
1520 GOTO 1500
1525 GOSUB 30000 '** Textpad **
1530 PRINT FNCEN$("Our next fold takes this corner",40)
1535 FOR K=1 TO 750:NEXT K
1540 FOR K=1 TO 15
1545 PSET(160,178):DRAW"g5r4d7r2u7r4h5"
1550 PAINT(160,184)
1555 FOR M=1 TO 25:NEXT M
1560 CIRCLE(160,184),7,0
1565 PAINT(160,184),0
1570 NEXT K
1575 LINE(160,170)-(166,165),0
1580 LINE-(160,160),0
1585 LINE-(154,165),0
1590 LINE-(160,170),0
1595 PAINT(160,165),0
1600 LINE(160,170)-(166,165)
1605 LINE-(160,160)
1610 LINE-(154,165)
1615 LINE-(160,170)
1620 LINE(154,165)-(166,165)
1625 FOR K=1 TO 750:NEXT K
1630 GOSUB 30000 '** Textpad **
1635 PRINT FNCEN$("up to this center point of HELMET",40)
1640 FOR K=1 TO 1500:NEXT K
1645 CIRCLE(160,184),7,0
1650 PAINT(160,184),0
1655 PAINT(160,163)
1660 PAINT(160,168)
1665 '*** flashdot ***
1670 FOR K=1 TO 15
1675 CIRCLE(160,65),5,3
1680 LINE(158,65)-(162,65),3
1685 LINE(160,63)-(160,67),3
1690 FOR M=1 TO 25:NEXT M
1695 CIRCLE(160,65),5,0
1700 LINE(158,65)-(162,65),0
1705 LINE(160,63)-(160,67),0
1710 NEXT K
1715 CIRCLE(160,65),5,3
1720 PAINT(160,65),3
1725 LINE(160,50)-(160,80),0
1730 FOR K=1 TO 750:NEXT K
1735 '*** end flashdot ***
1740 GOSUB 30000 '** Textpad **
1745 PRINT FNCEN$("across this line.",40)
1750 FOR K=1 TO 750:NEXT K
1755 FOR H=97 TO 223 STEP 2
1760 PSET(H,115),0
1765 NEXT H
1770 FOR K=1 TO 750:NEXT K
1775 FOR V=170 TO 115 STEP -1
1780 LINE(97,115)-(160,V),0
1785 LINE-(223,115),0
1790 PSET(157,168),0:PSET(163,168),0
1795 LINE(80,100)-(160,170)
1800 LINE-(240,100)
1805 NEXT V
1810 FOR V=115 TO 65 STEP -1
1815 LINE(97,115)-(160,V),0
1820 LINE-(223,115),0
1825 LINE(97,115)-(223,115)
1830 NEXT V
1835 GOSUB 30000 '*** Textpad ***
1840 PRINT FNCEN$("Press <C> to continue.",40)
1845 A$=INKEY$:IF A$="" GOTO 1845
1850 IF A$="C" OR A$="c" GOTO 1860
1855 GOTO 1835
1860 GOSUB 30000 '** Textpad **
1865 PRINT FNCEN$("We next take this edge",40)
1870 FOR K=1 TO 750:NEXT K
1875 PSET(160,123):DRAW"g5r4d7r2u7r4h5"
1880 PAINT(160,129)
1885 FOR K=1 TO 250:NEXT K
1890 FOR K=1 TO 15
1895 LINE(97,115)-(223,115),0
1900 FOR M=1 TO 25:NEXT M
1905 LINE(97,115)-(223,115),3
1910 NEXT K
1915 CIRCLE(160,129),7,0
1920 PAINT(160,129),0
1925 FOR K=1 TO 750:NEXT K
1930 GOSUB 30000 '** Textpad **
1935 PRINT FNCEN$("over this line,",40)
1940 FOR K=1 TO 750:NEXT K
1945 FOR H=115 TO 205 STEP 2
1950 PSET(H,100),3
1955 NEXT H
1960 FOR K=1 TO 750:NEXT K
1965 GOSUB 30000 '** Textpad **
1970 PRINT FNCEN$("SO!",40)
1975 FOR K=1 TO 750:NEXT K
1980 FOR V=115 TO 100 STEP -1
1985 LINE(80,100)-(97,V),3
1990 LINE-(223,V),3
1995 LINE-(240,100),3
2000 LINE(80,100)-(97,V),0
2005 LINE-(223,V),0
2010 LINE-(240,100),0
2015 LINE(80,100)-(160,170)
2020 LINE-(240,100)
2025 FOR M=1 TO 50:NEXT M
2030 NEXT V
2035 FOR V=100 TO 85 STEP -1
2040 LINE(80,100)-(97,V),3
2045 LINE-(223,V),3
2050 LINE-(240,100),3
2055 LINE(80,100)-(97,V),0
2060 LINE-(223,V),0
2065 LINE-(240,100),0
2070 LINE(98,84)-(80,100)
2075 LINE-(240,100)
2080 LINE-(222,84)
2085 FOR M=1 TO 50:NEXT M
2090 NEXT V
2095 LINE(98,84)-(222,84)
2100 GOSUB 30000 '*** Textpad ***
2105 PRINT FNCEN$("Press <C> to continue.",40)
2110 A$=INKEY$:IF A$="" GOTO 2110
2115 IF A$="C" OR A$="c" GOTO 2125
2120 GOTO 2100
2125 GOSUB 30000 '** Textpad **
2130 PRINT FNCEN$("Our final fold takes this corner",40)
2135 FOR K=1 TO 750:NEXT K
2140 FOR K=1 TO 15
2145 PSET(160,178):DRAW"g5r4d7r2u7r4h5"
2150 PAINT(160,184)
2155 FOR M=1 TO 25:NEXT M
2160 CIRCLE(160,184),7,0
2165 PAINT(160,184),0
2170 NEXT K
2175 FOR K=1 TO 750:NEXT K
2180 GOSUB 30000 '** Textpad **
2185 PRINT FNCEN$("up to this corner",40)
2190 FOR K=1 TO 750:NEXT K
2195 '*** arrow down ***
2200 FOR K=1 TO 15
2205 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
2210 PAINT(160,16)
2215 FOR M=1 TO 25:NEXT M
2220 CIRCLE(160,16),7,0
2225 PAINT(160,16),0
2230 NEXT K
2235 '***end arrow down ***
2240 FOR K=1 TO 750:NEXT K
2245 GOSUB 30000 '** Textpad **
2250 PRINT FNCEN$("on the hidden side,",40)
2255 FOR K=1 TO 1500:NEXT K
2260 GOSUB 30000 '** Textpad **
2265 PRINT FNCEN$("THUS!",40)
2270 FOR K=1 TO 750:NEXT K
2275 FOR V=170 TO 100 STEP -1
2280 LINE(80,100)-(160,V),3
2285 LINE-(240,100),3
2290 LINE(80,100)-(160,V),0
2295 LINE-(240,100),0
2300 PSET(157,168),0:PSET(163,168),0
2305 NEXT V
2310 LINE(80,100)-(240,100)
2315 FOR V=100 TO 85 STEP -1
2320 LINE(80,100)-(160,V),1
2325 LINE-(240,100),1
2330 LINE(80,100)-(160,V),0
2335 LINE-(240,100),0
2340 LINE(80,100)-(240,100)
2345 NEXT V
2350 LINE(82,99)-(98,85),1
2355 LINE(238,99)-(222,85),1
2360 FOR V=64 TO 30 STEP -1
2365 LINE(98,84)-(160,V),1
2370 LINE-(222,84),1
2375 LINE(98,84)-(160,V),3
2380 LINE-(222,84),3
2385 LINE(160,65)-(137,83),0
2390 LINE-(183,83),0
2395 PAINT(160,82),0
2400 LINE(130,84)-(190,84),3
2405 LINE(105,50)-(139,81),0
2410 LINE(215,50)-(181,81),0
2415 LINE(148,74)-(137,50),0
2420 LINE(172,74)-(183,50),0
2425 LINE(160,30)-(160,65),0
2430 NEXT V
2435 LINE(98,85)-(160,31),1
2440 LINE-(222,85),1
2445 FOR K=1 TO 750:NEXT K
2450 GOSUB 30000 '** Textpad **
2455 PRINT FNCEN$("And there we have it!",40)
2460 FOR K=1 TO 1500:NEXT K
2465 LINE(82,99)-(160,31)
2470 LINE-(238,99)
2475 LINE(105,50)-(139,81),0
2480 LINE(215,50)-(181,81),0
2485 LINE(148,74)-(137,50),0
2490 LINE(172,74)-(183,50),0
2495 LINE(160,30)-(160,65),0
2500 GOSUB 30000 '** Textpad **
2505 PRINT FNCEN$("SAMURAI HELMET!",40)
2510 FOR K=1 TO 1500:NEXT K
2515 GOSUB 30000 '*** Textpad ***
2520 PRINT FNCEN$("Press <C> to continue.",40)
2525 A$=INKEY$:IF A$="" GOTO 2525
2530 IF A$="C" OR A$="c" GOTO 2540
2535 GOTO 2515
2540 GOSUB 30000 '** Textpad **
2545 PRINT FNCEN$("We now transform HELMET into GROUPER",40)
2550 FOR K=1 TO 1500:NEXT K
2555 GOSUB 30000 '** Textpad **
2560 PRINT FNCEN$("by squashing these corners",40)
2565 FOR K=1 TO 750:NEXT K
2570 PSET(248,100):DRAW"E5D4R7D2L7D4H5"
2575 PAINT(254,100)
2580 PSET(72,100):DRAW"H5D4L7D2R7D4E5"
2585 PAINT(66,100)
2590 FOR K=1 TO 750:NEXT K
2595 GOSUB 30000 '** Textpad **
2600 PRINT FNCEN$("together down to this point,",40)
2605 FOR K=1 TO 750:NEXT K
2610 '*** flashdot ***
2615 FOR K=1 TO 15
2620 CIRCLE(160,170),5,3
2625 LINE(158,170)-(162,170),3
2630 LINE(160,168)-(160,172),3
2635 FOR M=1 TO 25:NEXT M
2640 CIRCLE(160,170),5,0
2645 LINE(158,170)-(162,170),0
2650 LINE(160,168)-(160,172),0
2655 NEXT K
2660 FOR K=1 TO 750:NEXT K
2665 '*** end flashdot ***
2670 GOSUB 30000 '** Textpad **
2675 PRINT FNCEN$("thus effectively flattening HELMET out,",40)
2680 FOR K=1 TO 1500:NEXT K
2685 GOSUB 30000 '** Textpad **
2690 PRINT FNCEN$("SO!",40)
2695 FOR K=1 TO 750:NEXT K
2700 '***Zapsound***
2705 FOR A=0 TO 20
2710 OUT 66,A:OUT 66,A
2715 OUT 97,(INP(97) OR 3)
2720 NEXT A
2725 SOUND 37,0
2730 CLS
2735 '***End Zapsound***
2740 LINE(159,40)-(161,40)
2745 LINE-(162,100)
2750 LINE-(161,160)
2755 LINE-(159,160)
2760 LINE-(158,100)
2765 LINE-(159,40)
2770 FOR K=1 TO 750:NEXT K
2775 GOSUB 30000 '** Textpad **
2780 PRINT FNCEN$("Now, we want to work",40)
2785 FOR K=1 TO 1000:NEXT K
2790 PRINT FNCEN$("with this side of HELMET.",40)
2795 FOR K=1 TO 750:NEXT K
2800 '*** arrow left ***
2805 FOR K=1 TO 15
2810 PSET(170,100):DRAW"E5D4R7D2L7D4H5"
2815 PAINT(176,100)
2820 FOR M=1 TO 25:NEXT M
2825 CIRCLE(176,100),7,0
2830 PAINT(176,100),0
2835 NEXT K
2840 '***end arrow left ***
2845 GOSUB 30000 '** Textpad **
2850 PRINT FNCEN$("One moment, please.",40)
2855 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 250:NEXT K
2900 LINE(160,40)-(90,100)
2905 LINE-(160,160)
2910 LINE-(230,100)
2915 LINE-(160,40)
2920 LINE(111,81)-(160,130)
2925 LINE(160,101)-(160,160)
2930 LINE(160,40)-(160,79)
2935 LINE-(190,100)
2940 LINE-(160,100)
2945 LINE(160,40)-(160,80)
2950 LINE (120,74)-(120,90)
2955 PAINT(140,90)
2960 LINE(120,85)-(155,75),0
2965 LINE-(160,79),0
2970 LINE(131,101)-(160,101),0
2975 FOR K=1 TO 250:NEXT K
2980 GOSUB 30000 '** Textpad **
2985 PRINT FNCEN$("Well, well!",40)
2990 FOR K=1 TO 1000:NEXT K
2995 GOSUB 30000 '** Textpad **
3000 PRINT FNCEN$("Looks faintly like a fish",40)
3005 FOR K=1 TO 1500:NEXT K
3010 PRINT FNCEN$("without a tail.",40)
3015 FOR K=1 TO 1500:NEXT K
3020 GOSUB 30000 '** Textpad **
3025 PRINT FNCEN$("Let's give it a tail!",40)
3030 FOR K=1 TO 1500:NEXT K
3035 GOSUB 30000 '** Textpad **
3040 PRINT FNCEN$("We'll fold this corner",40)
3045 FOR K=1 TO 750:NEXT K
3050 '*** arrow left ***
3055 FOR K=1 TO 15
3060 PSET(238,100):DRAW"E5D4R7D2L7D4H5"
3065 PAINT(244,100)
3070 FOR M=1 TO 25:NEXT M
3075 CIRCLE(244,100),7,0
3080 PAINT(244,100),0
3085 NEXT K
3090 '***end arrow left ***
3095 FOR K=1 TO 750:NEXT K
3100 GOSUB 30000 '** Textpad **
3105 PRINT FNCEN$("across this line",40)
3110 FOR K=1 TO 750:NEXT K
3115 FOR V=84 TO 116 STEP 2
3120 PSET(211,V)
3125 NEXT V
3130 FOR K=1 TO 750:NEXT K
3135 FOR H=230 TO 211 STEP -1
3140 LINE(211,84)-(H,100)
3145 LINE-(211,116)
3150 LINE(211,84)-(H,100),0
3155 LINE-(211,116),0
3160 LINE(213,85)-(220,91),0
3165 LINE(213,115)-(220,109),0
3170 FOR M=1 TO 25:NEXT M
3175 NEXT H
3180 FOR H=211 TO 192 STEP -1
3185 LINE(211,84)-(H,100),3
3190 LINE-(211,116),3
3195 LINE(211,84)-(H,100),0
3200 LINE-(211,116),0
3205 LINE(211,84)-(211,116)
3210 FOR M=1 TO 25:NEXT M
3215 NEXT H
3220 LINE(211,84)-(192,100)
3225 LINE-(211,116)
3230 FOR K=1 TO 750:NEXT K
3235 FOR H=192 TO 211
3240 LINE(211,84)-(H,100),3
3245 LINE-(211,116),3
3250 LINE(211,84)-(H,100),0
3255 LINE-(211,116),0
3260 LINE(211,84)-(211,116)
3265 FOR M=1 TO 25:NEXT M
3270 NEXT H
3275 FOR H=211 TO 230
3280 LINE(211,84)-(H,100)
3285 LINE-(211,116)
3290 LINE(211,84)-(H,100),0
3295 LINE-(211,116),0
3300 LINE(213,85)-(220,91),0
3305 FOR V=84 TO 116 STEP 2
3310 PSET(211,V)
3315 NEXT V
3320 NEXT H
3325 LINE(211,84)-(230,100)
3330 LINE-(211,116)
3335 FOR K=1 TO 750:NEXT K
3340 GOSUB 30000 '** Textpad **
3345 PRINT FNCEN$("and BACKFOLD!",40)
3350 FOR K=1 TO 750:NEXT K
3355 FOR H=230 TO 211 STEP -1
3360 LINE(211,84)-(H,100)
3365 LINE-(211,116)
3370 LINE(211,84)-(H,100),0
3375 LINE-(211,116),0
3380 LINE(213,85)-(220,91),0
3385 LINE(213,115)-(220,109),0
3390 FOR M=1 TO 25:NEXT M
3395 NEXT H
3400 FOR H=211 TO 192 STEP -1
3405 LINE(211,84)-(H,100),1
3410 LINE-(211,116),1
3415 LINE(211,84)-(H,100),0
3420 LINE-(211,116),0
3425 LINE(211,84)-(211,116)
3430 FOR M=1 TO 25:NEXT M
3435 NEXT H
3440 LINE(211,84)-(192,100),1
3445 LINE-(211,116),1
3450 FOR K=1 TO 750:NEXT K
3455 FOR H=192 TO 211
3460 LINE(211,84)-(H,100),1
3465 LINE-(211,116),1
3470 LINE(211,84)-(H,100),0
3475 LINE-(211,116),0
3480 LINE(211,84)-(211,116)
3485 FOR M=1 TO 25:NEXT M
3490 NEXT H
3495 FOR H=211 TO 230
3500 LINE(211,84)-(H,100)
3505 LINE-(211,116)
3510 LINE(211,84)-(H,100),0
3515 LINE-(211,116),0
3520 LINE(213,85)-(220,91),0
3525 FOR V=84 TO 116 STEP 2
3530 PSET(211,V)
3535 NEXT V
3540 NEXT H
3545 LINE(211,84)-(230,100)
3550 LINE-(211,116)
3555 FOR K=1 TO 750:NEXT K
3560 GOSUB 30000 '*** Textpad ***
3565 PRINT FNCEN$("Press <C> to continue.",40)
3570 A$=INKEY$:IF A$="" GOTO 3570
3575 IF A$="C" OR A$="c" GOTO 3585
3580 GOTO 3560
3585 GOSUB 30000 '** Textpad **
3590 PRINT FNCEN$("With a pair of scissors or a penknife,",40)
3595 FOR K=1 TO 1500:NEXT K
3600 LINE(155,165)-(149,169)
3605 LINE-(145,175)
3610 LINE-(151,171)
3615 LINE-(155,165)
3620 CIRCLE(147,177),2
3625 CIRCLE(143,173),2
3630 LINE(155,35)-(151,29)
3635 LINE-(145,25)
3640 LINE-(149,31)
3645 LINE-(155,35)
3650 CIRCLE(143,27),2
3655 CIRCLE(147,23),2
3660 FOR K=1 TO 750:NEXT K
3665 GOSUB 30000 '** Textpad **
3670 CIRCLE(147,23),2
3675 PRINT FNCEN$("we cut along these lines",40)
3680 FOR K=1 TO 750:NEXT K
3685 PSET(164,43),0:PSET(164,157),0
3690 PSET(171,49),0:PSET(171,151),0
3695 PSET(178,55),0:PSET(178,145),0
3700 PSET(185,61),0:PSET(185,139),0
3705 PSET(192,67),0:PSET(192,133),0
3710 PSET(199,73),0:PSET(199,127),0
3715 PSET(206,79),0:PSET(206,121),0
3720 LINE(161,41)-(210,83)
3725 LINE(161,159)-(210,117)
3730 FOR Q=0 TO 49
3735 PSET(161+Q,41+0.8570001*Q),0
3740 PSET(161+Q,41+0.8570001*Q),2
3745 NEXT Q
3750 FOR Q=0 TO 49
3755 PSET(161+Q,159-0.8570001*Q),0
3760 PSET(161+Q,159-0.8570001*Q),2
3765 NEXT Q
3770 GOSUB 30000 '** Textpad **
3775 CIRCLE(147,23),2
3780 PRINT FNCEN$("and on the hidden side",40)
3785 FOR K=1 TO 750:NEXT K
3790 FOR Q=0 TO 49
3795 PSET(161+Q,158-0.8570001*Q),0
3800 PSET(161+Q,158-0.8570001*Q),1
3805 NEXT Q
3810 FOR K=1 TO 750:NEXT K
3815 LINE(140,20)-(155,35),0,BF
3820 LINE(140,164)-(155,180),0,BF
3825 FOR K=1 TO 250:NEXT K
3830 GOSUB 30000 '*** Textpad ***
3835 PRINT FNCEN$("Press <C> to continue.",40)
3840 A$=INKEY$:IF A$="" GOTO 3840
3845 IF A$="C" OR A$="c" GOTO 3855
3850 GOTO 3830
3855 GOSUB 30000 '** Textpad **
3860 PRINT FNCEN$("and unfold!",40)
3865 FOR K=1 TO 750:NEXT K
3870 FOR Q=0 TO 50
3875 LINE(161+Q,41)-(161+Q,159),3
3880 LINE(161+Q,41)-(161+Q,159),0
3885 LINE(161+Q,41+0.8599999*Q)-(161+Q,159-0.8599999*Q)
3890 LINE(155,75)-(191,101),0
3895 LINE-(131,101),0
3900 LINE(160,101)-(160,160),0
3905 NEXT Q
3910 FOR Q=0 TO 51
3915 LINE(211+Q,41)-(211+Q,159),3
3920 LINE(211+Q,41)-(211+Q,159),0
3925 LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q)
3930 LINE(211,84)-(211,116),0
3935 NEXT Q
3940 GOSUB 30000 '** Textpad **
3945 PRINT FNCEN$("and repeat on the hidden side.",40)
3950 FOR K=1 TO 750:NEXT K
3955 FOR Q=0 TO 50
3960 LINE(161+Q,41)-(161+Q,159),3
3965 LINE(161+Q,41)-(161+Q,159),0
3970 LINE(161+Q,41+0.8599999*Q)-(161+Q,159-0.8599999*Q),1
3975 LINE(161+Q,41+0.8599999*Q)-(161+Q,159-0.8599999*Q),3
3980 LINE(155,75)-(191,101),0
3985 LINE-(131,101),0
3990 LINE(160,101)-(160,160),0
3995 NEXT Q
4000 FOR Q=0 TO 51
4005 LINE(211+Q,41)-(211+Q,159),3
4010 LINE(211+Q,41)-(211+Q,159),0
4015 LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q),1
4020 LINE(211+Q,84-0.863*Q)-(211+Q,116+0.863*Q),3
4025 LINE(211,84)-(211,116),0
4030 NEXT Q
4035 IF A$="C" OR A$="c" GOTO 4065
4040 GOSUB 30000 '*** Textpad ***
4045 PRINT FNCEN$("Press <C> to continue.",40)
4050 A$=INKEY$:IF A$="" GOTO 4050
4055 IF A$="C" OR A$="c" GOTO 4065
4060 GOTO 4040
4065 GOSUB 30000 '** Textpad **
4070 PRINT FNCEN$("Now, we'll make our tail",40)
4075 FOR K=1 TO 1500:NEXT K
4080 GOSUB 30000 '** Textpad **
4085 PRINT FNCEN$("a little more tail-like",40)
4090 FOR K=1 TO 1500:NEXT K
4095 GOSUB 30000 '** Textpad **
4100 PRINT FNCEN$("with some judicious cutting away,",40)
4105 FOR K=1 TO 1500:NEXT K
4110 GOSUB 30000 '** Textpad **
4115 PRINT FNCEN$("SO!",40)
4120 FOR K=1 TO 750:NEXT K
4125 LINE(262,40)-(240,100),0
4130 LINE-(262,160),0
4135 PAINT(250,100),0
4140 FOR K=1 TO 750:NEXT K
4145 GOSUB 30000 '*** Textpad ***
4150 PRINT FNCEN$("Press <C> to continue.",40)
4155 A$=INKEY$:IF A$="" GOTO 4155
4160 IF A$="C" OR A$="c" GOTO 4170
4165 GOTO 4145
4170 GOSUB 30000 '** Textpad **
4175 PRINT FNCEN$("Now we'll give GROUPER a flatter belly",40)
4180 FOR K=1 TO 1500:NEXT K
4185 GOSUB 30000 '** Textpad **
4190 PRINT FNCEN$("by folding both these corners",40)
4195 FOR K=1 TO 750:NEXT K
4200 LINE(160,150)-(165,155),0
4205 LINE-(160,160),0
4210 LINE-(160,150),0
4215 PAINT(162,155),0
4220 LINE(160,150)-(165,155)
4225 LINE-(160,160)
4230 LINE-(155,155)
4235 LINE-(160,150)
4240 'LINE-(160,160)
4245 LINE(155,155)-(165,155)
4250 '*** arrow up ***
4255 FOR K=1 TO 15
4260 PSET(160,168):DRAW"g5r4d7r2u7r4h5"
4265 PAINT(160,174)
4270 FOR M=1 TO 25:NEXT M
4275 CIRCLE(160,174),7,0
4280 PAINT(160,174),0
4285 NEXT K
4290 FOR K=1 TO 750:NEXT K
4295 GOSUB 30000 '** Textpad **
4300 PRINT FNCEN$("up over this line",40)
4305 FOR K=1 TO 750:NEXT K
4310 FOR H=126 TO 161 STEP 2
4315 PSET(H,131)
4320 NEXT H
4325 FOR H=161 TO 195 STEP 2
4330 PSET(H,131),0
4335 NEXT H
4340 FOR K=1 TO 750:NEXT K
4345 GOSUB 30000 '** Textpad **
4350 PRINT FNCEN$("on both the seen and hidden sides,",40)
4355 FOR K=1 TO 1500:NEXT K
4360 GOSUB 30000 '** Textpad **
4365 PRINT FNCEN$("SO!",40)
4370 FOR K=1 TO 750:NEXT K
4375 LINE(165,155)-(155,155),0
4380 LINE-(160,150),0
4385 LINE-(161,159)
4390 PAINT(163,155)
4395 LINE(160,150)-(160,159),0
4400 FOR V=160 TO 131 STEP -1
4405 LINE(126,131)-(160,V),3
4410 LINE-(194,131),0
4415 LINE(126,131)-(160,V),0
4420 PSET(160,V)
4425 LINE(126,131)-(160,160)
4430 LINE-(194,131)
4435 NEXT V
4440 FOR V=131 TO 102 STEP -1
4445 LINE(126,131)-(160,V),3
4450 LINE(126,131)-(160,V),0
4455 LINE-(194,131),0
4460 PSET(160,V)
4465 LINE(126,131)-(194,131)
4470 NEXT V
4475 LINE(126,131)-(160,102)
4480 FOR K=1 TO 750:NEXT K
4485 FOR V=160 TO 131 STEP -1
4490 LINE(126,131)-(160,V),3
4495 LINE-(194,131),3
4500 LINE(126,131)-(160,V),0
4505 LINE-(194,131),0
4510 NEXT V
4515 FOR V=131 TO 102 STEP -1
4520 LINE(127,131)-(160,V),1
4525 LINE-(193,131),1
4530 LINE(127,131)-(160,V),0
4535 LINE-(193,131),0
4540 PSET(160,V)
4545 LINE(126,131)-(194,131)
4550 NEXT V
4555 LINE(126,131)-(160,102)
4560 FOR K=1 TO 750:NEXT K
4565 GOSUB 30000 '*** Textpad ***
4570 PRINT FNCEN$("Press <C> to continue.",40)
4575 A$=INKEY$:IF A$="" GOTO 4575
4580 IF A$="C" OR A$="c" GOTO 4590
4585 GOTO 4565
4590 GOSUB 30000 '** Textpad **
4595 PRINT FNCEN$("And now we tuck those flaps",40)
4600 FOR K=1 TO 1500:NEXT K
4605 GOSUB 30000 '** Textpad **
4610 PRINT FNCEN$("into GROUPER's tummy",40)
4615 FOR K=1 TO 750:NEXT K
4620 LINE(90,100)-(120,135)
4625 LINE-(200,135)
4630 LINE-(211,116)
4635 FOR K=1 TO 15
4640 PSET(160,143):DRAW"g5r4d7r2u7r4h5"
4645 PAINT(160,149)
4650 FOR M=1 TO 25:NEXT M
4655 CIRCLE(160,149),7,0
4660 PAINT(160,149),0
4665 NEXT K
4670 FOR K=1 TO 750:NEXT K
4675 GOSUB 30000 '** Textpad **
4680 PRINT FNCEN$("like SO!",40)
4685 FOR K=1 TO 750:NEXT K
4690 FOR A=0 TO 20
4695 OUT 66,A:OUT 66,A
4700 OUT 97,(INP(97) OR 3)
4705 NEXT A
4710 SOUND 37,0
4715 FOR K=1 TO 250:NEXT K
4720 LINE(90,100)-(120,135),0
4725 LINE-(200,135),0
4730 LINE-(211,116),0
4735 LINE(90,100)-(126,131)
4740 LINE(160,101)-(160,130),0
4745 LINE(127,130)-(160,102),0
4750 LINE(130,100)-(160,130)
4755 PAINT(160,110)
4760 LINE(130,100)-(188,100),0
4765 PSET(130,128),0:PSET(143,117),0
4770 GOSUB 30000 '** Textpad **
4775 PRINT FNCEN$("And there we have it!",40)
4780 FOR K=1 TO 1500:NEXT K
4785 GOSUB 30000 '** Textpad **
4790 PRINT FNCEN$("GROUPER",40)
4795 FOR K=1 TO 1500:NEXT K
4800 PRINT FNCEN$("A Deep-Sea Fish",40)
4805 FOR K=1 TO 1500:NEXT K
4810 GOSUB 30000 '*** Textpad ***
4815 PRINT" Press <1> - To return to MAIN MENU."
4820 PRINT " <2> - To repeat HELMET/GROUPER."
4825 PRINT " <3> - To exit from program."
4830 E$=INPUT$(1)
4835 IF E$<"1" OR E$>"3" GOTO 4830
4840 SEL=VAL(E$)
4845 COMMON SEL
4850 CLS
4855 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
4856 LINE(70,75)-(250,125),3,B
4860 ON SEL GOTO 4865,4870,4875
4865 CHAIN"a:main"
4870 CHAIN"a:helmet
4875 CHAIN"a:end"
10080 END
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
30030 GOSUB 30000 '** Textpad **
30040 PRINT FNCEN$("N",40)
30050 FOR K=1 TO 1500:NEXT K
INTRO.BAS
10 SCREEN 1,0:COLOR 8,0:CLS:KEY OFF
15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
20 LOCATE 11,1:PRINT FNCEN$("INTRODUCTION",40)
25 PRINT: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 FOR K=1 TO 2000:NEXT K
45 CLS
50 LINE(10,10)-(310,190),3,B
55 LOCATE 5,1
60 PRINT FNCEN$("What is Origami?",40)
65 LINE(10,31)-(10,40)
70 FOR K=1 TO 750:NEXT K
75 GOSUB 10030 '** Textpad **
80 PRINT FNCEN$("* Press <C> to continue *",40)
85 A$=INKEY$:IF A$="" GOTO 85
90 IF A$="C" OR A$="c" GOTO 100
95 GOTO 75
100 LOCATE 8,1
105 PRINT FNCEN$("Formally speaking, Origami is",40)
110 LINE(10,55)-(10,75)
115 PRINT FNCEN$("the Japanese art of paperfolding.",40)
120 LINE(10,55)-(10,75)
125 A$=INKEY$:IF A$="" GOTO 125
130 IF A$="C" OR A$="c" GOTO 140
135 GOTO 125
140 LOCATE 12,1
145 PRINT FNCEN$("Less formally, one might say",40)
150 LINE(10,85)-(10,130)
155 PRINT FNCEN$("it is a pastime art,",40)
160 LINE(10,85)-(10,130)
165 PRINT FNCEN$("a recreational art,",40)
170 LINE(10,85)-(10,130)
175 PRINT FNCEN$("and even less formally,",40)
180 LINE(10,85)-(10,130)
185 PRINT FNCEN$("a doodling art.",40)
190 LINE(10,85)-(10,130)
195 A$=INKEY$:IF A$="" GOTO 195
200 IF A$="C" OR A$="c" GOTO 210
205 GOTO 195
210 LOCATE 19,1
215 PRINT FNCEN$("Above all, however,",40)
220 LINE(10,140)-(10,160)
225 PRINT FNCEN$("it is a fun art.",40)
230 LINE(10,140)-(10,160)
235 A$=INKEY$:IF A$="" GOTO 235
240 IF A$="C" OR A$="c" GOTO 250
245 GOTO 235
250 CLS
255 LOCATE 6,1
260 LINE(10,10)-(310,190),3,B
265 PRINT FNCEN$("It is a fun art",40)
270 LINE(10,10)-(10,190)
275 PRINT FNCEN$("that requires nimble fingers,",40)
280 LINE(10,10)-(10,190)
285 GOSUB 10030 '** Textpad **
290 PRINT FNCEN$("* Press <C> to continue *",40)
295 A$=INKEY$:IF A$="" GOTO 295
300 IF A$="C" OR A$="c" GOTO 310
305 GOTO 285
310 LOCATE 9,1
315 PRINT FNCEN$("a sense of order",40)
320 LINE(10,10)-(10,190)
325 PRINT FNCEN$("and precision",40)
330 LINE(10,10)-(10,190)
335 PRINT FNCEN$("and exactitude",40)
340 LINE(10,10)-(10,190)
345 PRINT FNCEN$("and rigor,",40)
350 LINE(10,10)-(10,190)
355 A$=INKEY$:IF A$="" GOTO 355
360 IF A$="C" OR A$="c" GOTO 370
365 GOTO 355
370 LOCATE 14,1
375 PRINT FNCEN$("and a meticulous,",40)
380 LINE(10,10)-(10,190)
385 PRINT FNCEN$("painstaking and thorough",40)
390 LINE(10,10)-(10,190)
395 PRINT FNCEN$("feeling for detail.",40)
400 LINE(10,10)-(10,190)
405 A$=INKEY$:IF A$="" GOTO 405
410 IF A$="C" OR A$="c" GOTO 420
415 GOTO 405
420 LOCATE 18,1
425 PRINT FNCEN$("All of which we have in abundance.",40)
430 LINE(10,10)-(10,190)
435 A$=INKEY$:IF A$="" GOTO 435
440 IF A$="C" OR A$="c" GOTO 450
445 GOTO 435
450 LOCATE 20,1
455 PRINT FNCEN$("So let's proceed.",40)
460 LINE(10,10)-(10,190)
465 A$=INKEY$:IF A$="" GOTO 465
470 IF A$="C" OR A$="c" GOTO 480
475 GOTO 465
480 CLS
485 LINE(10,10)-(310,190),3,B
490 LOCATE 10,1
495 PRINT FNCEN$("Here's a sample",40)
500 LINE(10,10)-(10,190)
505 PRINT
510 PRINT FNCEN$("of what even a few origami folds",40)
515 LINE(10,10)-(10,190)
520 PRINT
525 PRINT FNCEN$("can do to a piece of paper.",40)
530 LINE(10,10)-(10,190)
535 GOSUB 10030 '** Textpad **
540 PRINT FNCEN$("* Press <C> to continue *",40)
545 A$=INKEY$:IF A$="" GOTO 545
550 IF A$="C" OR A$="c" GOTO 560
555 GOTO 535
560 CLS
565 SCREEN 1,0:COLOR 8,0:KEY OFF:CLS
570 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
575 GOSUB 10000 '** Textpad **
580 PRINT FNCEN$("* SAMPLE *",40)
585 FOR K=1 TO 1000:NEXT K
590 GOSUB 10000 '** Textpad **
595 PRINT FNCEN$("We begin with a sheet of paper",40)
600 FOR K=1 TO 1500:NEXT K
605 PRINT FNCEN$("from our kit",40)
610 FOR K=1 TO 750:NEXT K
615 FOR A=0 TO 20
620 OUT 66,A:OUT 66,A
625 OUT 97,(INP(97) OR 3)
630 NEXT A
635 SOUND 37,0
640 LINE(160,30)-(80,100)
645 LINE-(160,170)
650 LINE-(240,100)
655 LINE-(160,30)
660 FOR K=1 TO 750:NEXT K
665 GOSUB 10000 '** Textpad **
670 PRINT FNCEN$("and take this corner",40)
675 FOR K=1 TO 750:NEXT K
680 '***end arrow left ***
685 '*** arrow up ***
690 FOR K=1 TO 15
695 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
700 PAINT(160,184)
705 FOR M=1 TO 25:NEXT M
710 CIRCLE(160,184),7,0
715 PAINT(160,184),0
720 NEXT K
725 '***end arrow up ***
730 FOR K=1 TO 250:NEXT K
735 GOSUB 10000 '** Textpad **
740 PRINT FNCEN$("up to this corner",40)
745 FOR K=1 TO 750:NEXT K
750 '*** arrow down ***
755 FOR K=1 TO 15
760 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
765 PAINT(160,16)
770 FOR M=1 TO 25:NEXT M
775 CIRCLE(160,16),7,0
780 PAINT(160,16),0
785 NEXT K
790 '***end arrow down ***
795 FOR K=1 TO 250:NEXT K
800 GOSUB 10000 '** Textpad **
805 PRINT FNCEN$("across this line,",40)
810 FOR K=1 TO 750:NEXT K
815 FOR H=80 TO 240 STEP 2
820 PSET(H,100),3
825 NEXT H
830 FOR K=1 TO 250:NEXT K
835 GOSUB 10000 '** Textpad **
840 PRINT FNCEN$("SO!",40)
845 FOR K=1 TO 750:NEXT K
850 FOR V=170 TO 100 STEP -1
855 LINE(80,100)-(160,V),3
860 LINE-(240,100),3
865 LINE(80,100)-(160,V),0
870 LINE-(240,100),0
875 NEXT V
880 FOR V=100 TO 30 STEP -1
885 LINE(80,100)-(160,V),0
890 LINE-(240,100),0
895 LINE(80,100)-(160,V),3
900 LINE-(240,100),3
905 NEXT V
910 FOR K=1 TO 750:NEXT K
915 GOSUB 10000 '** Textpad **
920 PRINT FNCEN$("Let's move down to center a bit more.",40)
925 FOR K=1 TO 1500:NEXT K
930 FOR Q=0 TO 30
935 LINE(80,100+Q)-(240,100+Q)
940 LINE(80,100+Q)-(160,30+Q),0
945 LINE-(240,100+Q),0
950 FOR M=1 TO 5:NEXT M
955 NEXT Q
960 FOR K=1 TO 750:NEXT K
965 GOSUB 10000 '** Textpad **
970 PRINT FNCEN$("Next, we fold these corners",40)
975 FOR K=1 TO 750:NEXT K
980 '*** arrow left ***
985 FOR K=1 TO 15
990 PSET(248,130):DRAW"E5D4R7D2L7D4H5"
995 PAINT(254,130)
1000 PSET(72,130):DRAW"H5D4L7D2R7D4E5"
1005 PAINT(66,130)
1010 CIRCLE(254,130),7,0
1015 PAINT(254,130),0
1020 CIRCLE(66,130),7,0
1025 PAINT(66,130),0
1030 NEXT K
1035 '***end arrow left ***
1040 FOR K=1 TO 750:NEXT K
1045 GOSUB 10000 '** Textpad **
1050 PRINT FNCEN$("over to this center point",40)
1055 FOR K=1 TO 750:NEXT K
1060 '*** arrow up ***
1065 FOR K=1 TO 15
1070 PSET(160,138):DRAW"G5R4D7R2U7R4H5"
1075 PAINT(160,144)
1080 FOR M=1 TO 25:NEXT M
1085 CIRCLE(160,144),7,0
1090 PAINT(160,144),0
1095 NEXT K
1100 '***end arrow up ***
1105 FOR K=1 TO 250:NEXT K
1110 GOSUB 10000 '** Textpad **
1115 PRINT FNCEN$("across these lines,",40)
1120 FOR K=1 TO 750:NEXT K
1125 FOR V=95 TO 130 STEP 2
1130 PSET(120,V),0
1135 PSET(200,V),0
1140 NEXT V
1145 FOR K=1 TO 250:NEXT K
1150 GOSUB 10000 '** Textpad **
1155 PRINT FNCEN$("SO!",40)
1160 FOR K=1 TO 750:NEXT K
1165 FOR H=240 TO 200 STEP -1
1170 LINE(200,95)-(H,130),0
1175 LINE-(200,130),0
1180 NEXT H
1185 FOR H=200 TO 160 STEP -1
1190 LINE(200,95)-(H,130),0
1195 LINE-(200,130),0
1200 LINE(200,95)-(H,130),3
1205 LINE-(200,130),3
1210 NEXT H
1215 LINE(160,130)-(200,95),0
1220 FOR K=1 TO 750:NEXT K
1225 FOR H=80 TO 120
1230 LINE(120,95)-(H,130),0
1235 LINE-(120,130),0
1240 NEXT H
1245 FOR H=120 TO 160
1250 LINE(120,95)-(H,130),0
1255 LINE-(120,130),0
1260 LINE(120,95)-(H,130),3
1265 LINE-(120,130),3
1270 NEXT H
1275 LINE(120,95)-(160,130),0
1280 FOR K=1 TO 750:NEXT K
1285 GOSUB 10000 '** Textpad **
1290 PRINT FNCEN$("and lastly fold this corner",40)
1295 FOR K=1 TO 750:NEXT K
1300 '*** arrow down ***
1305 FOR K=1 TO 15
1310 PSET(160,52):DRAW"E5L4U7L2D7L4F5"
1315 PAINT(160,46)
1320 FOR M=1 TO 25:NEXT M
1325 CIRCLE(160,46),7,0
1330 PAINT(160,46),0
1335 NEXT K
1340 '***end arrow down ***
1345 FOR K=1 TO 250:NEXT K
1350 GOSUB 10000 '** Textpad **
1355 PRINT FNCEN$("down to this center point",40)
1360 FOR K=1 TO 750:NEXT K
1365 '*** arrow up ***
1370 FOR K=1 TO 15
1375 PSET(160,138):DRAW"G5R4D7R2U7R4H5"
1380 PAINT(160,144)
1385 FOR M=1 TO 25:NEXT M
1390 CIRCLE(160,144),7,0
1395 PAINT(160,144),0
1400 NEXT K
1405 '***end arrow up ***
1410 FOR K=1 TO 250:NEXT K
1415 GOSUB 10000 '** Textpad **
1420 PRINT FNCEN$("across this line,",40)
1425 FOR K=1 TO 750:NEXT K
1430 FOR H=120 TO 200 STEP 2
1435 PSET(H,95),0
1440 NEXT H
1445 FOR K=1 TO 750:NEXT K
1450 GOSUB 10000 '*** <Textpad> ***
1455 PRINT FNCEN$("SO!",40)
1460 FOR K=1 TO 750:NEXT K
1465 FOR V=60 TO 95
1470 LINE(120,95)-(160,V),0
1475 LINE-(200,95),0
1480 NEXT V
1485 FOR V=95 TO 130
1490 LINE(120,95)-(160,V),0
1495 LINE-(200,95),0
1500 LINE(120,95)-(160,V),3
1505 LINE-(200,95),3
1510 NEXT V
1515 LINE(120,95)-(160,130),0
1520 LINE-(200,95),0
1525 FOR K=1 TO 250:NEXT K
1530 GOSUB 10000 '** Textpad **
1535 PRINT FNCEN$("There! That does it!",40)
1540 FOR K=1 TO 1500:NEXT K
1545 GOSUB 10000 '** Textpad **
1550 PRINT FNCEN$("What do we have?",40)
1555 FOR K=1 TO 1500:NEXT K
1560 GOSUB 10000 '** Textpad **
1565 PRINT FNCEN$("Not much of anything.",40)
1570 FOR K=1 TO 1500:NEXT K
1575 GOSUB 10000 '** Textpad **
1580 PRINT FNCEN$("Let's open up.",40)
1585 FOR K=1 TO 1500:NEXT K
1590 GOSUB 10000 '*** Textpad ***
1595 PRINT FNCEN$("One moment, please.",40)
1600 FOR K=1 TO 1500:NEXT K
1605 FOR A=0 TO 20
1610 OUT 66,A:OUT 66,A
1615 OUT 97,(INP(97) OR 3)
1620 NEXT A
1625 SOUND 37,0
1630 LINE(200,95)-(187,115),0
1635 LINE-(180,135),0
1640 LINE-(200,130),3
1645 LINE(188,115)-(181,135),3
1650 PAINT(185,133),3
1655 LINE(200,95)-(191,115),0
1660 LINE-(180,135),0
1665 LINE(120,95)-(133,115),0
1670 LINE-(140,135),0
1675 LINE-(120,130),3
1680 LINE(132,115)-(139,135),3
1685 PAINT(135,133),3
1690 LINE(120,95)-(129,115),0
1695 LINE-(140,135),0
1700 LINE(120,95)-(160,130),3
1705 LINE-(200,95),3
1710 LINE(120,95)-(160,125),0
1715 LINE-(200,95),0
1720 LINE(120,95)-(160,115),0
1725 LINE-(200,95),0
1730 CIRCLE(145,100),5,0,,,0.5
1735 CIRCLE(175,100),5,0,,,0.5
1740 CIRCLE(145,100),0,0
1745 CIRCLE(175,100),0,0
1750 FOR K=1 TO 250:NEXT K
1755 GOSUB 10000 '** Textpad **
1760 PRINT FNCEN$("Well, well! What do you know!",40)
1765 FOR K=1 TO 1500:NEXT K
1770 GOSUB 10000 '** Textpad **
1775 PRINT FNCEN$("A little creature!",40)
1780 FOR K=1 TO 1500:NEXT K
1785 GOSUB 10000 '** Textpad **
1790 PRINT FNCEN$("With only four folds!",40)
1795 FOR K=1 TO 1500:NEXT K
1800 GOSUB 10000 '** Textpad **
1805 PRINT FNCEN$("What do you suppose we could make",40)
1810 FOR K=1 TO 1500:NEXT K
1815 PRINT FNCEN$("with five folds?",40)
1820 FOR K=1 TO 1500:NEXT K
1825 GOSUB 10000 '** Textpad **
1830 PRINT FNCEN$("Six folds?",40)
1835 FOR K=1 TO 1000:NEXT K
1840 PRINT FNCEN$("Ten!",40)
1845 FOR K=1 TO 750:NEXT K
1850 PRINT FNCEN$("Twenty!",40)
1855 FOR K=1 TO 750:NEXT K
1860 GOSUB 10000 '** Textpad **
1865 PRINT FNCEN$("Whoa, there!",40)
1870 FOR K=1 TO 1500:NEXT K
1875 GOSUB 10000 '** Textpad **
1880 PRINT FNCEN$("Let's not get carried away!",40)
1885 FOR K=1 TO 1500:NEXT K
1890 GOSUB 10000 '** Textpad **
1895 PRINT FNCEN$("All in good time.",40)
1900 FOR K=1 TO 1500:NEXT K
1905 GOSUB 10000 '** Textpad **
1910 PRINT FNCEN$("First, here are some folding hints.",40)
1915 FOR K=1 TO 1500:NEXT K
1920 FOR A=0 TO 20
1925 OUT 66,A:OUT 66,A
1930 OUT 97,(INP(97) OR 3)
1935 NEXT A
1940 SOUND 37,0
1945 CLS
1950 LINE(5,10)-(315,190),3,B
1955 LOCATE 5,1
1960 PRINT FNCEN$("* Hint No. 1 *",40)
1965 LINE(5,30)-(5,50)
1970 PRINT:PRINT
1975 PRINT FNCEN$("Run a program through once or twice",40)
1980 LINE(5,55)-(5,72)
1985 PRINT FNCEN$("without doing any actual folding.",40)
1990 LINE(5,55)-(5,72)
1995 GOSUB 10030 '*** Textpad ***
2000 PRINT FNCEN$("* Press <C> to continue *",40)
2005 A$=INKEY$:IF A$="" GOTO 2005
2010 IF A$="C" OR A$="c" GOTO 2020
2015 GOTO 1995
2020 LOCATE 11,1
2025 PRINT FNCEN$("Then when you do take paper in hand",40)
2030 LINE(5,79)-(5,111)
2035 PRINT FNCEN$("and start folding,",40)
2040 LINE(5,79)-(5,111)
2045 PRINT FNCEN$("you'll have a pretty good idea",40)
2050 LINE(5,79)-(5,111)
2055 PRINT FNCEN$("of what lies ahead:",40)
2060 LINE(5,79)-(5,111)
2065 A$=INKEY$:IF A$="" GOTO 2065
2070 IF A$="C" OR A$="c" GOTO 2080
2075 GOTO 2065
2080 LOCATE 16,1
2085 PRINT FNCEN$("what kind of folds are coming up",40)
2090 LINE(5,119)-(5,145)
2095 PRINT FNCEN$("and how many",40)
2100 LINE(5,119)-(5,145)
2105 PRINT FNCEN$("and of what degree of difficulty,",40)
2110 LINE(5,119)-(5,145)
2115 PRINT FNCEN$("etc., etc.",40)
2120 LINE(5,119)-(5,155)
2125 A$=INKEY$:IF A$="" GOTO 2125
2130 IF A$="C" OR A$="c" GOTO 2140
2135 GOTO 2125
2140 LOCATE 21,1
2145 PRINT FNCEN$("You'll be forearmed.",40)
2150 LINE(5,150)-(5,160)
2155 LINE(5,10)-(315,190),3,B
2160 A$=INKEY$:IF A$="" GOTO 2160
2165 IF A$="C" OR A$="c" GOTO 2175
2170 GOTO 2160
2175 CLS
2180 LINE(5,10)-(315,190),3,B
2185 LOCATE 5,1
2190 PRINT FNCEN$("* Hint No. 2 *",40)
2195 LINE(5,30)-(5,40)
2200 PRINT:PRINT:PRINT
2205 PRINT FNCEN$("Position your paper",40)
2210 LINE(5,62)-(5,96)
2215 PRINT FNCEN$("and execute your folds",40)
2220 LINE(5,62)-(5,96)
2225 PRINT FNCEN$("so that you're always comfortable",40)
2230 LINE(5,62)-(5,96)
2235 PRINT FNCEN$("as you work.",40)
2240 LINE(5,62)-(5,96)
2245 GOSUB 10030 '*** Textpad ***
2250 PRINT FNCEN$("* Press <C> to continue *",40)
2255 A$=INKEY$:IF A$="" GOTO 2255
2260 IF A$="C" OR A$="c" GOTO 2270
2265 GOTO 2245
2270 LOCATE 15,1
2275 PRINT FNCEN$("What you see on the screen",40)
2280 LINE(5,110)-(5,128)
2285 PRINT FNCEN$("will not always be",40)
2290 LINE(5,110)-(5,128)
2295 PRINT
2300 PRINT FNCEN$("EXACTLY",40)
2305 LINE(5,135)-(5,145)
2310 PRINT
2315 PRINT FNCEN$("how you'll be doing it.",40)
2320 LINE(5,150)-(5,160)
2325 LINE(5,10)-(315,190),3,B
2330 A$=INKEY$:IF A$="" GOTO 2330
2335 IF A$="C" OR A$="c" GOTO 2345
2340 GOTO 2330
2345 CLS
2350 LINE(5,10)-(315,190),3,B
2355 LOCATE 6,1
2360 PRINT FNCEN$("* Hint No. 3 *",40)
2365 LINE(5,40)-(5,47)
2370 PRINT:PRINT
2375 PRINT FNCEN$("Sometimes you'll find it helpful",40)
2380 LINE(5,64)-(5,105)
2385 PRINT FNCEN$("to use the straightedge in your kit",40)
2390 LINE(5,64)-(5,105)
2395 PRINT FNCEN$("to get a fold",40)
2400 LINE(5,64)-(5,105)
2405 PRINT FNCEN$("that's difficult to get at",40)
2410 LINE(5,64)-(5,105)
2415 PRINT FNCEN$("started.",40)
2420 LINE(5,64)-(5,105)
2425 GOSUB 10030 '*** Textpad ***
2430 PRINT FNCEN$("Press <C> to continue.",40)
2435 A$=INKEY$:IF A$="" GOTO 2435
2440 IF A$="C" OR A$="c" GOTO 2450
2445 GOTO 2425
2450 LOCATE 15,1
2455 PRINT FNCEN$("And sometimes you'll find",40)
2460 LINE(5,110)-(5,151)
2465 PRINT FNCEN$("that actually drawing a fold",40)
2470 LINE(5,110)-(5,151)
2475 PRINT FNCEN$("as a line on your paper",40)
2480 LINE(5,110)-(5,151)
2485 PRINT FNCEN$("will make the fold",40)
2490 LINE(5,110)-(5,151)
2495 PRINT FNCEN$("a lot easier to execute.",40)
2500 LINE(5,110)-(5,151)
2505 LINE(5,10)-(315,190),3,B
2510 A$=INKEY$:IF A$="" GOTO 2510
2515 IF A$="C" OR A$="c" GOTO 2525
2520 GOTO 2510
2525 CLS
2530 LINE(5,10)-(315,190),3,B
2535 LOCATE 6,1
2540 PRINT FNCEN$("* Hint No. 4 *",40)
2545 LINE(5,10)-(5,190)
2550 PRINT:PRINT:PRINT
2555 PRINT FNCEN$("Origami, like chess, has openings",40)
2560 LINE(5,10)-(5,190)
2565 PRINT
2570 PRINT FNCEN$("that are pretty standard.",40)
2575 LINE(5,10)-(5,190)
2580 GOSUB 10030 '*** Textpad ***
2585 PRINT FNCEN$("* Press <C> to continue *",40)
2590 A$=INKEY$:IF A$="" GOTO 2590
2595 IF A$="C" OR A$="c" GOTO 2605
2600 GOTO 2580
2605 LOCATE 14,1
2610 PRINT FNCEN$("Here's a demonstration",40)
2615 LINE(5,10)-(5,190)
2620 PRINT
2625 PRINT FNCEN$("of some opening folds",40)
2630 LINE(5,10)-(5,190)
2635 PRINT
2640 PRINT FNCEN$("you'll encounter quite frequently.",40)
2645 LINE(5,10)-(5,190)
2650 A$=INKEY$:IF A$="" GOTO 2650
2655 IF A$="C" OR A$="c" GOTO 2665
2660 GOTO 2650
2665 FOR A=0 TO 20
2670 OUT 66,A:OUT 66,A
2675 OUT 97,(INP(97) OR 3)
2680 NEXT A
2685 SOUND 37,0
2690 CLS
2695 LINE(160,30)-(80,100)
2700 LINE-(160,170)
2705 LINE-(240,100)
2710 LINE-(160,30)
2715 FOR H=80 TO 240 STEP 2
2720 PSET(H,100)
2725 NEXT H
2730 FOR V=30 TO 170 STEP 2
2735 PSET(160,V)
2740 NEXT V
2745 LINE(120,65)-(200,135)
2750 LINE(120,135)-(200,65)
2755 FOR K=1 TO 750:NEXT K
2756 GOSUB 10000 '*** <Textpad> ***
2758 PRINT FNCEN$("* DEMONSTRATION *",40)
2759 FOR K=1 TO 1500:NEXT K
2760 GOSUB 10000 '*** <Textpad> ***
2765 PRINT FNCEN$("This opening figure signifies",40)
2770 FOR K=1 TO 1500:NEXT K
2775 PRINT FNCEN$("that you've already executed",40)
2780 FOR K=1 TO 1500:NEXT K
2785 PRINT FNCEN$("the following four folds:",40)
2790 FOR K=1 TO 1500:NEXT K
2795 GOSUB 10000 '*** <Textpad> ***
2800 PRINT FNCEN$("Fold 1",40)
2805 FOR K=1 TO 750:NEXT K
2810 LINE(160,31)-(160,169),0
2815 LINE(120,65)-(200,135),0
2820 PSET(120,65):PSET(200,135)
2825 LINE(120,135)-(200,65),0
2830 PSET(120,135):PSET(200,65)
2835 PSET(160,100)
2840 FOR K=1 TO 750:NEXT K
2845 FOR V=30 TO 100
2850 LINE(80,100)-(160,V)
2855 LINE-(240,100)
2860 LINE(80,100)-(160,V),0
2865 LINE-(240,100),0
2870 NEXT V
2875 FOR V=100 TO 170
2880 LINE(80,100)-(160,V)
2885 LINE-(240,100)
2890 NEXT V
2895 FOR V=170 TO 100 STEP -1
2900 LINE(80,100)-(160,V),0
2905 LINE-(240,100),0
2910 LINE(80,100)-(160,170)
2915 LINE-(240,100)
2920 NEXT V
2925 FOR H=80 TO 240 STEP 2
2930 PSET(H,100)
2935 NEXT H
2940 FOR V=90 TO 30 STEP -1
2945 LINE(80,100)-(160,V)
2950 LINE-(240,100)
2955 LINE(80,100)-(160,V),0
2960 LINE-(240,100),0
2965 NEXT V
2970 LINE(80,100)-(160,30)
2975 LINE-(240,100)
2980 FOR H=80 TO 240 STEP 2
2985 PSET(H,100)
2990 NEXT H
2995 FOR K=1 TO 250:NEXT K
3000 GOSUB 10000 '*** <Textpad> ***
3005 PRINT FNCEN$("Fold 2",40)
3010 FOR K=1 TO 750:NEXT K
3015 LINE(81,100)-(239,100),0
3020 FOR V=30 TO 170 STEP 2
3025 PSET(160,V)
3030 NEXT V
3035 FOR K=1 TO 750:NEXT K
3040 FOR H=80 TO 160
3045 LINE(160,30)-(H,100)
3050 LINE-(160,170)
3055 LINE(160,30)-(H,100),0
3060 LINE-(160,170),0
3065 NEXT H
3070 FOR H=160 TO 240
3075 LINE(160,30)-(H,100)
3080 LINE-(160,170)
3085 NEXT H
3090 FOR H=240 TO 160 STEP -1
3095 LINE(160,30)-(H,100)
3100 LINE-(160,170)
3105 LINE(160,30)-(H,100),0
3110 LINE-(160,170),0
3115 LINE(160,30)-(240,100)
3120 LINE-(160,170)
3125 NEXT H
3130 FOR V=30 TO 170 STEP 2
3135 PSET(160,V)
3140 NEXT V
3145 FOR H=150 TO 80 STEP -1
3150 LINE(160,30)-(H,100)
3155 LINE-(160,170)
3160 LINE(160,30)-(H,100),0
3165 LINE-(160,170),0
3170 NEXT H
3175 LINE(160,30)-(80,100)
3180 LINE-(160,170)
3185 FOR V=30 TO 170 STEP 2
3190 PSET(160,V)
3195 NEXT V
3200 FOR K=1 TO 250:NEXT K
3205 GOSUB 10000 '*** <Textpad> ***
3210 PRINT FNCEN$("Fold 3",40)
3215 FOR K=1 TO 750:NEXT K
3220 LINE(160,31)-(160,169),0
3225 LINE(120,135)-(200,65)
3230 FOR K=1 TO 750:NEXT K
3235 FOR Q=0 TO 40
3240 LINE(200,65)-(160+Q,30+0.88*Q)
3245 LINE-(80+Q,100+0.88*Q)
3250 LINE-(120,135)
3255 LINE(200,65)-(160+Q,30+0.88*Q),0
3260 LINE-(80+Q,100+0.88*Q),0
3265 LINE-(120,135),0
3270 NEXT Q
3275 FOR Q=0 TO 40
3280 LINE(200,65)-(200+Q,65+0.88*Q)
3285 LINE-(120+Q,135+0.88*Q)
3290 LINE-(120,135),0
3295 LINE(200,65)-(199+Q,65+0.88*Q)
3300 LINE-(119+Q,135+0.88*Q)
3305 LINE-(120,135),0
3310 NEXT Q
3315 FOR Q=0 TO 40
3320 LINE(200,65)-(240-Q,100-0.88*Q),0
3325 LINE-(160-Q,170-0.88*Q),0
3330 LINE-(120,135),0
3335 LINE(200,65)-(241-Q,100-0.88*Q),0
3340 LINE-(161-Q,170-0.88*Q),0
3345 LINE-(120,135),0
3350 LINE(200,65)-(240,100)
3355 LINE-(160,170)
3360 LINE-(120,135)
3365 NEXT Q
3370 LINE(120,134)-(199,65),0
3375 FOR Q=0 TO 40
3380 LINE(200,65)-(200-Q,65-0.88*Q)
3385 LINE-(120-Q,135-0.88*Q)
3390 LINE-(120,135)
3395 LINE(200,65)-(200-Q,65-0.88*Q),0
3400 LINE-(120-Q,135-0.88*Q),0
3405 LINE-(120,135),0
3410 LINE(120,135)-(200,65)
3415 NEXT Q
3420 LINE(200,65)-(160,30)
3425 LINE-(80,100)
3430 LINE-(120,135)
3435 FOR K=1 TO 250:NEXT K
3440 GOSUB 10000 '*** <Textpad> ***
3445 PRINT FNCEN$("Fold 4",40)
3450 FOR K=1 TO 750:NEXT K
3455 LINE(120,135)-(200,65),0
3460 PSET(120,135):PSET(200,65)
3465 LINE(120,65)-(200,135)
3470 FOR K=1 TO 750:NEXT K
3475 FOR Q=0 TO 40
3480 LINE(120,65)-(160-Q,30+0.88*Q)
3485 LINE-(240-Q,100+0.88*Q)
3490 LINE-(200,135)
3495 LINE(120,65)-(160-Q,30+0.88*Q),0
3500 LINE-(240-Q,100+0.88*Q),0
3505 LINE-(200,135),0
3510 NEXT Q
3515 FOR Q=0 TO 40
3520 LINE(120,65)-(120-Q,65+0.88*Q)
3525 LINE-(200-Q,135+0.88*Q)
3530 LINE-(200,135),0
3535 LINE(120,65)-(121-Q,65+0.88*Q)
3540 LINE-(201-Q,135+0.88*Q)
3545 LINE-(200,135),0
3550 NEXT Q
3555 FOR Q=0 TO 40
3560 LINE(120,65)-(80+Q,100-0.88*Q),0
3565 LINE-(160+Q,170-0.88*Q),0
3570 LINE-(200,135),0
3575 LINE(120,65)-(79+Q,100-0.88*Q),0
3580 LINE-(159+Q,170-0.88*Q),0
3585 LINE-(200,135),0
3590 LINE(120,65)-(80,100)
3595 LINE-(160,170)
3600 LINE-(200,135)
3605 NEXT Q
3610 LINE(121,65)-(200,134),0
3615 FOR Q=0 TO 40
3620 LINE(120,65)-(120+Q,65-0.88*Q)
3625 LINE-(200+Q,135-0.88*Q)
3630 LINE-(200,135)
3635 LINE(120,65)-(120+Q,65-0.88*Q),0
3640 LINE-(200+Q,135-0.88*Q),0
3645 LINE-(200,135),0
3650 LINE(120,65)-(200,135)
3655 NEXT Q
3660 LINE(120,65)-(160,30)
3665 LINE-(240,100)
3670 LINE-(200,135)
3675 FOR K=1 TO 1500:NEXT K
3680 GOSUB 10000 '*** <Textpad> ***
3685 PRINT FNCEN$("And here are the creases",40)
3690 FOR K=1 TO 1500:NEXT K
3695 PRINT FNCEN$("those folds generated.",40)
3700 FOR K=1 TO 1500:NEXT K
3705 LINE(120,135)-(200,65)
3710 FOR V=30 TO 170 STEP 2
3715 PSET(160,V)
3720 NEXT V
3725 FOR H=80 TO 240 STEP 2
3730 PSET(H,100)
3735 NEXT H
3740 FOR K=1 TO 1500:NEXT K
3745 GOSUB 10000 '*** <Textpad> ***
3750 PRINT FNCEN$("Here's another opening figure.",40)
3755 FOR K=1 TO 750:NEXT K
3760 FOR A=0 TO 20
3765 OUT 66,A:OUT 66,A
3770 OUT 97,(INP(97) OR 3)
3775 NEXT A
3780 SOUND 37,0
3785 CLS
3790 LINE(105,45)-(215,145),3,B
3795 FOR H=105 TO 215 STEP 2
3800 PSET(H,95)
3805 NEXT H
3810 FOR K=1 TO 750:NEXT K
3815 GOSUB 10000 '*** <Textpad> ***
3820 PRINT FNCEN$("We know how to generate that crease.",40)
3825 FOR K=1 TO 1500:NEXT K
3830 GOSUB 10000 '*** Textpad ***
3835 PRINT FNCEN$("Press <C> to continue.",40)
3840 A$=INKEY$:IF A$="" GOTO 3840
3845 IF A$="C" OR A$="c" GOTO 3855
3850 GOTO 3830
3855 FOR H=105 TO 215 STEP 2
3860 PSET(H,70)
3865 PSET(H,120)
3870 NEXT H
3875 FOR K=1 TO 750:NEXT K
3880 GOSUB 10000 '*** <Textpad> ***
3885 PRINT FNCEN$("Fold 2",40)
3890 FOR K=1 TO 750:NEXT K
3895 FOR V=45 TO 70
3900 LINE(105,70)-(105,V)
3905 LINE-(215,V)
3910 LINE-(215,70)
3915 LINE(105,70)-(105,V),0
3920 LINE-(215,V),0
3925 LINE-(215,70),0
3930 NEXT V
3935 FOR V=70 TO 95
3940 LINE(105,70)-(105,V)
3945 LINE-(215,V)
3950 LINE-(215,70)
3955 NEXT V
3960 FOR K=1 TO 750:NEXT K
3965 GOSUB 10000 '*** <Textpad> ***
3970 PRINT FNCEN$("Fold 3",40)
3975 FOR K=1 TO 750:NEXT K
3980 FOR V=145 TO 120 STEP -1
3985 LINE(105,120)-(105,V)
3990 LINE-(215,V)
3995 LINE-(215,120)
4000 LINE(105,120)-(105,V),0
4005 LINE-(215,V),0
4010 LINE-(215,120),0
4015 NEXT V
4020 FOR V=120 TO 95 STEP -1
4025 LINE(105,120)-(105,V)
4030 LINE-(215,V)
4035 LINE-(215,120)
4040 NEXT V
4045 LINE(105,95)-(215,95),0
4050 FOR K=1 TO 750:NEXT K
4055 GOSUB 10000 '*** <Textpad> ***
4060 PRINT FNCEN$("Would you like to review those folds?",40)
4065 FOR K=1 TO 1500:NEXT K
4070 GOSUB 10000
4075 PRINT FNCEN$("If so, press <R>.",40)
4080 FOR K=1 TO 1000:NEXT K
4085 PRINT FNCEN$("To continue, press <C>.",40)
4090 A$=INKEY$:IF A$="" GOTO 4090
4095 IF A$="r" OR A$="R" GOTO 4110
4100 IF A$="c" OR A$="C" GOTO 4180
4105 GOTO 4070
4110 FOR A=0 TO 20
4115 OUT 66,A:OUT 66,A
4120 OUT 97,(INP(97) OR 3)
4125 NEXT A
4130 SOUND 37,0
4135 CLS
4140 LINE(105,45)-(215,145),3,B
4145 FOR H=105 TO 215 STEP 2
4150 PSET(H,95)
4155 NEXT H
4160 GOSUB 10000
4165 PRINT FNCEN$("* Review *",40)
4170 FOR K=1 TO 1500:NEXT K
4175 GOTO 3855
4180 GOSUB 10000 '*** <Textpad> ***
4185 PRINT FNCEN$("Let's go on to our next hint.",40)
4190 FOR K=1 TO 1500:NEXT K
4195 CLS
4200 LINE(5,10)-(315,190),3,B
4205 LOCATE 6,1
4210 PRINT FNCEN$("* Hint No. 5 *",40)
4215 LINE(5,40)-(5,50)
4220 PRINT:PRINT
4225 PRINT FNCEN$("From time to time,",40)
4230 LINE(5,60)-(5,95)
4235 PRINT FNCEN$("we have to make absolutely sure",40)
4240 LINE(5,60)-(5,95)
4245 PRINT FNCEN$("that our creases are",40)
4250 LINE(5,60)-(5,95)
4255 PRINT FNCEN$("good and sharp and supple.",40)
4260 LINE(5,60)-(5,95)
4265 GOSUB 10030 '*** <Textpad> ***
4270 PRINT FNCEN$("* Press <C> to continue *",40)
4275 A$=INKEY$:IF A$="" GOTO 4275
4280 IF A$="C" OR A$="c" GOTO 4290
4285 GOTO 4265
4290 LOCATE 14,1
4295 PRINT FNCEN$("When that need comes up,",40)
4300 LINE(5,103)-(5,135)
4305 PRINT FNCEN$("we will employ a technique",40)
4310 LINE(5,103)-(5,135)
4315 PRINT FNCEN$("we'll call",40)
4320 LINE(5,103)-(5,135)
4325 PRINT FNCEN$("FOLD and BACKFOLD.",40)
4330 LINE(5,103)-(5,135)
4335 A$=INKEY$:IF A$="" GOTO 4335
4340 IF A$="C" OR A$="c" GOTO 4350
4345 GOTO 4335
4350 LOCATE 19,1
4355 PRINT FNCEN$("Let's demonstrate that.",40)
4360 LINE(5,143)-(5,155)
4365 A$=INKEY$:IF A$="" GOTO 4365
4370 IF A$="C" OR A$="c" GOTO 4380
4375 GOTO 4365
4380 CLS
4385 GOSUB 10000 '** Textpad **
4390 PRINT FNCEN$("* DEMONSTRATION *",40)
4395 FOR K=1 TO 750:NEXT K
4400 '***Zapsound***
4405 FOR A=0 TO 20
4410 OUT 66,A:OUT 66,A
4415 OUT 97,(INP(97) OR 3)
4420 NEXT A
4425 SOUND 37,0
4430 '***End Zapsound***
4435 CLS
4440 LINE(160,30)-(80,100)
4445 LINE-(160,170)
4450 LINE-(240,100)
4455 LINE-(160,30)
4460 FOR V=30 TO 170 STEP 2
4465 PSET(160,V)
4470 NEXT V
4475 LINE(114,70)-(160,170)
4480 LINE-(206,70)
4485 FOR K=1 TO 750:NEXT K
4490 GOSUB 10000 '** Textpad **
4495 PRINT FNCEN$("Here's an opening figure",40)
4500 FOR K=1 TO 1000:NEXT K
4505 PRINT FNCEN$("we'll be running into quite frequently.",40)
4510 FOR K=1 TO 1500:NEXT K
4515 GOSUB 10000 '** Textpad **
4520 PRINT FNCEN$("It's called",40)
4525 FOR K=1 TO 1000:NEXT K
4530 GOSUB 10000 '** Textpad **
4535 PRINT FNCEN$("KITE BASE",40)
4540 FOR K=1 TO 1000:NEXT K
4545 GOSUB 10000 '** Textpad **
4550 PRINT FNCEN$("Fold 1 generates the center crease,",40)
4555 FOR K=1 TO 1500:NEXT K
4560 GOSUB 10030 '*** <Textpad> ***
4565 PRINT FNCEN$("and here's Fold 2",40)
4570 FOR K=1 TO 1500:NEXT K
4575 FOR Q=0 TO 41
4580 LINE(114,70)-(80+Q,100-0.37*Q)
4585 LINE-(160,170)
4590 LINE(114,70)-(80+Q,100-0.37*Q),0
4595 LINE-(160,170),0
4600 NEXT Q
4605 FOR Q=0 TO 39
4610 LINE(114,70)-(122+Q,85-0.38*Q)
4615 LINE-(160,170)
4620 LINE(114,70)-(121+Q,85-0.38*Q)
4625 LINE-(160,170)
4630 NEXT Q
4635 LINE(161,70)-(161,169),0
4640 FOR K=1 TO 750:NEXT K
4645 GOSUB 10030 '*** <Textpad> ***
4650 PRINT FNCEN$("and Fold 3",40)
4655 FOR K=1 TO 1050:NEXT K
4660 FOR Q=0 TO 41
4665 LINE(206,70)-(240-Q,100-0.37*Q)
4670 LINE-(160,170)
4675 LINE(206,70)-(240-Q,100-0.37*Q),0
4680 LINE-(160,170),0
4685 NEXT Q
4690 FOR Q=0 TO 39
4695 LINE(206,70)-(198-Q,85-0.38*Q)
4700 LINE-(160,170)
4705 LINE(206,70)-(199-Q,85-0.38*Q)
4710 LINE-(160,170)
4715 NEXT Q
4720 LINE(160,70)-(160,170),0
4725 FOR K=1 TO 750:NEXT K
4730 GOSUB 10000 '** Textpad **
4735 PRINT FNCEN$("KITE BASE",40)
4740 FOR K=1 TO 1500:NEXT K
4745 GOSUB 10000 '** Textpad **
4750 PRINT FNCEN$("Let's go on.",40)
4755 FOR K=1 TO 1500:NEXT K
4760 GOSUB 10000 '** Textpad **
4765 PRINT FNCEN$("For this demonstration,",40)
4770 FOR K=1 TO 1500:NEXT K
4775 GOSUB 10000 '** Textpad **
4780 PRINT FNCEN$("we will FOLD and BACKFOLD this corner",40)
4785 FOR K=1 TO 750:NEXT K
4790 '*** arrow up ***
4795 FOR K=1 TO 15
4800 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
4805 PAINT(160,184)
4810 FOR M=1 TO 25:NEXT M
4815 CIRCLE(160,184),7,0
4820 PAINT(160,184),0
4825 NEXT K
4830 '***end arrow up ***
4835 FOR K=1 TO 250:NEXT K
4840 GOSUB 10000 '** Textpad **
4845 PRINT FNCEN$("up to this corner",40)
4850 FOR K=1 TO 750:NEXT K
4855 '*** arrow down ***
4860 FOR K=1 TO 15
4865 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
4870 PAINT(160,16)
4875 FOR M=1 TO 25:NEXT M
4880 CIRCLE(160,16),7,0
4885 PAINT(160,16),0
4890 NEXT K
4895 '***end arrow down ***
4900 FOR K=1 TO 250:NEXT K
4905 GOSUB 10000 '** Textpad **
4910 PRINT FNCEN$("across this line,",40)
4915 FOR K=1 TO 750:NEXT K
4920 FOR K=1 TO 25
4925 LINE(128,100)-(192,100),0
4930 FOR M=1 TO 25:NEXT M
4935 LINE(128,100)-(192,100),3
4940 NEXT K
4945 FOR H=128 TO 192 STEP 2
4950 PSET(H,100),0
4955 NEXT H
4960 FOR K=1 TO 750:NEXT K
4965 GOSUB 10000 '** Textpad **
4970 PRINT FNCEN$("SO!",40)
4975 FOR K=1 TO 750:NEXT K
4980 LINE(132,110)-(154,158),0
4985 LINE(188,110)-(166,158),0
4990 FOR V=170 TO 100 STEP -1
4995 LINE(128,100)-(160,V),0
5000 LINE-(192,100),0
5005 NEXT V
5010 FOR V=99 TO 70 STEP -1
5015 LINE(128,100)-(160,V),0
5020 LINE-(192,100),0
5025 LINE(128,100)-(160,V+1),3
5030 LINE-(192,100),3
5035 NEXT V
5040 LINE(128,101)-(192,101),0
5045 FOR V=70 TO 30 STEP -1
5050 LINE(128,100)-(160,V),0
5055 LINE-(192,100),0
5060 LINE(128,100)-(160,V),3
5065 LINE-(192,100),3
5070 NEXT V
5075 LINE(128,100)-(140,70),0
5080 LINE(192,100)-(180,70),0
5085 GOSUB 10000 '** Textpad **
5090 PRINT FNCEN$("Use your thumbnail",40)
5095 FOR K=1 TO 1500:NEXT K
5100 GOSUB 10000 '** Textpad **
5105 PRINT FNCEN$("or the straightedge in your kit",40)
5110 FOR K=1 TO 1500:NEXT K
5115 GOSUB 10000 '** Textpad **
5120 PRINT FNCEN$("to get a good, sharp crease",40)
5125 FOR K=1 TO 1500:NEXT K
5130 GOSUB 10000 '** Textpad **
5135 PRINT FNCEN$("along this edge,",40)
5140 FOR K=1 TO 750:NEXT K
5145 '*** arrow up ***
5150 PSET(160,108):DRAW"G5R4D7R2U7R4H5"
5155 PAINT(160,114)
5160 FOR K=1 TO 25
5165 LINE(128,100)-(192,100),0
5170 FOR M=1 TO 25:NEXT M
5175 LINE(128,100)-(192,100),3
5180 NEXT K
5185 FOR K=1 TO 750:NEXT K
5190 GOSUB 10000 '** Textpad **
5195 PRINT FNCEN$("creasing once,",40)
5200 FOR K=1 TO 250:NEXT K
5205 FOR P=192 TO 128 STEP -2
5210 PSET(P,101),1
5215 PSET(P,102),1
5220 FOR Q=1 TO 10:NEXT Q
5225 NEXT P
5230 FOR P=192 TO 128 STEP-2
5235 PSET(P,101),0
5240 PSET(P,102),0
5245 NEXT P
5250 FOR K=1 TO 500:NEXT K
5255 GOSUB 10000 '** Textpad **
5260 PRINT FNCEN$("creasing twice,",40)
5265 FOR K=1 TO 250:NEXT K
5270 FOR P=128 TO 192 STEP 2
5275 PSET(P,101),1
5280 PSET(P,102),1
5285 FOR Q=1 TO 10:NEXT Q
5290 NEXT P
5295 FOR P=128 TO 192 STEP 2
5300 PSET(P,101),0
5305 PSET(P,102),0
5310 NEXT P
5315 CIRCLE(160,114),7,0
5320 PAINT(160,114),0
5325 FOR K=1 TO 750:NEXT K
5330 GOSUB 10000 '** Textpad **
5335 PRINT FNCEN$("and back we go down again!",40)
5340 FOR K=1 TO 1500:NEXT K
5345 LINE(160,30)-(160,100),3
5350 FOR V=30 TO 70
5355 LINE(128,100)-(160,V),0
5360 LINE-(192,100),0
5365 LINE(128,70)-(192,100),3,BF
5370 FOR W=30 TO 70 STEP 2
5375 PSET(160,W)
5380 NEXT W
5385 NEXT V
5390 FOR V=71 TO 100
5395 LINE(128,100)-(160,V),0
5400 LINE-(192,100),0
5405 LINE(128,100)-(160,V),3
5410 LINE-(192,100),3
5415 LINE(128,V-1)-(192,V-1),3
5420 PSET(160,V-1),0
5425 NEXT V
5430 FOR H=128 TO 192 STEP 2
5435 PSET(H,99),0
5440 NEXT H
5445 FOR V=101 TO 170
5450 LINE(128,101)-(160,V),3
5455 LINE-(192,101),3
5460 PSET(160,V-1),0
5465 NEXT V
5470 LINE(160,70)-(160,170),0
5475 FOR H=128 TO 192 STEP 2
5480 PSET(H,99),3
5485 NEXT H
5490 FOR H=128 TO 192 STEP 2
5495 PSET(H,100),0
5500 NEXT H
5505 PSET(160,99),0
5510 LINE(114,70)-(160,171),0
5515 LINE-(206,70),0
5520 PSET(128,102),0:PSET(192,102),0
5525 FOR K=1 TO 250:NEXT K
5530 GOSUB 10000 '** Textpad **
5535 PRINT FNCEN$("and BACKFOLD!",40)
5540 FOR K=1 TO 750:NEXT K
5545 FOR V=170 TO 100 STEP -1
5550 LINE(128,100)-(160,V),0
5555 LINE-(192,100),0
5560 LINE(160,70)-(160,100),0
5565 NEXT V
5570 FOR V=100 TO 70 STEP -1
5575 LINE(128,100)-(160,V),1
5580 LINE-(192,100),1
5585 LINE(128,100)-(160,V),3
5590 LINE-(191,100),3
5595 PSET(160,V+1),0
5600 NEXT V
5605 LINE(128,70)-(192,100),3,BF
5610 LINE(160,70)-(160,100),0
5615 FOR V=69 TO 30 STEP -1
5620 LINE(128,100)-(160,V),1
5625 LINE-(192,100),1
5630 LINE(128,100)-(160,V),0
5635 LINE-(192,100),0
5640 LINE(128,70)-(192,100),3,BF
5645 LINE(160,70)-(160,100),0
5650 FOR W=68 TO 30 STEP -2
5655 PSET(160,W)
5660 NEXT W
5665 NEXT V
5670 LINE(142,69)-(128,100),1
5675 LINE(178,69)-(192,100),1
5680 LINE(142,69)-(160,30),1
5685 LINE-(178,69),1
5690 FOR K=1 TO 750:NEXT K
5695 GOSUB 10000 '** Textpad **
5700 PRINT FNCEN$("and crease once,",40)
5705 FOR K=1 TO 750:NEXT K
5710 FOR P=192 TO 128 STEP -2
5715 PSET(P,101),1
5720 PSET(P,102),1
5725 FOR Q=1 TO 10:NEXT Q
5730 NEXT P
5735 FOR P=192 TO 128 STEP -2
5740 PSET(P,101),0
5745 PSET(P,102),0
5750 NEXT P
5755 FOR K=1 TO 750:NEXT K
5760 GOSUB 10000 '** Textpad **
5765 PRINT FNCEN$("and crease twice,",40)
5770 FOR K=1 TO 750:NEXT K
5775 FOR P=128 TO 192 STEP 2
5780 PSET(P,101),1
5785 PSET(P,102),1
5790 FOR Q=1 TO 10:NEXT Q
5795 NEXT P
5800 FOR P=128 TO 192 STEP 2
5805 PSET(P,101),0
5810 PSET(P,102),0
5815 NEXT P
5820 FOR K=1 TO 750:NEXT K
5825 GOSUB 10000 '** Textpad **
5830 PRINT FNCEN$("and return!",40)
5835 FOR K=1 TO 250:NEXT K
5840 FOR V=30 TO 70
5845 LINE(128,100)-(160,V),1
5850 LINE-(192,100),1
5855 LINE(128,100)-(160,V),0
5860 LINE-(192,100),0
5865 LINE(128,70)-(192,100),3,BF
5870 LINE(166,42)-(178,68),0
5875 LINE(154,42)-(142,68),0
5880 LINE(160,70)-(160,100),0
5885 FOR W=30 TO 70 STEP 2
5890 PSET(160,W)
5895 NEXT W
5900 NEXT V
5905 FOR V=71 TO 100
5910 LINE(128,100)-(160,V),1
5915 LINE-(192,100),1
5920 LINE(128,100)-(160,V),3
5925 LINE-(192,100),3
5930 LINE(128,V-1)-(192,V-1),3
5935 PSET(160,V-1),0
5940 NEXT V
5945 FOR H=128 TO 192 STEP 2
5950 PSET(H,99),0
5955 NEXT H
5960 FOR V=100 TO 170
5965 LINE(128,100)-(160,V),3
5970 LINE-(192,100),3
5975 PSET(160,V-1),0
5980 NEXT V
5985 LINE(160,70)-(160,170),0
5990 LINE(114,70)-(160,171),0
5995 LINE-(206,70),0
6000 FOR K=1 TO 750: NEXT K
6005 GOSUB 10000 '** Textpad **
6010 PRINT FNCEN$("There!",40)
6015 FOR K=1 TO 1500:NEXT K
6020 GOSUB 10000 '** Textpad **
6025 PRINT FNCEN$("FOLDing and BACKFOLDing",40)
6030 FOR K=1 TO 1500:NEXT K
6035 GOSUB 10000 '** Textpad **
6040 PRINT FNCEN$("and the judicious use of our thumbnail",40)
6045 FOR K=1 TO 1500:NEXT K
6050 GOSUB 10000 '** Textpad **
6055 PRINT FNCEN$("(or our straightedge)",40)
6060 FOR K=1 TO 1500:NEXT K
6065 GOSUB 10000 '** Textpad **
6070 PRINT FNCEN$("gave us a crease here",40)
6075 FOR K=1 TO 250:NEXT K
6080 FOR K=1 TO 25
6085 LINE(128,99)-(192,99),0
6090 FOR M=1 TO 25:NEXT M
6095 LINE(128,99)-(192,99),3
6100 NEXT K
6105 FOR H=128 TO 192 STEP 2
6110 PSET(H,99),0
6115 NEXT H
6120 FOR K=1 TO 250:NEXT K
6125 GOSUB 10000 '** Textpad **
6130 PRINT FNCEN$("that's nice and sharp and supple.",40)
6135 FOR K=1 TO 1500:NEXT K
6140 GOSUB 10000 '** Textpad **
6145 PRINT FNCEN$("It's a technique we'll use fairly often.",40)
6150 FOR K=1 TO 1500:NEXT K
6155 GOSUB 10000
6160 PRINT FNCEN$("To review that demo, press <R>.",40)
6165 FOR K=1 TO 1000:NEXT K
6170 PRINT FNCEN$("To continue, press <C>.",40)
6175 A$=INKEY$:IF A$="" GOTO 6175
6180 IF A$="r" OR A$="R" GOTO 6195
6185 IF A$="c" OR A$="C" GOTO 6240
6190 GOTO 6155
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 GOSUB 10000
6225 PRINT FNCEN$("* Review *",40)
6230 FOR K=1 TO 1500:NEXT K
6235 GOTO 4760
6240 GOSUB 10000 '*** <Textpad> ***
6245 PRINT FNCEN$("Let's go on to our final folding hint.",40)
6250 FOR K=1 TO 1500:NEXT K
6255 FOR A=0 TO 20
6260 OUT 66,A:OUT 66,A
6265 OUT 97,(INP(97) OR 3)
6270 NEXT A
6275 SOUND 37,0
6280 CLS
6285 LINE(5,10)-(315,190),3,B
6290 LOCATE 7,1
6295 PRINT FNCEN$("* Hint No. 7 *",40)
6300 LINE(5,45)-(5,55)
6305 LOCATE 10,1
6310 PRINT FNCEN$("Every once in a while,",40)
6315 LINE(5,70)-(5,95)
6320 PRINT FNCEN$("we will be called upon to execute",40)
6325 LINE(5,70)-(5,95)
6330 PRINT FNCEN$("two folds,",40)
6335 LINE(5,70)-(5,95)
6340 PRINT
6345 PRINT FNCEN$("a MOUNTAIN FOLD",40)
6350 LINE(5,104)-(5,127)
6355 PRINT FNCEN$("and/or",40)
6360 LINE(5,104)-(5,127)
6365 PRINT FNCEN$("a VALLEY FOLD.",40)
6370 LINE(5,104)-(5,127)
6375 GOSUB 10030 '*** Textpad ***
6380 PRINT FNCEN$("* Press <C> to continue *",40)
6385 A$=INKEY$:IF A$="" GOTO 6385
6390 IF A$="C" OR A$="c" GOTO 6400
6395 GOTO 6375
6400 LOCATE 18,1
6405 PRINT FNCEN$("Let's look at them",40)
6410 LINE(5,135)-(5,150)
6415 PRINT FNCEN$("in their simplest forms.",40)
6420 LINE(5,135)-(5,150)
6425 A$=INKEY$:IF A$="" GOTO 6425
6430 IF A$="C" OR A$="c" GOTO 6440
6435 GOTO 6425
6440 FOR A=0 TO 20
6445 OUT 66,A:OUT 66,A
6450 OUT 97,(INP(97) OR 3)
6455 NEXT A
6460 SOUND 37,0
6465 CLS
6470 GOSUB 10000 '*** <Textpad> ***
6475 PRINT FNCEN$("MOUNTAIN FOLD",40)
6480 LINE(105,45)-(215,145),3,BF
6485 FOR K=1 TO 1000:NEXT K
6490 GOSUB 10000 '** Textpad **
6495 PRINT FNCEN$("Here's our fold line,",40)
6500 FOR K=1 TO 750:NEXT K
6505 FOR H=105 TO 215 STEP 2
6510 PSET(H,95),2
6515 NEXT H
6520 FOR K=1 TO 750:NEXT K
6525 GOSUB 10000 '*** <Textpad> ***
6530 PRINT FNCEN$("and here's our MOUNTAIN FOLD,",40)
6535 FOR K=1 TO 1500:NEXT K
6540 GOSUB 10000 '*** <Textpad> ***
6545 PRINT FNCEN$("folding downwards in back,",40)
6550 FOR K=1 TO 1500:NEXT K
6555 GOSUB 10000 '*** <Textpad> ***
6560 PRINT FNCEN$("SO!",40)
6565 FOR K=1 TO 750:NEXT K
6570 LINE(105,95)-(100,45)
6575 LINE-(105,45)
6580 PAINT(103,50)
6585 LINE(210,45)-(215,45),0
6590 LINE-(215,95),0
6595 LINE-(210,45),0
6600 PAINT(213,50),0
6605 LINE(210,45)-(215,95)
6610 LINE(105,95)-(110,145),0
6615 LINE-(105,145),0
6620 LINE-(105,95),0
6625 PAINT(107,140),0
6630 LINE(105,95)-(110,145)
6635 LINE(215,95)-(220,145)
6640 LINE-(215,145)
6645 PAINT(217,140)
6650 FOR K=1 TO 750:NEXT K
6655 FOR Q=0 TO 50
6660 LINE(105,95)-(100+0.1*Q,45+Q),0
6665 LINE-(210+0.1*Q,45+Q),0
6670 LINE-(215,95),0
6675 NEXT Q
6680 LINE(105,95)-(215,95),2
6685 FOR Q=0 TO 45
6690 LINE(105-0.11*Q,95+Q)-(105+0.11*Q,95+Q)
6695 LINE(105-0.11*Q,95+Q)-(105+0.11*Q,95+Q),0
6700 PSET(105-0.11*Q,95+Q)
6705 PSET(105,95),2
6710 NEXT Q
6715 LINE(100,140)-(110,140)
6720 FOR K=1 TO 750:NEXT K
6725 GOSUB 10000 '*** <Textpad> ***
6730 PRINT FNCEN$("MOUNTAIN FOLD",40)
6735 FOR K=1 TO 1500:NEXT K
6740 GOSUB 10000
6745 PRINT FNCEN$("To review MOUNTAIN FOLD, press <R>.",40)
6750 FOR K=1 TO 1000:NEXT K
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 6800
6775 GOTO 6740
6780 GOSUB 10000
6785 PRINT FNCEN$("* Review *",40)
6790 FOR K=1 TO 1000:NEXT K
6795 GOTO 6440
6800 GOSUB 10000 '*** <Textpad> ***
6805 PRINT FNCEN$("Let's now examine",40)
6810 FOR K=1 TO 1500:NEXT K
6815 PRINT FNCEN$("VALLEY FOLD.",40)
6820 FOR K=1 TO 1500:NEXT K
6825 FOR A=0 TO 20
6830 OUT 66,A:OUT 66,A
6835 OUT 97,(INP(97) OR 3)
6840 NEXT A
6845 SOUND 37,0
6850 CLS
6855 LINE(105,45)-(215,145),3,BF
6860 FOR K=1 TO 1000:NEXT K
6865 GOSUB 10000 '** Textpad **
6870 PRINT FNCEN$("Here's our fold line,",40)
6875 FOR K=1 TO 750:NEXT K
6880 LINE(105,95)-(215,95),1
6885 FOR K=1 TO 750:NEXT K
6890 GOSUB 10000 '*** <Textpad> ***
6895 PRINT FNCEN$("and here's our VALLEY FOLD,",40)
6900 FOR K=1 TO 1500:NEXT K
6905 GOSUB 10000 '*** <Textpad> ***
6910 PRINT FNCEN$("folding upwards in front,",40)
6915 FOR K=1 TO 1500:NEXT K
6920 GOSUB 10000 '*** <Textpad> ***
6925 PRINT FNCEN$("SO!",40)
6930 FOR K=1 TO 750:NEXT K
6935 LINE(105,95)-(100,45)
6940 LINE-(105,45)
6945 PAINT(103,50)
6950 LINE(210,45)-(215,45),0
6955 LINE-(215,95),0
6960 LINE-(210,45),0
6965 PAINT(213,50),0
6970 LINE(210,45)-(215,95)
6975 LINE(105,95)-(110,145),0
6980 LINE-(105,145),0
6985 LINE-(105,95),0
6990 PAINT(107,140),0
6995 LINE(105,95)-(110,145)
7000 LINE(215,95)-(220,145)
7005 LINE-(215,145)
7010 PAINT(217,140)
7015 FOR K=1 TO 750:NEXT K
7020 LINE(100,45)-(220,50),0,BF
7025 FOR Q=0 TO 50
7030 LINE(105,95)-(110-0.1*Q,145-Q),0
7035 LINE-(220-0.1*Q,145-Q),0
7040 NEXT Q
7045 FOR Q=0 TO 50
7050 LINE(105+0.11*Q,95-Q)-(215+0.11*Q,95-Q),0
7055 PSET(105+0.11*Q,95-Q)
7060 PSET(215+0.11*Q,95-Q)
7065 LINE(105,95)-(215,95),1
7070 NEXT Q
7075 LINE(110,45)-(220,45)
7080 FOR K=1 TO 750:NEXT K
7085 GOSUB 10000 '*** <Textpad> ***
7090 PRINT FNCEN$("VALLEY FOLD",40)
7095 FOR K=1 TO 1500:NEXT K
7100 GOSUB 10000
7105 PRINT FNCEN$("To review VALLEY FOLD, press <R>.",40)
7110 FOR K=1 TO 1000:NEXT K
7115 PRINT FNCEN$("To continue, press <C>.",40)
7120 A$=INKEY$:IF A$="" GOTO 7120
7125 IF A$="r" OR A$="R" GOTO 7140
7130 IF A$="c" OR A$="C" GOTO 7210
7135 GOTO 7100
7140 FOR A=0 TO 20
7145 OUT 66,A:OUT 66,A
7150 OUT 97,(INP(97) OR 3)
7155 NEXT A
7160 SOUND 37,0
7165 CLS
7170 LINE(105,45)-(215,145),3,BF
7175 GOSUB 10000
7180 PRINT FNCEN$("* Review *",40)
7185 FOR K=1 TO 1000:NEXT K
7190 GOSUB 10000 '*** <Textpad> ***
7195 PRINT FNCEN$("VALLEY FOLD",40)
7200 FOR K=1 TO 1500:NEXT K
7205 GOTO 6865
7210 GOSUB 10000 '** Textpad **
7215 PRINT FNCEN$("Let's look at those folds side by side.",40)
7220 FOR K=1 TO 1500:NEXT K
7225 '***Zapsound***
7230 FOR A=0 TO 20
7235 OUT 66,A:OUT 66,A
7240 OUT 97,(INP(97) OR 3)
7245 NEXT A
7250 SOUND 37,0
7255 '***End Zapsound***
7260 CLS
7265 LINE(35,140)-(25,140)
7270 LINE-(30,95)
7275 LINE-(35,145)
7280 LINE-(145,145)
7285 LINE-(140,95)
7290 LINE-(30,95),2
7295 LINE(190,100)-(180,100)
7300 LINE-(185,145)
7305 LINE-(190,95)
7310 LINE-(300,95)
7315 LINE-(295,145)
7320 LINE-(185,145),1
7325 FOR K=1 TO 1500:NEXT K
7330 GOSUB 10000 '** Textpad **
7335 PRINT FNCEN$("Take a good look. I'll wait. ",40)
7340 FOR K=1 TO 1500:NEXT K
7345 GOSUB 10000 '*** Textpad ***
7350 PRINT FNCEN$("Press <C> to continue.",40)
7355 A$=INKEY$:IF A$="" GOTO 7355
7360 IF A$="C" OR A$="c" GOTO 7370
7365 GOTO 7345
7370 GOSUB 10000 '*** <Textpad> ***
7375 PRINT FNCEN$("And that's it for INTRODUCTION!",40)
7380 FOR K=1 TO 1500:NEXT K
7385 GOSUB 10000 '*** Textpad ***
7390 LOCATE 1,4
7395 PRINT "Press <1> - To go to MAIN MENU."
7400 PRINT " <2> - To repeat INTRODUCTION."
7405 PRINT " <3> - To exit from program."
7410 E$=INPUT$(1)
7415 IF E$<"1" OR E$>"3" GOTO 7410
7420 SEL=VAL(E$)
7425 COMMON SEL
7430 CLS
7435 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
7436 LINE(70,75)-(250,125),3,B
7440 ON SEL GOTO 7445,7450,7455
7445 CHAIN"a:main"
7450 CHAIN"a:intro
7455 CHAIN"a:end"
8999 END
9900 GOSUB 30000 '*** <Textpad> ***
9910 PRINT FNCEN$("N",40)
9920 FOR K=1 TO 1500:NEXT K
9930 DELETE 9900-9930
10000 LOCATE 1,1
10010 PRINT" "
10020 LOCATE 1,1:RETURN
10030 LOCATE 1,1
10040 PRINT" "
10050 LOCATE 1,1:RETURN
JET.BAS
10 REM *** JET PLANE ***
15 SCREEN 1,0:CLS:KEY OFF: COLOR 8,0
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
25 LOCATE 12,1:PRINT FNCEN$("JET PLANE",40)
30 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
35 PRINT FNCEN$("(C) Copyright 1985 George Furiya",40)
40 PRINT FNCEN$("All Rights Reserved",40)
45 FOR K=1 TO 2500:NEXT K
50 CLS
55 FOR H=319 TO 1 STEP -318
60 LINE(319,39)-(H,40),3
65 LINE(319,41)-(H,40),3
70 LINE(319,39)-(H+1,40),0
75 LINE(319,41)-(H+1,40),0
80 NEXT H
85 FOR A=0 TO 20
90 OUT 66,A:OUT 66,A
95 OUT 97,(INP(97) OR 3)
100 NEXT A
105 SOUND 37,0
110 CLS
115 FOR H=1 TO 319 STEP 318
120 LINE(1,69)-(H,70),3
125 LINE(1,71)-(H,70),3
130 LINE(1,69)-(H-1,70),0
135 LINE(1,71)-(H-1,70),0
140 NEXT H
145 FOR A=0 TO 20
150 OUT 66,A:OUT 66,A
155 OUT 97,(INP(97) OR 3)
160 NEXT A
165 SOUND 37,0
170 CLS
175 FOR K=1 TO 500:NEXT K
180 FOR H=319 TO 1 STEP -318
185 LINE(319,39)-(H,40),3
190 LINE(319,41)-(H,40),3
195 LINE(319,39)-(H+1,40),0
200 LINE(319,41)-(H+1,40),0
205 NEXT H
210 FOR A=0 TO 20
215 OUT 66,A:OUT 66,A
220 OUT 97,(INP(97) OR 3)
225 NEXT A
230 SOUND 37,0
235 CLS
240 '///end flash across///
245 FOR K=1 TO 500:NEXT K
250 LOCATE 12,1 '***Textpad***
255 PRINT FNCEN$("Hey, what was THAT?!!",40)
260 FOR K=1 TO 1500:NEXT K
265 CLS
270 LOCATE 12,1
275 PRINT FNCEN$("Was it a bird?",40)
280 FOR K=1 TO 1500:NEXT K
285 CLS
290 FOR H=319 TO 1 STEP -318
295 LINE(319,39)-(H,40),3
300 LINE(319,41)-(H,40),3
305 LINE(319,39)-(H+1,40),0
310 LINE(319,41)-(H+1,40),0
315 NEXT H
320 FOR A=0 TO 20
325 OUT 66,A:OUT 66,A
330 OUT 97,(INP(97) OR 3)
335 NEXT A
340 SOUND 37,0
345 CLS
350 FOR H=1 TO 319 STEP 318
355 LINE(1,69)-(H,70),3
360 LINE(1,71)-(H,70),3
365 LINE(1,69)-(H-1,70),0
370 LINE(1,71)-(H-1,70),0
375 NEXT H
380 FOR A=0 TO 20
385 OUT 66,A:OUT 66,A
390 OUT 97,(INP(97) OR 3)
395 NEXT A
400 SOUND 37,0
405 CLS
410 FOR K=1 TO 500:NEXT K
415 FOR H=319 TO 1 STEP -318
420 LINE(319,39)-(H,40),3
425 LINE(319,41)-(H,40),3
430 LINE(319,39)-(H+1,40),0
435 LINE(319,41)-(H+1,40),0
440 NEXT H
445 FOR A=0 TO 20
450 OUT 66,A:OUT 66,A
455 OUT 97,(INP(97) OR 3)
460 NEXT A
465 SOUND 37,0
470 CLS
475 '///end flash across///
480 FOR K=1 TO 750:NEXT K
485 LOCATE 12,1 '***Textpad***
490 PRINT FNCEN$("Is it Superman?",40)
495 FOR K=1 TO 1500:NEXT K
500 CLS
505 FOR H=319 TO 1 STEP -318
510 LINE(319,39)-(H,40),3
515 LINE(319,41)-(H,40),3
520 LINE(319,39)-(H+1,40),0
525 LINE(319,41)-(H+1,40),0
530 NEXT H
535 FOR A=0 TO 20
540 OUT 66,A:OUT 66,A
545 OUT 97,(INP(97) OR 3)
550 NEXT A
555 SOUND 37,0
560 CLS
565 FOR H=1 TO 319 STEP 318
570 LINE(1,69)-(H,70),3
575 LINE(1,71)-(H,70),3
580 LINE(1,69)-(H-1,70),0
585 LINE(1,71)-(H-1,70),0
590 NEXT H
595 FOR A=0 TO 20
600 OUT 66,A:OUT 66,A
605 OUT 97,(INP(97) OR 3)
610 NEXT A
615 SOUND 37,0
620 CLS
625 FOR K=1 TO 500:NEXT K
630 FOR H=319 TO 1 STEP -318
635 LINE(319,39)-(H,40),3
640 LINE(319,41)-(H,40),3
645 LINE(319,39)-(H+1,40),0
650 LINE(319,41)-(H+1,40),0
655 NEXT H
660 FOR A=0 TO 20
665 OUT 66,A:OUT 66,A
670 OUT 97,(INP(97) OR 3)
675 NEXT A
680 SOUND 37,0
685 CLS
690 LOCATE 12,1
695 PRINT FNCEN$("No, it's JET PLANE!!",40)
700 FOR K=1 TO 1500:NEXT K
705 CLS
710 LOCATE 12,1
715 PRINT FNCEN$("How would YOU like to make yourself",40)
720 FOR K=1 TO 250:NEXT K
725 PRINT FNCEN$("JET PLANE!",40)
730 FOR K=1 TO 1500:NEXT K
735 CLS
740 LOCATE 12,1
745 PRINT FNCEN$("Let's just do that.",40)
750 FOR K=1 TO 1500:NEXT K
755 CLS
760 LINE(5,10)-(315,190),3,B
765 LOCATE 6,1
770 PRINT FNCEN$("You've made paper planes before.",40)
775 LINE(5,40)-(5,47)
780 GOSUB 8000 '*** Textpad ***
785 PRINT FNCEN$("* Press <C> to continue *",40)
790 A$=INKEY$:IF A$="" GOTO 790
795 IF A$="C" OR A$="c" GOTO 805
800 GOTO 780
805 LOCATE 9,1
810 PRINT FNCEN$("In making JET PLANE, however,",40)
815 LINE(5,64)-(5,71)
820 PRINT
825 PRINT FNCEN$("the difference will be",40)
830 LINE(5,80)-(5,87)
835 PRINT
840 PRINT FNCEN$("you will be learning to make folds",40)
845 LINE(5,96)-(5,103)
850 PRINT
855 PRINT FNCEN$("you can use to make",40)
860 LINE(5,112)-(5,119)
865 PRINT
870 PRINT FNCEN$("a lot of other things as well.",40)
875 LINE(5,128)-(5,135)
880 A$=INKEY$:IF A$="" GOTO 880
885 IF A$="C" OR A$="c" GOTO 895
890 GOTO 880
895 LOCATE 20,1
900 PRINT FNCEN$("Let's begin.",40)
905 LINE(5,152)-(5,159)
910 A$=INKEY$:IF A$="" GOTO 910
915 IF A$="C" OR A$="c" GOTO 925
920 GOTO 910
925 CLS
930 LINE(5,10)-(315,190),3,B
935 LOCATE 7,1
940 PRINT FNCEN$("First, we select a sheet of paper",40)
945 LINE(5,48)-(5,55)
950 PRINT
955 PRINT FNCEN$("from the origami package",40)
960 LINE(5,64)-(5,71)
965 PRINT
970 PRINT FNCEN$("that came with your software kit",40)
975 LINE(5,80)-(5,87)
980 GOSUB 8000 '*** Textpad ***
985 PRINT FNCEN$("* Press <C> to continue *",40)
990 A$=INKEY$:IF A$="" GOTO 990
995 IF A$="C" OR A$="c" GOTO 1005
1000 GOTO 980
1005 LOCATE 15,1
1010 PRINT FNCEN$("and position it",40)
1015 LINE(5,112)-(5,119)
1020 A$=INKEY$:IF A$="" GOTO 1020
1025 IF A$="C" OR A$="c" GOTO 1035
1030 GOTO 1020
1035 LOCATE 19,1 '***Textpad***
1040 PRINT FNCEN$("precisely",40)
1045 LINE(5,144)-(5,151)
1050 A$=INKEY$:IF A$="" GOTO 1050
1055 IF A$="C" OR A$="c" GOTO 1065
1060 GOTO 1050
1065 CLS
1070 GOSUB 9000 '***Textpad***
1075 PRINT FNCEN$("SO!",40)
1080 LINE (79,100)-(160,30)
1085 LINE (79,100)-(160,170)
1090 LINE (241,100)-(160,30)
1095 LINE (241,100)-(160,170)
1100 FOR K=1 TO 750:NEXT K
1105 GOSUB 9000 '***Textpad***
1110 PRINT FNCEN$("Are you set? If you're not, I'll wait.",40)
1115 FOR K=1 TO 1500:NEXT K
1120 GOSUB 9000 '***Textpad***
1125 PRINT FNCEN$("But if you are, press <C> to continue.",40)
1130 A$=INKEY$:IF A$="" GOTO 1130
1135 IF A$="C" OR A$="c" GOTO 1145
1140 GOTO 1120
1145 GOSUB 9000 '***Textpad***
1150 PRINT FNCEN$("We first fold this corner on the right",40)
1155 FOR K=1 TO 750:NEXT K
1160 FOR K=1 TO 15
1165 PSET(249,100):DRAW"E5D4R7D2L7D4H5"
1170 PAINT(255,100)
1175 FOR M=1 TO 25:NEXT M
1180 CIRCLE(255,100),7,0
1185 PAINT(255,100),0
1190 NEXT K
1195 FOR K=1 TO 750:NEXT K
1200 GOSUB 9000 '***Textpad***
1205 PRINT FNCEN$("over to this corner on the left",40)
1210 FOR K=1 TO 750:NEXT K
1215 FOR K=1 TO 15
1220 PSET(71,100):DRAW"H5D4L7D2R7D4E5"
1225 PAINT(65,100)
1230 FOR M=1 TO 25:NEXT M
1235 CIRCLE(65,100),7,0
1240 PAINT(65,100),0
1245 NEXT K
1250 FOR K=1 TO 750:NEXT K
1255 GOSUB 9000 '***Textpad***
1260 PRINT FNCEN$("across this line,",40)
1265 FOR K=1 TO 750:NEXT K
1270 FOR A=30 TO 170 STEP 2
1275 PSET (160,A)
1280 FOR Q=1 TO 5:NEXT Q
1285 NEXT A
1290 FOR K=1 TO 750:NEXT K
1295 GOSUB 9000 '***Textpad***
1300 PRINT FNCEN$("SO!",40)
1305 FOR K=1 TO 750:NEXT K
1310 FOR K=241 TO 160 STEP -1
1315 LINE (K,100)-(160,30),0
1320 LINE (K-1,100)-(160,30),3
1325 LINE (K,100)-(160,170),0
1330 LINE (K-1,100)-(160,170),3
1335 NEXT K
1340 FOR K=160 TO 79 STEP -1
1345 LINE (K,100)-(160,30),3
1350 LINE (K,100)-(160,170),3
1355 NEXT K
1360 FOR K=1 TO 750:NEXT K
1365 GOSUB 9000 '***Textpad***
1370 PRINT FNCEN$("Now, using your thumbnail",40)
1375 FOR K=1 TO 1500:NEXT K
1380 GOSUB 9000 '***Textpad***
1385 PRINT FNCEN$("or your straightedge,",40)
1390 FOR K=1 TO 1500:NEXT K
1395 GOSUB 9000 '***Textpad***
1400 PRINT FNCEN$("make a sharp crease along this edge,",40)
1405 FOR K=1 TO 750:NEXT K
1410 PSET(168,100):DRAW"E5 D4 R7 D2 L7 D4 H5" '///ARROW LEFT///
1415 PAINT(174,100)
1420 '///FLASHLINE///
1425 FOR K=1 TO 15
1430 LINE(160,30)-(160,170),1
1435 FOR M=1 TO 25:NEXT M
1440 LINE(160,30)-(160,170),0
1445 NEXT K
1450 '///END FLASHLINE///
1455 PAINT(174,100),0
1460 GOSUB 9000 '***Textpad***
1465 PRINT FNCEN$("creasing once",40)
1470 FOR K=1 TO 500:NEXT K
1475 PSET(160,25):DRAW"E5 L4 U7 L2 D7 L4 F5" '///ARROW DOWN///
1480 PAINT(160,19)
1485 '///CREASE DOWN///
1490 FOR K=1 TO 500:NEXT K
1495 FOR P=30 TO 170 STEP 2
1500 PSET(161,P),1
1505 PSET(162,P),1
1510 FOR Q=1 TO 10:NEXT Q
1515 NEXT P
1520 FOR P=30 TO 170 STEP 2
1525 PSET(161,P),0
1530 PSET(162,P),0
1535 NEXT P
1540 '///END CREASE DOWN///
1545 CIRCLE(160,19),7,0 '///ERASE ARROW DOWN///
1550 PAINT(160,19),0
1555 FOR K=1 TO 500:NEXT K
1560 GOSUB 9000 '***Textpad***
1565 PRINT FNCEN$("and creasing twice",40)
1570 FOR K=1 TO 500:NEXT K
1575 PSET(160,175):DRAW"G5 R4 D7 R2 U7 R4 H5" '///ARROW UP///
1580 PAINT(160,181)
1585 '///CREASE UP///
1590 FOR K=1 TO 500:NEXT K
1595 FOR P=170 TO 30 STEP -2
1600 PSET(161,P),1
1605 PSET(162,P),1
1610 FOR Q=1 TO 10:NEXT Q
1615 NEXT P
1620 FOR P=170 TO 30 STEP -2
1625 PSET(161,P),0
1630 PSET(162,P),0
1635 NEXT P
1640 '///END CREASE UP///
1645 CIRCLE(160,181),7,0 '///ERASE ARROW UP///
1650 PAINT(160,181),0
1655 FOR K=1 TO 500:NEXT K
1660 GOSUB 9000 '***Textpad***
1665 PRINT FNCEN$("to make sure the crease is sharp,",40)
1670 FOR K=1 TO 1500:NEXT K
1675 GOSUB 9000 '***Textpad***
1680 PRINT FNCEN$("and return!",40)
1685 FOR K=1 TO 750:NEXT K
1690 FOR K=79 TO 160
1695 LINE (79,100)-(160,30),3
1700 LINE (K+1,100)-(160,30),0
1705 LINE (79,100)-(160,170),3
1710 LINE (K+1,100)-(160,170),0
1715 NEXT K
1720 FOR K=30 TO 170 STEP 2
1725 PSET(160,K),3
1730 NEXT K
1735 FOR K=180 TO 241
1740 LINE(K,100)-(160,30),0
1745 LINE(K+1,100)-(160,30),3
1750 LINE(K,100)-(160,170),0
1755 LINE(K+1,100)-(160,170),3
1760 NEXT K
1765 FOR K=1 TO 750:NEXT K
1770 GOSUB 9000 '*** Textpad ***
1775 PRINT FNCEN$("Press <C> to continue.",40)
1780 A$=INKEY$:IF A$="" GOTO 1780
1785 IF A$="C" OR A$="c" GOTO 1795
1790 GOTO 1770
1795 GOSUB 9000 '***Textpad***
1800 PRINT FNCEN$("Our next folds take these corners",40)
1805 FOR K=1 TO 750:NEXT K
1810 FOR K=1 TO 15
1815 PSET(249,100):DRAW"E5D4R7D2L7D4H5"
1820 PAINT(255,100)
1825 PSET(71,100):DRAW"H5D4L7D2R7D4E5"
1830 PAINT(65,100)
1835 CIRCLE(255,100),7,0
1840 PAINT(255,100),0
1845 CIRCLE(65,100),7,0
1850 PAINT(65,100),0
1855 NEXT K
1860 FOR K=1 TO 750:NEXT K
1865 GOSUB 9000 '***Textpad***
1870 PRINT FNCEN$("up to this point",40)
1875 FOR K=1 TO 750:NEXT K
1880 FOR K=1 TO 15
1885 CIRCLE(160,70),5,3
1890 LINE(158,70)-(162,70),3
1895 LINE(160,68)-(160,72),3
1900 FOR M=1 TO 25:NEXT M
1905 CIRCLE(160,70),5,0
1910 LINE(158,70)-(162,70),0
1915 LINE(160,68)-(160,72),0
1920 NEXT K
1925 FOR V=60 TO 80 STEP 2
1930 PSET(160,V)
1935 NEXT V
1940 FOR K=1 TO 750:NEXT K
1945 GOSUB 9000 '***Textpad***
1950 PRINT FNCEN$("across these lines,",40)
1955 FOR K=1 TO 750:NEXT K
1960 LINE(206,70)-(160,170)
1965 LINE-(114,70)
1970 FOR K=1 TO 750:NEXT K
1975 GOSUB 9000 '***Textpad***
1980 PRINT FNCEN$("SO!",40)
1985 FOR K=1 TO 750:NEXT K
1990 FOR K=0 TO 33
1995 LINE(160,170)-(241-K,100-K),3
2000 LINE(160,170)-(241-K,100-K),0
2005 LINE(160,170)-(242-K,100-K),0
2010 NEXT K
2015 FOR H=206 TO 160 STEP -1
2020 LINE(160,170)-(H,69),3
2025 NEXT H
2030 CIRCLE(160,70),5,0
2035 PSET(160,70),0
2040 LINE(160,69)-(165,75),3,BF
2045 PSET(160,66),3:PSET(160,68),3
2050 FOR K=1 TO 750:NEXT K
2055 FOR K=0 TO 33
2060 LINE (79+K,100-K)-(160,170),3
2065 LINE(79+K,100-K)-(160,170),0
2070 LINE(78+K,100-K)-(160,170),0
2075 NEXT K
2080 FOR H=114 TO 160
2085 LINE(160,170)-(H,69),3
2090 NEXT H
2095 LINE(160,69)-(160,170),0
2100 FOR K=1 TO 750:NEXT K
2105 GOSUB 9000 '***Textpad***
2110 PRINT FNCEN$("There! Do you remember this figure?",40)
2115 FOR K=1 TO 1500:NEXT K
2120 GOSUB 9000 '***Textpad***
2125 PRINT FNCEN$("KITE BASE",40)
2130 FOR K=1 TO 1500:NEXT K
2135 GOSUB 9000 '***Textpad***
2140 PRINT FNCEN$("We'll be seeing KITE often.",40)
2145 FOR K=1 TO 1500:NEXT K
2150 GOSUB 9000 '*** Textpad ***
2155 PRINT FNCEN$("Press <C> to continue.",40)
2160 A$=INKEY$:IF A$="" GOTO 2160
2165 IF A$="C" OR A$="c" GOTO 2175
2170 GOTO 2150
2175 GOSUB 9000 '***Textpad***
2180 PRINT FNCEN$("We next fold this corner",40)
2185 FOR K=1 TO 750:NEXT K
2190 FOR K=1 TO 15
2195 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
2200 PAINT(160,184)
2205 FOR M=1 TO 25:NEXT M
2210 CIRCLE(160,184),7,0
2215 PAINT(160,184),0
2220 NEXT K
2225 FOR K=1 TO 750:NEXT K
2230 GOSUB 9000 '***Textpad***
2235 PRINT FNCEN$("up to this point",40)
2240 FOR K=1 TO 750:NEXT K
2245 FOR K=1 TO 15
2250 CIRCLE(160,80),5,0
2255 LINE(158,80)-(162,80),0
2260 LINE(160,78)-(160,82),0
2265 FOR M=1 TO 25:NEXT M
2270 CIRCLE(160,80),5,3
2275 LINE(158,80)-(162,80),3
2280 LINE(160,77)-(160,83),3
2285 NEXT K
2290 LINE(160,70)-(160,90),0
2295 FOR K=1 TO 750:NEXT K
2300 GOSUB 9000
2305 PRINT FNCEN$("over this line,",40)
2310 FOR K=1 TO 750:NEXT K
2315 FOR K=1 TO 15
2320 LINE(140,125)-(180,125),0
2325 FOR M=1 TO 25:NEXT M
2330 LINE(140,125)-(180,125),3
2335 NEXT K
2340 FOR H=140 TO 180 STEP 2
2345 PSET(H,125),0
2350 NEXT H
2355 FOR K=1 TO 750:NEXT K
2360 GOSUB 9000 '***Textpad***
2365 PRINT FNCEN$("SO!",40)
2370 FOR K=1 TO 750:NEXT K
2375 CIRCLE(160,181),7,0
2380 PAINT(160,181),0
2385 FOR V=170 TO 125 STEP -1
2390 LINE(160,V)-(180,125),3
2395 LINE(160,V+1)-(180,125),0
2400 LINE(160,V)-(140,125),3
2405 LINE(160,V+1)-(140,125),0
2410 LINE(140,127)-(146,140),0
2415 LINE(180,127)-(174,140),0
2420 NEXT V
2425 LINE(141,126)-(179,126),3
2430 CIRCLE(129,125),7,0
2435 PAINT(129,125),0
2440 CIRCLE(191,125),7,0
2445 PAINT(191,125),0
2450 FOR V=125 TO 80 STEP -1
2455 LINE(140,125)-(160,V),0
2460 LINE(140,125)-(160,V+1),3
2465 LINE(180,125)-(160,V),0
2470 LINE(180,125)-(160,V+1),3
2475 NEXT V
2480 CIRCLE(160,80),5,3
2485 LINE(158,80)-(162,80),3
2490 LINE(160,78)-(160,82),3
2495 PSET(160,76),0
2500 PSET(160,78),0
2505 PSET(160,80),0
2510 PSET(160,74),0:PSET(160,77),0
2515 PSET(160,79),0
2520 LINE(160,80)-(140,126),0
2525 LINE(160,80)-(180,126),0
2530 FOR K=1 TO 750:NEXT K
2535 GOSUB 9000 '***Textpad***
2540 PRINT FNCEN$("Press <C> to continue.",40)
2545 A$=INKEY$:IF A$="" GOTO 2545
2550 IF A$="C" OR A$="c" GOTO 2560
2555 GOTO 2535
2560 GOSUB 9000 '***Textpad***
2565 PRINT FNCEN$("Our next step folds this corner",40)
2570 FOR K=1 TO 750:NEXT K
2575 LINE(156,90)-(160,80)
2580 LINE-(164,90)
2585 LINE(156,90)-(160,100),0
2590 LINE-(164,90),0
2595 LINE-(156,90),0
2600 LINE(150,80)-(170,89),3,BF
2605 LINE(160,80)-(160,90),0
2610 FOR K=1 TO 750:NEXT K
2615 GOSUB 9000 '***Textpad***
2620 PRINT FNCEN$("down to this point",40)
2625 FOR K=1 TO 750:NEXT K
2630 FOR K=1 TO 15
2635 CIRCLE(160,140),5,3
2640 LINE(158,140)-(162,140),3
2645 LINE(160,138)-(160,142),3
2650 FOR M=1 TO 25:NEXT M
2655 CIRCLE(160,140),5,0
2660 LINE(158,140)-(162,140),0
2665 LINE(160,138)-(160,142),0
2670 NEXT K
2675 FOR K=1 TO 750:NEXT K
2680 GOSUB 9000 '***Textpad***
2685 PRINT FNCEN$("with the fold falling along this line",40)
2690 FOR K=1 TO 750:NEXT K
2695 FOR K=1 TO 15
2700 LINE(147,110)-(173,110),0
2705 FOR M=1 TO 25:NEXT M
2710 LINE(147,110)-(173,110),3
2715 NEXT K
2720 FOR H=147 TO 173 STEP 2
2725 PSET(H,110),0
2730 NEXT H
2735 FOR K=1 TO 750:NEXT K
2740 GOSUB 9000 '***Textpad***
2745 PRINT FNCEN$("SO!",40)
2750 FOR K=1 TO 750:NEXT K
2755 LINE(156,90)-(160,100)
2760 LINE-(164,90)
2765 LINE-(156,90)
2770 LINE(160,80)-(160,90)
2775 LINE(156,90)-(160,80),0
2780 LINE-(164,90),0
2785 FOR K=1 TO 750:NEXT K
2790 FOR V=80 TO 110
2795 LINE(147,110)-(160,V),0
2800 LINE-(173,110),0
2805 LINE(147,110)-(160,V),3
2810 LINE-(173,110),3
2815 PSET(160,V),0
2820 PSET(156,88),3:PSET(164,88),3
2825 PSET(152,97),3:PSET(168,97),3
2830 PSET(149,104),3:PSET(148,106),3
2835 PSET(171,104),3:PSET(172,106),3
2840 NEXT V
2845 FOR V=110 TO 140
2850 LINE(147,110)-(160,V),0
2855 LINE-(173,110),0
2860 LINE(147,110)-(160,V),3
2865 LINE-(173,110),3
2870 PSET(160,V),0
2875 LINE(147,110)-(173,110),0
2880 NEXT V
2885 LINE(147,110)-(173,110),0
2890 LINE(147,110)-(153,126),0
2895 LINE(173,110)-(167,126),0
2900 LINE(140,104)-(175,104),3
2905 LINE(140,106)-(175,106),3
2910 LINE(160,69)-(160,140),0
2915 FOR K=1 TO 750:NEXT K
2920 GOSUB 9000 '***Textpad***
2925 PRINT FNCEN$("Press <C> to continue.",40)
2930 A$=INKEY$:IF A$="" GOTO 2930
2935 IF A$="C" OR A$="c" GOTO 2945
2940 GOTO 2920
2945 GOSUB 9000 '***Textpad***
2950 PRINT FNCEN$("And now we fold this right side",40)
2955 FOR K=1 TO 750:NEXT K
2960 FOR K=1 TO 15
2965 LINE(160,30)-(206,70),0
2970 LINE-(180,126),0
2975 LINE-(167,126),0
2980 LINE-(160,140),0
2985 FOR M=1 TO 25:NEXT M
2990 LINE(160,30)-(206,69)
2995 LINE-(180,126)
3000 LINE-(167,126)
3005 LINE-(160,140)
3010 LINE(160,30)-(206,69),0
3015 NEXT K
3020 LINE(160,30)-(206,70)
3025 LINE(180,126)-(173,110),0
3030 LINE-(167,126),0
3035 FOR K=1 TO 750:NEXT K
3040 GOSUB 9000 '***Textpad***
3045 PRINT FNCEN$("over to the left on the hidden side,",40)
3050 FOR K=1 TO 750:NEXT K
3055 FOR K=1 TO 15
3060 LINE(160,30)-(114,70),0
3065 LINE-(140,126),0
3070 LINE-(153,126),0
3075 LINE-(160,140),0
3080 FOR M=1 TO 25:NEXT M
3085 LINE(160,30)-(114,69)
3090 LINE-(140,126)
3095 LINE-(153,126)
3100 LINE-(160,140)
3105 LINE(160,30)-(114,69),0
3110 NEXT K
3115 LINE(160,30)-(114,70)
3120 LINE(140,126)-(147,110),0
3125 LINE-(153,126),0
3130 FOR K=1 TO 750:NEXT K
3135 GOSUB 9000 '***Textpad***
3140 PRINT FNCEN$("SO!",40)
3145 FOR K=1 TO 750:NEXT K
3150 FOR Q=0 TO 46
3155 LINE(160,30)-(206-Q,70)
3160 LINE-(180-0.435*Q,126)
3165 LINE-(167-0.152*Q,126)
3170 LINE-(160,140)
3175 LINE(160,30)-(206-Q,70),0
3180 LINE-(180-0.435*Q,126),0
3185 LINE-(167-0.152*Q,126),0
3190 LINE-(160,140),0
3195 LINE(180-0.435*Q,126)-(173-0.28*Q,110),0
3200 LINE-(167-0.152*Q,126),0
3205 LINE(180-0.435*Q,126)-(173-0.28*Q,110)
3210 LINE-(167-0.152*Q,126)
3215 LINE(160,170)-(206-Q,70),0
3220 NEXT Q
3225 LINE(160,30)-(160,140)
3230 FOR Q=0 TO 46
3235 LINE(160,30)-(160-Q,69),1
3240 LINE-(160-0.435*Q,126),1
3245 LINE-(160-0.152*Q,126),1
3250 LINE-(160,140),1
3255 LINE(160,30)-(160-Q,69),0
3260 LINE-(160-0.435*Q,126),3
3265 LINE-(160-0.152*Q,126),3
3270 LINE-(160,140),3
3275 LINE(140,126)-(147,110),0
3280 LINE-(153,126),0
3285 LINE(147,110)-(160,110),0
3290 LINE(160,30)-(160,139)
3295 NEXT Q
3300 LINE(114,70)-(160,30)
3305 LINE-(160,139)
3320 PSET(160,110),0
3325 FOR K=1 TO 250:NEXT K
3330 GOSUB 9000
3335 PRINT FNCEN$("Great!",40)
3340 FOR K=1 TO 1500:NEXT K
3345 GOSUB 9000
3350 PRINT FNCEN$("Now, we'll position ourselves",40)
3355 FOR K=1 TO 1500:NEXT K
3360 GOSUB 9000
3365 PRINT FNCEN$("more comfortably",40)
3370 FOR K=1 TO 1500:NEXT K
3375 GOSUB 9000
3380 PRINT FNCEN$("for the final folds coming up.",40)
3385 FOR K=1 TO 1500:NEXT K
3390 LINE(141,126)-(147,110),0
3395 LINE(141,126)-(147,110),0
3400 GOSUB 9000
3405 PRINT FNCEN$("One moment, please.",40)
3410 FOR K=1 TO 1500:NEXT K
3415 '***Zapsound***
3420 FOR A=0 TO 20
3425 OUT 66,A:OUT 66,A
3430 OUT 97,(INP(97) OR 3)
3435 NEXT A
3440 SOUND 37,0
3445 FOR K=1 TO 250:NEXT K
3450 CLS
3455 LINE(60,120)-(260,120)
3460 LINE-(180,50)
3465 LINE-(80,85)
3470 LINE-(80,110)
3475 LINE-(60,120)
3480 LINE(180,50)-(180,120)
3485 PAINT(160,100),3
3490 LINE(80,85)-(110,95),0
3495 LINE-(60,119),0
3500 LINE(110,95)-(110,120),0
3505 FOR K=1 TO 750:NEXT K
3510 GOSUB 9000
3515 PRINT FNCEN$("For our final folds,",40)
3520 FOR K=1 TO 1500:NEXT K
3525 GOSUB 9000
3530 PRINT FNCEN$("we fold our wings",40)
3535 FOR K=1 TO 1500:NEXT K
3540 GOSUB 9000
3545 PRINT FNCEN$("down over this line",40)
3550 FOR K=1 TO 750:NEXT K
3555 FOR H=81 TO 180 STEP 2
3560 PSET(H,110),0
3565 NEXT H
3570 FOR H=180 TO 249 STEP 2
3575 PSET(H,110)
3580 NEXT H
3585 FOR K=1 TO 750:NEXT K
3590 GOSUB 9000 '*** <Textpad> ***
3595 PRINT FNCEN$("* Hint *",40)
3600 FOR K=1 TO 750:NEXT K
3605 PRINT FNCEN$("A straightedge would be helpful here.",40)
3610 FOR K=1 TO 1500:NEXT K
3615 FOR A=0 TO 20
3620 OUT 66,A:OUT 66,A
3625 OUT 97,(INP(97) OR 3)
3630 NEXT A
3635 SOUND 37,0
3640 LINE(100,111)-(220,128),2,BF
3645 FOR V=111 TO 119
3650 FOR H=0 TO 90 STEP 20
3655 PSET(120+H,V),0
3660 NEXT H
3665 NEXT V
3670 FOR V=111 TO 116
3675 FOR H=0 TO 105 STEP 20
3680 PSET(110+H,V),0
3685 NEXT H
3690 NEXT V
3695 FOR V=111 TO 114
3700 FOR H=0 TO 110 STEP 10
3705 PSET(105+H,V),0
3710 NEXT H
3715 NEXT V
3720 GOSUB 9000 '*** Textpad ***
3725 PRINT FNCEN$("Press <C> to continue.",40)
3730 A$=INKEY$:IF A$="" GOTO 3730
3735 IF A$="C" OR A$="c" GOTO 3745
3740 GOTO 3700
3745 GOSUB 9000
3750 PRINT FNCEN$("in front",40)
3755 FOR K=1 TO 750:NEXT K
3760 FOR Q=0 TO 60
3765 LINE(249,110)-(180,50+Q),0
3770 LINE-(80,85+0.417*Q),0
3775 LINE-(80,109),0
3780 LINE(249,110)-(180,50+Q)
3785 LINE-(80,85+0.417*Q)
3790 LINE-(80,109)
3795 LINE(80,85+0.42*Q)-(110,95+0.25*Q),0
3800 LINE-(80,109),0
3805 LINE(110,95+0.25*Q)-(110,110),0
3810 LINE(80,85+0.42*Q)-(110,95+0.25*Q)
3815 LINE-(80,109)
3820 LINE(110,95+0.25*Q)-(110,110)
3825 NEXT Q
3830 FOR Q=0 TO 60
3835 LINE(80,110)-(249,110),0
3840 LINE(80,110)-(80,110+0.417*Q),0
3845 LINE-(180,110+Q),0
3850 LINE-(249,110),0
3855 LINE(80,110)-(80,110+0.417*Q)
3860 LINE-(180,110+Q)
3865 LINE-(249,110)
3870 NEXT Q
3875 LINE(79,110)-(79,120),0
3880 PSET(80,110),0
3885 FOR K=1 TO 750:NEXT K
3890 GOSUB 9000 '*** Textpad ***
3895 PRINT FNCEN$("Press <C> to continue.",40)
3900 A$=INKEY$:IF A$="" GOTO 3900
3905 IF A$="C" OR A$="c" GOTO 3915
3910 GOTO 3890
3915 GOSUB 9000 '*** <Textpad> ***
3920 PRINT FNCEN$("and in back.",40)
3925 FOR K=1 TO 750:NEXT K
3930 FOR Q=0 TO 60
3935 LINE(249,110)-(180,50+Q),0
3940 LINE-(79,85+0.417*Q),0
3945 LINE-(79,110),0
3950 NEXT Q
3955 FOR Q=0 TO 60
3960 LINE(80,110)-(80,110+0.417*Q),1
3965 LINE-(180,110+Q),1
3970 LINE-(249,110),1
3975 LINE(80,110)-(80,110+0.417*Q)
3980 LINE-(180,110+Q)
3985 LINE-(249,110)
3990 PSET(180,110+Q)
3995 NEXT Q
4000 LINE(79,110)-(79,120),0
4005 FOR K=1 TO 750:NEXT K
4010 GOSUB 9000 '*** Textpad ***
4015 PRINT FNCEN$("Press <C> to continue.",40)
4020 A$=INKEY$:IF A$="" GOTO 4020
4025 IF A$="C" OR A$="c" GOTO 4035
4030 GOTO 4010
4035 GOSUB 9000
4040 PRINT FNCEN$("Mission accomplished!",40)
4045 LINE(75,95)-(95,100),0
4050 LINE(180,50)-(180,66),0
4055 FOR K=1 TO 1000:NEXT K
4060 GOSUB 9000
4065 PRINT FNCEN$("Looks great!",40)
4070 FOR K=1 TO 1000:NEXT K
4075 GOSUB 9000 '*** <Textpad> ***
4080 PRINT FNCEN$("We learned a lot.",40)
4085 FOR K=1 TO 1000:NEXT K
4090 GOSUB 9000
4095 PRINT FNCEN$("Ready to emplane?",40)
4100 FOR K=1 TO 1000:NEXT K
4105 GOSUB 9000
4110 PRINT FNCEN$("All aboard!",40)
4115 FOR K=1 TO 1000:NEXT K
4120 GOSUB 9000
4125 PRINT FNCEN$("TAKEOFF!",40)
4130 FOR K=1 TO 1000:NEXT K
4135 CLS
4140 FOR H=319 TO 1 STEP -318
4145 LINE(319,109)-(H,110),3
4150 LINE(319,111)-(H,110),3
4155 LINE(319,109)-(H+1,110),0
4160 LINE(319,111)-(H+1,110),0
4165 NEXT H
4170 FOR A=0 TO 20
4175 OUT 66,A:OUT 66,A
4180 OUT 97,(INP(97) OR 3)
4185 NEXT A
4190 SOUND 37,0
4195 LINE(1,95)-(319,115),0,BF
4200 GOSUB 9000 '*** Textpad ***
4205 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
4210 PRINT FNCEN$(" <2> - To repeat JET PLANE.",40)
4215 PRINT FNCEN$(" <3> - To exit from program.",40)
4220 E$=INPUT$(1)
4225 IF E$<"1" OR E$>"3" GOTO 4220
4230 SEL=VAL(E$)
4235 COMMON SEL
4240 CLS
4245 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
4246 LINE(70,75)-(250,125),3,B
4250 ON SEL GOTO 4255,4260,4265
4255 CHAIN"a:main"
4260 CHAIN"a:jet
4265 CHAIN"a:end"
8000 LOCATE 1,1
8010 PRINT" "
8030 LOCATE 1,1:RETURN
9000 LOCATE 1,1
9010 PRINT" "
9020 LOCATE 1,1:RETURN
MAIN.BAS
10 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2+V$
20 CLS
30 LOCATE 3,17:PRINT "* MAIN MENU *"
40 PRINT:PRINT
50 LOCATE 6,14:PRINT "A. Jet Plane
60 LOCATE 7,14:PRINT "B. Rabbit
70 LOCATE 8,14:PRINT "C. Waterfowl
80 LOCATE 9,14:PRINT "D. Candy Dish
90 LOCATE 10,14:PRINT "E. Two Boxes
100 LOCATE 11,14:PRINT "F. Puppy
110 LOCATE 12,14:PRINT "G. Penguin
120 LOCATE 13,14:PRINT "H. Samurai Helmet/Grouper
130 LOCATE 14,14:PRINT "I. Cicada
131 LOCATE 15,13:PRINT" J. Pig
132 LOCATE 16,13:PRINT" K. Balloon
133 LOCATE 17,13:PRINT" L. Chick
140 LOCATE 21,10:PRINT "Enter <Letter> desired."
141 A$=INKEY$:IF A$="" GOTO 141
142 IF A$="A" OR A$="a" GOTO 220
143 IF A$="B" OR A$="b" GOTO 230
144 IF A$="C" OR A$="c" GOTO 240
145 IF A$="D" OR A$="d" GOTO 250
146 IF A$="E" OR A$="e" GOTO 260
147 IF A$="F" OR A$="f" GOTO 270
148 IF A$="G" OR A$="g" GOTO 280
149 IF A$="H" OR A$="h" GOTO 290
150 IF A$="I" OR A$="i" GOTO 300
151 IF A$="J" OR A$="j" GOTO 310
152 IF A$="K" OR A$="k" GOTO 320
153 IF A$="L" OR A$="l" GOTO 330
154 GOTO 30
220 CHAIN "a:jet
230 CHAIN "a:rabbit
240 CHAIN "a:waterfowl
250 CHAIN "a:candy
260 CHAIN "a:boxes
270 CHAIN "a:puppy
280 CHAIN "a:penguin
290 CHAIN "a:helmet
300 CHAIN "a:cicada
310 CHAIN "a:pig
320 CHAIN "a:balloon
330 CHAIN "a:chick
PENGUIN.BAS
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$("PENGUIN",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 FOR K=1 TO 2500:NEXT K
45 CLS
50 GOSUB 30000 '** Textpad **
55 PRINT FNCEN$("PENGUIN begins with an inverted KITE.",40)
60 FOR A=0 TO 20
65 OUT 66,A:OUT 66,A
70 OUT 97,(INP(97) OR 3)
75 NEXT A
80 SOUND 37,0
85 FOR K=1 TO 250:NEXT K
90 '***End Zapsound***
95 '*** start draw ***
100 LINE(160,30)-(80,100)
105 LINE-(160,170)
110 LINE-(240,100)
115 LINE-(160,30)
120 FOR K=1 TO 1500:NEXT K
125 FOR V=30 TO 170 STEP 2
130 PSET(160,V)
135 NEXT V
140 FOR K=1 TO 750:NEXT K
145 LINE(115,130)-(160,30)
150 LINE-(205,130)
155 FOR K=1 TO 750:NEXT K
160 LINE(84,104)-(114,130),0
165 FOR Q=0 TO 42
170 LINE(160,30)-(80+Q,100+0.36*Q)
175 LINE-(115,130)
180 LINE(160,30)-(80+Q,100+0.36*Q),0
185 LINE-(115,130),0
190 NEXT Q
195 FOR Q=0 TO 38
200 LINE(160,30)-(122+Q,115+0.39*Q)
205 LINE-(115,130)
210 LINE(160,30)-(122+Q,114+0.39*Q)
215 LINE-(115,130)
220 NEXT Q
225 FOR K=1 TO 750:NEXT K
230 LINE(236,104)-(206,130),0
235 FOR Q=0 TO 42
240 LINE(160,30)-(240-Q,100+0.36*Q)
245 LINE-(205,130)
250 LINE(160,30)-(240-Q,100+0.36*Q),0
255 LINE-(205,130),0
260 NEXT Q
265 FOR Q=0 TO 38
270 LINE(160,30)-(198-Q,115+0.39*Q)
275 LINE-(205,130)
280 LINE(160,30)-(198-Q,114+0.39*Q)
285 LINE-(205,130)
290 NEXT Q
295 LINE(160,30)-(160,130),0
300 FOR K=1 TO 750:NEXT K
305 GOSUB 30000 '** Textpad **
310 PRINT FNCEN$("There! I'll wait for your KITE.",40)
315 FOR K=1 TO 1500:NEXT K
320 GOSUB 30000 '*** Textpad ***
325 PRINT FNCEN$("Press <C> when ready to proceed.",40)
330 A$=INKEY$:IF A$="" GOTO 330
335 IF A$="C" OR A$="c" GOTO 345
340 GOTO 320
345 GOSUB 30000 '** Textpad **
350 PRINT FNCEN$("Our first folds are preparatory folds",40)
355 FOR K=1 TO 1500:NEXT K
360 PRINT FNCEN$("for PENGUIN's beak.",40)
365 FOR K=1 TO 1500:NEXT K
370 GOSUB 30000 '** Textpad **
375 PRINT FNCEN$("We begin by folding this corner",40)
380 FOR K=1 TO 750:NEXT K
385 '*** arrow down ***
390 FOR K=1 TO 15
395 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
400 PAINT(160,16)
405 FOR M=1 TO 25:NEXT M
410 CIRCLE(160,16),7,0
415 PAINT(160,16),0
420 NEXT K
425 '***end arrow down ***
430 FOR K=1 TO 750:NEXT K
435 GOSUB 30000 '** Textpad **
440 PRINT FNCEN$("down across this line of our choosing,",40)
445 FOR K=1 TO 750:NEXT K
450 FOR H=154 TO 166 STEP 2
455 PSET(H,45),0
460 NEXT H
465 FOR K=1 TO 750:NEXT K
470 GOSUB 30000 '** Textpad **
475 PRINT FNCEN$("THUS!",40)
480 FOR K=1 TO 750:NEXT K
485 FOR V=30 TO 45
490 LINE(152,45)-(160,V),0
495 LINE-(168,45),0
500 NEXT V
505 FOR V=45 TO 60
510 LINE(152,45)-(160,V),0
515 LINE-(168,45),0
520 LINE(152,45)-(160,V)
525 LINE-(168,45)
530 NEXT V
535 LINE(152,45)-(160,60),0
540 LINE-(168,45),0
545 FOR K=1 TO 750:NEXT K
550 GOSUB 30000 '** Textpad **
555 PRINT FNCEN$("Our next fold takes us back up again",40)
560 FOR K=1 TO 1500:NEXT K
565 GOSUB 30000 '** Textpad **
570 PRINT FNCEN$("across this line,",40)
575 FOR K=1 TO 750:NEXT K
580 FOR H=155 TO 165 STEP 2
585 PSET(H,50),0
590 NEXT H
595 FOR K=1 TO 750:NEXT K
600 PRINT FNCEN$("again of our own choosing,",40)
605 FOR K=1 TO 1500:NEXT K
610 GOSUB 30000 '** Textpad **
615 PRINT FNCEN$("SO!",40)
620 FOR K=1 TO 750:NEXT K
625 FOR V=60 TO 40 STEP -1
630 LINE(155,50)-(160,V),0
635 LINE-(165,50),0
640 LINE(155,50)-(160,V)
645 LINE-(165,50)
650 LINE(155,51)-(160,60)
655 LINE-(165,51)
660 PSET(160,V),0
665 PSET(160,60),0
670 NEXT V
675 LINE(157,45)-(155,50),0
680 LINE-(165,50),0
685 LINE-(163,45),0
690 FOR K=1 TO 750:NEXT K
695 GOSUB 30000 '*** Textpad ***
700 PRINT FNCEN$("Want to see those folds again?",40)
705 FOR K=1 TO 1500:NEXT K
710 GOSUB 30000 '*** Textpad ***
715 PRINT FNCEN$("If so, press <R>.",40)
720 FOR K=1 TO 1000:NEXT K
725 PRINT FNCEN$("If not, press <C> to continue.",40)
730 A$=INKEY$:IF A$="" GOTO 730
735 IF A$="r" OR A$="R" GOTO 750
740 IF A$="c" OR A$="C" GOTO 835
745 GOTO 710
750 FOR A=0 TO 20
755 OUT 66,A:OUT 66,A
760 OUT 97,(INP(97) OR 3)
765 NEXT A
770 SOUND 37,0
775 '***End Zapsound***
780 '*** start draw ***
785 LINE(150,30)-(170,50),0,BF
790 LINE(151,50)-(160,30)
795 LINE-(169,50)
800 LINE-(151,50)
805 PAINT(160,40)
810 LINE(160,30)-(160,50),0
815 GOSUB 30000 '** Textpad **
820 PRINT FNCEN$("* Review *",40)
825 FOR K=1 TO 1500:NEXT K
830 GOTO 370
835 GOSUB 30000 '** Textpad **
840 PRINT FNCEN$("We'll be using those folds",40)
845 FOR K=1 TO 1500:NEXT K
850 PRINT FNCEN$("for PENGUIN's beak later on.",40)
855 FOR K=1 TO 1500:NEXT K
860 GOSUB 30000 '** Textpad **
865 PRINT FNCEN$("Let's move on.",40)
870 FOR K=1 TO 1500:NEXT K
875 FOR V=50 TO 30 STEP -1
880 LINE(151,50)-(160,V)
885 LINE-(169,50)
890 PSET(160,V),0
895 NEXT V
900 LINE(160,30)-(160,40),0
905 FOR K=1 TO 750:NEXT K
910 GOSUB 30000 '** Textpad **
915 PRINT FNCEN$("Our next fold takes this corner",40)
920 FOR K=1 TO 1500:NEXT K
925 LINE(160,130)-(160,120),0
930 LINE-(150,130),0
935 LINE-(160,130),0
940 PAINT(158,128),0
945 LINE(150,130)-(150,120),0
950 LINE-(160,120),0
955 FOR K=1 TO 1500:NEXT K
960 GOSUB 30000 '** Textpad **
965 PRINT FNCEN$("up to this point",40)
970 FOR K=1 TO 750:NEXT K
975 FOR K=1 TO 15
980 CIRCLE(95,100),5
985 LINE(93,100)-(97,100)
990 LINE(95,98)-(95,102)
995 FOR M=1 TO 25:NEXT M
1000 CIRCLE(95,100),5,0
1005 LINE(93,100)-(97,100),0
1010 LINE(95,98)-(95,102),0
1015 NEXT K
1020 FOR K=1 TO 750:NEXT K
1025 GOSUB 30000 '** Textpad **
1030 PRINT FNCEN$("across this line,",40)
1035 FOR K=1 TO 750:NEXT K
1040 LINE(160,58)-(120,130),0
1045 FOR K=1 TO 750:NEXT K
1050 GOSUB 30000 '** Textpad **
1055 PRINT FNCEN$("(Hint: Use your straightedge",40)
1060 FOR K=1 TO 1500:NEXT K
1065 PRINT FNCEN$("to draw that line",40)
1070 FOR K=1 TO 1500:NEXT K
1075 PRINT FNCEN$("and help get our fold started.)",40)
1080 FOR K=1 TO 2500:NEXT K
1085 GOSUB 30000 '*** Textpad ***
1090 PRINT FNCEN$("Are you ready? If so, press <C>.",40)
1095 A$=INKEY$:IF A$="" GOTO 1095
1100 IF A$="C" OR A$="c" GOTO 1110
1105 GOTO 1085
1110 GOSUB 30000 '** Textpad **
1115 PRINT FNCEN$("and away we go!",40)
1120 FOR K=1 TO 750:NEXT K
1125 LINE(150,130)-(150,120)
1130 LINE-(159,120)
1135 LINE-(159,130)
1140 LINE-(150,130)
1145 PAINT(158,128)
1150 FOR Q=0 TO 32
1155 LINE(160,58)-(159-Q,130-0.47*Q),0
1160 LINE-(120,130),0
1165 LINE(160,58)-(160-Q,130-0.47*Q),0
1170 LINE-(120,130),0
1175 NEXT Q
1180 FOR Q=0 TO 33
1185 LINE(160,58)-(128-Q,115-0.45*Q)
1190 LINE-(120,130)
1195 LINE(160,58)-(128-Q,115-0.45*Q),0
1200 LINE-(120,130),0
1205 LINE(160,58)-(129-Q,115-0.45*Q),0
1210 LINE-(120,130),0
1215 LINE(160,58)-(120,130)
1220 NEXT Q
1225 LINE(160,58)-(95,100)
1230 LINE-(120,130)
1235 FOR V=60 TO 170 STEP 2
1240 PSET(160,V)
1245 NEXT V
1250 GOSUB 30000 '*** Textpad ***
1255 PRINT FNCEN$("To review that fold, press <R>",40)
1260 FOR K=1 TO 1000:NEXT K
1265 PRINT FNCEN$("To continue, press <C>.",40)
1270 A$=INKEY$:IF A$="" GOTO 1270
1275 IF A$="r" OR A$="R" GOTO 1290
1280 IF A$="c" OR A$="C" GOTO 1385
1285 GOTO 1250
1290 FOR A=0 TO 20
1295 OUT 66,A:OUT 66,A
1300 OUT 97,(INP(97) OR 3)
1305 NEXT A
1310 SOUND 37,0
1315 LINE(115,124)-(95,100),0
1320 LINE-(140,71),0
1325 LINE(160,30)-(115,130)
1330 LINE-(160,130)
1335 LINE-(160,58)
1340 PAINT(150,100)
1345 PAINT(140,85)
1350 PSET(133,75),0:PSET(141,70),0
1355 PSET(119,84),0:PSET(116,125),0
1360 LINE(160,58)-(160,130),0
1365 GOSUB 30000 '** Textpad **
1370 PRINT FNCEN$("* Review *",40)
1375 FOR K=1 TO 750:NEXT K
1380 GOTO 910
1385 GOSUB 30000 '** Textpad **
1390 PRINT FNCEN$("We repeat that fold on the other side,",40)
1395 FOR K=1 TO 1500:NEXT K
1400 GOSUB 30000 '** Textpad **
1405 PRINT FNCEN$("SO!",40)
1410 FOR K=1 TO 750:NEXT K
1415 LINE(160,58)-(200,130),0
1420 FOR K=1 TO 750:NEXT K
1425 FOR Q=0 TO 32
1430 LINE(161,58)-(162+Q,130-0.47*Q),0
1435 LINE-(200,130),0
1440 LINE(161,58)-(161+Q,130-0.47*Q),0
1445 LINE-(200,130),0
1450 NEXT Q
1455 FOR Q=0 TO 33
1460 LINE(160,58)-(192+Q,115-0.45*Q)
1465 LINE-(200,130)
1470 LINE(160,58)-(192+Q,115-0.45*Q),0
1475 LINE-(200,130),0
1480 LINE(160,58)-(191+Q,115-0.45*Q),0
1485 LINE-(200,130),0
1490 LINE(160,58)-(200,130)
1495 NEXT Q
1500 LINE(160,58)-(225,100)
1505 LINE-(200,130)
1510 FOR K=1 TO 750:NEXT K
1515 GOSUB 30000 '*** Textpad ***
1520 PRINT FNCEN$("Press <C> to continue.",40)
1525 A$=INKEY$:IF A$="" GOTO 1525
1530 IF A$="C" OR A$="c" GOTO 1540
1535 GOTO 1515
1540 GOSUB 30000 '** Textpad **
1545 PRINT FNCEN$("Using our straightedge again,",40)
1550 FOR K=1 TO 1500:NEXT K
1555 GOSUB 30000 '** Textpad **
1560 PRINT FNCEN$("we draw this line",40)
1565 FOR K=1 TO 1500:NEXT K
1570 LINE(153,64)-(118,126)
1575 FOR K=1 TO 750:NEXT K
1580 GOSUB 30000 '** Textpad **
1585 PRINT FNCEN$("and fold this corner",40)
1590 FOR K=1 TO 750:NEXT K
1595 FOR K=1 TO 15
1600 PSET(87,100):DRAW"H5D4L7D2R7D4E5"
1605 PAINT(81,100)
1610 FOR M=1 TO 25:NEXT M
1615 CIRCLE(81,100),7,0
1620 PAINT(81,100),0
1625 NEXT K
1630 FOR K=1 TO 750:NEXT K
1635 GOSUB 30000 '** Textpad **
1640 PRINT FNCEN$("down to this point,",40)
1645 FOR K=1 TO 750:NEXT K
1650 FOR K=1 TO 15
1655 CIRCLE(154,126),5
1660 LINE(152,126)-(156,126)
1665 LINE(154,124)-(154,128)
1670 FOR M=1 TO 25:NEXT M
1675 CIRCLE(154,126),5,0
1680 LINE(152,126)-(156,126),0
1685 LINE(154,124)-(154,128),0
1690 NEXT K
1695 FOR K=1 TO 750:NEXT K
1700 GOSUB 30000 '** Textpad **
1705 PRINT FNCEN$("THUS!",40)
1710 FOR K=1 TO 750:NEXT K
1715 LINE(116,125)-(95,100),0
1720 LINE-(140,71),0
1725 LINE(119,84)-(141,70),0
1730 FOR Q=0 TO 30
1735 LINE(153,64)-(95+Q,100+0.43*Q)
1740 LINE-(118,126)
1745 LINE(153,64)-(95+Q,100+0.43*Q),0
1750 LINE-(118,126),0
1755 NEXT Q
1760 PSET(152,64):PSET(120,120)
1765 LINE(153,64)-(118,126)
1770 LINE(160,30)-(115,130)
1775 PAINT(143,71)
1780 FOR Q=0 TO 28
1785 LINE(153,64)-(125+Q,113+0.46*Q)
1790 LINE-(118,126)
1795 LINE(153,64)-(124+Q,113+0.46*Q)
1800 LINE-(118,126)
1805 LINE(153,64)-(118,126),0
1810 NEXT Q
1815 FOR K=1 TO 750:NEXT K
1820 GOSUB 30000 '*** Textpad ***
1825 PRINT FNCEN$("Press <R> to review that fold.",40)
1830 FOR K=1 TO 1000:NEXT K
1835 PRINT FNCEN$("Press <C> to continue.",40)
1840 A$=INKEY$:IF A$="" GOTO 1840
1845 IF A$="r" OR A$="R" GOTO 1860
1850 IF A$="c" OR A$="C" GOTO 1920
1855 GOTO 1820
1860 FOR A=0 TO 20
1865 OUT 66,A:OUT 66,A
1870 OUT 97,(INP(97) OR 3)
1875 NEXT A
1880 SOUND 37,0
1885 LINE(115,64)-(153,126),0,BF
1890 LINE(160,58)-(120,130)
1895 LINE(160,58)-(95,100)
1900 LINE-(120,130)
1905 LINE(160,30)-(142,70)
1910 PAINT(145,66)
1915 GOTO 1540
1920 GOSUB 30000 '** Textpad **
1925 PRINT FNCEN$("and repeat on the other side,",40)
1930 FOR K=1 TO 1500:NEXT K
1935 GOSUB 30000 '** Textpad **
1940 PRINT FNCEN$("SO!",40)
1945 FOR K=1 TO 750:NEXT K
1950 LINE(167,64)-(202,126)
1955 FOR K=1 TO 750:NEXT K
1960 LINE(179,70)-(201,84),0
1965 LINE(204,125)-(225,100),0
1970 LINE-(180,71),0
1975 LINE(179,84)-(201,70),0
1980 FOR Q=0 TO 30
1985 LINE(167,64)-(225-Q,100+0.43*Q)
1990 LINE-(202,126)
1995 LINE(167,64)-(225-Q,100+0.43*Q),0
2000 LINE-(202,126),0
2005 NEXT Q
2010 PSET(168,64):PSET(200,120)
2015 LINE(167,64)-(202,126)
2020 LINE(160,30)-(205,130)
2025 PAINT(177,71)
2030 FOR Q=0 TO 28
2035 LINE(167,64)-(195-Q,113+0.46*Q)
2040 LINE-(202,126)
2045 LINE(167,64)-(196-Q,113+0.46*Q)
2050 LINE-(202,126)
2055 LINE(167,64)-(202,126),0
2060 NEXT Q
2065 FOR K=1 TO 750:NEXT K
2070 GOSUB 30000 '*** Textpad ***
2075 PRINT FNCEN$("Press <C> to continue.",40)
2080 A$=INKEY$:IF A$="" GOTO 2080
2085 IF A$="C" OR A$="c" GOTO 2095
2090 GOTO 2070
2095 GOSUB 30000 '** Textpad **
2100 PRINT FNCEN$("We now fold the right side of PENGUIN",40)
2105 FOR K=1 TO 750:NEXT K
2110 LINE(203,132)-(179,153),0
2115 FOR K=1 TO 15
2120 LINE(160,30)-(205,131),0
2125 LINE-(160,170),0
2130 FOR M=1 TO 25:NEXT M
2135 LINE(160,30)-(205,131)
2140 LINE-(160,170)
2145 NEXT K
2150 GOSUB 30000 '** Textpad **
2155 PRINT FNCEN$("over onto the back of its left side,",40)
2160 FOR K=1 TO 750:NEXT K
2165 LINE(117,132)-(141,153),0
2170 FOR K=1 TO 15
2175 LINE(160,30)-(115,131),0
2180 LINE-(160,170),0
2185 FOR M=1 TO 25:NEXT M
2190 LINE(160,30)-(115,131)
2195 LINE-(160,170)
2200 NEXT K
2205 FOR K=1 TO 750:NEXT K
2210 GOSUB 30000 '** Textpad **
2215 PRINT FNCEN$("SO!",40)
2220 FOR K=1 TO 750:NEXT K
2225 FOR H=205 TO 160 STEP -1
2230 LINE(160,30)-(H,130)
2235 LINE-(160,170)
2240 LINE(160,30)-(H,130),0
2245 LINE-(160,170),0
2250 LINE(164,167)-(205,131),0
2255 PSET(170,51),0
2260 NEXT H
2265 LINE(160,30)-(160,170)
2270 FOR K=1 TO 60
2275 LINE(160,30)-(160,170),1
2280 LINE(160,30)-(160,170)
2285 NEXT K
2290 LINE(160,31)-(116,130),1
2295 LINE-(160,169),1
2300 FOR K=1 TO 1500:NEXT K
2305 LINE(160,31)-(116,130)
2310 LINE-(160,169),0
2315 PSET(160,169),2
2320 FOR K=1 TO 750:NEXT K
2325 GOSUB 30000 '*** Textpad ***
2330 PRINT FNCEN$("Press <C> to continue.",40)
2335 A$=INKEY$:IF A$="" GOTO 2335
2340 IF A$="C" OR A$="c" GOTO 2350
2345 GOTO 2325
2350 GOSUB 30000 '** Textpad **
2355 PRINT FNCEN$("We now locate the midpoint of this edge",40)
2360 FOR K=1 TO 1500:NEXT K
2365 PSET(129,80):DRAW"H5D4L7D2R7D4E5"
2370 PAINT(123,80)
2375 FOR K=1 TO 15
2380 LINE(160,30)-(115,130),0
2385 FOR M=1 TO 25:NEXT M
2390 LINE(160,30)-(115,130)
2395 NEXT K
2400 FOR K=1 TO 250:NEXT K
2405 LINE(137,80)-(138,80),2
2410 FOR K=1 TO 1500:NEXT K
2415 CIRCLE(123,80),7,0
2420 PAINT(123,80),0
2425 GOSUB 30000 '** Textpad **
2430 PRINT FNCEN$("and choose a point, any point,",40)
2435 FOR K=1 TO 1500:NEXT K
2440 PRINT FNCEN$("along the upper part of this edge,",40)
2445 FOR K=1 TO 1500:NEXT K
2450 PSET(168,60):DRAW"E5D4R7D2L7D4H5"
2455 PAINT(174,60)
2460 FOR K=1 TO 15
2465 LINE(160,30)-(160,170),0
2470 FOR M=1 TO 25:NEXT M
2475 LINE(160,30)-(160,170)
2480 NEXT K
2485 FOR K=1 TO 750:NEXT K
2490 CIRCLE(174,60),7,0
2495 PAINT(174,60),0
2500 GOSUB 30000 '** Textpad **
2505 PRINT FNCEN$("let's say, here,",40)
2510 FOR K=1 TO 750:NEXT K
2515 PSET(168,70):DRAW"E5D4R7D2L7D4H5"
2520 PAINT(174,70)
2525 FOR K=1 TO 250:NEXT K
2530 LINE(159,70)-(160,70),2
2535 FOR K=1 TO 1500:NEXT K
2540 CIRCLE(174,70),7,0
2545 PAINT(174,70),0
2550 GOSUB 30000 '** Textpad **
2555 PRINT FNCEN$("and draw a line, SO!",40)
2560 FOR K=1 TO 750:NEXT K
2565 LINE(137,80)-(160,70),2
2570 FOR K=1 TO 1500:NEXT K
2575 GOSUB 30000 '** Textpad **
2580 PRINT FNCEN$("Experiment with the location",40)
2585 FOR K=1 TO 1500:NEXT K
2590 PRINT FNCEN$("and angle of that line.",40)
2595 FOR K=1 TO 1500:NEXT K
2600 GOSUB 30000 '** Textpad **
2605 PRINT FNCEN$("You can give PENGUIN",40)
2610 FOR K=1 TO 1500:NEXT K
2615 PRINT FNCEN$("a variety of personalities",40)
2620 FOR K=1 TO 1500:NEXT K
2625 PRINT FNCEN$("by tinkering with that line.",40)
2630 FOR K=1 TO 1500:NEXT K
2635 GOSUB 30000 '*** Textpad ***
2640 PRINT FNCEN$("Press <C> to continue.",40)
2645 A$=INKEY$:IF A$="" GOTO 2645
2650 IF A$="C" OR A$="c" GOTO 2660
2655 GOTO 2635
2660 GOSUB 30000 '** Textpad **
2665 PRINT FNCEN$("and with the help of our straightedge",40)
2670 FOR K=1 TO 1500:NEXT K
2675 GOSUB 30000 '** Textpad **
2680 PRINT FNCEN$("fold and backfold this corner",40)
2685 FOR K=1 TO 750:NEXT K
2690 FOR K=1 TO 15
2695 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
2700 PAINT(160,16)
2705 FOR M=1 TO 25:NEXT M
2710 CIRCLE(160,16),7,0
2715 PAINT(160,16),0
2720 NEXT K
2725 FOR K=1 TO 750:NEXT K
2730 GOSUB 30000 '** Textpad **
2735 PRINT FNCEN$("down to this point,",40)
2740 FOR K=1 TO 750:NEXT K
2745 FOR K=1 TO 15
2750 CIRCLE(195,100),5
2755 LINE(193,100)-(197,100)
2760 LINE(195,98)-(195,102)
2765 FOR M=1 TO 25:NEXT M
2770 CIRCLE(195,100),5,0
2775 LINE(193,100)-(197,100),0
2780 LINE(195,98)-(195,102),0
2785 NEXT K
2790 FOR K=1 TO 750:NEXT K
2795 GOSUB 30000 '** Textpad **
2800 PRINT FNCEN$("SO!",40)
2805 FOR K=1 TO 750:NEXT K
2810 FOR Q=0 TO 32
2815 LINE(137,80)-(160+0.5*Q,30+Q)
2820 LINE-(160,70)
2825 LINE(137,80)-(160+0.5*Q,30+Q),0
2830 LINE(137,80)-(160+0.5*Q,29+Q),0
2835 NEXT Q
2840 PSET(160,69),0:PSET(162,68),0:PSET(177,64),0
2845 FOR Q=0 TO 38
2850 PSET(160,69),0:PSET(162,68),0:PSET(177,64),0
2855 LINE(137,80)-(176+0.5*Q,62+Q)
2860 LINE-(160,70)
2865 LINE(160,70)-(177+0.5*Q,61+Q),0
2870 NEXT Q
2875 LINE(195,100)-(137,80),0
2880 FOR K=1 TO 750:NEXT K
2885 GOSUB 30000 '** Textpad **
2890 PRINT FNCEN$("and back we go up again!",40)
2895 FOR K=1 TO 750:NEXT K
2900 FOR Q=0 TO 38
2905 LINE(137,80)-(195-0.5*Q,100-Q)
2910 LINE-(160,70)
2915 LINE(137,80)-(195-0.5*Q,100-Q),0
2920 LINE(137,80)-(195-0.5*Q,101-Q),0
2925 LINE(137,80)-(153,86-0.32*Q)
2930 LINE(137,80)-(153,87-0.32*Q)
2935 PSET(160,89-0.5*Q)
2940 PSET(160,91-0.5*Q)
2945 NEXT Q
2950 LINE(153,64)-(118,126),0
2955 FOR Q=0 TO 32
2960 LINE(137,80)-(176-0.5*Q,62-Q)
2965 LINE-(160,70)
2970 LINE(137,80)-(176-0.5*Q,63-Q)
2975 LINE-(160,70)
2980 LINE(160,70)-(176-0.5*Q,62-Q),0
2985 LINE(160,70)-(176-0.5*Q,63-Q),0
2990 LINE(154,73-0.31*Q)-(159,70-0.38*Q),0
2995 PSET(160,73-Q)
3000 LINE(153,64)-(118,126),0
3005 NEXT Q
3010 LINE(153,64)-(118,126),0
3015 LINE(160,58)-(120,130)
3020 LINE(160,30)-(160,170)
3025 FOR K=1 TO 750:NEXT K
3030 GOSUB 30000 '** Textpad **
3035 PRINT FNCEN$("Your turn to fold and backfold.",40)
3040 FOR K=1 TO 1500:NEXT K
3045 GOSUB 30000 '*** Textpad ***
3050 PRINT FNCEN$("Press <R> to review that fold.",40)
3055 FOR K=1 TO 1000:NEXT K
3060 PRINT FNCEN$("Press <C> to continue.",40)
3065 A$=INKEY$:IF A$="" GOTO 3065
3070 IF A$="r" OR A$="R" GOTO 3085
3075 IF A$="c" OR A$="C" GOTO 3130
3080 GOTO 3045
3085 FOR A=0 TO 20
3090 OUT 66,A:OUT 66,A
3095 OUT 97,(INP(97) OR 3)
3100 NEXT A
3105 SOUND 37,0
3110 GOSUB 30000 '** Textpad **
3115 PRINT FNCEN$("* Review *",40)
3120 FOR K=1 TO 750:NEXT K
3125 GOTO 2350
3130 GOSUB 30000 '** Textpad **
3135 PRINT FNCEN$("Our next fold again takes this corner",40)
3140 FOR K=1 TO 750:NEXT K
3145 FOR K=1 TO 15
3150 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
3155 PAINT(160,16)
3160 FOR M=1 TO 25:NEXT M
3165 CIRCLE(160,16),7,0
3170 PAINT(160,16),0
3175 NEXT K
3180 FOR K=1 TO 750:NEXT K
3185 GOSUB 30000 '** Textpad **
3190 PRINT FNCEN$("back down to this point",40)
3195 FOR K=1 TO 750:NEXT K
3200 FOR K=1 TO 15
3205 CIRCLE(195,100),5
3210 LINE(193,100)-(197,100)
3215 LINE(195,98)-(195,102)
3220 FOR M=1 TO 25:NEXT M
3225 CIRCLE(195,100),5,0
3230 LINE(193,100)-(197,100),0
3235 LINE(195,98)-(195,102),0
3240 NEXT K
3245 FOR K=1 TO 750:NEXT K
3250 GOSUB 30000 '** Textpad **
3255 PRINT FNCEN$("over this same line,",40)
3260 FOR K=1 TO 750:NEXT K
3265 LINE(137,80)-(160,70),2
3270 FOR K=1 TO 750:NEXT K
3275 GOSUB 30000 '** Textpad **
3280 PRINT FNCEN$("but the difference is",40)
3285 FOR K=1 TO 1500:NEXT K
3290 GOSUB 30000 '** Textpad **
3295 PRINT FNCEN$("this time we have a HOOD FOLD,",40)
3300 FOR K=1 TO 1500:NEXT K
3305 GOSUB 30000 '** Textpad **
3310 PRINT FNCEN$("which means we have to open up PENGUIN",40)
3315 FOR K=1 TO 750:NEXT K
3320 FOR A=0 TO 20
3325 OUT 66,A:OUT 66,A
3330 OUT 97,(INP(97) OR 3)
3335 NEXT A
3340 SOUND 37,0
3345 LINE(160,30)-(107,133)
3350 LINE-(160,170)
3355 PAINT(110,130)
3360 LINE(160,30)-(115,130),0
3365 LINE-(160,170),0
3370 FOR K=1 TO 750:NEXT K
3375 GOSUB 30000 '** Textpad **
3380 PRINT FNCEN$("considerably to execute the fold,",40)
3385 FOR K=1 TO 1500:NEXT K
3390 GOSUB 30000 '** Textpad **
3395 PRINT FNCEN$("and the inside surfaces here",40)
3400 FOR K=1 TO 750:NEXT K
3405 FOR K=1 TO 15
3410 PSET(140,50):DRAW"H5D4L7D2R7D4E5"
3415 PAINT(134,50)
3420 FOR M=1 TO 25:NEXT M
3425 CIRCLE(134,50),7,0
3430 PAINT(134,50),0
3435 NEXT K
3440 FOR K=1 TO 750:NEXT K
3445 GOSUB 30000 '** Textpad **
3450 PRINT FNCEN$("end up as outside surfaces",40)
3455 FOR K=1 TO 1500:NEXT K
3460 GOSUB 30000 '** Textpad **
3465 PRINT FNCEN$("HERE!",40)
3470 FOR K=1 TO 750:NEXT K
3475 FOR A=0 TO 20
3480 OUT 66,A:OUT 66,A
3485 OUT 97,(INP(97) OR 3)
3490 NEXT A
3495 SOUND 37,0
3500 LINE(149,53)-(144,64),0
3505 LINE(160,30)-(107,133),0
3510 LINE-(160,170),0
3515 LINE-(115,130),0
3520 LINE-(137,80),0
3525 LINE-(160,70),0
3530 LINE-(160,30),0
3535 PAINT(150,60),0
3540 PAINT(112,133),0
3545 PAINT(152,68),0
3550 LINE(115,131)-(148,160),0
3555 LINE(160,30)-(115,130)
3560 LINE-(160,170)
3565 LINE(155,42)-(138,79),0
3570 LINE(150,50)-(160,69),0,BF
3575 LINE(160,30)-(137,80),0
3580 LINE(138,80)-(160,70)
3585 LINE-(195,100)
3590 LINE-(160,91)
3595 PAINT(165,80)
3600 LINE(195,100)-(138,80)
3605 PAINT(155,80)
3610 LINE(195,100)-(138,80),0
3615 LINE(146,77)-(144,80)
3620 FOR K=1 TO 15
3625 LINE(138,80)-(160,70),0
3630 LINE-(195,100),0
3635 LINE-(138,80),0
3640 FOR M=1 TO 25:NEXT M
3645 LINE(138,80)-(160,70)
3650 LINE-(195,100)
3655 LINE-(138,80)
3660 NEXT K
3665 LINE(195,100)-(138,80),0
3670 FOR K=1 TO 750:NEXT K
3675 GOSUB 30000 '*** Textpad ***
3680 PRINT FNCEN$("Press <R> to review that fold.",40)
3685 FOR K=1 TO 1000:NEXT K
3690 PRINT FNCEN$("Press <C> to continue.",40)
3695 A$=INKEY$:IF A$="" GOTO 3695
3700 IF A$="r" OR A$="R" GOTO 3715
3705 IF A$="c" OR A$="C" GOTO 3810
3710 GOTO 3675
3715 FOR A=0 TO 20
3720 OUT 66,A:OUT 66,A
3725 OUT 97,(INP(97) OR 3)
3730 NEXT A
3735 SOUND 37,0
3740 LINE(125,70)-(195,100),0,BF
3745 LINE(115,130)-(160,30)
3750 LINE-(160,100)
3755 LINE(153,100)-(153,64)
3760 LINE-(160,58)
3765 LINE(153,64)-(118,126)
3770 PAINT(155,55)
3775 PAINT(145,85)
3780 LINE(153,64)-(118,126),0
3785 LINE(160,58)-(120,130)
3790 GOSUB 30000 '** Textpad **
3795 PRINT FNCEN$("* Review *",40)
3800 FOR K=1 TO 750:NEXT K
3805 GOTO 3130
3810 GOSUB 30000 '** Textpad **
3815 PRINT FNCEN$("We now tuck PENGUIN's beak",40)
3820 FOR K=1 TO 1000:NEXT K
3825 GOSUB 30000 '** Textpad **
3830 PRINT FNCEN$("into this pocket,",40)
3835 FOR K=1 TO 500:NEXT K
3840 FOR K=1 TO 15
3845 PSET(175,103):DRAW"G5R4D7R2U7R4H5"
3850 PAINT(175,109)
3855 FOR M=1 TO 25:NEXT M
3860 CIRCLE(175,109),7,0
3865 PAINT(175,109),0
3870 NEXT K
3875 FOR K=1 TO 750:NEXT K
3880 GOSUB 30000 '** Textpad **
3885 PRINT FNCEN$("bringing into play those folds",40)
3890 FOR K=1 TO 1500:NEXT K
3895 PRINT FNCEN$("we made when we first started,",40)
3900 FOR K=1 TO 750:NEXT K
3905 PSET(183,80):DRAW"E5L4U7L2D7L4F5"
3910 PAINT(183,74)
3915 FOR K=1 TO 500:NEXT K
3920 FOR K=1 TO 25
3925 LINE(177,85)-(168,91),1
3930 LINE(185,91)-(180,95),1
3935 FOR M=1 TO 25:NEXT M
3940 LINE(177,85)-(168,91),0
3945 LINE(185,91)-(180,95),0
3950 NEXT K
3955 CIRCLE(183,74),7,0
3960 PAINT(183,74),0
3965 FOR K=1 TO 750:NEXT K
3970 GOSUB 30000 '** Textpad **
3975 PRINT FNCEN$("SO!",40)
3980 FOR K=1 TO 750:NEXT K
3985 LINE(163,94)-(173,96),0
3990 PSET(168,91),0:PSET(178,85),0:PSET(179,86),0:PSET(178,88),0:PSET(160,88)
3995 FOR Q=0 TO 5
4000 LINE(161,93-Q)-(195,100),0
4005 NEXT Q
4010 FOR Q=0 TO 18
4015 LINE(168,91)-(195-Q,100-0.83*Q),0
4020 LINE-(177,85),0
4025 FOR M=1 TO 15:NEXT M
4030 NEXT Q
4035 PSET(168,91),0
4040 FOR Q=O TO 17
4045 LINE(168,91)-(177-Q,85-0.88*Q),1
4050 LINE-(177,85),1
4055 LINE(168,91)-(177-Q,85-0.88*Q)
4060 LINE-(177,85)
4065 FOR M=1 TO 15:NEXT M
4070 NEXT Q
4075 PSET(168,91),0
4080 LINE(160,70)-(169,90),1
4085 GOSUB 30000 '*** Textpad ***
4090 PRINT FNCEN$("Press <C> to continue.",40)
4095 A$=INKEY$:IF A$="" GOTO 4095
4100 IF A$="C" OR A$="c" GOTO 4110
4105 GOTO 4085
4110 GOSUB 30000 '** Textpad **
4115 PRINT FNCEN$("and pull PENGUIN's beak out,",40)
4120 FOR K=1 TO 750:NEXT K
4125 GOSUB 30000 '** Textpad **
4130 PRINT FNCEN$("SO!",40)
4135 FOR K=1 TO 750:NEXT K
4140 LINE(171,80)-(166,85),1
4145 FOR K=1 TO 250:NEXT K
4150 FOR Q=O TO 11
4155 LINE(171,80)-(161+Q,71+0.9099999*Q),1
4160 LINE-(166,85),1
4165 LINE(171,80)-(160+Q,70+0.9099999*Q)
4170 LINE-(166,85)
4175 FOR M=1 TO 15:NEXT M
4180 NEXT Q
4185 PSET(168,91),0
4190 FOR Q=0 TO 11
4195 LINE(171,80)-(171+Q,80+0.82*Q)
4200 LINE-(176,85),1
4205 FOR M=1 TO 15:NEXT M
4210 NEXT Q
4215 PSET(168,91),0
4220 LINE(160,70)-(169,90)
4225 LINE(171,80)-(166,85)
4230 LINE(160,88)-(160,95)
4235 LINE(160,70)-(182,89)
4240 LINE-(175,87)
4245 PSET(178,87):PSET(179,87):PSET(177,86)
4250 PSET(177,87):PSET(175,88):PSET(176,88)
4255 LINE(177,85)-(174,88),0
4260 PSET(171,82):PSET(170,82):PSET(168,84):PSET(169,83):PSET(176,85)
4265 FOR K=1 TO 750:NEXT K
4270 GOSUB 30000 '*** Textpad ***
4275 PRINT FNCEN$("Press <R> to review that fold.",40)
4280 FOR K=1 TO 1000:NEXT K
4285 PRINT FNCEN$("Press <C> to continue.",40)
4290 A$=INKEY$:IF A$="" GOTO 4290
4295 IF A$="r" OR A$="R" GOTO 4310
4300 IF A$="c" OR A$="C" GOTO 4480
4305 GOTO 4270
4310 FOR A=0 TO 20
4315 OUT 66,A:OUT 66,A
4320 OUT 97,(INP(97) OR 3)
4325 NEXT A
4330 SOUND 37,0
4335 LINE(177,84)-(182,89),0
4340 LINE-(174,88),0
4345 LINE-(177,84),0
4350 PAINT(178,87),0
4355 LINE(160,30)-(107,133),0
4360 LINE-(160,170),0
4365 LINE-(115,130),0
4370 LINE-(137,80),0
4375 LINE-(160,70),0
4380 LINE-(160,30),0
4385 PAINT(150,60),0
4390 PAINT(112,133),0
4395 PAINT(152,68),0
4400 LINE(115,131)-(148,160),0
4405 LINE(160,30)-(115,130)
4410 LINE-(160,170)
4415 LINE(155,42)-(138,79),0
4420 LINE(160,30)-(137,80),0
4425 LINE(138,80)-(160,70)
4430 LINE-(195,100)
4435 LINE-(160,91)
4440 PAINT(178,90)
4445 LINE(195,100)-(138,80)
4450 LINE(195,100)-(138,80),0
4455 LINE(146,77)-(144,80)
4460 GOSUB 30000 '** Textpad **
4465 PRINT FNCEN$("* Review *",40)
4470 FOR K=1 TO 1500:NEXT K
4475 GOTO 3810
4480 GOSUB 30000 '** Textpad **
4485 PRINT FNCEN$("For our next fold,",40)
4490 FOR K=1 TO 1500:NEXT K
4495 GOSUB 30000 '** Textpad **
4500 PRINT FNCEN$("we fold and backfold this corner",40)
4505 FOR K=1 TO 750:NEXT K
4510 FOR K=1 TO 15
4515 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
4520 PAINT(160,184)
4525 FOR M=1 TO 25:NEXT M
4530 CIRCLE(160,184),7,0
4535 PAINT(160,184),0
4540 NEXT K
4545 FOR K=1 TO 750:NEXT K
4550 GOSUB 30000 '** Textpad **
4555 PRINT FNCEN$("up to this point",40)
4560 FOR K=1 TO 750:NEXT K
4565 FOR K=1 TO 15
4570 CIRCLE(97,115),5
4575 LINE(95,115)-(99,115)
4580 LINE(97,113)-(97,117)
4585 FOR M=1 TO 25:NEXT M
4590 CIRCLE(97,115),5,0
4595 LINE(95,115)-(99,115),0
4600 LINE(97,113)-(97,117),0
4605 NEXT K
4610 FOR K=1 TO 750:NEXT K
4615 GOSUB 30000 '** Textpad **
4620 PRINT FNCEN$("along this line,",40)
4625 FOR K=1 TO 750:NEXT K
4630 LINE(128,142)-(160,115)
4635 FOR K=1 TO 750:NEXT K
4640 GOSUB 30000 '** Textpad **
4645 PRINT FNCEN$("Oops! PENGUIN's flipper is in the way.",40)
4650 FOR K=1 TO 1500:NEXT K
4655 GOSUB 30000 '** Textpad **
4660 PRINT FNCEN$("Let's move it out of the way",40)
4665 FOR K=1 TO 750:NEXT K
4670 PRINT FNCEN$("for the time being.",40)
4675 FOR K=1 TO 1500:NEXT K
4680 FOR Q=0 TO 5
4685 LINE(118,126)-(153-Q,126-Q),0
4690 LINE-(153,86),0
4695 NEXT Q
4700 LINE(128,142)-(160,115)
4705 FOR K=1 TO 750:NEXT K
4710 GOSUB 30000 '** Textpad **
4715 PRINT FNCEN$("and fold!",40)
4720 FOR K=1 TO 750:NEXT K
4725 FOR Q=0 TO 32
4730 LINE(128,142)-(160-Q,170-0.88*Q)
4735 LINE-(160,115)
4740 LINE(128,142)-(160-Q,170-0.88*Q),0
4745 LINE-(160,115),0
4750 LINE(160,115)-(128,142)
4755 NEXT Q
4760 FOR Q=0 TO 31
4765 LINE(128,142)-(128-Q,142-0.87*Q)
4770 LINE-(160,115)
4775 LINE(128,142)-(128-Q,142-0.87*Q),0
4780 LINE-(160,115),0
4785 LINE(160,115)-(128,142)
4790 LINE(117,125)-(119,129),0
4795 LINE(115,129)-(116,130),0
4800 PSET(122,136),0
4805 NEXT Q
4810 LINE(160,115)-(97,115)
4815 LINE-(128,142)
4820 PSET(125,114),0
4825 FOR K=1 TO 750:NEXT K
4830 GOSUB 30000 '** Textpad **
4835 PRINT FNCEN$("and back down again!",40)
4840 FOR K=1 TO 750:NEXT K
4845 FOR Q=0 TO 31
4850 LINE(128,142)-(97+Q,115+0.87*Q)
4855 LINE-(160,115)
4860 LINE(128,142)-(97+Q,115+0.87*Q),0
4865 LINE-(160,115),0
4870 LINE(160,115)-(128,142)
4875 LINE(122-0.16*Q,114+0.35*Q)-(148-0.03*Q,114+0.19*Q)
4880 NEXT Q
4885 LINE(117,125)-(115,130)
4890 LINE-(120,130)
4895 LINE-(123,125)
4900 PAINT(117,128)
4905 LINE(142,83)-(125,113)
4910 LINE(142,84)-(128,109)
4915 LINE(142,83)-(118,126),0
4920 LINE(119,127)-(121,127),0
4925 LINE(119,128)-(120,128),0
4930 PSET(120,129),0
4935 LINE(115,130)-(128,142)
4940 FOR Q=0 TO 32
4945 LINE(128,142)-(128+Q,142+0.88*Q)
4950 LINE-(160,115)
4955 LINE(128,142)-(128+Q,142+0.88*Q),0
4960 LINE-(160,115),0
4965 LINE(128,142)-(160,115)
4970 NEXT Q
4975 LINE(128,142)-(160,170)
4980 LINE-(160,115)
4985 FOR K=1 TO 750:NEXT K
4990 FOR Q=0 TO 6
4995 LINE(118,126)-(147+Q,120+Q)
5000 LINE-(153,86)
5005 PSET(145,121)
5010 NEXT Q
5015 FOR K=1 TO 750:NEXT K
5020 GOSUB 30000 '** Textpad **
5025 PRINT FNCEN$("Your turn to fold and backfold.",40)
5030 FOR K=1 TO 1500:NEXT K
5035 GOSUB 30000 '*** Textpad ***
5040 PRINT FNCEN$("To review that fold, press <R>.",40)
5045 FOR K=1 TO 1000:NEXT K
5050 PRINT FNCEN$("To continue, press <C>.",40)
5055 A$=INKEY$:IF A$="" GOTO 5055
5060 IF A$="r" OR A$="R" GOTO 5075
5065 IF A$="c" OR A$="C" GOTO 5135
5070 GOTO 5035
5075 FOR A=0 TO 20
5080 OUT 66,A:OUT 66,A
5085 OUT 97,(INP(97) OR 3)
5090 NEXT A
5095 SOUND 37,0
5100 LINE(128,142)-(160,115),0
5105 LINE(153,121)-(147,126)
5110 PSET(128,142):PSET(160,115):PSET(150,123)
5115 GOSUB 30000 '** Textpad **
5120 PRINT FNCEN$("* Review *",40)
5125 FOR K=1 TO 1500:NEXT K
5130 GOTO 4480
5135 GOSUB 30000 '** Textpad **
5140 PRINT FNCEN$("Our final fold tucks that last fold",40)
5145 FOR K=1 TO 1500:NEXT K
5150 GOSUB 30000 '** Textpad **
5155 PRINT FNCEN$("into this pocket,",40)
5160 FOR K=1 TO 750:NEXT K
5165 FOR A=0 TO 20
5170 OUT 66,A:OUT 66,A
5175 OUT 97,(INP(97) OR 3)
5180 NEXT A
5185 SOUND 37,0
5190 LINE(137,81)-(109,130)
5195 LINE-(159,170)
5200 LINE-(114,130)
5205 PAINT(120,117)
5210 LINE(136,81)-(114,130),0
5215 LINE(115,130)-(160,170),0
5220 FOR K=1 TO 15
5225 PSET(105,125):DRAW"H5D4L7D2R7D4E5"
5230 PAINT(99,125)
5235 FOR M=1 TO 25:NEXT M
5240 CIRCLE(99,125),7,0
5245 PAINT(99,125),0
5250 NEXT K
5255 FOR K=1 TO 750:NEXT K
5260 GOSUB 30000 '** Textpad **
5265 PRINT FNCEN$("SO!",40)
5270 FOR K=1 TO 750:NEXT K
5275 FOR A=0 TO 20
5280 OUT 66,A:OUT 66,A
5285 OUT 97,(INP(97) OR 3)
5290 NEXT A
5295 SOUND 37,0
5300 LINE(137,81)-(109,130),0
5305 LINE-(159,170),0
5310 LINE-(114,130),0
5315 LINE-(137,81),0
5320 PAINT(114,125),0
5325 LINE(126,102)-(123,108),0
5330 LINE(128,142)-(114,130)
5335 LINE-(97,115)
5340 LINE-(160,115)
5345 PAINT(115,120)
5350 LINE(137,81)-(114,130),0
5355 LINE(160,116)-(160,170),0
5360 PSET(125,115),0
5365 LINE(154,115)-(159,115),0
5370 FOR K=1 TO 750:NEXT K
5375 GOSUB 30000 '*** Textpad ***
5380 PRINT FNCEN$("Press <R> to review that fold.",40)
5385 FOR K=1 TO 1000:NEXT K
5390 PRINT FNCEN$("Press <C> to continue.",40)
5395 A$=INKEY$:IF A$="" GOTO 5395
5400 IF A$="r" OR A$="R" GOTO 5415
5405 IF A$="c" OR A$="C" GOTO 5495
5410 GOTO 5375
5415 FOR A=0 TO 20
5420 OUT 66,A:OUT 66,A
5425 OUT 97,(INP(97) OR 3)
5430 NEXT A
5435 SOUND 37,0
5440 LINE(120,115)-(97,115),0
5445 LINE-(114,129),0
5450 PAINT(110,120),0
5455 LINE(154,115)-(159,115),0
5460 LINE(128,142)-(160,170)
5465 LINE-(160,115)
5470 LINE(100,118)-(113,129),0
5475 GOSUB 30000 '** Textpad **
5480 PRINT FNCEN$("* Review *",40)
5485 FOR K=1 TO 1500:NEXT K
5490 GOTO 5135
5495 GOSUB 30000 '** Textpad **
5500 PRINT FNCEN$("Our last task is to set PENGUIN",40)
5505 FOR K=1 TO 1000:NEXT K
5510 PRINT FNCEN$("firmly on the ground,",40)
5515 FOR K=1 TO 1500:NEXT K
5520 GOSUB 30000 '** Textpad **
5525 PRINT FNCEN$("SO!",40)
5530 FOR K=1 TO 750:NEXT K
5535 FOR A=0 TO 20
5540 OUT 66,A:OUT 66,A
5545 OUT 97,(INP(97) OR 3)
5550 NEXT A
5555 SOUND 37,0
5560 CLS
5565 LINE(153,92)-(165,85)
5570 LINE-(164,78)
5575 LINE-(173,72)
5580 LINE-(148,77)
5585 LINE-(139,100)
5590 LINE-(156,144)
5595 LINE-(182,120)
5600 LINE-(153,92)
5605 PAINT(160,100)
5610 LINE(157,86)-(178,108)
5615 LINE-(178,149)
5620 LINE-(135,149)
5625 LINE-(152,134)
5630 LINE(139,101)-(158,149)
5635 LINE(159,148)-(163,144)
5640 LINE-(160,140)
5645 PAINT(150,145):PAINT(160,142)
5650 LINE(139,100)-(165,86),0
5655 LINE-(165,74),0
5660 LINE(143,98)-(159,143),0
5665 LINE-(165,144),0
5670 LINE(138,101)-(158,149),0
5675 PSET(161,143),0
5680 LINE(159,142)-(182,121),0
5685 LINE(160,142)-(161,142),0
5690 FOR K=1 TO 750:NEXT K
5695 GOSUB 30000 '** Textpad **
5700 PRINT FNCEN$("And there we have it!",40)
5705 FOR K=1 TO 750:NEXT K
5710 GOSUB 30000 '** Textpad **
5715 PRINT FNCEN$("PENGUIN",40)
5720 FOR K=1 TO 750:NEXT K
5725 GOSUB 30000 '** Textpad **
5730 PRINT FNCEN$("Mission accomplished!",40)
5735 FOR K=1 TO 750:NEXT K
5740 GOSUB 30000 '*** Textpad ***
5745 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
5750 PRINT FNCEN$(" <2> - To repeat PENGUIN.",40)
5755 PRINT FNCEN$(" <3> - To exit from program.",40)
5760 E$=INPUT$(1)
5765 IF E$<"1" OR E$>"3" GOTO 5760
5770 SEL=VAL(E$)
5775 COMMON SEL
5780 CLS
5785 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
5786 LINE(70,75)-(250,125),3,B
5790 ON SEL GOTO 5795,5800,5805
5795 CHAIN"a:main"
5800 CHAIN"a:penguin
5805 CHAIN"a:end"
5810 END
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
PIG.BAS
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 1500:NEXT K
110 FOR H=105 TO 215 STEP 2
115 PSET(H,95)
120 NEXT H
125 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
255 FOR H=105 TO 215 STEP 2
260 PSET(H,70),3
265 NEXT H
270 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 250:NEXT K
315 FOR H=105 TO 215 STEP 2
320 PSET(H,120)
325 NEXT H
330 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
380 GOSUB 30000 '** Textpad **
385 PRINT FNCEN$("There! Now, I'll wait for you.",40)
390 FOR K=1 TO 1500:NEXT K
395 GOSUB 30000 '*** Textpad ***
400 PRINT FNCEN$("To see those folds again, press <R>.",40)
405 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
485 GOTO 110
490 GOSUB 30000 '** Textpad **
495 PRINT FNCEN$("We next fold and backfold these corners",40)
500 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
600 GOSUB 30000 '** Textpad **
605 PRINT FNCEN$("over to these points",40)
610 FOR K=1 TO 750:NEXT K
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 'FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
705 GOSUB 30000 '** Textpad **
710 PRINT FNCEN$("across these lines,",40)
715 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
745 GOSUB 30000 '** Textpad **
750 PRINT FNCEN$("SO!",40)
755 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
1625 GOSUB 30000 '*** <Textpad> ***
1630 PRINT FNCEN$("Your turn to fold and backfold.",40)
1635 FOR K=1 TO 1500:NEXT K
1640 GOSUB 30000 '*** Textpad ***
1645 PRINT FNCEN$("To review those folds, press <R>.",40)
1650 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
1745 GOTO 490
1750 GOSUB 30000 '** Textpad **
1755 PRINT FNCEN$("Next, we fold this edge",40)
1760 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
1795 LINE(215,70)-(215,120)
1800 NEXT K
1805 PSET(215,95),0
1810 FOR K=1 TO 750:NEXT K
1815 CIRCLE(229,95),7,0
1820 PAINT(229,95),0
1825 FOR K=1 TO 750:NEXT K
1830 GOSUB 30000 '** Textpad **
1835 PRINT FNCEN$("over across this line,",40)
1840 FOR K=1 TO 750:NEXT K
1845 FOR V=70 TO 120 STEP 2
1850 PSET(190,V),0
1855 NEXT V
1860 FOR K=1 TO 750:NEXT K
1865 GOSUB 30000 '** Textpad **
1870 PRINT FNCEN$("THUS!",40)
1875 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 20:NEXT M
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 FOR M=1 TO 20:NEXT M
1940 NEXT H
1945 LINE(165,70)-(165,120),0
1950 FOR K=1 TO 750:NEXT K
1955 GOSUB 30000 '** Textpad **
1960 PRINT FNCEN$("and return!",40)
1965 FOR K=1 TO 750:NEXT K
1970 FOR H=165 TO 190
1975 LINE(H,70)-(H,120),0
1980 LINE(H,70)-(H,120),3
1985 FOR M=1 TO 20:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 20:NEXT M
2135 NEXT H
2140 FOR H=130 TO 155
2145 LINE(H,70)-(H,120),0
2150 LINE(H,70)-(H,120),3
2155 FOR M=1 TO 20:NEXT M
2160 NEXT H
2165 LINE(155,70)-(155,120),0
2170 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 20:NEXT M
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 FOR K=1 TO 750:NEXT K
2280 GOSUB 30000 '*** Textpad ***
2285 PRINT FNCEN$("To review those folds, press <R>.",40)
2290 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
2415 GOTO 1750
2420 GOSUB 30000 '** Textpad **
2425 PRINT FNCEN$("We now meet a new fold",40)
2430 FOR K=1 TO 1500:NEXT K
2435 GOSUB 30000 '** Textpad **
2440 PRINT FNCEN$("The SQUASH FOLD",40)
2445 FOR K=1 TO 1500:NEXT K
2450 GOSUB 30000 '** Textpad **
2455 PRINT FNCEN$("In this fold, this part of our figure",40)
2460 FOR K=1 TO 1500:NEXT K
2465 FOR K=1 TO 15
2470 LINE(187,70)-(215,70),0
2475 LINE-(215,95),0
2480 LINE-(187,70),0
2485 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 150:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 1500:NEXT K
2695 GOSUB 30000 '** Textpad **
2700 PRINT FNCEN$("in a bit more detail.",40)
2705 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 250:NEXT K
2800 GOSUB 30000 '** Textpad **
2805 PRINT FNCEN$("Remember, we have two layers here.",40)
2810 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 250:NEXT K
2875 GOSUB 30000 '** Textpad **
2880 PRINT FNCEN$("This line",40)
2885 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
2915 LINE(187,70)-(215,95),2
2920 NEXT K
2925 FOR K=1 TO 750:NEXT K
2930 GOSUB 30000 '** Textpad **
2935 PRINT FNCEN$("will move along this line",40)
2940 FOR K=1 TO 750:NEXT K
2945 FOR K=1 TO 25
2950 LINE(215,95)-(160,95),3
2955 FOR M=1 TO 25:NEXT M
2960 LINE(215,95)-(160,95),0
2965 NEXT K
2970 'LINE(160,95)-(215,95),0
2975 FOR K=1 TO 750:NEXT K
2980 GOSUB 30000 '** Textpad **
2985 PRINT FNCEN$("over to here,",40)
2990 FOR K=1 TO 750:NEXT K
2995 LINE(187,70)-(215,95),3
3000 FOR K=1 TO 25
3005 LINE(187,70)-(161,94),3
3010 FOR M=1 TO 25:NEXT M
3015 LINE(187,70)-(161,94),2
3020 NEXT K
3025 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
3055 FOR K=1 TO 25
3060 LINE(187,70)-(215,70),3
3065 LINE(187,71)-(215,71),3
3070 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
3100 GOSUB 30000 '** Textpad **
3105 PRINT FNCEN$("will wind up here.",40)
3110 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
3185 LINE(187,70)-(187,94),2
3190 NEXT K
3195 FOR K=1 TO 1500:NEXT K
3200 GOSUB 30000 '** Textpad **
3205 PRINT FNCEN$("OK! Let's execute that fold.",40)
3210 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
3280 GOSUB 30000 '** Textpad **
3285 PRINT FNCEN$("And away we go!",40)
3290 FOR K=1 TO 750:NEXT K
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-0.4*Q,70+0.371*Q),0
3320 LINE(187,70)-(215-Q,95),3
3325 LINE(214,95)-(214-0.4*Q,70+0.371*Q),3
3330 LINE(215,95)-(215-0.4*Q,70+0.371*Q),3
3335 LINE(187,70)-(215-0.4*Q,70+0.371*Q),0
3340 LINE-(215,95),0
3345 LINE(187,70)-(215,95)
3350 PSET(215-Q,95),0
3355 FOR M=1 TO 50:NEXT M
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-0.7*Q,83+0.6*Q),0
3410 LINE(160,94)-(201-0.7*Q,83+0.6*Q),3
3415 LINE-(215,94),3
3420 LINE(187,70)-(180-Q,95),3
3425 LINE(186,70)-(200-0.7*Q,83+0.6*Q),0
3430 LINE(187,70)-(201-0.7*Q,83+0.6*Q),0
3435 LINE(187,70)-(201-0.7*Q,83+0.6*Q),3
3440 LINE(160,95)-(215,95),0
3445 LINE(195,78)-(200,83),3
3450 FOR M=1 TO 50:NEXT M
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 FOR K=1 TO 750:NEXT K
3530 GOSUB 30000 '** Textpad **
3535 PRINT FNCEN$("And with the other corners,",40)
3540 FOR K=1 TO 750:NEXT K
3545 GOSUB 30000 '*** <Textpad> ***
3550 PRINT FNCEN$("SO!",40)
3555 FOR K=1 TO 750:NEXT K
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-0.4*Q,120-0.371*Q),0
3585 LINE(187,120)-(215-Q,95),3
3590 LINE(214,95)-(214-0.4*Q,120-0.371*Q),3
3595 LINE(215,95)-(215-0.4*Q,120-0.371*Q),3
3600 LINE(187,120)-(215-0.4*Q,120-0.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-0.7*Q,107-0.6*Q),0
3670 LINE(160,96)-(201-0.7*Q,107-0.6*Q),3
3675 LINE-(215,96),3
3680 LINE(187,120)-(180-Q,95),3
3685 LINE(186,120)-(200-0.7*Q,107-0.6*Q),0
3690 LINE(187,120)-(201-0.7*Q,107-0.6*Q),0
3695 LINE(187,120)-(201-0.7*Q,107-0.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 FOR K=1 TO 750:NEXT K
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+0.4*Q,70+0.371*Q),0
3815 LINE(133,70)-(105+Q,95),3
3820 LINE(106,95)-(106+0.4*Q,70+0.371*Q),3
3825 LINE(105,95)-(105+0.4*Q,70+0.371*Q),3
3830 LINE(133,70)-(105+0.4*Q,70+0.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+0.7*Q,83+0.6*Q),0
3900 LINE(160,94)-(119+0.7*Q,83+0.6*Q),3
3905 LINE-(105,94),3
3910 LINE(133,70)-(140+Q,95),3
3915 LINE(134,70)-(120+0.7*Q,83+0.6*Q),0
3920 LINE(133,70)-(119+0.7*Q,83+0.6*Q),0
3925 LINE(133,70)-(119+0.7*Q,83+0.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 FOR K=1 TO 750:NEXT K
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-0.4*Q,120+0.371*Q),0
4045 LINE(133,120)-(105+Q,95),3
4050 LINE(106,95)-(106+0.4*Q,120-0.371*Q),3
4055 LINE(105,95)-(105+0.4*Q,120-0.371*Q),3
4060 LINE(133,120)-(105+0.4*Q,120-0.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+0.7*Q,107-0.6*Q),0
4130 LINE(160,96)-(119+0.7*Q,107-0.6*Q),3
4135 LINE-(105,96),3
4140 LINE(133,120)-(140+Q,95),3
4145 LINE(134,120)-(120+0.7*Q,107-0.6*Q),0
4150 LINE(133,120)-(119+0.7*Q,107-0.6*Q),0
4155 LINE(133,120)-(119+0.7*Q,107-0.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 FOR K=1 TO 1500:NEXT K
4265 GOSUB 30000 '*** Textpad ***
4270 PRINT FNCEN$("To review those folds, press <R>.",40)
4275 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
4395 GOTO 2420
4400 LINE(105,95)-(215,105),0
4405 GOSUB 30000 '** Textpad **
4410 PRINT FNCEN$("For our next folds,",40)
4415 FOR K=1 TO 1500:NEXT K
4420 PRINT FNCEN$("we need to turn our figure over.",40)
4425 FOR K=1 TO 1500:NEXT K
4430 GOSUB 30000 '** Textpad **
4435 PRINT FNCEN$("Let's just do that.",40)
4440 FOR K=1 TO 1500:NEXT K
4445 GOSUB 30000 '** Textpad **
4450 PRINT FNCEN$("One moment, please.",40)
4455 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 250:NEXT K
4545 GOSUB 30000 '** Textpad **
4550 PRINT FNCEN$("We next take this lower portion",40)
4555 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 250:NEXT K
4635 GOSUB 30000 '** Textpad **
4640 PRINT FNCEN$("up and over to this upper portion,",40)
4645 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
4875 LINE(155,115)-(159,119)
4880 LINE(155,116)-(150,120),0
4885 LINE-(155,120),0
4890 LINE-(155,116),0
4895 FOR K=1 TO 1500:NEXT K
4900 GOSUB 30000 '** Textpad **
4905 PRINT FNCEN$("goes down to this point",40)
4910 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
4945 CIRCLE(115,137),5,0
4950 LINE(113,137)-(117,137),0
4955 LINE(115,135)-(115,139),0
4960 NEXT K
4965 FOR K=1 TO 750:NEXT K
4970 '*** end flashdot ***
4975 GOSUB 30000 '** Textpad **
4980 PRINT FNCEN$("across this line,",40)
4985 FOR K=1 TO 750:NEXT K
4990 LINE(115,80)-(133,120),0
4995 FOR K=1 TO 750:NEXT K
5000 GOSUB 30000 '** Textpad **
5005 PRINT FNCEN$("SO!",40)
5010 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1000:NEXT K
5105 GOSUB 30000 '** Textpad **
5110 PRINT FNCEN$("and on the other side,",40)
5115 FOR K=1 TO 1000:NEXT K
5120 LINE(205,80)-(187,120),0
5125 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
5195 GOSUB 30000 '** Textpad **
5200 PRINT FNCEN$("and on the hidden side,",40)
5205 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 250:NEXT K
5240 GOSUB 30000 '** Textpad **
5245 PRINT FNCEN$("and one more on the hidden side.",40)
5250 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
5325 GOSUB 30000 '** Textpad **
5330 PRINT FNCEN$("The first is a POCKET FOLD.",40)
5335 FOR K=1 TO 1500:NEXT K
5340 PRINT FNCEN$("The second is a REVERSE POCKET FOLD.",40)
5345 FOR K=1 TO 1500:NEXT K
5350 PRINT FNCEN$("We will be BACKFOLDing both these folds.",40)
5355 FOR K=1 TO 2500:NEXT K
5360 GOSUB 30000 '** Textpad **
5365 PRINT FNCEN$("Here's the first fold.",40)
5370 FOR K=1 TO 1000:NEXT K
5375 GOSUB 30000 '** Textpad **
5380 PRINT FNCEN$("This corner",40)
5385 FOR K=1 TO 750:NEXT K
5390 '*** arrow up ***
5395 FOR K=1 TO 15
5400 PSET(250,128):DRAW"G5R4D7R2U7R4H5"
5405 PAINT(250,134)
5410 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
5445 '***end arrow up ***
5450 GOSUB 30000 '** Textpad **
5455 PRINT FNCEN$("folds up to this corner",40)
5460 FOR K=1 TO 750:NEXT K
5465 '*** arrow down ***
5470 FOR K=1 TO 15
5475 PSET(205,72):DRAW"E5L4U7L2D7L4F5"
5480 PAINT(205,66)
5485 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
5520 '***end arrow down ***
5525 GOSUB 30000 '** Textpad **
5530 PRINT FNCEN$("across this line,",40)
5535 FOR K=1 TO 750:NEXT K
5540 LINE(227,100)-(207,120),0
5545 FOR K=1 TO 750:NEXT K
5550 GOSUB 30000 '** <Textpad **
5555 PRINT FNCEN$("SO!",40)
5560 FOR K=1 TO 750:NEXT K
5565 FOR Q=0 TO 43
5570 LINE(207,120)-(250-0.535*Q,120-0.4650001*Q),0
5575 LINE(207,121)-(250-0.535*Q,121-0.4650001*Q),0
5580 FOR M=1 TO 10:NEXT M
5585 NEXT Q
5590 FOR Q=0 TO 20
5595 LINE(207,120)-(227-Q,100-0.9*Q),0
5600 LINE(208,120)-(228,101),0
5605 LINE(207,120)-(227-Q,100-0.9*Q),3
5610 FOR M= 1 TO 10:NEXT M
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 FOR K=1 TO 750:NEXT K
5660 FOR K=1 TO 15
5665 LINE(207,82)-(207,120),0
5670 FOR M=1 TO 25:NEXT M
5675 LINE(207,82)-(207,120),3
5680 NEXT K
5685 FOR K=1 TO 750:NEXT K
5690 '***end arrow down ***
5695 GOSUB 30000 '** Textpad **
5700 PRINT FNCEN$("over to this edge",40)
5705 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5740 LINE(207,120)-(227,100),3
5745 NEXT K
5750 FOR K=1 TO 750:NEXT K
5755 CIRCLE(230,118),9,0
5760 PAINT(230,118),0
5765 GOSUB 30000 '** Textpad **
5770 PRINT FNCEN$("along this line,",40)
5775 FOR K=1 TO 750:NEXT K
5780 LINE(207,120)-(217,91),0
5785 FOR K=1 TO 750:NEXT K
5790 GOSUB 30000 '** Textpad **
5795 PRINT FNCEN$("SO!",40)
5800 FOR K=1 TO 750:NEXT K
5805 FOR Q=0 TO 10
5810 LINE(208,120)-(208+Q,83+0.9*Q),0
5815 LINE(207,120)-(207+Q,82+0.9*Q),0
5820 LINE(207,120)-(207+Q,82+0.9*Q),3
5825 LINE(207,120)-(217,91),0
5830 PSET(213,90),3
5835 PSET(215,91),3
5840 FOR M=1 TO 25:NEXT M
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 FOR M= 1 TO 25:NEXT M
5875 NEXT H
5880 LINE(207,120)-(237,91),0
5885 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
5930 GOSUB 30000 '** Textpad **
5935 PRINT FNCEN$("and backfolds,",40)
5940 FOR K=1 TO 1500:NEXT K
5945 GOSUB 30000 '** Textpad **
5950 PRINT FNCEN$("and here's the first return,",40)
5955 FOR K=1 TO 1000:NEXT K
5960 FOR Q=0 TO 20
5965 LINE(228-0.591*Q,99-0.45*Q)-(237-Q,91),0
5970 LINE(228-0.591*Q,98-0.45*Q)-(237-Q,91),0
5975 LINE(207,120)-(227-Q,100-0.818*Q),3
5980 LINE(207,120)-(228-Q,100-0.818*Q),3
5985 LINE(217,91)-(207,120),0
5990 PSET(215,95)
5995 FOR M= 1 TO 25:NEXT M
6000 NEXT Q
6005 FOR Q=0 TO 10
6010 LINE(207,120)-(217-Q,91-0.9*Q),0
6015 LINE(207,120)-(217-Q,91-0.9*Q)
6020 LINE(207,120)-(217,91),0
6025 PSET(218,94):PSET(217,96)
6030 FOR M= 1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1000:NEXT K
6125 FOR Q=0 TO 20
6130 LINE(207,120)-(207+Q,82+0.9*Q),0
6135 LINE(207,120)-(207+Q,82+0.9*Q),3
6140 PSET(208,120),0
6145 FOR M=1 TO 25:NEXT M
6150 NEXT Q
6155 FOR Q=0 TO 23
6160 LINE(207,120)-(228+Q,100+0.87*Q)
6165 LINE(207,120)-(227+Q,100+0.87*Q)
6170 LINE(207,120)-(227,100),0
6175 LINE(207,120)-(238,110),0
6180 FOR M=1 TO 25:NEXT M
6185 NEXT Q
6190 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6235 FOR Q=0 TO 23
6240 LINE(207,120)-(238-0.478*Q,110-0.435*Q),0
6245 LINE(207,120)-(238-0.478*Q,110-0.435*Q),3
6250 LINE(207,120)-(250-Q,120-0.87*Q),0
6255 LINE(207,121)-(250-Q,121-0.87*Q),0
6260 LINE(208,82)-(251,120),0
6265 LINE(251,120)-(232,103),0
6270 PSET(230,102),0
6275 FOR M=1 TO 25:NEXT M
6280 NEXT Q
6285 FOR Q=0 TO 20
6290 LINE(207,120)-(227-Q,100-0.9*Q),1
6295 LINE(208,120)-(228,101),0
6300 LINE(207,120)-(228-Q,100-0.9*Q),3
6305 LINE(207,120)-(227-Q,100-0.9*Q),3
6310 FOR M= 1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
6360 FOR Q=0 TO 20
6365 LINE(207,120)-(207+Q,82+0.9*Q),1
6370 LINE(207,120)-(207+Q,82+0.9*Q),3
6375 PSET(208,120),0
6380 FOR M=1 TO 25:NEXT M
6385 NEXT Q
6390 FOR Q=0 TO 23
6395 LINE(207,120)-(227+Q,100+0.87*Q)
6400 LINE(207,120)-(228+Q,100+0.87*Q)
6405 LINE(207,120)-(227,100),0
6410 LINE(207,120)-(238,110),0
6415 NEXT Q
6420 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6465 FOR Q=0 TO 12
6470 LINE(207,120)-(250-Q,120-0.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 FOR M=1 TO 25:NEXT M
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-0.55*Q,110-0.5*Q),1
6530 LINE(207,120)-(238-0.55*Q,110-0.5*Q),3
6535 LINE(207,120)-(227,100),0
6540 LINE(208,82)-(251,120),0
6545 NEXT Q
6550 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6595 FOR Q=0 TO 11
6600 LINE(227+Q,100+0.9090001*Q)-(238,91+0.818*Q),0
6605 LINE(228+Q,100+0.9090001*Q)-(239,91+0.818*Q),0
6610 LINE(207,120)-(227+Q,100+0.9090001*Q),1
6615 LINE(207,120)-(227+Q,100+0.9090001*Q),3
6620 LINE(207,120)-(227,100),0
6625 LINE(238,90)-(236,92),0
6630 FOR M=1 TO 25:NEXT M
6635 NEXT Q
6640 FOR Q=0 TO 12
6645 LINE(207,120)-(238+Q,110+0.8330001*Q)
6650 LINE(207,120)-(238,110),0
6655 PSET(238,113),3:PSET(240,114),3:PSET(239,113),3
6660 FOR M=1 TO 25:NEXT M
6665 NEXT Q
6670 FOR K=1 TO 750:NEXT K
6675 GOSUB 30000 '** <Textpad **
6680 PRINT FNCEN$("Would you like to see those folds again?",40)
6685 FOR K=1 TO 1500:NEXT K
6690 GOSUB 30000
6695 PRINT FNCEN$("If so, press <R> to review.",40)
6700 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
6780 GOTO 5310
6785 GOSUB 30000 '** Textpad **
6790 PRINT FNCEN$("Now, we'll go on to POCKET those folds.",40)
6795 FOR K=1 TO 1500:NEXT K
6800 GOSUB 30000 '** Textpad **
6805 PRINT FNCEN$("And here's the pocket.",40)
6810 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
6845 FOR K=1 TO 15
6850 PSET(235,95):DRAW"U8F3E6F2G6F3L8"
6855 PAINT(240,90)
6860 FOR M=1 TO 25:NEXT M
6865 CIRCLE(240,90),9,0
6870 PAINT(240,90),0
6875 NEXT K
6880 FOR K=1 TO 750:NEXT K
6885 GOSUB 30000 '** Textpad **
6890 PRINT FNCEN$("And off we go!",40)
6895 FOR K=1 TO 750:NEXT K
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-0.87*Q),0
6935 LINE(208,120)-(251-Q,120-0.87*Q),0
6940 FOR M=1 TO 25:NEXT M
6945 NEXT Q
6950 FOR Q=0 TO 20
6955 LINE(207,120)-(227-Q,100-0.9*Q),1
6960 LINE(207,120)-(227-Q,100-0.9*Q),3
6965 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
7020 LINE(207,120)-(217,91),1
7025 FOR K=1 TO 750:NEXT K
7030 FOR Q=0 TO 10
7035 LINE(207,120)-(207+Q,82+0.9*Q),1
7040 LINE(207,120)-(207+Q,82+0.9*Q),3
7045 FOR M=1 TO 25:NEXT M
7050 NEXT Q
7055 FOR Q=0 TO 20
7060 LINE(207,120)-(217+0.5*Q,91+0.45*Q),1
7065 LINE(207,120)-(217+0.5*Q,91+0.45*Q),3
7070 LINE(207,120)-(217+Q,91),3
7075 LINE(208,82)-(251,120),0
7080 FOR M=1 TO 25:NEXT M
7085 NEXT Q
7090 LINE(207,120)-(217,91),1
7095 GOSUB 30000 '** Textpad **
7100 PRINT FNCEN$("THERE!",40)
7105 FOR K=1 TO 1500:NEXT K
7110 GOSUB 30000 '** Textpad **
7115 PRINT FNCEN$("On second thought,",40)
7120 FOR K=1 TO 1500:NEXT K
7125 GOSUB 30000 '** Textpad **
7130 PRINT FNCEN$("let's give PIG's tail a jauntier angle,",40)
7135 FOR K=1 TO 1500:NEXT K
7140 GOSUB 30000 '** Textpad **
7145 PRINT FNCEN$("using a technique you can use",40)
7150 FOR K=1 TO 1500:NEXT K
7155 GOSUB 30000 '** Textpad **
7160 PRINT FNCEN$("to give your work a personal touch.",40)
7165 FOR K=1 TO 1500:NEXT K
7170 GOSUB 30000 '** Textpad **
7175 PRINT FNCEN$("We'll call it CREATIVE FUDGING.",40)
7180 FOR K=1 TO 1500:NEXT K
7185 GOSUB 30000 '** Textpad **
7190 PRINT FNCEN$("Take PIG's tail and FUDGE it,",40)
7195 FOR K=1 TO 1500:NEXT K
7200 GOSUB 30000 '** Textpad **
7205 PRINT FNCEN$("SO!",40)
7210 FOR K=1 TO 1500:NEXT K
7215 FOR K=1 TO 15
7220 LINE(219,91)-(229,99)
7225 LINE-(237,91)
7230 LINE-(219,91)
7235 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
7300 GOSUB 30000 '** Textpad **
7305 PRINT FNCEN$("Press <R> to review.",40)
7310 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
7450 GOSUB 30000 '** Textpad **
7455 PRINT FNCEN$("We first fold and backfold this corner",40)
7460 FOR K=1 TO 750:NEXT K
7465 FOR K=1 TO 15
7470 PSET(70,128):DRAW"G5R4D7R2U7R4H5"
7475 PAINT(70,134)
7480 FOR M=1 TO 25:NEXT M
7485 CIRCLE(70,134),7,0
7490 PAINT(70,134),0
7495 NEXT K
7500 FOR K=1 TO 750:NEXT K
7505 GOSUB 30000 '** Textpad **
7510 PRINT FNCEN$("up to here",40)
7515 FOR K=1 TO 750:NEXT K
7520 FOR K=1 TO 15
7525 PSET(115,72):DRAW"E5L4U7L2D7L4F5"
7530 PAINT(115,66)
7535 FOR M=1 TO 25:NEXT M
7540 CIRCLE(115,66),7,0
7545 PAINT(115,66),0
7550 NEXT K
7555 FOR K=1 TO 750:NEXT K
7560 GOSUB 30000 '** Textpad **
7565 PRINT FNCEN$("across this line",40)
7570 FOR K=1 TO 750:NEXT K
7575 LINE(93,100)-(113,120),0
7580 FOR K=1 TO 750:NEXT K
7585 FOR Q=0 TO 23
7590 LINE(113,120)-(70+Q,120-0.87*Q),0
7595 LINE-(93,100),0
7600 LINE(113,120)-(69+Q,120-0.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 FOR K=1 TO 750:NEXT K
7650 GOSUB 30000 '*** <Textpad> ***
7655 PRINT FNCEN$("and back!",40)
7660 FOR K=1 TO 750:NEXT K
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+0.87*Q)
7715 LINE-(93,100)
7720 LINE(113,120)-(94-Q,100+0.87*Q)
7725 LINE-(93,100)
7730 LINE(113,120)-(93,100),0
7735 LINE(69,120)-(114,80),0
7740 NEXT Q
7745 FOR K=1 TO 750:NEXT K
7750 GOSUB 30000 '*** <Textpad> ***
7755 PRINT FNCEN$("Your turn to fold and backfold.",40)
7760 FOR K=1 TO 1500:NEXT K
7765 GOSUB 30000
7770 PRINT FNCEN$("Press <R> to review.",40)
7775 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
7850 GOTO 7435
7855 GOSUB 30000 '*** <Textpad> ***
7860 PRINT FNCEN$("Our final fold is preparatory",40)
7865 FOR K=1 TO 1500:NEXT K
7870 GOSUB 30000 '*** <Textpad> ***
7875 PRINT FNCEN$("to a POCKET FOLD",40)
7880 FOR K=1 TO 1500:NEXT K
7885 GOSUB 30000 '*** <Textpad> ***
7890 PRINT FNCEN$("and folds and backfolds this corner",40)
7895 FOR K=1 TO 750:NEXT K
7900 FOR K=1 TO 15
7905 PSET(70,128):DRAW"G5R4D7R2U7R4H5"
7910 PAINT(70,134)
7915 FOR M=1 TO 25:NEXT M
7920 CIRCLE(70,134),7,0
7925 PAINT(70,134),0
7930 NEXT K
7935 FOR K=1 TO 750:NEXT K
7940 GOSUB 30000 '** Textpad **
7945 PRINT FNCEN$("up to this point",40)
7950 FOR K=1 TO 750:NEXT K
7955 FOR K=1 TO 15
7960 CIRCLE(81,90),5
7965 LINE(79,90)-(83,90)
7970 LINE(81,88)-(81,92)
7975 FOR M=1 TO 25:NEXT M
7980 CIRCLE(81,90),5,0
7985 LINE(79,90)-(83,90),0
7990 LINE(81,88)-(81,92),0
7995 NEXT K
8000 FOR K=1 TO 750:NEXT K
8005 GOSUB 30000 '** Textpad **
8010 PRINT FNCEN$("over this line,",40)
8015 FOR K=1 TO 750:NEXT K
8020 LINE(113,120)-(81,110),0
8025 FOR K=1 TO 750:NEXT K
8030 GOSUB 30000 '*** <Textpad> ***
8035 PRINT FNCEN$("SO!",40)
8040 FOR K=1 TO 750:NEXT K
8045 FOR Q=1 TO 11
8050 LINE(113,120)-(70+Q,120-0.9099999*Q)
8055 LINE-(81,110)
8060 LINE(113,120)-(70+Q,120-0.9099999*Q),0
8065 LINE(70,120)-(110,120),0
8070 FOR M=1 TO 10:NEXT M
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 FOR M=1 TO 10:NEXT M
8115 NEXT Q
8120 LINE(113,120)-(93,100)
8125 LINE(113,120)-(81,90),0
8130 FOR K=1 TO 750:NEXT K
8135 GOSUB 30000 '*** <Textpad> ***
8140 PRINT FNCEN$("and return!",40)
8145 FOR K=1 TO 750:NEXT K
8150 FOR Q=0 TO 20
8155 LINE(93,100)-(81,90+Q),0
8160 LINE-(81,110),0
8165 FOR M=1 TO 10:NEXT M
8170 NEXT Q
8175 FOR Q=0 TO 11
8180 LINE(113,120)-(81-Q,110+0.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 FOR K=1 TO 750:NEXT K
8240 GOSUB 30000 '*** <Textpad> ***
8245 PRINT FNCEN$("Your turn to fold and backfold.",40)
8250 FOR K=1 TO 1500:NEXT K
8255 GOSUB 30000
8260 PRINT FNCEN$("Press <R> to review.",40)
8265 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
8340 GOTO 7855
8345 GOSUB 30000 '** Textpad **
8350 PRINT FNCEN$("And here's the pocket,",40)
8355 FOR K=1 TO 750:NEXT K
8360 LINE(115,80)-(93,100),0
8365 LINE-(70,120),0
8370 LINE-(91,100)
8375 LINE-(115,80)
8380 FOR K=1 TO 250:NEXT K
8385 FOR K=1 TO 15
8390 PSET(90,95):DRAW"U8G3H6G2F6G3R8"
8395 PAINT(85,90)
8400 FOR M=1 TO 25:NEXT M
8405 CIRCLE(85,90),9,0
8410 PAINT(85,90),0
8415 NEXT K
8420 FOR K=1 TO 750:NEXT K
8425 GOSUB 30000 '** Textpad **
8430 PRINT FNCEN$("and in we go!",40)
8435 FOR K=1 TO 750:NEXT K
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-0.9099999*Q)
8475 LINE-(81,110)
8480 LINE(113,120)-(70+Q,120-0.9099999*Q),0
8485 LINE(70,120)-(110,120),0
8490 FOR M=1 TO 10:NEXT M
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 FOR M=1 TO 10:NEXT M
8540 NEXT Q
8545 LINE(113,120)-(93,100),1
8550 FOR K=1 TO 750:NEXT K
8555 LINE(113,120)-(93,100)
8560 FOR K=1 TO 750:NEXT K
8565 GOSUB 30000
8570 PRINT FNCEN$("Press <R> to review.",40)
8575 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
8685 GOTO 8345
8690 GOSUB 30000 '** Textpad **
8695 PRINT FNCEN$("And open up!",40)
8700 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
8950 GOSUB 30000 '*** <Textpad> ***
8955 PRINT FNCEN$("PIG",40)
8960 FOR K=1 TO 1500:NEXT K
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 8990
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"a:main"
9025 CHAIN"a:pig
9030 CHAIN"a:end"
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
30030 GOSUB 30000 '** Textpad **
30040 PRINT FNCEN$("N",40)
30050 FOR K=1 TO 1500:NEXT K
PUPPY.BAS
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 FOR K=1 TO 2500:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 1500:NEXT K
125 PRINT FNCEN$("which by now we should be able to fold",40)
130 FOR K=1 TO 1500:NEXT K
135 PRINT FNCEN$("in our sleep,",40)
140 FOR K=1 TO 1500:NEXT K
145 GOSUB 30000 '** Textpad **
150 PRINT FNCEN$("SO!",40)
155 FOR K=1 TO 750:NEXT K
160 FOR V=30 TO 170 STEP 2
165 PSET(160,V)
170 NEXT V
175 FOR K=1 TO 750:NEXT K
180 LINE(205,70)-(160,170)
185 FOR K=1 TO 750:NEXT K
190 FOR Q=0 TO 35
195 LINE(160,170)-(240-Q,100-0.8750001*Q)
200 LINE(160,170)-(240-Q,100-0.8750001*Q),0
205 LINE(160,170)-(241-Q,100-0.8750001*Q),0
210 NEXT Q
215 FOR H=205 TO 160 STEP -1
220 LINE(160,170)-(H,70)
225 NEXT H
230 FOR K=1 TO 750:NEXT K
235 LINE(115,70)-(160,170)
240 FOR K=1 TO 750:NEXT K
245 FOR Q=0 TO 35
250 LINE(160,170)-(80+Q,100-0.8570001*Q)
255 LINE(160,170)-(80+Q,100-0.8570001*Q),0
260 LINE(160,170)-(79+Q,100-0.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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
350 GOSUB 30000 '** Textpad **
355 PRINT FNCEN$("One moment, please.",40)
360 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 250:NEXT K
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 FOR K=1 TO 750:NEXT K
455 GOSUB 30000 '** Textpad **
460 PRINT FNCEN$("We first fold and backfold this corner",40)
465 FOR K=1 TO 750:NEXT K
470 '*** arrow down ***
475 FOR K=1 TO 15
480 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
485 PAINT(160,16)
490 FOR M=1 TO 25:NEXT M
495 CIRCLE(160,16),7,0
500 PAINT(160,16),0
505 NEXT K
510 '***end arrow down ***
515 FOR K=1 TO 750:NEXT K
520 GOSUB 30000 '** Textpad **
525 PRINT FNCEN$("down to this point",40)
530 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
625 GOSUB 30000 '** Textpad **
630 PRINT FNCEN$("over this line",40)
635 FOR K=1 TO 750:NEXT K
640 FOR H=136 TO 184 STEP 2
645 PSET(H,80),0
650 NEXT H
655 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
735 GOSUB 30000 '*** Textpad***
740 PRINT FNCEN$("and back.",40)
745 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
845 GOSUB 30000 '*** Textpad***
850 PRINT FNCEN$("Your turn to fold and backfold.",40)
855 FOR K=1 TO 1500:NEXT K
860 GOSUB 30000 '*** Textpad ***
865 PRINT FNCEN$("To review that fold, press <R>.",40)
870 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
935 GOTO 455
940 GOSUB 30000 '** Textpad **
945 PRINT FNCEN$("We next take our friend here",40)
950 FOR K=1 TO 750:NEXT K
955 '*** arrow down ***
960 FOR K=1 TO 15
965 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
970 PAINT(160,16)
975 FOR M=1 TO 25:NEXT M
980 CIRCLE(160,16),7,0
985 PAINT(160,16),0
990 NEXT K
995 '***end arrow down ***
1000 FOR K=1 TO 750:NEXT K
1005 GOSUB 30000 '** Textpad **
1010 PRINT FNCEN$("down across this fold line,",40)
1015 FOR K=1 TO 750:NEXT K
1020 FOR H=148 TO 172 STEP 2
1025 PSET(H,55),0
1030 NEXT H
1035 FOR K=1 TO 750:NEXT K
1040 GOSUB 30000 '** Textpad **
1045 PRINT FNCEN$("THUS!",40)
1050 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
1130 GOSUB 30000 '** Textpad **
1135 PRINT FNCEN$("and back.",40)
1140 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
1290 GOTO 940
1295 GOSUB 30000 '*** Textpad***
1300 PRINT FNCEN$("We now fold and backfold",40)
1305 FOR K=1 TO 1500:NEXT K
1310 GOSUB 30000 '*** Textpad***
1315 PRINT FNCEN$("across this line",40)
1320 FOR K=1 TO 750:NEXT K
1325 FOR H=150 TO 170 STEP 2
1330 PSET(H,50),0
1335 NEXT H
1340 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
1420 GOSUB 30000 '*** Textpad***
1425 PRINT FNCEN$("and return.",40)
1430 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
1580 GOSUB 30000 '*** Textpad***
1585 PRINT FNCEN$("Your turn to fold and backfold.",40)
1590 FOR K=1 TO 1500:NEXT K
1595 GOSUB 30000 '*** Textpad ***
1600 PRINT FNCEN$("Press <R> to review.",40)
1605 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
1655 GOTO 1295
1660 END
1665 GOSUB 30000 '** Textpad **
1670 PRINT FNCEN$("Our next fold is the last of this set.",40)
1675 FOR K=1 TO 1500:NEXT K
1680 FOR K=1 TO 15
1685 LINE(154,40)-(166,40),0
1690 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
1925 GOSUB 30000 '*** Textpad ***
1930 PRINT FNCEN$("Press <R> to review.",40)
1935 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
1990 GOTO 1665
1995 GOSUB 30000 '** Textpad **
2000 PRINT FNCEN$("Now we'll position those folds",40)
2005 FOR K=1 TO 1500:NEXT K
2010 GOSUB 30000 '** Textpad **
2015 PRINT FNCEN$("in their proper places.",40)
2020 FOR K=1 TO 1500:NEXT K
2025 GOSUB 30000 '** Textpad **
2030 PRINT FNCEN$("First placement.",40)
2035 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
2540 GOSUB 30000 '** Textpad **
2545 PRINT FNCEN$("over onto the right side,",40)
2550 FOR K=1 TO 1500:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
2635 GOSUB 30000 '** Textpad **
2640 PRINT FNCEN$("THUS!",40)
2645 FOR K=1 TO 750:NEXT K
2650 FOR Q=0 TO 45
2655 LINE(160,50)-(155+0.111*Q,50)
2660 LINE-(153+0.156*Q,55)
2665 LINE-(149+0.244*Q,55)
2670 LINE-(115+Q,130)
2675 LINE-(160,170)
2680 LINE(160,50)-(155+0.111*Q,50),0
2685 LINE-(153+0.156*Q,55),0
2690 LINE-(149+0.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+0.089*Q,50),0
2720 LINE-(160+0.156*Q,55),0
2725 LINE-(160+0.244*Q,55),0
2730 LINE-(160+Q,130),0
2735 LINE-(160,170),0
2740 LINE(160,50)-(160+0.089*Q,50)
2745 LINE-(160+0.156*Q,55)
2750 LINE-(160+0.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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
2845 GOSUB 30000 '** Textpad **
2850 PRINT FNCEN$("This tippytoes position is not for me.",40)
2855 FOR K=1 TO 2000:NEXT K
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 FOR K=1 TO 1500:NEXT K
2965 GOSUB 30000 '** Textpad **
2970 PRINT FNCEN$("Here's the line for our next fold",40)
2975 FOR K=1 TO 1500:NEXT K
2980 LINE(190,65)-(196,145),0
2985 FOR K=1 TO 750:NEXT K
2990 GOSUB 30000 '** Textpad **
2995 PRINT FNCEN$("which takes this entire right side",40)
3000 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
3085 GOSUB 30000 '** Textpad **
3090 PRINT FNCEN$("over to the left side,",40)
3095 FOR K=1 TO 1500:NEXT K
3100 GOSUB 30000 '*** <Textpad> ***
3105 PRINT FNCEN$("* Hint *",40)
3110 FOR K=1 TO 1000:NEXT K
3115 PRINT FNCEN$("Our straightedge would be handy here.",40)
3120 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
3165 FOR Q=0 TO 54
3170 LINE(190,65)-(235-0.9070001*Q,25)
3175 LINE-(240-Q,30)
3180 LINE-(235-0.87*Q,40)
3185 LINE-(240-0.9630001*Q,45)
3190 LINE-(197,146),0
3195 LINE(235-0.9070001*Q,25)-(240-Q,30),0
3200 LINE-(235-0.87*Q,40),0
3205 LINE-(240-0.9630001*Q,45),0
3210 NEXT Q
3215 FOR Q=0 TO 53
3220 LINE(190,65)-(186-0.868*Q,25+0.09400001*Q)
3225 LINE-(186-0.962*Q,30+0.09400001*Q)
3230 LINE-(187-0.887*Q,40+0.09400001*Q)
3235 LINE-(188-Q,45+0.09400001*Q)
3240 LINE-(197,146),0
3245 LINE(187-Q,45+0.09400001*Q)-(197,146)
3250 LINE(188-Q,45+0.09400001*Q)-(197,146)
3255 LINE(189-Q,45+0.09400001*Q)-(197,146)
3260 LINE(190,65)-(186-0.868*Q,25+0.09400001*Q),0
3265 LINE(190,65)-(187-0.868*Q,25+0.09400001*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 FOR K=1 TO 500:NEXT K
3315 GOSUB 30000 '** Textpad **
3320 PRINT FNCEN$("and return.",40)
3325 FOR K=1 TO 750:NEXT K
3330 FOR Q=0 TO 53
3335 LINE(190,65)-(140+0.868*Q,30-0.09400001*Q)
3340 LINE-(135+0.962*Q,35-0.09400001*Q)
3345 LINE-(140+0.887*Q,45-0.09400001*Q)
3350 LINE-(135+Q,50-0.09400001*Q)
3355 LINE(140+0.868*Q,30-0.09400001*Q)-(135+0.962*Q,35-0.09400001*Q),0
3360 LINE-(140+0.887*Q,45-0.09400001*Q),0
3365 LINE-(135+Q,50-0.09400001*Q),0
3370 LINE-(161+0.5470001*Q,91-0.491*Q),0
3375 LINE-(197,146),0
3380 LINE(139+0.868*Q,30-0.09400001*Q)-(134+0.962*Q,35-0.09400001*Q),0
3385 LINE-(139+0.887*Q,45-0.09400001*Q),0
3390 LINE-(134+Q,50-0.09400001*Q),0
3395 LINE-(160+0.5470001*Q,91-0.491*Q),0
3400 LINE(161+0.5470001*Q,91-0.491*Q)-(197,146)
3405 NEXT Q
3410 FOR Q=0 TO 54
3415 LINE(190,65)-(186+0.9070001*Q,25)
3420 LINE-(186+Q,30)
3425 LINE-(188+0.87*Q,40)
3430 LINE-(188+0.9630001*Q,45)
3435 LINE-(197,146)
3440 LINE(190,65)-(186+0.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 FOR K=1 TO 750:NEXT K
3495 GOSUB 30000 '** Textpad **
3500 PRINT FNCEN$("Your turn to fold and backfold.",40)
3505 FOR K=1 TO 1500:NEXT K
3510 GOSUB 30000 '*** Textpad ***
3515 PRINT FNCEN$("Press <R> to review.",40)
3520 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
3565 GOTO 2965
3570 GOSUB 30000 '** Textpad **
3575 PRINT FNCEN$("Our next fold takes PUPPY's muzzle",40)
3580 FOR K=1 TO 1500:NEXT K
3585 '*** arrow down ***
3590 FOR K=1 TO 15
3595 PSET(248,30):DRAW"E5d4r7d2l7d4h5"
3600 PAINT(254,30)
3605 FOR M=1 TO 25:NEXT M
3610 FOR M=1 TO 25:NEXT M
3615 CIRCLE(254,30),7,0
3620 PAINT(254,30),0
3625 NEXT K
3630 '***end arrow down ***
3635 FOR K=1 TO 750:NEXT K
3640 GOSUB 30000 '** Textpad **
3645 PRINT FNCEN$("in a HOOD FOLD",40)
3650 FOR K=1 TO 1500:NEXT K
3655 GOSUB 30000 '** Textpad **
3660 PRINT FNCEN$("down to this point",40)
3665 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
3700 CIRCLE(235,105),5,0
3705 LINE(233,105)-(237,105),0
3710 LINE(235,103)-(235,107),0
3715 NEXT K
3720 FOR K=1 TO 750:NEXT K
3725 GOSUB 30000 '** Textpad **
3730 PRINT FNCEN$("with this crease",40)
3735 FOR K=1 TO 750:NEXT K
3740 FOR K=1 TO 15
3745 LINE(190,65)-(196,145)
3750 FOR M=1 TO 25:NEXT M
3755 LINE(190,65)-(196,145),1
3760 NEXT K
3765 PSET(190,65),0
3770 FOR K=1 TO 750:NEXT K
3775 GOSUB 30000 '** Textpad **
3780 PRINT FNCEN$("staying where it is in a VALLEY FOLD",40)
3785 FOR K=1 TO 1500:NEXT K
3790 GOSUB 30000 '** Textpad **
3795 PRINT FNCEN$("and this crease",40)
3800 FOR K=1 TO 750:NEXT K
3805 FOR K=1 TO 15
3810 LINE(190,65)-(220,90)
3815 FOR M=1 TO 25:NEXT M
3820 LINE(190,65)-(220,90),2
3825 NEXT K
3830 FOR K=1 TO 750:NEXT K
3835 GOSUB 30000 '** Textpad **
3840 PRINT FNCEN$("and this edge",40)
3845 FOR K=1 TO 750:NEXT K
3850 FOR K=1 TO 15
3855 LINE(220,90)-(196,145)
3860 FOR M=1 TO 25:NEXT M
3865 LINE(220,90)-(196,145),2
3870 NEXT K
3875 FOR K=1 TO 750:NEXT K
3880 GOSUB 30000 '** Textpad **
3885 PRINT FNCEN$("folding over to here",40)
3890 FOR K=1 TO 750:NEXT K
3895 FOR K=1 TO 15
3900 LINE(190,65)-(161,91)
3905 LINE-(196,145)
3910 FOR M=1 TO 25:NEXT M
3915 LINE(190,65)-(161,91),2
3920 LINE-(196,145),2
3925 NEXT K
3930 FOR K=1 TO 750:NEXT K
3935 GOSUB 30000 '** Textpad **
3940 PRINT FNCEN$("in a MOUNTAIN FOLD,",40)
3945 FOR K=1 TO 750:NEXT K
3950 GOSUB 30000 '** Textpad **
3955 PRINT FNCEN$("THUS!",40)
3960 FOR K=1 TO 750:NEXT K
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+0.535*Q,25+0.9299999*Q)
3990 LINE-(240+0.419*Q,30+Q)
3995 LINE-(235+0.163*Q,40+0.8599999*Q)
4000 LINE-(240+0.047*Q,45+0.8840001*Q)
4005 LINE-(220-0.651*Q,90) 'culprit
4010 LINE-(196,145)
4015 LINE(240+0.047*Q,45+0.8840001*Q)-(220-0.651*Q,90+0.279*Q),0
4020 LINE(190,65)-(220-0.628*Q,90+0.279*Q),2
4025 LINE-(196,145),2
4030 LINE(190,65)-(220-0.628*Q,90+0.279*Q)
4035 LINE(190,65)-(235+0.535*Q,25+0.9299999*Q),0
4040 LINE(190,64)-(236+0.535*Q,24+0.9299999*Q),0
4045 LINE(190,63)-(237+0.535*Q,23+0.9299999*Q),0
4050 LINE(190,62)-(238+0.535*Q,22+0.9299999*Q),0
4055 LINE(200,137)-(218,96),0
4060 LINE(220-0.628*Q,90+0.279*Q)-(196,145),0
4065 LINE(193,102)-(240+0.05*Q,45+0.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-0.5750001*Q,65+Q)
4155 LINE-(258-0.67*Q,73+0.9250001*Q)
4160 LINE-(242-0.55*Q,77+0.7*Q)
4165 LINE-(242-0.675*Q,83+0.675*Q)
4170 LINE-(192-0.775*Q,102-0.25*Q)
4175 LINE(242-0.675*Q,83+0.675*Q)-(192,102)
4180 LINE(190,65)-(258-0.5750001*Q,65+Q),0
4185 LINE-(258-0.67*Q,73+0.9250001*Q),0
4190 LINE(190,64)-(259-0.5750001*Q,64+Q),0
4195 LINE-(259-0.67*Q,73+0.9250001*Q),0
4200 LINE(190,65)-(192-0.775*Q,102-0.25*Q),2
4205 LINE-(196,145),2
4210 LINE(190,64)-(258-0.5750001*Q,64+Q),0
4215 LINE(190,65)-(192-0.775*Q,102-0.25*Q)
4220 LINE-(196,145)
4225 LINE(192,103)-(192-0.775*Q,103-0.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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 1500:NEXT K
4500 GOSUB 30000 '*** Textpad ***
4505 PRINT FNCEN$("and backfold this corner",40)
4510 FOR K=1 TO 750:NEXT K
4515 '*** arrow right ***
4520 FOR K=1 TO 15
4525 PSET(67,170):DRAW"H5D4L7D2R7D4E5"
4530 PAINT(61,170)
4535 FOR M=1 TO 25:NEXT M
4540 CIRCLE(61,170),7,0
4545 PAINT(61,170),0
4550 NEXT K
4555 '***end arrow right ***
4560 FOR K=1 TO 750:NEXT K
4565 GOSUB 30000 '*** Textpad ***
4570 PRINT FNCEN$("over to this corner,",40)
4575 FOR K=1 TO 750:NEXT K
4580 '*** arrow left ***
4585 FOR K=1 TO 15
4590 PSET(193,170):DRAW"E5D4R7D2L7D4H5"
4595 PAINT(199,170)
4600 FOR M=1 TO 25:NEXT M
4605 CIRCLE(199,170),7,0
4610 PAINT(199,170),0
4615 NEXT K
4620 FOR K=1 TO 750:NEXT K
4625 '***end arrow left ***
4630 GOSUB 30000 '*** Textpad ***
4635 PRINT FNCEN$("THUS!",40)
4640 FOR K=1 TO 750:NEXT K
4645 FOR V=120 TO 170 STEP 2
4650 PSET(130,V),0
4655 NEXT V
4660 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
4735 GOSUB 30000 '*** Textpad ***LIST 10210
4740 PRINT FNCEN$("and return.",40)
4745 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
4820 GOSUB 30000 '** Textpad **
4825 PRINT FNCEN$("Your turn to fold and backfold.",40)
4830 FOR K=1 TO 1500:NEXT K
4835 GOSUB 30000 '*** Textpad ***
4840 PRINT FNCEN$("Press <R> to review.",40)
4845 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 750:NEXT K
4895 GOTO 4485
4900 GOSUB 30000 '*** Textpad ***
4905 PRINT FNCEN$("For PUPPY's tail, we fold",40)
4910 FOR K=1 TO 1500:NEXT K
4915 GOSUB 30000 '*** Textpad ***
4920 PRINT FNCEN$("and backfold this corner",40)
4925 FOR K=1 TO 750:NEXT K
4930 FOR K=1 TO 15
4935 PSET(67,170):DRAW"H5D4L7D2R7D4E5"
4940 PAINT(61,170)
4945 FOR M=1 TO 25:NEXT M
4950 CIRCLE(61,170),7,0
4955 PAINT(61,170),0
4960 NEXT K
4965 '***end arrow right ***
4970 FOR K=1 TO 750:NEXT K
4975 GOSUB 30000 '*** Textpad ***
4980 PRINT FNCEN$("over to this point,",40)
4985 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5020 CIRCLE(165,135),5
5025 LINE(163,135)-(167,135)
5030 LINE(165,133)-(165,137)
5035 NEXT K
5040 FOR K=1 TO 750:NEXT K
5045 GOSUB 30000 '*** Textpad ***
5050 PRINT FNCEN$("THUS!",40)
5055 FOR K=1 TO 750:NEXT K
5060 LINE(113,135)-(130,170),0
5065 FOR K=1 TO 750:NEXT K
5070 FOR Q=0 TO 46
5075 LINE(113,135)-(75+Q,170-0.39*Q)
5080 LINE-(130,170)
5085 LINE(113,135)-(75+Q,170-0.39*Q),0
5090 LINE-(130,170),0
5095 LINE(113,135)-(74+Q,170-0.39*Q),0
5100 LINE-(130,170),0
5105 NEXT Q
5110 FOR Q=0 TO 44
5115 LINE(113,135)-(121+Q,152-0.39*Q),0
5120 LINE-(130,170),0
5125 LINE(113,135)-(121+Q,152-0.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 FOR K=1 TO 750:NEXT K
5160 GOSUB 30000 '** Textpad **
5165 PRINT FNCEN$("Note that this edge",40)
5170 FOR K=1 TO 750:NEXT K
5175 PSET(105,135):DRAW"H5D4L7D2R7D4E5
5180 PAINT(99,135)
5185 FOR K=1 TO 1000:NEXT K
5190 FOR K=1 TO 15
5195 LINE(114,135)-(164,135)
5200 FOR M=1 TO 25:NEXT M
5205 LINE(114,135)-(164,135),2
5210 NEXT K
5215 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
5245 PSET(122,170):DRAW"H5D4L7D2R7D4E5
5250 PAINT(116,170)
5255 FOR K=1 TO 1000:NEXT K
5260 FOR K=1 TO 15
5265 LINE(130,170)-(185,170)
5270 FOR M=1 TO 25:NEXT M
5275 LINE(130,170)-(185,170),2
5280 NEXT K
5285 FOR K=1 TO 750:NEXT K
5290 CIRCLE(116,170),7,0
5295 PAINT(116,170),0
5300 FOR K=1 TO 750:NEXT K
5305 LINE(130,170)-(185,170)
5310 LINE(115,135)-(165,135),0
5315 GOSUB 30000 '*** Textpad ***
5320 PRINT FNCEN$("and return.",40)
5325 FOR K=1 TO 750:NEXT K
5330 FOR Q=0 TO 44
5335 LINE(113,135)-(165-Q,135+0.39*Q),0
5340 LINE-(130,170),0
5345 LINE(113,135)-(165-Q,135+0.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+0.39*Q)
5385 LINE-(130,170)
5390 LINE(113,135)-(122-Q,152+0.39*Q)
5395 LINE-(130,170)
5400 LINE(113,135)-(130,170),0
5405 NEXT Q
5410 FOR K=1 TO 1500:NEXT K
5415 GOSUB 30000 '** Textpad **
5420 PRINT FNCEN$("Your turn to fold and backfold.",40)
5425 FOR K=1 TO 1500:NEXT K
5430 GOSUB 30000 '*** Textpad ***
5435 PRINT FNCEN$("Press <R> to review.",40)
5440 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
5490 GOTO 4900
5495 GOSUB 30000 '** Textpad **
5500 PRINT FNCEN$("We next tuck PUPPY's hind parts",40)
5505 FOR K=1 TO 1500:NEXT K
5510 PSET(95,140):DRAW"U8G3H6G2F6G3R8"
5515 PAINT(90,135)
5520 FOR K=1 TO 250:NEXT K
5525 FOR K=1 TO 15
5530 LINE(130,120)-(75,170),0
5535 LINE-(130,170),0
5540 FOR M=1 TO 25:NEXT M
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 FOR K=1 TO 750:NEXT K
5575 GOSUB 30000 '** Textpad **
5580 PRINT FNCEN$("into this pocket",40)
5585 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 25:NEXT M
5620 CIRCLE(160,184),7,0
5625 PAINT(160,184),0
5630 NEXT K
5635 FOR K=1 TO 750:NEXT K
5640 GOSUB 30000 '** Textpad **
5645 PRINT FNCEN$("in an INSIDE REVERSE FOLD,",40)
5650 FOR K=1 TO 1500:NEXT K
5655 GOSUB 30000 '** Textpad **
5660 PRINT FNCEN$("THUS!",40)
5665 FOR K=1 TO 750:NEXT K
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 FOR K=1 TO 750:NEXT K
5730 GOSUB 30000 '** Textpad **
5735 PRINT FNCEN$("Would you like to see that fold again?",40)
5740 FOR K=1 TO 1500:NEXT K
5745 GOSUB 30000 '*** Textpad ***
5750 PRINT FNCEN$("If so, press <R>.",40)
5755 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
5870 GOTO 5495
5875 GOSUB 30000 '** Textpad **
5880 PRINT FNCEN$("We now pull PUP's tail out.",40)
5885 FOR K=1 TO 750:NEXT K
5890 LINE(146,134)-(130,170),1
5895 FOR Q=0 TO 47
5900 LINE(147,135)-(185-Q,170-0.38*Q),1
5905 LINE-(130,170),1
5910 LINE(147,135)-(185-Q,170-0.38*Q)
5915 LINE-(130,170)
5920 NEXT Q
5925 FOR Q=0 TO 43
5930 LINE(147,135)-(138-Q,152-0.4*Q),1
5935 LINE-(130,170),1
5940 LINE(147,135)-(138-Q,152-0.4*Q)
5945 LINE-(130,170)
5950 LINE(148,135)-(138-Q,152-0.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 FOR K=1 TO 750:NEXT K
5995 GOSUB 30000 '** Textpad **
6000 PRINT FNCEN$("Press <R> to review.",40)
6005 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
6115 FOR K=1 TO 15
6120 PSET(87,135):DRAW"H5D4L7D2R7D4E5"
6125 PAINT(81,135)
6130 FOR M=1 TO 25:NEXT M
6135 CIRCLE(81,135),7,0
6140 PAINT(81,135),0
6145 NEXT K
6150 FOR K=1 TO 750:NEXT K
6155 GOSUB 30000 '** Textpad **
6160 PRINT FNCEN$("down along this line",40)
6165 FOR K=1 TO 750:NEXT K
6170 LINE(129,135)-(112,152),0
6175 FOR K=1 TO 750:NEXT K
6180 GOSUB 30000 '** Textpad **
6185 PRINT FNCEN$("over to here,",40)
6190 FOR K=1 TO 750:NEXT K
6195 FOR K=1 TO 15
6200 PSET(130,178):DRAW"g5r4d7r2u7r4h5"
6205 PAINT(130,184)
6210 FOR M=1 TO 25:NEXT M
6215 CIRCLE(130,184),7,0
6220 PAINT(130,184),0
6225 NEXT K
6230 FOR K=1 TO 750:NEXT K
6235 GOSUB 30000 '** Textpad **
6240 PRINT FNCEN$("SO!",40)
6245 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 50:NEXT M
6280 NEXT Q
6285 FOR Q=0 TO 18
6290 LINE(129,135)-(113+Q,152+0.94*Q),0
6295 LINE-(111,153),0
6300 LINE(129,135)-(113+Q,152+0.94*Q)
6305 LINE-(111,153)
6310 LINE(129,135)-(112+Q,152+0.94*Q)
6315 LINE-(111,153)
6320 FOR M=1 TO 50:NEXT M
6325 NEXT Q
6330 LINE(129,135)-(129,170),0
6335 FOR K=1 TO 250:NEXT K
6340 GOSUB 30000 '** Textpad **
6345 PRINT FNCEN$("and return!",40)
6350 FOR K=1 TO 750:NEXT K
6355 FOR Q=0 TO 35
6360 LINE(129,135)-(128-0.97*Q,170-Q),0
6365 LINE-(111,153),0
6370 LINE(129,135)-(128-0.97*Q,170-Q)
6375 LINE-(111,153)
6380 LINE(129,135)-(129-0.97*Q,170-Q)
6385 LINE-(111,153)
6390 FOR M=1 TO 50:NEXT M
6395 LINE(129,135)-(111,153),0
6400 LINE(129,135)-(129,170),0
6405 NEXT Q
6410 FOR K=1 TO 750:NEXT K
6415 GOSUB 30000 '** Textpad **
6420 PRINT FNCEN$("Your turn to fold and backfold.",40)
6425 FOR K=1 TO 1500:NEXT K
6430 GOSUB 30000 '*** Textpad ***
6435 PRINT FNCEN$("Press <R> to review.",40)
6440 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
6490 GOTO 6095
6495 GOSUB 30000 '** Textpad **
6500 PRINT FNCEN$("Our final fold takes this corner",40)
6505 FOR K=1 TO 750:NEXT K
6510 '*** arrow right ***
6515 FOR K=1 TO 15
6520 PSET(87,135):DRAW"H5D4L7D2R7D4E5"
6525 PAINT(81,135)
6530 FOR M=1 TO 25:NEXT M
6535 CIRCLE(81,135),7,0
6540 PAINT(81,135),0
6545 NEXT K
6550 '***end arrow right ***
6555 FOR K=1 TO 750:NEXT K
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 FOR M=1 TO 50:NEXT M
6620 NEXT H
6625 LINE(128,135)-(125,170)
6630 PSET(129,135)
6635 FOR K=1 TO 750:NEXT K
6640 GOSUB 30000 '*** Textpad ***
6645 PRINT FNCEN$("so that it is pointing straight at us,",40)
6650 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 750:NEXT K
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-0.51*Q,152)
6715 LINE-(130,170)
6720 LINE(130-0.51*Q,152)-(130,135+Q)
6725 LINE(130-0.51*Q,152)-(130,134+Q),0
6730 LINE(130-0.51*Q,152)-(130,133+Q),0
6735 LINE(130-0.51*Q,152)-(130,132+Q)
6740 LINE(130+0.51*Q,152)-(130,135+Q)
6745 LINE(130+0.51*Q,152)-(130,134+Q),0
6750 LINE(130+0.51*Q,152)-(130,133+Q),0
6755 LINE(130+0.51*Q,152)-(130,132+Q)
6760 LINE(130,135)-(130+0.51*Q,152),0
6765 LINE(130,135)-(129+0.51*Q,152)
6770 LINE(130,170)-(130+0.51*Q,152),0
6775 LINE(130,170)-(129+0.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 FOR K=1 TO 750:NEXT K
6850 GOSUB 30000 '*** Textpad ***
6855 PRINT FNCEN$("Would you like to see that fold again?",40)
6860 FOR K=1 TO 1500:NEXT K
6865 PRINT FNCEN$("Press <R> to review.",40)
6870 FOR K=1 TO 1000:NEXT K
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 FOR K=1 TO 1500:NEXT K
7000 GOTO 6495
7005 GOSUB 30000 '** Textpad **
7010 PRINT FNCEN$("And there we have it!",40)
7015 FOR K=1 TO 1500:NEXT K
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 FOR K=1 TO 1500:NEXT K
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"a:main"
7310 CHAIN"a:puppy
7315 CHAIN"a:end"
7320 END
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
RABBIT.BAS
10 REM ***Rabbit, Rabbit, Rabbit***
15 SCREEN 1,0:CLS:KEY OFF: COLOR 8,0
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
25 LOCATE 12,1:PRINT FNCEN$("RABBIT",40)
30 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
35 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
40 PRINT FNCEN$("All Rights Reserved",40)
45 FOR K=1 TO 2500:NEXT K
50 CLS
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 CLS
85 LINE(160,30)-(80,100)
90 LINE-(160,170)
95 LINE-(240,100)
100 LINE-(160,30)
105 FOR V=30 TO 170 STEP 2
110 PSET(160,V)
115 NEXT V
120 LINE(114,70)-(160,170)
125 LINE-(206,70)
130 GOSUB 30000 '*** <Textpad> ***
135 PRINT FNCEN$("RABBIT begins with KITE BASE.",40)
140 FOR K=1 TO 1500:NEXT K
145 FOR Q=0 TO 41
150 LINE(114,70)-(80+Q,100-0.37*Q)
155 LINE-(160,170)
160 LINE(114,70)-(80+Q,100-0.37*Q),0
165 LINE-(160,170),0
170 NEXT Q
175 FOR Q=0 TO 39
180 LINE(114,70)-(122+Q,85-0.38*Q)
185 LINE-(160,170)
190 LINE(114,70)-(121+Q,85-0.38*Q)
195 LINE-(160,170)
200 NEXT Q
205 LINE(161,70)-(161,169),0
210 FOR K=1 TO 750:NEXT K
215 FOR Q=0 TO 41
220 LINE(206,70)-(240-Q,100-0.37*Q)
225 LINE-(160,170)
230 LINE(206,70)-(240-Q,100-0.37*Q),0
235 LINE-(160,170),0
240 NEXT Q
245 FOR Q=0 TO 39
250 LINE(206,70)-(198-Q,85-0.38*Q)
255 LINE-(160,170)
260 LINE(206,70)-(199-Q,85-0.38*Q)
265 LINE-(160,170)
270 NEXT Q
275 LINE(160,70)-(160,170),0
280 FOR K=1 TO 750:NEXT K
285 GOSUB 30000 '*** <Textpad> ***
290 PRINT FNCEN$("Your turn to fold KITE BASE. I'll wait.",40)
295 FOR K=1 TO 1500:NEXT K
300 GOSUB 30000 '*** Textpad ***
305 PRINT FNCEN$("Press <C> to continue.",40)
310 A$=INKEY$:IF A$="" GOTO 310
315 IF A$="C" OR A$="c" GOTO 325
320 GOTO 285
325 GOSUB 30000 '***Textpad***
330 PRINT FNCEN$("We proceed by folding this corner",40)
335 FOR K=1 TO 750:NEXT K
340 FOR K=1 TO 15
345 PSET(160,25):DRAW"E5 L4 U7 L2 D7 L4 F5" '///ARROW DOWN///
350 PAINT(160,20)
355 FOR M=1 TO 25:NEXT M
360 CIRCLE(160,19),7,0
365 PAINT(160,19),0
370 NEXT K
375 GOSUB 30000 '***Textpad***
380 PRINT FNCEN$("down to this point,",40)
385 FOR K=1 TO 750:NEXT K
390 FOR K=1 TO 15
395 CIRCLE(160,110),5,0
400 LINE(158,110)-(162,110),0
405 LINE(160,108)-(160,112),0
410 FOR M=1 TO 25:NEXT M
415 CIRCLE(160,110),5
420 LINE(158,110)-(162,110)
425 LINE(160,108)-(160,112)
430 NEXT K
435 LINE(160,100)-(160,120),0
440 FOR K=1 TO 750:NEXT K
445 GOSUB 30000 '***Textpad***
450 PRINT FNCEN$(" SO!",40)
455 FOR K=1 TO 750:NEXT K
460 FOR V=30 TO 71
465 LINE(160,V)-(114,70),0
470 LINE(160,V+1)-(114,70)
475 LINE(160,V-2)-(114,70),0
480 LINE(160,V)-(206,70),0
485 LINE(160,V+1)-(206,70)
490 LINE(160,V-2)-(206,70),0
495 NEXT V
500 FOR V=71 TO 110
505 LINE(160,V)-(114,70),0
510 LINE(160,V)-(206,70),0
515 LINE(160,V-1)-(114,70)
520 LINE(160,V-1)-(206,70)
525 NEXT V
530 LINE(114,70)-(160,110),0
535 LINE-(206,70),0
540 FOR K=1 TO 750:NEXT K
545 GOSUB 30000 '*** Textpad ***
550 PRINT FNCEN$("Press <C> to continue.",40)
555 A$=INKEY$:IF A$="" GOTO 555
560 IF A$="C" OR A$="c" GOTO 570
565 GOTO 545
570 GOSUB 30000 '***Textpad***
575 PRINT FNCEN$("With a penknife or a pair of scissors,",40)
580 FOR K=1 TO 1000:NEXT K
585 FOR K=1 TO 15
590 LINE(153,178)-(167,199),0,BF
595 FOR M=1 TO 25:NEXT M
600 LINE(160,178)-(159,187)
605 LINE-(160,196)
610 LINE-(161,187)
615 LINE-(160,178)
620 CIRCLE(157,196),3,3,,,1
625 CIRCLE(163,196),3,3,,,1
630 NEXT K
635 FOR K=1 TO 750:NEXT K
640 GOSUB 30000 '***Textpad***
645 PRINT FNCEN$("cut along this line",40)
650 FOR K=1 TO 750:NEXT K
655 FOR K=1 TO 25
660 LINE(160,110)-(160,169),1
665 FOR M=1 TO 25:NEXT M
670 LINE(160,110)-(160,170),0
675 NEXT K
680 GOSUB 30000 '***Textpad***
685 PRINT FNCEN$("to separate my ears.",40)
690 FOR K=1 TO 750:NEXT K
695 FOR V=169 TO 110 STEP -1
700 PSET(160,V),1
705 FOR M=1 TO 20:NEXT M
710 NEXT V
715 FOR V=169 TO 110 STEP -1
720 PSET(160,V),0
725 FOR M=1 TO 20:NEXT M
730 NEXT V
735 FOR K=1 TO 750:NEXT K
740 LINE(153,178)-(167,199),0,BF
745 FOR K=1 TO 750:NEXT K
750 GOSUB 30000 '***Textpad***
755 PRINT FNCEN$("Press <C> to continue.",40)
760 A$=INKEY$:IF A$="" GOTO 760
765 IF A$="C" OR A$="c" GOTO 775
770 GOTO 750
775 GOSUB 30000 ' ***TEXTPAD***
780 PRINT FNCEN$("Next, we fold this corner",40)
785 FOR K=1 TO 750:NEXT K
790 LINE(154,105)-(160,110)
795 LINE-(166,105)
800 LINE(160,105)-(160,110),0
805 LINE(154,105)-(160,100),0
810 LINE-(166,105),0
815 LINE-(154,105),0
820 PSET(157,107):PSET(163,107)
825 FOR K=1 TO 750:NEXT K
830 GOSUB 30000 '***Textpad***
835 PRINT FNCEN$("back up to this point",40)
840 FOR K=1 TO 750:NEXT K
845 FOR K=1 TO 15
850 CIRCLE(160,60),5
855 LINE(158,60)-(162,60)
860 LINE(160,58)-(160,62)
865 FOR M=1 TO 25:NEXT M
870 CIRCLE(160,60),5,0
875 LINE(158,60)-(162,60),0
880 LINE(160,58)-(160,62),0
885 NEXT K
890 FOR K=1 TO 750:NEXT K
895 GOSUB 30000
900 PRINT FNCEN$("across this line,",40)
905 FOR K=1 TO 750:NEXT K
910 FOR K=1 TO 25
915 LINE(131,85)-(189,85),1
920 FOR M=1 TO 25:NEXT M
925 LINE(131,85)-(189,85),0
930 NEXT K
935 CIRCLE(212,85),0
940 PAINT(212,85),0
945 CIRCLE(108,85),0
950 PAINT(108,85),0
955 FOR H=132 TO 188 STEP 2
960 PSET(H,85)
965 NEXT H
970 FOR K=1 TO 750:NEXT K
975 GOSUB 30000 '***tEXTPAD***
980 PRINT FNCEN$("SO!",40)
985 FOR K=1 TO 750:NEXT K
990 LINE(154,105)-(160,100)
995 LINE-(166,105)
1000 LINE-(154,105)
1005 LINE(160,105)-(160,110)
1010 LINE(154,105)-(160,110),0
1015 LINE-(166,105),0
1020 FOR K=1 TO 250:NEXT K
1025 FOR V=110 TO 85 STEP -1
1030 LINE(131,85)-(160,V),0
1035 LINE-(189,85),0
1040 LINE(131,85)-(160,V)
1045 LINE-(189,85)
1050 PSET(160,V),0
1055 PSET(157,108):PSET(163,108)
1060 NEXT V
1065 FOR V=84 TO 60 STEP -2
1070 LINE(131,85)-(160,V)
1075 LINE-(189,85)
1080 LINE(131,85)-(160,V),0
1085 LINE-(189,85),0
1090 LINE(131,85)-(160,V+1),0
1095 LINE-(189,85),0
1100 PSET(160,V)
1105 NEXT V
1110 LINE(147,70)-(160,60)
1115 LINE-(173,70)
1120 FOR K=1 TO 750:NEXT K
1125 GOSUB 30000 '*** Textpad ***
1130 PRINT FNCEN$("Press <C> to continue.",40)
1135 A$=INKEY$:IF A$="" GOTO 1135
1140 IF A$="C" OR A$="c" GOTO 1150
1145 GOTO 1125
1150 GOSUB 30000 '*** Textpad ***
1155 PRINT FNCEN$("Now, we fold the left side of our figure",40)
1160 FOR K=1 TO 750:NEXT K
1165 FOR K=1 TO 15
1170 LINE(160,60)-(131,85),0
1175 LINE(147,70)-(114,70),0
1180 LINE-(160,170),0
1185 LINE-(160,60),0
1190 LINE(114,70)-(131,85),0
1195 LINE-(160,85),0
1200 FOR M=1 TO 25:NEXT M
1205 LINE(160,60)-(131,85),3
1210 LINE(147,70)-(114,70),3
1215 LINE-(160,170),3
1220 LINE-(160,60),3
1225 LINE(114,70)-(131,85),3
1230 LINE-(160,85),3
1235 NEXT K
1240 PSET(118,73):PSET(126,80)
1245 LINE(114,70)-(131,85),0
1250 LINE-(160,60),0
1255 LINE-(147,70)
1260 LINE(131,85)-(160,85),0
1265 FOR V=61 TO 85 STEP 2
1270 PSET(160,V),0
1275 NEXT V
1280 LINE(160,85)-(160,170),0
1285 FOR K=1 TO 750:NEXT K
1290 GOSUB 30000 '***tEXTPAD***
1295 PRINT FNCEN$("over to the right side,",40)
1300 FOR K=1 TO 750:NEXT K
1305 FOR K=1 TO 15
1310 LINE(160,60)-(189,85),0
1315 LINE(173,70)-(206,70),0
1320 LINE-(160,170),0
1325 LINE-(160,60),0
1330 LINE(206,70)-(189,85),0
1335 LINE-(160,85),0
1340 FOR M=1 TO 25:NEXT M
1345 LINE(160,60)-(189,85),3
1350 LINE(173,70)-(206,70),3
1355 LINE-(160,170),3
1360 LINE-(160,60),3
1365 LINE(206,70)-(189,85),3
1370 LINE-(160,85),3
1375 NEXT K
1380 PSET(202,73):PSET(194,80)
1385 LINE(206,70)-(189,85),0
1390 LINE-(160,60),0
1395 LINE-(173,70)
1400 LINE(160,85)-(189,85),0
1405 FOR V=61 TO 85 STEP 2
1410 PSET(160,V),0
1415 NEXT V
1420 LINE(160,85)-(160,170),0
1425 FOR K=1 TO 750:NEXT K
1430 GOSUB 30000 '***tEXTPAD***
1435 PRINT FNCEN$("SO!",40)
1440 FOR K=1 TO 750: NEXT K
1445 FOR Q=0 TO 46
1450 LINE(160,60)-(131+0.63*Q,85)
1455 LINE-(114+Q,70),0
1460 LINE-(160,170),0
1465 LINE(131+0.63*Q,85)-(114+Q,70)
1470 LINE(160,170)-(114+Q,70)
1475 LINE(160,170)-(114+Q,70),0
1480 LINE(160,60)-(147+0.28*Q,69),0
1485 NEXT Q
1490 FOR H=160 TO 173
1495 LINE(160,60)-(H,70),3
1500 LINE(160,170)-(H,70),3
1505 LINE(160,69)-(173,69),0
1510 NEXT H
1515 FOR H=173 TO 206
1520 LINE(160,170)-(H,70),3
1525 NEXT H
1530 FOR K=1 TO 1500:NEXT K
1535 GOSUB 30000 '***Textpad***
1540 PRINT FNCEN$("Now we're ready for our final folds.",40)
1545 FOR K=1 TO 1500:NEXT K
1550 GOSUB 30000 '***Textpad***
1555 PRINT FNCEN$("But first let's position ourselves",40)
1560 FOR K=1 TO 1500:NEXT K
1565 PRINT FNCEN$("more comfortably.",40)
1570 FOR K=1 TO 1500:NEXT K
1575 GOSUB 30000 '***Textpad***
1580 PRINT FNCEN$("One moment, please.",40)
1585 FOR K=1 TO 1500:NEXT K
1590 CLS
1591 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
1595 FOR A=0 TO 20
1600 OUT 66,A:OUT 66,A
1605 OUT 97,(INP(97) OR 3)
1610 NEXT A
1615 SOUND 37,0
1620 LINE(255,150)-(10,150)
1625 LINE-(245,60)
1630 LINE-(225,90)
1635 LINE-(255,150)
1640 PAINT(160,120),3
1645 LINE(216,70)-(226,90),0
1650 FOR K=1 TO 750:NEXT K
1655 GOSUB 30000 '***Textpad***
1660 PRINT FNCEN$("There! That's much better!",40)
1665 FOR K=1 TO 1500:NEXT K
1670 GOSUB 30000 '***Textpad***
1675 PRINT FNCEN$("We now fold this outside corner",40)
1680 FOR K=1 TO 250:NEXT K
1685 FOR K=1 TO 15
1690 PSET(10,158):DRAW"G5 R4 D7 R2 U7 R4 H5"
1695 PAINT(10,164)
1700 FOR M=1 TO 25:NEXT M
1705 CIRCLE (10,164),7,0
1710 PAINT(10,164),0
1715 NEXT K
1720 FOR K=1 TO 500:NEXT K
1725 GOSUB 30000 '***Textpad***
1730 PRINT FNCEN$("up to roughly this point",40)
1735 FOR K=1 TO 15
1740 CIRCLE(165,40),5,3
1745 LINE(163,40)-(167,40),3
1750 LINE(165,38)-(165,42),3
1755 FOR M=1 TO 25:NEXT M
1760 CIRCLE(165,40),5,0
1765 LINE(163,40)-(167,40),0
1770 LINE(165,38)-(165,42),0
1775 NEXT K
1780 CIRCLE(165,40),5,0
1785 PSET(165,40),0
1790 FOR K=1 TO 500:NEXT K
1795 GOSUB 30000 '***Textpad***
1800 PRINT FNCEN$("along about this line",40)
1805 FOR K=1 TO 500:NEXT K
1810 FOR K=1 TO 25
1815 LINE(105,114)-(141,150),3
1820 FOR M=1 TO 25:NEXT M
1825 LINE(105,114)-(141,150),0
1830 NEXT K
1835 FOR K=1 TO 500:NEXT K
1840 GOSUB 30000 '***Textpad***
1845 PRINT FNCEN$("to set our ears at a jaunty angle,",40)
1850 FOR K=1 TO 1500:NEXT K
1855 GOSUB 30000 '***Textpad***
1860 PRINT FNCEN$("SO!",40)
1865 FOR K=1 TO 1000:NEXT K
1870 FOR Q=0 TO 95
1875 LINE(105,114)-(10+Q,150-0.38*Q),0
1880 LINE-(141,150),0
1885 LINE(105,114)-(10+Q,150-0.38*Q)
1890 LINE-(141,150)
1895 NEXT Q
1900 FOR Q=O TO 74
1905 LINE(141,150)-(105+0.81*Q,114-Q),0
1910 LINE(105,114)-(105+0.81*Q,114-Q)
1915 LINE-(141,150)
1920 LINE(141,150)-(105+0.81*Q,114-Q)
1925 LINE(105,114)-(141,150),0
1930 LINE(105+0.32*Q,114-0.39*Q)-(130+0.32*Q,114-0.29*Q)
1935 NEXT Q
1940 LINE(166,40)-(142,150),0
1945 FOR Q=0 TO 26
1950 LINE(129+Q,85)-(108+Q,111)
1955 NEXT Q
1960 FOR K=1 TO 750:NEXT K
1965 GOSUB 30000 '*** Textpad ***
1970 PRINT FNCEN$("Press <C> to continue.",40)
1975 A$=INKEY$:IF A$="" GOTO 1975
1980 IF A$="C" OR A$="c" GOTO 1990
1985 GOTO 1965
1990 GOSUB 30000 '***Textpad***
1995 PRINT FNCEN$("and likewise with our other ear,",40)
2000 FOR K=1 TO 1500:NEXT K
2005 GOSUB 30000 '*** <Textpad> ***
2010 PRINT FNCEN$("SO!",40)
2015 FOR K=1 TO 750:NEXT K
2020 FOR Q=0 TO 95
2025 LINE(105,114)-(10+Q,150-0.38*Q),0
2030 LINE-(141,150),0
2035 LINE(105,114)-(10+Q,150-0.38*Q)
2040 LINE(10+Q,150-0.38*Q)-(141,150),0
2045 LINE(10+Q,151-0.38*Q)-(141,151),0
2050 LINE(16,147)-(103,114),0
2055 NEXT Q
2060 FOR Q=O TO 74
2065 LINE(141,150)-(105+0.81*Q,114-Q),1
2070 LINE(105,114)-(105+0.81*Q,114-Q)
2075 LINE-(141,150)
2080 LINE(141,150)-(105+0.81*Q,114-Q)
2085 LINE(105,114)-(141,150),0
2090 NEXT Q
2095 LINE(166,40)-(142,150),0
2100 LINE(105,114)-(150,42),3
2105 LINE-(155,60),3
2110 PAINT(145,60),3
2115 PSET(114,101):PSET(113,102):PSET(113,103):PSET(112,104)
2120 LINE(105,114)-(154,53),0
2125 FOR K=1 TO 1500:NEXT K
2130 GOSUB 30000 '***Textpad***
2135 PRINT FNCEN$("There! I'm done!",40)
2140 FOR K=1 TO 1500:NEXT K
2145 GOSUB 30000 '***Textpad***
2150 PRINT FNCEN$("If you'd like, you might give me",40)
2155 FOR K=1 TO 1500:NEXT K
2160 GOSUB 30000 '***Textpad***
2165 PRINT FNCEN$("an eye,",40)
2170 FOR K=1 TO 1000:NEXT K
2175 CIRCLE(135,95),4,0
2180 CIRCLE(135,95),2,0
2185 PSET(135,95),0
2190 FOR K=1 TO 1500:NEXT K
2195 PRINT FNCEN$("a nose,",40)
2200 FOR K=1 TO 1000:NEXT K
2205 CIRCLE(110,113),4,0
2210 PAINT(110,113),0
2215 CIRCLE(110,113),4,3
2220 FOR K=1 TO 1500:NEXT K
2225 PRINT FNCEN$("and some whiskers.",40)
2230 FOR K=1 TO 1000:NEXT K
2235 LINE(117,111)-(125,107),0
2240 LINE(117,108)-(125,100),0
2245 LINE(117,114)-(125,118),0
2250 FOR K=1 TO 1500:NEXT K
2255 GOSUB 30000 '***Textpad***
2260 PRINT FNCEN$("Mission accomplished!",40)
2265 FOR K=1 TO 1500:NEXT K
2270 GOSUB 30000 '*** Textpad ***
2275 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
2280 PRINT FNCEN$(" <2> - To repeat RABBIT.",40)
2285 PRINT FNCEN$(" <3> - To exit from program.",40)
2290 E$=INPUT$(1)
2295 IF E$<"1" OR E$>"3" GOTO 2290
2300 SEL=VAL(E$)
2305 COMMON SEL
2310 CLS
2315 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
2316 LINE(70,75)-(250,125),3,B
2320 ON SEL GOTO 2325,2330,2335
2325 CHAIN"a:main"
2330 CHAIN"a:rabbit
2335 CHAIN"a:end"
8999 END
30000 LOCATE 1,1
30010 PRINT " "
30020 LOCATE 1,1:RETURN
SHARE.BAS
10 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
30 LINE(5,10)-(315,190),3,B
31 GOSUB 30000 '*** Textpad ***
32 PRINT FNCEN$("* Press <C> to continue *",40)
40 LOCATE 6,1
50 PRINT FNCEN$("* SHAREWARE *",40)
60 LINE(5,39)-(5,47)
70 LOCATE 9,1
80 PRINT FNCEN$("ORIGAMI is offered",40)
90 LINE(5,63)-(5,71)
100 PRINT FNCEN$("on a shareware basis.",40)
110 LINE(5,71)-(5,79)
120 LOCATE 11,1
130 PRINT FNCEN$("You are encouraged to distribute",40)
140 LINE(5,79)-(5,86)
150 PRINT FNCEN$("copies of ORIGAMI to anyone",40)
160 LINE(5,86)-(5,95)
170 PRINT FNCEN$("who would like one.",40)
180 LINE(5,95)-(5,103)
210 LOCATE 15,1
220 PRINT FNCEN$("No charge whatsoever is to be made",40)
230 LINE(5,110)-(5,117)
240 PRINT FNCEN$("for such copying",40)
250 LINE(5,117)-(5,124)
260 PRINT FNCEN$("and/or distributing",40)
270 LINE(5,110)-(5,150)
280 PRINT FNCEN$("except for costs of diskettes",40)
290 LINE(5,110)-(5,150)
300 PRINT FNCEN$("supplied by SIGs.",40)
310 LINE(5,110)-(5,155)
340 A$=INKEY$:IF A$="" GOTO 340
350 IF A$="C" OR A$="c" GOTO 370
360 GOTO 340
370 CLS
380 LINE(5,10)-(315,190),3,B
381 GOSUB 30000 '*** Textpad ***
382 PRINT FNCEN$("* Press <C> to continue *",40)
390 LOCATE 6,1
400 PRINT FNCEN$("The author would appreciate",40)
410 LINE(5,39)-(5,47)
420 PRINT FNCEN$("a contribution of $19.95",40)
430 LINE(5,47)-(5,55)
431 PRINT FNCEN$("(less the cost",40)
432 LINE(5,55)-(5,63)
433 PRINT FNCEN$("of a SIG diskette,",40)
434 LINE(5,63)-(5,71)
435 PRINT FNCEN$("if any)",40)
436 LINE(5,71)-(5,79)
440 PRINT FNCEN$("from those who find his efforts",40)
450 LINE(5,79)-(5,87)
460 PRINT FNCEN$("worthy of their support",40)
470 LINE(5,87)-(5,95)
480 PRINT FNCEN$("and would like to order",40)
490 LINE(5,95)-(5,103)
500 PRINT FNCEN$("a complete ORIGAMI software",40)
510 LINE(5,103)-(5,111)
520 PRINT FNCEN$("and paper supplies package",40)
530 LINE(5,111)-(5,119)
540 PRINT FNCEN$("of their own.",40)
541 LINE(5,119)-(5,127)
550 PRINT
590 PRINT FNCEN$("For a price list",40)
650 LINE(5,135)-(5,143)
655 PRINT FNCEN$("of ORIGAMI paper available,",40)
670 LINE(5,143)-(5,151)
671 PRINT FNCEN$("send SASE to address",40)
690 LINE(5,151)-(5,159)
691 PRINT FNCEN$("listed below.",40)
710 LINE(5,159)-(5,167)
720 A$=INKEY$:IF A$="" GOTO 720
730 IF A$="C" OR A$="c" GOTO 750
740 GOTO 720
750 CLS
760 LINE(5,10)-(315,190),3,B
761 GOSUB 30000 '*** Textpad ***
762 PRINT FNCEN$("Press <C> to continue.",40)
770 LOCATE 8,1
780 PRINT FNCEN$("Institutional users",40)
790 LINE(5,55)-(5,63)
800 PRINT
810 PRINT FNCEN$("are asked to contribute",40)
820 LINE(5,71)-(5,79)
830 PRINT
840 PRINT FNCEN$("$5 for each copy",40)
850 LINE(5,87)-(5,95)
860 PRINT
870 PRINT FNCEN$("in actual use",40)
880 LINE(5,103)-(5,111)
881 PRINT
890 PRINT FNCEN$("after the initial contribution",40)
900 LINE(5,119)-(5,127)
901 PRINT
910 PRINT FNCEN$("of $19.95.",40)
920 LINE(5,135)-(5,143)
930 A$=INKEY$:IF A$="" GOTO 930
940 IF A$="C" OR A$="c" GOTO 951
950 GOTO 930
951 CLS
952 LINE(5,10)-(315,190),3,B
953 GOSUB 30000 '*** Textpad ***
954 PRINT FNCEN$("Press <C> to continue.",40)
960 LOCATE 5,1
1150 PRINT FNCEN$("ORIGAMI is written in BASICA",40)
1160 LINE(5,31)-(5,39)
1170 PRINT FNCEN$("and the source code is open to you",40)
1171 LINE(5,39)-(5,47)
1190 PRINT FNCEN$("for modification",40)
1200 LINE(5,47)-(5,55)
1210 PRINT FNCEN$("and experimentation,",40)
1220 LINE(5,55)-(5,63)
1230 PRINT FNCEN$("but please do so",40)
1240 LINE(5,63)-(5,71)
1250 PRINT FNCEN$("on a separate personal diskette,",40)
1251 LINE(5,71)-(5,79)
1260 PRINT FNCEN$("retaining without modification",40)
1261 LINE(5,79)-(5,87)
1270 PRINT FNCEN$("all copyright notices,",40)
1271 LINE(5,87)-(5,95)
1290 PRINT FNCEN$("all requests for contributions,",40)
1291 LINE(5,95)-(5,103)
1300 PRINT FNCEN$("and all of the material",40)
1301 LINE(5,103)-(5,111)
1310 PRINT FNCEN$("included in this section,",40)
1311 LINE(5,111)-(5,119)
1315 PRINT
1320 PRINT FNCEN$("* SHAREWARE *",40)
1321 LINE(5,127)-(5,135)
1325 PRINT
1330 PRINT FNCEN$("and leave the original diskette",40)
1331 LINE(5,143)-(5,151)
1340 LINE(5,130)-(5,137)
1350 PRINT FNCEN$("unmodified for copying",40)
1351 LINE(5,151)-(5,159)
1370 PRINT FNCEN$("and distribution purposes.",40)
1380 LINE(5,159)-(5,167)
1390 LINE(5,10)-(315,190),3,B
1420 A$=INKEY$:IF A$="" GOTO 1420
1430 IF A$="C" OR A$="c" GOTO 1450
1440 GOTO 1400
1450 CLS
1460 LINE(5,10)-(315,190),3,B
1461 GOSUB 30000 '*** Textpad ***
1462 PRINT FNCEN$("* Press <C> to continue *",40)
1470 LOCATE 5,1
1480 PRINT FNCEN$("I would love to hear from you",40)
1481 LINE(5,31)-(5,39)
1490 PRINT
1500 PRINT FNCEN$("regarding your reaction",40)
1501 LINE(5,47)-(5,55)
1510 PRINT
1520 PRINT FNCEN$("to this program.",40
1521 LINE(5,63)-(5,71)
1530 LINE(5,10)-(315,190),3,B
1540 PRINT:PRINT
1550 PRINT FNCEN$("Write to me at:",40)
1551 LINE(5,95)-(5,103)
1560 PRINT:PRINT
1570 PRINT FNCEN$("George Furiya",40)
1571 LINE(5,127)-(5,135)
1580 PRINT FNCEN$("299 State Street",40)
1581 LINE(5,135)-(5,143)
1590 PRINT FNCEN$("Brooklyn, NY 11201",40)
1591 LINE(5,143)-(5,151)
1600 LINE(5,10)-(315,190),3,B
1601 PRINT:PRINT
1602 PRINT FNCEN$("Enclose SASE if reply required.",40)
1603 LINE(5,151)-(5,159)
1630 A$=INKEY$:IF A$="" GOTO 1630
1640 IF A$="C" OR A$="c" GOTO 1660
1650 GOTO 1630
1660 CLS
1670 LINE(5,10)-(315,190),3,B
1680 LOCATE 11,1
1690 PRINT FNCEN$("Press <1> - To return to TITLE PAGE.",40)
1700 PRINT
1710 PRINT FNCEN$(" <2> - To exit from program.",40)
1720 LINE(5,10)-(315,190),3,B
1730 E$=INPUT$(1)
1740 IF E$<"1" OR E$>"2" GOTO 1730
1750 SEL=VAL(E$)
1760 COMMON SEL
1770 CLS
1780 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
1781 LINE(70,75)-(250,125),3,B
1790 ON SEL GOTO 1800,1810
1800 CHAIN"a:titlepg"
1810 CHAIN"a:end
8999 END
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
STATS.BAS
10 SCREEN 0,1:WIDTH 80:COLOR 0,6,4:KEY OFF: CLS
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
30 LOCATE 2,1
40 PRINT FNCEN$("* STATISTICS *",80)
50 PRINT
60 PRINT TAB(34);"Number";TAB(66);"Running"
70 PRINT TAB(36);"of";TAB(48);"Memory";TAB(67);"Time"
80 PRINT TAB(34);"Lines";TAB(48);"(Bytes)";TAB(65);"(Minutes)"
90 PRINT
100 PRINT TAB(5);" Introduction";TAB(35);"1497";TAB(49);"33766";TAB(68);"13"
110 PRINT TAB(5);" 1. Jet Plane";TAB(35);" 857";TAB(49);"18749";TAB(68);" 5"
120 PRINT TAB(5);" 2. Rabbit";TAB(35);" 470";TAB(49);"10562";TAB(68);" 3"
130 PRINT TAB(5);" 3. Waterfowl";TAB(35);" 492";TAB(49);"10994";TAB(68);" 5"
140 PRINT TAB(5);" 4. Candy Dish";TAB(35);" 611";TAB(49);"12707";TAB(68);" 5"
150 PRINT TAB(5);" 5. Two Boxes";TAB(35);"1106";TAB(49);"26115";TAB(68);"14"
160 PRINT TAB(5);" 6. Puppy";TAB(35);"1467";TAB(49);"33361";TAB(68);"15"
170 PRINT TAB(5);" 7. Penguin";TAB(35);"1164";TAB(49);"26115";TAB(68);"11"
180 PRINT TAB(5);" 8. Helmet/Grouper";TAB(35);" 981";TAB(49);"22296";TAB(68);" 6"
190 PRINT TAB(5);" 9. Cicada";TAB(35);" 618";TAB(49);"14469";TAB(68);" 5"
200 PRINT TAB(5);"10. Pig";TAB(35);"1811";TAB(49);"40299";TAB(68);"15"
210 PRINT TAB(5);"11. Balloon";TAB(35);"1077";TAB(49);"24810";TAB(68);"10"
220 PRINT TAB(5);"12. Chick";TAB(35);"2411";TAB(49);"54130";TAB(68);"21"
230 PRINT
250 PRINT TAB(5);" Totals";TAB(34);"14562";TAB(48);"334106";TAB(67);"128"
9000 END
TITLEPG.BAS
10 SCREEN 1,0:COLOR 8,0:CLS:KEY OFF
20 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
30 LOCATE 7,1
40 PRINT FNCEN$("PC-ORIGAMI",40)
50 PRINT:PRINT
60 PRINT FNCEN$("The Japanese Art",40)
70 PRINT FNCEN$("of",40)
80 PRINT FNCEN$("Paperfolding",40)
90 PRINT:PRINT:PRINT
91 PRINT FNCEN$("Volume 1",40)
92 PRINT:PRINT:PRINT:PRINT
100 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
110 PRINT FNCEN$("All Rights Reserved",40)
120 LINE(5,10)-(315,190),3,B
130 FOR K=1 TO 3500:NEXT K
140 CLS
150 LOCATE 10,1
160 PRINT FNCEN$("Press <1> for INTRODUCTION.",40)
170 LOCATE 12,11
180 PRINT " <2> for MAIN MENU."
190 LOCATE 14,11
200 PRINT " <3> for SHAREWARE."
210 LOCATE 16,11
220 PRINT " <4> for STATISTICS."
230 LINE(10,10)-(310,190),3,B
240 E$=INPUT$(1)
250 IF E$<"1" OR E$>"4" GOTO 240
260 SEL=VAL(E$)
270 COMMON SEL
280 CLS
290 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
300 LINE(70,75)-(250,125),3,B
310 ON SEL GOTO 320,330,340,350
320 CHAIN "a:INTRO"
330 CHAIN "a:main"
340 CHAIN "a:share"
350 CHAIN "a:stats"
WATERFOW.BAS
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$("WATERFOWL",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 FOR K=1 TO 2500:NEXT K
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 FOR K=1 TO 250:NEXT K
80 LINE(105,45)-(215,145),3,B
85 GOSUB 30000 '*** <Textpad> ***
90 PRINT FNCEN$("Our first fold takes this corner",40)
95 FOR K=1 TO 750:NEXT K
100 FOR K=1 TO 15
105 PSET(223,153):DRAW"R8G3F6G2H6G3U8"
110 PAINT(228,158)
115 FOR M=1 TO 25:NEXT M
120 CIRCLE(228,158),9,0
125 PAINT(228,158),0
130 NEXT K
135 FOR K=1 TO 750:NEXT K
140 GOSUB 30000 '*** <Textpad> ***
145 PRINT FNCEN$("up to this corner",40)
150 FOR K=1 TO 750:NEXT K
155 FOR K=1 TO 15
160 PSET(97,37):DRAW"U8G3H6G2F6G3R8"
165 PAINT(92,32)
170 FOR M=1 TO 25:NEXT M
175 CIRCLE(92,32),9,0
180 PAINT(92,32),0
185 NEXT K
190 FOR K=1 TO 750:NEXT K
195 GOSUB 30000 '*** <Textpad> ***
200 PRINT FNCEN$("across this line,",40)
205 FOR K=1 TO 750:NEXT K
210 LINE(105,145)-(215,45)
215 FOR K=1 TO 750:NEXT K
220 GOSUB 30000 '*** <Textpad> ***
225 PRINT FNCEN$("SO!",40)
230 FOR K=1 TO 750:NEXT K
235 FOR Q=0 TO 55
240 LINE(105,145)-(215-Q,145-0.91*Q)
245 LINE-(215,45)
250 LINE(105,145)-(215-Q,145-0.91*Q),0
255 LINE-(215,45),0
260 NEXT Q
265 FOR Q=0 TO 55
270 LINE(105,145)-(160-Q,95-0.9099999*Q)
275 LINE-(215,45)
280 LINE(105,145)-(160-Q,96-0.9099999*Q)
285 LINE-(215,45)
290 NEXT Q
295 GOSUB 30000 '*** <Textpad> ***
300 PRINT FNCEN$("Your turn. I'll wait for you.",40)
305 FOR K=1 TO 1500:NEXT K
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$("Our second fold takes this corner",40)
345 FOR K=1 TO 750:NEXT K
350 FOR K=1 TO 15
355 PSET(223,37):DRAW"U8F3E6F2G6F3L8"
360 PAINT(228,32)
365 FOR M=1 TO 25:NEXT M
370 CIRCLE(228,32),9,0
375 PAINT(228,32),0
380 NEXT K
385 GOSUB 30000 '*** <Textpad> ***
390 PRINT FNCEN$("down to this corner",40)
395 FOR K=1 TO 750:NEXT K
400 FOR K=1 TO 15
405 PSET(97,153):DRAW"L8F3G6F2E6F3U8"
410 PAINT(92,158)
415 FOR M=1 TO 25:NEXT M
420 CIRCLE(92,158),9,0
425 PAINT(92,158),0
430 NEXT K
435 GOSUB 30000 '*** <Textpad> ***
440 PRINT FNCEN$("across this line,",40)
445 FOR K=1 TO 750:NEXT K
450 LINE(105,45)-(215,145),0
455 FOR K=1 TO 750:NEXT K
460 GOSUB 30000 '*** <Textpad> ***
465 PRINT FNCEN$("SO!",40)
470 FOR K=1 TO 750:NEXT K
475 FOR Q=0 TO 55
480 LINE(105,45)-(215-Q,45+0.9099999*Q),0
485 LINE(105,45)-(216-Q,45+0.9099999*Q),0
490 NEXT Q
495 FOR Q=0 TO 55
500 LINE(105,45)-(160-Q,95+0.9099999*Q),0
505 LINE(105,45)-(160-Q,95+0.9099999*Q)
510 NEXT Q
515 FOR K=1 TO 750:NEXT K
520 GOSUB 30000 '*** Textpad ***
525 PRINT FNCEN$("Press <C> to continue.",40)
530 A$=INKEY$:IF A$="" GOTO 530
535 IF A$="C" OR A$="c" GOTO 545
540 GOTO 520
545 GOSUB 30000 '*** <Textpad> ***
550 PRINT FNCEN$("Folds 3 and 4 take these two corners",40)
555 FOR K=1 TO 750:NEXT K
560 LINE(105,140)-(110,140),0
565 LINE-(105,135),0
570 FOR K=1 TO 750:NEXT K
575 FOR K=1 TO 15
580 PSET(105,153):DRAW"G5R4D7R2U7R4H5"
585 PAINT(105,159)
590 FOR M=1 TO 25:NEXT M
595 CIRCLE(105,159),7,0
600 PAINT(105,159),0
605 NEXT K
610 FOR K=1 TO 750:NEXT K
615 LINE(105,140)-(110,140)
620 LINE-(105,135)
625 FOR K=1 TO 750:NEXT K
630 GOSUB 30000 '*** <Textpad> ***
635 PRINT FNCEN$("up to this corner",40)
640 FOR K=1 TO 750:NEXT K
645 FOR K=1 TO 15
650 PSET(105,37):DRAW"E5L4U7L2D7L4F5"
655 PAINT(105,31)
660 FOR M=1 TO 25:NEXT M
665 CIRCLE(105,31),7,0
670 PAINT(105,31),0
675 NEXT K
680 FOR K=1 TO 750:NEXT K
685 GOSUB 30000 '*** <Textpad> ***
690 PRINT FNCEN$("across this center line,",40)
695 FOR K=1 TO 750:NEXT K
700 FOR H=105 TO 160 STEP 2
705 PSET(H,95),0
710 NEXT H
715 FOR K=1 TO 750:NEXT K
720 GOSUB 30000 '*** <Textpad> ***
725 PRINT FNCEN$("first in front",40)
730 FOR K=1 TO 750:NEXT K
735 FOR V=145 TO 95 STEP -1
740 LINE(160,95)-(105,V),0
745 LINE(160,95)-(105,V)
750 NEXT V
755 FOR V=95 TO 45 STEP -1
760 LINE(160,95)-(105,V),0
765 LINE(160,95)-(105,V)
770 LINE(105,95)-(160,95),0
775 NEXT V
780 FOR K=1 TO 750:NEXT K
785 GOSUB 30000 '*** <Textpad> ***
790 PRINT FNCEN$("and then in back.",40)
795 FOR K=1 TO 750:NEXT K
800 FOR V=146 TO 95 STEP -1
805 LINE(161,95)-(105,V),0
810 NEXT V
815 FOR V=95 TO 45 STEP -1
820 LINE(160,95)-(105,V),1
825 LINE(160,95)-(105,V)
830 NEXT V
835 FOR K=1 TO 750:NEXT K
840 GOSUB 30000 '*** Textpad ***
845 PRINT FNCEN$("Press <C> to continue.",40)
850 A$=INKEY$:IF A$="" GOTO 850
855 IF A$="C" OR A$="c" GOTO 865
860 GOTO 840
865 GOSUB 30000 '*** <Textpad> ***
870 PRINT FNCEN$("I need more room to work in.",40)
875 FOR K=1 TO 1500:NEXT K
880 GOSUB 30000 '*** Textpad ***
885 PRINT FNCEN$("One moment, please.",40)
890 FOR K=1 TO 1500:NEXT K
895 FOR A=0 TO 20
900 OUT 66,A:OUT 66,A
905 OUT 97,(INP(97) OR 3)
910 NEXT A
915 SOUND 37,0
920 CLS
925 LINE(105,35)-(105,145)
930 LINE-(230,145)
935 LINE-(105,35)
940 PAINT(130,120)
945 FOR K=1 TO 750:NEXT K
950 GOSUB 30000 '*** <Textpad> ***
955 PRINT FNCEN$("Let's have a look at what's up here.",40)
960 FOR K=1 TO 750:NEXT K
965 FOR K=1 TO 15
970 PSET(105,27):DRAW"E5L4U7L2D7L4F5"
975 PAINT(105,21)
980 FOR M=1 TO 25:NEXT M
985 CIRCLE(105,21),7,0
990 PAINT(105,21),0
995 NEXT K
1000 FOR K=1 TO 750:NEXT K
1005 GOSUB 30000 '*** <Textpad> ***
1010 PRINT FNCEN$("Flap 1",40)
1015 FOR K=1 TO 750:NEXT K
1020 LINE(105,45)-(115,45),0
1025 LINE-(105,55),0
1030 FOR K=1 TO 750:NEXT K
1035 GOSUB 30000 '*** <Textpad> ***
1040 PRINT FNCEN$("Flap 2",40)
1045 FOR K=1 TO 750:NEXT K
1050 LINE(105,40)-(112,40),0
1055 LINE-(105,45),0
1060 FOR K=1 TO 750:NEXT K
1065 GOSUB 30000 '*** <Textpad> ***
1070 PRINT FNCEN$("Flap 3",40)
1075 FOR K=1 TO 750:NEXT K
1080 FOR K=1 TO 15
1085 LINE(105,40)-(105,35),0
1090 LINE-(110,40),0
1095 FOR M=1 TO 25:NEXT M
1100 LINE(105,40)-(105,35)
1105 LINE-(110,40)
1110 PSET(110,39),0
1115 NEXT K
1120 PSET(105,40),0
1125 PSET(110,40),0
1130 FOR K=1 TO 750:NEXT K
1135 GOSUB 30000 '*** <Textpad> ***
1140 PRINT FNCEN$("Flaps 1 and 3 fold down to this corner",40)
1145 FOR K=1 TO 750:NEXT K
1150 FOR K=1 TO 15
1155 PSET(230,153):DRAW"G5R4D7R2U7R4H5"
1160 PAINT(230,159)
1165 FOR M=1 TO 25:NEXT M
1170 CIRCLE(230,159),7,0
1175 PAINT(230,159),0
1180 NEXT K
1185 FOR K=1 TO 750:NEXT K
1190 GOSUB 30000 '*** <Textpad> ***
1195 PRINT FNCEN$("across this line,",40)
1200 FOR K=1 TO 750:NEXT K
1205 LINE(105,145)-(166,89),0
1210 GOSUB 30000 '*** <Textpad> ***
1215 PRINT FNCEN$("first in front",40)
1220 FOR K=1 TO 750:NEXT K
1225 LINE(106,45)-(115,45)
1230 LINE-(105,55)
1235 FOR Q=0 TO 50
1240 LINE(105,145)-(115+Q,45+0.9*Q),0
1245 LINE(105,145)-(115+Q,45+0.9*Q)
1250 NEXT Q
1255 FOR Q=0 TO 65
1260 LINE(105,145)-(166+Q,89+0.8499999*Q),0
1265 LINE(105,145)-(166+Q,89+0.8499999*Q)
1270 LINE(105,145)-(166,89),0
1275 NEXT Q
1280 FOR K=1 TO 750:NEXT K
1285 GOSUB 30000 '*** <Textpad> ***
1290 PRINT FNCEN$("and then in back.",40)
1295 FOR K=1 TO 750:NEXT K
1300 LINE(105,35)-(115,40),0,BF
1305 FOR Q=0 TO 50
1310 LINE(105,145)-(115+Q,45+0.9*Q),1
1315 LINE(105,145)-(115+Q,45+0.9*Q)
1320 NEXT Q
1325 FOR Q=0 TO 65
1330 LINE(105,145)-(166+Q,89+0.8499999*Q),1
1335 LINE(105,145)-(166+Q,89+0.8499999*Q)
1340 LINE(105,145)-(166,89),0
1345 NEXT Q
1350 FOR K=1 TO 750:NEXT K
1355 LINE(105,45)-(111,40)
1360 LINE(105,45)-(105,35)
1365 LINE-(115,45)
1370 PAINT(107,38)
1375 PSET(107,44)
1380 FOR K=1 TO 750:NEXT K
1385 GOSUB 30000 '*** Textpad ***
1390 PRINT FNCEN$("Press <C> to continue.",40)
1395 A$=INKEY$:IF A$="" GOTO 1395
1400 IF A$="C" OR A$="c" GOTO 1410
1405 GOTO 1385
1410 GOSUB 30000 '*** <Textpad> ***
1415 PRINT FNCEN$("We next fold and backfold this corner",40)
1420 FOR K=1 TO 750:NEXT K
1425 FOR K=1 TO 15
1430 PSET(105,27):DRAW"E5L4U7L2D7L4F5"
1435 PAINT(105,21)
1440 FOR M=1 TO 25:NEXT M
1445 CIRCLE(105,21),7,0
1450 PAINT(105,21),0
1455 NEXT K
1460 FOR K=1 TO 750:NEXT K
1465 GOSUB 30000 '*** <Textpad> ***
1470 PRINT FNCEN$("across this line of our choosing,",40)
1475 FOR K=1 TO 1500:NEXT K
1480 LINE(105,70)-(166,89),0
1485 FOR K=1 TO 750:NEXT K
1490 GOSUB 30000 '*** <Textpad> ***
1495 PRINT FNCEN$("SO!",40)
1500 FOR K=1 TO 750:NEXT K
1505 FOR V=35 TO 70
1510 LINE(166,89)-(105,V),0
1515 LINE(118,46)-(161,84),0
1520 FOR M=1 TO 10:NEXT M
1525 NEXT V
1530 FOR Q=O TO 30
1535 LINE(166,89)-(105-0.67*Q,70+Q),0
1540 LINE(166,89)-(105-0.67*Q,70+Q)
1545 LINE(166,89)-(106-0.67*Q,70+Q)
1550 FOR M=1 TO 10:NEXT M
1555 NEXT Q
1560 LINE(85,100)-(166,89),0
1565 PSET(89,100),0:PSET(104,98),0
1570 FOR K=1 TO 750:NEXT K
1575 GOSUB 30000 '*** Textpad ***
1580 PRINT FNCEN$("Press <C> to continue.",40)
1585 A$=INKEY$:IF A$="" GOTO 1585
1590 IF A$="C" OR A$="c" GOTO 1600
1595 GOTO 1575
1600 GOSUB 30000 '*** <Textpad> ***
1605 PRINT FNCEN$("and return.",40)
1610 FOR K=1 TO 750:NEXT K
1615 FOR Q=0 TO 30
1620 LINE(166,89)-(85+0.67*Q,100-Q),0
1625 LINE(166,89)-(84+0.67*Q,100-Q),0
1630 LINE(166,89)-(105,100-Q)
1635 LINE(166,89)-(105,101-Q)
1640 PSET(113,80):PSET(115,82):PSET(124,84):PSET(141,85):PSET(149,87)
1645 NEXT Q
1650 FOR V=70 TO 35 STEP -1
1655 LINE(166,89)-(105,V)
1660 LINE(105,70)-(166,89),0
1665 NEXT V
1670 FOR K=1 TO 750:NEXT K
1675 GOSUB 30000 '*** <Textpad> ***
1680 PRINT FNCEN$("Your turn to fold and backfold.",40)
1685 FOR K=1 TO 1500:NEXT K
1690 GOSUB 30000
1695 PRINT FNCEN$("To review that fold, press <R>.",40)
1700 FOR K=1 TO 1000:NEXT K
1705 PRINT FNCEN$("To continue, press <C>.",40)
1710 A$=INKEY$:IF A$="" GOTO 1710
1715 IF A$="r" OR A$="R" GOTO 1730
1720 IF A$="c" OR A$="C" GOTO 1780
1725 GOTO 1695
1730 FOR A=0 TO 20
1735 OUT 66,A:OUT 66,A
1740 OUT 97,(INP(97) OR 3)
1745 NEXT A
1750 SOUND 37,0
1755 LINE(105,70)-(166,89)
1760 GOSUB 30000
1765 PRINT FNCEN$("* Review *",40)
1770 FOR K=1 TO 1500:NEXT K
1775 GOTO 1410
1780 GOSUB 30000 '*** <Textpad> ***
1785 PRINT FNCEN$("Our final fold is a REVERSE FOLD",40)
1790 FOR K=1 TO 1500:NEXT K
1795 GOSUB 30000 '*** <Textpad> ***
1800 PRINT FNCEN$("that pulls this portion of our figure",40)
1805 FOR K=1 TO 1500:NEXT K
1810 FOR K=1 TO 15
1815 LINE(166,89)-(105,35),0
1820 LINE-(105,70),0
1825 LINE(118,46)-(161,84),0:PSET(160,83),0
1830 FOR M=1 TO 25:NEXT M
1835 LINE(166,89)-(105,35)
1840 LINE-(105,70)
1845 NEXT K
1850 FOR K=1 TO 750:NEXT K
1855 GOSUB 30000 '*** <Textpad> ***
1860 PRINT FNCEN$("down into this pocket,",40)
1865 FOR K=1 TO 750:NEXT K
1870 FOR A=0 TO 20
1875 OUT 66,A:OUT 66,A
1880 OUT 97,(INP(97) OR 3)
1885 NEXT A
1890 SOUND 37,0
1895 LINE(105,35)-(95,140)
1900 LINE-(105,140)
1905 PAINT(100,130)
1910 LINE(104,35)-(104,145),0
1915 FOR K=1 TO 15
1920 PSET(92,85):DRAW"H5D4L7D2R7D4E5"
1925 PAINT(86,85)
1930 FOR M=1 TO 25:NEXT M
1935 CIRCLE(86,85),7,0
1940 PAINT(86,85),0
1945 NEXT K
1950 FOR K=1 TO 750:NEXT K
1955 GOSUB 30000 '*** <Textpad> ***
1960 PRINT FNCEN$("SO!",40)
1965 FOR K=1 TO 750:NEXT K
1970 FOR A=0 TO 20
1975 OUT 66,A:OUT 66,A
1980 OUT 97,(INP(97) OR 3)
1985 NEXT A
1990 SOUND 37,0
1995 LINE(118,46)-(161,84),0:PSET(160,83),0
2000 LINE(105,35)-(95,140),0
2005 LINE-(105,140),0
2010 PAINT(100,130),0
2015 LINE(105,35)-(105,145)
2020 LINE(105,70)-(105,35),0
2025 LINE-(166,89),0
2030 PAINT(120,60),0
2035 LINE(105,70)-(85,100)
2040 LINE-(166,89)
2045 PAINT(100,90)
2050 LINE(105,145)-(105,70),0
2055 LINE-(166,89)
2060 FOR K=1 TO 750:NEXT K
2065 GOSUB 30000
2070 PRINT FNCEN$("To review that fold, press <R>.",40)
2075 FOR K=1 TO 1000:NEXT K
2080 PRINT FNCEN$("Press <C> to continue.",40)
2085 A$=INKEY$:IF A$="" GOTO 2085
2090 IF A$="r" OR A$="R" GOTO 2105
2095 IF A$="c" OR A$="C" GOTO 2180
2100 GOTO 2065
2105 FOR A=0 TO 20
2110 OUT 66,A:OUT 66,A
2115 OUT 97,(INP(97) OR 3)
2120 NEXT A
2125 SOUND 37,0
2130 LINE(85,70)-(105,100),0,BF
2135 LINE(105,145)-(105,35)
2140 LINE-(230,145)
2145 LINE(105,70)-(166,89)
2150 PAINT(120,60)
2155 LINE(105,70)-(166,89),0
2160 GOSUB 30000
2165 PRINT FNCEN$("* Review *",40)
2170 FOR K=1 TO 1500:NEXT K
2175 GOTO 1780
2180 GOSUB 30000 '*** <Textpad> ***
2185 PRINT FNCEN$("There! We're done. Let's open up.",40)
2190 FOR K=1 TO 1500:NEXT K
2195 GOSUB 30000 '*** Textpad ***
2200 PRINT FNCEN$("One moment, please.",40)
2205 FOR K=1 TO 1500:NEXT K
2210 FOR A=0 TO 20
2215 OUT 66,A:OUT 66,A
2220 OUT 97,(INP(97) OR 3)
2225 NEXT A
2230 SOUND 37,0
2235 CLS
2240 LINE(85,100)-(100,65)
2245 LINE-(165,90)
2250 LINE-(170,95)
2255 LINE-(180,85)
2260 LINE-(235,135)
2265 LINE-(220,135)
2270 LINE-(230,145)
2275 LINE-(205,145)
2280 LINE-(215,155)
2285 LINE-(115,145)
2290 LINE-(115,140)
2295 LINE-(105,140)
2300 LINE-(102,98)
2305 LINE-(85,100)
2310 PAINT(160,100)
2315 LINE(85,100)-(107,75),0
2320 LINE-(165,90),0
2325 LINE(107,75)-(115,140),0
2330 LINE(115,145)-(165,100),0
2335 LINE-(205,145),0
2340 LINE(165,100)-(230,145),0
2345 LINE-(170,95),0
2350 LINE(180,85)-(220,135),0
2355 LINE(85,101)-(110,98),0
2360 FOR K=1 TO 750:NEXT K
2365 GOSUB 30000 '*** <Textpad> ***
2370 PRINT FNCEN$("WATERFOWL",40)
2375 FOR K=1 TO 1500:NEXT K
2380 GOSUB 30000 '*** Textpad ***
2385 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40)
2390 PRINT FNCEN$(" <2> - To repeat WATERFOWL.",40)
2395 PRINT FNCEN$(" <3> - To exit from program.",40)
2400 E$=INPUT$(1)
2405 IF E$<"1" OR E$>"3" GOTO 2400
2410 SEL=VAL(E$)
2415 COMMON SEL
2420 CLS
2425 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
2426 LINE(70,75)-(250,125),3,B
2430 ON SEL GOTO 2435,2440,2445
2435 CHAIN"a:main"
2440 CHAIN"a:waterfow
2445 CHAIN"a:end"
8999 END
30000 LOCATE 1,1
30010 PRINT" "
30020 LOCATE 1,1:RETURN
Directory of PC-SIG Library Disk #0408
Volume in drive A has no label
Directory of A:\
BALLOON BAS 24835 2-21-85 11:59a
BOXES BAS 24058 2-21-85 11:01a
CANDY BAS 12732 2-21-85 10:46a
CHICK BAS 54155 2-21-85 12:18p
CICADA BAS 14494 2-21-85 11:39a
END BAS 188 1-01-80 7:12p
FILES408 TXT 1476 10-21-85 11:56a
HELMET BAS 22321 2-21-85 11:33a
INTRO BAS 33970 2-21-85 9:57a
JET BAS 18721 2-21-85 10:27a
MAIN BAS 1026 2-01-85 12:51p
PENGUIN BAS 26140 2-21-85 11:20a
PIG BAS 40324 2-21-85 11:50a
PUPPY BAS 33386 2-21-85 11:11a
RABBIT BAS 10624 2-21-85 10:17a
SHARE BAS 4879 7-01-85 8:27a
STATS BAS 1120 1-26-85 2:47p
TITLEPG BAS 835 6-06-85 12:15p
WATERFOW BAS 11019 2-21-85 10:32a
19 file(s) 336303 bytes
15360 bytes free