start tok64 d64-Mokqyq
10 REM *** punkt skrift ***
20 REM *** gjort   1990 ***
30 REM *** f{pound}r shn av : ***
35 REM *** mikael pawloCLOSE***
40 POKE53280,0:POKE53281,0
45 PRINT"{white}"
50 FORt=8192TO8704:READa:POKEt,a:NEXTt
60 INPUT"vill du ha en demonstration av rutinen";a$
70 IF a$="j"ORa$="ja"ORa$="y"ORa$="yes"THEN GOTO 90
80 END
90 REM *** demo ***
100 PRINT"{clear}brailles punktskriftsystem"
110 PRINT"gjort av mikael pawlo f{pound}r shn"
120 PRINT"{down}abcdefghijklmnopqrstuvwxyz][{pound}"
130 PRINT"/1 /2 /3 /4 /5 /6 /7 /8 /9 /0"
140 PRINT"{down}tryck p] 1 f{pound}r punktskrift"
150 PRINT"{down} och 2 f{pound}r vanlga tecken."
160 GETa$:IFa$=""THEN160
170 IFa$="1"THENPOKE53272,24:GOTO160
180 IFa$="2"THENPOKE53272,20:GOTO160
190 GOTO160
300 DATA  0 , 16 , 84 , 56 , 124
310 DATA  56 , 84 , 16 , 0 , 64
320 DATA  0 , 0 , 0 , 0 , 0
330 DATA  0 , 0 , 64 , 0 , 0
340 DATA  64 , 0 , 0 , 0 , 0
350 DATA  72 , 0 , 0 , 0 , 0
360 DATA  0 , 0 , 0 , 72 , 0
370 DATA  0 , 8 , 0 , 0 , 0
380 DATA  0 , 64 , 0 , 0 , 8
390 DATA  0 , 0 , 0 , 0 , 72
400 DATA  0 , 0 , 64 , 0 , 0
410 DATA  0 , 0 , 72 , 0 , 0
420 DATA  72 , 0 , 0 , 0 , 0
430 DATA  64 , 0 , 0 , 72 , 0
440 DATA  0 , 0 , 0 , 8 , 0
450 DATA  0 , 64 , 0 , 0 , 0
460 DATA  0 , 8 , 0 , 0 , 72
470 DATA  0 , 0 , 0 , 0 , 64
480 DATA  0 , 0 , 0 , 0 , 0
490 DATA  64 , 0 , 64 , 0 , 0
500 DATA  64 , 0 , 0 , 64 , 0
510 DATA  72 , 0 , 0 , 0 , 0
520 DATA  0 , 64 , 0 , 72 , 0
530 DATA  8 , 0 , 32 , 0 , 0
540 DATA  0 , 64 , 0 , 8 , 0
550 DATA  64 , 0 , 0 , 0 , 72
560 DATA  0 , 0 , 64 , 0 , 0
570 DATA  64 , 0 , 72 , 0 , 0
580 DATA  72 , 0 , 0 , 64 , 0
590 DATA  64 , 0 , 0 , 72 , 0
600 DATA  0 , 64 , 0 , 8 , 0
610 DATA  0 , 64 , 0 , 0 , 64
620 DATA  0 , 8 , 0 , 0 , 72
630 DATA  0 , 0 , 64 , 0 , 64
640 DATA  0 , 0 , 0 , 0 , 0
650 DATA  72 , 0 , 64 , 0 , 0
660 DATA  64 , 0 , 0 , 72 , 0
670 DATA  8 , 0 , 0 , 72 , 0
680 DATA  0 , 8 , 0 , 72 , 0
690 DATA  0 , 0 , 0 , 0 , 72
700 DATA  0 , 72 , 0 , 0 , 8
710 DATA  0 , 0 , 72 , 0 , 64
720 DATA  0 , 0 , 8 , 0 , 0
730 DATA  72 , 0 , 8 , 0 , 0
740 DATA  8 , 0 , 0 , 64 , 0
750 DATA  8 , 0 , 0 , 64 , 0
760 DATA  0 , 8 , 0 , 64 , 0
770 DATA  0 , 0 , 0 , 0 , 8
780 DATA  0 , 0 , 0 , 0 , 0
790 DATA  0 , 0 , 0 , 0 , 0
800 DATA  0 , 0 , 0 , 0 , 0
810 DATA  0 , 0 , 0 , 0 , 0
820 DATA  0 , 0 , 0 , 0 , 0
830 DATA  0 , 0 , 0 , 0 , 0
840 DATA  0 , 0 , 0 , 0 , 0
850 DATA  0 , 0 , 0 , 0 , 0
860 DATA  0 , 0 , 0 , 0 , 0
870 DATA  0 , 0 , 0 , 0 , 0
880 DATA  0 , 0 , 0 , 0 , 0
890 DATA  0 , 0 , 0 , 0 , 0
900 DATA  0 , 0 , 0 , 0 , 0
910 DATA  0 , 0 , 0 , 0 , 0
920 DATA  0 , 0 , 0 , 0 , 0
930 DATA  0 , 0 , 0 , 0 , 0
940 DATA  0 , 0 , 0 , 0 , 0
950 DATA  0 , 0 , 0 , 0 , 0
960 DATA  0 , 0 , 0 , 0 , 0
970 DATA  0 , 0 , 0 , 0 , 0
980 DATA  0 , 0 , 0 , 0 , 0
990 DATA  0 , 0 , 0 , 0 , 0
1000 DATA  0 , 0 , 0 , 0 , 0
1010 DATA  0 , 0 , 0 , 0 , 0
1020 DATA  0 , 0 , 0 , 0 , 0
1030 DATA  0 , 0 , 0 , 0 , 0
1040 DATA  0 , 0 , 0 , 0 , 0
1050 DATA  0 , 0 , 8 , 0 , 0
1060 DATA  8 , 0 , 0 , 72 , 0
1070 DATA  16 , 0 , 0 , 144 , 0
1080 DATA  0 , 0 , 0 , 128 , 0
1090 DATA  0 , 0 , 0 , 0 , 0
1100 DATA  0 , 128 , 0 , 0 , 128
1110 DATA  0 , 0 , 0 , 0 , 144
1120 DATA  0 , 0 , 0 , 0 , 0
1130 DATA  0 , 0 , 144 , 0 , 0
1140 DATA  16 , 0 , 0 , 0 , 0
1150 DATA  128 , 0 , 0 , 16 , 0
1160 DATA  0 , 0 , 0 , 128 , 0
1170 DATA  0 , 144 , 0 , 0 , 0
1180 DATA  0 , 144 , 0 , 0 , 144
1190 DATA  0 , 0 , 0 , 0 , 128
1200 DATA  0 , 0 , 144 , 0 , 0
1210 DATA  0 , 0 , 16 , 0 , 0
1220 DATA  128 , 0 , 0 , 0 , 0
1230 DATA  60 , 18 , 18 , 28 , 18
1240 DATA  18 , 60 , 0 , 34 , 34
1250 DATA  28 , 8 , 8 , 8 , 56
1260 DATA  0 , 34 , 20 , 42 , 34
1270 DATA  34 , 34 , 99 , 0 , 124
1280 DATA  2 , 18 , 18 , 28 , 16
1290 DATA  112 , 0 , 0 , 0 , 0
1300 DATA  0 , 0 , 0 , 0 , 0
1310 DATA  0 , 0 , 0 , 0 , 0
1320 DATA  0 , 0 , 255 , 255 , 218
stop tok64
(bastext 1.0)