SIE SIND IN DER ARKTIS AUF EINER POLARSTATION
UND SOLLEN 5 TAGE LANG EISPROBEN ENTNEHMEN.
IHRE UNTERKUNFT MUESSEN SIE SELBST HEIZEN. DAZU
HABEN SIE FUER DIE 5 TAGE 50 kg KOHLEN.
1 kg KOHLEN ENTSPRICHT EINEM HEIZWERT VON 2 GRAD
CELSIUS. SIE MUESSEN WENIGSTENS 12 GRAD C
ERREICHEN,SONST ERFRIEREN SIE UND DAS SPIEL IST
BEENDET !!
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
1 O.12
2 REM PROGRAMMIDEE UDO ENGELHARDT 5900 EISENACH GEORGENSTR.14
4 REM GESTALTUNG KARL-HEINZ DOELL 5900 EISENACH SIEBENBORN 134
6 REM EISENACH DEN 29.08.1986
8 F.I=1TO32;O.154;N.I
10 P.;P."*************ARKTIS*************"
12 F.I=1TO32;O.154;N.I
15 P.;P.
16 P."SIE SIND IN DER ARKTIS AUF EINER"
18 P."POLARSTATION UND SOLLEN 5 TAGE"
20 P.;P."LANG EISPROBEN ENTNEHMEN.
22 P.;P."IHRE UNTERKUNFT MUESSEN SIE"
24 P.;P."SELBST HEIZEN.DAZU HABEN SIE"
26 P.;P."FEUR DIE 5 TAGE 50 kg KOHLEN."
28 P.;P."1 kg KOHLEN ENTSPRICHT EINEM"
30 P.;P."HEIZWERT VON 2 GRAD CELSIUS."
31 P.;P."SIE MUESSEN WENIGSTENS 12 GRAD C"
32 P."ERREICHEN,SONST ERFRIEREN SIE"
33 P.;P."UND DAS SPIEL IST BEENDET !!!"
34 P.
35 F.I=1TO32;O.154;N.I
36 P.
38 P."KANN ES LOSGEHEN-TASTE DRUECKEN",
39 W=INC.
40 K=0;Z=H.(EF3C);Y=32;V=50;L=0;M=0;N=0
41 O.12
42 N=RND(10)
45 G.1000
50 REM
52 A=RND(30);B=-A
53 M=M+1
54 IF M=6 G.600
55 P."HEUTE IST DER",#2,M,".KALTE TAG,"
57 P.
60 P."DIE TEMPERATUR BETRAEGT IM"
61 P.
62 P."FREIEN -",#2,A," GRAD CELSIUS"
63 IF M=1 G.70
65 N=N-(A/2)
70 P.;P."IM HAUS SIND ES",#4,N," GRAD C"
71 C=V*2;D=-C;E=(N+B)-12;F=E
75 P.
80 IF D>F G.800
100 INP."WIEVIEL kg KOHLEN NEHMEN SIE "K
102 IF K>V G.700
105 IF V<0 G.500
120 N=N-A+(K*2)
122 IF N<8 G.900
125 IF N<12G.300
138 IF N>25 G.400
139 IF K=0 G.150
140 GOS.4000
150 O.12
152 P."SIE HABEN MIT",#3,K," kg KOHLEN"
154 P.;P."DIE TEMPERATUR AUF",#3,N," GRAD"
156 P.;P."IM HAUS GEBRACHT."
158 O=N
160 V=V-K
170 F.I=1TO10000;N.I
190 O.12;G.50
300 OUT(1)=H.(CF);OUT(1)=0
302 F.I=1TON*10;N.I
305 OUT(1)=H.(CF);OUT(1)=255
310 P.;P."BEI DIESER HEIZEREI WERDEN SIE"
315 P.;P."NOCH ZUM ESKIMO QUALIFIZIERT !!"
320 P.;G.100
325 O.12
330 G.50
400 REM
405 P.;P."SIE WOLLEN WOHL EINE SAUNA IN"
410 P.;P."IHREM HAUESCHEN EINRICHTEN ???"
415 N=O
420 P.;G.100
600 REM
605 O.12
610 P."AB HEUTE BRAUCHEN SIE NICHT MEHR"
615 P."ZU HEIZEN.IHRE KOLLEGEN HOLEN"
620 P.;P."SIE VON DER POLARSTATION AB."
625 P.;P."SIE WAREN PRIMA,DENN ES SIND"
630 P.;P."NOCH",#3,V," kg KOHLEN VORHANDEN"
635 P.;P."DIE TEMPERATUR IM HAUS BETRAEGT"
640 P.;P."NOCH IMMER",#3,N," GRAD WAERME."
650 P.;INP."WOLLEN SIE WEITERSPIELEN =1 "K
655 IF K=1 G.40
660 STOP
700 REM
705 O.12
710 P."WO WOLLEN SIE DENN DIE KOHLEN"
715 P.;P."HERHOLEN,SIE HABEN DOCH NUR"
720 P.;P."NOCH",#3,V," kg KOHLEN !!"
750 P.;G.100
800 REM
805 P."MIT IHREN REST VON",#3,V," kg"
810 P.;P."KOHLEN MUESSEN SIE DIE NAECHSTEN"
815 P.#3,24*(6-M)," STUNDEN AUSKOMMEN."
820 P.;P."AM BESTEN IST ES,WENN SIE SICH"
825 P.;P."WARME GEDANKEN MACHEN !!!!"
830 F.I=1TO20000;N.I
835 O.12
840 F.I=1TO8;P.;N.I
850 INP."NOCH EIMAL SPIELEN =1"H
855 IF H=1 G.40
860 STOP
900 REM
910 O.12
915 P."MIT DIESER MENGE KOHLEN WERDEN"
920 P.;P."SIE DIESE NACHT NICHT UEBERLEBEN"
925 P."DENN DAMIT ERREICHEN SIE NUR"
930 P.;P.#2,N," GRAD WAERME IM HAUESCHEN."
950 F.I=1TO10000;N.I
960 O.12
965 INP."WILL NOCH EINER SPIELEN =1 "H
970 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
975 PO.H.(1D),H.(00);PO.H.(1E),H.(F0)
980 CALL H.(F6D1)
985 IF H=1 G.1
990 STOP
1000 F.I=H.(EFE9)TOH.(EFF6);PO.I,251;N.I
1005 F.I=H.(EFE9)TOH.(EEE9)STEP-32;PO.I,181;N.I
1010 F.I=H.(EFF6)TOH.(EEF6)STEP-32;PO.I,180;N.I
1015 F.I=H.(EEC9)TOH.(EE0F)STEP-31;PO.I,190;N.I
1018 F.I=H.(EECA)TOH.(EE2F)STEP-31;PO.I,142;N.I
1020 F.I=H.(EE10)TOH.(EED6)STEP33;PO.I,143;N.I
1022 F.I=H.(EE30)TOH.(EED5)STEP33;PO.I,191;N.I
1025 F.I=H.(EECA)TOH.(EED5);PO.I,182;N.I
1030 PO.H.(EE52),1;PO.H.(EE32),1;PO.H.(EE33),1
1035 PO.H.(EE53),1;PO.H.(EE73),1
1040 PO.H.(EE6F),174;PO.H.(EE70),173;PO.H.(EE8F),171
1045 PO.H.(EE90),172;
1050 PO.H.(EF0D),247;F.I=H.(EF0E)TOH.(EF11);PO.I,226;N.I
1055 PO.H.(EF12),220;F.I=H.(EF32)TOH.(EF92)STEP32;PO.I,232;N.I
1060 PO.H.(EFB2),235;F.I=H.(EFB1)TOH.(EFAE)STEP-1;PO.I,238;N.I
1065 PO.H.(EFAD),241;F.I=H.(EF8D)TOH.(EF2D)STEP-32;PO.I,244;N.I
1070 PO.H.(EF51),168;PO.H.(EF2D),181;PO.H.(EF8D),181
1075 PO.H.(EFE8),186;PO.H.(EFE9),255;PO.H.(EFC9),186
1080 F.I=H.(EF17)TOH.(EF1F);PO.I,158;N.I;PO.H.(EF16),188
1085 F.I=H.(EF3F)TOH.(EFDF)STEP32;PO.I,159;N.I
1090 F.I=H.(EFF7)TOH.(EFFF);PO.I,248;N.I
1095 PO.H.(EFF6),187;PO.H.(EF1F),193;PO.H.(EFFF),136
2000 F.I=H.(EF37)TOH.(EF3B);PO.I,207;N.I
2002 F.I=H.(EF57)TOH.(EF5C);PO.I,207;N.I
2005 F.I=H.(EF77)TOH.(EF7D);PO.I,207;N.I
2007 F.I=H.(EF97)TOH.(EF9E);PO.I,207;N.I
2010 F.I=H.(EFB7)TOH.(EFBE);PO.I,207;N.I
2012 F.I=H.(EFD7)TOH.(EFDE);PO.I,207;N.I
2014 F.I=H.(EFF7)TOH.(EFFE);PO.I,207;N.I
2016 F.I=H.(EFE0)TOH.(EF80)STEP-32;PO.I,244;N.I
2018 F.I=H.(EFE3)TOH.(EF83)STEP-32;PO.I,232;N.I
2020 PO.H.(EFE1),255;PO.H.(EFE2),255
2022 PO.H.(EF81),158;PO.H.(EF82),158;PO.H.(EF61),223
2050 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
2052 PO.H.(1D),H.(00);PO.H.(1E),H.(EE)
2055 CALL H.(F6D1)
2060 G.50
4000 P=H.(EFC8);Q=H.(EFA8);R=H.(EF88);S=H.(EF68);T=H.(EF87)
4001 U=H.(EFA7)
4005 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,153;PO.U,138
4006 F.I=1TO200;N.I
4007 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y;PO.U,Y
4010 P=P+31;Q=Q+31;R=R+31;S=S+31;T=T+31;U=U+31
4012 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,153;PO.U,138
4014 X=0
4015 F.I=1TO200;N.I
4020 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y;PO.U,Y
4022 P=P-1;Q=Q-1;R=R-1;S=S-1;T=T-1;U=U-1
4024 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,153;PO.U,138
4025 X=X+1
4026 IFX=3G.4030
4028 G.4015
4030 PO.H.(EFA3),232;PO.H.(EFC3),232
4031 PO.H.(EF83),145;PO.H.(EF62),138
4032 PO.H.(EF61),144;PO.H.(EF42),144;PO.H.(EF41),223
4033 PO.H.(EF81),Y;PO.H.(EF82),Y
4034 X=0
4035 F.I=1TO400;N.I
4036 PO.H.(EF61),Y;PO.H.(EF41),Y;PO.H.(EF42),Y
4037 PO.H.(EF83),232;PO.H.(EF62),Y;T=H.(EFA5);PO.T,145
4038 PO.H.(EF81),158;PO.H.(EF82),158;PO.H.(EF61),223
4040 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y
4042 P=P+1;Q=Q+1;R=R+1;S=S+1;T=T+1;U=U+1
4044 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,145
4045 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,145
4046 X=X+1
4047 F.I=1TO200;N.I
4048 IFX=3G.4050
4049 G.4040
4050 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y
4052 Q=Q+1;R=R+1;S=S+1
4054 PO.Q,205;PO.R,205;PO.S,140
4056 PO.Q,Y;PO.R,Y;PO.S,Y
4057 F.I=1TO1000;N.I
4058 GOS.5000
4060 F.I=1TO1000;N.I
4062 PO.Q,205;PO.R,205;PO.S,140;T=H.(EFA7);PO.T,144
4063 F.I=1TO200;N.I
4064 PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y
4065 Q=Q-1;R=R-1;S=S-1;T=T-1
4067 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,144;PO.U,207
4068 F.I=1TO200;N.I
4070 PO.T,Y;PO.U,Y
4072 T=T+2;U=U+2
4075 PO.T,145;PO.U,207
4077 F.I=1TO200;N.I
4078 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y;PO.U,Y
4080 P=P-31;Q=Q-31;R=R-31;S=S-31;T=T-31;U=U-31
4082 PO.P,157;PO.Q,205;PO.R,205;PO.S,140;PO.T,145;PO.U,207
4083 F.I=1TO200;N.I
4085 PO.P,Y;PO.Q,Y;PO.R,Y;PO.S,Y;PO.T,Y;PO.U,Y
4087 PO.H.(EFA9),181;PO.H.(EF89),181
4100 RET.
5000 F.I=1TOK
5001 Z=Z-1
5004 IF Z=H.(EF36) Z=H.(EF5C)
5006 IF Z=H.(EF56) Z=H.(EF7D)
5008 IF Z=H.(EF76) Z=H.(EF9E)
5010 IF Z=H.(EF96) Z=H.(EFBE)
5012 IF Z=H.(EFB6) Z=H.(EFDE)
5014 IF Z=H.(EFD6) Z=H.(EFFE)
5016 IF Z=H.(EFF6) G.15000
5017 OUT(1)=H.(CF);OUT(1)=0
5018 PO.Z,Y
5019 OUT(1)=H.(CF);OUT(1)=255
5020 N.I
5022 RET.