start tok64 d64-qEeCrA
0 REM {reverse on}basic protector - arne albertsson
1 REM {reverse on}oberoende computer 6 1988        
10 FORi=52992TO53173:READa:POKEi,a:c=c+a:NEXT
15 IFc<>21973THENPRINT"datafel!":END
20 POKE53280,.:POKE53281,.:PRINT"{white}{clear}instruktioner
30 PRINT"{green}{down}(1) ladda in det program du vill skydda
40 PRINT"{down}(2) skriv sys52992
50 PRINT"{down}(3) spara den kodade verisionen
60 PRINT"{orange}{down}publicerat i oberoende computer 6 1988
70 PRINT"skrivet av: arne albertsson, arvika
1000 DATA169,54,133,1,165,45,133,251,133,174,165,46,133,252,24,105
1010 DATA1,133,175,160,,24,169,,241,45,145,174,136,192,255,208
1020 DATA244,198,46,198,175,165,175,201,7,208,234,160,,185,80,207
1030 DATA153,1,8,200,192,128,208,245,169,55,133,1,165,251,141,79
1040 DATA8,133,45,165,252,141,85,8,24,105,1,133,46,96,,
1050 DATA14,8,195,7,158,50,48,54,52,32,73,67,,,,160
1060 DATA,185,30,8,153,,1,200,208,247,76,,1,169,54,133
1070 DATA1,160,,169,1,133,251,133,253,169,9,133,252,169,8,133
1080 DATA254,177,251,73,255,145,253,200,208,247,230,252,230,254,165,254
1090 DATA201,208,208,237,169,55,133,1,169,251,141,40,3,169,,133
1100 DATA45,133,174,169,,133,46,133,175,32,51,165,169,,32,113
1110 DATA168,76,174,167,,
stop tok64
(bastext 1.0)