10 REM ****************************
20 REM *   RUN-ONLY PROTECTION    *
30 REM *   VER 5.8                *
40 REM *   Kodat     1982-01-05   *
50 REM *   Erik Nilsson           *
60 REM *   Copyright     F}r kop- *
70 REM *   eras helt fritt i      *
80 REM *   kommersiellt syfte.    *
90 REM ****************************
100 ; CHR$(12);CUR(5,10)"RUN-ONLY PROTECTION "
110 ; CUR(6,12)"AV KASSETTER"
120 ; : ; "    EFTER ATT HA K\RT DETTA PROGRAM,"
130 ; "    GE KOMMANDOT <NEW> (TRYCK EJ"
140 ; "    P] RESETKNAPPEN."
150 ; "    LADDA SEDAN DET PROGRAM SOM SKALL"
160 ; "    G\RAS TILL ETT RUN-ONLY PROGRAM,"
170 ; "    OCH G\R ' ;CALL(65440) '."
180 ; "    DATORN SVARAR MED ' ABC '"
190 ; "    SKRIV SEDAN ' SAVE CAS:FILNAMN '"
200 ; "    SOM VANLIGT OCH SAKEN [R BIFF."
210 POKE 65440%,33,45,7,1,5,0,205,168,1
220 POKE 65449%,205,66,7,253,54,14,1
230 POKE 65456%,42,39,254,249,33,64,254
240 POKE 65463%,1,120,0,229,205,170,2
250 POKE 65470%,205,62,3,225,231,17,32,10
260 POKE 65478%,205,245,9,1,204,0,197
270 POKE 65485%,17,90,10,235,38,255,46,220,235,213,201
280 POKE 65500%,221,33,241,255,221,57
290 POKE 65506%,221,249,62,4
300 POKE 65510%,205,194,7,221,110,8
310 POKE 65516%,221,102,9,124,167
320 POKE 65521%,62,180,202,17,14,54,131
330 POKE 65528%,195,225,13