1 REM Ins{nt av 1306 1 REM Ins{nt av 1306 2 ! +++++++++++++++++++++++++++++++++++ 3 ! Program .... CASDEF.802 4 ! Utg}va 1.0 1983-10-01 5 ! av (c) Gunnar Tidner, medl 1306 6 ! Ins{nt av Gunnar Tidner <1306> 7 ! +++++++++++++++++++++++++++++++++++ 10 ! Detta program {r avsett f|r de som 20 ! har ABC802 och vill anv{nda enbart 30 ! kassettminnet. Programmet s{tter 40 ! enheten CAS: till default device 50 ! p} samma s{tt som ABC80 utan disk. 60 ! N{r detta {r gjort g|r programmet 70 ! CHAIN till detta defaultdevice. 80 ! ++++++++++++++++++++++++++++++++++ 90 EXTEND : INTEGER 100 Defaultdev$='CAS' 110 Adress=FNEnhet(SYS(10)+123) 120 WHILE Adress<>0 130 Adress=FNEnhet(Adress) 140 WEND 150 CHAIN Defaultdev$+':' 160 DEF FNEnhet(Adress) 170 Dev$=CHR$(PEEK(Adress+2),PEEK(Adress+3),PEEK(Adress+4)) 180 IF Dev$=' ' THEN POKE Adress+5,Defdrive,SWAP%(Defdrive) 190 Driv=PEEK2(Adress+5) 200 IF Dev$=Defaultdev$ THEN Defdrive=Driv 210 RETURN PEEK2(Adress) 220 FNEND