Listing of file='DEMO.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM ** COMPUCOLOR DEMO - JAN 31,1980 ** 11 CLEAR 2000:DIM A$(50),B$(50) 12 FILE "R",1,"BIG",1 13 FOR I= 1TO 49:GET 1,I;A$(I)[7]:NEXT I:FILE "C",1 14 FILE "R",1,"HUG",2:A$(11)= "bh a|":REM 15 A$(40)= "cna md b":REM 16 FOR I= 1TO 47:GET 1,I;B$(I)[35]:NEXT I:FILE "C",1 20 OUT 8,199:POKE 33278,0:GOTO 60 30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207 40 FOR I= 1TO 100:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 45 IF A= 32THEN 10 46 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "CCHRT":RUN 60 PLOT 15,30,16,29,18,12,27,24 220 PLOT 6,0,12 310 S$= "COMPUCOLOR" 320 XS= 2:YS= 22:SZ= 5:GOSUB 5000 330 PLOT 6,0 340 REM 350 PLOT 27,11:FOR I= 1TO 23:PRINT :FOR J= 1TO 50:NEXT J:NEXT I 360 S$= "CORPORATION":XS= 16:YS= 8:SZ= 4:GOSUB 5000 370 S$= "PROUDLY PRESENTS":XS= 8:YS= 14:SZ= 3:GOSUB 5000 380 S$= "COMPUCOLOR II":XS= 12:YS= 18:SZ= 4:GOSUB 5000 390 S$= "THE ULTIMATE PERSONAL COMPUTER":XS= 17:YS= 24:SZ= 2:GOSUB 5000 530 REM 535 T1= 200:GOSUB 5430:FOR N= 1TO 2000:NEXT N 540 PLOT 6,0,12 550 S$= "COMPUCOLOR MOD 3":XS= 8:YS= 0:SZ= 4:GOSUB 5000 560 S$= "$1895":XS= 14:YS= 6:SZ= 5:GOSUB 5000 570 S$= "PRICE INCLUDES:":XS= 9:YS= 14:SZ= 3:GOSUB 5000 580 PRINT "" 590 PLOT 3,0,17:PRINT "8K USER RAM":GOSUB 5420 600 PLOT 3,0,18:PRINT "4K SCREEN REFRESH RAM":GOSUB 5420 610 PLOT 3,0,17:PRINT "8K USER RAM" 620 PLOT 3,30,17:PRINT "16K ROM WITH:";:GOSUB 5420 630 PRINT " BASIC LANGUAGE":GOSUB 5420 640 PLOT 3,44,18:PRINT "FILE CONTROL SYSTEM":GOSUB 5420 650 PLOT 3,44,19:PRINT "GRAPHICS SOFTWARE":GOSUB 5420 660 PLOT 3,0,18:PRINT "4K SCREEN REFRESH RAM" 670 PLOT 3,22,21:PRINT "COLOR MONITOR":GOSUB 5420 690 PLOT 3,17,22:PRINT "BUILT IN FLOPPY DISK DRIVE"; 700 PRINT "------------------->":GOSUB 5420 720 PLOT 3,16,23:PRINT "PROFESSIONAL 72 KEY KEYBOARD" 730 GOSUB 5420 740 PLOT 3,0,25:PRINT "PLUS:":GOSUB 5420 750 PLOT 3,17,22:PRINT "BUILT IN FLOPPY DISK DRIVE"; 760 PRINT "------------------->":PRINT 770 PLOT 3,6,27:PRINT "PROGRAMMING MANUAL";:GOSUB 5420 780 PLOT 3,6,28:PRINT "INSTRUCTION MANUAL":GOSUB 5420 790 PLOT 3,6,29:PRINT "COLORCUE SUBSCRIPTION":GOSUB 5420 800 PLOT 3,32,27:PRINT "RS-232 MODEM PORT":GOSUB 5420 810 PLOT 3,32,28:PRINT "REAL TIME CLOCK":GOSUB 5420 820 PLOT 3,32,29:PRINT "90 DAY WARRANTY" 830 TI= 200:GOSUB 5430 840 PLOT 27,24:FOR I= 25TO 31:PLOT 3,0,I,11:NEXT I 850 PLOT 3,13,25:PRINT "AND THE FOLLOWING SOF-DISK ALBUMS:":GOSUB 5420 860 PLOT 3,9,27:PRINT "SAMPLER";:GOSUB 5420 870 PLOT 3,9,28:PRINT "FORMATTER":GOSUB 5420 880 PLOT 3,9,29:PRINT "BASIC EDITING":GOSUB 5420 890 PLOT 3,9,30:PRINT "BASIC LANGUAGE VOL 1":GOSUB 5420 900 PLOT 3,9,31:PRINT "OTHELLO":GOSUB 5420 910 PLOT 3,35,27:PRINT "HANGMAN":GOSUB 5420 920 PLOT 3,35,28:PRINT "BLACKJACK":GOSUB 5420 930 PLOT 3,35,29:PRINT "MATH TUTOR":GOSUB 5420 940 PLOT 3,35,30:PRINT "BONDS":GOSUB 5420 950 PLOT 3,35,31:PRINT "EQUITY" 960 TI= 300:GOSUB 5430 970 REM 980 PLOT 6,0,12 990 S$= "THE COMPUCOLOR IS":XS= 4:YS= 0:SZ= 3:GOSUB 5000 1000 S$= "AVAILABLE IN THREE":XS= 4:YS= 3:SZ= 3:GOSUB 5000 1010 S$= "MODELS.":XS= 4:YS= 6:SZ= 3:GOSUB 5000 1020 S$= "MODEL MEMORY PRICE":PLOT 27,24 1030 XS= 1:YS= 10:SZ= 3:GOSUB 5000 1040 S$= "MOD 3" 1050 XS= 1:YS= 14:SZ= 4:GOSUB 5000 1060 S$= "8K $1895":XS= 28:YS= 14:SZ= 4:GOSUB 5000 1070 S$= "MOD 4 16K $2195" 1080 XS= 1:YS= 20:SZ= 4:GOSUB 5000 1090 S$= "MOD 5 32K $2495" 1100 XS= 1:YS= 26:SZ= 4:GOSUB 5000 1110 TI= 500:GOSUB 5430 1120 REM ** SOFTWARE ** 1130 PLOT 6,0,12:PRINT TAB( 22)"S O F T W A R E" 1140 PRINT "THE COMPUCOLOR IS NOT JUST FOR FUN AND GAMES. THE FOLLOWING" 1150 PRINT "ARE JUST SOME OF THE MANY PROGRAMS AVAILABLE TO ASSIST YOU IN" 1160 PRINT "YOUR FINANCIAL PLANNING, PROGRAM DEVELOPEMENT, EDUCATION, AND" 1170 PRINT "ENGINEERING PROBLEMS. MANY MORE WILL BE AVAILABLE SOON. " 1180 PRINT "GAMES:" 1190 PRINT "CONCENTRATION SLOT MACHINE BIORHYHMS TWO TO TEN" 1200 PRINT "OTHELLO CHESS ACEY DEUCEY LINE FIVE" 1210 PRINT "STARTREK LUNAR LANDER SHOOT TIC-TAC-TOE" 1220 PRINT "BLACKJACK ROULETTE HORSE RACE DRAG RACE" 1230 PRINT "3D TIC-TAC-TOE AVARICE GALAXY SPACE LANDER" 1240 PRINT "SHARKS TOWERS KALAH MILL" 1250 PRINT "AIRRAID RACE TILES ROVER ROBOT" 1260 PRINT "STAR TRADER COLOR HUNT DECISION MAKER MAZE" 1270 PRINT "15 PUZZLE HYPER SEAWAR LUNAR" 1280 PRINT "COALITION LINKO " 1290 PRINT "FINANCIAL:" 1300 PRINT "LOAN SCHEDULE CHECKBOOK RECIPE ANNUITIES" 1310 PRINT "INTEREST RATES MORTGAGE BOND YIELD CALLABLE BONDS" 1320 PRINT "DEPRECIATION CAPITALIZATION INCOME TAX PERS. CALANDER" 1330 PRINT "SYSTEM/UTILITY:" 1340 PRINT "ASSEMBLER TEXT EDITOR DATA BASE BASIC EDITOR" 1350 PRINT "RENUMBER MERGE COMPACT DELETE REMARKS" 1360 PRINT "BASIC-SOURCE MONITOR SCREEN EDITOR FORMATTER" 1370 PRINT "DEBUGGER PILOT FORTRAN " 1380 PRINT "EDUCATIONAL:" 1390 PRINT "BASIC TUTOR 1 BASIC TUTOR 2 HANGMAN MATH TUTOR" 1400 PRINT "MATH DICE " 1410 PRINT "ENGINEERING:" 1420 PRINT "STATISTICS I STATISTICS II STATISTICS III " 1430 TI= 1000:GOSUB 5430 1440 GOTO 30 4990 REM 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 L= 0:XD= 1:IF SZ> 2THEN XD= 3:IF SZ> 4THEN XD= 6 5050 BK= XD:IF SZ= 4THEN BK= 2 5060 IF XS< 64THEN 5110 5070 FOR I= 1TO LEN (S$):C$= MID$ (S$,I,1):IF C$> " "THEN L= L+ XD 5080 IF C$= " "THEN L= L+ BK 5090 NEXT I:XS= (64- L)/ 2:IF SZ> 3THEN XS= XS+ .5 5100 PLOT 6,2,3,0,YS:PRINT "XS=";XS 5110 XO= XS:YO= YS:PLOT 30,16 5120 IF SZ= 1THEN PLOT 29,15,3,XO,YO:PRINT S$:RETURN 5130 IF SZ= 2THEN PLOT 29,14,3,XO,YO:PRINT S$:RETURN 5140 IF SZ= 5THEN YD= 8:XD= 6:PLOT 15,6,0,29 5150 IF SZ= 3THEN PLOT 30,15:YD= 3:XD= 3 5160 IF SZ= 4THEN PLOT 30,14:YD= 6:XD= 3 5170 FOR I= 1TO LEN (S$):C= ASC (MID$ (S$,I,1)) 5180 IF C= 13THEN YS= YS+ YD:XS= XO:GOTO 5320 5190 IF C= 32THEN XS= XS+ BK:GOTO 5320 5200 IF C> = 65AND C< = 90THEN C= C- 64:GOTO 5280 5210 IF C> = 48AND C< = 57THEN C= C- 48+ 27:GOTO 5280 5220 IF C> = 33AND C< = 42THEN C= C- 33+ 37:GOTO 5280 5230 IF C= 58OR C= 59THEN C= C- 10:GOTO 5280 5240 IF C= 46THEN C= 47:GOTO 5280 5250 IF SZ< 5AND C> = 16AND C< = 23THEN PLOT 29,C,30 5260 IF C> = 16AND C< = 23THEN BC= C- 16:FC= BC* 8 5270 GOTO 5320 5280 IF XS+ XD> 64THEN XS= XO:YS= YS+ YD 5290 X1= XS:Y1= YS:PLOT 3,X1,Y1 5300 IF SZ= 5THEN GOSUB 5330:GOTO 5320 5310 IF SZ= 3OR SZ= 4THEN PRINT A$(C):XS= XS+ XD 5320 NEXT I:RETURN 5330 FOR JJ= 1TO 7:FOR KK= 1TO 5:PLOT 6 5340 ON ASC (MID$ (B$(C),(JJ- 1)* 5+ KK,1))GOSUB 5360,5370,5380,5390,5400,5410 5350 NEXT KK:PRINT " ";:NEXT JJ:XS= XS+ XD:RETURN 5360 PLOT BC,32:RETURN 5370 PLOT FC,32:RETURN 5380 PLOT BC,124:RETURN 5390 PLOT BC,126:RETURN 5400 PLOT FC,124:RETURN 5410 PLOT FC,126:RETURN 5420 FOR II= 1TO 320:NEXT II:RETURN 5430 POKE 33278,0:FOR II= 1TO TI:V= PEEK (33278) 5440 IF V= 13THEN II= TI 5450 NEXT II:RETURN