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 (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