10 DEG 
12 REWIND 
15 DISP "THANKS FOR WAITING!"
16 WAIT 3000
20 SCALE 0,380,0,250
30 PLOT 200,50,1
40 PLOT 350,50,2
50 PLOT 350,200,2
60 PLOT 200,200,2
70 PLOT 200,50,2
80 PLOT 350,140,1
90 PLOT 340,140,2
100 PLOT 328,102,2
110 PLOT 330,100,2
120 PLOT 350,100,2
130 PLOT 340,100,2
140 PLOT 340,70,2
150 PLOT 350,70,2
160 PLOT 350,80,1
170 PLOT 343,80,2
180 PLOT 343,90,1
190 PLOT 350,90,2
200 PLOT 350,102,1
210 PLOT 328,102,2
220 PLOT 335,113,1
230 PLOT 350,113,2
240 PLOT 350,127,1
250 PLOT 340,127,2
260 PLOT 235,110,1
270 PLOT 235,108,2
280 PLOT 245,107,2
290 PLOT 248,105,2
300 PLOT 245,107,2
310 PLOT 245.7,105,2
320 PLOT 235,107,2
330 PLOT 233.5,108,2
340 PLOT 235,108,2
350 PLOT 235,107,1
360 PLOT 234,105,2
370 PLOT 233,102,2
380 PLOT 232,89,2
390 PLOT 231,83,2
400 PLOT 230.5,81,2
410 PLOT 229,79,2
420 PLOT 228.5,77,2
430 PLOT 229,74,2
440 PLOT 229,69,2
450 PLOT 232,68,2
460 PLOT 235,67.5,2
470 PLOT 237,67,2
480 PLOT 246,67,2
490 PLOT 252,67,2
500 PLOT 260,68,2
510 PLOT 259,75,2
520 PLOT 257,78,2
530 PLOT 257,83,2
540 PLOT 255,88,2
550 PLOT 253,91,2
560 PLOT 250,99,1
570 PLOT 245,107,2
580 PLOT 244,110,2
590 PLOT 232,89,1
600 PLOT 235,85,2
610 PLOT 238,89,2
620 PLOT 242,85,2
630 PLOT 245,89,2
640 PLOT 249,85,2
650 PLOT 252,89,2
660 PLOT 255,85,2
670 PLOT 255,88,2
680 PLOT 231,83,1
690 PLOT 235,79,2
700 PLOT 238,83,2
710 PLOT 242,80,2
720 PLOT 245,84,2
730 PLOT 249,80,2
740 PLOT 252,84,2
750 PLOT 255,81,2
760 PLOT 257,83,2
770 PLOT 229,74,1
780 PLOT 233,73,2
790 PLOT 237,72,2
795 DISP "      BOGGLE"
796 DISP " "
797 WAIT 100
798 DISP "      BOGGLE"
800 PLOT 243,72,2
810 PLOT 250,72.5,2
820 PLOT 259,75,2
830 PLOT 237,67,1
840 PLOT 237,63,2
850 PLOT 235,62,2
860 PLOT 234,61,2
870 PLOT 234,60,2
880 PLOT 240,59.5,2
890 PLOT 258,61,2
900 PLOT 252,63,2
910 PLOT 246,64,2
920 PLOT 241,64,2
930 PLOT 237,63,2
940 PLOT 237,65,1
950 PLOT 246,65,2
960 PLOT 246,66,2
970 PLOT 252,66,2
980 PLOT 246,67,1
990 PLOT 246,64,2
1000 PLOT 252,67,1
1010 PLOT 252,64,2
1020 PLOT 261,61,2
1030 PLOT 258,61,2
1040 PLOT 236,76,1
1050 PLOT 247,79,2
1060 PLOT 239,76,1
1070 PLOT 252,79,2
1080 PLOT 240,93,1
1090 PLOT 244,90,2
1100 PLOT 248,89,2
1110 PLOT 251,90,2
1120 PLOT 253,91,2
1125 DISP "      BOGGLE"
1126 WAIT 100
1130 PLOT 255,93,2
1140 PLOT 257,96,2
1150 PLOT 258,95,2
1160 PLOT 259.5,96,2
1170 PLOT 258,98,2
1180 PLOT 260,96.5,2
1190 PLOT 261,98,2
1200 PLOT 259,99,2
1210 PLOT 262,99,2
1220 PLOT 262,101,2
1230 PLOT 259,101,2
1240 PLOT 262,103,2
1250 PLOT 261,104,2
1260 PLOT 258,102,2
1270 PLOT 257,105,2
1280 PLOT 255.5,104,2
1290 PLOT 256,102,2
1300 PLOT 254,100,2
1310 PLOT 250,99,2
1320 PLOT 247,98,2
1330 PLOT 241,100,2
1340 PLOT 244,90,1
1350 PLOT 246,98,2
1360 PLOT 235,110,1
1370 PLOT 231,112,2
1380 PLOT 228,114,2
1390 PLOT 225,116.5,2
1400 PLOT 223,120,2
1410 PLOT 221,123,2
1420 PLOT 220,127,2
1430 PLOT 220,133,2
1440 PLOT 218,133,2
1450 PLOT 217,136,2
1460 PLOT 220,134,1
1470 PLOT 218,137,2
1480 PLOT 220.5,135,1
1490 PLOT 219,139,2
1500 PLOT 220.5,135,2
1510 PLOT 222,139,2
1520 PLOT 224,142,2
1530 PLOT 226,144,2
1540 PLOT 228,146,2
1550 PLOT 231,148,2
1560 PLOT 234,149,2
1570 PLOT 238,150,2
1580 PLOT 242,150,2
1590 PLOT 246,149,2
1600 PLOT 249,148,2
1610 PLOT 252,146,2
1620 PLOT 257,142,2
1630 PLOT 261,128,2
1640 PLOT 264,127,2
1650 PLOT 264.5,125,2
1660 PLOT 263.5,123.5,2
1670 PLOT 259,124.5,2
1680 PLOT 259,122,2
1690 PLOT 258,119,2
1700 PLOT 257,117,2
1710 PLOT 255,115,2
1720 PLOT 251,113,2
1730 PLOT 244,110,2
1740 PLOT 239,119,1
1750 PLOT 245,118,2
1760 PLOT 250,117,2
1770 PLOT 257,117,2
1780 PLOT 240,132,1
1790 PLOT 238,133,2
1800 PLOT 235,132,2
1810 PLOT 233,130,2
1820 PLOT 234.5,127,2
1830 PLOT 237,126.5,2
1840 PLOT 239,128,2
1850 PLOT 250,131,1
1860 PLOT 250,129,2
1870 PLOT 252,127,2
1880 PLOT 255,127,1
1890 PLOT 253,129,2
1900 PLOT 252.5,131,2
1910 PLOT 253,134,2
1920 PLOT 255,135,1
1930 PLOT 261,134,2
1940 PLOT 257,142,1
1950 PLOT 258,143,2
1960 PLOT 261,141,2
1970 PLOT 259,131,1
1980 PLOT 258,129,2
1990 PLOT 258,130,2
2000 PLOT 259,131,2
2010 PLOT 259,129,2
2020 PLOT 258,129,2
2030 PLOT 258,95,1
2040 PLOT 262,94,2
2050 PLOT 268,93,2
2060 PLOT 275,93,2
2070 PLOT 280,93,2
2080 PLOT 290,94,2
2090 PLOT 296,96,2
2100 PLOT 292,108,2
2110 PLOT 278,108,2
2120 PLOT 269,108,1
2130 PLOT 257,107,2
2140 PLOT 257,105,2
2150 PLOT 257,107,2
2160 PLOT 260,106,2
2170 PLOT 267,105,2
2180 PLOT 275,105,2
2190 PLOT 281,106,2
2200 PLOT 292,108,2
2210 PLOT 267,105,1
2220 PLOT 269,108,2
2230 PLOT 271,111,2
2240 PLOT 270,111,2
2250 PLOT 278,111,2
2260 PLOT 278,113,2
2270 PLOT 270,113,2
2280 PLOT 270,111,2
2290 PLOT 276,111,2
2300 PLOT 278,108,2
2310 PLOT 281,106,2
2320 PLOT 271,113,1
2330 PLOT 271,119,2
2340 PLOT 270,125,2
2350 PLOT 268,130,2
2360 PLOT 266,134,2
2370 PLOT 265,138,2
2380 PLOT 264,143,2
2390 PLOT 265,147,2
2400 PLOT 266.5,150,2
2410 PLOT 266.5,154,2
2420 PLOT 266,157,2
2430 PLOT 267,160,2
2440 PLOT 269,165,2
2450 PLOT 272,168,2
2460 PLOT 269,165,2
2470 PLOT 270,163,2
2480 PLOT 270,157,2
2490 PLOT 268,152,2
2500 PLOT 266.5,150,2
2510 PLOT 268,152,2
2520 PLOT 273,151,2
2530 PLOT 278,150,2
2540 PLOT 289,145,2
2550 PLOT 288,143,2
2560 PLOT 289,145,2
2570 PLOT 295,142,2
2580 PLOT 292,141,2
2590 PLOT 295,142,2
2600 PLOT 297,141,2
2610 PLOT 295,139,2
2620 PLOT 291,138.5,2
2630 PLOT 289,139,2
2640 PLOT 284,142,2
2650 PLOT 275,148,2
2660 PLOT 297,141,1
2670 PLOT 298,140,2
2680 PLOT 296,138,2
2690 PLOT 293,137,2
2700 PLOT 291,137,2
2710 PLOT 282,142,2
2720 PLOT 285,138,2
2730 PLOT 287,134,2
2740 PLOT 287.5,131,2
2750 PLOT 287,128,2
2760 PLOT 285,124,2
2770 PLOT 277,113,2
2780 PLOT 287,131,1
2790 PLOT 285,129,2
2800 PLOT 282,129,2
2810 PLOT 277,131,2
2820 PLOT 277,117,1
2830 PLOT 277,131,2
2840 PLOT 276,134,2
2850 PLOT 274,135,2
2860 PLOT 272,135,2
2870 PLOT 271,134,2
2880 PLOT 272,133,2
2890 PLOT 271,134,2
2900 PLOT 270,134,2
2910 PLOT 267,137,2
2920 PLOT 270,134,2
2930 PLOT 270,132,2
2940 PLOT 272,132,2
2950 PLOT 270,132,2
2960 PLOT 270.5,130,2
2970 PLOT 272,131,2
2980 PLOT 270.5,130,2
2990 PLOT 271.5,129,2
3000 PLOT 273,130,2
3010 PLOT 273,117,2
3020 PLOT 271,119,1
3030 PLOT 272,123,2
3040 PLOT 271.5,126,2
3050 PLOT 268,130,2
3060 PLOT 220,200,1
3070 PLOT 215,198,2
3075 DISP "   THE MIND BOGGLES!!!"
3076 WAIT 1000
3080 PLOT 210,195,2
3090 PLOT 206,190,2
3100 PLOT 205,185,2
3110 PLOT 206,180,2
3120 PLOT 210,175,2
3130 PLOT 215,172,2
3140 PLOT 225,170,2
3150 PLOT 240,170,2
3160 PLOT 242,155,2
3170 PLOT 244,170,2
3180 PLOT 264,170,2
3190 PLOT 270,172,2
3200 PLOT 275,174,2
3210 PLOT 279,178,2
3220 PLOT 282,183,2
3230 PLOT 282,188,2
3240 PLOT 280,193,2
3250 PLOT 277,196,2
3260 PLOT 270,200,2
3270 PLOT 210,182,1
3280 LABEL (3290,2,2,0)"GOOD GRIEF!"
3290 FORMAT F9.2
4000 U=1
4005 R=0.6428793333
4010 P=0
4020 FOR X=200 TO 350 STEP 1
4030 IF P=0 THEN 4080
4040 PLOT X,57,U
4050 P=0
4060 NEXT X
4080 R=(29*R-INT(29*R))
4090 PLOT X,10*R+57,U
4100 U=2
4105 P=1
4110 NEXT X
4130 PLOT 20,220,1
4140 LABEL (3290,8,3,0)"SNOOPY FOR PRESIDENT!"
4150 PLOT 60,20,1
4160 LABEL (3290,2,2,0)"DRAWN ON HEWLETT-PACKARD 9800 DATA SYSTEM"
4170 PLOT 0,0,1
4180 DISP "TRY THAT ON A TYPEWRITER!"
4190 WAIT 7000
4200 DISP "THAT'S ALL FOLKS !"
4210 WAIT 2000
4220 DISP "BACK TO YOUR OWN BEDS NOW!"
4230 WAIT 4000
4240 END 
4250 END