home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_A.d64 / creater (.txt) next >
Commodore BASIC  |  2022-10-26  |  7KB  |  144 lines
  1. 1 rem ***************
  2. 2 rem *  odyssee :  *
  3. 3 rem *             *
  4. 4 rem *world-creater*
  5. 5 rem ***************
  6. 6 :
  7. 7 :
  8. 8 :
  9. 9 poke53280,0:poke53281,0
  10. 10 :
  11. 11 :
  12. 12 poke53280,0:poke53281,0:print"[147]"tab(12)"<<< odyssee >>>"
  13. 13 printtab(9)"<<< world-creater >>>"
  14. 14 printtab(6)"<<< please wait 3.5 min >>>"
  15. 15 print"=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-="
  16. 16 poke214,20:sys58640:print"=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-="
  17. 17 poke214,9:sys58640:printtab(6)"verifying datas ..."
  18. 18 forz=1to255:readi:s=s+i:next:ifs<>25150thenb=1:goto25
  19. 19 s=0:forz=1to255:readi:s=s+i:next:ifs<>35192thenb=2:goto25
  20. 20 s=0:forz=1to255:readi:s=s+i:next:ifs<>24056thenb=3:goto25
  21. 21 s=0:forz=1to255:readi:s=s+i:next:ifs<>34311thenb=4:goto25
  22. 22 s=0:forz=1to255:readi:s=s+i:next:ifs<>29496thenb=5:goto25
  23. 23 s=0:forz=1to28:readi:s=s+i:next:ifs<>2922thenb=6:goto25
  24. 24 goto26
  25. 25 print"error in block"b:end
  26. 26 restore:printtab(6)"defining new tokens ..."
  27. 27 forz=51200to51252:readx:pokez,x:s=s+x:next
  28. 28 s=0:sys51200:forz=12520to12647:readx:pokez,255-x:next:print
  29. 29 printtab(6)"creating the world ..."
  30. 30 fori=16862to17420:pokei,37:next
  31. 31 fori=17421to26161:pokei,40:next
  32. 32 fori=26162to30008:pokei,37:next
  33. 33 fori=26645to28006:pokei,40:next
  34. 34 forz=30008to32014:pokez,40:next
  35. 35 forz=32015to33001:pokez,41:next
  36. 36 readz1,s1:ifz1=-1thenp=s1:goto36
  37. 37 ifz1=-2then43
  38. 38 ifz1=-3thenm=1:goto36
  39. 39 ifm=1thenpoke17001+(20-z1)+s1*20,p:goto36
  40. 40 readz2,s2:z1=z1-1:z2=z2-1:ifz1=z2then42
  41. 41 fori=17001+(20-z1)+s1*20to17001+(20-z2)+s2*20:pokei,p:next:goto36
  42. 42 fori=17001+(20-z1)+s1*20to17001+(20-z2)+s2*20step20:pokei,p:next:goto36
  43. 43 readz1,s1:ifz1=-2then47
  44. 44 p=17001+(20-z1)+s1*20:forz=ptop+120step20:pokez,41:next:p=p+39
  45. 45 forz=ptop+40step20:pokez,41:next:p=p+2:forz=ptop+40step20:pokez,41:next
  46. 46 goto43
  47. 47 readz1,s1:ifz1=-2then50
  48. 48 p=17001+(20-z1)+s1*20:forz=ptop+6:pokez,41:next:p=p-18:forz=ptop+2:pokez,41
  49. 49 next:p=p+40:forz=ptop+2:pokez,41:next:goto47
  50. 50 printtab(6)"reading assembler-data ...":forz=16384to16695:readi:pokez,i:next
  51. 51 printtab(6)"saving ..."
  52. 52 sys(57812)"@:world",8
  53. 53 poke193,0:poke194,48:poke174,73:poke175,129:sys62957:end
  54. 54 rem ***** block 1 *****
  55. 55 data120,165,1,72,41,251,133,1,169,208,133,3,169,48,133,5,160,0,132,2,132,4
  56. 56 data162,32,177,2,145,4,200,208,249,230,3,230,5,202,208,242,104,133,1,173,24
  57. 57 data208,41,241,9,12,141,24,208,88,96
  58. 58 data129,129,129,255,24,24,24,255,24,153,153,126,24,60,36,36,219,219,255,255
  59. 59 data231,195,195,195,255,255,255,255,255,255,255,255,184,185,162,252,144,184
  60. 60 data168,168,152,152,254,153,152,188,164,164,56,57,18,60,56,48,40,40,231,189
  61. 61 data231,66,66,231,189,231,0,48,75,132,0,48,75,132,32,60,62,62,62,153,255,62
  62. 62 data32,114,119,7,64,228,238,14,64,0,2,16,0,128,4,0,65,78,8,168,7,182,144,18
  63. 63 data255,0,255,0,255,0,255,0,198,99,120,0,108,6,48,3,195,195,255,255,255,231
  64. 64 data195,195,-1,37,16,21,11,21,15,22,12,22,15,23,13,23,15,24,13,24,16,25,13
  65. 65 data25,17,26,14,26,18,27,15,27,16,28,16,52,15,39,15,41,17,28,17,54,18,28,18
  66. 66 data38,18,42,18,58,17,58,17,61,18,61,18,63,19,63,19,65,5,21,2,21,20,457,13
  67. 67 data457,13,135,1,135
  68. 68 rem ***** block 2 *****
  69. 69 data13,136,1,136,13,134,10,134,12,133,11,133,13,137,10,137,12,138,11
  70. 70 data138,3,223,1,223,6,224,1,224,20,225,1,225,16,226,4,226,14,227,7,227,20
  71. 71 data224,15,224,20,223,17,223,9,282,9,284,10,281,10,285,11,281,11,285,12,282
  72. 72 data12,284,1,311,1,313,9,312,2,312,9,313,2,313,9,314,2,314,20,311,16,311,20
  73. 73 data312,13,312,20,313,13,313,15,314,13,314,-1,242,10,311,10,315,12,311,12
  74. 74 data315,-1,42,20,423,1,423,20,424,1,424,15,439,3,439,15,455,3,455,3,440,3
  75. 75 data454,12,401,6,401,12,403,6,403,11,451,7,451,11,443,7,443,7,444,7,450,11
  76. 76 data444,11,450,-1,41,19,66,19,112,18,112,18,137,18,138,16,138,16,139
  77. 77 data16,147,18,148,16,148,4,229,1,229,4,227,4,228,6,399,1,399,6,405,1,405,8
  78. 78 data400,6,400,8,404,6,404,9,416,1,416,20,416,12,416,3,414,3,415,14,414,14
  79. 79 data415,18,411,8,411,10,408,10,410,14,39,5,39,3,39,1,39,7,41,2,41,7,42,7,43
  80. 80 data9,41,9,53,15,42,11,42,11,43,11,44,13,46,9,46,15
  81. 81 rem ***** block 3 *****
  82. 82 data48,11,48,13,50,9,50,15
  83. 83 data52,11,52,12,53,11,53,2,43,2,54,3,49,3,50,5,43,5,52,4,52,4,60,2,60,2,66,7
  84. 84 data45,7,57,6,54,6,60,3,56,2,56,16,58,16,59,15,54,15,58,14,55,9,55,8,58,8,61
  85. 85 data9,58,9,61,13,59,11,59,14,60,11,60,12,62,4,62,14,61,14,66,10,63,10,64,13
  86. 86 data64,12,64,17,70,13,70,14,71,13,71,18,72,14,72,15,73,14,73,12,73,1,73,6,72
  87. 87 data3,72,2,68,1,68,17,62,17,66,18,64,18,66,17,68,10,68,15,65,15,67,3,65,3,66
  88. 88 data4,64,4,69,8,70,2,70,9,71,8,71,11,69,11,72,13,66,9,66,8,64,8,69,6,64,6,68
  89. 89 data15,57,8,57,12,370,8,370,12,366,8,366,12,367,12,369,8,367,8,369,-1,42,12
  90. 90 data487,12,516,13,487,13,516,15,440,15,454,-1,43,20,382,1,383,20,383,1,383
  91. 91 data8,384,1,384,4,381,1,381,-1,29,40,486,1,486,40,518,1,518,1,486,1,518,19
  92. 92 data486,19,518,5,500,5,508,6,500,6,508,11,501,7,501,2,486,2,518,20,486
  93. 93 rem ***** block 4 *****
  94. 94 data20,518,10,500
  95. 95 data7,500,11,507,7,507,10,508,7,508,11,502,11,507,-1,37,3,509,3,516,4,509
  96. 96 data4,516,5,515,5,600,6,515,6,600,7,515,7,600,8,509,8,516,9,509,9,516,7,509
  97. 97 data5,509,9,510,5,510,-1,38,5,511,5,514,6,511,6,514,7,511,7,514,-3,0
  98. 98 data-1,41,0,54,3,43,3,47,14,61,15,63,2,60,7,53,-1,36,17,23,7,105,1,227,-1
  99. 99 data39,9,223,16,56,3,360,-1,31,8,447,-1,44,1,402,-1,41,7,283,12,283,6,64
  100. 100 data-1,34,3,39,12,73,2,43,4,64,6,65,19,66,11,67,14,71,10,311,8,402,13,56
  101. 101 data5,748,1,77,9,368,0,60,-1,30,7,504,-1,242,2,507,-1,194,3,507
  102. 102 data-2,0,4,102,10,102,2,160,7,160,12,160,17,160,4,200,17,200
  103. 103 data9,244,7,274,12,274,7,286,12,286,-2,0
  104. 104 data10,97,10,113,12,247,13,201,13,205,19,211,6,211,6,244,19,244,6,250,19
  105. 105 data250,12,241,12,253,6,283,19,283,-2,0
  106. 106 data169,4,141,37,64,141,40,64,162,1,142,36,64,142,42,64,202,142,39,64,142
  107. 107 data45,64,169,216,141,43,64,141                                         
  108. 108 rem ***** block 5 *****
  109. 109 data46,64,162,21,160,0,185,33,7,153,32,7,185
  110. 110 data33,219,153,32,219,200,192,39,208,239,202,208,5,169,0,76,200,64,173
  111. 111 data36,64,105,39,144,12,238,37,64,238,40,64,238,43,64,238,46,64,141,36
  112. 112 data64,141,42,64,141,39,64,141,45,64,206,45,64,206,39,64,76,33,64,169,3
  113. 113 data141,137,64,141,140,64,162,255,142,139,64,142,145,64,202,142,136,64
  114. 114 data142,142,64,169,215,141,143,64,141,146,64,162,21,160,40,185,30,7,153
  115. 115 data31,7,185,30,219,153,31,219,136,192,1,208,239,202,208,5,169,1,76,200
  116. 116 data64,173,136,64,105,39,144,12,238,137,64,238,140,64,238,143,64,238,146
  117. 117 data64,141,136,64,141,139,64,141,142,64,141,145,64,238,139,64,238,145,64
  118. 118 data76,133,64,240,5,169,0,76,209,64,169,39,141,223,64,169,4,141,224,64
  119. 119 data162,20,189,101,70,141,32,7,72,173,223,64,141,254,64,173,224,64,24,105
  120. 120 data212,141,255,64,104,201,37,208,5,169,14,76,253,64,169,13,141,248,218
  121. 121 data173,223,64,24,105,40,144,14,238,224,64,141,223,64,160,40,140
  122. 122 rem ***** block 6 *****
  123. 123 data5,65,76
  124. 124 data30,65,141,223,64,160,40,140,5,65,202,208,186,96,160,0,162,8,189,40
  125. 125 data49,140,15,3,42,234,109,15,3,157,40,49,202,208,239,96
  126. 126 :
  127. 127 :
  128. 128 :
  129. 129 ********************************
  130. 130 *        o d y s s e e         *
  131. 131 *                              *
  132. 132 *      w r i t t e n  b y      *
  133. 133 *                              *
  134. 134 * j a n  g e i s z e l m a n n *
  135. 135 *                              *
  136. 136 *          1 9 8 4             *
  137. 137 ********************************
  138. 138 *    josef-roemer strasse 17   *
  139. 139 *                              *
  140. 140 *   5060 bergisch gladbach 2   *
  141. 141 *                              *
  142. 142 *    telefon : 02202 / 53256   *
  143. 143 ********************************
  144.