1 REM Ins{nd av Leopold Lundstr|m <2694>    1986-09-05 00.29.33 (DUMP)
2 REM ! Program ....   TVCKOLON
3 REM ! Utg}va  1.1    1986-04-29
4 REM ! CKOLON.BAS vers. 2.02
5 REM ! av (c) INOWE HB
6 REM ! |verflyttad till dosbuf 2
7 REM ! av L Lundstr|m <2694>
8 REM ! att anv{ndas med TV-editorn
9 REM +++++++++++++++++++++++++++++++++
10 REM
11 REM G|r s} h{r!
12 REM
13 REM LOAD TVMAIN
14 REM L{gg in en ny rad 1525
15 REM 1525 IF C%=22% THEN OPEN'C#'ASFILE1 # CLOSE1 # GET[$ # RETURN
16 REM SAVE TVMAIN
17 REM
18 REM obsobsobs
19 REM
20 REM Tecknet # anv{nds ovan i st f|r kolon. Kolon i REM-sats medf|r att extra mellanrum skjuts in vid lagring.
21 REM Detta kan s} sm}ningom resultera i ERR 20 vid upprepad lagring
22 REM
23 REM obsobsobs
24 REM
25 REM LOAD TV.BAS
26 REM [ndra till CHAIN "TVCKOLON" (rad 380 eller ev. 1060)
27 REM LIST TV.BAS
28 REM
29 REM Anv{nd Ctrl-V f|r att f} biblioteket p} sk{rmen
30 REM
100 ONERRORGOTO 101 : OPEN 'C:' ASFILE 1 : CLOSE 1 : CHAIN 'TVMAIN'
101 B%=PEEK(590%) : B%=B%-B%/40%
102 POKE 64865%,0%,0%,0%,67%,32%,32%,13%,247%
103 POKE 63232%,42%,10%,254%,34%,98%,253%,33%,98%,253%,34%,10%,254%,201%
104 POKE 63245%,195%,22%,247%,195%,22%,247%,195%,199%,247%,62%,22%,50%,105%
105 POKE 63258%,253%,221%,229%,26%,214%,48%,40%,14%,254%,1%,40%,8%,254%
106 POKE 63271%,40%,40%,9%,175%,205%,61%,247%,62%,1%,205%,61%,247%,221%
107 POKE 63284%,225%,58%,36%,254%,167%,200%,195%,204%,0%,50%,1%,253%,17%
108 POKE 63297%,224%,0%,205%,201%,247%,58%,21%,253%,167%,192%,213%,205%,186%
109 POKE 63310%,247%,17%,192%,0%,205%,201%,247%,213%,46%,239%,53%,40%,67%
110 POKE 63323%,22%,2%,125%,60%,15%,15%,15%,95%,205%,102%,96%,229%,42%
111 POKE 63336%,18%,253%,46%,16%,52%,40%,40%,229%,125%,246%,4%,111%,17%
112 POKE 63349%,64%,254%,213%,1%,8%,0%,237%,176%,62%,46%,18%,19%,14%
113 POKE 63362%,3%,237%,176%,62%,32%,18%,225%,14%,13%,205%,11%,0%,58%
114 POKE 63375%,244%,253%,254%,B%,204%,186%,247%,225%,125%,198%,16%,111%,48%
115 POKE 63388%,207%,225%,44%,125%,254%,247%,56%,180%,58%,244%,253%,167%,196%
116 POKE 63401%,186%,247%,205%,147%,2%,225%,205%,228%,247%,62%,44%,18%,19%
117 POKE 63414%,225%,205%,228%,247%,205%,66%,7%,58%,105%,253%,61%,250%,2%
118 POKE 63427%,0%,50%,105%,253%,175%,201%,6%,16%,205%,15%,96%,42%,18%
119 POKE 63440%,253%,36%,62%,239%,106%,90%,6%,8%,203%,14%,56%,1%,19%
120 POKE 63453%,16%,249%,44%,61%,200%,24%,242%,58%,98%,24%,254%,175%,202%
121 POKE 63466%,98%,24%,195%,96%,24%
122 A%=CALL(63232%) : GOTO 100