1 REM Ins{nd av Anders Johnson <4001> 1988-12-27 09.37.38 (KERMIT) 10 REM * TEDK830 f|r ABC800-serien. 20 ! ** Provat p} ABC802. 1988-06-06/Aj 30 ! ** Aktiva programrader av Kristoffer Eriksson <5357> 40 ! ** Utskrivet och kommenterat av Anders Johnson <4001> 45 ! ** Lite kontroller f|rst av Kristoffer Eriksson <5357> 50 ! * ------- [NDAM]L --------- 60 ! * Programmet g|r om LIB i TED (vers. 3.3) f|r ABC800-serien 70 ! * s} att r{tt antal lediga sektorer anges f|r diskettstation 80 ! * av typ ABC830. Obs! En s}lunda konverterad TED kommer att 90 ! * ange fel antal lediga sektorer p} ABC832/834. 100 ! * ------- BRUKSANVISNING -------- 110 ! * 1. G|r en s{kerhetskopia av ditt befintliga TED-program. 120 ! * 2. Ladda in TEDK830 (detta program) med LOAD. 130 ! * 3. Tag bort rad 200 (raden med STOP). 140 ! * 4. S{tt i disketten med den TED, som du vill konvertera. 150 ! * 5. K|r det inladdade TEDK830. TED {r nu konverterad. 160 ! * Om TED anger fel antal lediga sektorer trots konvertering, 170 ! * har du troligtvis en f|r gammal version av TED. Versions- 180 ! * nummer utl{ses med hj{lp av programmet ST[LLPAR. 190 ! * 200 STOP : ! F|rhindrar oavsiktlig konvertering av TED. 210 ! * ------- AKTIVA RADER -------- 220 OPEN "TED.BAC" AS FILE 1 222 POSIT #1,13234 224 GET #1 I$ 226 IF ASCII(I$)=6 THEN ; "TED var redan konverterad." : STOP 228 IF ASCII(I$)<>14 THEN ; "Detta {r inte version 3.3 av TED, eller s} {r den trasig." : STOP 230 POSIT #1,13234 240 PUT #1 CHR$(6) 250 CLOSE 255 ! * ------- SLUT P] AKTIVA RADER -------- 260 ; CHR$(12) CUR(8,15) "TED {r nu konverterad."