1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   KAS800
3 REM ! Utg}va  1      1983-01-10
4 REM ! av (c) Per Ahlin <1911>
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
10 REM G|r det m|jligt f|r ABC80 att
11 REM l{sa kassetter inspelade med
12 REM ABC800. Programmet {r gjort f|r
13 REM checksumma 11273. Ladda det h{r
14 REM programmet F\RE du k|r ev.
15 REM Printer-program, t.ex ABCV24.
16 REM 
17 REM Screening av
18 REM Allan Varcoe & G|ran Olsson
19 REM 
50 A%=PEEK(65053%)+SGN(PEEK(65052))
60 B%=A%*256%
70 POKE 65052,75,A%
80 C%=PEEK(65034) : D%=PEEK(65035)
90 POKE 65034,0,A%
100 POKE B%,C%,D%,75,65,83,7,A%
110 POKE B%+7%,195,40,A%,195,191,3
120 POKE B%+13%,195,40,4,195,160,9
130 POKE B%+19%,195,18,9
140 POKE B%+22%,195,46,A%,195,14,4
150 POKE B%+28%,195,39,7,195,39,7
160 POKE B%+34%,62,A%,237,71,201,0
170 POKE B%+40%,205,71,A%,195,145,4
180 POKE B%+46%,205,34,A%,195,9,5
190 POKE B%+52%,30,3,56,A%
200 POKE B%+56%,251,245,197,219,58,230
210 POKE B%+62%,191,211,58,79,62
220 POKE B%+67%,25
230 POKE B%+68%,195,160,5
240 POKE B%+71%,175,237,71,201
250 CHAIN ""
260 END