Stefan Lennerbrant
<4364>
· Text 6474 · w8 · kommentar
1987-04-01 12:04
Ärende: LISTSKYDD
Ett lite bekvämare sätt är att göra ett prog som kollar om
programmet är listskyddat
10 input 'Filnamn:',fil¤
20 open fil¤ as file 1
30 posit #1,2 : get #1,a¤ : if asc(a¤) and 2 ;'Listskyddat med bit.'
40 posit #1,20 : get #1,a¤ : if asc(a¤)<>135 ;'Squeezat.'
Om ett program både är "bit-skyddat" och squeezat, kan man inte
skriva något annat än RUN, LOAD, NEW osv
Är programmet endast skyddat med en av ovanst. kan man använda
alla kommandon/instruktionern utom LIST, ED, MERGE...
Är programmet squeezat, kan man inte heller använda TRACE (Det har
ju ingen mening om inga radnummer finns kvar)
mvh
PS - man kan väl använda alla (de flesta) kommandon om biten
är satt men programmet inte är squeezat ?
Man kan det inte i BASICII/PC, men jag har för mig att det går
på '800