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 D=2500:GOSUB 31000
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 D=500:GOSUB 31000
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 D=500:GOSUB 31000
250 LOCATE 12,1        '***Textpad***
255 PRINT FNCEN$("Hey, what was THAT?!!",40)
260 D=1500:GOSUB 31000
265 CLS
270 LOCATE 12,1
275 PRINT FNCEN$("Was it a bird?",40)
280 D=1500:GOSUB 31000
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 D=500:GOSUB 31000
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 D=750:GOSUB 31000
485 LOCATE 12,1        '***Textpad***
490 PRINT FNCEN$("Is it Superman?",40)
495 D=1500:GOSUB 31000
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 D=500:GOSUB 31000
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 D=1500:GOSUB 31000
705 CLS
710 LOCATE 12,1
715 PRINT FNCEN$("How would YOU like to make yourself",40)
720 D=250:GOSUB 31000
725 PRINT FNCEN$("JET PLANE!",40)
730 D=1500:GOSUB 31000
735 CLS
740 LOCATE 12,1
745 PRINT FNCEN$("Let's just do that.",40)
750 D=1500:GOSUB 31000
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 30000   '*** 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 30000   '*** 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 30040         '***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 D=750:GOSUB 31000
1105 GOSUB 30040         '***Textpad***
1110 PRINT FNCEN$("Are you set?  If you're not, I'll wait.",40)
1115 D=1500:GOSUB 31000
1120 GOSUB 30040         '***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 30040         '***Textpad***
1150 PRINT FNCEN$("We first fold this corner on the right",40)
1155 D=750:GOSUB 31000
1160 FOR K=1 TO 15
1165 PSET(249,100):DRAW"E5D4R7D2L7D4H5"
1170 PAINT(255,100)
1175 D=25:GOSUB 31000
1180 CIRCLE(255,100),7,0
1185 PAINT(255,100),0
1190 NEXT K
1195 D=750:GOSUB 31000
1200 GOSUB 30040         '***Textpad***
1205 PRINT FNCEN$("over to this corner on the left",40)
1210 D=750:GOSUB 31000
1215 FOR K=1 TO 15
1220 PSET(71,100):DRAW"H5D4L7D2R7D4E5"
1225 PAINT(65,100)
1230 D=25:GOSUB 31000
1235 CIRCLE(65,100),7,0
1240 PAINT(65,100),0
1245 NEXT K
1250 D=750:GOSUB 31000
1255 GOSUB 30040         '***Textpad***
1260 PRINT FNCEN$("across this line,",40)
1265 D=750:GOSUB 31000
1270 FOR A=30 TO 170 STEP 2
1275 PSET (160,A)
1280 D=5:GOSUB 31000
1285 NEXT A
1290 D=750:GOSUB 31000
1295 GOSUB 30040         '***Textpad***
1300 PRINT FNCEN$("SO!",40)
1305 D=750:GOSUB 31000
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 D=750:GOSUB 31000
1365 GOSUB 30040         '***Textpad***
1370 PRINT FNCEN$("Now, using your thumbnail",40)
1375 D=1500:GOSUB 31000
1380 GOSUB 30040         '***Textpad***
1385 PRINT FNCEN$("or your straightedge,",40)
1390 D=1500:GOSUB 31000
1395 GOSUB 30040         '***Textpad***
1400 PRINT FNCEN$("make a sharp crease along this edge,",40)
1405 D=750:GOSUB 31000
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 D=25:GOSUB 31000
1440 LINE(160,30)-(160,170),0
1445 NEXT K
1450                                   '///END FLASHLINE///
1455 PAINT(174,100),0
1460 GOSUB 30040         '***Textpad***
1465 PRINT FNCEN$("creasing once",40)
1470 D=500:GOSUB 31000
1475 PSET(160,25):DRAW"E5 L4 U7 L2 D7 L4 F5"    '///ARROW DOWN///
1480 PAINT(160,19)
1485                                   '///CREASE DOWN///
1490 D=500:GOSUB 31000
1495 FOR P=30 TO 170 STEP 2
1500 PSET(161,P),1
1505 PSET(162,P),1
1510 D=10:GOSUB 31000
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 D=500:GOSUB 31000
1560 GOSUB 30040         '***Textpad***
1565 PRINT FNCEN$("and creasing twice",40)
1570 D=500:GOSUB 31000
1575 PSET(160,175):DRAW"G5 R4 D7 R2 U7 R4 H5"  '///ARROW UP///
1580 PAINT(160,181)
1585                                  '///CREASE UP///
1590 D=500:GOSUB 31000
1595 FOR P=170 TO 30 STEP -2
1600 PSET(161,P),1
1605 PSET(162,P),1
1610 D=10:GOSUB 31000
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 D=500:GOSUB 31000
1660 GOSUB 30040         '***Textpad***
1665 PRINT FNCEN$("to make sure the crease is sharp,",40)
1670 D=1500:GOSUB 31000
1675 GOSUB 30040         '***Textpad***
1680 PRINT FNCEN$("and return!",40)
1685 D=750:GOSUB 31000
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 D=750:GOSUB 31000
1770 GOSUB 30040   '*** 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 30040         '***Textpad***
1800 PRINT FNCEN$("Our next folds take these corners",40)
1805 D=750:GOSUB 31000
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 D=750:GOSUB 31000
1865 GOSUB 30040         '***Textpad***
1870 PRINT FNCEN$("up to this point",40)
1875 D=750:GOSUB 31000
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 D=25:GOSUB 31000
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 D=750:GOSUB 31000
1945 GOSUB 30040         '***Textpad***
1950 PRINT FNCEN$("across these lines,",40)
1955 D=750:GOSUB 31000
1960 LINE(206,70)-(160,170)
1965 LINE-(114,70)
1970 D=750:GOSUB 31000
1975 GOSUB 30040         '***Textpad***
1980 PRINT FNCEN$("SO!",40)
1985 D=750:GOSUB 31000
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 D=750:GOSUB 31000
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 D=750:GOSUB 31000
2105 GOSUB 30040         '***Textpad***
2110 PRINT FNCEN$("There!  Do you remember this figure?",40)
2115 D=1500:GOSUB 31000
2120 GOSUB 30040         '***Textpad***
2125 PRINT FNCEN$("KITE BASE",40)
2130 D=1500:GOSUB 31000
2135 GOSUB 30040         '***Textpad***
2140 PRINT FNCEN$("We'll be seeing KITE often.",40)
2145 D=1500:GOSUB 31000
2150 GOSUB 30040   '*** 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 30040         '***Textpad***
2180 PRINT FNCEN$("We next fold this corner",40)
2185 D=750:GOSUB 31000
2190 FOR K=1 TO 15
2195 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
2200 PAINT(160,184)
2205 D=25:GOSUB 31000
2210 CIRCLE(160,184),7,0
2215 PAINT(160,184),0
2220 NEXT K
2225 D=750:GOSUB 31000
2230 GOSUB 30040         '***Textpad***
2235 PRINT FNCEN$("up to this point",40)
2240 D=750:GOSUB 31000
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 D=25:GOSUB 31000
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 D=750:GOSUB 31000
2300 GOSUB 30040
2305 PRINT FNCEN$("over this line,",40)
2310 D=750:GOSUB 31000
2315 FOR K=1 TO 15
2320 LINE(140,125)-(180,125),0
2325 D=25:GOSUB 31000
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 D=750:GOSUB 31000
2360 GOSUB 30040       '***Textpad***
2365 PRINT FNCEN$("SO!",40)
2370 D=750:GOSUB 31000
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 D=750:GOSUB 31000
2535 GOSUB 30040       '***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 30040       '***Textpad***
2565 PRINT FNCEN$("Our next step folds this corner",40)
2570 D=750:GOSUB 31000
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 D=750:GOSUB 31000
2615 GOSUB 30040       '***Textpad***
2620 PRINT FNCEN$("down to this point",40)
2625 D=750:GOSUB 31000
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 D=25:GOSUB 31000
2655 CIRCLE(160,140),5,0
2660 LINE(158,140)-(162,140),0
2665 LINE(160,138)-(160,142),0
2670 NEXT K
2675 D=750:GOSUB 31000
2680 GOSUB 30040       '***Textpad***
2685 PRINT FNCEN$("with the fold falling along this line",40)
2690 D=750:GOSUB 31000
2695 FOR K=1 TO 15
2700 LINE(147,110)-(173,110),0
2705 D=25:GOSUB 31000
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 D=750:GOSUB 31000
2740 GOSUB 30040       '***Textpad***
2745 PRINT FNCEN$("SO!",40)
2750 D=750:GOSUB 31000
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 D=750:GOSUB 31000
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 D=750:GOSUB 31000
2920 GOSUB 30040       '***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 30040       '***Textpad***
2950 PRINT FNCEN$("And now we fold this right side",40)
2955 D=750:GOSUB 31000
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 D=25:GOSUB 31000
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 D=750:GOSUB 31000
3040 GOSUB 30040       '***Textpad***
3045 PRINT FNCEN$("over to the left on the hidden side,",40)
3050 D=750:GOSUB 31000
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 D=25:GOSUB 31000
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 D=750:GOSUB 31000
3135 GOSUB 30040       '***Textpad***
3140 PRINT FNCEN$("SO!",40)
3145 D=750:GOSUB 31000
3150 FOR Q=0 TO 46
3155 LINE(160,30)-(206-Q,70)
3160 LINE-(180-.435*Q,126)
3165 LINE-(167-.152*Q,126)
3170 LINE-(160,140)
3175 LINE(160,30)-(206-Q,70),0
3180 LINE-(180-.435*Q,126),0
3185 LINE-(167-.152*Q,126),0
3190 LINE-(160,140),0
3195 LINE(180-.435*Q,126)-(173-.28*Q,110),0
3200 LINE-(167-.152*Q,126),0
3205 LINE(180-.435*Q,126)-(173-.28*Q,110)
3210 LINE-(167-.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-.435*Q,126),1
3245 LINE-(160-.152*Q,126),1
3250 LINE-(160,140),1
3255 LINE(160,30)-(160-Q,69),0
3260 LINE-(160-.435*Q,126),3
3265 LINE-(160-.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 D=250:GOSUB 31000
3330 GOSUB 30040
3335 PRINT FNCEN$("Great!",40)
3340 D=1500:GOSUB 31000
3345 GOSUB 30040
3350 PRINT FNCEN$("Now, we'll position ourselves",40)
3355 D=1500:GOSUB 31000
3360 GOSUB 30040
3365 PRINT FNCEN$("more comfortably",40)
3370 D=1500:GOSUB 31000
3375 GOSUB 30040
3380 PRINT FNCEN$("for the final folds coming up.",40)
3385 D=1500:GOSUB 31000
3390 LINE(141,126)-(147,110),0
3395 LINE(141,126)-(147,110),0
3400 GOSUB 30040
3405 PRINT FNCEN$("One moment, please.",40)
3410 D=1500:GOSUB 31000
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 D=250:GOSUB 31000
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 D=750:GOSUB 31000
3510 GOSUB 30040
3515 PRINT FNCEN$("For our final folds,",40)
3520 D=1500:GOSUB 31000
3525 GOSUB 30040
3530 PRINT FNCEN$("we fold our wings",40)
3535 D=1500:GOSUB 31000
3540 GOSUB 30040
3545 PRINT FNCEN$("down over this line",40)
3550 D=750:GOSUB 31000
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 D=750:GOSUB 31000
3590 GOSUB 30040   '*** <Textpad> ***
3595 PRINT FNCEN$("* Hint *",40)
3600 D=750:GOSUB 31000
3605 PRINT FNCEN$("A straightedge would be helpful here.",40)
3610 D=1500:GOSUB 31000
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 30040   '*** 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 30040
3750 PRINT FNCEN$("in front",40)
3755 D=750:GOSUB 31000
3760 FOR Q=0 TO 60
3765 LINE(249,110)-(180,50+Q),0
3770 LINE-(80,85+.417*Q),0
3775 LINE-(80,109),0
3780 LINE(249,110)-(180,50+Q)
3785 LINE-(80,85+.417*Q)
3790 LINE-(80,109)
3795 LINE(80,85+.42*Q)-(110,95+.25*Q),0
3800 LINE-(80,109),0
3805 LINE(110,95+.25*Q)-(110,110),0
3810 LINE(80,85+.42*Q)-(110,95+.25*Q)
3815 LINE-(80,109)
3820 LINE(110,95+.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+.417*Q),0
3845 LINE-(180,110+Q),0
3850 LINE-(249,110),0
3855 LINE(80,110)-(80,110+.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 D=750:GOSUB 31000
3890 GOSUB 30040   '*** 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 30040   '*** <Textpad> ***
3920 PRINT FNCEN$("and in back.",40)
3925 D=750:GOSUB 31000
3930 FOR Q=0 TO 60
3935 LINE(249,110)-(180,50+Q),0
3940 LINE-(79,85+.417*Q),0
3945 LINE-(79,110),0
3950 NEXT Q
3955 FOR Q=0 TO 60
3960 LINE(80,110)-(80,110+.417*Q),1
3965 LINE-(180,110+Q),1
3970 LINE-(249,110),1
3975 LINE(80,110)-(80,110+.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 D=750:GOSUB 31000
4010 GOSUB 30040   '*** 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 30040
4040 PRINT FNCEN$("Mission accomplished!",40)
4045 LINE(75,95)-(95,100),0
4050 LINE(180,50)-(180,66),0
4055 D=1000:GOSUB 31000
4060 GOSUB 30040
4065 PRINT FNCEN$("Looks great!",40)
4070 D=1000:GOSUB 31000
4075 GOSUB 30040   '*** <Textpad> ***
4080 PRINT FNCEN$("We learned a lot.",40)
4085 D=1000:GOSUB 31000
4090 GOSUB 30040
4095 PRINT FNCEN$("Ready to emplane?",40)
4100 D=1000:GOSUB 31000
4105 GOSUB 30040
4110 PRINT FNCEN$("All aboard!",40)
4115 D=1000:GOSUB 31000
4120 GOSUB 30040
4125 PRINT FNCEN$("TAKEOFF!",40)
4130 D=1000:GOSUB 31000
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 30040                '*** 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"main"
4260 CHAIN"jet
4265 CHAIN"end"
30000 LOCATE 1,1
30010 PRINT"                                        "
30030 LOCATE 1,1:RETURN
30040 LOCATE 1,1
30050 PRINT"                                                                                                                        "
30060 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