Listing of file='RA.BAS;01' on disk='vmedia/ncc_13-sector.ccvf'
110 CLEAR 2000:DIM A$(50),B$(50) 120 FILE "R",1,"BIG",1 130 FOR I= 1TO 49:GET 1,I;A$(I)[7]:NEXT I:FILE "C",1 140 FILE "R",1,"HUG",2:A$(11)= " b h a|":REM 150 A$(40)= "cn a md b" 160 FOR I= 1TO 47:GET 1,I;B$(I)[35]:NEXT I:FILE "C",1 170 PLOT 6,0,12 180 S$= " RA ENERGY ":XS= 5:YS= 1:SZ= 5:GOSUB 5000 190 S$= " PRESENTS":XS= 20:YS= 10:SZ= 3:GOSUB 5000 200 S$= " COMPUTER WORK":XS= 13:YS= 16:SZ= 4:GOSUB 5000 205 S$= " IN PROGRESS":XS= 16:YS= 24:SZ= 4:GOSUB 5000 210 FOR I= 1TO 4000:NEXT I 600 CLEAR 1000 610 Z= 1 620 A$= "THE FOLLOWING DISPLAYS ARE PART OF THE OUTPUT FROM SEVERAL COMPUTER" 630 A$= A$+ " PROGRAMS UNDER DEVELOPMENT BY BOB ESTES AND MIKE LUTTRELL AT RA ENERGY" 640 A$= A$+ " IN NAPA, CALIFORNIA......" 650 A$= " "+ A$+ " " 660 IF L= 0THEN GOSUB 780 670 L= LEN (A$) 680 FOR X= 1TO L 690 S= L- X 700 PLOT 3,128,13,15,1 710 PRINT MID$ (A$,X,40); 720 PLOT 8 730 IF S< 40THEN PRINT MID$ (A$,1,39- S) 740 FOR I= 1TO 65:NEXT 750 NEXT :Z= Z* - 1:IF Z= - 1THEN 840 760 IF Z= 0THEN 680 770 PLOT 27,27:GOTO 881 780 REM 790 PLOT 12 800 PLOT 6,4 810 PLOT 2,24,61,242,107,61,107,76,24,76,24,61,255 820 PLOT 6,2 830 RETURN 840 REM 850 A$= "IF YOU WOULD LIKE MORE INFORMATION ABOUT RA ENERGY'S COMPUTER SERVICES" 860 A$= A$+ " AND SALES, PUT YOUR NAME AND MAILING ADDRESS ON THE LIST NEXT TO THIS DISPLAY." 870 GOTO 650 881 FOR Y= 1TO 7 883 PLOT 12 884 AX$= "LOAD TEST.DIS;":BX$= STR$ (Y):CX$= AX$+ BX$ 885 PLOT 3,64,29,27,4 900 PRINT CX$ 903 PLOT 27,27 905 FOR X1= 1TO 4000:NEXT X1 910 NEXT Y 1000 PLOT 12,14:PLOT 3,17,3:PRINT " TEMPERATURE-INSOLATION DISPARITY ":PLOT 15 1010 PLOT 29,17 1020 PLOT 2,6,0,242,6,123,127,123,127,0,6,0,255 1030 PLOT 3,1,0 1040 PRINT " J F M A M J J A S O N D J" 1050 PLOT 3,0,12:PRINT "D":PLOT 3,0,13:PRINT "E":PLOT 3,0,14:PRINT "G.":PLOT 3,0,16:PRINT "D":PLOT 3,0,17 1060 PRINT "A":PLOT 3,0,18:PRINT "Y":PLOT 3,0,19:PRINT "S" 1070 PLOT 3,64,0 1080 GOTO 1190 1090 PLOT 29,19 1100 PLOT 2,246,4 1110 FOR X= 68TO 184STEP 2 1120 FOR Y= 1TO 15:NEXT Y 1130 PLOT X- 60,80* (COS (X/ 20)/ 3)+ 55 1140 NEXT X 1150 PLOT 255 1160 S= 1 1170 IF R= 1THEN GOSUB 1380 1180 FOR I= 1TO 3500:NEXT I 1190 PLOT 29,20 1200 PLOT 2,246,4 1210 FOR X= 34TO 150STEP 2 1220 FOR Y= 1TO 15:NEXT Y 1230 PLOT X- 26,55* (SIN (X/ 20)/ 1.5)+ 55 1240 NEXT X 1250 PLOT 255 1260 R= 1 1270 F= F+ 1 1280 IF S= 1THEN GOSUB 1350 1290 FOR I= 1TO 3500:NEXT I 1300 PLOT 29,23 1310 PLOT 3,0,25:PRINT "B":PLOT 3,0,26:PRINT "T":PLOT 3,0,27:PRINT "U":PLOT 3,0,28:PRINT "S" 1320 GOTO 1090 1330 INPUT "";Z 1340 PLOT 29,18 1350 PLOT 3,9,7 1360 PRINT " aaaaaaaaaaa EXCESS INSOLATION DURING SUMMER " 1365 IF F= 3THEN FOR Y= 1TO 3000:NEXT Y:LOAD "THERM";RUN 1370 RETURN 1380 PLOT 3,9,7 1390 PRINT " aaaaaaaaaaa INSUFFICIENT INSOLATION DURING WINTER " 1400 RETURN 5000 REM ** CALL THIS ROUTINE TO PRINT BIG LETTERS ** 5010 REM PRINT COORD XS,YS STRING S$ 5020 REM SIZE 1(1X) 2(2X) 3(2X2) 4(4X2) 5(5X7) 5030 REM MUST HAVE A CLEAR AND GOSUB 4000 AT BEGINNING 5040 REM 5050 XO= XS:YO= YS:PLOT 30,16 5060 IF SZ= 1THEN PLOT 29,15,3,XO,YO:PRINT S$:RETURN 5070 IF SZ= 2THEN PLOT 29,14,3,XO,YO:PRINT S$:RETURN 5080 IF SZ= 5THEN YD= 8:XD= 6:PLOT 15,6,0,29 5090 IF SZ= 3THEN PLOT 30,15:YD= 3:XD= 3 5100 IF SZ= 4THEN PLOT 30,14:YD= 6:XD= 3 5110 FOR I= 1TO LEN (S$):C= ASC (MID$ (S$,I,1)) 5120 IF C= 13THEN YS= YS+ YD:XS= XO:GOTO 5270 5130 IF SZ= 4AND C= 32THEN XS= XS+ 2:GOTO 5270 5140 IF C= 32THEN XS= XS+ XD:GOTO 5270 5150 IF C> = 65AND C< = 90THEN C= C- 64:GOTO 5230 5160 IF C> = 48AND C< = 57THEN C= C- 48+ 27:GOTO 5230 5170 IF C> = 33AND C< = 42THEN C= C- 33+ 37:GOTO 5230 5180 IF C= 58OR C= 59THEN C= C- 10:GOTO 5230 5190 IF C= 46THEN C= 47:GOTO 5230 5200 IF SZ< 5AND C> = 16AND C< = 23THEN PLOT 29,C,30 5210 IF C> = 16AND C< = 23THEN BC= C- 16:FC= BC* 8 5220 GOTO 5270 5230 IF XS+ XD> 64THEN XS= XO:YS= YS+ YD 5240 X1= XS:Y1= YS:PLOT 3,X1,Y1 5250 IF SZ= 5THEN GOSUB 5280:GOTO 5270 5260 IF SZ= 3OR SZ= 4THEN PRINT A$(C):XS= XS+ XD 5270 NEXT I:RETURN 5280 FOR JJ= 1TO 7:FOR KK= 1TO 5:PLOT 6 5290 ON ASC (MID$ (B$(C),(JJ- 1)* 5+ KK,1))GOSUB 5310,5320,5330,5340,5350,5360 5300 NEXT KK:PRINT " ";:NEXT JJ:XS= XS+ XD:RETURN 5310 PLOT BC,32:RETURN 5320 PLOT FC,32:RETURN 5330 PLOT BC,124:RETURN 5340 PLOT BC,126:RETURN 5350 PLOT FC,124:RETURN 5360 PLOT FC,126:RETURN 5370 FOR II= 1TO 500:NEXT II:RETURN