1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... LIB.UTL 3 REM ! Utg}va 1.1 840222 4 REM ! av (c) Stig Johansson,Brastad. 5 REM ! Tel. 0523-40209 / 40976 7 REM ! Minne 16 Kbytes f|r flexskiva 8 REM ! Checksumma 11273 9 REM +++++++++++++++++++++++++++++++++ 10 REM Med detta LIB-pgm som visar 12 REM inneh}llet p} flex-skivorna,kan 14 REM du {ven f} filstorlekarna. 16 REM OBS snabb h{mtn.filst.p} grund 18 REM av att tv} dos-buffrar anv{nds. 20 REM G|r s}h{r !. Efter inladdning 22 REM med RUN LIB.UTL skriv sedan 24 REM f|r t.ex. drive 1 utan filstorl. 26 REM RUN LIB : 1 (gl|m ej kolon) 28 REM med filst.skriv RUN LIB : 1F 30 REM Samma f|r Drive 0 (noll). 32 REM Med enbart RUN LIB : 34 REM listas b}da drive-arna. 36 REM Du kan ocks} skriva 38 REM RUN LIB : BF f|r att ocks} 40 REM f} filstorlekarna fr}n 42 REM b}da drive-arna. 44 REM +++++++++++++++++++++++++++++++++ 100 POKE -5376,42,10,254,34,13,235,33,13,235,34,10,254,201,0,255 110 POKE -5361,76,73,66,20,235,195,26,235,195,204,0,62,0,50,181 120 POKE -5346,236,26,214,48,245,204,87,235,241,254,0,202,204,0,254 130 POKE -5331,1,245,204,87,235,241,254,1,202,204,0,196,74,235,195 140 POKE -5316,204,0,245,19,26,254,70,32,3,50,181,236,241,201,62 150 POKE -5301,0,205,87,235,62,1,205,87,235,195,204,0,205,62,235 160 POKE -5286,50,1,253,33,186,236,198,48,119,17,0,0,205,102,96 170 POKE -5271,58,21,253,167,192,33,182,236,1,6,0,205,11,0,1 180 POKE -5256,32,0,33,224,245,126,254,64,56,4,254,97,56,12,121 190 POKE -5241,254,8,40,10,14,8,33,248,245,24,235,205,11,0,205 200 POKE -5226,66,7,205,66,7,17,192,0,205,102,96,17,0,245,33 210 POKE -5211,0,0,6,80,26,197,6,8,203,63,56,1,35,16,249 220 POKE -5196,193,19,16,241,34,187,253,33,239,245,17,176,253,1,8 230 POKE -5181,0,237,176,33,176,253,17,0,2,6,8,213,197,229,62 240 POKE -5166,252,50,19,253,126,254,1,196,102,96,62,245,50,19,253 250 POKE -5151,225,70,35,229,33,16,252,195,54,236,4,225,17,16,0 260 POKE -5136,25,195,54,236,229,58,181,236,254,70,204,143,236,17,4 270 POKE -5121,0,25,126,254,94,48,229,254,65,56,225,197,205,97,236 280 POKE -5106,33,64,254,1,15,0,205,11,0,193,225,17,16,0,25 290 POKE -5091,58,244,253,167,40,19,198,3,50,244,253,95,58,106,3 300 POKE -5076,222,9,187,48,5,197,205,66,7,193,16,188,225,193,209 310 POKE -5061,123,198,32,95,16,141,58,244,253,167,196,66,7,205,66 320 POKE -5046,7,33,188,236,1,24,0,205,11,0,42,187,253,205,98 330 POKE -5031,24,205,66,7,201,195,204,0,17,64,254,1,8,0,237 340 POKE -5016,176,62,46,18,19,1,3,0,237,176,6,3,62,32,18 350 POKE -5001,19,16,252,58,181,236,254,70,192,229,58,180,236,111,38 360 POKE -4986,0,17,77,254,205,98,24,225,201,229,197,126,87,35,126 370 POKE -4971,95,205,102,96,33,4,245,30,0,126,254,255,40,9,35 380 POKE -4956,126,230,31,131,95,35,24,242,123,60,50,180,236,193,225 390 POKE -4941,201,0,0,13,10,68,82,32,58,65,110,116,97,108,32 400 POKE -4926,108,101,100,105,103,97,32,115,101,107,116,111,114,101,114 410 POKE -4911,32,58,32 420 Z=CALL(60160)