1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   RESETFIX
3 REM ! Utg}va  1      1982-02-18
4 REM ! av (c) BJ\RN BRUZELIUS
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av BJ\RN BRUZELIUS
9 REM +++++++++++++++++++++++++++++++++
10 REM *                      *
20 REM 
30 ; CHR$(12%)'RESETFIX.BAS' : ; 
40 ; "Snyggar till pekarna i minnet"
50 ; "efter en of|rarglig reset/h{ngning"
60 ; "kollar sj{lv 16k,24k,32k"
70 ; 
80 ; "D{refter,"
90 ; "Skriv RUN och k|r vidare !"
100 ; 
110 ; "30 BYTES MASKINKOD POKAS NER"
120 ; "P] VALFRI ADRESS I ARBETSMINNET"
130 ; 
140 ONERRORGOTO 140
150 ; "ANGE STARTADRESS:"; : INPUT A%
160 REM 
170 REM -
180 RESTORE 
190 FOR I%=0% TO 29%
200 READ D% : POKE A%+I%,D% : NEXT I%
210 IF PEEK(A%+29%)=201% 240
220 ; CHR$(13%,10%,7%)
230 ; "FELAKTIGT ADRESSVAL" : GOTO 140
240 ; 
250 ; "RUTINEN ANROPAS MED"
260 ; ";CALL("RIGHT$(NUM$(A%),1%)"%)"
270 ; 
280 REM -------------------------------
290 DATA 205,57,15,229,30,0,62,13,28,237,161,32,251,225,115,229,193,62,13,237,177,62,1,190,32,247,34,30,254,201
300 END