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
1 SYS50188:IFPEEK(858)>0THEN1
2 RETURN
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
4 NEXT:GETA$:IFA$="E"THENSYS50218
5 GOTO3
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
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)=9990:NEXT:JA=1689: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]
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.
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]"
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]"
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]"
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]"
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)+"_"
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]
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]
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
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";:
18 [151]V[170]21,0:[161]A$:[139]A$[179]"1"[176]A$[177]"4"[167]18
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
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) ? ";
21 [161]A$:[139]A$[178]"1"[167]AJ[178]0:[153]A$:[137]24
22 [139]A$[179][177]"2"[167]21
23 AJ[178]1:[153]A$
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)
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)
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)
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)
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)
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))
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
31 A1[178]250[171][181]((B(9,SP)[172]2500)[173]A0):[139]A1[179]0[167]A1[178]0
32 A3[178](B(9,SP)[172]2500[173]A0):[139]A3[179]20[167][141]223
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
34 PM[178].2[170].1[172][187](1):[139]MI[177]500000[167]PM[178]100000[173]MI[170][187](1)[172].05
35 [139]PM[179].05[167]PM[178].05
36 PM[178][181](PM[172]100)[173]100
37 [141]224:AN(SP)[178]6:AT[178]B(10,SP):[139]B(7,SP)[178]0[167]40
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)
39 PR(I)[178][181](A0):[130]:V[178]Y[170]2[174]15[171]183[170][194](45)
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)
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
42 [129]I[178]1[164]A0[173]2:[153]HA$(3);:[130]
43 [153]HA$(2);:[139]A0[179]1[167]45
44 [129]I[178]1[164]A0[173]2[170].5:[153]HA$(3);:[130]
45 [153]HA$(4):[153]""ST$:A0[178]B(11,SP):[139]A0[177]5[167]A0[178]5
46 A1[178]B(12,SP):[139]A1[177]5[167]A1[178]5
47 [139]A0[178]0[167][153][166]20);:[137]49
48 [153][166]20[171]A0[172]4);:[129]I[178]1[164]A0:[153]SI$;:[130]
49 [139]A1[178]0[167]51
50 [129]I[178]1[164]A1:[153]SC$;:[130]:[139]A1[177]4[167][153]"ON";
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)
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)
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=";
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
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
56 [151]V[170]21,63:[129]A2[178]0[164]100:[130]
57 A1[178][194](JO):[139](A1[175]2)[178]0[167]PU[178]((PU[170]1)[175]7):[137]62
58 [139](A1[175]1)[178]0[167]PU[178]((PU[171]1)[175]7):[137]62
59 [139](A1[175]16)[178]0[167]64
60 [137]57
61 [129]I[178]0[164]B(7,SP)[171]1:[153]NV$
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
63 [151]V[170]16,8:[151]V[170]8,40:[151]V[170]10,80:[151]V[170]16,8:[137]56
64 SK[178]0:[145]PU[170]1[137]67,72,81,100,143,163,182
65 [129]I[178]0[164]60:[139]([194](JO)[175]16)[177]0[167]57
66 [130]:[137]252
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$
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)"
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);;;;;;"
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
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
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
73 ZW(SP)[178][181](B(14,SP)[173]B(10,SP))[173]2.5:[153]"":[139]ZW(SP)[179]1[167]76
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
75 [130]
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)
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];;;;;;;
78 A7[178]16:A8[178]21:A9[178]4:[141]109:[139]A0[178]0[167]40
79 [139]A0[178]3[167][141]196:[137]40
80 [151]53269,0:A0[178]A0[171]1:A6[178]A0:A7[178]A0:A8[178]B(15,SP):[141]116:[137]72
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$
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)
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
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
85 [139]B(7,SP)[178]0[175]A0[178]2[167]A9[178]0
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
87 A7[178]A0:A8[178]B(A0[170]ME,SP):[141]116:[137]81
88 [139]A6[178]1[167]91
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
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
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
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) ?";
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
94 A2[178][194](JO):[139](A2[175]28)[178]0[167]94
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
96 [129]I[178]0[164]99:[130]:[139](A2[175]16)[177]0[167]94
97 [139]A1[178]0[167]81
98 K(SP)[178]K(SP)[170]PR(A0):[139]A0[178]AN(SP)[167]AN(SP)[178]6
99 I[178]A0:[141]280:[137]81
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)
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$
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
103 PRINT"[158]"(B(17,SP)-1000*B(11,SP))"Z[197][206][212][206][197][210] [255][194][210][201][199]";
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
105 IFA0=0THEN40
106 IFA0=1THEN243
107 A9=4:IFA0=2THENA9=1
108 A6=A0-2:A7=1:A8=9:GOSUB109:A7=A0:A8=B(A0+ME,SP):GOSUB116:GOTO100
109 POKEV+21,0:POKEV+16,0:POKEV+8,24+8*A7:POKEV+10,72+8*A7:A0=0:GOTO115
110 FORA1=0TO100:NEXT
111 A2=PEEK(JO):IF(A2AND1)=0THENA0=(A0-1)-A9*(A0=0):GOTO115
112 IF(A2AND2)=0THENA0=(A0+1)+A9*(A0=(A9-1)):GOTO115
113 IF(A2AND16)=0THENGOSUB220:RETURN
114 GOTO111
115 POKEV+9,50+8*(A8+A0*PS):POKEV+11,PEEK(V+9):POKEV+21,48:GOTO110
116 A0=50109+40*A6:POKE211,27:POKE214,22+A6:SYS58732
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
118 A2=PEEK(JO):IF(A2AND31)=31THEN118
119 IF(A2AND24)=0ANDA6=1THENA3=A8:PRINT"[145]A[204][204][197][211]":FORI=0TO999:NEXT:GOTO126
120 IF(A2AND1)=0THENZ%(A1)=Z%(A1)+1+10*(Z%(A1)=9):FORI=0TO20:NEXT:GOTO125
121 IF(A2AND2)=0THENZ%(A1)=Z%(A1)-1-10*(Z%(A1)=0):FORI=0TO20:NEXT:GOTO125
122 IF(A2AND16)=0THENFORI=0TO4:A3=A3+Z%(I)*(10^(4-I)):NEXT:GOTO126
123 IF(A2AND4)=0ANDA1>0THENPOKEA0,32:A0=A0-1:POKEA0,31:A1=A1-1
124 IF(A2AND8)=0ANDA1<4THENPOKEA0,32:A0=A0+1:POKEA0,31:A1=A1+1
125 POKEA0-40,48+Z%(A1):POKEA0,31:GOTO118
126 IFA6=14THEN141
127 IFA6=1ANDA3>A8THEN136
128 IFA6=1ANDA7+ME=10THEN139
129 IFA6=1THENK(SP)=K(SP)+A3*P%(A7+ME):B(A7+ME,(SP))=B(A7+ME,(SP))-A3:RETURN
130 IFA7+ME=14THEN137
131 IFA7+ME=13ANDB(13,SP)+A3>20THEN136
132 IFME=8ANDA7<3ANDLM(A7)<A3THEN136
133 IFK(SP)-P%(A7+ME)*A3<0ANDA3>0THEN136
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
135 RETURN
136 PRINT"Z[213][214][201][197][204]";:FORA9=0TO999:NEXT:RETURN
137 IFB(14,SP)<A3THEN136
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
139 IFA3=0THENRETURN
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
141 A0=B(8,SP)-BS(0,SP)-BS(1,SP)-BS(2,SP)+BS(A7,SP)-A3:IFA0<0THEN136
142 BS(A7,SP)=A3:RETURN
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]
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]
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
146 [139]A0[178]0[167]40
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)
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
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
150 A0[178][194](JO):[139](A0[175]1)[178]0[167]A3[178]A3[170]1
151 [139](A0[175]2)[178]0[167]A3[178]A3[171]1
152 [139](A0[175]16)[178]0[167][141]221:[137]156
153 [139]A3[179]0[167]A3[178]0
154 [139]A3[177]A4[171]1[167]A3[178]A4
155 [151]49924,48[170]A3[173]10:[151]49925,A3[170]48[171][181](A3[173]10)[172]10:[137]150
156 [139]A3[178]0[167]143
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
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]
159 [139](A0[175]16)[178]0[167]161
160 [151]V[170]10,32[170]A1[172]48:[137]158
161 [139]A1[178]0[167]143
162 B(A9,SP)[178]B(A9,SP)[171]A3:[137]143
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
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
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;;;;
166 A7=16:A8=21:A9=3:GOSUB109:IFA0=0THEN40
167 IFB(7,SP)=0THEN163
168 IFA0=2THEN176
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
170 A2=PEEK(JO):IF(A2AND16)=0THENTR%(A0,SP)=A1:GOTO163
171 IF(A2AND1)=0THENA1=A1+1
172 IF(A2AND2)=0THENA1=A1-1
173 IFA1>20THENA1=A1-21
174 IFA1<0THENA1=A1+21
175 POKEA3,48+A1/10:POKEA3+1,48+A1-INT(A1/10)*10:GOTO170
176 A0=AN(SP):A2=0:GOTO181
177 A0=A2:A1=PEEK(JO):IF(A1AND16)=0THENAN(SP)=A2:GOTO166
178 IF(A1AND1)=0ANDA0>0THENA2=A0-1
179 IF(A1AND2)=0ANDA0+1<B(7,SP)THENA2=A0+1
180 IFA0=A2THEN177
181 POKE49512+80*A0,32:POKE49512+80*A2,45:POKE55656+80*A2,15:GOTO177
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
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
184 NEXT:IFNJ%(2,SP)>0THENPOKE53269,PEEK(53269)OR24
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
186 IFTP%(1,SP)>0THENPOKEV+21,PEEK(V+21)OR64
187 IFTP%(2,SP)>0THENPOKEV+21,PEEK(V+21)OR128
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$
189 A2=6:A1=PA(2,SP):GOSUB190:PRINT"[145]"SPC(34);SS$:GOTO195
190 IFA1=0THENSS$="-":RETURN
191 IFA1=<A2/5THENSS$="-":RETURN
192 IFA1=<A2/1.8THENSS$="#":RETURN
193 IFA1=A2THENSS$="++":RETURN
194 SS$="+":RETURN
195 GOSUB219:GOTO40
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
197 IFB(10,SP)=0THEN216
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
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
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$
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$
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
203 POKEV+21,1:POKEV+16,PEEK(V+16)AND3:FORI=0TO999+1000*RND(C):NEXT:POKE866,0:IFRND(V)<.5THENYY=0:GOTO209
204 IFRND(V)>.8THENYY=2:GOTO210
205 YY=1:A=RND(JA):IFA<.33THENSX=120:SY=140:GOTO208
206 IFA>.66THENSX=84:SY=102:GOTO208
207 POKEV+16,PEEK(V+16)OR8:SX=60:SY=132
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
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
210 POKEV+8,184:POKEV+9,60:IFRND(V)<.5THENPOKEV+8,70
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
212 IFPEEK(V+21)=1THENTP%(YY,SP)=TP%(YY,SP)+1:GOSUB217:GOTO214
213 J=J-1:IFJ>0THEN203
214 PRINT"[147]":SYS50194:SYS50197:RETURN
215 GOSUB219:RETURN
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
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
218 PRINT"[158][147]"SPC(18-(LEN(NA$(SP))+LEN(TL$(Z(SP))))/2);TL$(Z(SP))"";NA$(SP);:PRINT"[201][211][212]":RETURN
219 SYS50185
220 IF(PEEK(JO)AND16)>0THEN220
221 IF(PEEK(JO)AND16)=0THEN221
222 RETURN
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
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
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)))
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]
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
228 [139]WE[178]3[167]MR[178]2:MG[178]1:MK[178]1.8
229 [139]WE[178]2[167]MR[178]2:MG[178]4:MK[178]2
230 [139]WE[178]4[167]MR[178]3:MG[178]2:MK[178]3
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)
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
233 A0[178][181](MI[173]B(0,SP))
234 [139]BS(0,SP)[178]0[167]A3[178]0
235 [139]BS(1,SP)[178]0[167]A4[178]0
236 [139]BS(2,SP)[178]0[167]A5[178]0
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
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]
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]
240 A1[178]A0[173]5[172]4[170].5:[139]A1[177]100[167]A1[178]100
241 [153][200](PR$,24[170]A1[173]8);:[139]A1[179]80[167][153][199]((A1[175]7)[170]36);
242 [153]:[142]
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
244 A0[178]A0[173]B(8,SP)[172]100
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;;;;;;
246 PRINTSPC(20)"@[206][196][197][210][206][149];;;;;;":PRINTSPC(26)"[145][145][145]";:A7=20:A8=15:A9=2:GOSUB109:IFA0=0THEN100
247 A7=19:A8=6:A9=3:GOSUB109:A6=14:A7=A0:A0=49152+36+40*15:GOSUB117:GOTO243
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]"
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]."
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
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
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
253 A7=0:IFB(7,SP)>0THENFORI=0TOB(7,SP)-1:A7=A7+TR%(I,SP)*1000:NEXT
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
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
256 ZI=0:IFK(SP)<0THENZI=INT(-K(SP)/5):K(SP)=K(SP)-ZI
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
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
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
260 IFB(3,SP)<=FBTHENA0=B(3,SP):FB=FB-A0:K(SP)=K(SP)+400*A0:B(3,SP)=0:GOTO262
261 B(3,SP)=B(3,SP)-FB:K(SP)=K(SP)+400*FB:A0=FB:GOTO271
262 IFB(2,SP)<=FBTHENA1=B(2,SP):FB=FB-A1:K(SP)=K(SP)+500*A1:B(2,SP)=0:GOTO264
263 B(2,SP)=B(2,SP)-FB:K(SP)=K(SP)+500*FB:A1=FB:GOTO271
264 IFB(4,SP)<=FBTHENA2=B(4,SP):FB=FB-A2:K(SP)=K(SP)+550*A2:B(4,SP)=0:GOTO266
265 B(4,SP)=B(4,SP)-FB:K(SP)=K(SP)+550*FB:A2=FB:GOTO271
266 IFB(0,SP)<=FBTHENA3=B(0,SP):FB=FB-A3:K(SP)=K(SP)+900*A3:B(0,SP)=0:GOTO268
267 B(0,SP)=B(0,SP)-FB:K(SP)=K(SP)+900*FB:A3=FB:GOTO271
268 IFB(6,SP)<=FBTHENA4=B(6,SP):FB=FB-A4:K(SP)=K(SP)+1500*A4:B(6,SP)=0:GOTO270
269 B(6,SP)=B(6,SP)-FB:K(SP)=K(SP)+1500*FB:A4=FB:GOTO271
270 B(5,SP)=B(5,SP)-FB:K(SP)=K(SP)+3000*FB:A5=FB
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
272 FORH=1TOB(I,SP):B(I,SP)=B(I,SP)+(RND(1)<.1):NEXT
273 NEXT:IFB(0,SP)/22<=B(5,SP)THENA9=B(0,SP):GOTO275
274 A9=B(5,SP)*21
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
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
277 FORI=0TOB(7,SP)-1:IFAL%(I,SP)>12ANDRND(3)<.5THEN279
278 NEXT:GOTO284
279 PRINTPF$(I,SP)" V[197][210][211][212][193][210][194]"
280 A0=B(7,SP)-1-I:IFA0=0THEN283
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
282 IFAN(SP)>IANDAN(SP)<6THENAN(SP)=AN(SP)-1
283 B(7,SP)=B(7,SP)-1:IFME=0THENNEXT
284 POKE53296,252:POKE53265,27:IFME=6THENRETURN
285 GOSUB219:IFZI=0THEN287
286 A0$="":A1=1:A2=3:A3=8:A4=3:GOSUB238:PRINT:PRINT"[145][145][145][145]ZINSEN":PRINT""ZI:GOSUB219
287 A0=BS(0,SP)+BS(1,SP)+BS(2,SP):IFA0<=B(6,SP)*4ANDA0<=B(16,SP)*4THEN296
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)
289 A4=0:IFA0>B(16,SP)*4THENA4=INT(A0/4+.9)-B(16,SP)
290 A0=0:IFA3=0THEN292
291 A0=1:PRINTA3"A[195][203][197][210][208][198][197][210][196]";:IFA3>1THENPRINT"[197]";
292 IFA0=1ANDA4>0THENPRINT" [213][206][196]":PRINTSPC(15);
293 IFA4=0THEN295
294 PRINTA4"P[198][204][213][199]";:IFA4>1THENPRINT"[157][157][255][199][197]";
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
296 IFSP=ASTHENSP=0:JA=JA+1:GOSUB346:GOSUB300:GOTO332
297 SP=SP+1:GOTO24
298 FORI=0TOAS:IFB(7,I)=0THENNEXT:GOTO24
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
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
301 PA(1,I)=INT(SQR(GT(I))/6):IFPA(1,I)>12THENPA(1,I)=12
302 PA(2,I)=INT(GH(I)/2000):IFPA(2,I)>6THENPA(2,I)=6
303 PA(3,I)=INT(GA(I)/16000):IFPA(3,I)>10THENPA(3,I)=10
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
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
306 PA(5,I)=PA(5,I)+INT(B(13,I)/6):IFPA(5,I)<0THENPA(5,I)=0
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
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
309 NEXT
310 FORI=0TOAS:IFA(I)=1THENNEXT:GOTO320
311 FORG=0TOAS:IFA(G)=1THENNEXT:GOTO310
312 IFRND(1)>1/(AS+1)THENNEXT:GOTO310
313 IFJ(G)=4ORJ(G)=9THEN317
314 SYSC,3+G,182,0,0,15:SYSC,3+G,183,0,0,5:IFJ(G)=5THEN319
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
316 PU(G)=PU(G)-1:J(G)=J(G)+1:A(G)=-(PU(G)=0):NEXTG:GOTO310
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
318 GOTO316
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
320 GOSUB219:RETURN
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
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
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
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
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
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
327 RUN
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
329 A3=PEEK(JO):IF(A3AND16)=0THENGOTO221
330 IF(A3AND4)=0OR(A3AND8)=0THENA2=(A2+1)AND1:POKEV+10,A0+A2*56
331 GOTO329
332 IFJA<JETHEN321
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]"
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
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
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)";;;;;;;;;;;;;;;;"
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]
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
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
340 [139]A$[178]"."[167][153]A$;:[158]50203,50:[130]:[130]:[137]345
341 [139]A0[178]1[167]A0[178]0:[129]G[178]0[164]2:[151]49571[170]G,198[170]G:[130]
342 [139][187](1)[179].02[175]A0[178]0[167]A0[178]1:[151]49571,244:[151]49572,247:[151]49573,248
343 [158]50215,[198](A$)
344 [153]A$;:[158]50203,4:[130]:[130]
345 [151]V[170]17,27:[137]3
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
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
348 A2[178][194](JO):[139](A2[175]28)[178]0[167]348
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
350 [139](A2[175]16)[177]0[167]348
351 [139]A1[178]1[167][153]"LOAD":[151]53269,0:[142]
352 A9[178]0:[129]I[178]0[164]AS:[139]AN(I)[178]6[167]357
353 [139]PO%(AN(I),I)[177]30[167]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
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
356 K(I)[178]K(I)[171]2[174](RE[170]1)[172]1000
357 [130]:[139]A9[178]0[167]359
358 [141]219
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
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]
361 [129]I[178]A0[164]7:NR%(I)[178]49[172][187](I):[130]:[139]A2[179].9[167]365
362 [129]I[178]0[164]A2[171]1
363 A3[178]A0[170]((8[171]A0)[172][187](I)):[139]NR%(A3)[177]48[167]363
364 NR%(A3)[178]49[170]47[172][187](I):[130]
365 [129]I[178]A0[164]6:[129]H[178]I[170]1[164]7:[139]NR%(I)[178]NR%(H)[167]361
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]
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)
368 A1[178]0:[151]53257,50:[137]373
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
370 [139](A0[175]8)[178]0[167]A1[178]A1[170]1[170]5[172](A1[178]4):[137]373
371 [139](A0[175]16)[178]0[167]375
372 [137]369
373 [139]A1[178]4[167][151]53264,16:[151]53256,24:[137]369
374 [151]53264,0:[151]53256,24[170]64[172]A1:[137]369
375 [139]([194](JO)[175]16)[178]0[167]375
376 A0[178]0:[139]A1[178]0[167]F[178]0:[137]380
377 [139]A1[179]3[167]F[178]500[172]A1
378 [139]A1[177]2[167]F[178]5000[172](A1[171]2)
379 A7[178]0:A8[178]5:A9[178]8:[141]109
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]
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$""
382 [151]V[170]17,27:A8[178]2:[129]I[178]0[164]7:[139]I[178]4[167]A8[178]23
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
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
385 [139]A0[178].5[167][153]QU(I)[172]2:[153]R$;[166]A8[170]11)"2-":[141]397:[130]:[137]386
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
387 [130]:[153]"":A0[178]0:[129]I[178]0[164]3:[139]WE(0,I)[177]0[167]A0[178]1
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
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
390 A0[178]0:[139]WE(1,I)[178]A1[167]A0[178]WE(0,I)
391 [153]NA$(I):[153][166]10)"ON"A0:K(I)[178]K(I)[170]A0:[153]"ON"[166]17)"MATN(null)(null)"
392 [130]
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
394 [139]A0[178]A1[175]GP[178]9[167]GP[178]I
395 [130]:[141]219:[158]50197:[151]56334,1:[139]GP[178]9[167][142]
396 [137]399
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]
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]
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
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>"
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;;;;";
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
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]
404 [153]"";:[129]I[178]0[164]2:[153][166]5)"                              ";:[130]:[142]
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)"
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
407 [153]"ONG(null)(null)\VAL(null)";[201](RE$(3),22)
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"
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
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
411 [141]219:[142]