1 REM Ins{nd av Gunnar Larsson <4876> 1985-04-14 11.25.25 10 REM ******************************** 11 REM * * 12 REM * Bibloteksprogram f|r ABC800 * 13 REM * * 14 REM * Gammalt DOS * 15 REM * (finns {ven f|r superdos) * 16 REM * * 17 REM * Provat p} ABC800 C * 18 REM * Klockan f|ljer med GRATIS * 19 REM * (flyttas p} sk{rmen med poke * 20 REM * (32809,adr ex.32720,swap%(32 * 21 REM * (720) * 22 REM * Ins{nt av Gunnar Larsson * 23 REM * Hagebygatan 163 * 24 REM * 603 62 Norrk|ping * 25 REM * <4876> * 26 REM * Tele: 011-142965 * 27 REM * * 28 REM * K|r programmet. * 29 REM * * 30 REM * Sedan g{ller : * 31 REM * Drive 0: = PF1 * 32 REM * Drive 1: = PF2 * 33 REM * * 34 REM * Endast namn samt ext skrivs * 35 REM * ut * 36 REM * * 37 REM * Om DU {r intresserad av * 38 REM * liknande program kontakta * 39 REM * mig s} skall vi diskutera * 40 REM * ditt problem * 41 REM * * 42 REM ******************************** 43 REM 44 INTEGER 45 POKE 32770,42,214,255,34,86,128,33,14,128,34,214,255,243,229,197,213 46 POKE 32786,245,58,35,255,254,0,202,40,128,58,227,255,254,192,204,88 47 POKE 32802,128,254,193,204,115,128,17,39,120,58,245,255,198,0,194,80 48 POKE 32818,128,1,244,255,10,205,3,129,62,46,18,27,11,10,205,3 49 POKE 32834,129,11,62,46,18,27,10,205,3,129,98,107,54,3,241,209 50 POKE 32850,193,225,251,195,0,0,62,128,50,226,255,62,13,50,227,255 51 POKE 32866,62,0,50,1,253,205,117,2,1,7,0,33,241,128,195,139 52 POKE 32882,128,62,128,50,226,255,62,13,50,227,255,62,1,50,1,253 53 POKE 32898,205,117,2,1,7,0,33,248,128,205,11,0,33,224,1,6 54 POKE 32914,8,197,17,32,0,25,229,235,205,102,96,33,20,245,6,15 55 POKE 32930,197,126,254,93,210,234,128,1,8,0,205,11,0,229,33,1 56 POKE 32946,129,1,1,0,205,11,0,1,3,0,225,205,11,0,229,33 57 POKE 32962,2,129,1,1,0,205,11,0,225,17,5,0,25,58,82,255 58 POKE 32978,254,39,194,226,128,229,33,255,128,1,2,0,205,11,0,225 59 POKE 32994,193,16,189,225,193,16,170,201,17,16,0,25,195,226,128,131 60 POKE 33010,68,82,48,32,13,10,131,68,82,49,32,13,10,13,10,46 61 POKE 33026,32,38,0,10,111,62,10,197,79,6,8,41,124,145,56,2 62 POKE 33042,103,44,16,247,124,198,48,18,125,198,48,27,18,193,27,201 63 POKE 65292,34,129 64 POKE 65328,34,129 65 Z=CALL(32770)