10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program ....   RESETFIX
12 REM ! Utg}va  1      1982-02-18
13 REM ! av (c) BJ\RN BRUZELIUS
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av BJ\RN BRUZELIUS
16 REM +++++++++++++++++++++++++++++++++
17 REM *                      *
18 REM 
19 ; CHR$(12%)'RESETFIX.BAS' : ; 
20 ; "Snyggar till pekarna i minnet"
21 ; "efter en of|rarglig reset/h{ngning"
22 ; "kollar sj{lv 16k,24k,32k"
23 ; 
24 ; "D{refter,"
25 ; "Skriv RUN och k|r vidare !"
26 ; 
27 ; "30 BYTES MASKINKOD POKAS NER"
28 ; "P] VALFRI ADRESS I ARBETSMINNET"
29 ; 
30 ONERRORGOTO 30
31 ; "ANGE STARTADRESS:"; : INPUT A%
32 REM 
33 REM -
34 RESTORE 
35 FOR I%=0% TO 29%
36 READ D% : POKE A%+I%,D% : NEXT I%
37 IF PEEK(A%+29%)=201% 40
38 ; CHR$(13%,10%,7%)
39 ; "FELAKTIGT ADRESSVAL" : GOTO 30
40 ; 
41 ; "RUTINEN ANROPAS MED"
42 ; ";CALL("RIGHT$(NUM$(A%),1%)"%)"
43 ; 
44 REM -------------------------------
45 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
46 END