10 REM .  SAVE AJAJ
20 REM -------------------------------
30 REM 1986-04-05
40 REM DAVID ANDERSSON <5201>
50 REM 
60 REM L]TER ABC80 IBLAND LJUDLIGT
70 REM PROTESTERA N[R MAN TRYCKER P]
80 REM KNAPPARNA.
90 REM -------------------------------
100 REM 
110 REM FUNGERAR B[ST P] ABC80 MED H\G-
120 REM TALAREN I BILDSK[RMEN.
125 REM L[GGER MASKINKOD UNDER BOFA
130 REM 
140 REM 
150 DATA 0,0,2,0,1,128,1,164,1,12,12,64,156
160 DATA 98,16,192,226,8,194,48,134,6,1,204
170 DATA 51,8,96,224,57,194,112,132,12,2
180 DATA 184,38,16,5,128,87,4,194,48,240
190 DATA 24,224,48,76,14,66,184,6,1,131,128
200 DATA 198,33,128,96,226,17,200,96,8,56
210 DATA 132,114,24,2,14,35,28,134,65,3,128
220 DATA 206,35,144,64,228,35,144,200,48
230 DATA 112,25,192,116,2,28,4,114,25,132
240 DATA 142,3,56,140,194,99,144,158,67,113
250 DATA 17,200,39,49,152,140,114,1,204,6
260 DATA 2,62,128,115,1,128,135,176,14,192
270 DATA 96,16,118,1,216,12,128,6,64,59,128
280 DATA 152,128,108,35,48,17,128,14,96,35
290 DATA 144,0,136,27,0,12,192,0,96,102,32
300 DATA 51,144,1,200,204,64,15,192,4,192
310 DATA 78,0,47,224,0,224,55,16,17,216,0
320 DATA 12,12,228,0,59,0,1,0,220,64,7,96
330 DATA 0,16,6,224,0,59,0,0,0,19,128,0,236
340 DATA 0,0,0,55,0,1,216,0,0,0,55,0,1,200
350 DATA 0,0,0,27,128,0,236,0,0,0,3,160,0
360 DATA 10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
370 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
380 DATA 0,0,0,0,0,0,0,1,193,224,8,0,96,56
390 DATA 60,65,192,8,0,112,115,135,128,56
400 DATA 1,224,206,14,0,113,3,193,156,28
410 DATA 33,194,15,6,120,120,67,140,30,12
420 DATA 224,225,14,56,120,51,195,134,60
430 DATA 97,224,199,14,24,241,135,131,56
440 DATA 56,67,142,30,24,224,231,12,48,240
450 DATA 103,7,24,113,131,195,28,56,195,142
460 DATA 30,4,224,198,12,112,120,7,6,48,99
470 DATA 131,192,188,27,131,28,15,0,224,222
480 DATA 12,96,60,7,131,240,39,0,240,30,3
490 DATA 192,28,3,192,56,15,0,226,7,0,226
500 DATA 28,131,56,14,1,172,51,8,192,28,131
510 DATA 120,70,1,136,28,130,120,14,0,0,28
520 DATA 128,121,24,196,2,14,192,53,136,68
530 DATA 1,3,176,13,224,33,16,0,230,3,56
540 DATA 128,100,0,14,64,51,136,4,192,0,51
550 DATA 0,158,64,35,0,0,228,1,57,0,12,0
560 DATA 0,236,0,123,0,8,128,0,118,0,57,0
570 DATA 0,0,0,60,0,14,0,0,0,0,3,128,0,0
580 DATA 0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0
590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
600 DATA 237,87,103,46,52,126,35,102,111,34,93,-1,62,-1,237,71
610 DATA 201,197,1,57,5,243,237,179,251,193,201,79,135,135,135,50
620 DATA 207,255,183,127,52,0,0,0,0,0,0,0,0,0,0,0,0,0
630 DATA 95,-1,56,-1,148,5,245,229,219,56,230,16,40,26,33,40
640 DATA -1,58,241,253,230,1,190,119,40,14,33,0,-2,132,103,34
650 DATA 38,-1,33,27,-1,205,17,-1,225,241,195,0,0,245,229,42
660 DATA 38,-1,203,6,48,7,175,211,6,62,121,211,6,58,37,-1
670 DATA 61,50,37,-1,230,7,32,10,44,34,38,-1,33,32,-1,204
680 DATA 17,-1,225,241,251,237,77,-
690 REM 
700 A1%=PEEK(65053%) : IF PEEK(65052%) A1%=A1%+1% : REM BOFA, HIGH BYTE
710 A0%=SWAP%(A1%)
720 A%=A0%
730 ONERRORGOTO 760
740 READ D% : IF D%=-1% D%=A1%+2% ELSE IF D%=-2% D%=A1%
750 POKE A%,D% : A%=A%+1% : GOTO 740
760 REM 
770 POKE 65052%,A%,SWAP%(A%) : REM NY BOFA
780 D%=CALL(A0%+512%)
790 CHAIN '' : REM NEW
800 END