1 REM Ins{nd av Bo Kullmar <1789> 1985-03-10 11.37.38 2 ! ********************************************************************** 3 ! Funktion TYP.BAS Utg}va 1.0 1985-03-10 4 ! av Bo Kullmar 5 ! Ins{nd av Bo Kullmar <1789> 6 ! F|r ABC800M ABC800C ABC802 ABC806 7 ! Testad p} ABC806, ABC802 8 ! Funktionen anger vilken datortyp som programmet k|rs p} genom att l{sa 9 ! tolken och se om det st}r ABC800, ABC802 eller ABC802 d{r. St}r det 10 ! ABC800 s} kollas det som CLR DOT ger error och d{rigen kan man skilja 11 ! p} ABC800 C och ABC800 M. 12 ! ********************************************************************** 20 INTEGER : EXTEND 1000 ; FNTyp$ 1010 DEF FNTyp$ LOCAL Adr,Tolk$=0,Typ$=6 1020 ! In: -- 1030 ! Ut: Datortyp, PIC X(8) 1040 POKE VAROOT(Tolk$),0,96,0,0,0,96 1050 Adr=INSTR(1,Tolk$,"ABC80") 1060 Typ$=MID$(Tolk$,Adr,6) 1070 IF Typ$<>'ABC800' RETURN Typ$ 1080 ON ERROR GOTO 1110 1090 CLR DOT 0,0 1100 RETURN 'ABC800 C' 1110 RETURN 'ABC800 M' 1120 FNEND