10 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS
15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
20 LOCATE 12,1:PRINT FNCEN$("PENGUIN",40)
25 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
30 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
35 PRINT FNCEN$("All Rights Reserved",40)
40 d=2500:GOSUB 31000
45 CLS
50 GOSUB 30000   '** Textpad **
55 PRINT FNCEN$("PENGUIN begins with an inverted KITE.",40)
60 FOR A=0 TO 20
65 OUT 66,A:OUT 66,A
70 OUT 97,(INP(97) OR 3)
75 NEXT A
80 SOUND 37,0
85 d=250:GOSUB 31000
90                             '***End Zapsound***
95             '*** start draw ***
100 LINE(160,30)-(80,100)
105 LINE-(160,170)
110 LINE-(240,100)
115 LINE-(160,30)
120 d=1500:GOSUB 31000
125 FOR V=30 TO 170 STEP 2
130 PSET(160,V)
135 NEXT V
140 d=750:GOSUB 31000
145 LINE(115,130)-(160,30)
150 LINE-(205,130)
155 d=750:GOSUB 31000
160 LINE(84,104)-(114,130),0
165 FOR Q=0 TO 42
170 LINE(160,30)-(80+Q,100+.36*Q)
175 LINE-(115,130)
180 LINE(160,30)-(80+Q,100+.36*Q),0
185 LINE-(115,130),0
190 NEXT Q
195 FOR Q=0 TO 38
200 LINE(160,30)-(122+Q,115+.39*Q)
205 LINE-(115,130)
210 LINE(160,30)-(122+Q,114+.39*Q)
215 LINE-(115,130)
220 NEXT Q
225 d=750:GOSUB 31000
230 LINE(236,104)-(206,130),0
235 FOR Q=0 TO 42
240 LINE(160,30)-(240-Q,100+.36*Q)
245 LINE-(205,130)
250 LINE(160,30)-(240-Q,100+.36*Q),0
255 LINE-(205,130),0
260 NEXT Q
265 FOR Q=0 TO 38
270 LINE(160,30)-(198-Q,115+.39*Q)
275 LINE-(205,130)
280 LINE(160,30)-(198-Q,114+.39*Q)
285 LINE-(205,130)
290 NEXT Q
295 LINE(160,30)-(160,130),0
300 d=750:GOSUB 31000
305 GOSUB 30000   '** Textpad **
310 PRINT FNCEN$("There!  I'll wait for your KITE.",40)
315 d=1500:GOSUB 31000
320 GOSUB 30000   '*** Textpad ***
325 PRINT FNCEN$("Press <C> when ready to proceed.",40)
330 A$=INKEY$:IF A$="" GOTO 330
335 IF A$="C" OR A$="c" GOTO 345
340 GOTO 320
345 GOSUB 30000   '** Textpad **
350 PRINT FNCEN$("Our first folds are preparatory folds",40)
355 d=1500:GOSUB 31000
360 PRINT FNCEN$("for PENGUIN's beak.",40)
365 d=1500:GOSUB 31000
370 GOSUB 30000      '** Textpad **
375 PRINT FNCEN$("We begin by folding this corner",40)
380 d=750:GOSUB 31000
385                             '*** arrow down ***
390 FOR K=1 TO 15
395 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
400 PAINT(160,16)
405 d=25:GOSUB 31000
410 CIRCLE(160,16),7,0
415 PAINT(160,16),0
420 NEXT K
425                             '***end arrow down ***
430 d=750:GOSUB 31000
435 GOSUB 30000      '** Textpad **
440 PRINT FNCEN$("down across this line of our choosing,",40)
445 d=750:GOSUB 31000
450 FOR H=154 TO 166 STEP 2
455 PSET(H,45),0
460 NEXT H
465 d=750:GOSUB 31000
470 GOSUB 30000      '** Textpad **
475 PRINT FNCEN$("THUS!",40)
480 d=750:GOSUB 31000
485 FOR V=30 TO 45
490 LINE(152,45)-(160,V),0
495 LINE-(168,45),0
500 NEXT V
505 FOR V=45 TO 60
510 LINE(152,45)-(160,V),0
515 LINE-(168,45),0
520 LINE(152,45)-(160,V)
525 LINE-(168,45)
530 NEXT V
535 LINE(152,45)-(160,60),0
540 LINE-(168,45),0
545 d=750:GOSUB 31000
550 GOSUB 30000      '** Textpad **
555 PRINT FNCEN$("Our next fold takes us back up again",40)
560 d=1500:GOSUB 31000
565 GOSUB 30000      '** Textpad **
570 PRINT FNCEN$("across this line,",40)
575 d=750:GOSUB 31000
580 FOR H=155 TO 165 STEP 2
585 PSET(H,50),0
590 NEXT H
595 d=750:GOSUB 31000
600 PRINT FNCEN$("again of our own choosing,",40)
605 d=1500:GOSUB 31000
610 GOSUB 30000      '** Textpad **
615 PRINT FNCEN$("SO!",40)
620 d=750:GOSUB 31000
625 FOR V=60 TO 40 STEP -1
630 LINE(155,50)-(160,V),0
635 LINE-(165,50),0
640 LINE(155,50)-(160,V)
645 LINE-(165,50)
650 LINE(155,51)-(160,60)
655 LINE-(165,51)
660 PSET(160,V),0
665 PSET(160,60),0
670 NEXT V
675 LINE(157,45)-(155,50),0
680 LINE-(165,50),0
685 LINE-(163,45),0
690 d=750:GOSUB 31000
695 GOSUB 30000       '*** Textpad ***
700 PRINT FNCEN$("Want to see those folds again?",40)
705 d=1500:GOSUB 31000
710 GOSUB 30000       '*** Textpad ***
715 PRINT FNCEN$("If so, press <R>.",40)
720 d=1000:GOSUB 31000
725 PRINT FNCEN$("If not, press <C> to continue.",40)
730 A$=INKEY$:IF A$="" GOTO 730
735 IF A$="r" OR A$="R" GOTO 750
740 IF A$="c" OR A$="C" GOTO 835
745 GOTO 710
750 FOR A=0 TO 20
755 OUT 66,A:OUT 66,A
760 OUT 97,(INP(97) OR 3)
765 NEXT A
770 SOUND 37,0
775                             '***End Zapsound***
780             '*** start draw ***
785 LINE(150,30)-(170,50),0,BF
790 LINE(151,50)-(160,30)
795 LINE-(169,50)
800 LINE-(151,50)
805 PAINT(160,40)
810 LINE(160,30)-(160,50),0
815 GOSUB 30000      '** Textpad **
820 PRINT FNCEN$("* Review *",40)
825 d=1500:GOSUB 31000
830 GOTO 370
835 GOSUB 30000      '** Textpad **
840 PRINT FNCEN$("We'll be using those folds",40)
845 d=1500:GOSUB 31000
850 PRINT FNCEN$("for PENGUIN's beak later on.",40)
855 d=1500:GOSUB 31000
860 GOSUB 30000      '** Textpad **
865 PRINT FNCEN$("Let's move on.",40)
870 d=1500:GOSUB 31000
875 FOR V=50 TO 30 STEP -1
880 LINE(151,50)-(160,V)
885 LINE-(169,50)
890 PSET(160,V),0
895 NEXT V
900 LINE(160,30)-(160,40),0
905 d=750:GOSUB 31000
910 GOSUB 30000   '** Textpad **
915 PRINT FNCEN$("Our next fold takes this corner",40)
920 d=1500:GOSUB 31000
925 LINE(160,130)-(160,120),0
930 LINE-(150,130),0
935 LINE-(160,130),0
940 PAINT(158,128),0
945 LINE(150,130)-(150,120),0
950 LINE-(160,120),0
955 d=1500:GOSUB 31000
960 GOSUB 30000   '** Textpad **
965 PRINT FNCEN$("up to this point",40)
970 d=750:GOSUB 31000
975 FOR K=1 TO 15
980 CIRCLE(95,100),5
985 LINE(93,100)-(97,100)
990 LINE(95,98)-(95,102)
995 d=25:GOSUB 31000
1000 CIRCLE(95,100),5,0
1005 LINE(93,100)-(97,100),0
1010 LINE(95,98)-(95,102),0
1015 NEXT K
1020 d=750:GOSUB 31000
1025 GOSUB 30000   '** Textpad **
1030 PRINT FNCEN$("across this line,",40)
1035 d=750:GOSUB 31000
1040 LINE(160,58)-(120,130),0
1045 d=750:GOSUB 31000
1050 GOSUB 30000   '** Textpad **
1055 PRINT FNCEN$("(Hint: Use your straightedge",40)
1060 d=1500:GOSUB 31000
1065 PRINT FNCEN$("to draw that line",40)
1070 d=1500:GOSUB 31000
1075 PRINT FNCEN$("and help get our fold started.)",40)
1080 d=2500:GOSUB 31000
1085 GOSUB 30000   '*** Textpad ***
1090 PRINT FNCEN$("Are you ready?  If so, press <C>.",40)
1095 A$=INKEY$:IF A$="" GOTO 1095
1100 IF A$="C" OR A$="c" GOTO 1110
1105 GOTO 1085
1110 GOSUB 30000   '** Textpad **
1115 PRINT FNCEN$("and away we go!",40)
1120 d=750:GOSUB 31000
1125 LINE(150,130)-(150,120)
1130 LINE-(159,120)
1135 LINE-(159,130)
1140 LINE-(150,130)
1145 PAINT(158,128)
1150 FOR Q=0 TO 32
1155 LINE(160,58)-(159-Q,130-.47*Q),0
1160 LINE-(120,130),0
1165 LINE(160,58)-(160-Q,130-.47*Q),0
1170 LINE-(120,130),0
1175 NEXT Q
1180 FOR Q=0 TO 33
1185 LINE(160,58)-(128-Q,115-.45*Q)
1190 LINE-(120,130)
1195 LINE(160,58)-(128-Q,115-.45*Q),0
1200 LINE-(120,130),0
1205 LINE(160,58)-(129-Q,115-.45*Q),0
1210 LINE-(120,130),0
1215 LINE(160,58)-(120,130)
1220 NEXT Q
1225 LINE(160,58)-(95,100)
1230 LINE-(120,130)
1235 FOR V=60 TO 170 STEP 2
1240 PSET(160,V)
1245 NEXT V
1250 GOSUB 30000       '*** Textpad ***
1255 PRINT FNCEN$("To review that fold, press <R>",40)
1260 d=1000:GOSUB 31000
1265 PRINT FNCEN$("To continue, press <C>.",40)
1270 A$=INKEY$:IF A$="" GOTO 1270
1275 IF A$="r" OR A$="R" GOTO 1290
1280 IF A$="c" OR A$="C" GOTO 1385
1285 GOTO 1250
1290 FOR A=0 TO 20
1295 OUT 66,A:OUT 66,A
1300 OUT 97,(INP(97) OR 3)
1305 NEXT A
1310 SOUND 37,0
1315 LINE(115,124)-(95,100),0
1320 LINE-(140,71),0
1325 LINE(160,30)-(115,130)
1330 LINE-(160,130)
1335 LINE-(160,58)
1340 PAINT(150,100)
1345 PAINT(140,85)
1350 PSET(133,75),0:PSET(141,70),0
1355 PSET(119,84),0:PSET(116,125),0
1360 LINE(160,58)-(160,130),0
1365 GOSUB 30000   '** Textpad **
1370 PRINT FNCEN$("* Review *",40)
1375 d=750:GOSUB 31000
1380 GOTO 910
1385 GOSUB 30000   '** Textpad **
1390 PRINT FNCEN$("We repeat that fold on the other side,",40)
1395 d=1500:GOSUB 31000
1400 GOSUB 30000   '** Textpad **
1405 PRINT FNCEN$("SO!",40)
1410 d=750:GOSUB 31000
1415 LINE(160,58)-(200,130),0
1420 d=750:GOSUB 31000
1425 FOR Q=0 TO 32
1430 LINE(161,58)-(162+Q,130-.47*Q),0
1435 LINE-(200,130),0
1440 LINE(161,58)-(161+Q,130-.47*Q),0
1445 LINE-(200,130),0
1450 NEXT Q
1455 FOR Q=0 TO 33
1460 LINE(160,58)-(192+Q,115-.45*Q)
1465 LINE-(200,130)
1470 LINE(160,58)-(192+Q,115-.45*Q),0
1475 LINE-(200,130),0
1480 LINE(160,58)-(191+Q,115-.45*Q),0
1485 LINE-(200,130),0
1490 LINE(160,58)-(200,130)
1495 NEXT Q
1500 LINE(160,58)-(225,100)
1505 LINE-(200,130)
1510 d=750:GOSUB 31000
1515 GOSUB 30000   '*** Textpad ***
1520 PRINT FNCEN$("Press <C> to continue.",40)
1525 A$=INKEY$:IF A$="" GOTO 1525
1530 IF A$="C" OR A$="c" GOTO 1540
1535 GOTO 1515
1540 GOSUB 30000   '** Textpad **
1545 PRINT FNCEN$("Using our straightedge again,",40)
1550 d=1500:GOSUB 31000
1555 GOSUB 30000   '** Textpad **
1560 PRINT FNCEN$("we draw this line",40)
1565 d=1500:GOSUB 31000
1570 LINE(153,64)-(118,126)
1575 d=750:GOSUB 31000
1580 GOSUB 30000   '** Textpad **
1585 PRINT FNCEN$("and fold this corner",40)
1590 d=750:GOSUB 31000
1595 FOR K=1 TO 15
1600 PSET(87,100):DRAW"H5D4L7D2R7D4E5"
1605 PAINT(81,100)
1610 d=25:GOSUB 31000
1615 CIRCLE(81,100),7,0
1620 PAINT(81,100),0
1625 NEXT K
1630 d=750:GOSUB 31000
1635 GOSUB 30000   '** Textpad **
1640 PRINT FNCEN$("down to this point,",40)
1645 d=750:GOSUB 31000
1650 FOR K=1 TO 15
1655 CIRCLE(154,126),5
1660 LINE(152,126)-(156,126)
1665 LINE(154,124)-(154,128)
1670 d=25:GOSUB 31000
1675 CIRCLE(154,126),5,0
1680 LINE(152,126)-(156,126),0
1685 LINE(154,124)-(154,128),0
1690 NEXT K
1695 d=750:GOSUB 31000
1700 GOSUB 30000   '** Textpad **
1705 PRINT FNCEN$("THUS!",40)
1710 d=750:GOSUB 31000
1715 LINE(116,125)-(95,100),0
1720 LINE-(140,71),0
1725 LINE(119,84)-(141,70),0
1730 FOR Q=0 TO 30
1735 LINE(153,64)-(95+Q,100+.43*Q)
1740 LINE-(118,126)
1745 LINE(153,64)-(95+Q,100+.43*Q),0
1750 LINE-(118,126),0
1755 NEXT Q
1760 PSET(152,64):PSET(120,120)
1765 LINE(153,64)-(118,126)
1770 LINE(160,30)-(115,130)
1775 PAINT(143,71)
1780 FOR Q=0 TO 28
1785 LINE(153,64)-(125+Q,113+.46*Q)
1790 LINE-(118,126)
1795 LINE(153,64)-(124+Q,113+.46*Q)
1800 LINE-(118,126)
1805 LINE(153,64)-(118,126),0
1810 NEXT Q
1815 d=750:GOSUB 31000
1820 GOSUB 30000       '*** Textpad ***
1825 PRINT FNCEN$("Press <R> to review that fold.",40)
1830 d=1000:GOSUB 31000
1835 PRINT FNCEN$("Press <C> to continue.",40)
1840 A$=INKEY$:IF A$="" GOTO 1840
1845 IF A$="r" OR A$="R" GOTO 1860
1850 IF A$="c" OR A$="C" GOTO 1920
1855 GOTO 1820
1860 FOR A=0 TO 20
1865 OUT 66,A:OUT 66,A
1870 OUT 97,(INP(97) OR 3)
1875 NEXT A
1880 SOUND 37,0
1885 LINE(115,64)-(153,126),0,BF
1890 LINE(160,58)-(120,130)
1895 LINE(160,58)-(95,100)
1900 LINE-(120,130)
1905 LINE(160,30)-(142,70)
1910 PAINT(145,66)
1915 GOTO 1540
1920 GOSUB 30000   '** Textpad **
1925 PRINT FNCEN$("and repeat on the other side,",40)
1930 d=1500:GOSUB 31000
1935 GOSUB 30000   '** Textpad **
1940 PRINT FNCEN$("SO!",40)
1945 d=750:GOSUB 31000
1950 LINE(167,64)-(202,126)
1955 d=750:GOSUB 31000
1960 LINE(179,70)-(201,84),0
1965 LINE(204,125)-(225,100),0
1970 LINE-(180,71),0
1975 LINE(179,84)-(201,70),0
1980 FOR Q=0 TO 30
1985 LINE(167,64)-(225-Q,100+.43*Q)
1990 LINE-(202,126)
1995 LINE(167,64)-(225-Q,100+.43*Q),0
2000 LINE-(202,126),0
2005 NEXT Q
2010 PSET(168,64):PSET(200,120)
2015 LINE(167,64)-(202,126)
2020 LINE(160,30)-(205,130)
2025 PAINT(177,71)
2030 FOR Q=0 TO 28
2035 LINE(167,64)-(195-Q,113+.46*Q)
2040 LINE-(202,126)
2045 LINE(167,64)-(196-Q,113+.46*Q)
2050 LINE-(202,126)
2055 LINE(167,64)-(202,126),0
2060 NEXT Q
2065 d=750:GOSUB 31000
2070 GOSUB 30000   '*** Textpad ***
2075 PRINT FNCEN$("Press <C> to continue.",40)
2080 A$=INKEY$:IF A$="" GOTO 2080
2085 IF A$="C" OR A$="c" GOTO 2095
2090 GOTO 2070
2095 GOSUB 30000   '** Textpad **
2100 PRINT FNCEN$("We now fold the right side of PENGUIN",40)
2105 d=750:GOSUB 31000
2110 LINE(203,132)-(179,153),0
2115 FOR K=1 TO 15
2120 LINE(160,30)-(205,131),0
2125 LINE-(160,170),0
2130 d=25:GOSUB 31000
2135 LINE(160,30)-(205,131)
2140 LINE-(160,170)
2145 NEXT K
2150 GOSUB 30000   '** Textpad **
2155 PRINT FNCEN$("over onto the back of its left side,",40)
2160 d=750:GOSUB 31000
2165 LINE(117,132)-(141,153),0
2170 FOR K=1 TO 15
2175 LINE(160,30)-(115,131),0
2180 LINE-(160,170),0
2185 d=25:GOSUB 31000
2190 LINE(160,30)-(115,131)
2195 LINE-(160,170)
2200 NEXT K
2205 d=750:GOSUB 31000
2210 GOSUB 30000   '** Textpad **
2215 PRINT FNCEN$("SO!",40)
2220 d=750:GOSUB 31000
2225 FOR H=205 TO 160 STEP -1
2230 LINE(160,30)-(H,130)
2235 LINE-(160,170)
2240 LINE(160,30)-(H,130),0
2245 LINE-(160,170),0
2250 LINE(164,167)-(205,131),0
2255 PSET(170,51),0
2260 NEXT H
2265 LINE(160,30)-(160,170)
2270 FOR K=1 TO 60
2275 LINE(160,30)-(160,170),1
2280 LINE(160,30)-(160,170)
2285 NEXT K
2290 LINE(160,31)-(116,130),1
2295 LINE-(160,169),1
2300 d=1500:GOSUB 31000
2305 LINE(160,31)-(116,130)
2310 LINE-(160,169),0
2315 PSET(160,169),2
2320 d=750:GOSUB 31000
2325 GOSUB 30000   '*** Textpad ***
2330 PRINT FNCEN$("Press <C> to continue.",40)
2335 A$=INKEY$:IF A$="" GOTO 2335
2340 IF A$="C" OR A$="c" GOTO 2350
2345 GOTO 2325
2350 GOSUB 30000   '** Textpad **
2355 PRINT FNCEN$("We now locate the midpoint of this edge",40)
2360 d=1500:GOSUB 31000
2365 PSET(129,80):DRAW"H5D4L7D2R7D4E5"
2370 PAINT(123,80)
2375 FOR K=1 TO 15
2380 LINE(160,30)-(115,130),0
2385 d=25:GOSUB 31000
2390 LINE(160,30)-(115,130)
2395 NEXT K
2400 d=250:GOSUB 31000
2405 LINE(137,80)-(138,80),2
2410 d=1500:GOSUB 31000
2415 CIRCLE(123,80),7,0
2420 PAINT(123,80),0
2425 GOSUB 30000   '** Textpad **
2430 PRINT FNCEN$("and choose a point, any point,",40)
2435 d=1500:GOSUB 31000
2440 PRINT FNCEN$("along the upper part of this edge,",40)
2445 d=1500:GOSUB 31000
2450 PSET(168,60):DRAW"E5D4R7D2L7D4H5"
2455 PAINT(174,60)
2460 FOR K=1 TO 15
2465 LINE(160,30)-(160,170),0
2470 d=25:GOSUB 31000
2475 LINE(160,30)-(160,170)
2480 NEXT K
2485 d=750:GOSUB 31000
2490 CIRCLE(174,60),7,0
2495 PAINT(174,60),0
2500 GOSUB 30000   '** Textpad **
2505 PRINT FNCEN$("let's say, here,",40)
2510 d=750:GOSUB 31000
2515 PSET(168,70):DRAW"E5D4R7D2L7D4H5"
2520 PAINT(174,70)
2525 d=250:GOSUB 31000
2530 LINE(159,70)-(160,70),2
2535 d=1500:GOSUB 31000
2540 CIRCLE(174,70),7,0
2545 PAINT(174,70),0
2550 GOSUB 30000   '** Textpad **
2555 PRINT FNCEN$("and draw a line, SO!",40)
2560 d=750:GOSUB 31000
2565 LINE(137,80)-(160,70),2
2570 d=1500:GOSUB 31000
2575 GOSUB 30000   '** Textpad **
2580 PRINT FNCEN$("Experiment with the location",40)
2585 d=1500:GOSUB 31000
2590 PRINT FNCEN$("and angle of that line.",40)
2595 d=1500:GOSUB 31000
2600 GOSUB 30000   '** Textpad **
2605 PRINT FNCEN$("You can give PENGUIN",40)
2610 d=1500:GOSUB 31000
2615 PRINT FNCEN$("a variety of personalities",40)
2620 d=1500:GOSUB 31000
2625 PRINT FNCEN$("by tinkering with that line.",40)
2630 d=1500:GOSUB 31000
2635 GOSUB 30000   '*** Textpad ***
2640 PRINT FNCEN$("Press <C> to continue.",40)
2645 A$=INKEY$:IF A$="" GOTO 2645
2650 IF A$="C" OR A$="c" GOTO 2660
2655 GOTO 2635
2660 GOSUB 30000   '** Textpad **
2665 PRINT FNCEN$("and with the help of our straightedge",40)
2670 d=1500:GOSUB 31000
2675 GOSUB 30000   '** Textpad **
2680 PRINT FNCEN$("fold and backfold this corner",40)
2685 d=750:GOSUB 31000
2690 FOR K=1 TO 15
2695 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
2700 PAINT(160,16)
2705 d=25:GOSUB 31000
2710 CIRCLE(160,16),7,0
2715 PAINT(160,16),0
2720 NEXT K
2725 d=750:GOSUB 31000
2730 GOSUB 30000   '** Textpad **
2735 PRINT FNCEN$("down to this point,",40)
2740 d=750:GOSUB 31000
2745 FOR K=1 TO 15
2750 CIRCLE(195,100),5
2755 LINE(193,100)-(197,100)
2760 LINE(195,98)-(195,102)
2765 d=25:GOSUB 31000
2770 CIRCLE(195,100),5,0
2775 LINE(193,100)-(197,100),0
2780 LINE(195,98)-(195,102),0
2785 NEXT K
2790 d=750:GOSUB 31000
2795 GOSUB 30000   '** Textpad **
2800 PRINT FNCEN$("SO!",40)
2805 d=750:GOSUB 31000
2810 FOR Q=0 TO 32
2815 LINE(137,80)-(160+.5*Q,30+Q)
2820 LINE-(160,70)
2825 LINE(137,80)-(160+.5*Q,30+Q),0
2830 LINE(137,80)-(160+.5*Q,29+Q),0
2835 NEXT Q
2840 PSET(160,69),0:PSET(162,68),0:PSET(177,64),0
2845 FOR Q=0 TO 38
2850 PSET(160,69),0:PSET(162,68),0:PSET(177,64),0
2855 LINE(137,80)-(176+.5*Q,62+Q)
2860 LINE-(160,70)
2865 LINE(160,70)-(177+.5*Q,61+Q),0
2870 NEXT Q
2875 LINE(195,100)-(137,80),0
2880 d=750:GOSUB 31000
2885 GOSUB 30000   '** Textpad **
2890 PRINT FNCEN$("and back we go up again!",40)
2895 d=750:GOSUB 31000
2900 FOR Q=0 TO 38
2905 LINE(137,80)-(195-.5*Q,100-Q)
2910 LINE-(160,70)
2915 LINE(137,80)-(195-.5*Q,100-Q),0
2920 LINE(137,80)-(195-.5*Q,101-Q),0
2925 LINE(137,80)-(153,86-.32*Q)
2930 LINE(137,80)-(153,87-.32*Q)
2935 PSET(160,89-.5*Q)
2940 PSET(160,91-.5*Q)
2945 NEXT Q
2950 LINE(153,64)-(118,126),0
2955 FOR Q=0 TO 32
2960 LINE(137,80)-(176-.5*Q,62-Q)
2965 LINE-(160,70)
2970 LINE(137,80)-(176-.5*Q,63-Q)
2975 LINE-(160,70)
2980 LINE(160,70)-(176-.5*Q,62-Q),0
2985 LINE(160,70)-(176-.5*Q,63-Q),0
2990 LINE(154,73-.31*Q)-(159,70-.38*Q),0
2995 PSET(160,73-Q)
3000 LINE(153,64)-(118,126),0
3005 NEXT Q
3010 LINE(153,64)-(118,126),0
3015 LINE(160,58)-(120,130)
3020 LINE(160,30)-(160,170)
3025 d=750:GOSUB 31000
3030 GOSUB 30000   '** Textpad **
3035 PRINT FNCEN$("Your turn to fold and backfold.",40)
3040 d=1500:GOSUB 31000
3045 GOSUB 30000       '*** Textpad ***
3050 PRINT FNCEN$("Press <R> to review that fold.",40)
3055 d=1000:GOSUB 31000
3060 PRINT FNCEN$("Press <C> to continue.",40)
3065 A$=INKEY$:IF A$="" GOTO 3065
3070 IF A$="r" OR A$="R" GOTO 3085
3075 IF A$="c" OR A$="C" GOTO 3130
3080 GOTO 3045
3085 FOR A=0 TO 20
3090 OUT 66,A:OUT 66,A
3095 OUT 97,(INP(97) OR 3)
3100 NEXT A
3105 SOUND 37,0
3110 GOSUB 30000   '** Textpad **
3115 PRINT FNCEN$("* Review *",40)
3120 d=750:GOSUB 31000
3125 GOTO 2350
3130 GOSUB 30000   '** Textpad **
3135 PRINT FNCEN$("Our next fold again takes this corner",40)
3140 d=750:GOSUB 31000
3145 FOR K=1 TO 15
3150 PSET(160,22):DRAW"E5L4U7L2D7L4F5"
3155 PAINT(160,16)
3160 d=25:GOSUB 31000
3165 CIRCLE(160,16),7,0
3170 PAINT(160,16),0
3175 NEXT K
3180 d=750:GOSUB 31000
3185 GOSUB 30000   '** Textpad **
3190 PRINT FNCEN$("back down to this point",40)
3195 d=750:GOSUB 31000
3200 FOR K=1 TO 15
3205 CIRCLE(195,100),5
3210 LINE(193,100)-(197,100)
3215 LINE(195,98)-(195,102)
3220 d=25:GOSUB 31000
3225 CIRCLE(195,100),5,0
3230 LINE(193,100)-(197,100),0
3235 LINE(195,98)-(195,102),0
3240 NEXT K
3245 d=750:GOSUB 31000
3250 GOSUB 30000   '** Textpad **
3255 PRINT FNCEN$("over this same line,",40)
3260 d=750:GOSUB 31000
3265 LINE(137,80)-(160,70),2
3270 d=750:GOSUB 31000
3275 GOSUB 30000   '** Textpad **
3280 PRINT FNCEN$("but the difference is",40)
3285 d=1500:GOSUB 31000
3290 GOSUB 30000   '** Textpad **
3295 PRINT FNCEN$("this time we have a HOOD FOLD,",40)
3300 d=1500:GOSUB 31000
3305 GOSUB 30000   '** Textpad **
3310 PRINT FNCEN$("which means we have to open up PENGUIN",40)
3315 d=750:GOSUB 31000
3320 FOR A=0 TO 20
3325 OUT 66,A:OUT 66,A
3330 OUT 97,(INP(97) OR 3)
3335 NEXT A
3340 SOUND 37,0
3345 LINE(160,30)-(107,133)
3350 LINE-(160,170)
3355 PAINT(110,130)
3360 LINE(160,30)-(115,130),0
3365 LINE-(160,170),0
3370 d=750:GOSUB 31000
3375 GOSUB 30000   '** Textpad **
3380 PRINT FNCEN$("considerably to execute the fold,",40)
3385 d=1500:GOSUB 31000
3390 GOSUB 30000   '** Textpad **
3395 PRINT FNCEN$("and the inside surfaces here",40)
3400 d=750:GOSUB 31000
3405 FOR K=1 TO 15
3410 PSET(140,50):DRAW"H5D4L7D2R7D4E5"
3415 PAINT(134,50)
3420 d=25:GOSUB 31000
3425 CIRCLE(134,50),7,0
3430 PAINT(134,50),0
3435 NEXT K
3440 d=750:GOSUB 31000
3445 GOSUB 30000   '** Textpad **
3450 PRINT FNCEN$("end up as outside surfaces",40)
3455 d=1500:GOSUB 31000
3460 GOSUB 30000   '** Textpad **
3465 PRINT FNCEN$("HERE!",40)
3470 d=750:GOSUB 31000
3475 FOR A=0 TO 20
3480 OUT 66,A:OUT 66,A
3485 OUT 97,(INP(97) OR 3)
3490 NEXT A
3495 SOUND 37,0
3500 LINE(149,53)-(144,64),0
3505 LINE(160,30)-(107,133),0
3510 LINE-(160,170),0
3515 LINE-(115,130),0
3520 LINE-(137,80),0
3525 LINE-(160,70),0
3530 LINE-(160,30),0
3535 PAINT(150,60),0
3540 PAINT(112,133),0
3545 PAINT(152,68),0
3550 LINE(115,131)-(148,160),0
3555 LINE(160,30)-(115,130)
3560 LINE-(160,170)
3565 LINE(155,42)-(138,79),0
3570 LINE(150,50)-(160,69),0,BF
3575 LINE(160,30)-(137,80),0
3580 LINE(138,80)-(160,70)
3585 LINE-(195,100)
3590 LINE-(160,91)
3595 PAINT(165,80)
3600 LINE(195,100)-(138,80)
3605 PAINT(155,80)
3610 LINE(195,100)-(138,80),0
3615 LINE(146,77)-(144,80)
3620 FOR K=1 TO 15
3625 LINE(138,80)-(160,70),0
3630 LINE-(195,100),0
3635 LINE-(138,80),0
3640 d=25:GOSUB 31000
3645 LINE(138,80)-(160,70)
3650 LINE-(195,100)
3655 LINE-(138,80)
3660 NEXT K
3665 LINE(195,100)-(138,80),0
3670 d=750:GOSUB 31000
3675 GOSUB 30000       '*** Textpad ***
3680 PRINT FNCEN$("Press <R> to review that fold.",40)
3685 d=1000:GOSUB 31000
3690 PRINT FNCEN$("Press <C> to continue.",40)
3695 A$=INKEY$:IF A$="" GOTO 3695
3700 IF A$="r" OR A$="R" GOTO 3715
3705 IF A$="c" OR A$="C" GOTO 3810
3710 GOTO 3675
3715 FOR A=0 TO 20
3720 OUT 66,A:OUT 66,A
3725 OUT 97,(INP(97) OR 3)
3730 NEXT A
3735 SOUND 37,0
3740 LINE(125,70)-(195,100),0,BF
3745 LINE(115,130)-(160,30)
3750 LINE-(160,100)
3755 LINE(153,100)-(153,64)
3760 LINE-(160,58)
3765 LINE(153,64)-(118,126)
3770 PAINT(155,55)
3775 PAINT(145,85)
3780 LINE(153,64)-(118,126),0
3785 LINE(160,58)-(120,130)
3790 GOSUB 30000   '** Textpad **
3795 PRINT FNCEN$("* Review *",40)
3800 d=750:GOSUB 31000
3805 GOTO 3130
3810 GOSUB 30000   '** Textpad **
3815 PRINT FNCEN$("We now tuck PENGUIN's beak",40)
3820 d=1000:GOSUB 31000
3825 GOSUB 30000   '** Textpad **
3830 PRINT FNCEN$("into this pocket,",40)
3835 d=500:GOSUB 31000
3840 FOR K=1 TO 15
3845 PSET(175,103):DRAW"G5R4D7R2U7R4H5"
3850 PAINT(175,109)
3855 d=25:GOSUB 31000
3860 CIRCLE(175,109),7,0
3865 PAINT(175,109),0
3870 NEXT K
3875 d=750:GOSUB 31000
3880 GOSUB 30000   '** Textpad **
3885 PRINT FNCEN$("bringing into play those folds",40)
3890 d=1500:GOSUB 31000
3895 PRINT FNCEN$("we made when we first started,",40)
3900 d=750:GOSUB 31000
3905 PSET(183,80):DRAW"E5L4U7L2D7L4F5"
3910 PAINT(183,74)
3915 d=500:GOSUB 31000
3920 FOR K=1 TO 25
3925 LINE(177,85)-(168,91),1
3930 LINE(185,91)-(180,95),1
3935 d=25:GOSUB 31000
3940 LINE(177,85)-(168,91),0
3945 LINE(185,91)-(180,95),0
3950 NEXT K
3955 CIRCLE(183,74),7,0
3960 PAINT(183,74),0
3965 d=750:GOSUB 31000
3970 GOSUB 30000   '** Textpad **
3975 PRINT FNCEN$("SO!",40)
3980 d=750:GOSUB 31000
3985 LINE(163,94)-(173,96),0
3990 PSET(168,91),0:PSET(178,85),0:PSET(179,86),0:PSET(178,88),0:PSET(160,88)
3995 FOR Q=0 TO 5
4000 LINE(161,93-Q)-(195,100),0
4005 NEXT Q
4010 FOR Q=0 TO 18
4015 LINE(168,91)-(195-Q,100-.83*Q),0
4020 LINE-(177,85),0
4025 d=15:GOSUB 31000
4030 NEXT Q
4035 PSET(168,91),0
4040 FOR Q=O TO 17
4045 LINE(168,91)-(177-Q,85-.88*Q),1
4050 LINE-(177,85),1
4055 LINE(168,91)-(177-Q,85-.88*Q)
4060 LINE-(177,85)
4065 d=15:GOSUB 31000
4070 NEXT Q
4075 PSET(168,91),0
4080 LINE(160,70)-(169,90),1
4085 GOSUB 30000   '*** Textpad ***
4090 PRINT FNCEN$("Press <C> to continue.",40)
4095 A$=INKEY$:IF A$="" GOTO 4095
4100 IF A$="C" OR A$="c" GOTO 4110
4105 GOTO 4085
4110 GOSUB 30000   '** Textpad **
4115 PRINT FNCEN$("and pull PENGUIN's beak out,",40)
4120 d=750:GOSUB 31000
4125 GOSUB 30000   '** Textpad **
4130 PRINT FNCEN$("SO!",40)
4135 d=750:GOSUB 31000
4140 LINE(171,80)-(166,85),1
4145 d=250:GOSUB 31000
4150 FOR Q=O TO 11
4155 LINE(171,80)-(161+Q,71+.9099999*Q),1
4160 LINE-(166,85),1
4165 LINE(171,80)-(160+Q,70+.9099999*Q)
4170 LINE-(166,85)
4175 d=15:GOSUB 31000
4180 NEXT Q
4185 PSET(168,91),0
4190 FOR Q=0 TO 11
4195 LINE(171,80)-(171+Q,80+.82*Q)
4200 LINE-(176,85),1
4205 d=15:GOSUB 31000
4210 NEXT Q
4215 PSET(168,91),0
4220 LINE(160,70)-(169,90)
4225 LINE(171,80)-(166,85)
4230 LINE(160,88)-(160,95)
4235 LINE(160,70)-(182,89)
4240 LINE-(175,87)
4245 PSET(178,87):PSET(179,87):PSET(177,86)
4250 PSET(177,87):PSET(175,88):PSET(176,88)
4255 LINE(177,85)-(174,88),0
4260 PSET(171,82):PSET(170,82):PSET(168,84):PSET(169,83):PSET(176,85)
4265 d=750:GOSUB 31000
4270 GOSUB 30000       '*** Textpad ***
4275 PRINT FNCEN$("Press <R> to review that fold.",40)
4280 d=1000:GOSUB 31000
4285 PRINT FNCEN$("Press <C> to continue.",40)
4290 A$=INKEY$:IF A$="" GOTO 4290
4295 IF A$="r" OR A$="R" GOTO 4310
4300 IF A$="c" OR A$="C" GOTO 4480
4305 GOTO 4270
4310 FOR A=0 TO 20
4315 OUT 66,A:OUT 66,A
4320 OUT 97,(INP(97) OR 3)
4325 NEXT A
4330 SOUND 37,0
4335 LINE(177,84)-(182,89),0
4340 LINE-(174,88),0
4345 LINE-(177,84),0
4350 PAINT(178,87),0
4355 LINE(160,30)-(107,133),0
4360 LINE-(160,170),0
4365 LINE-(115,130),0
4370 LINE-(137,80),0
4375 LINE-(160,70),0
4380 LINE-(160,30),0
4385 PAINT(150,60),0
4390 PAINT(112,133),0
4395 PAINT(152,68),0
4400 LINE(115,131)-(148,160),0
4405 LINE(160,30)-(115,130)
4410 LINE-(160,170)
4415 LINE(155,42)-(138,79),0
4420 LINE(160,30)-(137,80),0
4425 LINE(138,80)-(160,70)
4430 LINE-(195,100)
4435 LINE-(160,91)
4440 PAINT(178,90)
4445 LINE(195,100)-(138,80)
4450 LINE(195,100)-(138,80),0
4455 LINE(146,77)-(144,80)
4460 GOSUB 30000   '** Textpad **
4465 PRINT FNCEN$("* Review *",40)
4470 d=1500:GOSUB 31000
4475 GOTO 3810
4480 GOSUB 30000   '** Textpad **
4485 PRINT FNCEN$("For our next fold,",40)
4490 d=1500:GOSUB 31000
4495 GOSUB 30000   '** Textpad **
4500 PRINT FNCEN$("we fold and backfold this corner",40)
4505 d=750:GOSUB 31000
4510 FOR K=1 TO 15
4515 PSET(160,178):DRAW"G5R4D7R2U7R4H5"
4520 PAINT(160,184)
4525 d=25:GOSUB 31000
4530 CIRCLE(160,184),7,0
4535 PAINT(160,184),0
4540 NEXT K
4545 d=750:GOSUB 31000
4550 GOSUB 30000   '** Textpad **
4555 PRINT FNCEN$("up to this point",40)
4560 d=750:GOSUB 31000
4565 FOR K=1 TO 15
4570 CIRCLE(97,115),5
4575 LINE(95,115)-(99,115)
4580 LINE(97,113)-(97,117)
4585 d=25:GOSUB 31000
4590 CIRCLE(97,115),5,0
4595 LINE(95,115)-(99,115),0
4600 LINE(97,113)-(97,117),0
4605 NEXT K
4610 d=750:GOSUB 31000
4615 GOSUB 30000   '** Textpad **
4620 PRINT FNCEN$("along this line,",40)
4625 d=750:GOSUB 31000
4630 LINE(128,142)-(160,115)
4635 d=750:GOSUB 31000
4640 GOSUB 30000   '** Textpad **
4645 PRINT FNCEN$("Oops!  PENGUIN's flipper is in the way.",40)
4650 d=1500:GOSUB 31000
4655 GOSUB 30000   '** Textpad **
4660 PRINT FNCEN$("Let's move it out of the way",40)
4665 d=750:GOSUB 31000
4670 PRINT FNCEN$("for the time being.",40)
4675 d=1500:GOSUB 31000
4680 FOR Q=0 TO 5
4685 LINE(118,126)-(153-Q,126-Q),0
4690 LINE-(153,86),0
4695 NEXT Q
4700 LINE(128,142)-(160,115)
4705 d=750:GOSUB 31000
4710 GOSUB 30000   '** Textpad **
4715 PRINT FNCEN$("and fold!",40)
4720 d=750:GOSUB 31000
4725 FOR Q=0 TO 32
4730 LINE(128,142)-(160-Q,170-.88*Q)
4735 LINE-(160,115)
4740 LINE(128,142)-(160-Q,170-.88*Q),0
4745 LINE-(160,115),0
4750 LINE(160,115)-(128,142)
4755 NEXT Q
4760 FOR Q=0 TO 31
4765 LINE(128,142)-(128-Q,142-.87*Q)
4770 LINE-(160,115)
4775 LINE(128,142)-(128-Q,142-.87*Q),0
4780 LINE-(160,115),0
4785 LINE(160,115)-(128,142)
4790 LINE(117,125)-(119,129),0
4795 LINE(115,129)-(116,130),0
4800 PSET(122,136),0
4805 NEXT Q
4810 LINE(160,115)-(97,115)
4815 LINE-(128,142)
4820 PSET(125,114),0
4825 d=750:GOSUB 31000
4830 GOSUB 30000   '** Textpad **
4835 PRINT FNCEN$("and back down again!",40)
4840 d=750:GOSUB 31000
4845 FOR Q=0 TO 31
4850 LINE(128,142)-(97+Q,115+.87*Q)
4855 LINE-(160,115)
4860 LINE(128,142)-(97+Q,115+.87*Q),0
4865 LINE-(160,115),0
4870 LINE(160,115)-(128,142)
4875 LINE(122-.16*Q,114+.35*Q)-(148-.03*Q,114+.19*Q)
4880 NEXT Q
4885 LINE(117,125)-(115,130)
4890 LINE-(120,130)
4895 LINE-(123,125)
4900 PAINT(117,128)
4905 LINE(142,83)-(125,113)
4910 LINE(142,84)-(128,109)
4915 LINE(142,83)-(118,126),0
4920 LINE(119,127)-(121,127),0
4925 LINE(119,128)-(120,128),0
4930 PSET(120,129),0
4935 LINE(115,130)-(128,142)
4940 FOR Q=0 TO 32
4945 LINE(128,142)-(128+Q,142+.88*Q)
4950 LINE-(160,115)
4955 LINE(128,142)-(128+Q,142+.88*Q),0
4960 LINE-(160,115),0
4965 LINE(128,142)-(160,115)
4970 NEXT Q
4975 LINE(128,142)-(160,170)
4980 LINE-(160,115)
4985 d=750:GOSUB 31000
4990 FOR Q=0 TO 6
4995 LINE(118,126)-(147+Q,120+Q)
5000 LINE-(153,86)
5005 PSET(145,121)
5010 NEXT Q
5015 d=750:GOSUB 31000
5020 GOSUB 30000   '** Textpad **
5025 PRINT FNCEN$("Your turn to fold and backfold.",40)
5030 d=1500:GOSUB 31000
5035 GOSUB 30000       '*** Textpad ***
5040 PRINT FNCEN$("To review that fold, press <R>.",40)
5045 d=1000:GOSUB 31000
5050 PRINT FNCEN$("To continue, press <C>.",40)
5055 A$=INKEY$:IF A$="" GOTO 5055
5060 IF A$="r" OR A$="R" GOTO 5075
5065 IF A$="c" OR A$="C" GOTO 5135
5070 GOTO 5035
5075 FOR A=0 TO 20
5080 OUT 66,A:OUT 66,A
5085 OUT 97,(INP(97) OR 3)
5090 NEXT A
5095 SOUND 37,0
5100 LINE(128,142)-(160,115),0
5105 LINE(153,121)-(147,126)
5110 PSET(128,142):PSET(160,115):PSET(150,123)
5115 GOSUB 30000   '** Textpad **
5120 PRINT FNCEN$("* Review *",40)
5125 d=1500:GOSUB 31000
5130 GOTO 4480
5135 GOSUB 30000   '** Textpad **
5140 PRINT FNCEN$("Our final fold tucks that last fold",40)
5145 d=1500:GOSUB 31000
5150 GOSUB 30000   '** Textpad **
5155 PRINT FNCEN$("into this pocket,",40)
5160 d=750:GOSUB 31000
5165 FOR A=0 TO 20
5170 OUT 66,A:OUT 66,A
5175 OUT 97,(INP(97) OR 3)
5180 NEXT A
5185 SOUND 37,0
5190 LINE(137,81)-(109,130)
5195 LINE-(159,170)
5200 LINE-(114,130)
5205 PAINT(120,117)
5210 LINE(136,81)-(114,130),0
5215 LINE(115,130)-(160,170),0
5220 FOR K=1 TO 15
5225 PSET(105,125):DRAW"H5D4L7D2R7D4E5"
5230 PAINT(99,125)
5235 d=25:GOSUB 31000
5240 CIRCLE(99,125),7,0
5245 PAINT(99,125),0
5250 NEXT K
5255 d=750:GOSUB 31000
5260 GOSUB 30000   '** Textpad **
5265 PRINT FNCEN$("SO!",40)
5270 d=750:GOSUB 31000
5275 FOR A=0 TO 20
5280 OUT 66,A:OUT 66,A
5285 OUT 97,(INP(97) OR 3)
5290 NEXT A
5295 SOUND 37,0
5300 LINE(137,81)-(109,130),0
5305 LINE-(159,170),0
5310 LINE-(114,130),0
5315 LINE-(137,81),0
5320 PAINT(114,125),0
5325 LINE(126,102)-(123,108),0
5330 LINE(128,142)-(114,130)
5335 LINE-(97,115)
5340 LINE-(160,115)
5345 PAINT(115,120)
5350 LINE(137,81)-(114,130),0
5355 LINE(160,116)-(160,170),0
5360 PSET(125,115),0
5365 LINE(154,115)-(159,115),0
5370 d=750:GOSUB 31000
5375 GOSUB 30000       '*** Textpad ***
5380 PRINT FNCEN$("Press <R> to review that fold.",40)
5385 d=1000:GOSUB 31000
5390 PRINT FNCEN$("Press <C> to continue.",40)
5395 A$=INKEY$:IF A$="" GOTO 5395
5400 IF A$="r" OR A$="R" GOTO 5415
5405 IF A$="c" OR A$="C" GOTO 5495
5410 GOTO 5375
5415 FOR A=0 TO 20
5420 OUT 66,A:OUT 66,A
5425 OUT 97,(INP(97) OR 3)
5430 NEXT A
5435 SOUND 37,0
5440 LINE(120,115)-(97,115),0
5445 LINE-(114,129),0
5450 PAINT(110,120),0
5455 LINE(154,115)-(159,115),0
5460 LINE(128,142)-(160,170)
5465 LINE-(160,115)
5470 LINE(100,118)-(113,129),0
5475 GOSUB 30000   '** Textpad **
5480 PRINT FNCEN$("* Review *",40)
5485 d=1500:GOSUB 31000
5490 GOTO 5135
5495 GOSUB 30000   '** Textpad **
5500 PRINT FNCEN$("Our last task is to set PENGUIN",40)
5505 d=1000:GOSUB 31000
5510 PRINT FNCEN$("firmly on the ground,",40)
5515 d=1500:GOSUB 31000
5520 GOSUB 30000   '** Textpad **
5525 PRINT FNCEN$("SO!",40)
5530 d=750:GOSUB 31000
5535 FOR A=0 TO 20
5540 OUT 66,A:OUT 66,A
5545 OUT 97,(INP(97) OR 3)
5550 NEXT A
5555 SOUND 37,0
5560 CLS
5565 LINE(153,92)-(165,85)
5570 LINE-(164,78)
5575 LINE-(173,72)
5580 LINE-(148,77)
5585 LINE-(139,100)
5590 LINE-(156,144)
5595 LINE-(182,120)
5600 LINE-(153,92)
5605 PAINT(160,100)
5610 LINE(157,86)-(178,108)
5615 LINE-(178,149)
5620 LINE-(135,149)
5625 LINE-(152,134)
5630 LINE(139,101)-(158,149)
5635 LINE(159,148)-(163,144)
5640 LINE-(160,140)
5645 PAINT(150,145):PAINT(160,142)
5650 LINE(139,100)-(165,86),0
5655 LINE-(165,74),0
5660 LINE(143,98)-(159,143),0
5665 LINE-(165,144),0
5670 LINE(138,101)-(158,149),0
5675 PSET(161,143),0
5680 LINE(159,142)-(182,121),0
5685 LINE(160,142)-(161,142),0
5690 d=750:GOSUB 31000
5695 GOSUB 30000   '** Textpad **
5700 PRINT FNCEN$("And there we have it!",40)
5705 d=750:GOSUB 31000
5710 GOSUB 30000   '** Textpad **
5715 PRINT FNCEN$("PENGUIN",40)
5720 d=750:GOSUB 31000
5725 GOSUB 30000   '** Textpad **
5730 PRINT FNCEN$("Mission accomplished!",40)
5735 d=750:GOSUB 31000
5740 GOSUB 30000                '*** Textpad ***
5745 PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
5750 PRINT FNCEN$("   <2> - To repeat PENGUIN.",40)
5755 PRINT FNCEN$("      <3> - To exit from program.",40)
5760 E$=INPUT$(1)
5765 IF E$<"1" OR E$>"3" GOTO 5760
5770 SEL=VAL(E$)
5775 COMMON SEL
5780 CLS
5785 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
5786 LINE(70,75)-(250,125),3,B
5790 ON SEL GOTO 5795,5800,5805
5795 CHAIN"main"
5800 CHAIN"penguin
5805 CHAIN"end"
5810 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