Listing of file='HEXES' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 270, program filename = 'HEXES' 0010 B$=" " : PRINT HEX(03);"THIS GIVES A TABLE OF THE HEXES " : INPUT "DO YOU WANT THEM ON THE PRINTER",M$ : IF M$="YES"THEN 90 : IF STR(M$,1,1)="E"THEN 140 0020 PRINT HEX(03);" VAL HEX H.P." : PRINT HEX(0A) : FOR I=16TO 255 : BIN(A$)=I : PRINT HEX(0C);VAL(A$);" ";A$;" "; : HEXPRINT STR(A$,1,1) : GOSUB 30 : NEXT I : GOTO 10 0030 FOR J=1TO K : KEYIN B$,40,40 : NEXT J 0040 IF B$=HEX(08)THEN 80 : IF B$=HEX(0D)THEN 50 : IF B$=" "THEN 60 : IF B$="S"THEN 70 : RETURN 0050 K=200 : RETURN 0060 K=30 : RETURN 0070 K=2000 : RETURN 0080 I=I-2 : IF I<15THEN 10 : RETURN 0090 SELECT PRINT 215 : PRINT "1st=HEX 2nd=VAL 3rd=H.P." : FOR I=1TO 31 : BIN(A$)=I : PRINT " ";VAL(A$);" "; : HEXPRINT STR(A$,1,1); : PRINT , : NEXT I 0100 PRINT : FOR I=32TO 123 : BIN(A$)=I : PRINT A$;" ";VAL(A$);" "; : HEXPRINT STR(A$,1,1); : PRINT , : NEXT I 0110 PRINT : FOR I=124TO 159 : BIN(A$)=I : PRINT " ";VAL(A$);" "; : HEXPRINT STR(A$,1,1); : PRINT , : NEXT I 0120 PRINT : FOR I=160TO 251 : BIN(A$)=I : PRINT A$;" ";VAL(A$);" "; : HEXPRINT STR(A$,1,1); : PRINT , : NEXT I 0130 PRINT : PRINT "FILL IN THE REST BY YOURSELF" : SELECT PRINT 005 : GOTO 10 0140 END