home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-02_1988_-_de_Side_B.d64 / imperator (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  31 lines
  1. 0 rem"[141][147][158]           i m p e r a t o r[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]s o f t w a r e"(NULL)
  2. 1 poke808,234:d$="":poke53280,0:poke53281,0:print"[147]"d$
  3. 2 printchr$(8)chr$(142)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
  4. 3 [153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd":[153][166]7)" getgetgetgetnewnewgetnewwaitcosgetrndnewgetnewrndgetgetgetgetrndnew
  5. 4 printspc(7)" [146][188][188][188][188]  [188][162][162][146][188][188][162][146][188] [188] [188][162][146][188][162][162][146][188][188][187]
  6. 5 [153][166]7)"andwait s  o  f  t  w  a  r  esysget
  7. 6 printspc(7)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  8. 7 [129]i[178]0[164]17:[153]:[129]k[178]0[164]9:[130]k,i:[153]"
  9. 8 u$="[162][162][162][162][162][162][162][162][162][162][162][162][162][185][175][164]          [164][175][185][162]"
  10. 9 j$="[146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146][163][146][183][146][184][162][185][175][164] [164][175][185][162][146][184][146][183][146][163]"
  11. 10 fori=1to13:print""spc(7)mid$(u$,i,13)mid$(u$,32-i)
  12. 11 printspc(7)mid$(j$,i+i,26)mid$(j$,77-i-i):next
  13. 12 u$="        p r e s e n t s":fori=1to8
  14. 13 print""spc(11)mid$(u$,i,9)mid$(u$,25-i):forj=0to99:nextj,i
  15. 20 print"[150]":u$(1)="[198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]"
  16. 21 u$(2)=" [161][187][187][161][162][187][161][162][162][161][162][187][161][162][187][146][188][187][162][161][162][187][161][162][187]"
  17. 22 u$(3)=" [161][161][161][161][162][162][161][162][146][190][161][162][172][161][162][187][161][161][161][161][162][172]"
  18. 23 u$(4)="[175][146][188][188][188][188]  [188][162][162][146][188] [190][188] [188] [188][162][146][188][162][162][146][188] [190]"
  19. 25 u$(5)="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  20. 30 fori=1to40:printleft$(d$,9):forj=1to5:printspc(7)left$(u$(j),i):next
  21. 31 forj=0to0:nextj,i:print"[154]":u$="eine wirtschafts-kriegs-simulation"
  22. 35 fori=1tolen(u$):printleft$(d$,17)spc(37-i)right$(u$,i):b=9^9:next
  23. 38 u$="(auch mit schnelladern lauffaehig)"
  24. 39 fori=1tolen(u$):printleft$(d$,19)"[156]"left$(u$,i):b=9^9:next
  25. 40 u$="moechten sie eine anleitung? (j/n)"
  26. 42 fori=1tolen(u$):printleft$(d$,22)"[129]"spc(37-i)right$(u$,i):b=9^9:next
  27. 50 poke198,0:wait198,1:getu$:a$="imp.teil2":ifu$="j"thena$="imp.teil1"
  28. 60 print"[147][144]l[207]"chr$(34)a$chr$(34)",8":fori=1to9:print"r[213]":next
  29. 62 printleft$(d$,13)spc(8)"[158]etwas geduld bitte...[144]
  30. 65 [151]631,13:[151]632,13:[151]198,2
  31.