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