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 d=2500:GOSUB 31000
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 d=1500:GOSUB 31000
95 LINE(105,45)-(215,145)
100 d=750:GOSUB 31000
105 LINE(215,45)-(105,145)
110 d=1500:GOSUB 31000
115 GOSUB 30000         '***Textpad***
120 PRINT FNCEN$("You've made them before.",40)
125 d=1500:GOSUB 31000
130 GOSUB 30000         '***Textpad***
135 PRINT FNCEN$("I'll wait till you finish.",40)
140 d=1500:GOSUB 31000
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 d=1500:GOSUB 31000
185 LINE(105,45)-(215,145),0
190 LINE(105,145)-(215,45),0
195 LINE(105,145)-(215,145),3,B
200 d=500:GOSUB 31000
205 FOR H= 105 TO 215 STEP 2
210 PSET(H,95)
215 NEXT H
220 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=1500:GOSUB 31000
315 GOSUB 30000         '***Textpad***
320 PRINT FNCEN$("and here's why.",40)
325 d=750:GOSUB 31000
330 LINE(105,95)-(95,140)
335 LINE-(105,140)
340 d=250:GOSUB 31000
345 GOSUB 30000         '***Textpad***
350 PRINT FNCEN$("Lo! a pocket!",40)
355 d=750:GOSUB 31000
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 d=25:GOSUB 31000
380 CIRCLE(79,142),7,0
385 PAINT(79,142),0
390 NEXT K
395 d=750:GOSUB 31000
400 GOSUB 30000         '***Textpad***
405 PRINT FNCEN$("Into this pocket goes this corner",40)
410 d=750:GOSUB 31000
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 d=25:GOSUB 31000
435 CIRCLE(105,84),7,0
440 PAINT(105,84),0
445 NEXT K
450 d=500:GOSUB 31000
455 GOSUB 30000         '***Textpad***
460 PRINT FNCEN$("down to this center point",40)
465 d=750:GOSUB 31000
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 d=25:GOSUB 31000
490 CIRCLE(160,156),7,0
495 PAINT(160,156),0
500 NEXT K
505 d=500:GOSUB 31000
510 GOSUB 30000         '***Textpad***
515 PRINT FNCEN$("THUS!",40)
520 d=750:GOSUB 31000
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+.54*Q,95+.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 d=1500:GOSUB 31000
680 FOR Q=0 TO 50
685 LINE(160,95)-(215-.54*Q,95+.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 d=1500:GOSUB 31000
765 GOSUB 30000       '*** Textpad ***
770 PRINT FNCEN$("If so, press <R>.",40)
775 d=1000:GOSUB 31000
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 d=1500:GOSUB 31000
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 d=750:GOSUB 31000
870 GOTO 300
875 GOSUB 30000   '** Textpad **
880 PRINT FNCEN$("One moment, please,",40)
885 d=750:GOSUB 31000
890 PRINT FNCEN$("while I change scale.",40)
895 d=1500:GOSUB 31000
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 d=500:GOSUB 31000
990 GOSUB 30000         '***Textpad***
995 PRINT FNCEN$("There!  That's better!",40)
1000 d=1500:GOSUB 31000
1005 GOSUB 30000         '***Textpad***
1010 PRINT FNCEN$("Now, I'll wait for your POCKET FOLDs.",40)
1015 d=1500:GOSUB 31000
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 d=750:GOSUB 31000
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 d=500:GOSUB 31000
1150 GOSUB 30000         '***Textpad***
1155 PRINT FNCEN$("up to here",40)
1160 d=750:GOSUB 31000
1165                             '*** arrow down ***
1170 FOR K=1 TO 15
1175 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
1180 PAINT(160,34)
1185 d=25:GOSUB 31000
1190 CIRCLE(160,34),7,0
1195 PAINT(160,34),0
1200 NEXT K
1205                             '***end arrow down ***
1210 d=500:GOSUB 31000
1215 GOSUB 30000         '***Textpad***
1220 PRINT FNCEN$("across these lines",40)
1225 d=750:GOSUB 31000
1230 LINE(105,95)-(160,145),0
1235 LINE(215,95)-(160,145),0
1240 d=750:GOSUB 31000
1245 GOSUB 30000         '***Textpad***
1250 PRINT FNCEN$("THUS!",40)
1255 d=750:GOSUB 31000
1260 FOR Q=0 TO 55        'FOLD LEFT
1265 LINE(160,145)-(50+Q,145-.9090001*Q),0
1270 LINE(160,145)-(50+Q,145-.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-.9090001*Q),0
1295 LINE(160,145)-(105+Q,96-.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 d=750:GOSUB 31000
1335 LINE(215,95)-(160,145),0
1340 d=750:GOSUB 31000
1345 FOR Q=0 TO 55      'FOLD RIGHT
1350 LINE(160,145)-(270-Q,145-.9090001*Q),0
1355 LINE(160,145)-(270-Q,145-.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-.9090001*Q),0
1385 LINE(160,145)-(215-Q,96-.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 d=1000:GOSUB 31000
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 d=1500:GOSUB 31000
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 d=750:GOSUB 31000
1515 GOTO 1080
1520 GOSUB 30000   '** Textpad **
1525 PRINT FNCEN$("Our next folds are to the hidden side.",40)
1530 d=1500:GOSUB 31000
1535 FOR Q=0 TO 55        'FOLD LEFT
1540 LINE(160,145)-(50+Q,145-.9090001*Q),0
1545 LINE(160,145)-(50+Q,146-.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-.9090001*Q),1
1570 LINE(160,145)-(105+Q,96-.9090001*Q),3
1575 NEXT Q             'END LEFT
1580 LINE(160,45)-(160,145),0
1585 d=750:GOSUB 31000
1590 FOR Q=0 TO 55      'FOLD RIGHT
1595 LINE(160,145)-(270-Q,145-.9090001*Q),0
1600 LINE(160,145)-(270-Q,146-.9090001*Q),0
1605 NEXT Q
1610 FOR Q=1 TO 55      'NEXT FOLD RIGHT
1615 LINE(160,145)-(215-Q,96-.9090001*Q),1
1620 LINE(160,145)-(215-Q,96-.9090001*Q),3
1625 NEXT Q             'END RIGHT
1630 LINE(160,45)-(160,145),0
1635 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=750:GOSUB 31000
1920 GOSUB 30000         '***Textpad***
1925 PRINT FNCEN$("over these lines,",40)
1930 d=750:GOSUB 31000
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 d=750:GOSUB 31000
1970 GOSUB 30000         '***Textpad***
1975 PRINT FNCEN$("THUS!",40)
1980 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
2060 NEXT H
2065 LINE(133,70)-(160,95),0
2070 LINE-(133,120),0
2075 d=750:GOSUB 31000
2080 GOSUB 30000         '***Textpad***
2085 PRINT FNCEN$("and repeat on the other side.",40)
2090 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
2170 NEXT H
2175 LINE(187,70)-(160,95),0
2180 LINE-(187,120),0
2185 d=750:GOSUB 31000
2190 GOSUB 30000       '*** Textpad ***
2195 PRINT FNCEN$("To see those folds again, press <R>.",40)
2200 d=1000:GOSUB 31000
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 d=250:GOSUB 31000
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 d=750:GOSUB 31000
2310 GOTO 1665
2315 GOSUB 30000         '***Textpad***
2320 PRINT FNCEN$("We repeat for the hidden side.",40)
2325 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
2400 NEXT H
2405 LINE(133,70)-(160,95),0
2410 LINE-(133,120),0
2415 d=750:GOSUB 31000
2420 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
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 d=750:GOSUB 31000
2550                             '*** arrow down ***
2555 FOR K=1 TO 15
2560 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
2565 PAINT(160,34)
2570 d=25:GOSUB 31000
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 d=250:GOSUB 31000
2615 LINE(160,55)-(155,50),0
2620 LINE-(155,55),0
2625 LINE-(160,55),0
2630 d=750:GOSUB 31000
2635 GOSUB 30000         '***Textpad***
2640 PRINT FNCEN$("fold down to this point",40)
2645 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=250:GOSUB 31000
2745 GOSUB 30000         '***Textpad***
2750 PRINT FNCEN$("over this line",40)
2755 d=750:GOSUB 31000
2760 FOR H=133 TO 187 STEP 2
2765 PSET(H,70),0
2770 NEXT H
2775 d=250:GOSUB 31000
2780 GOSUB 30000         '***Textpad***
2785 PRINT FNCEN$("SO!",40)
2790 d=750:GOSUB 31000
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 d=75:GOSUB 31000
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 d=75:GOSUB 31000
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 d=75:GOSUB 31000
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 d=75:GOSUB 31000
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 d=1000:GOSUB 31000
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 d=250:GOSUB 31000
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 d=1500:GOSUB 31000
3110 GOSUB 30000       '*** Textpad ***
3115 PRINT FNCEN$("and a bit of patience.",40)
3120 d=1500:GOSUB 31000
3125 GOSUB 30000       '*** Textpad ***
3130 PRINT FNCEN$("These flaps",40)
3135 d=750:GOSUB 31000
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 d=1000:GOSUB 31000
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 d=1000:GOSUB 31000
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 d=250:GOSUB 31000
3245 PRINT FNCEN$("get tucked into these pockets,",40)
3250 d=1500:GOSUB 31000
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 d=1500:GOSUB 31000
3320 GOSUB 30000       '*** Textpad ***
3325 PRINT FNCEN$("SO!",40)
3330 d=750:GOSUB 31000
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 d=125:GOSUB 31000
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 d=125:GOSUB 31000
3455 NEXT Q
3460 LINE(186,69)-(186,95),1
3465 LINE-(161,95),1
3470 d=500:GOSUB 31000
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 d=125:GOSUB 31000
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 d=125:GOSUB 31000
3595 NEXT Q
3600 LINE(134,69)-(134,95),1
3605 LINE-(159,95),1
3610 d=1500:GOSUB 31000
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 d=1000:GOSUB 31000
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 d=250:GOSUB 31000
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 d=1500:GOSUB 31000
3750 GOSUB 30000       '*** Textpad ***
3755 PRINT FNCEN$("Go ahead.  I'll wait.",40)
3760 d=1500:GOSUB 31000
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 d=1500:GOSUB 31000
3805 FOR K=1 TO 15
3810 PSET(160,40):DRAW"E5L4U7L2D7L4F5"
3815 PAINT(160,34),3
3820 d=25:GOSUB 31000
3825 CIRCLE(160,34),7,0
3830 PAINT(160,34),0
3835 NEXT K
3840                             '***end arrow down ***
3845 d=750:GOSUB 31000
3850 GOSUB 30000       '*** Textpad ***
3855 PRINT FNCEN$("down to this point",40)
3860 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=250:GOSUB 31000
3945 GOSUB 30000       '*** Textpad ***
3950 PRINT FNCEN$("across this line",40)
3955 d=750:GOSUB 31000
3960 FOR H=134 TO 186 STEP 2
3965 PSET(H,70),0
3970 NEXT H
3975 d=250:GOSUB 31000
3980 GOSUB 30000      '*** Textpad ***
3985 PRINT FNCEN$("SO!",40)
3990 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
4070 NEXT V
4075 LINE(134,70)-(160,95),0
4080 LINE-(186,70),0
4085 d=750:GOSUB 31000
4090 GOSUB 30000       '*** Textpad ***
4095 PRINT FNCEN$("and back we go up again!",40)
4100 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=1500:GOSUB 31000
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 d=750:GOSUB 31000
4235                             '*** arrow up ***
4240 FOR K=1 TO 15
4245 PSET(160,153):DRAW"G5R4D7R2U7R4H5"
4250 PAINT(160,159)
4255 d=25:GOSUB 31000
4260 CIRCLE(160,159),7,0
4265 PAINT(160,159),0
4270 NEXT K
4275 d=750:GOSUB 31000
4280 FOR H=134 TO 186 STEP 2
4285 PSET(H,120),0
4290 NEXT H
4295 d=750:GOSUB 31000
4300 GOSUB 30000       '*** Textpad ***
4305 PRINT FNCEN$("SO!",40)
4310 d=750:GOSUB 31000
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 d=25:GOSUB 31000
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 d=25:GOSUB 31000
4380 PSET(160,V),0
4385 LINE(134,119)-(160,95),0
4390 LINE-(186,119),0
4395 NEXT V
4400 d=750:GOSUB 31000
4405 GOSUB 30000       '*** Textpad ***
4410 PRINT FNCEN$("and back down again!",40)
4415 d=750:GOSUB 31000
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 d=750:GOSUB 31000
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 d=750:GOSUB 31000
4530 FOR K=1 TO 15
4535 PSET(160,153):DRAW"G5R4D7R2U7R4H5"
4540 PAINT(160,159)
4545 d=25:GOSUB 31000
4550 CIRCLE(160,159),7,0
4555 PAINT(160,159),0
4560 NEXT K
4565 d=750:GOSUB 31000
4570 PRINT FNCEN$("that you'll be blowing air into",40)
4575 d=1500:GOSUB 31000
4580 PRINT FNCEN$("to inflate BALLOON.",40)
4585 d=1500:GOSUB 31000
4590 GOSUB 30000       '*** Textpad ***
4595 PRINT FNCEN$("But first, I'll show you",40)
4600 d=1500:GOSUB 31000
4605 PRINT FNCEN$("how to hold BALLOON",40)
4610 d=1500:GOSUB 31000
4615 PRINT FNCEN$("as you blow.",40)
4620 d=1500:GOSUB 31000
4625 GOSUB 30000       '*** Textpad ***
4630 PRINT FNCEN$("One moment, please.",40)
4635 d=750:GOSUB 31000
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 d=250:GOSUB 31000
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 d=250:GOSUB 31000
4765 GOSUB 30000       '*** Textpad ***
4770 PRINT FNCEN$("Here's the hole you'll be blowing into.",40)
4775 d=750:GOSUB 31000
4780 FOR K=1 TO 15
4785 CIRCLE(160,95),3,3
4790 PAINT(160,95),3
4795 d=25:GOSUB 31000
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 d=1500:GOSUB 31000
4830 GOSUB 30000       '*** Textpad ***
4835 PRINT FNCEN$("Your thumbs go here,",40)
4840 d=500:GOSUB 31000
4845                             '*** arrow up ***
4850 PSET(130,110):DRAW"G5R4D7R2U7R4H5"
4855 PAINT(130,116)
4860 PSET(190,110):DRAW"G5R4D7R2U7R4H5"
4865 PAINT(190,116)
4870 d=1500:GOSUB 31000
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 d=250:GOSUB 31000
4905 GOSUB 30000       '*** Textpad ***
4910 PRINT FNCEN$("your pointers go here,",40)
4915 d=500:GOSUB 31000
4920 PSET(205,95):DRAW"E5D4R7D2L7D4H5"
4925 PAINT(211,95)
4930 PSET(115,95):DRAW"H5D4L7D2R7D4E5"
4935 PAINT(109,95)
4940 d=1500:GOSUB 31000
4945 CIRCLE(109,95),7,0
4950 PAINT(109,95),0
4955 CIRCLE(211,95),7,0
4960 PAINT(211,95),0
4965 d=250:GOSUB 31000
4970 GOSUB 30000       '*** Textpad ***
4975 PRINT FNCEN$("and your middle fingers go here.",40)
4980 d=500:GOSUB 31000
4985 PSET(130,80):DRAW"E5L4U7L2D7L4F5"
4990 PAINT(130,74)
4995 PSET(190,80):DRAW"E5L4U7L2D7L4F5"
5000 PAINT(190,74)
5005 d=1500:GOSUB 31000
5010 CIRCLE(190,74),7,0
5015 PAINT(190,74),0
5020 CIRCLE(130,74),7,0
5025 PAINT(130,74),0
5030 d=250:GOSUB 31000
5035 GOSUB 30000       '*** Textpad ***
5040 PRINT FNCEN$("Want those instructions repeated?",40)
5045 d=1000:GOSUB 31000
5050 PRINT FNCEN$("If so, press <R>.",40)
5055 d=1000:GOSUB 31000
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 d=250:GOSUB 31000
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 d=750:GOSUB 31000
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 d=250:GOSUB 31000
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 d=750:GOSUB 31000
5295 GOSUB 30000       '*** Textpad ***
5300 PRINT FNCEN$("Mission accomplished!",40)
5305 d=1500:GOSUB 31000
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"main"
5370 CHAIN"balloon"
5375 CHAIN"end"
30000 LOCATE 1,1
30010 PRINT"                                                                                                                        "
30020 LOCATE 1,1:RETURN
31000 REM *** Delay procedure     added by Maarten van Gelder
31010 FOR I=1 TO D
31020   FOR J=1 TO 1:NEXT J    ' Delay factor: change for actual CPU
31030 NEXT I
31040 RETURN