1 REM *************** 2 REM * ODYSSEE : * 3 REM * * 4 REM *WORLD-CREATER* 5 REM *************** 6 : 7 : 8 : 9 POKE53280,0:POKE53281,0 10 : 11 : 12 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(12)"<<< ODYSSEE >>>" 13 PRINTTAB(9)"<<< WORLD-CREATER >>>" 14 PRINTTAB(6)"<<< PLEASE WAIT 3.5 MIN >>>" 15 PRINT"=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=" 16 POKE214,20:SYS58640:PRINT"=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=" 17 POKE214,9:SYS58640:PRINTTAB(6)"VERIFYING DATAS ..." 18 FORZ=1TO255:READI:S=S+I:NEXT:IFS<>25150THENB=1:GOTO25 19 S=0:FORZ=1TO255:READI:S=S+I:NEXT:IFS<>35192THENB=2:GOTO25 20 S=0:FORZ=1TO255:READI:S=S+I:NEXT:IFS<>24056THENB=3:GOTO25 21 S=0:FORZ=1TO255:READI:S=S+I:NEXT:IFS<>34311THENB=4:GOTO25 22 S=0:FORZ=1TO255:READI:S=S+I:NEXT:IFS<>29496THENB=5:GOTO25 23 S=0:FORZ=1TO28:READI:S=S+I:NEXT:IFS<>2922THENB=6:GOTO25 24 GOTO26 25 PRINT"ERROR IN BLOCK"B:END 26 RESTORE:PRINTTAB(6)"DEFINING NEW TOKENS ..." 27 FORZ=51200TO51252:READX:POKEZ,X:S=S+X:NEXT 28 S=0:SYS51200:FORZ=12520TO12647:READX:POKEZ,255-X:NEXT:PRINT 29 PRINTTAB(6)"CREATING THE WORLD ..." 30 FORI=16862TO17420:POKEI,37:NEXT 31 FORI=17421TO26161:POKEI,40:NEXT 32 FORI=26162TO30008:POKEI,37:NEXT 33 FORI=26645TO28006:POKEI,40:NEXT 34 FORZ=30008TO32014:POKEZ,40:NEXT 35 FORZ=32015TO33001:POKEZ,41:NEXT 36 READZ1,S1:IFZ1=-1THENP=S1:GOTO36 37 IFZ1=-2THEN43 38 IFZ1=-3THENM=1:GOTO36 39 IFM=1THENPOKE17001+(20-Z1)+S1*20,P:GOTO36 40 READZ2,S2:Z1=Z1-1:Z2=Z2-1:IFZ1=Z2THEN42 41 FORI=17001+(20-Z1)+S1*20TO17001+(20-Z2)+S2*20:POKEI,P:NEXT:GOTO36 42 FORI=17001+(20-Z1)+S1*20TO17001+(20-Z2)+S2*20STEP20:POKEI,P:NEXT:GOTO36 43 READZ1,S1:IFZ1=-2THEN47 44 P=17001+(20-Z1)+S1*20:FORZ=PTOP+120STEP20:POKEZ,41:NEXT:P=P+39 45 FORZ=PTOP+40STEP20:POKEZ,41:NEXT:P=P+2:FORZ=PTOP+40STEP20:POKEZ,41:NEXT 46 GOTO43 47 READZ1,S1:IFZ1=-2THEN50 48 P=17001+(20-Z1)+S1*20:FORZ=PTOP+6:POKEZ,41:NEXT:P=P-18:FORZ=PTOP+2:POKEZ,41 49 NEXT:P=P+40:FORZ=PTOP+2:POKEZ,41:NEXT:GOTO47 50 PRINTTAB(6)"READING ASSEMBLER-DATA ...":FORZ=16384TO16695:READI:POKEZ,I:NEXT 51 PRINTTAB(6)"SAVING ..." 52 SYS(57812)"@:WORLD",8 53 POKE193,0:POKE194,48:POKE174,73:POKE175,129:SYS62957:END 54 REM ***** BLOCK 1 ***** 55 DATA120,165,1,72,41,251,133,1,169,208,133,3,169,48,133,5,160,0,132,2,132,4 56 DATA162,32,177,2,145,4,200,208,249,230,3,230,5,202,208,242,104,133,1,173,24 57 DATA208,41,241,9,12,141,24,208,88,96 58 DATA129,129,129,255,24,24,24,255,24,153,153,126,24,60,36,36,219,219,255,255 59 DATA231,195,195,195,255,255,255,255,255,255,255,255,184,185,162,252,144,184 60 DATA168,168,152,152,254,153,152,188,164,164,56,57,18,60,56,48,40,40,231,189 61 DATA231,66,66,231,189,231,0,48,75,132,0,48,75,132,32,60,62,62,62,153,255,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 DATA255,0,255,0,255,0,255,0,198,99,120,0,108,6,48,3,195,195,255,255,255,231 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 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 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 DATA457,13,135,1,135 68 REM ***** BLOCK 2 ***** 69 DATA13,136,1,136,13,134,10,134,12,133,11,133,13,137,10,137,12,138,11 70 DATA138,3,223,1,223,6,224,1,224,20,225,1,225,16,226,4,226,14,227,7,227,20 71 DATA224,15,224,20,223,17,223,9,282,9,284,10,281,10,285,11,281,11,285,12,282 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 DATA312,13,312,20,313,13,313,15,314,13,314,-1,242,10,311,10,315,12,311,12 74 DATA315,-1,42,20,423,1,423,20,424,1,424,15,439,3,439,15,455,3,455,3,440,3 75 DATA454,12,401,6,401,12,403,6,403,11,451,7,451,11,443,7,443,7,444,7,450,11 76 DATA444,11,450,-1,41,19,66,19,112,18,112,18,137,18,138,16,138,16,139 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 DATA400,6,400,8,404,6,404,9,416,1,416,20,416,12,416,3,414,3,415,14,414,14 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 DATA9,41,9,53,15,42,11,42,11,43,11,44,13,46,9,46,15 81 REM ***** BLOCK 3 ***** 82 DATA48,11,48,13,50,9,50,15 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 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 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 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 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 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 DATA15,57,8,57,12,370,8,370,12,366,8,366,12,367,12,369,8,367,8,369,-1,42,12 90 DATA487,12,516,13,487,13,516,15,440,15,454,-1,43,20,382,1,383,20,383,1,383 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 DATA486,19,518,5,500,5,508,6,500,6,508,11,501,7,501,2,486,2,518,20,486 93 REM ***** BLOCK 4 ***** 94 DATA20,518,10,500 95 DATA7,500,11,507,7,507,10,508,7,508,11,502,11,507,-1,37,3,509,3,516,4,509 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 DATA5,509,9,510,5,510,-1,38,5,511,5,514,6,511,6,514,7,511,7,514,-3,0 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 DATA39,9,223,16,56,3,360,-1,31,8,447,-1,44,1,402,-1,41,7,283,12,283,6,64 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 DATA5,748,1,77,9,368,0,60,-1,30,7,504,-1,242,2,507,-1,194,3,507 102 DATA-2,0,4,102,10,102,2,160,7,160,12,160,17,160,4,200,17,200 103 DATA9,244,7,274,12,274,7,286,12,286,-2,0 104 DATA10,97,10,113,12,247,13,201,13,205,19,211,6,211,6,244,19,244,6,250,19 105 DATA250,12,241,12,253,6,283,19,283,-2,0 106 DATA169,4,141,37,64,141,40,64,162,1,142,36,64,142,42,64,202,142,39,64,142 107 DATA45,64,169,216,141,43,64,141 108 REM ***** BLOCK 5 ***** 109 DATA46,64,162,21,160,0,185,33,7,153,32,7,185 110 DATA33,219,153,32,219,200,192,39,208,239,202,208,5,169,0,76,200,64,173 111 DATA36,64,105,39,144,12,238,37,64,238,40,64,238,43,64,238,46,64,141,36 112 DATA64,141,42,64,141,39,64,141,45,64,206,45,64,206,39,64,76,33,64,169,3 113 DATA141,137,64,141,140,64,162,255,142,139,64,142,145,64,202,142,136,64 114 DATA142,142,64,169,215,141,143,64,141,146,64,162,21,160,40,185,30,7,153 115 DATA31,7,185,30,219,153,31,219,136,192,1,208,239,202,208,5,169,1,76,200 116 DATA64,173,136,64,105,39,144,12,238,137,64,238,140,64,238,143,64,238,146 117 DATA64,141,136,64,141,139,64,141,142,64,141,145,64,238,139,64,238,145,64 118 DATA76,133,64,240,5,169,0,76,209,64,169,39,141,223,64,169,4,141,224,64 119 DATA162,20,189,101,70,141,32,7,72,173,223,64,141,254,64,173,224,64,24,105 120 DATA212,141,255,64,104,201,37,208,5,169,14,76,253,64,169,13,141,248,218 121 DATA173,223,64,24,105,40,144,14,238,224,64,141,223,64,160,40,140 122 REM ***** BLOCK 6 ***** 123 DATA5,65,76 124 DATA30,65,141,223,64,160,40,140,5,65,202,208,186,96,160,0,162,8,189,40 125 DATA49,140,15,3,42,234,109,15,3,157,40,49,202,208,239,96 126 : 127 : 128 : 129 ******************************** 130 * O D Y S S E E * 131 * * 132 * W R I T T E N B Y * 133 * * 134 * J A N G E I S Z E L M A N N * 135 * * 136 * 1 9 8 4 * 137 ******************************** 138 * JOSEF-ROEMER STRASSE 17 * 139 * * 140 * 5060 BERGISCH GLADBACH 2 * 141 * * 142 * TELEFON : 02202 / 53256 * 143 ********************************