1 REM Ins{nd av Stefan Frank <5452>    1987-02-11 10.27.01 (DUMP)
1000 ! SAVE INSTKOLL
1010 ! F|r 800-serien
1020 !
1030 ! Program f|r att kolla vilka nya instruktioner/funktioner
1040 ! som har laddats in i minnet. Testat p} 802.
1050 !
1060 ; CHR$(12) ' Koll av nya instruktioner/funktioner' TAB(80) '';
1070 ; STRING$(80,61) : ; : ;
1080 Ilist=PEEK2(65405) ! Instruktionslista
1090 Flist=PEEK2(65407) ! Funktionslista
1100 IF ASCII(NUM$(Ilist))=45 Koll=FNInst ! Kolla nya instruktioner
1110 IF ASCII(NUM$(Flist))=45 Koll=FNFunk ! Kolla nya funktioner
1120 IF Inst=0 AND Funk=0 ; 'Inga nya instruktioner/funktioner finns!'
1130 ;
1140 END
1150 DEF FNInst
1160   Inst=1 : ; 'De nya instruktinerna {r: ' : ;
1170   Vid=PEEK2(Ilist) : Text=PEEK2(Ilist+6)+1
1180   WHILE PEEK(Text)<>255
1190     IF PEEK(Text)=66 AND PEEK(Text+1)=89 AND PEEK(Text+2)=69 THEN 1240
1200     IF PEEK(Text)<65 OR PEEK(Text)>94 ; SPACE$(5); : GOTO 1220
1210     ; CHR$(PEEK(Text));
1220   Text=Text+1 : WEND : ; SPACE$(5);
1230   IF ASCII(NUM$(Vid))=45 Ilist=Vid : GOTO 1170
1240   ; : ; : RETURN R{tt
1250 FNEND
1260 DEF FNFunk
1270   Funk=1 : ; 'De nya funktionerna {r: ' : ;
1280   Vid=PEEK2(Flist) : Text=PEEK2(Flist+6)+1
1290   WHILE PEEK(Text)<>255
1300     IF PEEK(Text)<65 OR PEEK(Text)>94 ; SPACE$(5); : GOTO 1340
1310     ; CHR$(PEEK(Text));
1320   Text=Text+1 : WEND : ; SPACE$(5);
1330   IF ASCII(NUM$(Vid))=45 Flist=Vid : GOTO 1280
1340   ; : ; : RETURN R{tt
1350 FNEND