home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / creater (.txt) next >
Commodore BASIC  |  1995-03-30  |  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.