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 d=2500:GOSUB 31000
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 d=750:GOSUB 31000
75 GOSUB 30030         '** 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 30030         '** 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 30030         '** 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 30000         '** Textpad **
580 PRINT FNCEN$("* SAMPLE *",40)
585 d=1000:GOSUB 31000
590 GOSUB 30000         '** Textpad **
595 PRINT FNCEN$("We begin with a sheet of paper",40)
600 d=1500:GOSUB 31000
605 PRINT FNCEN$("from our kit",40)
610 d=750:GOSUB 31000
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 d=750:GOSUB 31000
665 GOSUB 30000         '** Textpad **
670 PRINT FNCEN$("and take this corner",40)
675 d=750:GOSUB 31000
680                             '***end arrow left ***
685                             '*** arrow up ***
690 FOR K=1 TO 15
695 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
700 PAINT(160,184)
705 d=25:GOSUB 31000
710 CIRCLE(160,184),7,0
715 PAINT(160,184),0
720 NEXT K
725                             '***end arrow up ***
730 d=250:GOSUB 31000
735 GOSUB 30000         '** Textpad **
740 PRINT FNCEN$("up to this corner",40)
745 d=750:GOSUB 31000
750                             '*** arrow down ***
755 FOR K=1 TO 15
760 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
765 PAINT(160,16)
770 d=25:GOSUB 31000
775 CIRCLE(160,16),7,0
780 PAINT(160,16),0
785 NEXT K
790                             '***end arrow down ***
795 d=250:GOSUB 31000
800 GOSUB 30000         '** Textpad **
805 PRINT FNCEN$("across this line,",40)
810 d=750:GOSUB 31000
815 FOR H=80 TO 240 STEP 2
820 PSET(H,100),3
825 NEXT H
830 d=250:GOSUB 31000
835 GOSUB 30000         '** Textpad **
840 PRINT FNCEN$("SO!",40)
845 d=750:GOSUB 31000
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 d=750:GOSUB 31000
915 GOSUB 30000         '** Textpad **
920 PRINT FNCEN$("Let's move down to center a bit more.",40)
925 d=1500:GOSUB 31000
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 d=5:GOSUB 31000
955 NEXT Q
960 d=750:GOSUB 31000
965 GOSUB 30000         '** Textpad **
970 PRINT FNCEN$("Next, we fold these corners",40)
975 d=750:GOSUB 31000
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 d=750:GOSUB 31000
1045 GOSUB 30000         '** Textpad **
1050 PRINT FNCEN$("over to this center point",40)
1055 d=750:GOSUB 31000
1060                             '*** arrow up ***
1065 FOR K=1 TO 15
1070 PSET(160,138):DRAW"G5R4D7R2U7R4H5"
1075 PAINT(160,144)
1080 d=25:GOSUB 31000
1085 CIRCLE(160,144),7,0
1090 PAINT(160,144),0
1095 NEXT K
1100                             '***end arrow up ***
1105 d=250:GOSUB 31000
1110 GOSUB 30000         '** Textpad **
1115 PRINT FNCEN$("across these lines,",40)
1120 d=750:GOSUB 31000
1125 FOR V=95 TO 130 STEP 2
1130 PSET(120,V),0
1135 PSET(200,V),0
1140 NEXT V
1145 d=250:GOSUB 31000
1150 GOSUB 30000         '** Textpad **
1155 PRINT FNCEN$("SO!",40)
1160 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=750:GOSUB 31000
1285 GOSUB 30000         '** Textpad **
1290 PRINT FNCEN$("and lastly fold this corner",40)
1295 d=750:GOSUB 31000
1300                             '*** arrow down ***
1305 FOR K=1 TO 15
1310 PSET(160,52):DRAW"E5L4U7L2D7L4F5"
1315 PAINT(160,46)
1320 d=25:GOSUB 31000
1325 CIRCLE(160,46),7,0
1330 PAINT(160,46),0
1335 NEXT K
1340                             '***end arrow down ***
1345 d=250:GOSUB 31000
1350 GOSUB 30000         '** Textpad **
1355 PRINT FNCEN$("down to this center point",40)
1360 d=750:GOSUB 31000
1365                             '*** arrow up ***
1370 FOR K=1 TO 15
1375 PSET(160,138):DRAW"G5R4D7R2U7R4H5"
1380 PAINT(160,144)
1385 d=25:GOSUB 31000
1390 CIRCLE(160,144),7,0
1395 PAINT(160,144),0
1400 NEXT K
1405                             '***end arrow up ***
1410 d=250:GOSUB 31000
1415 GOSUB 30000         '** Textpad **
1420 PRINT FNCEN$("across this line,",40)
1425 d=750:GOSUB 31000
1430 FOR H=120 TO 200 STEP 2
1435 PSET(H,95),0
1440 NEXT H
1445 d=750:GOSUB 31000
1450 GOSUB 30000   '*** <Textpad> ***
1455 PRINT FNCEN$("SO!",40)
1460 d=750:GOSUB 31000
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 d=250:GOSUB 31000
1530 GOSUB 30000         '** Textpad **
1535 PRINT FNCEN$("There!  That does it!",40)
1540 d=1500:GOSUB 31000
1545 GOSUB 30000         '** Textpad **
1550 PRINT FNCEN$("What do we have?",40)
1555 d=1500:GOSUB 31000
1560 GOSUB 30000         '** Textpad **
1565 PRINT FNCEN$("Not much of anything.",40)
1570 d=1500:GOSUB 31000
1575 GOSUB 30000         '** Textpad **
1580 PRINT FNCEN$("Let's open up.",40)
1585 d=1500:GOSUB 31000
1590 GOSUB 30000   '*** Textpad ***
1595 PRINT FNCEN$("One moment, please.",40)
1600 d=1500:GOSUB 31000
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,,,.5
1735 CIRCLE(175,100),5,0,,,.5
1740 CIRCLE(145,100),0,0
1745 CIRCLE(175,100),0,0
1750 d=250:GOSUB 31000
1755 GOSUB 30000         '** Textpad **
1760 PRINT FNCEN$("Well, well!  What do you know!",40)
1765 d=1500:GOSUB 31000
1770 GOSUB 30000         '** Textpad **
1775 PRINT FNCEN$("A little creature!",40)
1780 d=1500:GOSUB 31000
1785 GOSUB 30000         '** Textpad **
1790 PRINT FNCEN$("With only four folds!",40)
1795 d=1500:GOSUB 31000
1800 GOSUB 30000         '** Textpad **
1805 PRINT FNCEN$("What do you suppose we could make",40)
1810 d=1500:GOSUB 31000
1815 PRINT FNCEN$("with five folds?",40)
1820 d=1500:GOSUB 31000
1825 GOSUB 30000         '** Textpad **
1830 PRINT FNCEN$("Six folds?",40)
1835 d=1000:GOSUB 31000
1840 PRINT FNCEN$("Ten!",40)
1845 d=750:GOSUB 31000
1850 PRINT FNCEN$("Twenty!",40)
1855 d=750:GOSUB 31000
1860 GOSUB 30000         '** Textpad **
1865 PRINT FNCEN$("Whoa, there!",40)
1870 d=1500:GOSUB 31000
1875 GOSUB 30000         '** Textpad **
1880 PRINT FNCEN$("Let's not get carried away!",40)
1885 d=1500:GOSUB 31000
1890 GOSUB 30000         '** Textpad **
1895 PRINT FNCEN$("All in good time.",40)
1900 d=1500:GOSUB 31000
1905 GOSUB 30000         '** Textpad **
1910 PRINT FNCEN$("First, here are some folding hints.",40)
1915 d=1500:GOSUB 31000
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 30030   '*** 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 30030   '*** 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 30030   '*** 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 30030   '*** 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 d=750:GOSUB 31000
2756 GOSUB 30000   '*** <Textpad> ***
2758 PRINT FNCEN$("* DEMONSTRATION *",40)
2759 d=1500:GOSUB 31000
2760 GOSUB 30000   '*** <Textpad> ***
2765 PRINT FNCEN$("This opening figure signifies",40)
2770 d=1500:GOSUB 31000
2775 PRINT FNCEN$("that you've already executed",40)
2780 d=1500:GOSUB 31000
2785 PRINT FNCEN$("the following four folds:",40)
2790 d=1500:GOSUB 31000
2795 GOSUB 30000   '*** <Textpad> ***
2800 PRINT FNCEN$("Fold 1",40)
2805 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=250:GOSUB 31000
3000 GOSUB 30000   '*** <Textpad> ***
3005 PRINT FNCEN$("Fold 2",40)
3010 d=750:GOSUB 31000
3015 LINE(81,100)-(239,100),0
3020 FOR V=30 TO 170 STEP 2
3025 PSET(160,V)
3030 NEXT V
3035 d=750:GOSUB 31000
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 d=250:GOSUB 31000
3205 GOSUB 30000   '*** <Textpad> ***
3210 PRINT FNCEN$("Fold 3",40)
3215 d=750:GOSUB 31000
3220 LINE(160,31)-(160,169),0
3225 LINE(120,135)-(200,65)
3230 d=750:GOSUB 31000
3235 FOR Q=0 TO 40
3240 LINE(200,65)-(160+Q,30+.88*Q)
3245 LINE-(80+Q,100+.88*Q)
3250 LINE-(120,135)
3255 LINE(200,65)-(160+Q,30+.88*Q),0
3260 LINE-(80+Q,100+.88*Q),0
3265 LINE-(120,135),0
3270 NEXT Q
3275 FOR Q=0 TO 40
3280 LINE(200,65)-(200+Q,65+.88*Q)
3285 LINE-(120+Q,135+.88*Q)
3290 LINE-(120,135),0
3295 LINE(200,65)-(199+Q,65+.88*Q)
3300 LINE-(119+Q,135+.88*Q)
3305 LINE-(120,135),0
3310 NEXT Q
3315 FOR Q=0 TO 40
3320 LINE(200,65)-(240-Q,100-.88*Q),0
3325 LINE-(160-Q,170-.88*Q),0
3330 LINE-(120,135),0
3335 LINE(200,65)-(241-Q,100-.88*Q),0
3340 LINE-(161-Q,170-.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-.88*Q)
3385 LINE-(120-Q,135-.88*Q)
3390 LINE-(120,135)
3395 LINE(200,65)-(200-Q,65-.88*Q),0
3400 LINE-(120-Q,135-.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 d=250:GOSUB 31000
3440 GOSUB 30000   '*** <Textpad> ***
3445 PRINT FNCEN$("Fold 4",40)
3450 d=750:GOSUB 31000
3455 LINE(120,135)-(200,65),0
3460 PSET(120,135):PSET(200,65)
3465 LINE(120,65)-(200,135)
3470 d=750:GOSUB 31000
3475 FOR Q=0 TO 40
3480 LINE(120,65)-(160-Q,30+.88*Q)
3485 LINE-(240-Q,100+.88*Q)
3490 LINE-(200,135)
3495 LINE(120,65)-(160-Q,30+.88*Q),0
3500 LINE-(240-Q,100+.88*Q),0
3505 LINE-(200,135),0
3510 NEXT Q
3515 FOR Q=0 TO 40
3520 LINE(120,65)-(120-Q,65+.88*Q)
3525 LINE-(200-Q,135+.88*Q)
3530 LINE-(200,135),0
3535 LINE(120,65)-(121-Q,65+.88*Q)
3540 LINE-(201-Q,135+.88*Q)
3545 LINE-(200,135),0
3550 NEXT Q
3555 FOR Q=0 TO 40
3560 LINE(120,65)-(80+Q,100-.88*Q),0
3565 LINE-(160+Q,170-.88*Q),0
3570 LINE-(200,135),0
3575 LINE(120,65)-(79+Q,100-.88*Q),0
3580 LINE-(159+Q,170-.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-.88*Q)
3625 LINE-(200+Q,135-.88*Q)
3630 LINE-(200,135)
3635 LINE(120,65)-(120+Q,65-.88*Q),0
3640 LINE-(200+Q,135-.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 d=1500:GOSUB 31000
3680 GOSUB 30000   '*** <Textpad> ***
3685 PRINT FNCEN$("And here are the creases",40)
3690 d=1500:GOSUB 31000
3695 PRINT FNCEN$("those folds generated.",40)
3700 d=1500:GOSUB 31000
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 d=1500:GOSUB 31000
3745 GOSUB 30000   '*** <Textpad> ***
3750 PRINT FNCEN$("Here's another opening figure.",40)
3755 d=750:GOSUB 31000
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 d=750:GOSUB 31000
3815 GOSUB 30000   '*** <Textpad> ***
3820 PRINT FNCEN$("We know how to generate that crease.",40)
3825 d=1500:GOSUB 31000
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 FOR H=105 TO 215 STEP 2
3860 PSET(H,70)
3865 PSET(H,120)
3870 NEXT H
3875 d=750:GOSUB 31000
3880 GOSUB 30000   '*** <Textpad> ***
3885 PRINT FNCEN$("Fold 2",40)
3890 d=750:GOSUB 31000
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 d=750:GOSUB 31000
3965 GOSUB 30000   '*** <Textpad> ***
3970 PRINT FNCEN$("Fold 3",40)
3975 d=750:GOSUB 31000
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 d=750:GOSUB 31000
4055 GOSUB 30000   '*** <Textpad> ***
4060 PRINT FNCEN$("Would you like to review those folds?",40)
4065 d=1500:GOSUB 31000
4070 GOSUB 30000
4075 PRINT FNCEN$("If so, press <R>.",40)
4080 d=1000:GOSUB 31000
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 30000
4165 PRINT FNCEN$("* Review *",40)
4170 d=1500:GOSUB 31000
4175 GOTO 3855
4180 GOSUB 30000   '*** <Textpad> ***
4185 PRINT FNCEN$("Let's go on to our next hint.",40)
4190 d=1500:GOSUB 31000
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 30030   '*** <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 30000         '** Textpad **
4390 PRINT FNCEN$("* DEMONSTRATION *",40)
4395 d=750:GOSUB 31000
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 d=750:GOSUB 31000
4490 GOSUB 30000         '** Textpad **
4495 PRINT FNCEN$("Here's an opening figure",40)
4500 d=1000:GOSUB 31000
4505 PRINT FNCEN$("we'll be running into quite frequently.",40)
4510 d=1500:GOSUB 31000
4515 GOSUB 30000         '** Textpad **
4520 PRINT FNCEN$("It's called",40)
4525 d=1000:GOSUB 31000
4530 GOSUB 30000         '** Textpad **
4535 PRINT FNCEN$("KITE BASE",40)
4540 d=1000:GOSUB 31000
4545 GOSUB 30000         '** Textpad **
4550 PRINT FNCEN$("Fold 1 generates the center crease,",40)
4555 d=1500:GOSUB 31000
4560 GOSUB 30030   '*** <Textpad> ***
4565 PRINT FNCEN$("and here's Fold 2",40)
4570 d=1500:GOSUB 31000
4575 FOR Q=0 TO 41
4580 LINE(114,70)-(80+Q,100-.37*Q)
4585 LINE-(160,170)
4590 LINE(114,70)-(80+Q,100-.37*Q),0
4595 LINE-(160,170),0
4600 NEXT Q
4605 FOR Q=0 TO 39
4610 LINE(114,70)-(122+Q,85-.38*Q)
4615 LINE-(160,170)
4620 LINE(114,70)-(121+Q,85-.38*Q)
4625 LINE-(160,170)
4630 NEXT Q
4635 LINE(161,70)-(161,169),0
4640 d=750:GOSUB 31000
4645 GOSUB 30030   '*** <Textpad> ***
4650 PRINT FNCEN$("and Fold 3",40)
4655 d=1000:GOSUB 31000
4660 FOR Q=0 TO 41
4665 LINE(206,70)-(240-Q,100-.37*Q)
4670 LINE-(160,170)
4675 LINE(206,70)-(240-Q,100-.37*Q),0
4680 LINE-(160,170),0
4685 NEXT Q
4690 FOR Q=0 TO 39
4695 LINE(206,70)-(198-Q,85-.38*Q)
4700 LINE-(160,170)
4705 LINE(206,70)-(199-Q,85-.38*Q)
4710 LINE-(160,170)
4715 NEXT Q
4720 LINE(160,70)-(160,170),0
4725 d=750:GOSUB 31000
4730 GOSUB 30000         '** Textpad **
4735 PRINT FNCEN$("KITE BASE",40)
4740 d=1500:GOSUB 31000
4745 GOSUB 30000         '** Textpad **
4750 PRINT FNCEN$("Let's go on.",40)
4755 d=1500:GOSUB 31000
4760 GOSUB 30000         '** Textpad **
4765 PRINT FNCEN$("For this demonstration,",40)
4770 d=1500:GOSUB 31000
4775 GOSUB 30000         '** Textpad **
4780 PRINT FNCEN$("we will FOLD and BACKFOLD this corner",40)
4785 d=750:GOSUB 31000
4790                             '*** arrow up ***
4795 FOR K=1 TO 15
4800 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
4805 PAINT(160,184)
4810 d=25:GOSUB 31000
4815 CIRCLE(160,184),7,0
4820 PAINT(160,184),0
4825 NEXT K
4830                             '***end arrow up ***
4835 d=250:GOSUB 31000
4840 GOSUB 30000         '** Textpad **
4845 PRINT FNCEN$("up to this corner",40)
4850 d=750:GOSUB 31000
4855                             '*** arrow down ***
4860 FOR K=1 TO 15
4865 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
4870 PAINT(160,16)
4875 d=25:GOSUB 31000
4880 CIRCLE(160,16),7,0
4885 PAINT(160,16),0
4890 NEXT K
4895                             '***end arrow down ***
4900 d=250:GOSUB 31000
4905 GOSUB 30000         '** Textpad **
4910 PRINT FNCEN$("across this line,",40)
4915 d=750:GOSUB 31000
4920 FOR K=1 TO 25
4925 LINE(128,100)-(192,100),0
4930 d=25:GOSUB 31000
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 d=750:GOSUB 31000
4965 GOSUB 30000         '** Textpad **
4970 PRINT FNCEN$("SO!",40)
4975 d=750:GOSUB 31000
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 30000         '** Textpad **
5090 PRINT FNCEN$("Use your thumbnail",40)
5095 d=1500:GOSUB 31000
5100 GOSUB 30000         '** Textpad **
5105 PRINT FNCEN$("or the straightedge in your kit",40)
5110 d=1500:GOSUB 31000
5115 GOSUB 30000         '** Textpad **
5120 PRINT FNCEN$("to get a good, sharp crease",40)
5125 d=1500:GOSUB 31000
5130 GOSUB 30000         '** Textpad **
5135 PRINT FNCEN$("along this edge,",40)
5140 d=750:GOSUB 31000
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 d=25:GOSUB 31000
5175 LINE(128,100)-(192,100),3
5180 NEXT K
5185 d=750:GOSUB 31000
5190 GOSUB 30000         '** Textpad **
5195 PRINT FNCEN$("creasing once,",40)
5200 d=250:GOSUB 31000
5205 FOR P=192 TO 128 STEP -2
5210 PSET(P,101),1
5215 PSET(P,102),1
5220 d=10:GOSUB 31000
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 d=500:GOSUB 31000
5255 GOSUB 30000         '** Textpad **
5260 PRINT FNCEN$("creasing twice,",40)
5265 d=250:GOSUB 31000
5270 FOR P=128 TO 192 STEP 2
5275 PSET(P,101),1
5280 PSET(P,102),1
5285 d=10:GOSUB 31000
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 d=750:GOSUB 31000
5330 GOSUB 30000         '** Textpad **
5335 PRINT FNCEN$("and back we go down again!",40)
5340 d=1500:GOSUB 31000
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 d=250:GOSUB 31000
5530 GOSUB 30000         '** Textpad **
5535 PRINT FNCEN$("and BACKFOLD!",40)
5540 d=750:GOSUB 31000
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 d=750:GOSUB 31000
5695 GOSUB 30000         '** Textpad **
5700 PRINT FNCEN$("and crease once,",40)
5705 d=750:GOSUB 31000
5710 FOR P=192 TO 128 STEP -2
5715 PSET(P,101),1
5720 PSET(P,102),1
5725 d=10:GOSUB 31000
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 d=750:GOSUB 31000
5760 GOSUB 30000         '** Textpad **
5765 PRINT FNCEN$("and crease twice,",40)
5770 d=750:GOSUB 31000
5775 FOR P=128 TO 192 STEP 2
5780 PSET(P,101),1
5785 PSET(P,102),1
5790 d=10:GOSUB 31000
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 d=750:GOSUB 31000
5825 GOSUB 30000         '** Textpad **
5830 PRINT FNCEN$("and return!",40)
5835 d=250:GOSUB 31000
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 30000         '** Textpad **
6010 PRINT FNCEN$("There!",40)
6015 d=1500:GOSUB 31000
6020 GOSUB 30000         '** Textpad **
6025 PRINT FNCEN$("FOLDing and BACKFOLDing",40)
6030 d=1500:GOSUB 31000
6035 GOSUB 30000         '** Textpad **
6040 PRINT FNCEN$("and the judicious use of our thumbnail",40)
6045 d=1500:GOSUB 31000
6050 GOSUB 30000         '** Textpad **
6055 PRINT FNCEN$("(or our straightedge)",40)
6060 d=1500:GOSUB 31000
6065 GOSUB 30000         '** Textpad **
6070 PRINT FNCEN$("gave us a crease here",40)
6075 d=250:GOSUB 31000
6080 FOR K=1 TO 25
6085 LINE(128,99)-(192,99),0
6090 d=25:GOSUB 31000
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 d=250:GOSUB 31000
6125 GOSUB 30000         '** Textpad **
6130 PRINT FNCEN$("that's nice and sharp and supple.",40)
6135 d=1500:GOSUB 31000
6140 GOSUB 30000         '** Textpad **
6145 PRINT FNCEN$("It's a technique we'll use fairly often.",40)
6150 d=1500:GOSUB 31000
6155 GOSUB 30000
6160 PRINT FNCEN$("To review that demo, press <R>.",40)
6165 d=1000:GOSUB 31000
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 30000
6225 PRINT FNCEN$("* Review *",40)
6230 d=1500:GOSUB 31000
6235 GOTO 4760
6240 GOSUB 30000   '*** <Textpad> ***
6245 PRINT FNCEN$("Let's go on to our final folding hint.",40)
6250 d=1500:GOSUB 31000
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 30030   '*** 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 30000   '*** <Textpad> ***
6475 PRINT FNCEN$("MOUNTAIN FOLD",40)
6480 LINE(105,45)-(215,145),3,BF
6485 d=1000:GOSUB 31000
6490 GOSUB 30000         '** Textpad **
6495 PRINT FNCEN$("Here's our fold line,",40)
6500 d=750:GOSUB 31000
6505 FOR H=105 TO 215 STEP 2
6510 PSET(H,95),2
6515 NEXT H
6520 d=750:GOSUB 31000
6525 GOSUB 30000   '*** <Textpad> ***
6530 PRINT FNCEN$("and here's our MOUNTAIN FOLD,",40)
6535 d=1500:GOSUB 31000
6540 GOSUB 30000   '*** <Textpad> ***
6545 PRINT FNCEN$("folding downwards in back,",40)
6550 d=1500:GOSUB 31000
6555 GOSUB 30000   '*** <Textpad> ***
6560 PRINT FNCEN$("SO!",40)
6565 d=750:GOSUB 31000
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 d=750:GOSUB 31000
6655 FOR Q=0 TO 50
6660 LINE(105,95)-(100+.1*Q,45+Q),0
6665 LINE-(210+.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-.11*Q,95+Q)-(105+.11*Q,95+Q)
6695 LINE(105-.11*Q,95+Q)-(105+.11*Q,95+Q),0
6700 PSET(105-.11*Q,95+Q)
6705 PSET(105,95),2
6710 NEXT Q
6715 LINE(100,140)-(110,140)
6720 d=750:GOSUB 31000
6725 GOSUB 30000   '*** <Textpad> ***
6730 PRINT FNCEN$("MOUNTAIN FOLD",40)
6735 d=1500:GOSUB 31000
6740 GOSUB 30000
6745 PRINT FNCEN$("To review MOUNTAIN FOLD, press <R>.",40)
6750 d=1000:GOSUB 31000
6755 PRINT FNCEN$("To continue, press <C>.",40)
6760 A$=INKEY$:IF A$="" GOTO 6760
6765 IF A$="r" OR A$="R" GOTO 6780
6770 IF A$="c" OR A$="C" GOTO 6800
6775 GOTO 6740
6780 GOSUB 30000
6785 PRINT FNCEN$("* Review *",40)
6790 d=1000:GOSUB 31000
6795 GOTO 6440
6800 GOSUB 30000   '*** <Textpad> ***
6805 PRINT FNCEN$("Let's now examine",40)
6810 d=1500:GOSUB 31000
6815 PRINT FNCEN$("VALLEY FOLD.",40)
6820 d=1500:GOSUB 31000
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 d=1000:GOSUB 31000
6865 GOSUB 30000         '** Textpad **
6870 PRINT FNCEN$("Here's our fold line,",40)
6875 d=750:GOSUB 31000
6880 LINE(105,95)-(215,95),1
6885 d=750:GOSUB 31000
6890 GOSUB 30000   '*** <Textpad> ***
6895 PRINT FNCEN$("and here's our VALLEY FOLD,",40)
6900 d=1500:GOSUB 31000
6905 GOSUB 30000   '*** <Textpad> ***
6910 PRINT FNCEN$("folding upwards in front,",40)
6915 d=1500:GOSUB 31000
6920 GOSUB 30000   '*** <Textpad> ***
6925 PRINT FNCEN$("SO!",40)
6930 d=750:GOSUB 31000
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 d=750:GOSUB 31000
7020 LINE(100,45)-(220,50),0,BF
7025 FOR Q=0 TO 50
7030 LINE(105,95)-(110-.1*Q,145-Q),0
7035 LINE-(220-.1*Q,145-Q),0
7040 NEXT Q
7045 FOR Q=0 TO 50
7050 LINE(105+.11*Q,95-Q)-(215+.11*Q,95-Q),0
7055 PSET(105+.11*Q,95-Q)
7060 PSET(215+.11*Q,95-Q)
7065 LINE(105,95)-(215,95),1
7070 NEXT Q
7075 LINE(110,45)-(220,45)
7080 d=750:GOSUB 31000
7085 GOSUB 30000   '*** <Textpad> ***
7090 PRINT FNCEN$("VALLEY FOLD",40)
7095 d=1500:GOSUB 31000
7100 GOSUB 30000
7105 PRINT FNCEN$("To review VALLEY FOLD, press <R>.",40)
7110 d=1000:GOSUB 31000
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 30000
7180 PRINT FNCEN$("* Review *",40)
7185 d=1000:GOSUB 31000
7190 GOSUB 30000   '*** <Textpad> ***
7195 PRINT FNCEN$("VALLEY FOLD",40)
7200 d=1500:GOSUB 31000
7205 GOTO 6865
7210 GOSUB 30000         '** Textpad **
7215 PRINT FNCEN$("Let's look at those folds side by side.",40)
7220 d=1500:GOSUB 31000
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 d=1500:GOSUB 31000
7330 GOSUB 30000         '** Textpad **
7335 PRINT FNCEN$("Take a good look.  I'll wait. ",40)
7340 d=1500:GOSUB 31000
7345 GOSUB 30000   '*** 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 30000   '*** <Textpad> ***
7375 PRINT FNCEN$("And that's it for INTRODUCTION!",40)
7380 d=1500:GOSUB 31000
7385 GOSUB 30000                '*** 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"main"
7450 CHAIN"intro
7455 CHAIN"end"
8999 END
9900 GOSUB 30000   '*** <Textpad> ***
9910 PRINT FNCEN$("N",40)
9920 d=1500:GOSUB 31000
9930 DELETE 9900-9930
30000 LOCATE 1,1
30010 PRINT"                                                                                                                        "
30020 LOCATE 1,1:RETURN
30030 LOCATE 1,1
30040 PRINT"                                        "
30050 LOCATE 1,1:RETURN
31000 REM *** Delay procedure     added by Maarten van Gelder
31010 FOR I=1 TO D
31020   FOR J=1 TO 1:NEXT J    ' Delay factor: change for actual CPU
31030 NEXT I
31040 RETURN