1 REM Ins{nt av 1182
1 REM Ins{nt av 525
5 GOTO 340
6 REM r{ttat bug enl G\RCAS80.BUG CS 1182 (821221)
10 REM !+++++++++++++++++++++++++
20 REM ! Programm  CAS80.BAC
30 REM ! Av (c) Johan Hedin 25/1-81
40 REM ! 16 eller 32K ram minne.
50 REM !+++++++++++++++++++++++++
60 DIM A$=100% : READ A$
70 A%=PEEK(65065%)+SWAP%(PEEK(65066%))+6%
80 B%=PEEK(65052%)+SWAP%(PEEK(65053%))
90 POKE A%,B%,SWAP%(B%)
100 A$='H[R KOMMER MASKINKODEN ATT LIGGA ..................................................................1'
110 POKE A%,B%+100%,SWAP%(B%+100%)
120 A$='H[R KOMMER MASKINKODEN ATT LIGGA ..................................................................2'
130 POKE A%,B%+200%,SWAP%(B%+200%)
140 A$='H[R KOMMER MASKINKODEN ATT LIGGA ..................................................................3'
150 POKE A%,B%+300%,SWAP%(B%+300%)
160 A$='H[R KOMMER MASKINKODEN ATT LIGGA ...................................................................'
170 POKE A%,B%+400%,SWAP%(B%+400%)
180 A$='H[R KOMMER MASKINKODEN ATT LIGGA ...................................................................'
190 POKE A%,B%+500%,SWAP%(B%+500%)
200 A$='H[R KOMMER MASKINKODEN ATT LIGGA ...................................................................'
210 POKE A%,B%+600%,SWAP%(B%+600%)
220 A$='H[R KOMMER MASKINKODEN ATT LIGGA ...................................................................'
230 DATA 0,0,7,5,14,12,41,15,290,18,68,21,179,30,625,33,153,42,557,45,564,48,179,57,631,60,571,111,202,175,202
240 DATA 205,263,215,251,223,251,233,251,241,251,245,251,249,251,255,264,271,277,298,446,376,130,413,446,452,489
250 DATA 482,489,558,290,561,616,565,68,568,616,572,607,591,153,594,616,598,607,601,412,604,616,629,412
260 DATA 632,637,635,597
270 ONERRORGOTO 290
280 READ A1%,B1% : POKE B%+A1%,B%+B1%,SWAP%(B%+B1%) : GOTO 280
290 A%=PEEK(65034%) : A1%=PEEK(65035%)
300 POKE B%+7%,A%,A1% : POKE 65034%,B%,SWAP%(B%)
310 B%=B%+768% : POKE 65052%,B%,SWAP%(B%)
320 ; "NY BOFA="B%-65536*(B%<0%)
330 CHAIN ''
340 REM ** RUTIN SOM L[GGER MASKINKODEN
350 REM ** I DATASATSERNA NEDAN I
360 REM ** STR[NGARNA P] ADRESS 100-220
370 ONERRORGOTO 440 : RESTORE 490
380 FOR I=100 TO 220 STEP 20
390 A%=CALL(3897,I)
400 FOR J%=A%+12% TO A%+111%
410 READ B% : POKE J%,B%
420 NEXT J%
430 NEXT I
440 A%=CALL(3897,10)
450 B%=CALL(3897,340)
460 POKE B%,1% : POKE 65052%,A%,SWAP%(A%)
470 ; "G\R  SAVE CAS80"
480 ; "OCH TRYCK P] RESET" : END 
490 DATA 7,128,67,83,49,14,128,0,0,67,83,50,41,128,195,34,129,195,68,128
500 DATA 195,179,128,195,160,9,195,18,9,195,156,129,195,153,128,195,39,7,195,39
510 DATA 7,195,45,130,195,52,130,195,179,128,195,160,9,195,18,9,195,85,130,195
520 DATA 59,130,195,39,7,195,39,7,33,0,252,229,54,0,44,32,251,6,3,54
530 DATA 255,35,16,251,235,1,11,0,237,176,245,219,58,230,31,246,32,211,58,241
540 DATA 6,12,43,124,181,32,251,16,249,225,205,202,128,33,0,0,34,249,253,221
550 DATA 54,14,1,43,34,253,253,33,3,252,117,221,117,10,221,117,8,221,116,11
560 DATA 221,116,9,221,54,13,252,221,54,7,132,235,201,42,253,253,35,34,253,253
570 DATA 235,221,110,8,221,102,9,43,114,43,115,43,54,0,205,202,128,24,204,221
580 DATA 126,14,167,40,4,135,220,133,9,245,219,58,230,31,211,58,241,175,221,119
590 DATA 14,201,14,0,205,7,129,13,32,250,30,3,14,22,205,251,128,29,32,248
600 DATA 14,2,205,251,128,17,3,0,78,235,9,235,205,251,128,44,32,246,14,3
610 DATA 205,251,128,75,205,251,128,74,205,251,128,55,203,25,205,8,129,203,25,32
620 DATA 249,167,201,175,62,150,48,9,203,63,205,21,129,62,150,203,63,71,16,254
630 DATA 71,16,254,219,58,238,64,211,58,201,33,0,0,34,249,253,213,205,190,129
640 DATA 209,48,31,254,170,79,245,219,58,230,31,211,58,241,121,55,200,126,167,40
650 DATA 231,245,219,58,230,31,211,58,241,175,121,195,46,6,1,165,3,126,167,40
660 DATA 211,126,35,60,32,231,16,249,26,254,32,40,25,213,6,11,26,174,32,193
670 DATA 35,19,16,248,209,175,17,255,255,237,83,253,253,46,3,195,130,128,229,33
680 DATA 1,5,1,8,0,205,168,1,255,229,1,46,3,46,11,126,113,79,35,16
690 DATA 250,113,46,3,14,12,205,168,1,225,24,209,205,190,129,79,56,159,237,91
700 DATA 253,253,19,237,83,253,253,151,1,165,3,174,32,143,35,123,90,16,248,221
710 DATA 117,8,221,116,9,201,42,249,253,124,180,204,233,129,17,0,0,237,83,249
720 DATA 253,27,6,25,16,254,122,179,62,170,55,200,58,248,253,60,40,239,61,229
730 DATA 245,204,233,129,241,225,192,175,201,243,62,255,50,248,253,62,54,211,59,62
740 DATA 151,211,59,62,127,211,59,235,33,0,50,34,1,254,33,208,5,34,3,254
750 DATA 235,124,167,32,5,33,0,252,24,3,238,7,103,34,249,253,34,255,253,54
760 DATA 170,245,219,58,230,31,246,32,211,58,246,64,211,58,241,251,201,205,34,129
770 DATA 205,104,130,201,205,68,128,205,104,130,201,205,95,130,197,245,58,240,253,214
780 DATA 75,71,58,240,253,184,32,250,241,193,205,153,128,205,104,130,201,205,95,130
790 DATA 205,156,129,205,104,130,201,245,219,58,246,32,211,58,241,201,245,219,58,230
800 DATA 223,211,58,241,201,0,0,0,195,0,0,205,0,0,195,0,0,62,207,211
810 DATA 59,62,135,211,59,62,54,211,59,62,151,211,59,62,127,211,59,201