Listing of file='TTRL1.BAS;01' on disk='vmedia/BASIC_language_1-5-sector.ccvf'
100 REM COPYRIGHT (C) BY COMPUCOLOR 1979 BY KLH 10/28/79 110 ADR= 256* PEEK (32941)+ PEEK (32940) 120 POKE ADR+ 41,1:POKE ADR+ 42,1:POKE ADR+ 43,1 130 GOTO 1760 140 CLEAR 250:X= 34:Y= 6:H= 14:W= 5:C= 1:GOSUB 1710 150 LN= Y:GOTO 210 160 GOTO 140 170 LN= LN+ 1:IF LN< (Y+ H)THEN PLOT 3,X,LN:RETURN 180 ZZ= CALL (0) 190 PLOT 3,X,Y+ H- 1:PRINT SPC( W)"" 200 PLOT 3,X,Y+ H- 1:RETURN 210 PLOT 29,6,4,12,15,27,24,3,64,0,2 220 PLOT 26,100,242 230 PLOT 26,101,25,101,24,102,18,102,17,101,16,101,11,96,10,94,10,91,9,90,9,84,10,83,10,82,11,81,13,79,14,79,15,78,22,78,22,79,255 240 PLOT 2,30,91,242,28,91,26,89,25,88,25,87,24,86,24,82,26,80,27,81,28,81,31,84,31,85,32,86,32,91,31,91,31,92,30,90,31,89,32,90,35,90 250 PLOT 35,89,35,88,35,81,35,84,37,86,37,87,39,89,40,89,40,81,40,83,40,86,41,87,42,88,42,89,43,90,44,90,44,89,44,88,44,82,45,81 260 PLOT 46,81,47,82,48,82,49,83,49,84,50,85,50,91,50,85,49,84,49,79,48,78,48,72,48,78,49,79,49,84,50,85,50,87,51,88,53,90,54,90 270 PLOT 55,90,55,83,53,81,51,81,50,82,51,81,56,81,57,82,58,82,60,84,60,85,61,86,61,87,62,88,62,90,62,88,61,87,61,82,61,81,63,81 280 PLOT 61,81,63,81,66,84,66,86,67,87,67,90,67,87,66,86,66,81,67,81,69,81,70,82,72,85,71,86,71,89,72,90,72,93,73,94,73,97,73,98 290 PLOT 73,94,72,93,72,90,71,89,71,86,72,86,73,86,77,90,73,86,72,86,72,87,73,86,74,85,74,82,75,81,76,82,77,83,80,89,79,88,79,87 300 PLOT 78,86,78,83,80,81,81,81,83,83,83,88,81,89,81,88,85,88,86,89,90,93,90,96,89,97,88,96,87,95,87,94,86,93,86,82,88,80,90,80 310 PLOT 91,81,92,81,96,89,95,89,94,88,93,87,93,82,94,81,96,81,98,83,98,89,97,89,98,89,99,89,100,89,101,89,101,83,100,81,100,83 320 PLOT 101,86,102,87,103,89,106,89,107,88,255 330 FOR J= 1TO 1000:NEXT 340 PLOT 6,2,2,77,101,242,68,80:FOR J= 1TO 200:NEXT 350 PLOT 2,253,68,98,242,76,81:FOR J= 1TO 300:NEXT 360 PLOT 255,29,17,2 370 PLOT 76,65,75,66,74,66,73,66,72,66,71,66,70,65,69,64,69,63 380 PLOT 69,62,69,61,69,60,69,59,70,58,71,57,72,57,73,57,74,57 390 PLOT 75,57,76,58,77,59,68,58 400 PLOT 255:LN= 20 410 FOR J= 1TO 500:NEXT 420 GOSUB 170:PRINT " @" 430 GOSUB 170:PRINT " qp" 440 GOSUB 170:PRINT " mo" 450 FOR J= 1TO 3:GOSUB 170:NEXT J 460 PLOT 3,64,0:FOR J= 1TO 500:NEXT 470 PLOT 3,36,15:PRINT "fh" 480 PLOT 3,36,15:PRINT "ee" 490 PLOT 3,36,15:PRINT "e " 500 PLOT 3,37,14:PRINT "i" 510 PLOT 3,36,15:PRINT " " 520 PLOT 3,36,14:PRINT "ih" 530 PLOT 3,32,15:PRINT "ih" 540 PLOT 3,30,16:PRINT "ih" 550 PLOT 3,23,17:PRINT "teeeeeeeeu" 560 PLOT 3,23,18:PRINT "a b" 570 PLOT 3,23,19:PRINT "vw" 580 PLOT 3,24,18:PRINT "TA DAAA!" 590 PLOT 3,64,0:FOR J= 1TO 2000:NEXT 600 PLOT 3,30,16:PRINT " ";:PLOT 28:PRINT " ":PRINT :PLOT 11,10,11,10,11 610 X= 18:Y= 14:H= 10:W= 30:C= 1:GOSUB 1710 620 PLOT 3,24,17:PRINT "{d ~| cf en tf":PRINT ,,,"ld no gd l vi" 630 PRINT :PRINT TAB( 20)"a ~| pb tf ab ~| tf {e":PRINT TAB( 20)"l no as v} vw no v} l" 640 PLOT 3,80,0:FOR X= 1TO 3500:NEXT 650 FOR X= 1TO 8:GOSUB 170:NEXT 660 PLOT 3,80,0:FOR X= 1TO 500:NEXT 670 PLOT 6,2,12,3,27,10:PRINT "WITH THE":PLOT 3,14,13:PRINT "COMPUCOLOR II BASIC LANGUAGE SERIES" 680 PLOT 3,27,15:PRINT "|~ tu ab":PLOT 3,27,16:PRINT " a vw vw" 690 PLOT 3,26,19:PRINT "CAN LEARN":PLOT 3,28,21:PRINT "......" 700 PLOT 3,80,0:FOR X= 1TO 4000:NEXT X 710 PLOT 12,15,3,1,30:PRINT "HOW TO PLOT POINTS!":PLOT 3,80,0,30 720 DEF FN A(X)= INT (((RND (1)* 8)+ 1)- 4):DEF FN B(X)= INT (32+ (RND (1)* 64)) 730 FOR M= 1TO 8STEP 2:PLOT 6,1+ M/ 2,2 740 X= FN B(1):X1= X:Y= FN B(1):Y1= Y:X2= FN A(1):Y2= FN A(1):IF X2= 0OR Y2= 0THEN 740 750 FOR N= 1TO 2 760 PLOT X,Y:X= X+ X2:Y= Y+ Y2 770 IF (X> - 1AND X< 128)AND (Y> 11AND Y< 128)THEN 760 780 X= X1:Y= Y1:NEXT N:PLOT 255:NEXT M 790 PLOT 29,3,1,30:PRINT "AND TO PLOT LINES!":PLOT 3,80,0 800 FOR X= 1TO 9:PLOT 6,(X* 6/ 9)+ 1 810 A= 20- X* 2:C= 43+ X^ 2:B= 49- X* 4:D= 45+ (X^ 2+ 1) 820 PLOT 2,A,B,242,A,D,C,D,C,B,A,B,255 830 FOR Y= 1TO 150:NEXT Y:NEXT X:FOR X= 1TO 1000:NEXT 840 FOR X= 1TO 500:NEXT :A$= "``````````````````````````````" 850 PLOT 3,1,30:PRINT "ABOUT THE 64 COLOR COMBINATIONS!" 860 PLOT 27,10:FOR X= 0TO 63 870 PLOT 6,X,3,X,0:PRINT A$:NEXT X:PLOT 27,24 880 PLOT 3,80,0:FOR X= 1TO 2500:NEXT 890 PLOT 6,3,12:PRINT TAB( 21)"THE ASCII CHARACTERS!" 900 FOR X= 32TO 127:PLOT X,32:IF X/ 32= INT (X/ 32)THEN PRINT 910 NEXT X:PLOT 30:PRINT :PRINT 920 FOR X= 97TO 127:PLOT X,32:NEXT 930 PLOT 3,80,0:FOR X= 1TO 2500:NEXT 940 PLOT 14,3,25,11:PRINT "IN TWO SIZES!" 950 PLOT 29:FOR X= 32TO 127:PLOT X,32:IF X/ 32= INT (X/ 32)THEN PRINT 960 NEXT X:PLOT 30:PRINT :PRINT 970 FOR X= 97TO 127:PLOT X,32:NEXT 980 PLOT 3,80,0:FOR X= 1TO 1500:NEXT X 990 PLOT 3,13,31 1000 PRINT "AND, OF COURSE, BLINKING CHARACTERS!"; 1010 PLOT 3,80,0:FOR X= 1TO 3000:NEXT X 1020 PLOT 12,3,23,6:PRINT "AND THERE ARE..." 1030 PLOT 6,6,3,21,10:PRINT "cf {d {e tf en ~| a" 1040 PLOT 3,21,11:PRINT "gd a l vi l no l" 1050 PLOT 3,16,14:PRINT "tf ab ~| {d ~| tf en {e {d cf" 1060 PLOT 3,16,15:PRINT "vi no no a| no vi a { a| gd" 1070 PLOT 3,12,27:PRINT "( INCIDENTALLY, THIS IS THE CURSOR -> )" 1080 PLOT 3,50,27:FOR X= 1TO 4000:NEXT X 1090 A$= A$+ "`````":PLOT 12,6,63,27,10 1100 PRINT A$:PLOT 3,63,0:PRINT A$:PLOT 27,24 1110 PLOT 8,11,28,11,6,2 1120 PLOT 3,4,28:PRINT "THE BLIND CURSOR MODE - NOW YOU SEE IT..." 1130 FOR X= 1TO 50 1140 PLOT 3,31,15:PRINT X:FOR Y= 1TO 25:NEXT Y:NEXT X 1150 PLOT 3,46,28:PRINT "NOW YOU DON'T!" 1160 FOR X= 51TO 100 1170 PLOT 3,127,31,15,2:PRINT X:FOR Y= 1TO 45:NEXT Y:NEXT X 1180 PLOT 15,12,3,19,0:PRINT "CREATE ARTWORK AND LOGOS!":PLOT 3,80,0 1190 PLOT 6,2:ZA= 99:ZB= 93:GOSUB 1360 1200 ZA= 92:ZB= 60:GOSUB 1370 1210 ZA= 59:ZB= 48:GOSUB 1360 1220 ZA= 47:ZB= 38:GOSUB 1370 1230 PLOT 6,1:ZA= 99:ZB= 84:GOSUB 1370 1240 ZA= 83:ZB= 66:GOSUB 1360 1250 ZA= 65:ZB= 46:GOSUB 1370 1260 PLOT 6,4:ZA= 99:ZB= 82:GOSUB 1370 1270 ZA= 81:ZB= 79:GOSUB 1360 1280 ZA= 78:ZB= 47:GOSUB 1370 1290 PLOT 6,3:ZA= 79:ZB= 50:GOSUB 1370 1300 ZA= 49:ZB= 43:GOSUB 1360 1310 ZA= 42:ZB= 18:GOSUB 1370 1320 FOR X= 1TO 33:READ B,D:A= INT (B/ 100):B= B- 100* A:C= INT (D/ 100):D= D- 100* C 1330 PLOT 6,D,3,A,B,2,254,C,255:NEXT 1335 PLOT 6,2 1340 PLOT 3,80,0:ADR= 256* PEEK (32941)+ PEEK (32940):POKE ADR+ 41,2:POKE ADR+ 42,2:POKE ADR+ 44,0:POKE ADR+ 45,0:FOR X= 1TO 5000:NEXT :PLOT 1 1350 REM YES LOGO DESIGNED BY ROGER DEAN 1360 FOR Y= ZATO ZBSTEP - 1:READ A,B,C,D:PLOT 2,A,Y,242,B,Y,253,C,Y,242,D,Y,255:NEXT :RETURN 1370 FOR Y= ZATO ZBSTEP - 1:READ A,B:PLOT 2,A,Y,242,B,Y,255:NEXT :RETURN 1380 DATA 17,27,35,44,16,28,34,45,16,28,34,45,15,29,34,46,15,29,33,47,15,30,33,47,14,30,33,47 1390 DATA 14,46,14,45,14,45,14,45,14,44,15,44,15,43,15,43,15,43,16,42,16,42,16,42,16,42 1400 DATA 17,42,17,41,17,41,18,41,18,41,18,41,18,41,19,41,19,41,20,41 1410 DATA 20,41,21,41,21,41,21,42,22,42,22,42,22,42,23,42,23,43,23,43 1420 DATA 14,20,24,42,12,22,24,42,10,22,24,42,9,22,24,41,8,23,25,41 1430 DATA 8,23,25,40,7,24,26,40,7,24,26,39,7,19,26,39,7,18,26,38,7,18,26,38 1440 DATA 7,19,25,37,7,36,7,35,8,34,8,33,9,32,10,30,11,29,13,27,15,25,18,22 1450 DATA 58,63,55,66,53,68,51,70,50,71,49,72,48,73,47,74,46,75,46,75 1460 DATA 46,75,45,75,45,74,44,74,44,74,44,74 1470 DATA 43,60,68,74,43,59,70,74,43,58,71,75,43,57,72,75 1480 DATA 43,57,73,76,42,56,73,76,42,56,72,77,42,56,69,78,42,56,66,79 1490 DATA 42,56,63,79,42,57,60,78,42,75,42,75,42,72,42,72,42,69,77,79 1500 DATA 42,66,74,79,42,63,71,79,42,61,68,79 1510 DATA 43,60,65,78,43,78,43,78,43,78,43,78,44,77 1520 DATA 44,77,44,77,45,76,45,76,46,75,46,75,46,75,47,74,48,73,49,72,50,71 1530 DATA 51,70,53,68,55,66,58,63 1540 DATA 88,98,86,101,84,103,82,104,81,105,80,106,79,107,78,108,77,109,77,109 1550 DATA 76,110,76,110,75,110,75,110,75,109,75,109,75,108,75,107 1560 DATA 76,98,101,106,76,99,102,105,77,100,103,104 1570 DATA 77,101,78,103,79,105,80,106,81,107,81,108,81,109,81,109,81,110 1580 DATA 80,110,80,110,80,111,79,111,79,111,79,111,79,111,79,111,78,110,78,110 1590 DATA 78,110,77,109,77,109,76,109,76,108,76,108,76,107,77,106,78,105,79,103 1600 DATA 81,102,84,100,88,97 1610 DATA 58,60,55,62,53,64,52,65,51,65,51,62,51,60,50,59,50,59,50,58 1620 DATA 50,58,51,58,51,59,51,59,51,60,51,60,52,61,52,62,52,62,52,63 1630 DATA 53,64,53,64,53,65,54,65,54,66,54,66,55,67,55,68,55,68,55,69 1640 DATA 40,40,56,70,40,42,56,70,39,44,57,71,38,46,57,72,37,48,57,73,36,50,57,73,35,52,56,74 1650 DATA 34,74,33,74,34,75,35,75,36,75,37,76,37,76,38,76,39,76,40,76,41,76,42,76,43,76 1660 DATA 44,76,45,76,46,75,47,75,48,74,49,74,50,73,51,72,52,71,53,69,55,65,59,63 1670 DATA 2308,19217,2209,20017,2110,22417,3710,24012,3711,4812,2012,24017,2612,20011,2712,23611,3812,4812,3912,24712 1680 DATA 2013,24017,2513,24811,3013,5511,3113,1911,3213,1711,2014,24017,2514,24711,2914,3111 1690 DATA 2015,1617,2515,24011,3015,1211,3116,14211,3915,24012,3916,25212 1700 DATA 2617,20725,3217,20711,3817,23212,2718,24311,3318,4825,3418,811,2719,4811,3419,23911,3519,1211 1710 GOSUB 1860 1720 Z= 28672+ 128* Y+ X+ X:AD= TM+ 2:GOSUB 1850 1730 Z= 128- W- W:AD= TM+ 25:GOSUB 1850 1740 POKE TM+ 5,H- 1:POKE TM+ 7,W* (C+ 1):POKE TM+ 19,35* (1- C) 1750 RETURN 1760 GOSUB 1860:RESTORE 1770 1770 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126 1780 DATA 17,128,255,25,119,35,-1,13,194,-1,-1 1790 DATA 17,-1,-1,25,5,194,-1,-1,201 1800 FOR I= 1TO 32:READ A:POKE TM+ I,A- (A< 0):NEXT 1810 Z= TM+ 1:AD= 33283:GOSUB 1850 1820 Z= TM+ 6:AD= TM+ 30:GOSUB 1850 1830 Z= TM+ 8:AD= TM+ 22:GOSUB 1850 1840 CLEAR 25:GOTO 140 1850 ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ:RETURN 1860 ER= 32940:TM= 256* PEEK (ER+ 1)+ PEEK (ER):RETURN