home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-04_1989_-_de_Side_A.d64 / star.intr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  67 lines
  1. 0 ifjp=0thenjp=1:load"star.titl",8,1
  2. 1 v=53248:pokev+33,0:pokev+32,0:d$="":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
  5. 4 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
  6. 5 [153][166]7)" waitloglogloglog  lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
  7. 6 printspc(7)"[175][146] s  o  f  t  w  a  r  e[158][161]
  8. 7 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  9. 8 fori=0to17:print:fork=0to9:nextk,i:print"
  10. 9 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto          toandposnew"
  11. 10 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
  12. 11 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
  13. 12 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[130]
  14. 13 u$[178]"        p r e s e n t s":[129]i[178]1[164]8
  15. 14 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
  16. 15 [153]"*newnewwait rnd               *    getnewnewwaitcos*       rnd
  17. 16 print" [146][162][162][188][172][161][162][146][161][187][190][161][162][146][161][161][162][146][161] [161][161][161][172] [172][187][146] [161][188][146][162][187][187][146][190][172][187][146] [161][161][146] [188][146][162]
  18. 17 [153]"  coswait  get*waitcosgetwaitrndgetwaitget getnewwaitcos loglog getwaitget newwait   *getgetwait  getwaitget getwaitgetloggetwaitget";
  19. 18 [153]"newnewnewwait newwaitlognewwaitcoslogcoslogcosnewwaitlognewwaitcos newnewnewwaitlogcosnewnewwait lognewnewwaitcoslogcosnewnewwaitcosnewnewwaitcosnewnewwaitcos
  20. 19 print"[153]simulationsspiel eines sternenimperiums
  21. 20 [129]i[178]0[164]2e3:[130]:[129]i[178]49154[164]49317:[135]j:[151]i,j:[130]
  22. 100 n[178]54:[134]l(n),h(n),sa(72),sb(72),sl(72):[129]i[178]1[164]n:[135]h(i),l(i):[130]
  23. 102 [129]i[178]0[164]72:[135]sa(i),sb(i),sl(i):[130]
  24. 110 s[178]54272:[129]i[178]0[164]23:[151]s[170]i,0:[130]:[151]s[170]24,15:[158]49154:[151]198,0
  25. 120 [151]s[170]5,64[170]12:[151]s[170]12,64[170]9:[151]s[170]2,79:[151]s[170]9,22:[151]s[170]3,133:[151]s[170]10,213
  26. 200 [129]i[178]0[164]72:[151]s[170]11,64:[151]s[170]4,64
  27. 210 [151]s,l(sa(i)):[151]s[170]1,h(sa(i)):[151]s[170]7,l(sb(i)):[151]s[170]8,h(sb(i))
  28. 220 [151]s[170]11,65:[151]s[170]4,65:[129]j[178]1[164]42[172]sl(i):[130]:[161]u$:[139]u$[178]""[167][130]:[137]200
  29. 500 [151]s[170]24,0:[151]53265,27:[151]53272,21
  30. 510 [151]s[170]4,0:[153]"load":[151]v[170]21,0:[151]v[170]33,0:[151]v[170]32,0:[151]646,14:[151]53270,200
  31. 520 [153]"load";:[151]53281,0
  32. 530 [153][166]9)"bitte waehlen sie...":[153][166]9)"def f1 wait cont- sysanleitung
  33. 540 printspc(9)"[150] f7 [146] [154]- [158]spiel
  34. 550 [161]u$:[139]u$[178]"input"[137]600
  35. 560 [139]u$[178]"let"[167][153]"loadstopp(NULL)43,1:p(NULL)44,17:p(NULL)4352,0:l(NULL)"[199](34);
  36. 562 [139]u$[178]"let"[167][153]"star.boot"[199](34)",8":[137]605
  37. 570 [137]550
  38. 600 [153]"loadstopl(NULL)"[199](34)"star.inst"[199](34)",8
  39. 605 fori=1to9:print"r[213]":next
  40. 620 poke631,19:poke632,13:poke633,13:poke198,3:poke43,1:new
  41. 800 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  42. 810 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  43. 820 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  44. 830 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  45. 840 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  46. 850 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  47. 860 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  48. 870 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  49. 880 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253,208
  50. 890 data227,230,254,76,122,192,134,252,132,251,96,134,254,132,253,96
  51. 1000 data3,169,3,224,4,27,4,90,4,156,4,226,5,45,5,123,5,207,6,39,6,133,6,232
  52. 1010 data7,81,7,193,8,55,8,180,9,56,9,196,10,89,10,247,11,158,12,78,13,10
  53. 1020 data13,208,14,162,15,129,16,109,17,103,18,112,19,137,20,178,21,237,23,59
  54. 1030 data24,157,26,20,27,160,29,69,31,3,32,219,34,207,36,225,39,18,41,101
  55. 1040 data43,219,46,118,49,58,52,39,55,65,58,138,62,5,65,181,69,157,73,193,78,36
  56. 2000 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,8,21,18,6,20,16,6,21,18,2
  57. 2010 data16,11,2,21,18,2,18,13,16
  58. 2030 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
  59. 2040 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
  60. 2050 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
  61. 2060 data16,11,6,23,20,10,25,21,4,21,18,2,23,20,6,25,21,4,21,18,2,23,20,6
  62. 2070 data25,21,4,21,18,2,25,21,2,23,20,2,21,18,2,25,21,2,23,20,2,21,18,2
  63. 2080 data25,21,2,23,20,2,21,18,2,21,18,2,20,16,2,18,13,2,12,7,6,19,15,16
  64. 2100 data16,11,6,23,20,10,21,18,2,22,19,2,23,20,2,24,19,4
  65. 2110 data21,18,2,22,19,2,23,20,2,24,19,4
  66. 2120 data21,18,2,22,19,2,23,20,2,24,19,18
  67.