D8(Dl~~D8lLdBD||`DK2:ABUILD.BAS[30,2]  03-Sep-75  07:01 PM

1 REM	ABUILD	 RAINER VON SALESKI   FEB 1975
 
	BUILDS THE FILE "ALPHA.BET" FOR PAPER TAPE LABELS

10 F$="ALPHA.BET"
12 OPEN F$ AS FILE 1%: CLOSE 1%: NAME F$ AS F$+"<60>"
14 OPEN F$ FOR INPUT AS FILE 1%
16 DIM #1, A$(63)=8
18 MAT C%=ZER(8%): C%(0%)=8%: C%(8%)=1%
20 FOR A%=32% TO 95%
22 READ C%(I%) FOR I%=2% TO 6%
24 READ C$
26 CHANGE C% TO A$(A%-32%)
28 NEXT A%
30 CLOSE 1%: NAME F$ AS F$+"<42>"

32 DATA   0,  0,  0,  0,  0,  " "
33 DATA   0,  0,158,  0,  0,  "!"
34 DATA   0, 14,  0, 14,  0,  '"'
35 DATA  40,254, 40,254, 40,  "#"
36 DATA  76,146,254,146,100,  "$"
37 DATA 198, 38, 16,200,198,  "%"
38 DATA 112,142,186, 78,160,  "&"
39 DATA   0,  8,  4,  2,  0,  "'"
40 DATA   0, 56, 68,130,  0,  "("
41 DATA   0,130, 68, 56,  0,  ")"
42 DATA  40, 16,124, 16, 40,  "*"
43 DATA  16, 16,124, 16, 16,  "+"
44 DATA   0,128, 96,  0,  0,  ","
45 DATA  16, 16, 16, 16, 16,  "-"
46 DATA   0,192,192,  0,  0,  "."
47 DATA 192, 32, 16,  8,  6,  "/"
48 DATA 124,162,146,138,124,  "0"
49 DATA 128,132,254,128,128,  "1"
50 DATA 196,162,162,146,140,  "2"
51 DATA  66,130,146,170, 68,  "3"
52 DATA  48, 40, 36,254, 32,  "4"
53 DATA  78,138,138,138,114,  "5"
54 DATA 124,146,146,146, 96,  "6"
55 DATA   2,226, 18, 10,  6,  "7"
56 DATA 108,146,146,146,108,  "8"
57 DATA 140,146,146, 82, 60,  "9"
58 DATA   0,198,198,  0,  0,  ":"
59 DATA   0,128,104,  0,  0,  ";"
60 DATA  16, 40, 68,130,130,  "<"
61 DATA  40, 40, 40, 40, 40,  "="
62 DATA 130,130, 68, 40, 16,  ">"
63 DATA   4,  2,186, 10,  6,  "?"
64 DATA 124,130,186,170, 60,  "@"
65 DATA 252, 18, 18, 18,252,  "A"
66 DATA 254,146,146,146,108,  "B"
67 DATA 124,130,130,130, 68,  "C"
68 DATA 254,130,130, 68, 56,  "D"
69 DATA 254,146,146,130,130,  "E"
70 DATA 254, 18, 18,  2,  2,  "F"
71 DATA 124,130,130,146,244,  "G"
72 DATA 254, 16, 16, 16,254,  "H"
73 DATA   0,130,254,130,  0,  "I"
74 DATA  96,128,130,126,  2,  "J"
75 DATA 254, 16, 40, 68,130,  "K"
76 DATA 254,128,128,128,128,  "L"
77 DATA 254,  4, 24,  4,254,  "M"
78 DATA 254,  8, 16, 32,254,  "N"
79 DATA 124,130,130,130,124,  "O"
80 DATA 254, 18, 18, 18, 14,  "P"
81 DATA 124,130,162, 66,188,  "Q"
82 DATA 254, 18, 50, 82,140,  "R"
83 DATA  76,146,146,146,100,  "S"
84 DATA   2,  2,254,  2,  2,  "T"
85 DATA 126,128,128,128,126,  "U"
86 DATA  62, 64,128, 64, 62,  "V"
87 DATA 126,128, 96,128,126,  "W"
88 DATA 198, 40, 16, 40,198,  "X"
89 DATA   6,  8,240,  8,  6,  "Y"
90 DATA 194,162,146,138,134,  "Z"
91 DATA   0,  0,254,130,130,  "["
92 DATA   6,  8, 16, 32,192,  "\"
93 DATA 130,130,254,  0,  0,  "]"
94 DATA   8,  4,254,  4,  8,  "^"
95 DATA  16, 56, 84,146, 16,  "_"
99 END

U7+3