1 'BYTMAKER.BAS         hh     1988

' qbasic v.4.5 & gwbasic

10 CLS : KEY OFF
12 LOCATE 25, 1, 0: COLOR 0, 7: PRINT " ===> Press 'q' or 'Q'to Stop,---'Space Bar' for Single Step or Continuous <=== "; : COLOR 7, 0
15 GOSUB 400
20 LOCATE 12, 21
30 PRINT "128   64   32   16   8    4    2    1"
35 LOCATE 13, 21
40 PRINT "-------------------------------------"
50 FOR J = 1 TO 255
60 FOR I = 1 TO 8: BIT(I) = INT(J / 2 ^ (I - 1)): BIT(I) = BIT(I) - 2 * INT(BIT(I) / 2)
62 NEXT I
70 LOCATE 16, 23: PRINT "Equivelent Decimal Value is  "; : COLOR 0, 7: PRINT J; : COLOR 7, 0: PRINT " ";
75 LOCATE 14, 21
80 FOR I = 8 TO 1 STEP -1: B = BIT(I)
90 COLOR 7, 0: IF B = 1 THEN COLOR 0, 7
100 PRINT B; : COLOR 7, 0: PRINT SPC(2); : NEXT
105 LOCATE 18, 23: IF J > 31 THEN PRINT "Equivelent ASCII character is "; : COLOR 0, 7: PRINT " "; : PRINT CHR$(J); : PRINT " ": COLOR 7, 0
107 B$ = INKEY$: IF B$ = "Q" OR B$ = "q" THEN 300
108 IF B$ = " " THEN 110
109 GOTO 107
110 NEXT J
300 LOCATE , , 1: COLOR 7, 0: CLS : KEY ON: END
310 '
400 LOCATE 2, 10: PRINT CHR$(201) + STRING$(59, CHR$(205)) + CHR$(187)
410 LOCATE 10, 10: PRINT STRING$(60, CHR$(205))
420 LOCATE 20, 10: PRINT CHR$(200) + STRING$(59, CHR$(205)) + CHR$(188)
430 FOR D = 3 TO 19: LOCATE D, 10: PRINT CHR$(186): NEXT
440 FOR D = 3 TO 19: LOCATE D, 70: PRINT CHR$(186): NEXT
450 LOCATE 4, 29: PRINT " *** BYTE MAKER ***"
460 LOCATE 6, 20: PRINT "In a digital computer, alphanumerics are"
470 LOCATE 7, 20: PRINT "represented by an 8 digit binary number"
480 LOCATE 8, 20: PRINT "called a Byte. The digits are called bits."
490 RETURN
500 'H.Heinz June/88