1 REM Ins{nt av 648
2 ! **********************************************************************
3 ! Program          L[SPREP.BAC      Utg}va  1.0      1984-08-18
4 ! av INGEMAR JOHANSSON
5 ! Ins{nd av 648
6 ! F|r ABC80 ABC800C ABC802 ABC806
7 ! F|r disk 830,832, med superdoset
8 ! Testad p} ABC802
9 ! Program f|r att l{sa en skivas sp}rnr.sidnr.sektoradr.sektorl{ngd.cheksumma.
10 ! Programmet para testat p} ABC 802 och 832 flex
11 ! men b|r g} att k|ra p} b}de 80 & 800 maskiner 830 och 832 flexar
12 ! **********************************************************************
20 \=1%
25 OPEN "PR:VSA50C68.5" AS FILE 1
30 INPUT "\NSKAS PRINTER (J/N)"C$
35 IF C$="J" OR C$="j" P=1
40 POKE 49152,205,96,96,48,3,175,211,4,6,16,14,16,22,36,30,0,205
42 POKE 49169,65,192,205,96,96,6,2,205,65,192,219,1,230,4
45 POKE 49183,32,250,33,0,248,22,4,219,1,15,48,251,219,0,119,35,21
47 POKE 49200,32,244,22,252,219,1,15,48,251,219,0,119,35,21,32,244
50 POKE 49216,201,205,96,96,211,2,219,1,203,79,32,250,120,205
52 POKE 49230,89,192,121,205,89,192,122,205,89,192,123,245,219,1
55 POKE 49244,15,48,251,241,211,0,201
60 ; #P% "  Sp}r,Sida,Sektor nr. Sektor L{ngd,Cheksumma,Cheksumma."
65 FOR I=0 TO 39 ! 79 F\R DUBBELSIDIG FLEX
70   POKE 49165,I : FOR ]=1 TO 200 : NEXT ] 
75   Z=CALL(49152)
80   IF PEEK(63490)=\ GOTO 85 ELSE GOTO 70
85   \=\+1%
90   FOR X=63488 TO 63493
95     ; #P USING "####" (PEEK(X));
100   NEXT X 
105   ; #P : IF \=17 \=1 : GOTO 115
110   GOTO 70
115 NEXT I 
120 STOP