0 poke56,39:poke55,45:clr:rem*** sil14a ***
1 print"{clr}":u$=chr$(0)+chr$(0)+chr$(0)+chr$(0):m$=u$+u$:n$=m$+m$:o$="kalundborg"
2 uz$=chr$(0)+chr$(0)+chr$(0)+chr$(28)+chr$(28)+chr$(28)+chr$(0)+chr$(0)
4 l=peek(648)*256+45:u=peek(244)*256+45:dimb$(21),e$(4),i$(7),t$(5),z%(100):goto210
6 b$(0)=i$(6):b$(1)=i$(7)
7 i=23*m+10030:p=0:print"{clr}{down}tekst":w=14:q=-1:o=0:gosub238:print:gosub400
10 d=1:print"{down}pris":w=6:o=66:gosub238:print:d=0
15 iflen(b$(q))<3orval(b$(q))<1thenq=q-1:print"{up}{up}{up}{up}":goto10
20 gosub400:i$(6)=b$(0):i$(7)=b$(1):b$(1)=""
28 q=0:print"{down}antal":w=3:o=132:gosub238:t=val(b$(1))
29 ift>255thenprint"{up}{up}{up}":goto28
30 poke850+m,t:print:print"{down}ok j/n?"
32 ifpeek(197)=28then210
34 ifpeek(197)<>20then32
36 wait197,64:print"{down}flere store tal ? j/n":m=m+1
38 ifpeek(197)=20then276
40 ifpeek(197)=28then210
42 goto38
43 formm=0tom-1:i=23*mm+10030:p=0:x=0:gosub500:x=1:gosub500
44 forx=0to5:t$(x)="":a(x)=10:next
45 forx=7-len(b$(1))to6:a(x-1)=val(mid$(b$(1),x-(6-len(b$(1))),1)):next
46 forx=0to3:t=a(x)*32+48768
47 ifa(x)=10thent$(0)=t$(0)+n$:t$(1)=t$(1)+n$:t$(2)=t$(2)+n$:t$(3)=t$(3)+n$:goto52
48 fory=ttot+7:t$(0)=t$(0)+chr$(peek(y))+chr$(peek(y))
49 t$(1)=t$(1)+chr$(peek(y+8))+chr$(peek(y+8))
50 t$(2)=t$(2)+chr$(peek(y+16))+chr$(peek(y+16))
51 t$(3)=t$(3)+chr$(peek(y+24))+chr$(peek(y+24)):next
52 t$(0)=t$(0)+u$:t$(1)=t$(1)+u$:t$(2)=t$(2)+u$:t$(3)=t$(3)+u$:next
53 t$(4)="":t$(5)="":forx=4to5:t=a(x)*16+48576
54 fory=ttot+7:t$(4)=t$(4)+chr$(peek(y))+chr$(peek(y))
55 t$(5)=t$(5)+chr$(peek(y+8))+chr$(peek(y+8)):next:next
56 t$(0)=t$(0)+t$(4)+m$:t$(1)=t$(1)+t$(5)+m$
57 t$(2)=t$(2)+n$+n$+m$:t$(3)=t$(3)+n$+n$+m$:w=7:iflen(b$(0))>7thenw=14
58 q=0:gosub168:b$(1)=str$(int((val(b$(1))-val(b$(1))*11/61)+.5)):q=1:gosub650
59 r$=right$(b$(1),2):b$(1)=left$(b$(1),len(b$(1))-2)+"."+r$:q=1:w=7:gosub168
60 poke154,4:foraa=1topeek(850+mm):printchr$(27)"3"chr$(40);
61 iflen(b$(0))>7thenprintb$(0)"   "b$(0)"   "b$(0):goto63
62 printchr$(14)b$(0)chr$(20)" "chr$(14)" "b$(0)chr$(20)" "chr$(14)" "b$(0)
63 printchr$(14)b$(1)chr$(20)" "chr$(14)" "b$(1)chr$(20)" "chr$(14)" "b$(1)
67 printchr$(27)"3"chr$(23);:forx=0to3:poke1008,1
68 printchr$(27)"k"chr$(135)chr$(1)t$(x)n$t$(x)m$u$chr$(0)chr$(0)chr$(0)t$(x):next:gosub292
69 poke1008,0:printchr$(27)"3"chr$(44):next:printchr$(27)"2";:poke154,3:next
70 m=0:forx=0to5:t$(x)="":next:x=fre(0):goto210
79 i=n*52+11182:p=0:q=-1:forx=0to5:b$(x)=i$(x):next:o=-22
81 print"{clr}varegr./md./]r":w=3:gosub238:gosub400
82 w=3:o=-14:gosub238:gosub400
84 q=1:print:print"varenr./indk\bspris":w=8:o=22:gosub238:gosub400
85 w=6:o=32:b$(q+1)=e$:d=1:gosub238:e$=b$(q):print:d=1:o=66
86 q=q+1:b$(q)=" ":o=66:d=1:ifz%(n)=0thenforx=0to9:print:next:goto102
92 q=4:b$(5)=e$(d):d=d+1:print"rabat %":w=2:gosub238:e$(d-1)=b$(5)
93 b$(3)=str$(val(b$(3))-((val(b$(3))/100)*val(b$(5)))):print:ifd=2theno=110:goto92
94 q=4:b$(5)=e$(0):print"omkost.":w=4:o=154:gosub238:b$(3)=str$(val(b$(3))+val(b$(5)))
95 e$(0)=b$(5):b$(5)=e$(3):print
96 q=4:print"omkost.%":w=2:o=198:gosub238:print:e$(3)=b$(5)
97 j=val(b$(3))+((val(b$(3))/100)*val(b$(5))):b$(3)=str$(int(j+.5)):q=3:gosub650
98 q=4:b$(5)=e$(4):print"avance":w=3:o=242:gosub238:print:e$(4)=b$(5)
100 b$(5)=str$(int(j+((val(b$(5))*j+50)/100))):gosub650
101 d=1:iflen(b$(5))>6orlen(b$(3))>6thenb$(5)="00"
102 q=4:print"pris":o=286:w=6:gosub238:print:iflen(b$(5))<3thenprint"{up}{up}{up}":goto102
103 iflen(b$(3))>6thenb$(3)="??????":goto106
104 w$="":forx=1tolen(b$(3)):a=val(mid$(b$(3),x,1)):ifa=0thena=10
105 w$=w$+mid$(o$,a,1):next:b$(3)=w$
106 forx=0to5:i$(x)=b$(x):next:q=3:gosub400:q=4:gosub400:q=5:gosub400:b$(1)=""
107 q=0:print"antal":o=330:w=3:gosub238:x=val(b$(1)):ifx>255thenprint"{up}{up}":goto107
108 poke870+n,x:print:print"ok j/n?":d=0
109 ifpeek(197)=28then210
110 ifpeek(197)<>20then109
112 wait197,64:n=n+1:goto210
113 fornn=0ton-1:q=0:i=nn*52+11182:p=0:forx=0to5:gosub500:next
116 w=3:gosub168:q=1:w=3:gosub168:b$(0)=b$(0)+" "+b$(1)
117 q=2:w=8:gosub168:q=3:w=6:gosub168:q=5
120 t$(0)="":t$(1)=""
121 forx=0to5:a(x)=10:next
122 forx=7-len(b$(5))to6:a(x-1)=val(mid$(b$(5),x-(6-len(b$(5))),1)):next
124 forx=0to5:t=a(x)*16+48576
126 ifa(x)=10thent$(0)=t$(0)+m$+m$:t$(1)=t$(1)+m$+m$:goto135
132 fory=ttot+7:t$(0)=t$(0)+chr$(peek(y))+chr$(peek(y))
134 t$(1)=t$(1)+chr$(peek(y+8))+chr$(peek(y+8)):next
135 ifx=3thent$(0)=t$(0)+m$:t$(1)=t$(1)+uz$
136 next
138 gosub800
139 t$(0)=m$+t$(0)+m$+m$:t$(1)=m$+t$(1)+m$+m$
140 poke154,4:poke198,0:forp=1topeek(870+nn)
143 printchr$(14)b$(0)chr$(20)" "chr$(14)" "b$(0)chr$(20)" "chr$(14)" "b$(0)
146 printb$(2)b$(3)"   "b$(2)b$(3)"   "b$(2)b$(3)
147 printchr$(14)b$(5)chr$(20)" "chr$(14)" "b$(5)chr$(20)" "chr$(14)" "b$(5)
152 printchr$(27)"3"chr$(23);
154 poke1008,1:x=0:gosub162:x=1:gosub162:poke1008,0
158 printchr$(27)"3"chr$(62)
160 printchr$(27)"2";:next:gosub292:next:poke154,3:n=0:nn=-1:goto286
162 printchr$(27)"k"chr$(144)chr$(1)t$(x)m$t$(x)m$t$(x):return
166 iflen(b$(q))=wthenreturn
167 w=w-1:x=len(b$(q)):forv=xtow:b$(q)=b$(q)+" ":next:return
168 iflen(b$(q))=wthenreturn
170 w=w-1:x=len(b$(q)):forv=xtow:b$(q)=" "+b$(q):next:return
172 print"{clr}";:q=6
174 f=-66:fort=0to4:w=14:print" ----- linie ";t+1"-----":f=f+44:o=f:gosub238:print:next:print
176 d=1:q=o:b$(1)="1":print"antal":w=3:o=220:gosub238:t=val(b$(1)):print:print"{down}ok j/n ? "
178 d=0:ifpeek(197)=28then210
180 ifpeek(197)<>20then178
182 poke198,0:poke154,4:forq=0to4:b$(q)=b$(q+7):w=14:gosub168:next
183 fory=1tot:printchr$(27);"3";chr$(30);:forx=0to4
184 printb$(x)"  "b$(x)"  "b$(x):next:printchr$(27);"3";chr$(66):next
186 printchr$(27);"2";:poke154,3:goto210
194 print"{clr} ";:w=17:f=-22:q=11:print"----- linie  1 -----":o=f:gosub238:print
196 w=17:f=-22:fort=1to8:print" ----- linie ";t+1"-----":f=f+44:o=f:gosub238:print:next
198 w=17:f=374:print" ----- linie 10 -----":o=f:gosub238:print:d=1
200 q=o:b$(1)="1":print"antal":w=3:o=418:gosub238:t=val(b$(1)):print:print"ok j/n ? ";
202 d=0:ifpeek(197)=28then210
204 ifpeek(197)<>20then202
206 poke198,0:poke154,4:fory=1tot:forx=0to9:printchr$(14)b$(12+x)chr$(20):next
208 print:print:next:poke154,3
210 restore:print"{clr}{down}{blk}{rvon}     biacom  8014     ":print"{down}{down}{down}  1 4 linier sk/e {rvon} {down}{left} "
212 print"  2 4 linier sk/e {rvon} ";:ifn>9thenprint"{left}";
214 printn"{rvof}{left}":print"{down}  3 store tal     {rvon} ";:ifm>9thenprint"{left}";
216 printm"{rvof}{left}":print"{down}  4 5 linier fri":mm=-1:nn=-1
218 print"{down}  5 10 linier fri"
220 print"{down}  6 printer (1-3)":print"{down}  v[lg nr.?"
222 x=peek(197):poke198,0:z%(n)=0:ifx=0then280
224 z%(n)=1:ifx=56then280
227 ifx=1then276
230 ifx=57then172
232 ifx=2then194
234 ifx=58then284
236 goto222
238 y$="":q=q+1:v=0:y$=b$(q)::e=int(o/22)*22:o=o-e:r=o:ify$=""theny$=" "
239 goto260
242 x$="":getx$:ifx$=""then242
243 ifasc(x$)=20then263
244 ifasc(x$)=29ando<r+wando-r<len(y$)theno=o+1:goto260
245 ifasc(x$)=157ando>rtheno=o-1:goto260
248 ifx$=chr$(13)andlen(y$)>0thenb$(q)=y$:pokel+e+o,peek(l+e+o)and127:return
249 ifdand(asc(x$)<48orasc(x$)>57)then242
250 ifasc(x$)<32orasc(x$)>127or(len(y$)=wando-r=w)orasc(x$)=34then242
252 v=len(y$):ifo=rtheny$=x$+right$(y$,v-1):o=o+1:goto260
254 ifv+r=otheny$=left$(y$,v)+x$:o=o+1:goto260
256 y$=left$(y$,o-r)+x$+right$(y$,v-(o-r+1)):o=o+1
260 print:print"{up}"spc(r)"?"y$" {left}";:pokel+e+o,peek(l+e+o)+128:pokeu+e+o,0:goto242
263 v=len(y$):ifv=1theny$=" ":o=r:goto260
264 ifo=rtheny$=right$(y$,v-1):goto260
265 ifv+r=otheny$=left$(y$,v-1):pokel+e+o,32:o=o-1:goto260
266 y$=left$(y$,o-r)+right$(y$,v-(o-r+1)):goto260
276 poke198,0:ifm>49then290
278 goto6
280 ifn>98then290
282 goto79
284 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  {rvon}6 printer (1-3)":x=fre(0):ifn>0then113
286 ifm>0then43
288 goto210
290 print"{clr}{down}{down}{down}{down}  lagerplads opbrugt":forx=0to2999:next:goto210
292 poke154,3:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}"spc(19);
293 if(n-nn-1)>9thenprint"{left}";
294 print(n-nn-1);
295 if(m-mm-1)>9thenprint"{left}";
296 print"{down}{down}{left}{left}{left}"(m-mm-1)
299 poke154,4:return
400 ifb$(q)=""then404
402 forw=1tolen(b$(q)):pokei+p,asc(mid$(b$(q),w,1)):p=p+1:next
404 pokei+p,255:p=p+1:return
500 b$(x)=""
502 w=peek(i+p):p=p+1:ifw=255thenreturn
504 b$(x)=b$(x)+chr$(w):goto502
650 b$(q)=right$(b$(q),len(b$(q))-1):return
800 w2$=str$(int((val(b$(5))-val(b$(5))*11/61)+.5)):w2$=right$(w2$,len(w2$)-1)
802 b$(5)=left$(w2$,len(w2$)-2)+"."+right$(w2$,2):q=5:w=7:goto168