5 'SAVE"B:GRAPHICS"
10 GOTO 85
15 DR=INT(RND*8)+1:PLAY "mbl14o3n"+STR$(INT(RND*50)):PRESET (XA(T),YA(T)):T=T+1:IF T>200 THEN T=1
20 IF FNTM(TIME$)>TIME THEN 220
25 RETURN
30 XA(H)=X:YA(H)=Y
35 X=X+XD(DR):Y=Y+YD(DR)
40 IF POINT(X,Y)>0 THEN GOSUB 15:X=XA(H):Y=YA(H):GOTO 35 ELSE PSET(X,Y):PRESET (XA(T),YA(T)):H=H+1:T=T+1:IF H>200 THEN H=1
45 IF T>200 THEN T=1:GOTO 30 ELSE GOTO 30
50 GOTO 30
55 XA(H)=X:YA(H)=Y:X=X+XD(DR):Y=Y+YD(DR)
60 IF POINT (X,Y)>0 THEN X=XA(H):Y=YA(H):DR=INT(RND*8)+1:GOTO 55
65 PSET (X,Y):H=H+1
70 IF H>200 THEN H=1
75 T=3
80 GOTO 30
85 KEY OFF:SCREEN 1:DEF SEG=&HB800
90 DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
95 CLS:DEFINT A-Z
100 DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
105 X=0:Y=0:DR=1:H=0:T=0
110 DEF FNXY(A,B)=A*2+1+B*80
115 COLOR 0,1
120 DIM YD(8),XD(8)  ' X&Y DIR. INCRS
125 DIM XA(200),YA(200) ' X,Y VALUES
130 RANDOMIZE FNTM(TIME$):ON INT(RND*2)+1 GOTO 135,145
135 BLOAD "B:WORM.PIC",0:GOTO 150
140 'BLOAD "WORM1.PIC",0:GOTO 150
145 BLOAD "B:WORM2.PIC",0
150 FOR I=1 TO 8:READ XD(I):NEXT I
155 FOR I=1 TO 8:READ YD(I):NEXT I
160 H=1:J=2
165 X=RND*315:Y=RND*184:IF POINT(X,Y)=0 THEN PSET (X,Y) ELSE 165
170 PT=PT+1:IF PT<301 THEN 165
175 H=1
180 T=2:DR=INT(RND*8)+1
185 X=RND*300
190 Y=RND*150
195 IF POINT(X,Y)>0 THEN 185
200 TIME=FNTM(TIME$)+30: IF TIME>3600 THEN TIME=30
205 GOTO 55
210 DATA 0,1,1,1,0,-1,-1,-1:' x incrs
215 DATA -1,-1,0,1,1,1,0,-1:' y incrs
220 REM
499 'SAVE "B:PICTURES"
500 '
510 'PICTURES
520 '
530 DIM NM1$(15): CNT=0: SCREEN 1,0: DEF SEG=&HB800: KEY OFF
540 FOR I=1 TO 15: READ NM1$(I): IF NM1$(I)="" THEN 560
550 NEXT I
560 I=I-1
570 J=RND*I+1: IF NM1$(J)="" THEN 570
575 IF NM1$(J)="MOUNTX" THEN COLOR 0,1 ELSE COLOR 1,0
580 CLS: BLOAD "B:"+NM1$(J)+".PIC",0: NM1$(J)=""
590 FOR K=1 TO 3000: NEXT K
600 CNT=CNT+1: IF CNT<4 THEN 570
610 GOTO 700
620 DATA COMPLEX1
625 'DATA HEX
630 DATA EGGS
635 DATA MOUNTX
640 DATA FLOWERS
645 'DATA CHECKERS
650 'DATA PALETTE
655 'DATA PALETTE2
660 DATA QUILT
665 DATA ""
700 KEY OFF
705 SCREEN 1,0
710 CLS
715 IF 2*RND>1 THEN COLOR 0,0 ELSE COLOR 0,1
720 FOR N=1 TO 3
725 FOR X=0 TO 320 STEP N*(RND*3)+(RND*N)+1
730 J=N
735 'IF N=4 THEN J=0
740 LINE (0,200)-(X,0),J
745 LINE (320,200)-(320-X,0),J
750 LINE (0,0)-(X,200),J
755 LINE (320,0)-(320-X,200),J
760 NEXT:NEXT
770 FOR N=1 TO 2000:NEXT
900 REM SAVE"B:EYESORE
905 DEFINT J-L: PLAY "MF"
910 DIM J(40),L(40)
915 CLS
920 SCREEN 1,0
925 COLOR 0,0
930 REM
935 REM ********************************
940 REM
945 REM CLEAR KEY AREA
950 REM
955 REM ********************************
960 REM
965 DRAW "C0M1,192M320,192M320,200M1,200M1,193M319,193M319,199M2,199M2,194M318,194M318,198M3,198M3,195M317,195M317,197M4,197M4,196M316,196M160,100"
970 REM
975 REM *******************************
980 REM
985 REM SETUP DRAW STRINGS
990 REM
995 REM                (S$ STRING)
1000 REM
1005 REM *******************************
1010 REM
1015 S$="C0M151,100C1M153,98M156,96M159,95M161,95M164,96M167,98M169,100M167,102M164,104M161,105M159,105M156,104M153,102M151,100M152,100C0M156,99"
1020 REM
1025 REM *******************************
1030 REM
1035 REM                (T$ STRING)
1040 REM
1045 REM *******************************
1050 REM
1055 T$="C3M156,99C2M157,97M159,96M161,96M163,97M164,99M164,101M163,103M161,104M159,104M157,103M156,101M156,99M157,99C0M158,99"
1060 REM
1065 REM *******************************
1070 REM
1075 REM                (U$ STRING)
1080 REM
1085 REM *******************************
1090 REM
1095 U$="C1M158,99C3M159,98M161,98M162,99M162,101M161,102M159,102M158,101M158,99"
1100 REM
1105 REM *******************************
1110 REM
1115 REM MAINLINE PROGRAM
1120 REM
1125 REM *******************************
1130 REM
1135 DRAW S$
1140 SOUND 300,10
1145 FOR Z=1 TO 1000:NEXT
1150 PAINT (159,96),3,1
1155 SOUND 320,10
1160 FOR Z=1 TO 1000:NEXT
1165 DRAW T$
1170 SOUND 340,10
1175 FOR Z=1 TO 1000:NEXT
1180 PAINT (158,98),1,2
1185 SOUND 360,10
1190 FOR Z=1 TO 1000:NEXT
1195 DRAW U$
1200 SOUND 380,10
1205 FOR Z=1 TO 1000:NEXT
1210 PAINT (160,100),2,3
1215 SOUND 400,10
1220 FOR Z=1 TO 1000:NEXT
1225 GET (150,94)-(170,106),J
1230 GET (100,94)-(120,106),L
1235 FOR K=1 TO 3000:NEXT
1240 PUT (180,94),J
1245 SOUND 760,4
1250 FOR K=1 TO 3000:NEXT
1255 FOR I=1 TO 13
1260 PUT (180,81+I),L,AND
1265 SOUND (14-I)*37,2
1270 FOR Z=1 TO 80:NEXT
1275 NEXT I
1280 SOUND 54,30
1285 FOR I=1 TO 3000:NEXT
1290 PUT (180,94),J
1295 SOUND 760,4
1300 FOR I=1 TO 3000:NEXT I
1305 X2 = 150
1310 Y2 = 94
1315 FOR I = 1 TO 50
1320 X1 = RND*260+1
1325 Y1 = RND*186+1
1330 SOUND X1+Y1+37,1
1335 PUT (X1,Y1),J
1340 PUT (X1+30,Y1),J
1345 PUT (X2,Y2),J,XOR
1350 PUT (X2+30,Y2),J,XOR
1355 X2 = X1
1360 Y2 = Y1
1365 NEXT I
1370 FOR I = 1 TO 3000:NEXT
1375 FOR I=1 TO 13
1380 Y3=Y2+I
1382 LINE (X2,Y3)-(X2+50,Y3),0
1385 'PUT (X2,Y3),L,AND
1390 'PUT (X2+30,Y3),L,AND
1395 'SOUND (14-I)*37,3
1400 'FOR Z=1 TO 100:NEXT
1405 NEXT I
1410 'FOR Z=1 TO 1000:NEXT
1415 'SOUND 74,10
1420 'SOUND 111,10
1425 'SOUND 148,10
1430 'SOUND 185,10
1435 'SOUND 222,10
1440 FOR Z=1 TO 2000:NEXT
1445 FOR K=2 TO 20 STEP 2
1450 SOUND K*37,70
1455 FOR I=1 TO 150 STEP K
1460 IF I6 GOTO 1605
1595 SOUND (14-I)*37,30
1600 FOR Z=1 TO 2000:NEXT
1605 SOUND (14-I)*37,3
1610 FOR Z=1 TO 180:NEXT
1615 NEXT I
1620 SOUND 37,30
1625 FOR I=1 TO 6000:NEXT
1630 'FOR I=1 TO 281 STEP 40
1635 'FOR K=11 TO 179 STEP 28
1640 'PUT (I,K),J
1645 'NEXT K
1650 'SOUND I*5+37,2
1655 'FOR Z=1 TO 60:NEXT
1660 'NEXT I
1665 'SOUND 380,20
1670 'FOR I=1 TO 2000:NEXT
1675 'FOR K=0 TO 168 STEP 28
1680 'FOR I=1 TO 281 STEP 40
1685 'SOUND I*7+111,3
1690 'FOR Z=1 TO 60:NEXT
1695 'FOR H=1 TO 13
1700 'PUT (I,K+H),L,AND
1705 'NEXT
1710 'NEXT:NEXT
1715 'SOUND 400,5
1720 'SOUND 360,5
1725 'SOUND 360,5
1730 'SCREEN 0,0,0
1735 'END
1800 'SAVE "SQRSQR"
1805 DEFSNG M-Z,A-H:DEFINT I-N:KEY OFF:SCREEN 1,0:BL$=" ":ESC$=CHR$(27):C=3:DIM A(3):A(1)=1:A(2)=5:A(3)=3
1810 RANDOMIZE VAL(RIGHT$(TIME$,2))
1815 CLS:COLOR A(INT(4*RND)),INT(2*RND)
1820 N=INT(27*RND+4):XSTART=0:YSTART=0:HEIGHT=199:WID=319
1825 '
1830 IF N>20 THEN K=5 ELSE IF N>10 THEN K=3 ELSE K=2
1835 FOR I=N+1 TO K STEP -1
1840 XSIZE=WID/I:YSIZE=HEIGHT/I:Y=YSTART
1845 X=XSTART:XP=X+XSIZE:XPPP=X+WID:XPP=XPPP-XSIZE
1850  FOR J=1 TO I:YP=Y+YSIZE:LINE(X,Y)-(XP,YP),C,B:LINE(XPP,Y)-(XPPP,YP),C,B:Y=YP:NEXT J
1855 X=X+XSIZE
1860 Y=YSTART:YP=Y+YSIZE:YPPP=Y+HEIGHT:YPP=YPPP-YSIZE
1865  FOR J=1 TO I-2:XP=X+XSIZE:LINE(X,Y)-(XP,YP),C,B:LINE(X,YPP)-(XP,YPPP),C,B:X=XP:NEXT J
1870 XSTART=XSTART+XSIZE:YSTART=YSTART+YSIZE:HEIGHT=HEIGHT-2*YSIZE:WID=WID-2*XSIZE
1875 NEXT I
1880 C=C+1:IF C>3 THEN C=1
1885 FOR I=1 TO 80:NEXT I
1890 IF C=1 THEN 1815
1895 'IF INKEY$="" THEN 140 ELSE 15
2000 SCREEN 1
2005 COLOR 1,0
2010 CLS
2015 LINE (0,80)-(319,199),0,BF
2020 DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
2025 PAINT (158,89),4,2
2030 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
2035 PAINT (121,76),4,2
2040 DRAW "s4;bm110,130;c2;r75"
2045 DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
2050 DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
2055 PAINT (178,8),4,2
2060 FOR Q= 1 TO 1000:NEXT Q
2065 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2070 PAINT (129,145),4,2
2075 FOR Q= 1 TO 1000:NEXT Q
2080 DRAW "s3;bm150,195;c2;r45;u9;l30;M+30,-30;U15;M-18,-18;L14;M-15,+15;D9;R11;U7;M+8,-8;R7;M+10,+10;D14;M-35,+35;D5;
2085 PAINT (151,194),4,2
2090 DRAW "s3;bm205,155;c2;d25;m+10,-10;m+10,+10;u25;l6;d10;m-5,-5;m-5,+5;u10;l5;"
2095 PAINT (206,156),4,2
2100 DRAW "s3;bm225,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u10;l18;"
2105 DRAW "s3;bm230,157;d4;r6;u4;l6;"
2110 PAINT (226,156),4,2
2115 DRAW "s3;bm245,155;c2;d25;r20;u25;l20;"
2120 DRAW "s3;bm250,158;c2;d15;r8;u15;l8;"
2125 PAINT (246,156),4,2
2130 DRAW "s3;bm265,155;c2;d25;r7;u10;m+10,+10;r5;u25;l6;d10;m-10,-10;l5;
2135 PAINT (266,156),4,2
2140 DRAW "s3;bm287,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;
2145 PAINT (289,156),4,2
2150 DRAW "s3;bm307,155;c2;d17;r4;u17;l4;
2155 PAINT (308,156),4,2
2160 DRAW "s3;bm307,170;c2;d4;r4;u4;l4;
2165 PAINT (308,171),4,2
2170 PLAY"t36;o1;l10;c
2175 FOR Q=1 TO 2000:NEXT
2200 SCREEN 1
2205 COLOR 1,0
2210 CLS
2215 LINE (0,80)-(319,199),0,BF
2220 DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
2225 PAINT (158,89),4,2
2230 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
2235 PAINT (121,76),4,2
2240 DRAW "s4;bm110,130;c2;r75"
2245 DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
2250 DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
2255 PAINT (178,8),4,2
2260 FOR Q= 1 TO 600:NEXT Q
2265 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2270 PAINT (129,145),4,2
2275 FOR Q= 1 TO 600:NEXT Q
2280 DRAW "s6;bm170,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2285 PAINT (129,145),4,2
2290 PAINT (169,145),4,2
2295 DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2300 PAINT (129,145),4,2
2305 DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
2310 DRAW "s2;bm210,160;c2;u6;r8;d6;l8
2315 PAINT (206,155),4,2
2320 DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
2325 PAINT (226,156),4,2
2330 DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
2335 PAINT (236,156),4,2
2340 DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
2345 PAINT (256,156),4,2
2350 DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
2355 PAINT (276,156),4,2
2360 DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
2365 PAINT (306,156),4,2
2370 DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
2375 PAINT (306,173),4,2
2380 PLAY "t45;o3;l32;dgb"
2385 PLAY "o4;d
2390 PLAY "p30"
2395 PLAY "o3;b
2400 PLAY "o4;l8;d
2405 FOR W = 1 TO 1500
2410 NEXT W
2415 CLS
2420 LINE (0,80)-(319,199),0,BF
2425 DRAW "s6;bm159,10;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2430 PAINT (155,30),4,2
2435 DRAW "s6;bm159,70;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
2440 PAINT (155,90),4,2
2445 DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
2450 PAINT (121,76),4,2
2455 DRAW"s4;bm110,130;c2;r75"
2460 FOR Q= 1 TO 600:NEXT Q
2465 DRAW "s3;bm140,195;c2;r45;u9;l30;m+30,-30;u15;m-18,-18;l14;m-15,+15;d9;r11;u7;m+8,-8;r7;m+10,+10;d14;m-35,+35;d5;"
2470 PAINT (141,194),4,2
2475 DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
2480 DRAW "s2;bm210,160;c2;u6;r8;d6;l8
2485 PAINT (206,155),4,2
2490 DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
2495 PAINT (226,156),4,2
2500 DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
2505 PAINT (236,156),4,2
2510 DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
2515 PAINT (256,156),4,2
2520 DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
2525 PAINT (276,156),4,2
2530 DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
2535 PAINT (306,156),4,2
2540 DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
2545 PAINT (306,173),4,2
2550 PLAY "t45;o3;l32;dgb"
2555 PLAY "o4;d
2560 PLAY "p30"
2565 PLAY "o3;b
2570 PLAY "o4;l8;d
2575 FOR W = 1 TO 1500
2580 NEXT W
2600 SCREEN 1
2605 COLOR 0,0
2610 CLS
2615 KEY OFF
2620 DRAW"bm150,20;c3;d80;m+7,+7;m+7,-7;u80;l13;
2625 PAINT (152,21),3,3
2630 DRAW"BM150,100;c0;r14;bd5;bl4;bl5;bl1;bu5;u80;br6;d80;bd1;br2;l10;br1;bd1;r8;bl1;bd1;l6;bd1;br1;r4
2635 DRAW"bm150,19;c1;u9;r14;d9;l14
2640 PAINT (152,18),1,1
2645 DRAW"bm150,19;c0;bu9;r14;bd9;l14
2650 FOR Z = 1 TO 17
2655 PRINT
2660 NEXT Z
2665 PRINT "     SPELL THE NAME OF THIS OBJECT "
2670 PRINT:PRINT
2675 FOR X= 1 TO 1500:NEXT X
2680 PRINT "                P";
2685 FOR X= 1 TO 300:NEXT X
2690 PRINT "E";
2695 FOR X= 1 TO 300:NEXT X
2700 PRINT "N";
2705 FOR X= 1 TO 300:NEXT X
2710 PRINT "C";
2715 FOR X= 1 TO 300:NEXT X
2720 PRINT "I";
2725 FOR X= 1 TO 300:NEXT X
2730 PRINT "L";
2735 PRINT:PRINT:PRINT"                RIGHT! "
2740 FOR W = 1 TO 1500
2745 NEXT W
3000 ' START.BAS    SYSTEM STARTUP ROUTINE     6/9/81 PBK
3005 KEY OFF
3010 DIM A$(15),P$(15):SCREEN 0,1:WIDTH 40:COLOR 15,1,1:LOCATE ,,0
3015 GREEN=2: BLUE=1: CYAN=3: YELLOW=6 ELSE GREEN=7: BLUE=0: CYAN=7: YELLOW=7
3020 A$(13)= "       Personal Computer     "
3025 A$(1)=SPACE$(39):A$(2)=A$(1):A$(11)=A$(1):A$(12)=A$(1):A$(14)=A$(1):A$(15)=A$(1)
3030  A$(1)= "          The             "
3035  A$(3)= "????  ??????   ??       ??"
3040  A$(4)= "????  ???????  ???     ???"
3045  A$(5)=" ??    ??  ??   ???   ??? "
3050  A$(6)=" ??    ?????    ???? ???? "
3055  A$(7)=" ??    ?????    ????????? "
3060  A$(8)=" ??    ??  ??   ?? ??? ?? "
3065  A$(9)="????  ???????  ???  ?  ???"
3070 A$(10)="????  ??????   ???  ?  ???"
3075 CLS
3080 FOR I = 2 TO 40
3085 FOR J = 3 TO 10
3090 LOCATE J+5,I:PRINT "?";
3095 NEXT J:SOUND 100+RND*3000,1:NEXT I
3100 FOR I = 1 TO 7
3105 FOR J = 3 TO 10
3110 LOCATE J+5,I:PRINT " ";
3115 NEXT J:SOUND 100+RND*3000,1:NEXT I
3120 FOR I=8 TO 33:FOR J=3 TO 10:IF MID$(A$(J),I-7,1)=" "THEN LOCATE J+5,I:PRINT " ";
3125 NEXT J:SOUND 100+RND*3000,1:NEXT I
3130 FOR I = 34 TO 40
3135 FOR J = 3 TO 10
3140 LOCATE J+5,I:PRINT " ";
3145 NEXT J:SOUND 100+RND*3000,1:NEXT I
3150 GOTO 3165
3155 FOR I=2 TO 12
3160 COLOR 15,BLUE:LOCATE I+5,5: PRINT SPACE$(3)+A$(I)+SPACE$(3): NEXT
3165 COLOR 15,BLUE:LOCATE 1+5,6: PRINT SPACE$(3)+A$(1)+SPACE$(3)
3170 SOUND 100+RND*3000,1
3175 COLOR 15,BLUE:LOCATE 13+5,2: PRINT SPACE$(3)+A$(13)
3180 SOUND 100+RND*3000,4
3185 FOR I=1 TO 3000:NEXT
3200 KEY OFF:DEFSNG S,A:SCREEN 1,0:COLOR 0,0:CLS:X=160:Y=100
3205 FOR T=1 TO 200:CIRCLE(RND*300,RND*300),RND*.5,3:NEXT T
3210 CIRCLE (X,Y),50,1
3215 PAINT (X,Y),3,1
3220 FIRST =0:LAST=10:CLR=1:SET = 2.2:ANG =1:GOSUB 3240
3225 FIRST=14:LAST=22:CLR=2:SET=2.05:ANG=1.1:GOSUB 3240
3230 FIRST=31:LAST=48:CLR=1:SET=1.95:ANG=1.2:GOSUB 3240
3235 GOTO 3260
3240 FOR RING=FIRST TO LAST
3245 CIRCLE(X,Y),85+RING,CLR,SET,ANG,.2
3250 NEXT RING
3255 RETURN
3260 FOR I=1 TO 3000:NEXT:DEFINT S,A
3300 SCREEN 1,0
3305 COLOR 0,1
3310 CLS
3315 KEY OFF
3320 PRINT"              PROFITS-1980"
3325 DRAW "S3;bm32,40;c3;d194;r372;u194;l372;"
3330 DRAW "S3;bm33,40;c3;d193;r370;u193;l371;"
3335 DRAW"s3;bm82,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
3340 DRAW"s3;bm81,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
3345 PRINT"             (IN THOUSANDS)":PRINT:
3350 PRINT"     JAN   FEB  MARCH APRIL  MAY  JUNE"
3355 PRINT:PRINT" 90":PRINT:PRINT" 80":PRINT:PRINT" 70":PRINT:PRINT" 60":PRINT:PRINT" 50":PRINT:PRINT" 40":PRINT:PRINT" 30":PRINT:PRINT" 20":PRINT:PRINT" 10":
3360 FOR P=1 TO 500
3365 NEXT P
3370 LINE (35,80)-(78,182),1,BF
3375 LINE (84,67)-(124,182),1,BF
3380 LINE (131,95)-(170,182),1,BF
3385 LINE (177,87)-(216,182),1,BF
3390 LINE (222,60)-(262,182),1,BF
3395 LINE (268,72)-(308,182),1,BF
3400 FOR X = 1 TO 1000
3405 NEXT X
3410 FOR I=1 TO 3000:NEXT
9900 CHAIN "B:TEXT"