10 CODE=7*4096:VARS=5*4096+6*256:POKE53281,0:SYSCODE,3:GOSUB50000
21 B=VARS+7+2+((PEEK(VARS+1)-1)*67):X=PEEK(B+3)AND128:K=PEEK(B+0)
24 K=K+(PEEK(B+1)*256):K=K+(PEEK(B+2)*65536):K=K+((PEEK(B+3)AND127)*16777216)
27 IFX=128THENK=-K
28 SYSCODE,3:PRINT"[144][199]UTHABEN:[160][196][205][160][160][160][160][160][160][160][160][160][160]":SYSCODE,6,5
30 PRINT"[144][203]LIMAANLAGE[160][160][160][160][160][160][160][160][160][160][160][160][160][206]EIN[160][160]"
31 PRINT"[215]@RMED@MMUNG[160][160][160][160][160][160][160][160][160][160][160][160][206]EIN[160][160]"
32 PRINT"[211]OLARDACH[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]EIN[160][160]"
33 PRINT"[215]@RMESCHUTZVERGLASUNG[160][160][160][206]EIN[160][160]"
34 PRINT"[144]";K
35 PRINT"[208]REIS[160][160][160]:[160][196][205][160][160][160][160][160][160][160][160][160][160]"
36 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
37 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
38 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
39 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":SYSCODE,6,5
41 IFPEEK(36861)=1THENGOSUB150
42 IFPEEK(36860)=1THENGOSUB250
43 IFPEEK(36859)=1THENGOSUB350
44 IFPEEK(36858)=1THENGOSUB450
49 POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
51 POKE2,0:IFCL=99THEN 1000
61 IFCL=5THENGOSUB100
62 IFCL=6THENGOSUB200
63 IFCL=7THENGOSUB300
64 IFCL=8THENGOSUB400
65 IFCL=1THENGOSUB500
66 IFCL=2THENGOSUB600
67 IFCL=3THENGOSUB700
68 IFCL=4THENGOSUB800
99 GOTO50
100 IFPEEK(36861)=0THENPOKE36861,1:GOTO150
110 POKE36861,0:SYSCODE,3:PRINT"[144][160][160][206]EIN[160][160]"
125 SYSCODE,6,5:RETURN
150 SYSCODE,3:PRINT"[144][160][160][160][202]A[160][160][160]":SYSCODE,6,5:RETURN
200 IFPEEK(36860)=0THENPOKE36860,1:GOTO250
210 POKE36860,0:SYSCODE,3:PRINT"[144][160][160][206]EIN[160][160]"
225 SYSCODE,6,5:RETURN
250 SYSCODE,3:PRINT"[144][160][160][160][202]A[160][160][160]":SYSCODE,6,5
280 RETURN
300 IFPEEK(36859)=0THENPOKE36859,1:GOTO350
310 POKE36859,0:SYSCODE,3
320 PRINT"[144][160][160][206]EIN[160][160]":SYSCODE,6,5:RETURN
350 SYSCODE,3:PRINT"[144][160][160][160][202]A[160][160][160]"
370 SYSCODE,6,5:RETURN
400 IFPEEK(36858)=0THENPOKE36858,1:GOTO450
410 POKE36858,0:SYSCODE,3
420 PRINT"[144][160][160][206]EIN[160][160]":SYSCODE,6,5:RETURN
450 SYSCODE,3:PRINT"[144][160][160][160][202]A[160][160][160]"
470 SYSCODE,6,5:RETURN
500 SYSCODE,3:PRINT"[208]REIS[160][160][160]:[160][196][205][160]5000[160][160][160][160][160]"
503 PRINT"'[212][207][208][212][197][205][208]-2000'[160]UND[160][201]HR"
504 PRINT"[210]ESTAURANT[160]HAT[160]IMMER[160][160]"
505 PRINT"DIE[160][212]OP-[212]EMPERATUR...[160]"
510 SYSCODE,6,5:POKEVARS+3,1:SYSCODE,18:RETURN
600 SYSCODE,3:PRINT"[208]REIS[160][160][160]:[160][196][205][160]15000[160][160][160][160]"
603 PRINT"[196]AMIT[160][201]HNEN[160]AUCH[160]BEIM[160]"
604 PRINT"[194]EZAHLEN[160]DER[160][200]EIZRECH-"
605 PRINT"NUNG[160]NICHT[160]KALT[160]WIRD[160]!"
610 SYSCODE,6,5:POKEVARS+3,2:SYSCODE,18:RETURN
700 SYSCODE,3:PRINT"[208]REIS[160][160][160]:[160][196][205][160]45000[160][160][160][160]"
703 PRINT"'[211][207][204][193][210][208][207][215][197][210][160][193][212]3',[160]WOZU"
704 PRINT"EIGENTLICH[160][193][203][215]S[160]?[160][201]HR[160]"
705 PRINT"[211]TROM[160]KOMMT[160]VOM[160][196]ACH[160]!"
710 SYSCODE,6,5:POKEVARS+3,3:SYSCODE,18:RETURN
800 SYSCODE,3:PRINT"[208]REIS[160][160][160]:[160][196][205][160]25000[160][160][160][160]"
803 PRINT"[211][212][207][208]![160][210]UNTER[160]MIT[160]DEN[160][160]"
804 PRINT"[200]EIZUNGSKOSTEN!![160][160][160][160][160][160]"
805 PRINT"[205]IT[160]'[201][211][207][215][193][204][204][160][197]1'[160]![160][160][160][160]"
810 SYSCODE,6,5:POKEVARS+3,4:SYSCODE,18:RETURN
1000 IF PEEK(37887)=0 THEN POKE37886,0:SYSCODE,1,"L.ARCHITEK*",8
1005 A=PEEK(36861)-HR(1)
1010 IFA=1THENPOKE37886,PEEK(37886)+1
1015 A=PEEK(36860)-HR(2)
1020 IFA=1THENPOKE37886,PEEK(37886)+2
1025 A=PEEK(36859)-HR(3)
1030 IFA=1THENPOKE37886,PEEK(37886)+4
1035 A=PEEK(36858)-HR(4)
1040 IFA=1THENPOKE37886,PEEK(37886)+8
1100 SYSCODE,1,"L.HAUSKOST*",8
50000 DIM HR(4)
50010 HR(1)=PEEK(36861)
50020 HR(2)=PEEK(36860)
50030 HR(3)=PEEK(36859)
50040 HR(4)=PEEK(36858)
50050 POKE 37886,0
50060 RETURN