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