home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / goldfieber (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-04-25  |  3.4 KB  |  105 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB2500
  2. 20 GOSUB2000:PRINT"[147]"Z$(1):PRINTZ$(2)"ES IST 10:00 UHR"
  3. 30 FORO=3TO5:PRINTZ$(O):NEXT:GOSUB600
  4. 40 PRINT"[151]         GLUECK AUF,KUMPEL!            ":TI$="001000"
  5. 50 FA=(PEEK(W)):PL=(PEEK(Q))
  6. 60 IFQ=1160ANDY>0THENGE=GE+L+1000*Y:TI$="001000":Y=0:L=0:IFZX=9THEN1000
  7. 70 GE=GE-5:GOSUB500
  8. 80 POKEQ,127:POKEW,1
  9. 90 IFFA=9THENGOSUB200
  10. 100 GOSUB400
  11. 110 GETE$:IFE$=""THEN100
  12. 120 PRINT"[145]                                       "
  13. 130 POKEQ,PL:POKEW,FA
  14. 140 IFE$="L"ANDQ>1160AND((PEEK(Q-1))<68OR(PEEK(Q-1))=160)THENQ=Q-1:W=W-1:GOTO50
  15. 150 IFE$="A"ANDQ<1904ANDPL<>32ANDPL<>67THENQ=Q+40:W=W+40:GOTO50
  16. 160 IFE$<>"H"THEN180
  17. 170 IF((PEEK(Q-40))=107ORQ>1259)ANDPL<>32ANDPL<>67THENQ=Q-40:W=W-40:GOTO50
  18. 180 IFE$="R"ANDPL<>107THENQ=Q+1:W=W+1:GOTO50
  19. 190 GOTO80
  20. 200 GE=GE-15:FA=0:FORI=1TO9:IFT(I)<>QTHENNEXT:GOTO230
  21. 210 HO=INT(RND(1)*500)+500:T(I)=0:Y=Y+1:ZX=ZX+1:L=L+HO
  22. 220 PRINT"[145]  GOLD GEFUNDEN :IM WERT VON"HO    "$":FORI=1TO1000:NEXT:RETURN
  23. 230 NM=INT(RND(1)*21)
  24. 240 IFNM<10THENRETURN
  25. 250 IFNM>15THENGOTO270
  26. 260 PRINT"[145]       SANDSTEIN :LEICHTER ABBAU!      ":GE=GE+15:RETURN
  27. 270 IFNM>19THEN320
  28. 280 PRINT"[145]FELSBROCKEN :SIE BENOETIGEN DEN BOHRER!":POKEQ,209:POKEW,0
  29. 290 GOSUB400
  30. 300 GETL$:IFL$<>"B"THEN290
  31. 310 POKEQ,127:POKEW,1:GE=GE-30:RETURN
  32. 320 PRINT"[145]  WASSEREINBRUCH :SIE MUESSEN PUMPEN!  "
  33. 330 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":GOSUB600:PRINT:POKEQ,160:POKEW,6
  34. 340 GOSUB400
  35. 350 GETL$:IFL$<>"P"THEN340
  36. 360 POKEQ,127:POKEW,1:GE=GE-30:RETURN
  37. 400 IFTI$="001200"THENGE=INT(GE/2+.5):TI$="001000":GOSUB500:RETURN
  38. 410 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][151]"MID$(TI$,3,2)":"RIGHT$(TI$,2)
  39. 420 PRINT"":RETURN
  40. 500 IFGE<1THEN1500
  41. 510 PRINT"[157][157][157][157][157][157][157][157][157][157][157][154]         "
  42. 520 PRINT"[151][157][157][157][157][157][157][157][157][157][157][157][145]"GE"$"
  43. 530 PRINT"":RETURN
  44. 600 FORI=1TO18:PRINTX$(1):NEXT:RETURN
  45. 1000 PRINT"[147]":FORI=0TO22:PRINTD$:NEXT
  46. 1010 PRINT"[144]HERZLICHEN GLUECKWUNSCH"
  47. 1020 PRINT"DIE MINE IST LEER"
  48. 1025 PRINT"SIE HABEN ALLE SCHAETZE GEFUNDEN!"
  49. 1030 PRINT"IHR RESTGUTHABEN:"GE"[157] $"
  50. 1040 PRINT"NOCH EIN SPIEL?"
  51. 1041 GETA$:IFA$="N"THENPRINT"[147]":END
  52. 1042 IFA$="J"THENRUN20
  53. 1043 IFA$<>"N"ORA$<>"J"THEN1041
  54. 1050 SYS64738
  55. 1500 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":GOSUB600:FORI=1TO9:POKET(I),32:NEXT
  56. 1510 PRINT"[151][145]  HIER SIND DIE RESTLICHEN GOLDSTUECKE ":FORI=1TO2000:NEXT
  57. 1520 PRINT"[147]":FORI=0TO22:PRINTD$:NEXT
  58. 1530 PRINT"[144]SIE SIND PLEITE"
  59. 1540 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  60. 1550 PRINT"GEBEN SIE SICH DIE KUGEL!":FORI=1TO1500:NEXT
  61. 1560 PRINT"NOCH EIN SPIEL? (J/N)"
  62. 1570 GETM$:IFM$="N"THENPRINT"[147]":END
  63. 1571 IFM$="J"THENRUN20
  64. 1572 IFM$<>"N"ORM$<>"J"THEN1570
  65. 1580 SYS64738
  66. 2000 FORI=1TO9
  67. 2010 E=INT(RND(1)*36):R=INT(RND(1)*18)
  68. 2020 R1=R*40+1224:T(I)=R1+E
  69. 2030 IFI=1THEN2070
  70. 2040 FORJ=1TOI-1
  71. 2050 IFT(I)=T(J)THEN2010
  72. 2060 NEXTJ
  73. 2070 NEXTI
  74. 2200 Z$(1)="    [206][183] [144]BANK [146][183][205]  FIRMENKONTO:"
  75. 2210 Z$(2)="     [187][187][187][187][187][187][187][187] [146][206][165][151]"
  76. 2220 Z$(3)="[144][206][206][206][206] [187][187][187][187][187][187][187][187] [146] [165][144][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206]"
  77. 2230 Z$(4)="[206][206][206][206]          [146] [165]                     [144][171][179]"
  78. 2240 Z$(5)="[206][206][206][206] [207][208]    [207][208] [146][206][144][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][206][171][179]"
  79. 2250 X$(1)="[149]                                    [146][144][195][171][179][149]"
  80. 2260 D$="[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]"
  81. 2270 Q=1164:W=55436:GE=2505:RETURN
  82. 2500 PRINT"[147]":FORI=1TO40:PRINT"            GOLDFIEBER [146]";:NEXT
  83. 2510 FORI=1TO2000:NEXT:PRINT"":PRINTTAB(14)"[153][213][195][195][195][195][195][195][195][195][195][195][201]"
  84. 2520 PRINTTAB(14)"[145][194]GOLDFIEBER[194]":PRINTTAB(14)"[202][195][195][195][195][195][195][195][195][195][195][203]":FORI=1TO1000
  85. 2530 NEXT:PRINTTAB(10)"EIN VERBESSERTES SPIEL ":PRINTTAB(17)"[129]  VON  [153]"
  86. 2531 FORI=1TO1000
  87. 2540 NEXT:PRINT"":FORI=1TO160:PRINT" ";:NEXT:FORI=1TO1000:NEXT
  88. 2550 PRINTTAB(12)"[145][145] NORBERT TIEMANN "
  89. 2600 FORI=1TO2000:NEXT
  90. 3000 PRINT"[147][144]":POKE53281,14:POKE53280,14
  91. 3010 PRINT"  SIE BEFINDEN SICH UEBER EINER MINE,"
  92. 3020 PRINT"  IN DER 9 GOLDSTUECKE UND JEDE MENGE"
  93. 3025 PRINT"  GEFAHREN VERBORGEN SIND. SIE HABEN"
  94. 3030 PRINT"  GEWONNEN, WENN SIE ALLE GOLDSTUECKE"
  95. 3035 PRINT"  BEI DER BANK ABGELIEFERT HABEN."
  96. 3040 PRINT"  IHR FIRMENKONTO WIRD HALBIERT, WENN"
  97. 3050 PRINT"  DIE UHR 12:00 UEBERSCHRITTEN HAT."
  98. 3060 PRINT"  TASTEN:R[146]ECHTS / L[146]INKS / A[146]BWAERTS"
  99. 3070 PRINT"          H[146]OCH / B[146]OHREN / P[146]UMPEN"
  100. 3080 PRINT"  DIES SIND SIE: [191] "
  101. 3090 FORI=1TO1000:NEXT:PRINT"[144]   FERTIG?"
  102. 3091 GETH$:IFH$=""THEN3091
  103. 3092 IFH$=" "THENRETURN
  104. 3094 IFH$<>" "THEN3091
  105.