1000 29f3 0000 b ... ARKTIS 1
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.