home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_038_19xx_-_de_Side_B.d64 / sieger (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  53 lines
  1. 5 sys1400,"zsmili2",18432
  2. 6 sys1400,"sieger.mp",1200
  3. 8 sys1400,"music.ir",40960
  4. 10 poke56578,peek(56578)or3
  5. 20 poke56576,(peek(56576)and252)or2
  6. 30 poke53272,(peek(53272)and15)or0
  7. 40 poke53272,(peek(53272)and240)or2
  8. 50 poke648,64:print"[147]":poke53280,8:poke53281,7:print"[149]"
  9. 60 open2,8,2,"nasieg,s,r":input#2,n$:close2
  10. 70 print"               spielende"
  11. 80 print" herzlichen gl]ckwunsch, "
  12. 90 print"   caesar ";n$;" !"
  13. 100 print" sie haben es geschafft, das r\mische "
  14. 110 print" reich wieder zu vereinen. "
  15. 115 print" alle unabh[ngigen provinzen haben "
  16. 117 print" sich ihnen unterstellt.":print
  17. 120 print" in rom, der alten reichshauptstadt,"
  18. 130 print" werden sie nun als alleinherrscher"
  19. 140 print" gefeiert, nachdem sie auch vom"
  20. 150 print" senat best[tigt wurden. ausserdem"
  21. 160 print" wird ihnen zur ehre ein triumpfbogen"
  22. 161 print" auf dem forum romanum errichtet,"
  23. 162 print" der die nachwelt an ihre grossen"
  24. 163 print" taten erinnern soll !"
  25. 170 ifpeek(56320)<>111then170
  26. 200 sys1400,"roma",24576:sys1200
  27. 205 poke53272,peek(53272)or8
  28. 206 poke53265,peek(53265)or32
  29. 207 poke49168,3:poke49169,0:poke49167,1:sys49152
  30. 208 fori=1to4000:next
  31. 209 poke49172,234:poke49177,49:sys49152:poke54272+24,0
  32. 210 ifpeek(56320)<>111then210
  33. 212 poke53265,peek(53265)and239
  34. 215 sys1400,"triumpfb.",24576:sys1200
  35. 217 poke53265,peek(53265)or16
  36. 218 poke49169,4:poke49168,24:poke49167,1:poke49172,192:poke49177,31:sys49152
  37. 220 forx=2880+8*int(20-len(n$)/2)to2880+8*int(20+len(n$)/2)step8
  38. 230 y=y+1:ify>len(n$)thengoto510
  39. 235 fori=1to8
  40. 240 a=peek(18431+8*(asc(mid$(n$,y,1))-64)+i)
  41. 250 poke(x+i+24576),a:forj=1to300:next
  42. 260 next
  43. 300 next
  44. 510 ifpeek(56320)<>111then510
  45. 520 poke53272,peek(53272)and247
  46. 530 poke53265,peek(53265)and223
  47. 540 print"[147]":poke49172,234:poke49177,49:sys49152:poke54272+24,0
  48. 550 print" ich hoffe, dass das spiel euch"
  49. 560 print" gefallen hat, "
  50. 570 print:print"   euer thb !"
  51. 580 wait56320,16,16
  52. 600 sys64738
  53.