10 REM #    ++++++++++++++++++++++++
11 REM #    ++++++ CKOLON.BAS ++++++
12 REM #    +++++ Version 2.02 +++++
13 REM #    ++ Copyright INOWE HB ++
14 REM #    ++ telefon  08/812160 ++
15 REM #    ++++++++++++++++++++++++
16 REM #    ++ F}r utan tillst}nd ++
17 REM #    + anv{ndas f|r privata +
18 REM #    + {ndam}l av medlemmar +
19 REM #    ++++ i ABC-KLUBBEN. ++++
20 REM #    ++++++++++++++++++++++++
21 REM #
22 REM # Biblioteksmodul f|r inl{nkning
23 REM # i enhetslistan.
24 REM #
25 REM # Anrop till rutinen kan ske med
26 REM # LIST C :  eller RUN C : 
27 REM # \nskas endast en drive kan 
28 REM # drivenummer anges efter kolon.
29 REM # RUN C :  1  listar drive 1.
30 REM #
31 REM # Om X anges som drivenummer
32 REM # listas ingen drive. Detta kan
33 REM # anv{ndas f|r att testa om 
34 REM # enheten {r inl{nkad.
35 REM #
36 REM # Rutinen kan {ven anropas i
37 REM # program p} liknande s{tt
38 REM # genom att |ppna C :   som fil.
39 REM # 
40 REM # OPEN 'C :  ' ASFILE 1 :  CLOSE 1
41 REM #
42 ONERRORGOTO 43 : OPEN 'c:' ASFILE 1% : CLOSE 1% : CHAIN '' : REM H{r kan CHAIN g|ras till egna rutiner.
43 POKE 64897%,0%,0%,0%,67%,32%,32%,13%,249%
44 POKE 63744%,42%,10%,254%,34%,130%,253%,33%,130%,253%,34%,10%,254%,201%,195%,22%,249%
45 POKE 63760%,195%,22%,249%,195%,199%,249%,62%,22%,50%,137%,253%,221%,229%,26%,214%,48%
46 POKE 63776%,40%,14%,254%,1%,40%,8%,254%,40%,40%,9%,175%,205%,61%,249%,62%,1%
47 POKE 63792%,205%,61%,249%,221%,225%,58%,36%,254%,167%,200%,195%,204%,0%,50%,1%,253%
48 POKE 63808%,17%,224%,0%,205%,201%,249%,58%,21%,253%,167%,192%,213%,205%,186%,249%,17%
49 POKE 63824%,192%,0%,205%,201%,249%,213%,46%,239%,53%,40%,67%,22%,2%,125%,60%,15%
50 POKE 63840%,15%,15%,95%,205%,102%,96%,229%,42%,18%,253%,46%,16%,52%,40%,40%,229%
51 POKE 63856%,125%,246%,4%,111%,17%,64%,254%,213%,1%,8%,0%,237%,176%,62%,46%,18%
52 POKE 63872%,19%,14%,3%,237%,176%,62%,32%,18%,225%,14%,13%,205%,11%,0%,58%,244%
53 POKE 63888%,253%,254%,39%,204%,186%,249%,225%,125%,198%,16%,111%,48%,207%,225%,44%,125%
54 POKE 63904%,254%,247%,56%,180%,58%,244%,253%,167%,196%,186%,249%,205%,147%,2%,225%,205%
55 POKE 63920%,228%,249%,62%,44%,18%,19%,225%,205%,228%,249%,205%,66%,7%,58%,137%,253%
56 POKE 63936%,61%,250%,2%,0%,50%,137%,253%,175%,201%,6%,16%,205%,15%,96%,42%,18%
57 POKE 63952%,253%,36%,62%,239%,106%,90%,6%,8%,203%,14%,56%,1%,19%,16%,249%,44%
58 POKE 63968%,61%,200%,24%,242%,58%,98%,24%,254%,175%,202%,98%,24%,195%,96%,24%
59 A%=CALL(63744%) : GOTO 42
60 REM # Have fun. We have!