I was curious, what "Listing 4" was about. Thought, it was a machine code program. But it seems, it was just the data for redefining the character set.
So, here's the data with some BASIC code around it. After reading in the data, it POKEs something to enable the new char set, and it just does INPUT, so that you can try out some chars on the keys.
Use "bas2tap" to create a ".tap" file from this. Such a waste of time, lol:
Code: Select all
10 LET a = 32216
20 FOR i = 1 TO 8
30 FOR u = 1 TO 4
40 READ b
50 POKE a, b
60 LET a = a + 1
70 NEXT u
80 NEXT i
90 LET a = 32264
100 FOR i = 1 TO 42
110 FOR u = 1 TO 4
120 READ b
130 POKE a, b
140 LET a = a + 1
150 NEXT u
160 NEXT i
170 LET a = 32448
180 FOR i = 1 TO 12
190 FOR u = 1 TO 4
200 READ b
210 POKE a, b
220 LET a = a + 1
230 NEXT u
240 NEXT i
250 POKE 23607, 123
260 INPUT a$
270 DATA 247, 227, 201, 28
280 DATA 56, 114, 230, 64
290 DATA 247, 247, 195, 24
300 DATA 218, 218, 218, 24
310 DATA 247, 135, 39, 112
320 DATA 56, 156, 206, 4
330 DATA 62, 127, 73, 73
340 DATA 62, 34, 54, 28
350 DATA 56, 116, 120, 56
360 DATA 16, 56, 56, 56
370 DATA 56, 56, 16, 16
380 DATA 16, 16, 16, 24
390 DATA 28, 46, 30, 28
400 DATA 8, 28, 28, 28
410 DATA 28, 28, 8, 8
420 DATA 8, 8, 8, 24
430 DATA 56, 116, 120, 56
440 DATA 16, 120, 251, 90
450 DATA 184, 184, 56, 24
460 DATA 20, 34, 68, 102
470 DATA 28, 46, 30, 28
480 DATA 8, 30, 223, 125
490 DATA 29, 29, 28, 24
500 DATA 40, 68, 34, 102
510 DATA 56, 116, 120, 56
520 DATA 16, 120, 251, 190
530 DATA 56, 56, 24, 20
540 DATA 24, 112, 80, 56
550 DATA 28, 46, 30, 28
560 DATA 8, 30, 223, 125
570 DATA 28, 28, 24, 40
580 DATA 24, 14, 10, 28
590 DATA 0, 0, 56, 116
600 DATA 120, 56, 16, 60
610 DATA 58, 57, 56, 56
620 DATA 16, 8, 16, 24
630 DATA 0, 0, 28, 46
640 DATA 30, 28, 8, 60
650 DATA 92, 156, 28, 28
660 DATA 8, 16, 8, 24
670 DATA 195, 66, 126, 153
680 DATA 255, 195, 126, 102
690 DATA 66, 126, 219, 153
700 DATA 255, 66, 60, 195
710 DATA 36, 102, 255, 153
720 DATA 189, 231, 60, 195
730 DATA 247, 247, 247, 0
740 DATA 254, 254, 254, 0
750 DATA 247, 247, 247, 0
760 DATA 255, 255, 255, 0
770 DATA 56, 84, 124, 56
780 DATA 16, 56, 124, 186
790 DATA 186, 186, 40, 40
800 DATA 40, 40, 40, 108
810 DATA 186, 254, 124, 40
820 DATA 40, 40, 40, 108
830 DATA 62, 62, 0, 62
840 DATA 62, 0, 62, 62
850 DATA 0, 0, 0, 62
860 DATA 62, 0, 62, 62
870 DATA 0, 0, 0, 0
880 DATA 0, 0, 62, 62