1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   LISTBART
3 REM ! Utg}va  1.0    1981-07-12
4 REM ! av (c) Roland Eiworth
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 350
9 REM ++++++++++++++++++++++++++++++++
10 REM Programmet plockar upp only-
11 REM sp{rrade program.
80 ; CHR$(12)
90 ; CUR(3%,10%)"LISTBART.BAC"
100 ; CUR(4%,9%)CHR$(151%)"############"
110 ; : ; "Med denna rutin kan du ta bort list-" : ; "skyddet p} dina program. G|r s} h{r:"
120 ; : ; "Skriv 'RUNCAS:' eller 'RUN xxx'. Innan  programmet avbryts trycker du p}" : ; " CTRL-SHIFT-O (bokstaven)."
130 ; "N{r detta {r gjort kan du behandla" : ; "programmet p} ett helt normalt s{tt."
140 ; : ; 'Rutinen fungerar tills du g|r RESET.' : ; 'Efter RESET startas den upp igen med:'
150 ; : ; "       ;CALL(-128)"
160 POKE -202%,148%,5% : POKE -6%,138%,255%
170 POKE -128%,62%,255%,237%,71%,62%,250%,211%,57%,201%,0%,245%,219%,56%,254%,159%
180 POKE -113%,194%,33%,3%,229%,33%,37%,254%,54%,0%,225%,195%,31%,3%
190 Z%=CALL(-128%)