L..
c Most BASICS, however, are not quite that straightforward. For example, the
IBM-PC will give you a printout similar to Figure 2-6.
00 01 02 03 04 05 06 07 08 09 OA OB OC OD OA OE . . . . . . . . . . . . .
OF 10 11 12 13 14 15 16 17 58 19 1B 1C 1D 1E 1F . . . . . . . . . . .
20 21 22 23 24 25 26 27 28 29 2A 26 2C 20 2E 2F ‘i”#$%as()*+,-./
30 31 37 33 34 35 36 37 38 39 3A 38 3C 30 3E 3F 0123456789::<=>?
40 41 42 43 44 45 46 47 48 49 4A 46 4C 40 4E 4F @ABCDEFGHIJKLMNO
50 51 52 53 54 55 56 57 58 59 5A 58 5C 5D 5E 5F PQRSTUVWXYZ[\]--
60 61 62 63 64 65 66 67 68 69 6A 68 6C 60 6E 6F ‘abcdefghijklmno
70 71 72 73 74 75 76 77 78 79 7A 78 7C 70 7E 7F pqrstuvwxyz(()--.
80 81 82 83 84 85 86 87 88 89 8A 8B 8C 8D BE 8F . . . . . . . . . . . .
90 91 92 93 94 95 96 97 98 99 9A 96 9C 9D 9E 9F . . . . . . . . . . . . . . .
A0 Al A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF . . . . . . . . . . . . . . . .
BO Bl 82 83 B4 85 86 87 B8 B9 BA BB BC BD BE BF . . . . . . . . . . . . . . . .
co Cl CT.2 c3 c4 c5 cs c7 C8 CQ CA CB CC CD CE CF . . . . . . . . . . . . . . . .
DO Dl D2 03 04 D5 D6 D7 D8 D9 DA DB DC DD DE DF . . . . . . . . . . . . . . .
EO El E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF . . . . . . . . . . . . . . . .
FO Fl F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF . . . . . . . . . . . . . . . .
OD OA .
Figure 2-8. Sample hexadecimal dump with IBM-PC
When the IBM-PC BASIC interpreter sends hex code OD (carriage return)
it adds an extra hex OA (line feed). Hex code 1A (end-of-file) also gets
special treatment: the interpreter does not send it at all. This can cause
problems with graphics or download character data. However, you can solve
this problem by changing line 30 in the preceding program and adding the
coding shown below.
Coding for IBM-PC with monochrome display:
30 GOSUB 100
100 X=INP(&H3BD) :IF X<128 THEN 100
110 OUT &H3BC,I :OUT &H3BE,S :OUT &H3BE,J
120 RETURN
Coding for IBM-PC with color adapter:
30 GOSUB 100
100 X=INP(&H379) :IF X<128 THEN 100
110 OUT &H378,1 :OUT &H37A,5 :OUT &H37A,4
120 RETURN
31
r