HTP - basic konverzióval kapcsolatos segítségkérés
17 views
Skip to first unread message
Aladár Kovács
Feb 1, 2022, 1:37:45 PM2/1/22
to hom...@googlegroups.com
Sziasztok!
Amit találtam emulátor-t, nem tudtam Windows 10 64 bit-en elindítani,
gondolom ez a 64 bit miatt jelenlévő kompatibilitási probléma, nekem a
futtatás lehetőségét fel se ajánlotta sajnos.
Két programmal kapcsolatosan kérhetek segítséget, hogy betöltitek őket
az emulátor-ba és a teljes basic forráskódokat el tudnátok küldeni?
Innen letölthető a két fájl, a könnyebb kezelhetőség miatt van csak .zip-ben.
https://we.tl/t-tcnXFvqxck
Üdvözlet Mindenkinek: Aladár
Amit találtam emulátor-t, nem tudtam Windows 10 64 bit-en elindítani,
gondolom ez a 64 bit miatt jelenlévő kompatibilitási probléma, nekem a
futtatás lehetőségét fel se ajánlotta sajnos.
Két programmal kapcsolatosan kérhetek segítséget, hogy betöltitek őket
az emulátor-ba és a teljes basic forráskódokat el tudnátok küldeni?
Innen letölthető a két fájl, a könnyebb kezelhetőség miatt van csak .zip-ben.
https://we.tl/t-tcnXFvqxck
Üdvözlet Mindenkinek: Aladár
Attila
Feb 1, 2022, 1:55:42 PM2/1/22
to Homelab/Aircomp levlista
Szia!
Melyik emulátort? Mi volt a hibaüzenet? A Homelab-et próbáltad?
A Csernobil listáját mellékelem utána a másikat is:
0 Poke $404C,87
1 Poke 98786,1
5 Print chr$(12): Beep "#ECSEDICSABA ": For I=1 to 700: Next : Print : Print : Print " CSERNOBIL .": Beep "!XZSKJGEBABCEGJKLMNOPRSTUVZ@ ": For I=3 to 1000: Next
10 Gosub 1600
20 RE=0:HA=0:NA=0:MJ=0:C=0:CA=0:CB=0
90 Print "Ó":NA=NA+1:W=0: Gosub 3000: Print NA;" NAPON PAX REAKTORBLOKK ADATAI .": Print " REAKTORHôFOK MAX 300 = ";int(RH): Print " HôCSERÉLô HôFOK MAX 264 = ";int(HH): Print " TERCIERKÔR HôFOK MAX 100 = ";int(TH): Print " TELJESíTMÉNY MAX 440 MW = ";int(MW): Print " @TLAGTELJESíTMÉNY MW = ";int(MJ/NA)
170 W=7: Gosub 3000: Print " KONTROLLRÚD KIEMELÉS MAX 100 = ";C: Print " VÉSZHŰTô VíZ SZINT = ";VV," PUMPA = ";VP: Print " PRIMER VíZ SZINT = ";PV," PUMPA MAX 100 = ";PP: Print " SZEKUNDER SZINT = ";SV," PUMPA = ";SP
250 If HA>20 then Goto 1910
260 W=16: Gosub 3000: Print "FIGYELEM !"
270 If RH>300 then Gosub 1200
280 If HH>250 then Gosub 1300
290 If MW>440 then Gosub 1400
300 If TH>100 then Gosub 1500
310 If MW<300 then W=18: Gosub 3000: Print " TELJESíTMÉNY ALACSONY ."
320 If SV<100 then SK=SK+1
330 If RK>3 then W=16.1: Gosub 3000: Print " REAKTORKAR ?"
340 If PK>4 then Gosub 1000
350 If SK>4 then Gosub 1100
360 If VK>2 then VV=((VV-2*VK)*(VV-2*VK)>0)
370 If PT then W=19: Gosub 3000: Print " TÔRÉS A PRIMERKÔRBEN ."
380 If HT then W=19.2: Gosub 3000: Print " TÔRÉS A HôCSERÉLôBEN ."
390 If GT then W=20: Gosub 3000: Print " TÔRÉS A GENER@TORBAN ."
400 If RK>5 then Goto 1800
410 CB=CA:CA=C:W=21: Gosub 3000: Input " KONTROLLRÚD KIEMELÉS ?";C:C=C+(100-C)*(C>100):W=8.21: Gosub 3000: Print C
470 W=21: Gosub 3000: Input " PRIMERPUMPA TELJESíTMÉNY ?";PP:PP=PP+(100-PP)*(PP>100):W=12.21: Gosub 3000: Print PP
510 W=21: Gosub 3000: Input " SZEKUNDERPUMPA TELJESíTMÉNY ?";SP:SP=SP+(100-SP)*(SP>100):W=14.21: Gosub 3000: Print SP
550 W=21: Gosub 3000: Input ,,," VÉSZHŰTô ?";VP:VP=VP+(100-VP)*(VP>100): If VP>VV then VP=VV
590 W=10.21: Gosub 3000: Print VP
600 If C=0 and PP=0 and SP=0 and RE<1 and RH<100 then JA=5+10*(RK>3)+(VK>3)+(PK>3)+(SK>3)+2*PT+2*ST+3*HT+3*GT:NA=NA+JA: Gosub 1600:W=17: Gosub 3000: Print " KÉNYSZERLE@LL@S !";JA;" NAPRA .": For I=1 to 100*JA: Next
670 VV=VV-VP-2*VK*(VK>3):VV=VV*(VV>0):PK=PK+(PP>90)*(rnd(1)>.95):SK=SK+(SP>90)*(rnd(1)>.92):PT=(PK>5):ST=(SK>5)
730 If PP>(100-PK*10) and PT>0 then PP=(100-PK*10)*(100-PK*10>0)
740 If SP>(100-SK*10) and ST>0 then SP=(100-SK*10)*(100-SK*10>0)
750 HA=HA+RE/50:RE=(C*30+CA*60+CB*10)/11000*(100-HA):PE=PP*(100*(PV>100)+PV*(PV<=100))/75000*(RH-HH):VE=VP/312*(RH-25):RH=RH+RE-VE-PE-5*(RH>25):RH=25+(RH-25)*(RH>25):HH=((RH-25)*PP+(TH-25)*SP)/(PP+SP+1)+25: If HT then HH=RH*.95+5
830 SE=SP*(100*(PV>100)+PV*(PV<=100))/1260*(HH-TH): If HT then SE=SE*.2
850 MW=1.7*SE*(HH-TH)/(273+HH):MW=MW*(HH>=100): If MW>500 then MW=500
880 MW=MW*(MW>0)*(GT=0):TH=25+(HH-25)*(SE-MW)/(SE+1)*.41:TH=25*(TH<=25)+TH*(TH>25): If HT<1 then HT=(HK>2)*(.9<rnd(1))
920 If GT<1 then GT=(GT>4)*(.9<rnd(1))
930 MJ=MJ+MW: Goto 90
1000 W=17: Gosub 3000: Print " PRIMERKÔR SZIV@ROG !":PV=(PV-PK)*((PV-PK)>0): Return
1100 W=17.2: Gosub 3000: Print " SZEKUNDER SZIV@ROG !":SV=(SV-SK)*((SV-SK)>0): Return
1200 W=16.1: Gosub 3000: Print " REAKTOR .":W=16.21: Gosub 3000: Print " FORR !":RK=RK+1: If RK=5 then RK=RK+(RH>320)+(RH>340)+2*(RH>360)
1230 PK=PK+1:VK=VK+1+(RH>320): Return
1300 W=17: Gosub 3000: Print " HôCSERÉLô FORR !":HK=HK+1+(HH>320):PK=PK+1:SK=SK+1: Return
1400 W=17.2: Gosub 3000: Print " GENER@TOR TÚLTERHELVE !":GK=GK+1+(MW>500):SK=SK+1: Return
1500 W=18.23: Gosub 3000: Print " HÜTô FORR !":SK=SK+1: Return
1600 VV=300:PV=120:SV=120:RH=25:HH=25:TH=25:RK=0:VK=0:PK=0:HK=0:SK=0:GK=0:PT=0:ST=0:HT=0:GT=0:VP=0:PP=0:SP=0:MW=0: Return
1800 Print "Ó":W=10: Gosub 3000: Print " A REAKTOR LEOLVADT .": If RK>7 then W=12: Gosub 3000: Print " REAKTORBAN G@ZROBBAN@S .":W=14: Gosub 3000: Print " VÉDôBUROK MEGREPEDT .":W=16: Gosub 3000: Print " R@DIOAKTIVIT@S KISZABADULT .":W=18: Gosub 3000: Print " KIÜRíTÉSI RIADó ."'W=12: Gosub 3000: Print " VÉDôBUROK HIB@TLAN .":W=14: Gosub 3000: Print " KIÜRíTÉSI KÉSZENLÉT !"
1810 Goto 2000
1910 Print "Ó":W=10: Gosub 3000: Print " HASADOANYAG KIFOGYOTT .":W=12: Gosub 3000: Print NA;" NAP ALATT ";int(MJ/NA);" MW VOLT AZ @TLAG .":W=14: Gosub 3000: Print " ÉS ";int(MJ*.0864);" TJ A TERMELT VILLAMOS ENERGIA .":W=16: Gosub 3000: Print " GYENGE OPER@TOR VAGY !": If MJ/NA>200 then W=16: Gosub 3000: Print " KÔZEPES MUNKA ."
1970 If MJ/NA>370 then W=16: Gosub 3000: Print " HASZN@LHATó MUNKA ."
1990 Gosub 1600
2000 For I=0 to 2000: Next : Print "Ó":W=10: Gosub 3000: Input " UJRA BEINDíTOD AZ ERôMŰVET ?";A$: If A$="IGEN" then Goto 20' Print " TANULM@NYOZD A GAZDAS@GPOLITIK@T !": End
3000 W=int(49153+100*W-60*int(W)): Return
4999 End
5000 Poke $404C,00: Esave " ATOMREAKTOR . PAX ."
1 Poke 98786,1
5 Print chr$(12): Beep "#ECSEDICSABA ": For I=1 to 700: Next : Print : Print : Print " CSERNOBIL .": Beep "!XZSKJGEBABCEGJKLMNOPRSTUVZ@ ": For I=3 to 1000: Next
10 Gosub 1600
20 RE=0:HA=0:NA=0:MJ=0:C=0:CA=0:CB=0
90 Print "Ó":NA=NA+1:W=0: Gosub 3000: Print NA;" NAPON PAX REAKTORBLOKK ADATAI .": Print " REAKTORHôFOK MAX 300 = ";int(RH): Print " HôCSERÉLô HôFOK MAX 264 = ";int(HH): Print " TERCIERKÔR HôFOK MAX 100 = ";int(TH): Print " TELJESíTMÉNY MAX 440 MW = ";int(MW): Print " @TLAGTELJESíTMÉNY MW = ";int(MJ/NA)
170 W=7: Gosub 3000: Print " KONTROLLRÚD KIEMELÉS MAX 100 = ";C: Print " VÉSZHŰTô VíZ SZINT = ";VV," PUMPA = ";VP: Print " PRIMER VíZ SZINT = ";PV," PUMPA MAX 100 = ";PP: Print " SZEKUNDER SZINT = ";SV," PUMPA = ";SP
250 If HA>20 then Goto 1910
260 W=16: Gosub 3000: Print "FIGYELEM !"
270 If RH>300 then Gosub 1200
280 If HH>250 then Gosub 1300
290 If MW>440 then Gosub 1400
300 If TH>100 then Gosub 1500
310 If MW<300 then W=18: Gosub 3000: Print " TELJESíTMÉNY ALACSONY ."
320 If SV<100 then SK=SK+1
330 If RK>3 then W=16.1: Gosub 3000: Print " REAKTORKAR ?"
340 If PK>4 then Gosub 1000
350 If SK>4 then Gosub 1100
360 If VK>2 then VV=((VV-2*VK)*(VV-2*VK)>0)
370 If PT then W=19: Gosub 3000: Print " TÔRÉS A PRIMERKÔRBEN ."
380 If HT then W=19.2: Gosub 3000: Print " TÔRÉS A HôCSERÉLôBEN ."
390 If GT then W=20: Gosub 3000: Print " TÔRÉS A GENER@TORBAN ."
400 If RK>5 then Goto 1800
410 CB=CA:CA=C:W=21: Gosub 3000: Input " KONTROLLRÚD KIEMELÉS ?";C:C=C+(100-C)*(C>100):W=8.21: Gosub 3000: Print C
470 W=21: Gosub 3000: Input " PRIMERPUMPA TELJESíTMÉNY ?";PP:PP=PP+(100-PP)*(PP>100):W=12.21: Gosub 3000: Print PP
510 W=21: Gosub 3000: Input " SZEKUNDERPUMPA TELJESíTMÉNY ?";SP:SP=SP+(100-SP)*(SP>100):W=14.21: Gosub 3000: Print SP
550 W=21: Gosub 3000: Input ,,," VÉSZHŰTô ?";VP:VP=VP+(100-VP)*(VP>100): If VP>VV then VP=VV
590 W=10.21: Gosub 3000: Print VP
600 If C=0 and PP=0 and SP=0 and RE<1 and RH<100 then JA=5+10*(RK>3)+(VK>3)+(PK>3)+(SK>3)+2*PT+2*ST+3*HT+3*GT:NA=NA+JA: Gosub 1600:W=17: Gosub 3000: Print " KÉNYSZERLE@LL@S !";JA;" NAPRA .": For I=1 to 100*JA: Next
670 VV=VV-VP-2*VK*(VK>3):VV=VV*(VV>0):PK=PK+(PP>90)*(rnd(1)>.95):SK=SK+(SP>90)*(rnd(1)>.92):PT=(PK>5):ST=(SK>5)
730 If PP>(100-PK*10) and PT>0 then PP=(100-PK*10)*(100-PK*10>0)
740 If SP>(100-SK*10) and ST>0 then SP=(100-SK*10)*(100-SK*10>0)
750 HA=HA+RE/50:RE=(C*30+CA*60+CB*10)/11000*(100-HA):PE=PP*(100*(PV>100)+PV*(PV<=100))/75000*(RH-HH):VE=VP/312*(RH-25):RH=RH+RE-VE-PE-5*(RH>25):RH=25+(RH-25)*(RH>25):HH=((RH-25)*PP+(TH-25)*SP)/(PP+SP+1)+25: If HT then HH=RH*.95+5
830 SE=SP*(100*(PV>100)+PV*(PV<=100))/1260*(HH-TH): If HT then SE=SE*.2
850 MW=1.7*SE*(HH-TH)/(273+HH):MW=MW*(HH>=100): If MW>500 then MW=500
880 MW=MW*(MW>0)*(GT=0):TH=25+(HH-25)*(SE-MW)/(SE+1)*.41:TH=25*(TH<=25)+TH*(TH>25): If HT<1 then HT=(HK>2)*(.9<rnd(1))
920 If GT<1 then GT=(GT>4)*(.9<rnd(1))
930 MJ=MJ+MW: Goto 90
1000 W=17: Gosub 3000: Print " PRIMERKÔR SZIV@ROG !":PV=(PV-PK)*((PV-PK)>0): Return
1100 W=17.2: Gosub 3000: Print " SZEKUNDER SZIV@ROG !":SV=(SV-SK)*((SV-SK)>0): Return
1200 W=16.1: Gosub 3000: Print " REAKTOR .":W=16.21: Gosub 3000: Print " FORR !":RK=RK+1: If RK=5 then RK=RK+(RH>320)+(RH>340)+2*(RH>360)
1230 PK=PK+1:VK=VK+1+(RH>320): Return
1300 W=17: Gosub 3000: Print " HôCSERÉLô FORR !":HK=HK+1+(HH>320):PK=PK+1:SK=SK+1: Return
1400 W=17.2: Gosub 3000: Print " GENER@TOR TÚLTERHELVE !":GK=GK+1+(MW>500):SK=SK+1: Return
1500 W=18.23: Gosub 3000: Print " HÜTô FORR !":SK=SK+1: Return
1600 VV=300:PV=120:SV=120:RH=25:HH=25:TH=25:RK=0:VK=0:PK=0:HK=0:SK=0:GK=0:PT=0:ST=0:HT=0:GT=0:VP=0:PP=0:SP=0:MW=0: Return
1800 Print "Ó":W=10: Gosub 3000: Print " A REAKTOR LEOLVADT .": If RK>7 then W=12: Gosub 3000: Print " REAKTORBAN G@ZROBBAN@S .":W=14: Gosub 3000: Print " VÉDôBUROK MEGREPEDT .":W=16: Gosub 3000: Print " R@DIOAKTIVIT@S KISZABADULT .":W=18: Gosub 3000: Print " KIÜRíTÉSI RIADó ."'W=12: Gosub 3000: Print " VÉDôBUROK HIB@TLAN .":W=14: Gosub 3000: Print " KIÜRíTÉSI KÉSZENLÉT !"
1810 Goto 2000
1910 Print "Ó":W=10: Gosub 3000: Print " HASADOANYAG KIFOGYOTT .":W=12: Gosub 3000: Print NA;" NAP ALATT ";int(MJ/NA);" MW VOLT AZ @TLAG .":W=14: Gosub 3000: Print " ÉS ";int(MJ*.0864);" TJ A TERMELT VILLAMOS ENERGIA .":W=16: Gosub 3000: Print " GYENGE OPER@TOR VAGY !": If MJ/NA>200 then W=16: Gosub 3000: Print " KÔZEPES MUNKA ."
1970 If MJ/NA>370 then W=16: Gosub 3000: Print " HASZN@LHATó MUNKA ."
1990 Gosub 1600
2000 For I=0 to 2000: Next : Print "Ó":W=10: Gosub 3000: Input " UJRA BEINDíTOD AZ ERôMŰVET ?";A$: If A$="IGEN" then Goto 20' Print " TANULM@NYOZD A GAZDAS@GPOLITIK@T !": End
3000 W=int(49153+100*W-60*int(W)): Return
4999 End
5000 Poke $404C,00: Esave " ATOMREAKTOR . PAX ."
Attila
Feb 1, 2022, 1:58:16 PM2/1/22
to Homelab/Aircomp levlista
Hali
itt a Hamurabi, sajnos az Á helyére kukacot rak, de replace all-lal cserélhető
2 Poke 98786,1: Poke 99101,44
10 ZR=0:P=1:FI=ZR:Z=ZR:AE=1000:AK=2000:AH=20:AY=10:DE=.1:BE=4:DK=.25:BK=2:DN=DK:BN=3000:EE=.05:BA=BN:EK=DK:DH=ZR:AI=5:DO=BN:EH=.2:EN=ZR:CK=.02:CE=100:CN=5:FE=.3:CO=BK:CH=DE:CA=CN:CT=-3:CY=20:YE=ZR:CI=ZR
100 Print "Ó": Print : Print : Print : Print : Print "ÓHAMURABI": Print : Print "KÉRSZ INFORM@CIóKAT ÚJ BIRODALMADRóL?"
105 Poke $404C,5
110 Input Q$
120 If Q$="I" then Gosub 5000
130 Print : Print : Print : Print : Print chr$(14);"HAMURABI.": Print "T@JÉKOZTATLAK AZ ELôZô ÉVRôL."
140 YE=YE+P
150 If CA=ZR then Print "EGY GYERMEK SEM SZÜLETETT.": Goto 180
160 If CA=P then Print "EGY GYERMEK SZÜLETETT!": Goto 180
170 Print CA;" GYERMEK SZÜLETETT "
180 I=CO: Gosub 6000: Print "HALT MEG "
190 I=CI: Gosub 6000: Print "HALT ÉHEN "
200 If CT=ZR then Goto 230
210 If CT>ZR then I=CT: Gosub 6000: Print " JÔTT A BIRODALOMBA.": Goto 230
220 I=-CT: Gosub 6000: Print " ELHAGYTA A BIRODALMAT ";
230 Print " ÉS A LAKOSOK SZ@MA MOST";CE;"."
240 If FI>ZR or CE<150 then Goto 270
250 If CE*(CY+8.5*AI)>BN then Goto 270
260 If AE>8.5*CE then Goto 9000
270 Print " A BIRODALOM TERÜLETE";AE;" HOLD."
280 Print BA;" VÉKA GABON@T TAKARITOTTUNK BE."
290 If DH<>ZR then Print " DE A PATK@NYOK";DH;" VÉK@VAL FELFALTAK."
300 Print " MOST";BN;" VÉKA VAN A RAKT@RAKBAN.": Print
320 AO=AK+int(AH*(rnd(P)-.5))
330 Print : Print : Print :I=2000: Gosub 9100: Print chr$(14);"HAMURABI": Print "EZ ÉVBEN A FÔLD @RA";AO;" VÉKA HOLDANKÉNT.": Goto 1100
380 Input " H@NY HOLD FÔLDET AKARSZ VENNI?";AA
400 If AA=ZR then Goto 500
410 If AA>ZR then Goto 460
420 Gosub 2000: Goto 380
460 If AA*AO>=BN then Goto 600
470 BN=BN-AA*AO
480 AE=AE+AA
490 Goto 700
500 Input " H@NY HOLD FÔLDET AKARSZ ELADNI?";AA
510 Print
520 If AA=ZR then Goto 700
530 If AA>ZR then Goto 550
540 Gosub 2000: Goto 500
550 If AA<AE then Goto 630
560 Gosub 3000
570 Print " CSAK";AE;" HOLD FÔLDED VAN": Print " MENNYIT AKARSZ ELADNI?": Goto 500
600 Gosub 3000: Print "CSAK";BN;" VÉKA VAN A RAKT@RAKBAN!": Goto 380
630 AE=AE-AA:BN=BN+AA*AO
700 Print " H@NY VÉKA GABON@T": Input "AKARSZ SZÉTOSZTANI A NÉPEDNEK?";BO
720 If BO<=BN then Goto 780
730 Gosub 3000
740 Print "CSAK";BN;" VÉKA VAN A RAKT@RAKBAN!": Goto 700
780 BN=BN-BO
790 Input " H@NY HOLD FÔLDET AKARSZ BEVETNI?";AN
810 X=rnd(P): If AN>AE then Gosub 3000: Print " CSAK";AE;" HOLD FÔLDED VAN!": Goto 790
850 If AN>CE*AY then Gosub 3000: Print " CSAK";CE;" EMBERT DOLGOZTATHATSZ !": Goto 790
890 If AN*AI>BN then Gosub 3000: Print " CSAK";BN;" VÉKA GABON@D VAN !": Goto 790
921 BN=BN-int(AN*AI): If (AE/CE-8.5)*rnd(P)<2 then Goto 932
923 EN=int(CE/4*rnd(P))
924 GE=int(AE/2*rnd(P)+AE/4)
925 Print : Print : Print : Print : Print : Beep "!LKJIHGFEDCBAÉ@ÉABCDEFGHIJKL ": Print " ITT AZ ELLENSÉG !": Print : Print : Print GE;" HOLD FÔLDET ELFOGLALTAK.": Gosub 4070
928 AE=AE-GE: If AE<AN then AN=AE
932 CI=int(CE-int(BO/CY)): If CI<ZR then CI=ZR
941 Goto 7000
945 CE=CE-CI: If CE<=ZR then Goto 8000
947 EN=ZR
950 If int(EE+rnd(P)+(CI/(2*(CE+CI))))<>ZR then Gosub 4000
970 CT=int(CN*(rnd(P)-.5))
972 If CI+EN<>0 then CT=int(-CN*(rnd(P)+P))
975 CE=CE+CT: If CE<=0 then Goto 8000
980 CO=int(CE*CK+rnd(P)):CE=CE-CO
990 CA=int(CE*CH+rnd(P)): If CA<ZR then CA=ZR
995 CE=CE+CA: If CE<=0 then Goto 8000
1000 BA=int((BE+BK*(rnd(P)-.5)*1.13)*AN):EE=-.5:BN=BN+BA:DH=ZR
1010 If int(DE+rnd(P)+(BN-BA)/DO)<=ZR then Goto 130
1015 DH=int((DK+(rnd(P)-.5)*DN)*BN):BN=BN-DH:FK=P
1030 If DH<=4000 then FK=DH/4000
1060 EE=EE+.05+.15*rnd(P)*FK: Goto 130
1100 If Z=P then Goto 380
1105 FY=ZR: If FI=ZR then Goto 1200
1110 FI=int(FI*1.1+.5): Print " TARTOZOL A NÉPNEK";FI;" VÉK@VAL !": Input " MENNYIT AKARSZ TÔRLESZTENI ?";FY
1120 Print
1122 Print
1135 If FY>FI then Gosub 2000
1140 If FY<ZR then Gosub 2000: Goto 1120
1170 BN=BN-FY:FI=FI-FY: If FI>50000 then Goto 380
1187 If FY>ZR then Goto 380
1200 Y=rnd(P)*10: If Y-int(Y)>.2 then Goto 380
1220 FT=(int(100*(100*Y-int(100*Y)))+10)*100
1240 Print " A NEMZETKÔZI GABONA ERTÉ TUD NEKED": Print "KÔLCSÔNÔZNI";FT;" VÉKA GABON@T 10%KOS KAMATTAL."
1250 Input " MENNYIT AKARSZ KÔLCSÔNÔZNI ?";FA
1270 If FA>FT then Goto 1250
1280 If FA<ZR then Goto 1250
1290 FI=FI+FA:BN=BN+FA: Goto 380
2000 Q=P
2040 Print : Print "NEM ÉRTELEK HAMURABI KÉRLEK ISMÉTELD MEG!"
2090 Return
3000 I=int(rnd(3)+1)
3010 Print : On I Print '"GONDOLD MEG MÉGEGYSZER HAMURABI !"'"LEHETETLEN HAMURABI !"'"GONDOLKOZZ MÉG EGY KICSIT HAMURABI !"
3020 Return
4000 EN=int(EK+EH*(rnd(P)-.5)*CE): If EN<=0 then Return
4010 Print : Print : Print : Print : Print : Print : Print : Print : Print " ": Beep "!,É@ÉFÉ@É@É@ ": Print " PESTIS ": Print
4070 I=EN: Gosub 6000: Print " MEGHALT !": Print : Print : Print : Print
4080 CE=CE-EN:I=2000: Gosub 9100: Return
5000 Print : Print : Print : Print " EGY EMBER @TLAGOSAN": Print CY;" VÉKA GABON@T ESZIK ÉVENTE.": Print AY;" HOLD FÔLDET TUD BEVETNI ": Print " ";AI;" VÉKA GABON@VAL.": Print " HOLDANKÉNT A FÔLD @TLAGOS @RA": Print chr$(14),chr$(14);AK;" VÉKA": Print "AZ @TLAGOS TERMÉS";BE;" VÉKA HOLDANKÉNT.": Print "KITÔRHET A PESTIS HA AZ EMBEREK ÉHEZNEK.": Print "JÔHETNEK A PATK@NYOK HA MARAD GABONA.": Print "A RAKT@RAKBAN EGYIK ÉVRôL A M@SIKRA": Print " BETÔRHET AZ ELLENSÉG.": Print "HA TÔBB A FÔLDED MINT 10 HOLD EMBERENKÉNT ": Print " SIKERESEN URALKODSZ.": Print "HA A NÉPESSÉG MEGHALADJA A 150 ET": Print " ÉS A TERÜLETED TÔBB MINT 8ÉS FÉL HOLD EMBERENKÉNT ": Print " AKKOR TÉGED CS@SZ@RR@ KORON@ZNAK !": Print : Print : Print :I=6000: Gosub 9100: Return
6000 If I=0 then Print " SENKI SEM ": Return
6010 Print I;" EMBER ": Return
7000 If CI<=ZR then Goto 945
7020 If BN<=CI*CY then Goto 945
7040 If int(FE+rnd(P))>P then Goto 945
7060 Print : Print : Print : Print : Print : Print : Print " AZ EMBEREK ÉHEZNEK ÉS TE NEM ADSZ NEKIK ENNI.": Print " FELL@ZADTAK ELLENED HAMURABI A J@TÉKNAK VÉGE !": Beep "#AJBICJDGEF ": Print : Print : Print : Print : Print : Print : Print : Print : Print : End
8000 Print : Print : Print : Print : Print : Print : Print : Print " MINDENKI MEGHALT HAMURABI EREDJ A PUSZT@BA !": Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : End
9000 Print : Print : Print : Print : Print : Print : Print : Print " G R A T U L @ L O K HAMURABI SUMERIA CS@SZ@RA LETTÉL .": Print " ": Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : End
9050 Return
9100 For J=ZR to I: Next : Return
16000 Poke $404C,00: For I=1 to 3: Save "96=OS,HAMURABI BIRODALMA. duma: Cs. E. ": For J=0 to 500: Next ,
10 ZR=0:P=1:FI=ZR:Z=ZR:AE=1000:AK=2000:AH=20:AY=10:DE=.1:BE=4:DK=.25:BK=2:DN=DK:BN=3000:EE=.05:BA=BN:EK=DK:DH=ZR:AI=5:DO=BN:EH=.2:EN=ZR:CK=.02:CE=100:CN=5:FE=.3:CO=BK:CH=DE:CA=CN:CT=-3:CY=20:YE=ZR:CI=ZR
100 Print "Ó": Print : Print : Print : Print : Print "ÓHAMURABI": Print : Print "KÉRSZ INFORM@CIóKAT ÚJ BIRODALMADRóL?"
105 Poke $404C,5
110 Input Q$
120 If Q$="I" then Gosub 5000
130 Print : Print : Print : Print : Print chr$(14);"HAMURABI.": Print "T@JÉKOZTATLAK AZ ELôZô ÉVRôL."
140 YE=YE+P
150 If CA=ZR then Print "EGY GYERMEK SEM SZÜLETETT.": Goto 180
160 If CA=P then Print "EGY GYERMEK SZÜLETETT!": Goto 180
170 Print CA;" GYERMEK SZÜLETETT "
180 I=CO: Gosub 6000: Print "HALT MEG "
190 I=CI: Gosub 6000: Print "HALT ÉHEN "
200 If CT=ZR then Goto 230
210 If CT>ZR then I=CT: Gosub 6000: Print " JÔTT A BIRODALOMBA.": Goto 230
220 I=-CT: Gosub 6000: Print " ELHAGYTA A BIRODALMAT ";
230 Print " ÉS A LAKOSOK SZ@MA MOST";CE;"."
240 If FI>ZR or CE<150 then Goto 270
250 If CE*(CY+8.5*AI)>BN then Goto 270
260 If AE>8.5*CE then Goto 9000
270 Print " A BIRODALOM TERÜLETE";AE;" HOLD."
280 Print BA;" VÉKA GABON@T TAKARITOTTUNK BE."
290 If DH<>ZR then Print " DE A PATK@NYOK";DH;" VÉK@VAL FELFALTAK."
300 Print " MOST";BN;" VÉKA VAN A RAKT@RAKBAN.": Print
320 AO=AK+int(AH*(rnd(P)-.5))
330 Print : Print : Print :I=2000: Gosub 9100: Print chr$(14);"HAMURABI": Print "EZ ÉVBEN A FÔLD @RA";AO;" VÉKA HOLDANKÉNT.": Goto 1100
380 Input " H@NY HOLD FÔLDET AKARSZ VENNI?";AA
400 If AA=ZR then Goto 500
410 If AA>ZR then Goto 460
420 Gosub 2000: Goto 380
460 If AA*AO>=BN then Goto 600
470 BN=BN-AA*AO
480 AE=AE+AA
490 Goto 700
500 Input " H@NY HOLD FÔLDET AKARSZ ELADNI?";AA
510 Print
520 If AA=ZR then Goto 700
530 If AA>ZR then Goto 550
540 Gosub 2000: Goto 500
550 If AA<AE then Goto 630
560 Gosub 3000
570 Print " CSAK";AE;" HOLD FÔLDED VAN": Print " MENNYIT AKARSZ ELADNI?": Goto 500
600 Gosub 3000: Print "CSAK";BN;" VÉKA VAN A RAKT@RAKBAN!": Goto 380
630 AE=AE-AA:BN=BN+AA*AO
700 Print " H@NY VÉKA GABON@T": Input "AKARSZ SZÉTOSZTANI A NÉPEDNEK?";BO
720 If BO<=BN then Goto 780
730 Gosub 3000
740 Print "CSAK";BN;" VÉKA VAN A RAKT@RAKBAN!": Goto 700
780 BN=BN-BO
790 Input " H@NY HOLD FÔLDET AKARSZ BEVETNI?";AN
810 X=rnd(P): If AN>AE then Gosub 3000: Print " CSAK";AE;" HOLD FÔLDED VAN!": Goto 790
850 If AN>CE*AY then Gosub 3000: Print " CSAK";CE;" EMBERT DOLGOZTATHATSZ !": Goto 790
890 If AN*AI>BN then Gosub 3000: Print " CSAK";BN;" VÉKA GABON@D VAN !": Goto 790
921 BN=BN-int(AN*AI): If (AE/CE-8.5)*rnd(P)<2 then Goto 932
923 EN=int(CE/4*rnd(P))
924 GE=int(AE/2*rnd(P)+AE/4)
925 Print : Print : Print : Print : Print : Beep "!LKJIHGFEDCBAÉ@ÉABCDEFGHIJKL ": Print " ITT AZ ELLENSÉG !": Print : Print : Print GE;" HOLD FÔLDET ELFOGLALTAK.": Gosub 4070
928 AE=AE-GE: If AE<AN then AN=AE
932 CI=int(CE-int(BO/CY)): If CI<ZR then CI=ZR
941 Goto 7000
945 CE=CE-CI: If CE<=ZR then Goto 8000
947 EN=ZR
950 If int(EE+rnd(P)+(CI/(2*(CE+CI))))<>ZR then Gosub 4000
970 CT=int(CN*(rnd(P)-.5))
972 If CI+EN<>0 then CT=int(-CN*(rnd(P)+P))
975 CE=CE+CT: If CE<=0 then Goto 8000
980 CO=int(CE*CK+rnd(P)):CE=CE-CO
990 CA=int(CE*CH+rnd(P)): If CA<ZR then CA=ZR
995 CE=CE+CA: If CE<=0 then Goto 8000
1000 BA=int((BE+BK*(rnd(P)-.5)*1.13)*AN):EE=-.5:BN=BN+BA:DH=ZR
1010 If int(DE+rnd(P)+(BN-BA)/DO)<=ZR then Goto 130
1015 DH=int((DK+(rnd(P)-.5)*DN)*BN):BN=BN-DH:FK=P
1030 If DH<=4000 then FK=DH/4000
1060 EE=EE+.05+.15*rnd(P)*FK: Goto 130
1100 If Z=P then Goto 380
1105 FY=ZR: If FI=ZR then Goto 1200
1110 FI=int(FI*1.1+.5): Print " TARTOZOL A NÉPNEK";FI;" VÉK@VAL !": Input " MENNYIT AKARSZ TÔRLESZTENI ?";FY
1120 Print
1122 Print
1135 If FY>FI then Gosub 2000
1140 If FY<ZR then Gosub 2000: Goto 1120
1170 BN=BN-FY:FI=FI-FY: If FI>50000 then Goto 380
1187 If FY>ZR then Goto 380
1200 Y=rnd(P)*10: If Y-int(Y)>.2 then Goto 380
1220 FT=(int(100*(100*Y-int(100*Y)))+10)*100
1240 Print " A NEMZETKÔZI GABONA ERTÉ TUD NEKED": Print "KÔLCSÔNÔZNI";FT;" VÉKA GABON@T 10%KOS KAMATTAL."
1250 Input " MENNYIT AKARSZ KÔLCSÔNÔZNI ?";FA
1270 If FA>FT then Goto 1250
1280 If FA<ZR then Goto 1250
1290 FI=FI+FA:BN=BN+FA: Goto 380
2000 Q=P
2040 Print : Print "NEM ÉRTELEK HAMURABI KÉRLEK ISMÉTELD MEG!"
2090 Return
3000 I=int(rnd(3)+1)
3010 Print : On I Print '"GONDOLD MEG MÉGEGYSZER HAMURABI !"'"LEHETETLEN HAMURABI !"'"GONDOLKOZZ MÉG EGY KICSIT HAMURABI !"
3020 Return
4000 EN=int(EK+EH*(rnd(P)-.5)*CE): If EN<=0 then Return
4010 Print : Print : Print : Print : Print : Print : Print : Print : Print " ": Beep "!,É@ÉFÉ@É@É@ ": Print " PESTIS ": Print
4070 I=EN: Gosub 6000: Print " MEGHALT !": Print : Print : Print : Print
4080 CE=CE-EN:I=2000: Gosub 9100: Return
5000 Print : Print : Print : Print " EGY EMBER @TLAGOSAN": Print CY;" VÉKA GABON@T ESZIK ÉVENTE.": Print AY;" HOLD FÔLDET TUD BEVETNI ": Print " ";AI;" VÉKA GABON@VAL.": Print " HOLDANKÉNT A FÔLD @TLAGOS @RA": Print chr$(14),chr$(14);AK;" VÉKA": Print "AZ @TLAGOS TERMÉS";BE;" VÉKA HOLDANKÉNT.": Print "KITÔRHET A PESTIS HA AZ EMBEREK ÉHEZNEK.": Print "JÔHETNEK A PATK@NYOK HA MARAD GABONA.": Print "A RAKT@RAKBAN EGYIK ÉVRôL A M@SIKRA": Print " BETÔRHET AZ ELLENSÉG.": Print "HA TÔBB A FÔLDED MINT 10 HOLD EMBERENKÉNT ": Print " SIKERESEN URALKODSZ.": Print "HA A NÉPESSÉG MEGHALADJA A 150 ET": Print " ÉS A TERÜLETED TÔBB MINT 8ÉS FÉL HOLD EMBERENKÉNT ": Print " AKKOR TÉGED CS@SZ@RR@ KORON@ZNAK !": Print : Print : Print :I=6000: Gosub 9100: Return
6000 If I=0 then Print " SENKI SEM ": Return
6010 Print I;" EMBER ": Return
7000 If CI<=ZR then Goto 945
7020 If BN<=CI*CY then Goto 945
7040 If int(FE+rnd(P))>P then Goto 945
7060 Print : Print : Print : Print : Print : Print : Print " AZ EMBEREK ÉHEZNEK ÉS TE NEM ADSZ NEKIK ENNI.": Print " FELL@ZADTAK ELLENED HAMURABI A J@TÉKNAK VÉGE !": Beep "#AJBICJDGEF ": Print : Print : Print : Print : Print : Print : Print : Print : Print : End
8000 Print : Print : Print : Print : Print : Print : Print : Print " MINDENKI MEGHALT HAMURABI EREDJ A PUSZT@BA !": Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : End
9000 Print : Print : Print : Print : Print : Print : Print : Print " G R A T U L @ L O K HAMURABI SUMERIA CS@SZ@RA LETTÉL .": Print " ": Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : Print : End
9050 Return
9100 For J=ZR to I: Next : Return
16000 Poke $404C,00: For I=1 to 3: Save "96=OS,HAMURABI BIRODALMA. duma: Cs. E. ": For J=0 to 500: Next ,
On Tuesday, 1 February 2022 at 19:37:45 UTC+1 kovacsa...@gmail.com wrote:
Reply all
Reply to author
Forward
0 new messages