home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_038_19xx_-_de_Side_B.d64 / anleitung (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.0 KB  |  117 lines
  1. 10 REM *** ANLEITUNG ZU ***
  2. 60 REM *** IMPERIUM ROMANUM ***
  3. 110 REM
  4. 160 DIMNP$(16):GOTO4360
  5. 210 POKE53281,7:POKE53280,8:PRINT"[149][147]":POKE198,0
  6. 260 PRINT"     ANLEITUNG ZU IMPERIUM ROMANUM "
  7. 310 PRINT"□□ WILLKOMMEN IN DER ANTIKE! VERSETZEN"
  8. 360 PRINT" SIE SICH IN DIE ROLLE EINES ROEMISCH-"
  9. 410 PRINT" EN KAISERS UND VERSUCHEN SIE, DAS "
  10. 460 PRINT" ROEMISCHE REICH WIEDER ZU VEREINEN!":PRINT
  11. 510 PRINT" EIN KAISER HATTE DAMALS VIELE AUF-"
  12. 560 PRINT" GABEN: ER MUSSTE SEINE PROVINZEN VOR"
  13. 610 PRINT" FEINDEN SCHUETZEN UND AUSSERDEM DEN"
  14. 660 PRINT" POEBEL IN DEN GROSSEN STAEDTEN "
  15. 710 PRINT" DURCH KORNSPENDEN VOR DEM HUNGERTOD"
  16. 760 PRINT" BEWAHREN; VERGISST ER DIES, SO MACHT"
  17. 810 PRINT" DER HUNGERNDE POEBEL EINEN AUFSTAND"
  18. 860 PRINT" UND NIMMT SICH GEWALTSAM, WAS ER "
  19. 910 PRINT" WILL. GESCHIEHT DIES ZUFAELLIG IN "
  20. 960 PRINT" DER HAUPTPROVINZ DES KAISERS, WO ER"
  21. 1010 PRINT" SEINEN SITZ HAT, SO DUERFTE ER NICHT"
  22. 1060 PRINT" MIT DEM LEBEN DAVONKOMMEN."
  23. 1110 PRINT:PRINT"  TASTE"
  24. 1160 GETA$:IFA$=""THEN1160
  25. 1210 PRINT"[147]□□□ ALLGEMEIN BEDEUTET DER VERLUST "
  26. 1260 PRINT" DER HAUPTPROVINZ DAS ENDE FUER DEN"
  27. 1310 PRINT" JEWEILIGEN BESITZER, DESHALB IST SIE"
  28. 1360 PRINT" AUCH MIT ERHEBLICH MEHR LEGIONAEREN"
  29. 1410 PRINT" AUSGESTATTET, DAMIT ES EINEM ANDEREN"
  30. 1460 PRINT" KAISER MOEGLICHST SCHWER FAELLT, SIE"
  31. 1510 PRINT" ZU EROBERN."
  32. 1560 PRINT" AUCH DIE SOLDATEN MUSS MAN BEI GUTER"
  33. 1610 PRINT" LAUNE HALTEN. DIESE REISSEN SONST IN"
  34. 1660 PRINT" DER JEWEILIGEN PROVINZ DIE HERRSCHAFT"
  35. 1710 PRINT" AN SICH UND ORDNEN SICH DANN DEM "
  36. 1760 PRINT" KAISER UNTER, DER IHNEN DAS MEISTE"
  37. 1810 PRINT" ZAHLT. BEI NIEDERLAGEN VERSCHLECHTERT"
  38. 1860 PRINT" SICH IM ALLGEMEINEN DIE MORAL DER "
  39. 1910 PRINT" TRUPPE. DOCH AUCH ZU LANGE UNTAETIG-"
  40. 1960 PRINT" KEIT LAESST DIE SOLDATEN AUFSAESSIG"
  41. 2010 PRINT" WERDEN."
  42. 2060 PRINT"□□   TASTE"
  43. 2110 GETA$:IFA$=""THEN2110
  44. 2160 PRINT"[147]□□□"
  45. 2210 PRINT" DAS KORN, DAS SIE DEM POEBEL AUS-"
  46. 2260 PRINT" TEILEN, ERHALTEN SIE AUS IHREN BAUERN-"
  47. 2310 PRINT" HOEFEN. GEERNTET WIRD EINMAL IM JAHR,"
  48. 2360 PRINT" NAEMLICH IM AUGUST. TEILEN SIE SICH "
  49. 2410 PRINT" IHR KORN ALSO GUT EIN, SONST MUESSEN"
  50. 2460 PRINT" SIE AM ENDE ZUKAUFEN."
  51. 2510 PRINT" GERATEN SIE EINMAL IN FINANZIELLE"
  52. 2560 PRINT" SCHWIERIGKEITEN, SO KOENNEN SIE BEI"
  53. 2610 PRINT" REICHEN KAUFLEUTEN KREDIT AUFNEHMEN"
  54. 2660 PRINT" DAS LIMIT HAENGT AB VON IHREN BESIT-"
  55. 2710 PRINT" ZUNGEN, D.H. VON DER ZAHL IHRER PRO-"
  56. 2760 PRINT" VINZEN. AM ENDE JEDES MONATS BEKOMMT"
  57. 2810 PRINT" DER KREDITGEBER 3000 AUREI, VON DENEN"
  58. 2860 PRINT" ER 2000 AUREI ZUR TILGUNG DER SCHULD"
  59. 2910 PRINT" NIMMT."
  60. 2960 PRINT"□□□□   TASTE"
  61. 3010 GETA$:IFA$=""THEN3010
  62. 3020 PRINT"[147]□□□"
  63. 3025 PRINT" UM JEDEN SPIELER VOR ETWAIGEN MILI-"
  64. 3030 PRINT" TAERISCHEN AUSEINANDERSETZUNGEN ERST"
  65. 3035 PRINT" EINMAL EINE RUNDE SPIELEN ZU LASSEN,"
  66. 3040 PRINT" IST EIN ANGRIFF IN DER ERSTEN RUNDE"
  67. 3045 PRINT" NICHT GESTATTET ! AUSSERDEM KANN "
  68. 3050 PRINT" JEDER LEGIONAER PRO RUNDE NUR EINMAL"
  69. 3055 PRINT" EINGESETZT WERDEN, D.H. MAN KANN "
  70. 3060 PRINT" DIESELBEN TRUPPEN NICHT IN EINER"
  71. 3065 PRINT" RUNDE ZWEIMAL BEWEGEN."
  72. 3070 PRINT" DIE ANZAHL DER LEGIONAERE, DIE MAN IN"
  73. 3075 PRINT" EINER RUNDE HOECHSTENS REKRUTIEREN "
  74. 3080 PRINT" KANN, IST BEGRENZT. EBENSO KOENNEN IM"
  75. 3085 PRINT" VERLAUF DES SPIELES NICHT UNENDLICH"
  76. 3090 PRINT" VIELE LEGIONAERE AUS EINER PROVINZ"
  77. 3095 PRINT" REKRUTIERT WERDEN."
  78. 3100 PRINT"□□□□   TASTE"
  79. 3101 GETA$:IFA$=""THEN3101
  80. 3102 PRINT"[147]□□□"
  81. 3110 PRINT" DA DIE PROVINZNAMEN NICHT MEHR IN "
  82. 3160 PRINT" DIE KARTE EINGEZEICHNET WERDEN KONN-"
  83. 3210 PRINT" TEN, OHNE JEDE UEBERSICHTLICHKEIT ZU"
  84. 3260 PRINT" ZERSTOEREN, HABE ICH AUF DER KARTE"
  85. 3310 PRINT" DIE PROVINZEN MIT ROEMISCHEN ZIFFERN"
  86. 3360 PRINT" DURCHNUMMERIERT. HIER IST DIE LISTE,"
  87. 3410 PRINT" WELCHER PROVINZ WELCHE NUMMER ZUGE-"
  88. 3460 PRINT" ORDNET IST:"
  89. 3510 PRINT"□□□□   TASTE"
  90. 3560 GETA$:IFA$=""THEN3560
  91. 3610 PRINT"[147]□ PROVINZNUMMER";TAB(15);"PROVINZNAME"
  92. 3660 PRINT
  93. 3710 FORI=1TO16
  94. 3760 PRINTTAB(5);I;TAB(15);NP$(I)
  95. 3810 NEXTI
  96. 3860 PRINT"□□□□   TASTE"
  97. 3910 GETA$:IFA$=""THEN3910
  98. 3960 PRINT"[147]□□□"
  99. 4010 INPUT"WOLLEN SIE DIESE LISTE AUSDRUCKEN";A$
  100. 4060 IFA$="J"THEN4660
  101. 4110 PRINT"□□□  DANN NOCH VIEL SPASS MIT"
  102. 4160 PRINT"   IMPERIUM ROMANUM !!"
  103. 4210 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  104. 4310 SYS42115
  105. 4360 NP$(1)="BRITANNIA":NP$(2)="GALLIA":NP$(3)="HISPANIA":NP$(6)="NUMIDIA"
  106. 4410 NP$(4)="MAURETANIA TINGITANA":NP$(5)="MAURETANIA CAESARIENSIS"
  107. 4460 NP$(7)="AFRICA":NP$(8)="SYRIA":NP$(9)="ASIA":NP$(10)="THRACIA"
  108. 4510 NP$(11)="GRAECIA":NP$(12)="MOESIA":NP$(13)="ILLYRICUM":NP$(14)="ITALIA"
  109. 4560 NP$(15)="GERMANIA":NP$(16)="RAETIA"
  110. 4610 GOTO210
  111. 4660 OPEN1,4:PRINT#1
  112. 4710 PRINT#1,TAB(5);"NUMMER";TAB(15);"NAME"
  113. 4760 FORI=1TO16
  114. 4810 PRINT#1,TAB(5);I;TAB(15);NP$(I)
  115. 4860 NEXT:PRINT#1
  116. 4910 GOTO4110
  117.