home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 13 / Dimension_64_Nr.13_19xx_-_de_Side_A.d64 / c (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  33KB  |  413 lines
  1. 0 poke53265,11:sys50203,10:printchr$(8);chr$(142):poke53270,200:v=53248:ps=1:c=50191:poke56576,196:poke53272,8:poke648,192:print"[147]":jo=56320:goto6
  2. 1 sys50188:ifpeek(858)>0then1
  3. 2 return
  4. 3 forh=0to1:fori=0to2:poke49733-i,227-i+h*24:poke49773-i,238-i+16*h:next:forg=0to500:next:if(peek(56320)and16)=0thenpokev+17,11:sys50209:run
  5. 4 next:geta$:ifa$="e"thensys50218
  6. 5 goto3
  7. 6 dimp%(20),b(20,3),z%(4),k(3),b%(0),bs(2,3),pf$(4,3),al%(4,3):dimpo%(4,3),tr%(4,3),an(3),np$(7),qu(7),we(1,3),pr(4),pk$(3),gw%(3,3,3):dimnj%(4,3),tp%(2,3),pa(5,3),na$(3),lm(5),fa%(4,3):fori=0topeek(162):a=rnd(1):next:fori=0to3:b(11,i)=1:b(12,i)=1
  8. 7 b(9,i)=2:b(8,i)=2:b(13,i)=3:b(0,i)=1:b(6,i)=1:y=y-c:k(i)=2000:next:ja=1789:je=1822+6*rnd(1):re$(0)="p[210][197][201][211] [196][197][211] w[201][206][212][197][210][198][193][214][207][210][201][212][197][206]":re$(1)="s[195][200][215][193][210][218]-g[207][204][196] r[197][206][206][197][206]":re$(2)="r[197][206][206][197][206] [213][205] [196][193][211] [194][204][193][213][197] b[193][206][196]":re$(3)="g[210][207]\[197][210] p[210][197][201][211] [214][207][206] b[193][196][197][206] b[193][196][197][206]
  9. 8 ei$(0)[178]"(NULL)valright$(NULL) str$val(NULL) tright$val(NULL)atn(NULL)(NULL)(NULL) (NULL)valright$(NULL)val rval(NULL)(NULL)val(NULL)(NULL)atn(NULL)peek(NULL)right$(NULL)   val(NULL)(NULL)valright$(NULL)(NULL)val.":ei$(1)[178]"str$atn str$val(NULL) tright$val(NULL)(NULL)lenleft$(NULL)(NULL)(NULL)(NULL)val(NULL)valright$(NULL) p(NULL)(NULL)(NULL)val(NULL)(NULL) valright$(NULL)chr$val-  (NULL)valchr$(NULL) left$atn(NULL).":ei$(2)[178]"str$atn val(NULL) (NULL)(NULL)(NULL) valright$(NULL)right$chr$val(NULL) tatnchr$val(NULL) val(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL) right$(NULL)(NULL).":ei$(3)[178]"(NULL)valright$(NULL) str$atn(NULL) s(NULL)atn(NULL)(NULL)chr$val(NULL)str$ (NULL)right$lenleft$(NULL) atn(NULL)ascchr$valpeek(NULL)atnlenleft$(NULL)    (NULL)val(NULL)str$val(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)val.
  10. 9 ei$=" [203][193][206][206] [206][201][195][200][212] [211][212][193][210][212][197][206],":j1$="[151][192][157][157][193][194][195][157][157][157][196][197][198][157][157][157][199][200][201][157][157][157][202][203][204][157][157][205][206][146][145][145][145][145][145]":j2$="[151][207][208][157][157][157][209][210][211][157][157][157][212][213][214][157][157][157][215][216][217][157][157][218][157][219][146][145][145][145][145][145]":j3$="[129][220][221][157][157][157][255][223][160][161][157][157][157][157][162][163][164][165][166][146][145][145]":j4$="[153][167][168][169][170][157][157][157][157][171][172][173][174][145][145][146]":j5$="[154][175][176][177][157][157][157][157][178][179][180][181][182][146][145][145]":j6$="[151][192][157][157][193][194][195][157][157][157][196][197][198][157][157][157][199][200][201][146][145][145][145]"
  11. 10 kj$(1)="[152][176][177][178][178][157][157][157][179][180][181][186][145][146]":kj$(2)="[152][176][145][182][157][183][145][184][157][185][178][178][157][157][157][179][180][181][186][146][145]":ha$(1)="[158][171];[157][157][172];[157][157][129][161][163][157][157][162][164][145][145][145]":ha$(2)="[158];;[157][157];;[157][157][129][167][169][157][157][168][170][145][145][145]":ha$(3)="[158];;[157][157];;[157][157][129][165][163][157][157][166][164][145][145][145]":ha$(4)="[158][173][157][174][157][129][165][157][165][157][166][145][145][145]":b$(1)="[175][157][176][157][177][157][178][145][145][145]"
  12. 11 sc$="[129] [179][180] [157][157][157][157][181][182][183][184][157][157][157][157][185][187][188][189][157][157][157][157][190];;[129][191][145][145][145]":si$="[219][220][221][223][157][157][157][157][129][162][166][166][166][157][157][157][157][161][165][165][165][157][157][157][157][162][166][166][166][145][145][145]":mi$="[159] @a[157][157][157][146] bc[145][146]":un$="[144][[[":sk$=" s[212][255][195][203]":hu$=" de[157][157][157][146] fg[145][146]":tf$="[149] hilm[157][157][157][157][157][146] jkno[145][146]":b$(2)="[149]wx[145][157][157]v[145][157]tu[145][157][157]rs[145][157][157]pq[146]"
  13. 12 b$(3)="[149]v[145][157][159]rs[145][157][157]pq[146]":b$(4)="rs[145][157][157]pq[146]":b$(5)="[149] ![145][157][157]^_[145][157][157]\][146]":b$(6)="[149][178][159][145][157][177][145][157][175]":b$(7)="[178][145][157][176][145][157][176][145][157][177][145][157][175]":ph$=" :;[157][157]<=[145][146]":tl$(0)="k[204][197][201][206][194][193][213][197][210]":tl$(1)="g[210][207]\[194][193][213][197][210]":tl$(2)="g[210][207]\[199][210][213][206][196][194][197][211][201][212][218][197][210]"
  14. 13 pr$="9$$$$$$$$$$#[157][157][157][157][157][157][157][157][157][157][157],,,,,,,,,,[146]":kr$="-.[146] [158]1[157][157][157][157][152]/0[146] [158]2[145][146]":mi$(1)="[212][210][207][195][203][197][206] [213][206][196] [203][193][204][212]":mi$(2)="[212][210][207][195][203][197][206] [213][206][196] [215][193][210][205]":mi$(3)="[206][193]\ [213][206][196] [203][193][204][212]":mi$(4)="[206][193]\ [213][206][196] [215][193][210][205]":st$="________________________________________[157]"+chr$(148)+"_"
  15. 14 nv$="[144];;;;;;;;;;;[157][157][157][157][157][157][157][157][157][157][157][159]":pp$=";;;;;;;;;[146][145]":ba$=";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;":ru$="":pk$(0)="[153][203][204][205][206][157][157][207][208][159]":pk$(1)="[155][209][210][157][157][211][174][157][157][157][212][213][214][215][159]":pk$(2)="[159]
  16. 15 pk$(3)[178]"cmdcmdcmdcmdcmdcmdcmdlist(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmd(NULL)(NULL)(NULL)(NULL)cmdcmdcmdcmdclosegetgetnewopen":ra$[178]"opennotstep+cmdcmdcmdcmdlenandcmdcmdcmdcmdcmdlenandcmdcmdcmdcmd-*/ononon":l$[178]"                    ":g$[178]"33333333333333333333":[151]53280,2:[151]53281,2:[151]53265,27:[141]248:[151]53280,0:[129]i[178]0[164]2:[129]h[178]0[164]22:a9[178][194](99842[173]2[170]40[172]i[170]h):y[178]y[170]a9[172](a9[170]h[170]i):[130]:[130]
  17. 16 [151]53269,0:[153]"loadsyshval(NULL)(NULL)(NULL)right$lenleft$ (NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL) peekvalright$ achr$(NULL)right$len(NULL)(NULL)atn":[153]"a(NULL)(NULL)val(NULL) s(NULL)right$val(NULL) asc(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL)val(NULL) ?":[153][166]13)";;sysnvalright$(NULL)-jatn;;;;":a0[178]128:a1[178]122:[141]328:[139]a2[178]1[167]325
  18. 17 [153]"sysononwright$val(NULL)right$val(NULL)val s(NULL)right$val(NULL)val(NULL) (NULL)(NULL)(NULL)(NULL)val(NULL) (NULL)valright$(NULL)(NULL)valleft$(NULL)val(NULL) ? "ba$"onsys";:
  19. 18 [151]v[170]21,0:[161]a$:[139]a$[179]"1"[176]a$[177]"4"[167]18
  20. 19 [153]a$:as[178][197](a$)[171]1:[129]i[178]0[164]1:lm(i)[178][181](20[170]20[172]as[170]5[172](as[172]as)[170]9[172][187](1)):[130]:lm(2)[178][181](25[170]25[172]as[170]9[172][187](1)):[129]i[178]0[164]as:[153]:na$(i)[178]"":[153]i[170]1") name bitte ? ";:[151]198,0:[158]50176:[129]h[178]1[164][194](820):na$(i)[178]na$(i)[170][199]([194](820[170]h)):[130]:[130]:[153]:[139]as[178]0[167]24
  21. 20 [153]"load  mright$(NULL) (NULL)right$val(NULL)right$val(NULL)val(NULL) s(NULL)val(NULL)val(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)val(NULL)":[153][163]11)"sright$val (NULL)(NULL)right$val(NULL)val(NULL) ? ";
  22. 21 [161]a$:[139]a$[178]"1"[167]aj[178]0:[153]a$:[137]24
  23. 22 [139]a$[179][177]"2"[167]21
  24. 23 aj[178]1:[153]a$
  25. 24 pu[178]0:jo[178]56320[170]aj[172](sp[175]1):sk[178][171]([187](1)[179].01):p%(0)[178][181](1600[170]600[172][187](1))[171]4[172]b(0,sp):[139]p%(0)[179]600[167]p%(0)[178]600[170]400[172][187](1)
  26. 25 p%(1)[178][181](450[170]100[172][187](1))[171]b(1,sp):[139]p%(1)[179]150[167]p%(1)[178]150[170]100[172][187](1)
  27. 26 p%(2)[178][181](1100[170]400[172][187](1))[171]3[172]b(2,sp):[139]p%(2)[179]300[167]p%(2)[178]300[170]200[172][187](1)
  28. 27 p%(3)[178][181](900[170]200[172][187](1))[171]3[172]b(3,sp):[139]p%(3)[179]300[167]p%(3)[178]300[170]200[172][187](1)
  29. 28 p%(4)[178][181](1200[170]400[172][187](1))[171]3[172]b(4,sp):[139]p%(4)[179]400[167]p%(4)[178]400[170]300[172][187](1)
  30. 29 p%(5)[178][181](6000[170]2000[172][187](1)):p%(6)[178][181](3000[170]600[172][187](1)):p%(7)[178][181](12000[170]4000[172][187](1)):p%(8)[178][181](5000[170]2000[172][187](1)):p%(9)[178][181](4500[170]1500[172][187](1)):p%(10)[178][181](6000[170]1000[172][187](1)):p%(11)[178][181](7000[170]5000[172][187](1)):p%(12)[178][181](8000[170]8000[172][187](1)):p%(13)[178][181](9000[170]6000[172][187](1))
  31. 30 p%(14)[178][181](2[171]4[172](ja[177]1789)[172][187](1))[172]3:p%(15)[178]p%(14):p%(16)[178][181](900[170]100[172][187](1)):re[178]ja[175]3:[158]50179,96[172][187](ti):[151]892,[194](831)[173]16:a0[178]b(0,sp):[129]i[178]2[164]5:a0[178]a0[170]b(i,sp):[130]:[139]a0[178]0[167]mi[178]0:[137]37
  32. 31 a1[178]250[171][181]((b(9,sp)[172]2500)[173]a0):[139]a1[179]0[167]a1[178]0
  33. 32 a3[178](b(9,sp)[172]2500[173]a0):[139]a3[179]20[167][141]223
  34. 33 mi[178][181]((3900[170]200[172][187](1)[171](a1[172]a1[173]9))[172]b(0,sp)):[139]mi[179]0[167]mi[178]0
  35. 34 pm[178].2[170].1[172][187](1):[139]mi[177]500000[167]pm[178]100000[173]mi[170][187](1)[172].05
  36. 35 [139]pm[179].05[167]pm[178].05
  37. 36 pm[178][181](pm[172]100)[173]100
  38. 37 [141]224:an(sp)[178]6:at[178]b(10,sp):[139]b(7,sp)[178]0[167]40
  39. 38 [129]i[178]0[164]b(7,sp)[171]1:a0[178](po%(i,sp)[171]10)[172](600[170]100[172][187](3))[171](al%(i,sp)[174]2)[172]400:[139]a0[179]99[167]a0[178]99[170]99[172][187](9)
  40. 39 pr(i)[178][181](a0):[130]:v[178]y[170]2[174]15[171]183[170][194](45)
  41. 40 [151]53280,6:[151]53265,11:[151]53281,6:[151]53270,24:[151]53282,1:[151]53283,5:[151]53269,0:[153]"clrloadsys";:[139]sk[178]0[167][153]tl$(z(sp))""na$(sp)
  42. 41 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdjatnleft$(NULL)"ja:[151]53296,253:[129]i[178]0[164]19:[153]b$(1)"";:[130]:[153]"onon":a0[178]b(13,sp)[171]3:[153][166]17[171]a0)ha$(1);:[139]a0[179][178]1[167]43
  43. 42 [129]i[178]1[164]a0[173]2:[153]ha$(3);:[130]
  44. 43 [153]ha$(2);:[139]a0[179]1[167]45
  45. 44 [129]i[178]1[164]a0[173]2[170].5:[153]ha$(3);:[130]
  46. 45 [153]ha$(4):[153]""st$:a0[178]b(11,sp):[139]a0[177]5[167]a0[178]5
  47. 46 a1[178]b(12,sp):[139]a1[177]5[167]a1[178]5
  48. 47 [139]a0[178]0[167][153][166]20);:[137]49
  49. 48 [153][166]20[171]a0[172]4);:[129]i[178]1[164]a0:[153]si$;:[130]
  50. 49 [139]a1[178]0[167]51
  51. 50 [129]i[178]1[164]a1:[153]sc$;:[130]:[139]a1[177]4[167][153]"on";
  52. 51 [153]"sys":[129]i[178]1[164]5:[153]";;;;;;;;;;;;;open;;;;;;;;;;;;;;;;;;;;;;;;;;;";:[130]:[153]"ononononwvalright$str$valasc(NULL)sqrlenleft$valwatn(NULL)str$asc(NULL)sqrlenleft$valalen(NULL)val(NULL)asc(NULL)sqrlenleft$val":[153]"        m(NULL)chr$       m(NULL)chr$        m(NULL)chr$":[153]"onon"b(9,sp):[153]"onon"b(10,sp):[153]"onon"b(8,sp)
  53. 52 [151]v[170]21,15:[151]v[170]16,8:[129]i[178]0[164]4:[151]50168[170]i,160[170]i:[130]:[151]50173,164:[129]i[178]0[164]3:[151]53249[170]i[172]2,177:[130]:[151]v,30:[151]v[170]2,110:[151]v[170]4,190:[151]v[170]6,15:[151]v[170]12,0:[151]v[170]13,50:[151]v[170]23,48:[151]v[170]29,48:[151]v[170]28,64:[151]v[170]43,5:[151]v[170]44,5:[151]v[170]27,63:[151]v[170]45,1:[129]i[178]0[164]3:[151]v[170]39[170]i,1:[130]:[153]""b(0,sp):[153]"on"b(7,sp)
  54. 53 [153]"on"b(6,sp):[153]"cmdcmdcmdcmdcmdcmd"b(5,sp):[153]"clr========================================";:[153]"= k(NULL)left$(NULL)(NULL)atn(NULL)(NULL);;;;clr= syskatn(NULL)right$(NULL)atn(NULL)clr  = b(NULL)(NULL)(NULL);;;;;;;;clr=";:[153]"clr= watn(NULL)str$;;;;;;;;clr=          = rval(NULL)(NULL)peekatnleft$(NULL);;;;clr=";
  55. 54 [153]"= pascval(NULL)str$val(NULL)(NULL)atn(NULL)(NULL);clr=          = i(NULL)asc(NULL)(NULL)(NULL)atn(NULL)right$(NULL)(NULL);clr=";:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdsys";k(sp):[153]"clr= alen(NULL)val(NULL);;;;;;;clr=          = e(NULL)right$(NULL)(NULL)(NULL);;;;;;clr=";:[153]"clr=======================================cmd"[199](148)"=":[151]53296,252:[151]v[170]17,27:[139]sk[178]0[167]62
  56. 55 [153]"";[200](ba$,39):[151]v[170]17,27:[151]v[170]38,2:[151]v[170]37,15:[151]v[170]21,79::[129]i[178]0[164]2:[129]h[178]0[164]59:[151]v[170]13,50[170]h[173]20:[158]c,6,207,2,0,1:[130]:[158]c,6,206,0,0,1:[129]h[178]0[164]10:[158]c,6,206,2,0,1:[130]:[129]h[178]0[164]1:[158]c,6,207,2,255,1:[130]:[130]:[137]62
  57. 56 [151]v[170]21,63:[129]a2[178]0[164]100:[130]
  58. 57 a1[178][194](jo):[139](a1[175]2)[178]0[167]pu[178]((pu[170]1)[175]7):[137]62
  59. 58 [139](a1[175]1)[178]0[167]pu[178]((pu[171]1)[175]7):[137]62
  60. 59 [139](a1[175]16)[178]0[167]64
  61. 60 [137]57
  62. 61 [129]i[178]0[164]b(7,sp)[171]1:[153]nv$
  63. 62 [151]v[170]21,15:[151]v[170]9,210[170](pu[175]3)[172]8:[151]v[170]11,[194](v[170]9):[139]pu[177]3[167][151]v[170]8,240:[151]v[170]10,32:[151]v[170]16,40:[137]56
  64. 63 [151]v[170]16,8:[151]v[170]8,40:[151]v[170]10,80:[151]v[170]16,8:[137]56
  65. 64 sk[178]0:[145]pu[170]1[137]67,72,81,100,143,163,182
  66. 65 [129]i[178]0[164]60:[139]([194](jo)[175]16)[177]0[167]57
  67. 66 [130]:[137]252
  68. 67 me[178]0:[151]v[170]32,10:[151]v[170]33,2:[151]v[170]21,0:[151]53270,[194](53270)[175]239:a0$[178]un$[170]sk$:[141]218:[153]"i m    k u h s t a l l":[153]:[129]a1[178]1[164]13:[153]mi$;:[130]:[153][199](13):[153]""st$:[153]"stop[cmd[on besitz stop[cmd[on preis stop[cmd[on einheit":[153]""un$:[153]"mright$(NULL)lenleft$(NULL)(NULL)left$val;;;"a0$
  69. 68 [153]"ksqr(NULL)peekval(NULL);;;;;;"a0$:[153]"rright$(NULL)str$val(NULL) ((NULL));;"a0$:[153]"rright$(NULL)str$val(NULL) ((NULL));;"a0$:[153]"b(NULL)(NULL)(NULL)val(NULL);;;;;;"a0$:[153]"z(NULL)lenleft$(NULL)peek(NULL)(NULL)(NULL)val(NULL);"a0$:[153]""un$:[153]"deff(NULL)valright$val b(NULL)(NULL)val(NULL);"un$"def s(NULL)(NULL)len(NULL)":[153]"defwvalright$str$val(NULL)atn(NULL)str$;;;"un$"def m(NULL)(NULL)chr$val(NULL)":[153]"defmright$(NULL)lenleft$;;;;;;;"un$"def lright$(NULL)val(NULL)"
  70. 69 [153]"defkatn(NULL)right$(NULL)atn(NULL);;;;;"un$"def matn(NULL)(NULL)":[153]"ononononononononononononsys":[129]i[178]0[164]5:[153][166]14)b(i,sp):[130]:[141]239:[153]"def"[166]14)fb:[153][166]14)b(9,sp):[153][166]14)mi:[153]"on"[166]23)pm:[153][166]14)k(sp):[153]"sys":[129]i[178]0[164]5:[153][166]23);p%(i):[130]:[153]"e(NULL)right$(NULL)(NULL)(NULL);;;;;;":[153]"katn(NULL)ascval(NULL);;;;;;"
  71. 70 [153]"vval(NULL)(NULL)atn(NULL)ascval(NULL);;;sys":a7[178]16:a8[178]21:a9[178]3:[141]109:[139]a0[178]0[167]40
  72. 71 a6[178]a0[171]1:a7[178]1:a8[178]9:a9[178]6:[141]109:a7[178]a0:a8[178]b(a0,sp):[141]116:[137]67
  73. 72 me[178]14:[151]v[170]32,9:[151]v[170]33,8:[151]v[170]21,0:[151]v[170]22,200:[141]218:[153]""[166]13)"i m   w a l d":[139]b(10,sp)[178]0[167]zw(sp)[178]0:[137]76
  74. 73 zw(sp)[178][181](b(14,sp)[173]b(10,sp))[173]2.5:[153]"":[139]zw(sp)[179]1[167]76
  75. 74 a1[178]20[171][181]((100[171]zw(sp))[173]5):a2[178]20[171]a1:a3[178]([181](a2[173]a1)):a4[178](20[171](a1[170]a3[172]a1)):[129]i[178]1[164]a1:[153]b$(2[170]6[172][187](1))[166]a3[172]2);:[139]a4[177]0[167][153][166]2):a4[178]a4[171]1
  76. 75 [130]
  77. 76 [153]"verify"st$:[153]"verifyzustand des waldes ";zw(sp);"%":zw(sp)[178]zw(sp)[171]4:[153][166]13)"stop[ besitz stop[ preis stop[ einheitstop":[153][166]13)un$:[153]" h(NULL)(NULL)(NULL)for;;;;;;;;"un$;" s(NULL)val(NULL)":[153]" latnchr$val(NULL)left$(NULL)(NULL)(NULL)for;;;"un$;" s(NULL)val(NULL)":[153][166]13)un$:[153]" verifywatn(NULL)str$asc(NULL)sqrlenleft$val  "un$;"verifym(NULL)(NULL)chr$val(NULL)
  78. 77 print" [149]k[193][208][201][212][193][204]     "un$;"[149] m[193][210][203]":print"[145][145][145][145][145][158]"spc(14);b(14,sp):printspc(14);b(15,sp):print"[149]"spc(14);b(10,sp):printspc(14);k(sp):print"[145][145][145][145][145][158]"spc(23)p%(14):printspc(23)p%(15):print"":printspc(16)"e[216][201][212][213][211][129];;;;;;":printspc(16)"r[207][196][197][206][129];;;;;;;":printspc(16)"v[197][210][203][193][213][198][197][206][129];;;":printspc(16)"j[193][199][197][206][129];;;;;;;
  79. 78 a7[178]16:a8[178]21:a9[178]4:[141]109:[139]a0[178]0[167]40
  80. 79 [139]a0[178]3[167][141]196:[137]40
  81. 80 [151]53269,0:a0[178]a0[171]1:a6[178]a0:a7[178]a0:a8[178]b(15,sp):[141]116:[137]72
  82. 81 me[178]6:[151]53280,4:[151]53281,14:[151]53269,0:[151]v[170]22,200:[141]218:a0$[178]un$[170]sk$:[153]"i m    p f e r d e s t a l l":[129]a1[178]1[164]13:[153]hu$;:[130]:[153][199](13):[153]""st$:[153][166]13)"stop[ besitz stop[ preis stop[ einheit":[153][166]13)un$:[153]" alen(NULL)val(NULL)(NULL)ascval(NULL)str$valcont;"a0$:[153]" rval(NULL)(NULL)(NULL)ascval(NULL)str$valcont;;"a0$:[153][166]13)un$
  83. 82 [153]" f(NULL)valright$val b(NULL)(NULL)val(NULL)cont;"un$;" s(NULL)(NULL)len(NULL)":[153]" alen(NULL)val(NULL)asc(NULL)sqrlenleft$valcont;"un$;" m(NULL)(NULL)chr$val(NULL)":[153]" katn(NULL)right$(NULL)atn(NULL)cont;;;;;"un$;" matn(NULL)(NULL)":[153]"onononononononsys":[129]i[178]6[164]7:[153][166]14)b(i,sp):[130]:[141]239:[153]""[166]14)fb:[153][166]14)b(8,sp):[153][166]14)k(sp):[153]"ononononononsys"[166]23);p%(6):[153][166]23);p%(7)
  84. 83 [153]"":[129]i[178]1[164]4:[153]"for]]]]]]]]ononon"b$(1);:[130]:[153]"for]]]]":[153]""[166]16)"e(NULL)right$(NULL)(NULL)(NULL)cont;;;;;;":[153][166]16)"katn(NULL)ascval(NULL)cont;;;;;;":[153][166]16)"vval(NULL)(NULL)atn(NULL)ascval(NULL)cont;;;":a7[178]16:a8[178]21:a9[178]3:[141]109:a9[178]1:[139]a0[178]0[167]40
  85. 84 [139](b(7,sp)[177]4[175]a0[178]1)[176](k(sp)[179]p%(7)[175]a0[178]1)[167]a9[178]0
  86. 85 [139]b(7,sp)[178]0[175]a0[178]2[167]a9[178]0
  87. 86 a6[178]a0[171]1:a7[178]1:a8[178]9:a9[178]a9[170]1:[141]109:[139] a0[178]1[167]88
  88. 87 a7[178]a0:a8[178]b(a0[170]me,sp):[141]116:[137]81
  89. 88 [139]a6[178]1[167]91
  90. 89 [151]v[170]40,[194](892):[151]v[170]21,2:[153]"ononononnatn(NULL)val:";:[151]198,0:[158]50176:pf$[178]"":[129]i[178]1[164][194](820):pf$[178]pf$[170][199]([194](820[170]i)):[130]:[139]pf$[178]"e(NULL)right$(NULL)(NULL)(NULL)"[137]81
  91. 90 pf$(b(7,sp),sp)[178]pf$:k(sp)[178]k(sp)[171]p%(7):po%(b(7,sp),sp)[178]15[170]21[172][187](1):al%(b(7,sp),sp)[178]2:tr%(b(7,sp),sp)[178]0:fa%(b(7,sp),sp)[178][194](892):[158]50179,96[172][187](ti):[151]892,[194](831)[173]16:b(7,sp)[178]b(7,sp)[170]1:[137]81
  92. 91 [153]"loadsright$val left$atnpeekval(NULL) asc(NULL)(NULL)chr$val(NULL)str$val pascval(NULL)str$val:":[129]i[178]0[164]b(7,sp)[171]1:[153]"cont;;;;;;;;;;;;":[153]"on"pf$(i,sp):[130]:[153]"wval(NULL)lenleft$val(NULL) (NULL)(NULL)(NULL)(NULL)val(NULL) sright$val (NULL)val(NULL)(NULL)atn(NULL)ascval(NULL) ?":a7[178]0:a8[178]3:a9[178]b(7,sp):[141]109:[139]al%(a0,sp)[178]2[167][153]"ileft$(NULL) pascval(NULL)str$ right$(NULL)(NULL) (NULL)(NULL)lenleft$ (NULL)(NULL) mid$(NULL)(NULL)chr$ !":[141]219:[137]81
  93. 92 [153]"gval(NULL)(NULL)chr$val(NULL) ileft$(NULL)val(NULL)stop"pr(a0)"matn(NULL)(NULL) ";:[139]pr(a0)[179]200[167][153]"slenleft$(NULL)atnlenleft$(NULL)(NULL)val(NULL)(NULL) ?";
  94. 93 [153]"?":[153][166]7)"cont;;(NULL)valright$(NULL)-mid$atncont;;;;":[151]v[170]9,114[170]8[172]b(7,sp):[151]v[170]8,80:[151]53269,16:a1[178]0
  95. 94 a2[178][194](jo):[139](a2[175]28)[178]0[167]94
  96. 95 [139](a2[175]4)[178]0[176](a2[175]8)[178]0[167]a1[178](a1[170]1)[175]1:[151]v[170]8,80[170]a1[172]56
  97. 96 [129]i[178]0[164]99:[130]:[139](a2[175]16)[177]0[167]94
  98. 97 [139]a1[178]0[167]81
  99. 98 k(sp)[178]k(sp)[170]pr(a0):[139]a0[178]an(sp)[167]an(sp)[178]6
  100. 99 i[178]a0:[141]280:[137]81
  101. 100 me[178]16:[151]v[170]21,0:[151]v[170]22,200:[151]v[170]33,9:[151]v[170]32,3:[141]218:[153]""[166]8)"a u f   d e m   a c k e r":[153]:[129]i[178]1[164]7:[153]kr$" ";:[130]:[153]kr$:[153]"for"st$:[153][166]13)"stop[ besitz stop[ preis stop[ einheit":[153][166]13)un$:[153]"pasc(NULL)(NULL)chr$valverify;;;;;;";un$;""sk$:[153]"gval(NULL)(NULL)valright$str$valverify;;;;";un$;" zval(NULL)(NULL)(NULL)val(NULL)
  102. 101 print"k[193][210][212][207][198][198][197][204][206][149];;";un$;" z[197][206][212][206][197][210]":print"r[255][194][197][206][149];;;;;;;";un$;" z[197][206][212][206][197][210]":printspc(13)un$:print"[159]a[195][203][197][210][198][204][186][195][200][197][149];";un$;"[159] m[207][210][199][197][206]":print"[159]a[195][203][197][210][208][198][197][210][196][197][149];";un$;"[159] s[212][255][195][203]":print"[159]s[201][204][207][211][149];;;;;;;";un$;"[159] s[212][255][195][203]":print"[159]k[193][208][201][212][193][204][149];;;;;";un$;"[159] m[193][210][203]":print"[129]"st$
  103. 102 print"[158]s[201][204][207][211] [199][197][198][255][204][204][212][157][157][157][157][157][157][157][157][218][213]":print"0%      100%[156]":a0=b(17,sp)/(b(11,sp)*1000)*100:gosub240:ifa0<=100then104
  104. 103 print"[158]"(b(17,sp)-1000*b(11,sp))"z[197][206][212][206][197][210] [255][194][210][201][199]";
  105. 104 print"[158]":fori=16to19:printspc(14);b(i,sp):next:print"[145][145][145][145]";:fori=16to19:printspc(23);p%(i):next:print"[159]":printspc(14)b(8,sp):printspc(14)b(6,sp):printspc(14)b(11,sp):printspc(14)k(sp):printspc(16)"e[216][201][212][213][211][149];;;;;;;":printspc(16)"b[197][211][212][197][204][204][197][206][149];;;":printspc(16)"k[193][213][198][197][206][149];;;;;;":printspc(16)"v[197][210][203][193][213][198][197][206][149];;;":a7=16:a8=20:a9=4:gosub109
  106. 105 ifa0=0then40
  107. 106 ifa0=1then243
  108. 107 a9=4:ifa0=2thena9=1
  109. 108 a6=a0-2:a7=1:a8=9:gosub109:a7=a0:a8=b(a0+me,sp):gosub116:goto100
  110. 109 pokev+21,0:pokev+16,0:pokev+8,24+8*a7:pokev+10,72+8*a7:a0=0:goto115
  111. 110 fora1=0to100:next
  112. 111 a2=peek(jo):if(a2and1)=0thena0=(a0-1)-a9*(a0=0):goto115
  113. 112 if(a2and2)=0thena0=(a0+1)+a9*(a0=(a9-1)):goto115
  114. 113 if(a2and16)=0thengosub220:return
  115. 114 goto111
  116. 115 pokev+9,50+8*(a8+a0*ps):pokev+11,peek(v+9):pokev+21,48:goto110
  117. 116 a0=50109+40*a6:poke211,27:poke214,22+a6:sys58732
  118. 117 print"m[197][206][199][197]:00000[157][157][157][157][157][158]     [157][157][157][157][157]";:a3=0:pokea0,31:fora1=0to4:z%(a1)=0:next:a1=4
  119. 118 a2=peek(jo):if(a2and31)=31then118
  120. 119 if(a2and24)=0anda6=1thena3=a8:print"[145]a[204][204][197][211]":fori=0to999:next:goto126
  121. 120 if(a2and1)=0thenz%(a1)=z%(a1)+1+10*(z%(a1)=9):fori=0to20:next:goto125
  122. 121 if(a2and2)=0thenz%(a1)=z%(a1)-1-10*(z%(a1)=0):fori=0to20:next:goto125
  123. 122 if(a2and16)=0thenfori=0to4:a3=a3+z%(i)*(10^(4-i)):next:goto126
  124. 123 if(a2and4)=0anda1>0thenpokea0,32:a0=a0-1:pokea0,31:a1=a1-1
  125. 124 if(a2and8)=0anda1<4thenpokea0,32:a0=a0+1:pokea0,31:a1=a1+1
  126. 125 pokea0-40,48+z%(a1):pokea0,31:goto118
  127. 126 ifa6=14then141
  128. 127 ifa6=1anda3>a8then136
  129. 128 ifa6=1anda7+me=10then139
  130. 129 ifa6=1thenk(sp)=k(sp)+a3*p%(a7+me):b(a7+me,(sp))=b(a7+me,(sp))-a3:return
  131. 130 ifa7+me=14then137
  132. 131 ifa7+me=13andb(13,sp)+a3>20then136
  133. 132 ifme=8anda7<3andlm(a7)<a3then136
  134. 133 ifk(sp)-p%(a7+me)*a3<0anda3>0then136
  135. 134 k(sp)=k(sp)-p%(a7+me)*a3:b(a7+me,(sp))=b(a7+me,(sp))+a3:ifa7+me=10thenb(14,sp)=b(14,sp)+a3*250
  136. 135 return
  137. 136 print"z[213][214][201][197][204]";:fora9=0to999:next:return
  138. 137 ifb(14,sp)<a3then136
  139. 138 b(14,sp)=int(b(14,sp)-a3+.5):b(15,sp)=b(15,sp)+a3:ro=ro+a3*10:gh(sp)=gh(sp)+a3:return
  140. 139 ifa3=0thenreturn
  141. 140 k(sp)=k(sp)+int(b(14,sp)/(250*b(10,sp))*p%(10)*a3):b(14,sp)=int(b(14,sp)-b(14,sp)/b(10,sp)*a3):b(10,sp)=b(10,sp)-a3:return
  142. 141 a0=b(8,sp)-bs(0,sp)-bs(1,sp)-bs(2,sp)+bs(a7,sp)-a3:ifa0<0then136
  143. 142 bs(a7,sp)=a3:return
  144. 143 me=8:pokev+21,0:pokev+22,200:pokev+33,12:pokev+32,11:gosub218:print""spc(14)"i m   b ^ r o":print:fori=1to8:printtf$;:next:print""st$:printspc(13)"[144][ besitz [144][ preis [144][ einheit":printspc(13)un$:print"a[195][203][197][210][198][204][186][195][200][197][152];";un$;" m[207][210][199][197][206]":print"w[197][201][196][197][198][204][186][195][200][197][152];";un$;" m[207][210][199][197][206]":print"w[193][204][196][198][204][186][195][200][197][152];;";un$;" m[207][210][199][197][206]
  145. 144 [153]"sright$(NULL)(NULL)(NULL)print#;;;;;;;";un$;""sk$:[153]"s(NULL)sqr(NULL)(NULL)valprint#;;;;;;";un$;""sk$:[153]"hatn(NULL)(NULL) (tvalright$(NULL))print#;";un$;""sk$:[153][166]13)un$:[153]"pokekatn(NULL)right$(NULL)atn(NULL)print#;;;;;";un$;"poke matn(NULL)(NULL)":[153]"onononononononononsys":[129]i[178]8[164]13:[153][166]14)b(i,sp):[130]:[153]"poke"[166]14);k(sp):[153]"onononononononononsys":[129]i[178]8[164]13:[153][166]23);p%(i):[130]
  146. 145 [153]"onononononononpoke":[129]i[178]0[164]2:[153][166]22[171][195]([196](lm(i))))lm(i):[130]:[153]"":[153][166]16)"e(NULL)right$(NULL)(NULL)(NULL)print#;;;;;;":[153][166]16)"apeek(NULL)valright$\val(NULL)print#;;;;":[153][166]16)"katn(NULL)ascval(NULL)print#;;;;;;":[153][166]16)"vval(NULL)(NULL)atn(NULL)ascval(NULL)print#;;;onononononon":a7[178]16:a8[178]20:a9[178]4:[141]109:[139]a0[178]1[167]149
  147. 146 [139]a0[178]0[167]40
  148. 147 a9[178]12[171]a0[172]3:a6[178]a0[171]2:a7[178]1:a8[178]9:[141]109:a8[178]b(a0[170]8,sp):[139]a6[178]1[175]a0[178]0[167]a8[178]b(8,sp)[171]bs(0,sp)[171]bs(1,sp)[171]bs(2,sp)
  149. 148 a7[178]a0:a4[178]b(8[170]a0,sp)[170]lm(a0):[141]116:lm(a7)[178]a4[171]b(8[170]a7,sp):[137]143
  150. 149 a7[178]1:a8[178]12:a9[178]2:[141]109:a0$[178]"":a1[178]0:a2[178]18:a3[178]13:a4[178]5:[141]238:[153]"onononononon":[153]"wright$val(NULL)right$val(NULL)val ?":a3[178]0:a4[178]b(11[170]a0,sp)[171]1:a9[178]a0[170]11
  151. 150 a0[178][194](jo):[139](a0[175]1)[178]0[167]a3[178]a3[170]1
  152. 151 [139](a0[175]2)[178]0[167]a3[178]a3[171]1
  153. 152 [139](a0[175]16)[178]0[167][141]221:[137]156
  154. 153 [139]a3[179]0[167]a3[178]0
  155. 154 [139]a3[177]a4[171]1[167]a3[178]a4
  156. 155 [151]49924,48[170]a3[173]10:[151]49925,a3[170]48[171][181](a3[173]10)[172]10:[137]150
  157. 156 [139]a3[178]0[167]143
  158. 157 [153]"sright$lenleft$val(NULL) ?":a1[178]0:[153]"print#;;(NULL)valright$(NULL)print#;mid$atnprint#;;;":[151]v[170]21,16:[151]v[170]10,32:[151]v[170]11,234:[151]v[170]21,48
  159. 158 a0[178][194](jo):[139](a0[175]4)[178]0[176](a0[175]8)[178]0[167]a1[178]a1[170]1[170]2[172](a1[178]1):[129]i[178]0[164]99:[130]
  160. 159 [139](a0[175]16)[178]0[167]161
  161. 160 [151]v[170]10,32[170]a1[172]48:[137]158
  162. 161 [139]a1[178]0[167]143
  163. 162 b(a9,sp)[178]b(a9,sp)[171]a3:[137]143
  164. 163 [151]v[170]21,0:[151]v[170]22,200:[151]v[170]33,0:[151]v[170]32,10:[141]218:[153]""[166]6)"a u f  d e r  r e n n b a h n":[153]:[129]i[178]1[164]13:[153]ph$;:[130]:[153]:[153]"clr"st$:[139] b(7,sp)[178]0[167]165
  165. 164 [153]"cont natn(NULL)val         k(NULL)atnasc(NULL)   a(NULL)(NULL)val(NULL)  t(NULL)atnright$(NULL)right$(NULL)chr$":[129]i[178]0[164]b(7,sp)[171]1:[153]pp$:[153]nv$;pf$(i,sp):[153][166]12)"onclr";:a0[178]po%(i,sp):[141]240:[153][166]24)"conton"al%(i,sp):[153]"on"[166]28)tr%(i,sp)[172]1000:[153][166]35)"onmatn(NULL)(NULL)":[130]:[139]an(sp)[179]5[167][151]49512[170]80[172]an(sp),45:[151]55656[170]80[172]an(sp),15
  166. 165 [153]"sys";:[153][166]20[171][195](re$(re))[173]2)re$(re):[153]"s(NULL)atn(NULL)(NULL)chr$val(NULL)str$:e(NULL)right$(NULL)(NULL)(NULL)stop;;;;;;":[153][166]16)"t(NULL)atnright$(NULL)right$val(NULL)val(NULL)stop;;":[153]2[174](re[170]1)[172]1000"matn(NULL)(NULL)on":[153][166]16)"a(NULL)(NULL)val(NULL)str$val(NULL)stop;;;;
  167. 166 a7=16:a8=21:a9=3:gosub109:ifa0=0then40
  168. 167 ifb(7,sp)=0then163
  169. 168 ifa0=2then176
  170. 169 ps=2:a7=0:a8=9:a9=b(7,sp):gosub109:ps=1:a0$="[154]":a1=20:a2=1:a3=17:a4=4:gosub238:print"":printspc(23)"w[201][197][214][201][197][204] [215][207][204][204][197][206]":printspc(23)"s[201][197] f[255][210] [196][193][211]":printspc(21)"t[210][193][201][206][201][206][199] [193][213][211][199][197][194][197][206]":printspc(28)"??":a3=49541+80*a0:fori=0to4:pokea3+6144+i,14:pokea3+i,48:next:a1=0
  171. 170 a2=peek(jo):if(a2and16)=0thentr%(a0,sp)=a1:goto163
  172. 171 if(a2and1)=0thena1=a1+1
  173. 172 if(a2and2)=0thena1=a1-1
  174. 173 ifa1>20thena1=a1-21
  175. 174 ifa1<0thena1=a1+21
  176. 175 pokea3,48+a1/10:pokea3+1,48+a1-int(a1/10)*10:goto170
  177. 176 a0=an(sp):a2=0:goto181
  178. 177 a0=a2:a1=peek(jo):if(a1and16)=0thenan(sp)=a2:goto166
  179. 178 if(a1and1)=0anda0>0thena2=a0-1
  180. 179 if(a1and2)=0anda0+1<b(7,sp)thena2=a0+1
  181. 180 ifa0=a2then177
  182. 181 poke49512+80*a0,32:poke49512+80*a2,45:poke55656+80*a2,15:goto177
  183. 182 poke53280,0:poke53281,0:poke53269,0:poke53270,24:print"[147]":g=sp:pokev+44,2:pokev+45,11:pokev+46,9:pokev+34,12:pokev+23,0:pokev+42,14:pokev+43,14:pokev+6,185:pokev+8,233:pokev+7,60:pokev+9,60:pokev+10,126:pokev+11,140:pokev+12,176:pokev+13,144:pokev+14,224:pokev+15,144:pokev+29,24:pokev+16,0:pokev+28,0
  184. 183 poke50171,179:poke50172,180:poke50173,167:poke50174,166:poke50175,165:fori=0to3:ifnj%(i,sp)>0thenprintpk$(i):forh=0tonj%(i,sp)-1:printspc(2+10*i)gw%(i,h,sp):next
  185. 184 next:ifnj%(2,sp)>0thenpoke53269,peek(53269)or24
  186. 185 print"";:fori=0to8:print"=====";:next:print"========================================";:fori=0to5:printspc(9)" =                   =":next:print"[145][145][145][145][145]"spc(13):fori=0to2:printra$"";:next:print:printspc(10)"=====================[145][145][158]":iftp%(0,sp)>0thenpokev+21,peek(v+21)or32
  187. 186 iftp%(1,sp)>0thenpokev+21,peek(v+21)or64
  188. 187 iftp%(2,sp)>0thenpokev+21,peek(v+21)or128
  189. 188 printspc(13);tp%(0,sp):print"[145]"spc(19)tp%(1,sp):print"[145]"spc(25)tp%(2,sp):print""st$:print""st$:print"[145][145][145][145][145][145]":fori=0to4:printspc(13)";"spc(13)";":next:print"[145][145][145][158]k[213][200][211][212][193][204][204]a[195][203][197][210]w[193][204][196]":a2=22:a1=pa(0,sp)+pa(1,sp):gosub190:print"[145]"spc(9);ss$:a2=10:a1=pa(3,sp):gosub190:print"[145]"spc(21);ss$
  190. 189 a2=6:a1=pa(2,sp):gosub190:print"[145]"spc(34);ss$:goto195
  191. 190 ifa1=0thenss$="-":return
  192. 191 ifa1=<a2/5thenss$="-":return
  193. 192 ifa1=<a2/1.8thenss$="#":return
  194. 193 ifa1=a2thenss$="++":return
  195. 194 ss$="+":return
  196. 195 gosub219:goto40
  197. 196 print"[147]":poke53280,8:poke53281,8:poke53282,9:poke53283,5:pokev+21,0:poke53270,24:ifat<0thenprint"[144]s[201][197] [215][193][210][197][206] [194][197][210][197][201][212][211] [193][213][198] [196][197][210] j[193][199][196]":goto215
  198. 197 ifb(10,sp)=0then216
  199. 198 ifb(10,sp)<10thenprint"[144]i[200][210] w[193][204][196] [201][211][212] [218][213] [203][204][197][201][206] [198][255][210] g[210][207]\[215][201][204][196]":goto215
  200. 199 ifat<10thenprint"[144]d[197][210] w[201][204][196][194][197][211][212][193][206][196] [201][211][212] [206][207][195][200] [218][213] [199][197][210][201][206][199]":goto215
  201. 200 pokev+23,0:pokev+29,0:sys50194:at=-1:print""j2$""j1$"[145][145][145]"j6$""j2$""j2$"[145]"j1$""j6$"[145]"j2$"";:printj2$"[145][145]"j1$""j2$"[145]"j6$""j2$:print""j6$"[145][145]"j4$"[157]"j2$""j2$""j1$"[145]"j6$""j6$;:print""j4$""j1$"[145][145][145]"j2$""j6$
  202. 201 print""j2$""j5$""j6$""j2$""j5$"[145]"j2$""j4$;:print"[145][145][145]"j2$:print""j1$""j2$""j5$""j2$"[145]"j6$""j2$""j4$""j3$:print""j3$"[145]"j6$""j3$""j5$""j3$;j4$""j5$:print""j4$"[145]"j5$""j3$""j6$
  203. 202 printspc(18)""j4$:poke50170,200:poke50171,189:poke50172,186:poke50168,201:poke50169,202:pokev+41,2:pokev+42,0:pokev+43,9:pokev+39,1:pokev+27,24:pokev+40,1:j=int(b(10,sp)/5):pokev,160:pokev+1,150:pokev+2,160:pokev+3,150:sys50200,jo-56320:pokev+30,0
  204. 203 pokev+21,1:pokev+16,peek(v+16)and3:fori=0to999+1000*rnd(c):next:poke866,0:ifrnd(v)<.5thenyy=0:goto209
  205. 204 ifrnd(v)>.8thenyy=2:goto210
  206. 205 yy=1:a=rnd(ja):ifa<.33thensx=120:sy=140:goto208
  207. 206 ifa>.66thensx=84:sy=102:goto208
  208. 207 pokev+16,peek(v+16)or8:sx=60:sy=132
  209. 208 pokev+6,sx:pokev+7,sy:pokev+21,9:fori=0to1:sysc,3,190,132,0,5:sysc,3,189,132,0,5:next:sysc,3,191,0,0,20:fori=0to1:sysc,3,190,4,0,5:sysc,3,189,4,0,5:next:goto212
  210. 209 a=int(5*rnd(1)):pokev+4,-37*(a=0)-117*(a=1)-29*(a=2)-173*(a=3)-221*(a=4):pokev+5,-183*(a=0)-199*(a=1)-207*(a=2)-215*(a=3)-207*(a=4):pokev+16,peek(v+16)-(a=0)*4:pokev+21,5:fori=0to1500:next:goto212
  211. 210 pokev+8,184:pokev+9,60:ifrnd(v)<.5thenpokev+8,70
  212. 211 pokev+21,17:fori=1to2:sysc,4,186,0,0,8:sysc,4,187,0,0,8:sysc,4,187,136,252,8:sysc,4,188,136,252,8:sysc,4,188,134,4,7:sysc,4,188,132,4,8:next:goto212
  213. 212 ifpeek(v+21)=1thentp%(yy,sp)=tp%(yy,sp)+1:gosub217:goto214
  214. 213 j=j-1:ifj>0then203
  215. 214 print"[147]":sys50194:sys50197:return
  216. 215 gosub219:return
  217. 216 print"[144]i[206] [215][197][204][195][200][197][205] w[193][204][196] [196][193][195][200][212][197][206] s[201][197] [196][197][206][206]":printspc(13)"[218][213] [202][193][199][197][206] ?":goto215
  218. 217 pokev+21,0:a0$="":a1=10:a2=7:a3=18:a4=5:gosub238:print"[158]"::printspc(14)"d[201][197] j[193][199][196] [215][193][210]":printspc(14)"[197][210][198][207][204][199][210][197][201][195][200]":fori=0to3000:next:return
  219. 218 print"[158][147]"spc(18-(len(na$(sp))+len(tl$(z(sp))))/2);tl$(z(sp))"";na$(sp);:print"[201][211][212]":return
  220. 219 sys50185
  221. 220 if(peek(jo)and16)>0then220
  222. 221 if(peek(jo)and16)=0then221
  223. 222 return
  224. 223 pokev+32,0:pokev+33,0:print"[147]s[195][200][204][197][195][200][212][197] n[193][195][200][210][201][195][200][212],";tl$(z(sp));"";na$(sp):print"w[197][199][197][206] l[193][206][196][205][193][206][199][197][204] [199][201][206][199] i[200][210] [199][197][211][193][205][212][197][210]":print"v[201][197][200][194][197][211][212][193][206][196] [214][197][210][204][207][210][197][206]":fori=0to5:b(i,sp)=0:next:gosub219:return
  225. 224 pokev+22,200:print"[158][147]";:poke53280,6:poke53281,6:pokev+21,0:ifb(11,sp)*1000-b(17,sp)=>0thena0=b(17,sp)/100*(90+rnd(1)*10):goto226
  226. 225 a0=(1000*b(11,sp))/100*(90+rnd(1)*10):a0=a0+((b(17,sp)-1000*b(11,sp))/100*(30+20*rnd(1)))
  227. 226 a0=int(a0):a1=int(b(18,sp)/100*(50-15*rnd(1)*(we/2))):a2=int(b(19,sp)/100*(50-20*rnd(1)*(we/2))):we=int(1+4*rnd(1)):printtl$(z(sp));""na$(sp):print"[145]"spc(26)"i[205] j[193][200][210][197]";ja:print"[158]"spc(6)"[154]d[193][211] w[197][212][212][197][210] [215][193][210][158] ";mi$(we):print"[154]e[211] [199][201][206][199][197][206] [214][197][210][204][207][210][197][206]:":printspc(9)"z[197][206][212][206][197][210] g[197][212][210][197][201][196][197]
  228. 227 [153][166]9)"zval(NULL)(NULL)(NULL)val(NULL) katn(NULL)(NULL)(NULL)ascascval(NULL)(NULL)":[153][166]9)"zval(NULL)(NULL)(NULL)val(NULL) r(NULL)peekval(NULL)ononon":[153]b(17,sp)[171]a0:b(17,sp)[178]a0:[153]b(18,sp)[171]a1:b(18,sp)[178]a1:[153]b(19,sp)[171]a2:b(19,sp)[178]a2:[139]we1[167]mr[178]2:mg[178]1.5:mk[178]2.2
  229. 228 [139]we[178]3[167]mr[178]2:mg[178]1:mk[178]1.8
  230. 229 [139]we[178]2[167]mr[178]2:mg[178]4:mk[178]2
  231. 230 [139]we[178]4[167]mr[178]3:mg[178]2:mk[178]3
  232. 231 p%(17)[178]([181](80[170]65[172][187](1)))[171][181](mg[172]6):p%(18)[178]([181](13[170]6[172][187](1)))[171][181](mk):p%(19)[178]([181](10[170]3[172][187](1)))[171][181](mr):a3[178][181]((24[170]4[172][187](1))[172]mg):b(17,sp)[178]b(17,sp)[170]a3[172]bs(0,sp):a4[178][181]((123[170]20[172][187](1))[172]mk):b(18,sp)[178]b(18,sp)[170]a4[172]bs(1,sp):a5[178][181]((200[170]44[172][187](1))[172]mr):b(19,sp)[178]b(19,sp)[170]a5[172]bs(2,sp)
  233. 232 ga(sp)[178]ga(sp)[170]a3[172]bs(0,sp)[172]20[170]a4[172]1.5[172]bs(1,sp)[170]a5[172]bs(2,sp):[139]b(0,sp)[178]0[167]a0[178]0:[137]234
  234. 233 a0[178][181](mi[173]b(0,sp))
  235. 234 [139]bs(0,sp)[178]0[167]a3[178]0
  236. 235 [139]bs(1,sp)[178]0[167]a4[178]0
  237. 236 [139]bs(2,sp)[178]0[167]a5[178]0
  238. 237 [153]"mright$(NULL)lenleft$val(NULL)(NULL)(NULL)atnchr$ (NULL)(NULL)(NULL) k(NULL)left$ :"a0"lright$(NULL)val(NULL)":[153]"gval(NULL)(NULL)valright$str$valval(NULL)(NULL)(NULL)atnchr$ (NULL)(NULL)(NULL)  m(NULL)(NULL)chr$val(NULL)"a3:[153]"katn(NULL)(NULL)(NULL)ascascval(NULL)val(NULL)(NULL)(NULL)atnchr$ (NULL)(NULL)(NULL) m(NULL)(NULL)chr$val(NULL)"a4:[153]"r(NULL)peekval(NULL)val(NULL)(NULL)(NULL)atnchr$ (NULL)(NULL)(NULL)     m(NULL)(NULL)chr$val(NULL)"a5:[141]219:[137]239
  239. 238 [151]211,a1:[151]214,a2:[158]58732:[153]a0$"5"[200](g$,a3)"6"[166]38[171]a3);:[129]i[178]1[164]a4:[153]"4syswait"[200](l$,a3);a0$"4"[166]38[171]a3);:[130]:[153]"7"[200](g$,a3)"8wait";:[142]
  240. 239 fb[178]b(0,sp):[129]i[178]2[164]7:fb[178]fb[170]b(i,sp):[130]:fb[178]20[172]b(12,sp)[171]fb:[142]
  241. 240 a1[178]a0[173]5[172]4[170].5:[139]a1[177]100[167]a1[178]100
  242. 241 [153][200](pr$,24[170]a1[173]8);:[139]a1[179]80[167][153][199]((a1[175]7)[170]36);
  243. 242 [153]:[142]
  244. 243 [151]53269,0:a0$[178]"":a1[178]18:a2[178]3:a3[178]19:a4[178]13:[141]238:a0[178]bs(0,sp)[170]bs(1,sp)[170]bs(2,sp):[139]b(8,sp)[178]0[167]a0[178]0:[137]245
  245. 244 a0[178]a0[173]b(8,sp)[172]100
  246. 245 [153]""[166]20)"stopbright$(NULL)left$val(NULL) peekval(NULL)(NULL)val(NULL)(NULL)(NULL):":[153]:[129]i[178]0[164]2:[153][166]30)bs(i,sp):[130]:[153][166]19)"ononongval(NULL)(NULL)valright$str$valverify;;;;stopm(NULL)chr$":[153][166]19)"katn(NULL)(NULL)(NULL)ascascval(NULL)(NULL)verify;;stopm(NULL)chr$":[153][166]19)"r(NULL)peekval(NULL)verify;;;;;;;stopm(NULL)chr$":[153][166]20)"latn(NULL)str$ peekval(NULL)(NULL)val(NULL)(NULL)(NULL) (NULL)(NULL)":[153][166]23)"clr";:[141]240:[153][166]23)"sys0%      100%":[153][166]20)"e(NULL)right$(NULL)(NULL)(NULL)verify;;;;;;
  247. 246 printspc(20)"@[206][196][197][210][206][149];;;;;;":printspc(26)"[145][145][145]";:a7=20:a8=15:a9=2:gosub109:ifa0=0then100
  248. 247 a7=19:a8=6:a9=3:gosub109:a6=14:a7=a0:a0=49152+36+40*15:gosub117:goto243
  249. 248 print"[158][147][215][213][210][196][197] 1987 [214][207][206] m.u.s.s[207][198][212][215][193][210][197] [198][255][210] [193][204][204][197]  c64-u[211][197][210] [197][206][212][215][201][195][203][197][204][212].":print"z[213][210] s[201][212][213][193][212][201][207][206] 1789:":print"d[197][210] k[192][206][201][199] [211][213][195][200][212] [197][201][206][197][206] [199][197][197][201][199][206][197][212][197][206] n[193][195][200]-":print"[198][207][204][199][197][210] [198][255][210] [196][197][206] f[193][204][204] [211][197][201][206][197][211] t[207][196][197][211]. d[201][197]":print"s[208][201][197][204][197][210] [211][212][197][204][204][197][206] [211][201][195][200] [193][204][211] a[206][215][186][210][212][197][210] [198][255][210]"
  250. 249 print"[196][193][211] a[205][212]. d[197][210][202][197][206][201][199][197], [196][197][210] [193][205] [194][197][211][212][197][206] [211][197][201][206][197][206]";:print"h[207][198] [214][197][210][215][193][204][212][197][212] [213][206][196] [211][197][201][206][197] f[186][200][201][199][203][197][201][212][197][206] [193][204][211]":print"p[198][197][210][196][197][218][255][195][200][212][197][210] [213][206][212][197][210] b[197][215][197][201][211] [211][212][197][204][204][212],":print"[199][197][215][201][206][206][212].":print"agricola [201][211][212] [197][201][206] p[213][194][204][201][195] d[207][205][193][201][206]-p[210][207][199][210][193][205][205]":print"[213][206][196] [196][193][210][198] [214][207][206] [202][197][196][197][205] [198][210][197][201] [203][207][208][201][197][210][212] [215][197][210][196][197][206]."
  251. 250 print"w[197][210] [197][211] [206][213][212][218][212] [211][195][200][201][195][203][197] [194][201][212][212][197] [197][201][206][197][206] b[197][212][210][193][199] [214][207][206] 10 dm [193][206]:":printspc(9)"m[193][210][203][213][211] [213][206][196] u[204][210][201][195][200] s[201][205][207][206]":printspc(9)"s[193][193][210][211][212][210]. 13":printspc(9)"d-4047 d[207][210][205][193][199][197][206] 1":pokev+23,0:pokev+28,0:pokev+29,0:pokev+16,0:fori=0to3:pokev+2*i,130+24*i:pokev+8+2*i,131+24*i:pokev+1+2*i,50
  252. 251 pokev+9+2*i,51:pokev+39+i,0:pokev+43+i,12:poke50168+i,218+i:poke50172+i,218+i:next:pokev+21,255:poke49876,49:poke49877,48:gosub220:return
  253. 252 pokev+17,11:pokev+32,11:poke53269,0:pokev+33,7:poke53270,200:print"[147][144]":poke53296,253:a1=b(0,sp):fori=2to5:a1=a1+b(i,sp):next:a1=a1*390+b(2,sp)*190:a2=(b(6,sp)+b(7,sp))*150:a3=int(10+200*rnd(ti))*b(9,sp):ma=b(12,sp)-1:a4=b(1,sp)*158:a5=(bs(0,sp)+bs(1,sp)+bs(2,sp))*100:a6=a5*30
  254. 253 a7=0:ifb(7,sp)>0thenfori=0tob(7,sp)-1:a7=a7+tr%(i,sp)*1000:next
  255. 254 print"s[201][197] [205][213]\[212][197][206]":print"[218][193][200][204][197][206]:         [145][198][255][210] h[197][213]        ";a1:printspc(16)"[198][255][210] h[193][198][197][210]      ";a2:printspc(16)"[198][255][210] r[207][196][213][206][199]     ";ro:printspc(16)"[198][255][210] w[197][201][196][197][218][186][213][206][197] ";a3:printspc(16)"[198][255][210] m[186][199][196][197]      ";ma*6500:printspc(16)"[198][255][210] k[186][204][194][197][210][218][213][195][200][212]";a4:printspc(16)"[198][255][210] s[193][193][212][199][213][212]    ";a5:printspc(16)"[198][255][210] k[206][197][195][200][212][197]    ";a6
  256. 255 printspc(16)"[198][255][210] r[197][206][206][208][198][197][210][196][197] ";a7:a$=str$(a1+a2+a3+ro+ma*6500+a4+a5+a6+a7):print"[145]g[197][211][193][205][212]:[149]"a$:printspc(8):fori=2tolen(a$):print"_";:next:print:k(sp)=k(sp)-a1-a2-ro-ma*6500-a4-a3-a5-a6-a7:ro=0:a1=int(mi*pm):print"[144]s[201][197] [206][193][200][205][197][206] [197][201][206] : [198][255][210] m[201][204][195][200]     "a1:k(sp)=k(sp)+a1
  257. 256 zi=0:ifk(sp)<0thenzi=int(-k(sp)/5):k(sp)=k(sp)-zi
  258. 257 b(14,sp)=int(b(14,sp)+(rnd(1)/20+.1)*b(14,sp)):ifb(14,sp)/250>b(10,sp)thenb(14,sp)=b(10,sp)*250
  259. 258 printspc(10)"n[207][212][214][197][210][203][186][213][198][197]    b[197][211][212][193][206][196]":printspc(23)"[193][204][212]     [206][197][213]":fori=0to6:printspc(22);b(i,sp):next:print"[145][145][145][145][145][145][145][145]":a0=b(1,sp)-20*b(12,sp):ifa0<0thena0=0
  260. 259 a6=a0:b(1,sp)=b(1,sp)-a0:k(sp)=k(sp)+a0*200:a0=0:a1=0:a2=0:a3=0:a4=0:a5=0:gosub239:fb=-fb:iffb<0then271
  261. 260 ifb(3,sp)<=fbthena0=b(3,sp):fb=fb-a0:k(sp)=k(sp)+400*a0:b(3,sp)=0:goto262
  262. 261 b(3,sp)=b(3,sp)-fb:k(sp)=k(sp)+400*fb:a0=fb:goto271
  263. 262 ifb(2,sp)<=fbthena1=b(2,sp):fb=fb-a1:k(sp)=k(sp)+500*a1:b(2,sp)=0:goto264
  264. 263 b(2,sp)=b(2,sp)-fb:k(sp)=k(sp)+500*fb:a1=fb:goto271
  265. 264 ifb(4,sp)<=fbthena2=b(4,sp):fb=fb-a2:k(sp)=k(sp)+550*a2:b(4,sp)=0:goto266
  266. 265 b(4,sp)=b(4,sp)-fb:k(sp)=k(sp)+550*fb:a2=fb:goto271
  267. 266 ifb(0,sp)<=fbthena3=b(0,sp):fb=fb-a3:k(sp)=k(sp)+900*a3:b(0,sp)=0:goto268
  268. 267 b(0,sp)=b(0,sp)-fb:k(sp)=k(sp)+900*fb:a3=fb:goto271
  269. 268 ifb(6,sp)<=fbthena4=b(6,sp):fb=fb-a4:k(sp)=k(sp)+1500*a4:b(6,sp)=0:goto270
  270. 269 b(6,sp)=b(6,sp)-fb:k(sp)=k(sp)+1500*fb:a4=fb:goto271
  271. 270 b(5,sp)=b(5,sp)-fb:k(sp)=k(sp)+3000*fb:a5=fb
  272. 271 print"m[201][204][195][200][203][255][200][197]     "a3:print"k[186][204][194][197][210]        "a6:print"r[201][206][196][197][210] ([215])    "a0:print"r[201][206][196][197][210] ([205])    "a1:print"b[213][204][204][197][206]        "a2:print"z[213][195][200][212][194][213][204][204][197][206]   "a5:print"a[195][203][197][210][208][198][197][210][196][197]   "a4:b(0,sp)=b(0,sp)-int(rnd(ti)/5*b(0,sp)+.5):fori=4to6:ifb(i,sp)=0then273
  273. 272 forh=1tob(i,sp):b(i,sp)=b(i,sp)+(rnd(1)<.1):next
  274. 273 next:ifb(0,sp)/22<=b(5,sp)thena9=b(0,sp):goto275
  275. 274 a9=b(5,sp)*21
  276. 275 b(4,sp)=b(4,sp)+b(3,sp):gt(sp)=gt(sp)+b(3,sp):b(3,sp)=0:b(0,sp)=b(0,sp)+b(2,sp):gt(sp)=gt(sp)+b(2,sp):b(2,sp)=0:a0=int(b(1,sp)*rnd(1)/5+b(1,sp)/2.5):gt(sp)=gt(sp)+b(1,sp):b(3,sp)=b(3,sp)+a0:b(2,sp)=b(2,sp)+b(1,sp)-a0
  277. 276 b(1,sp)=a9:gt(sp)=gt(sp)+b(1,sp)*2:print"[145][145][145][145][145][145][145][145]":fori=0to6:printspc(30)b(i,sp):next:me=0:ifb(7,sp)=0then284
  278. 277 fori=0tob(7,sp)-1:ifal%(i,sp)>12andrnd(3)<.5then279
  279. 278 next:goto284
  280. 279 printpf$(i,sp)" v[197][210][211][212][193][210][194]"
  281. 280 a0=b(7,sp)-1-i:ifa0=0then283
  282. 281 forh=1toa0:pf$(i+h-1,sp)=pf$(i+h,sp):al%(i+h-1,sp)=al%(i+h,sp):po%(i+h-1,sp)=po%(i+h,sp):tr%(i+h-1,sp)=tr%(i+h,sp):fa%(i+h-1,sp)=fa%(i+h,sp):pr(i+h-1)=pr(i+h):next:ifan(sp)=ithenan(sp)=6
  283. 282 ifan(sp)>iandan(sp)<6thenan(sp)=an(sp)-1
  284. 283 b(7,sp)=b(7,sp)-1:ifme=0thennext
  285. 284 poke53296,252:poke53265,27:ifme=6thenreturn
  286. 285 gosub219:ifzi=0then287
  287. 286 a0$="":a1=1:a2=3:a3=8:a4=3:gosub238:print:print"[145][145][145][145]zinsen":print""zi:gosub219
  288. 287 a0=bs(0,sp)+bs(1,sp)+bs(2,sp):ifa0<=b(6,sp)*4anda0<=b(16,sp)*4then296
  289. 288 poke53280,0:poke53281,4:print"[147][158]s[201][197] [205][213]\[212][197][206] [211][201][195][200]";:a3=0:ifa0>b(6,sp)*4thena3=int(a0/4+.9)-b(6,sp)
  290. 289 a4=0:ifa0>b(16,sp)*4thena4=int(a0/4+.9)-b(16,sp)
  291. 290 a0=0:ifa3=0then292
  292. 291 a0=1:printa3"a[195][203][197][210][208][198][197][210][196]";:ifa3>1thenprint"[197]";
  293. 292 ifa0=1anda4>0thenprint" [213][206][196]":printspc(15);
  294. 293 ifa4=0then295
  295. 294 printa4"p[198][204][213][199]";:ifa4>1thenprint"[157][157][255][199][197]";
  296. 295 print" [204][197][201][200][197][206].":print"k[207][211][212][197][206]:"a3*1200+a4*300"m[193][210][203]":k(sp)=k(sp)-a3*1200-a4*300:gosub219
  297. 296 ifsp=asthensp=0:ja=ja+1:gosub346:gosub300:goto332
  298. 297 sp=sp+1:goto24
  299. 298 fori=0toas:ifb(7,i)=0thennext:goto24
  300. 299 forh=0tob(7,i)-1:al%(h,i)=al%(h,i)+1:a0=po%(h,i):a0=a0+a0*((24-3*al%(h,i))/100):a0=a0+((100-a0)*(1.5*tr%(h,i))/100):po%(h,i)=a0:next:next:goto24
  301. 300 pokev+34,6:pokev+35,7:pokev+22,24::pokev+17,11:fori=0toas:pa(0,i)=b(0,i)*4+b(1,i)+b(2,i)*3+b(3,i)*3+b(4,i)*5+b(5,i)*15+b(12,i)*25:pa(0,i)=int(pa(0,i)/100):ifpa(0,i)>10thenpa(0,i)=10
  302. 301 pa(1,i)=int(sqr(gt(i))/6):ifpa(1,i)>12thenpa(1,i)=12
  303. 302 pa(2,i)=int(gh(i)/2000):ifpa(2,i)>6thenpa(2,i)=6
  304. 303 pa(3,i)=int(ga(i)/16000):ifpa(3,i)>10thenpa(3,i)=10
  305. 304 te(i)=tp%(0,i)*2+tp%(1,i)*3+tp%(2,i)*4:pa(4,i)=int(te(i)/6):ifpa(4,i)>8thenpa(4,i)=8
  306. 305 pa(5,i)=int((k(i)+b(8,i)*6000+b(9,i)*5000+b(10,i)*3500)/130000):ifpa(5,i)>7thenpa(5,i)=7
  307. 306 pa(5,i)=pa(5,i)+int(b(13,i)/6):ifpa(5,i)<0thenpa(5,i)=0
  308. 307 pu(i)=pa(0,i)+pa(1,i)+pa(2,i)+pa(3,i)+pa(4,i)+pa(5,i)+gr(i):pu(i)=int(pu(i)/7):z(i)=int(pu(i)/3.5):next:print"[147]":pokev+28,120:pokev+16,0:pokev+23,0:pokev+29,7:pokev+32,6:pokev+33,2:fori=0to3:poke50171+i,181:next:pokev+38,9:pokev+37,13:fori=0to3:pokev+42+i,8:next:fori=0to3:pokev+6+i*2,0:next
  309. 308 fori=0toas:pokev+6+i*2,18:next:pokev+7,74:pokev+9,114:pokev+11,154:pokev+13,194:pokev+21,120:forh=0toas:print"":fori=0to3:printkj$(1)"[157]";:next:printkj$(2)"[157]";:fori=0to2:printkj$(1)"[157]";:next:printkj$(2)"[157][157][157][157][157][145][145][145][150][187][188][146]":next:print"":pokev+17,27:g=0:fori=0toas:a(i)=0:j(i)=0:next:fori=0toas:ifpu(i)=0thena(i)=1
  310. 309 next
  311. 310 fori=0toas:ifa(i)=1thennext:goto320
  312. 311 forg=0toas:ifa(g)=1thennext:goto310
  313. 312 ifrnd(1)>1/(as+1)thennext:goto310
  314. 313 ifj(g)=4orj(g)=9then317
  315. 314 sysc,3+g,182,0,0,15:sysc,3+g,183,0,0,5:ifj(g)=5then319
  316. 315 sysc,3+g,183,4,251,5:sysc,3+g,184,4,251,5:forh=0to3:sysc,3+g,184,4,0,5:next:forh=0to1:sysc,3+g,184,4-h,5,5:next:sysc,3+g,185,0,0,10:sysc,3+g,181,0,0,5
  317. 316 pu(g)=pu(g)-1:j(g)=j(g)+1:a(g)=-(pu(g)=0):nextg:goto310
  318. 317 sysc,3+g,203,4,0,10:sysc,3+g,204,0,0,20:sysc,3+g,205,132,0,10:sysc,3+g,185,12,247,10:sysc,3+g,181,0,0,10:ifj(g)=9then335
  319. 318 goto316
  320. 319 sysc,3+g,184,4,252,5:forh=0to2:sysc,3+g,184,4,0,5:next:forh=0to2:sysc,3+g,184,4,4+h/2,5:next:sysc,3+g,185,4,0,5:sysc,3+g,181,0,0,10:goto316
  321. 320 gosub219:return
  322. 321 print"[158]s[208][201][197][204][211][212][193][206][196] [211][201][195][200][197][210][206] ?;;[158]n[197][201][206] j[193];;;;":a0=184:a1=50:gosub328:pokev+21,0:ifa2=0then298
  323. 322 print"[158]b[201][212][212][197] laufwerk einschalten [213][206][196]diskette einlegen.":gosub220:print"";:fori=0to2:print"                              ":next:print"";:poke198,8:fori=1to3:poke630+i,asc(mid$("run",i,1)):next:poke634,13:open1,8,2,"@0:g,s,w":print#1,as:print#1,ja:print#1,aj:print#1,je
  324. 323 fori=0to2:print#1,lm(i):next:fori=0toas:print#1,gt(i):print#1,gh(i):print#1,ga(i):print#1,gr(i):print#1,z(i):print#1,k(i):print#1,na$(i):forh=0to2:print#1,bs(h,i):print#1,tp%(h,i):next:a=b(7,i)-1:print#1,a:ifa=>0thenforh=0toa:print#1,pf$(h,i):next
  325. 324 forh=0to4:print#1,nj%(h,i):print#1,al%(h,i):print#1,po%(h,i):print#1,fa%(h,i):print#1,tr%(h,i):next:forh=0to20:print#1,b(h,i):next:forh=0to5:print#1,pa(h,i):next:forh=0to3:forg=0to3:print#1,gw%(g,h,i):next:next:next:close1:goto298
  326. 325 poke198,3:poke631,82:poke632,213:poke633,13:pokev+21,0:open1,8,2,"g,s,r":input#1,as,ja,aj,je:fori=0to2:input#1,lm(i):next:fori=0toas:input#1,gt(i),gh(i),ga(i):input#1,gr(i),z(i),k(i),na$(i):forh=0to2:input#1,bs(h,i),tp%(h,i):next:input#1,a:ifa=>0thenforh=0toa:input#1,pf$(h,i):next
  327. 326 forh=0to4:input#1,nj%(h,i),al%(h,i),po%(h,i):input#1,fa%(h,i),tr%(h,i):next:forh=0to20:input#1,b(h,i):next:forh=0to5:input#1,pa(h,i):next:forh=0to3:forg=0to3:input#1,gw%(g,h,i):next:next:next:close1:ifna$(0)<>""then298
  328. 327 run
  329. 328 pokev+44,5:pokev+16,0:pokev+10,a0:pokev+11,a1:pokev+28,0:a2=0:pokev+27,48:poke50173,164:pokev+23,32:pokev+29,32:pokev+21,32
  330. 329 a3=peek(jo):if(a3and16)=0thengoto221
  331. 330 if(a3and4)=0or(a3and8)=0thena2=(a2+1)and1:pokev+10,a0+a2*56
  332. 331 goto329
  333. 332 ifja<jethen321
  334. 333 pokev+32,2:pokev+21,0:print"[147]"spc(8)"d[197][210] k[192][206][201][199] [201][211][212] [199][197][211][212][207][210][194][197][206] !":sys50203,99:print ""spc(4)"k[197][201][206][197][210] [196][197][210] k[193][206][196][201][196][193][212][197][206] [203][207][206][206][212][197] [196][197][206]":print"a[206][198][207][210][196][197][210][213][206][199][197][206] [197][201][206][197][211] k[192][206][201][199][211] [199][197][210][197][195][200][212]":printspc(17)"[215][197][210][196][197][206].":sys50203,99:print"i[206] [196][197][205] [206][213][206] [198][255][200][210][213][206][199][211][204][207][211][197][206] l[193][206][196] [194][210][201][195][200][212]"
  335. 334 printspc(9)"[196][193][211] [212][207][212][193][204][197] c[200][193][207][211] [193][213][211].":gosub219:pokev+17,11:sys50218
  336. 335 pokev+17,11:print"[147][156]";:pokev+32,6:pokev+33,14:pokev+34,10:pokev+35,0:sys50209:poke50168,164:poke50169,164:poke50170,164:pokev,160:pokev+1,173:pokev+2,130:pokev+3,170:pokev+4,208:pokev+5,170:pokev+21,7:pokev+23,7:pokev+29,3:pokev+39,2:pokev+40,2:pokev+41,2:pokev+27,7:printba$;:fori=0to4:print";"spc(38)";";:next
  337. 336 a0$="[158]":a1=11:a2=6:a3=16:a4=10:gosub238:print"":print"":printspc(15)"[149][192][193][194][195]":printspc(15)"[196][197][198][199][200][201]":printspc(15)"[202][203][204][205][206][207]":printspc(15)"[208][209][210][211][212][213][214][215]":printspc(15)"[216][217][218][218][219][220][218][218][218][221]":printspc(15)"[255][218][223][160][161][162][163][164][165][166][167]":printspc(12)";;;[149][168][169][170][171][172][173][174][175][170][176][177][146];;":printspc(12)";;;;;;;;;;;;;;;;"
  338. 337 print"[156]":fori=0to11:print";;;;;;;;;;;;;;;;;;;;;;";:next:fori=0to5:printba$;:next:print";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;[157]"chr$(148)";":b$(0)="m[197][201][206][197] h[207][195][200][193][195][200][212][213][206][199] "+na$(g)+".":b$(1)="s[201][197] [200][193][194][197][206] [197][211] [199][197][211][195][200][193][198][198][212] k[192][206][201][199] [218][213] [215][197][210][196][197][206]
  339. 338 b$(2)[178]"(NULL)(NULL)str$ str$atn(NULL) ktan(NULL)right$chr$(NULL)valright$lenleft$ (NULL)(NULL)(NULL) str$val(NULL) u(NULL)(NULL)val(NULL)chr$atn(NULL)chr$":b$(3)[178]"(NULL)(NULL) peekval(NULL)atnleft$(NULL)val(NULL).":b$(4)[178]"ilenleft$ left$(NULL)ascascval val(NULL) left$atn(NULL) ileft$(NULL)val(NULL) chr$valascatn(NULL)(NULL)val(NULL).":b$(5)[178]"d(NULL)(NULL)len(NULL)val(NULL) sright$val str$val(NULL) k(NULL)(NULL)(NULL)asc asc(NULL)(NULL) nval(NULL)(NULL)(NULL)atn(NULL)(NULL)":b$(6)[178]"(NULL)str$val(NULL) e asc(NULL)(NULL) e(NULL)right$(NULL)(NULL)(NULL)...":[151]v[170]17,27:a0[178]0
  340. 339 [129]i[178]0[164]6:[158]50212:[153]"";:[129]h[178]1[164][195](b$(i)):a$[178][202](b$(i),h,1):[139]a$[178]" "[167]344
  341. 340 [139]a$[178]"."[167][153]a$;:[158]50203,50:[130]:[130]:[137]345
  342. 341 [139]a0[178]1[167]a0[178]0:[129]g[178]0[164]2:[151]49571[170]g,198[170]g:[130]
  343. 342 [139][187](1)[179].02[175]a0[178]0[167]a0[178]1:[151]49571,244:[151]49572,247:[151]49573,248
  344. 343 [158]50215,[198](a$)
  345. 344 [153]a$;:[158]50203,4:[130]:[130]
  346. 345 [151]v[170]17,27:[137]3
  347. 346 [129]i[178]0[164]7:[151]840[170]i,0:[151]868[170]i,0:[130]:[151]858,1:[151]859,60:[151]53280,6:[151]53281,8:[153]"stopload":[129]i[178]0[164]as:[139]an(i)[179]6[167]352
  348. 347 [130]:[153]"sys"[166]20[171][195](re$(re))[173]2)re$(re):[153]"stop  w(NULL)(NULL)(NULL)val(NULL) sright$val (NULL)(NULL)(NULL) pascval(NULL)str$val(NULL)val(NULL)(NULL)val(NULL) chr$valleft$val(NULL) ?":[153]"for;;;;stopjatn-nvalright$(NULL)for;;stop":[151]v[170]9,98:[151]v[170]8,24:[151]v[170]21,16:a1[178]0
  349. 348 a2[178][194](jo):[139](a2[175]28)[178]0[167]348
  350. 349 [139](a2[175]4)[178]0[176](a2[175]8)[178]0[167]a1[178](a1[170]1)[175]1:[151]v[170]8,24[170]56[172]a1
  351. 350 [139](a2[175]16)[177]0[167]348
  352. 351 [139]a1[178]1[167][153]"load":[151]53269,0:[142]
  353. 352 a9[178]0:[129]i[178]0[164]as:[139]an(i)[178]6[167]357
  354. 353 [139]po%(an(i),i)[177]30[167]355
  355. 354 [153]pf$(an(i),i);ei$:a9[178]a9[170]1:[153]ei$(3[172][187](1)):an(i)[178]6:[137]357
  356. 355 [139]k(i)[179]2[174](re[170]1)[172]1000[167][153]pf$(an(i),i);ei$:[153]ei$(3):an(i)[178]6:[137]357
  357. 356 k(i)[178]k(i)[171]2[174](re[170]1)[172]1000
  358. 357 [130]:[139]a9[178]0[167]359
  359. 358 [141]219
  360. 359 [151]53269,0:a0[178]0:a2[178](re[170]5)[173]2:[129]i[178]0[164]as:[139]an(i)[178]6[167][130]:[137]361
  361. 360 np$(a0)[178]pf$(an(i),i):[151]839[171]a0,(po%(an(i),i)[171]31)[173]10:[151]900[171]a0,fa%(an(i),i):a0[178]a0[170]1:a2[178]a2[170](po%(an(i),i)[177]90):[130]
  362. 361 [129]i[178]a0[164]7:nr%(i)[178]49[172][187](i):[130]:[139]a2[179].9[167]365
  363. 362 [129]i[178]0[164]a2[171]1
  364. 363 a3[178]a0[170]((8[171]a0)[172][187](i)):[139]nr%(a3)[177]48[167]363
  365. 364 nr%(a3)[178]49[170]47[172][187](i):[130]
  366. 365 [129]i[178]a0[164]6:[129]h[178]i[170]1[164]7:[139]nr%(i)[178]nr%(h)[167]361
  367. 366 [130]:[130]:[129]i[178]a0[164]7:np$(i)[178]"":[158]50179,nr%(i):[151]839[171]i,([194](831)[175]15):[151]900[171]i,[194](831)[173]16:[129]h[178]1[164][194](820):np$(i)[178]np$(i)[170][199]([194](820[170]h)):[130]:[130]:[129]i[178]0[164]7:a0[178](6[171][194](839[171]i))[174]2[170]2[170][187](1):qu(i)[178][181]((a0[170][187](1)[172](a0[173]5))[172]4)[173]4:[151]839[171]i,18[171][194](839[171]i):[151]860[170]i,1[170]10[172][187](i):[130]:[153]"forload";:[129]i[178]0[164]12:[153][200](ba$,39):[130]
  368. 367 [153]"(NULL)right$lenleft$(NULL)(NULL);500;1000;5000;10000":[153]ba$:[153]"e(NULL) (NULL)(NULL)atn(NULL)(NULL)val(NULL) asc(NULL)(NULL)chr$val(NULL)str$val pascval(NULL)str$val:":a5[178]jo:[129]i[178]0[164]7:[153]np$(i):[130]:[153]:[153]:[129]i[178]0[164]as:[153]na$(i)", (NULL)right$val(NULL)right$val(NULL) (NULL)(NULL)(NULL)(NULL)val(NULL) sright$val (NULL)val(NULL)(NULL)val(NULL) ?":[139]aj[178]1[167]jo[178]56320[170](i[175]1)
  369. 368 a1[178]0:[151]53257,50:[137]373
  370. 369 [151]53269,16:a0[178][194](jo):[139](a0[175]4)[178]0[167]a1[178]a1[171]1[171]5[172](a1[178]0):[137]373
  371. 370 [139](a0[175]8)[178]0[167]a1[178]a1[170]1[170]5[172](a1[178]4):[137]373
  372. 371 [139](a0[175]16)[178]0[167]375
  373. 372 [137]369
  374. 373 [139]a1[178]4[167][151]53264,16:[151]53256,24:[137]369
  375. 374 [151]53264,0:[151]53256,24[170]64[172]a1:[137]369
  376. 375 [139]([194](jo)[175]16)[178]0[167]375
  377. 376 a0[178]0:[139]a1[178]0[167]f[178]0:[137]380
  378. 377 [139]a1[179]3[167]f[178]500[172]a1
  379. 378 [139]a1[177]2[167]f[178]5000[172](a1[171]2)
  380. 379 a7[178]0:a8[178]5:a9[178]8:[141]109
  381. 380 we(0,i)[178]f[172]qu(a0):we(1,i)[178]a0:k(i)[178]k(i)[171]f:[130]:[153]"load":[151]v[170]17,11:[151]v[170]21,0:[151]v[170]29,0:[151]v[170]23,0:[151]v[170]28,255:[151]v[170]16,0:[151]v[170]34,5:jo[178]a5:[151]v[170]35,9:[151]56334,254:[158]50206:[151]v[170]27,1:[129]i[178]0[164]7:[151]v[170]i[172]2,0:[130]:[129]i[178]1[164]16[169]2:[151]v[170]i,174[171]i[172]4:[130]:[129]i[178]0[164]7:[151]50168[170]i,168:[130]:[151]v[170]38,15:[129]i[178]0[164]7:[151]v[170]39[170]i,[194](893[170]i):[130]
  382. 381 [151]v[170]32,2:[151]v[170]21,255:[153]"sys"[166]20[171][195](re$(re))[173]2)re$(re):[153]""ba$;"stop  natn(NULL)val       q(NULL)(NULL)(NULL)val ;;  stopnatn(NULL)val       q(NULL)(NULL)(NULL)val":[153]"1.                 ;;5.":[153]"2.                 ;;6.":[153]"3.                 ;;7.":[153]"4.                 ;;8.":[153]ba$""
  383. 382 [151]v[170]17,27:a8[178]2:[129]i[178]0[164]7:[139]i[178]4[167]a8[178]23
  384. 383 r$[178][200](ru$,(i[175]3)[170]4):[153]r$;[166]a8)np$(i):[153]r$;[166]a8[170]12);:a0[178]qu(i)[171][181](qu(i)):[139]a0[178]0[167][153]qu(i):[153]r$;[166]a8[170]11)"1-":[141]397:[130]:[137]386
  385. 384 [139]a0[178].25[176]a0[178].75[167][153]qu(i)[172]4:[153]r$;[166]a8[170]11)"4-":[141]397:[130]:[137]386
  386. 385 [139]a0[178].5[167][153]qu(i)[172]2:[153]r$;[166]a8[170]11)"2-":[141]397:[130]:[137]386
  387. 386 [141]1:[129]i[178]0[164]3:[151]49272[170]40[172]i,[194](875[171]i)[170]48:[151]49293[170]40[172]i,[194](871[171]i)[170]48:[130]:[129]i[178]0[164]7:[139][194](875[171]i)[178]1[167]a1[178]i
  388. 387 [130]:[153]"":a0[178]0:[129]i[178]0[164]3:[139]we(0,i)[177]0[167]a0[178]1
  389. 388 [130]:[139]a0[178]0[167][153]"e(NULL) (NULL)right$valchr$val(NULL) (NULL)valright$(NULL)val wval(NULL)(NULL)val(NULL) (NULL)(NULL)(NULL).":[137]393
  390. 389 [153]"dright$val gval(NULL)right$(NULL)(NULL)val (NULL)val(NULL)(NULL)valright$(NULL)val(NULL) (NULL)right$lenleft$ (NULL)right$val asc(NULL)(NULL)chr$(NULL):":[129]i[178]0[164]3:[139]we(0,i)[178]0[167]392
  391. 390 a0[178]0:[139]we(1,i)[178]a1[167]a0[178]we(0,i)
  392. 391 [153]na$(i):[153][166]10)"on"a0:k(i)[178]k(i)[170]a0:[153]"on"[166]17)"matn(NULL)(NULL)"
  393. 392 [130]
  394. 393 gp[178]9:a0[178][171]1:[129]i[178]0[164]as:[139]an(i)[179]6[167]a0[178]a0[170]1
  395. 394 [139]a0[178]a1[175]gp[178]9[167]gp[178]i
  396. 395 [130]:[141]219:[158]50197:[151]56334,1:[139]gp[178]9[167][142]
  397. 396 [137]399
  398. 397 [129]a0[178]1[164]3:[151]847[171]i,[194](847[171]i)[170]1:[129]a1[178]0[164]400:[130]:[130]:[142]
  399. 398 a4[178]a4[171]1[171]2[172](a4[178]168):a2[178]a2[170]8:[129]g[178]0[164]330:[130]:[130]:[142]
  400. 399 [151]53265,11:[151]53281,0:[151]53280,6:[151]53270,24:[151]v[170]35,9:[151]v[170]34,10:[151]50171,173:[151]50172,161:[151]v[170]42,13:[151]v[170]43,fa%(an(gp),gp):[151]v[170]28,0:[151]v[170]6,190:[151]v[170]7,205:[151]v[170]8,190:[151]v[170]9,205:[151]v[170]21,24:[151]v[170]16,0:[153]"load"ba$";;;;53333333333333333333333333333336wait;;;;";:[129]i[178]1[164]5
  401. 400 [153]";;;;4wait                              4wait;;;;";:[130]:[153]";;;;73333333333333333333333333333338wait;;;;";ba$;ba$:[153]""[166]11)"andcmdoron lencmdlenonstr$wait  andcmd>on  andcmdoron andcmdoron"[166]4)"lencmdlen":[153]"onon"[166]28)"str$waitandcmdoron lencmdlenonsysstr$wait  andcmdoron  andcmd>"
  402. 401 [153]"  print#tab(wait      spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait or >   print#spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait  >":[153]"  print#tolistfnconttab(wait    spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait > or   defspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait  >":[153]"  contthenthentodeffndeftab(wait  verifyspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait = =   contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(wait  =":[153]";;verifythenthenthenthentoprint#fnwait;defthenthenthenthenthenthenthenthenthenthenwait;;;;;;;defthenthenthenthenthenthenthenthenthenthenwait;;;;";
  403. 402 [129]i[178]1[164]2:[153]";;defthenthenthenthenthenthenwait;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;";:[130]:[153]ba$;ba$;[200](ba$,39)"cmd"[199](148)";":a0[178]55945:[141]403:a0[178]55962:[141]403:[137]405
  404. 403 [129]i[178]0[164]80[169]40:[129]h[178]0[164]9:a2[178][181](8[170]8[172][187](0)):[151]a0[170]i[170]h,a2:[130]:[130]:[142]
  405. 404 [153]"";:[129]i[178]0[164]2:[153][166]5)"                              ";:[130]:[142]
  406. 405 a$[178]tl$(z(gp))[170]" "[170]na$(gp):[153]""[166]20[171][195](a$)[173]2)a$:[153][166]8)"chr$val(NULL)atn(NULL)(NULL) right$(NULL) jatnleft$(NULL)val"ja[171]1"str$val(NULL)";:[139]re[178]1[176]re[178]2[167][153]"cmdcmdatn(NULL)"
  407. 406 [151]53265,27:[129]i[178]0[164]2000:[130]:[141]404:[153]"":[153][166]20[171][195](re$(re))[173]2);:[139]re[179]3[167][153]"on"re$(re):[137]408
  408. 407 [153]"ong(NULL)(NULL)\val(NULL)";[201](re$(3),22)
  409. 408 [153][166]7)"(NULL)right$(NULL) (NULL)valright$(NULL)val(NULL) pascval(NULL)str$ "pf$(an(gp),gp):[158]50203,50:[129]i[178]0[164]2:[158]c,3,174[170]i,0,0,15:[130]:[129]i[178]0[164]6:[158]c,3,177,132,0,15:[158]c,3,176,132,0,22:[130]:[158]50203,50:[151]50171,178:[158]50203,30:[151]50171,176:[141]404:[153]""[166]7)"(NULL)(NULL)str$ val(NULL)left$sqr(NULL)(NULL) valright$(NULL)val sright$valchr$(NULL)(NULL)sqr(NULL)right$val"
  410. 409 [153][166]12)"(NULL)(NULL)(NULL)"20000[172](re[170]2)"matn(NULL)(NULL)":k(gp)[178]k(gp)[170]20000[172](re[170]2):[139]nj%(re,gp)[178]3[167]411
  411. 410 gw%(re,nj%(re,gp),gp)[178]ja[171]1:nj%(re,gp)[178]nj%(re,gp)[170]1:[139]nj%(re,gp)[178]1[167]gr(gp)[178]gr(gp)[170]re[170]2
  412. 411 [141]219:[142]
  413.