Listing of file='TRIANG.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
10 REM KY TRIANG
20 L= 0: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 200: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
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
47 IF A= 32THEN OUT 8,4:GOTO 10
50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "CLRSIN":RUN
60 PLOT 30,16,29,17,12,15,27,88
70 GOSUB 90:GOSUB 150:GOSUB 320:GOSUB 430
80 GOTO 30
90 CCI= 39:X= 0:Y= 0:PLOT 6,CCI,3,X,Y:PRINT SPC( 28)""
100 PLOT 3,X,Y+ 1:PRINT " en {d en ~| pb tf a {e cf "
110 PLOT 3,X,Y+ 2:PRINT " a a| l no as v} l l gd "
120 PLOT 3,X,Y+ 3:PRINT SPC( 28)""
130 CCI= 6:PLOT 6,CCI,3,0,6:PRINT "UNIT I"
140 CCI= 1:PLOT 6,CCI,3,0,8:PRINT "QUESTION 9":RETURN
150 CCI= 5:H= 17:X= 22:Y= 8:PLOT 6,CCI,27,10,3,X,Y
160 PRINT " q";:FOR I= 1TO H- 1:PRINT "b";:NEXT I:PRINT
170 PLOT 27,24,3,X- (H- 1),Y+ (H- 1)
180 FOR I= 1TO H- 1:PRINT "~";:PLOT 28:NEXT I:PRINT
190 PLOT 3,X- (H- 1),Y+ H:FOR I= 1TO 3* H:PRINT "e";:NEXT I:PRINT
200 PLOT 3,X+ 1,Y:FOR I= 1TO H:PRINT "fg";:PLOT 10:NEXT I:PRINT
210 PRINT " ":CCI= 1:PLOT 6,CCI,3,X+ 1,Y+ (H- 2)
220 PRINT " eeo";:PLOT 10,26:PRINT "b "
230 CCI= 3:PLOT 6,CCI,14,3,X- H,Y+ (H+ 1):PRINT "A"
240 PLOT 3,X+ 1,Y- 1:PRINT "B"
250 PLOT 3,X+ 1,Y+ (H+ 1):PRINT "D"
260 PLOT 3,X+ (2* H+ 1),Y+ (H+ 1):PRINT "C"
270 CCI= 2:PLOT 15,6,CCI,3,X- 8,Y+ H- 4
280 PRINT " ~|";:PLOT 10,26,26:PRINT "ee ";:PLOT 28:PRINT "ABD"
290 PLOT 3,X+ 8,Y+ H- 8
300 PRINT " ~|";:PLOT 10,26,26:PRINT "ee ";:PLOT 28:PRINT "BCD"
310 PLOT 29:RETURN
320 CCI= 6:X= 39:Y= 0:W= 25:H= 10:PLOT 6,CCI,2,2* X,127- 4* Y
330 PLOT 242,2* X,128- 4* (Y+ H),2* (X+ W)- 3,128- 4* (Y+ H)
340 PLOT 2* (X+ W)- 3,127- 4* Y,2* X,127- 4* Y,255:CCI= 6
350 PLOT 6,CCI,3,X+ 1,Y+ H+ 1,15:PRINT "ANGLES GIVEN IN DEGREES"
360 CCI= 2:PLOT 6,CCI,14,3,X+ 3,Y+ 3:PRINT "GIVEN:"
370 CCI= 3:PLOT 6,CCI,14
380 PLOT 3,X+ 14,Y+ 3:PRINT "ABC = 90"
390 PLOT 3,X+ 14,Y+ 7:PRINT "ABD = 30"
400 PLOT 15:FOR I= Y+ 3TO Y+ 7STEP 4
410 PLOT 3,X+ 11,I:PRINT " y";:PLOT 28,26:PRINT "~"
420 NEXT I:RETURN
430 PLOT 3,6,31,14,29,6,2
440 PRINT "WHAT IS THE MEASURE IN DEGREES OF ";:PRINT " ";
450 PLOT 6,3:PRINT "BCD ";:PLOT 6,2:PRINT "?";
460 PLOT 6,1:PRINT " ":PLOT 15,6,3,3,41,31
470 PRINT " y";:PLOT 28,26:PRINT "~":RETURN