Listing of file='HEXDEC.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'
10 PLOT 12,14,19 20 PLOT 12,3,16,3,6,4:PRINT "t";:PLOT 6,32:PRINT SPC( 26);:PLOT 6,4:PRINT "u" 23 PLOT 3,16,5,6,32:PRINT SPC( 28) 25 PLOT 3,16,5:PLOT 6,4:PRINT "v";:PLOT 6,32:PRINT SPC( 26):PLOT 6,4:PRINT "w" 30 PLOT 6,24,3,18,5,28,15:PRINT "HEX AND DEC CONVERSIONS" 40 PLOT 3,2,10,14 50 PLOT 6,3:PRINT "1) TO CONVERT FROM DECIMAL TO HEX (635=027B)" 55 PRINT 60 PRINT " 2) TO CONVERT FROM HEX TO DECIMAL (BA6=2982)"; 61 PLOT 3,17,22,11,3,17,22:PRINT "YOUR CHOICE? "; 62 S= 33278:POKE S,0 64 E= PEEK (S):IF E= 0THEN 64 65 A= VAL (CHR$ (E)) 66 PLOT 3,17,26,11:PRINT "" 67 PLOT 3,0,22 70 IF A= 1GOTO 100 80 IF A= 2GOTO 500 90 GOTO 61 100 INPUT " GIVE ME THE DECIMAL: ";A 110 REM ** CONVERT NUMBER TO HEX ** 115 A1= A 120 V= INT (A/ 4096):A= A- V* 4096:GOSUB 160 130 V= INT (A/ 256):A= A- V* 256:GOSUB 160 140 V= INT (A/ 16):A= A- V* 16:GOSUB 160 150 V= INT (A):A= A- V:GOSUB 160:GOTO 240 160 IF V< 10THEN ADR$= ADR$+ RIGHT$ (STR$ (V),1) 170 IF V= 10THEN ADR$= ADR$+ "A" 180 IF V= 11THEN ADR$= ADR$+ "B" 190 IF V= 12THEN ADR$= ADR$+ "C" 200 IF V= 13THEN ADR$= ADR$+ "D" 210 IF V= 14THEN ADR$= ADR$+ "E" 220 IF V= 15THEN ADR$= ADR$+ "F" 230 RETURN 240 PRINT :PRINT "CONVERSION FOR ";A1;" IS ";:PLOT 17:PRINT ADR$;:PLOT 19:PRINT " HEX" 250 GOTO 61 260 CLEAR (250) 500 INPUT " GIVE ME THE HEXIDECIMAL NUMBER: ";H$ 505 B= LEN (H$) 510 FOR I= BTO 1STEP - 1 520 N$= MID$ (H$,I,1) 530 IF N$= "F"THEN N= 15:GOTO 595 540 IF N$= "E"THEN N= 14:GOTO 595 550 IF N$= "D"THEN N= 13:GOTO 595 560 IF N$= "C"THEN N= 12:GOTO 595 570 IF N$= "B"THEN N= 11:GOTO 595 580 :IF N$= "A"THEN N= 10:GOTO 595 590 N= VAL (N$) 595 H= H+ N* (16^ (B- I)) 700 NEXT I 750 PRINT 1800 PRINT "CONVERSION FOR ";H$;" IS";:PLOT 17:PRINT H;:PLOT 19:PRINT " DECIMAL" 1810 CLEAR 1900 GOTO 61