Compucolor.org – Virtual Media

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