10 REM SORCERER-JC HILTY-2/88 12 GOSUB1000:B=4 20 SYS(940) 22 POKE2040+Q,P:P=P+1:IFP=195THENP=193 26 ONLGOSUB50,60,80,90,80:L=L+1:IFL=6THENL=1 27 IFBO=0THEN202 28 SYS(940) 29 W1=PEEK(V+30):IFW1AND1THEN200 30 W2=PEEK(V+31):IFW2AND1THEN202 31 IFLE>2THENSYS(940) 32 POKE53272,(PEEK(53272)AND240)ORB:B=B+2:IFB=8THENB=4 33 GOTO20 50 IFPEEK(V+2)>220THENPOKE50435,253:POKE50688,2:RETURN 52 IFPEEK(V+2)<50THENPOKE50435,3:POKE50688,2:RETURN 54 RETURN 60 IFPEEK(V+5)<210THENRETURN 61 POKEV+21,251:POKEV+5,70:POKEV+4,PEEK(V+2) 62 FORX=0TO24:POKES+X,0:NEXT:POKES+1,2:POKES+5,28:POKES+24,15:POKES,240 64 POKES+4,129:POKEV+21,255:RETURN 80 D=PEEK(V+16):IFDAND1THENPOKE50445,0:POKE50688,64:GOTO84 81 IFPEEK(V)>PEEK(V+12)THENPOKE2046+Q,196:POKE50445,U:POKE50688,64 82 IFPEEK(V)PEEK(V+13)THENPOKE50446,U:POKE50688,64:GOTO86 85 IFPEEK(V+1)4THENGOSUB550 211 GOSUB1112:IFLE>6THENPRINT""TAB(27)"\\\\\\\\\\\" 212 GOTO20 250 POKE50432,0:SC=SC+BO:PRINT""TAB(5)SC 252 RESTORE 254 FORX=0TO24:POKES+X,0:NEXT:POKES+24,15:POKES+5,85:POKES+6,85:POKES+4,33 255 FORX=0TO5:READH1,N1:POKES+1,H1:POKES,N1 256 IFH1=50THENFORT=0TO500:NEXT 257 FORT=0TO200:NEXT:NEXT:POKES+4,0 258 BO=500:POKEV+21,0:PRINT""TAB(5)BO:LE=LE+1:PRINT""TAB(33)LE 260 IFLE>2THENU=3:EZ=253 261 IFLE>6THENU=2:EZ=254 262 IFLE>14THENU=1:EZ=255 270 GOSUB500:IFLE>4THENGOSUB550 271 GOSUB1112:IFLE>6THENPRINT""TAB(27)"\\\\\\\\\\\" 272 GOTO20 300 POKEV+21,254:POKE50432,254:PRINT""TAB(12)"[199] A M E [207] V E R" 302 PRINT"[158]"TAB(8)"[208]RESS [198]1 TO [208]LAY [193]GAIN" 304 PRINTTAB(05)"[208]RESS [198]8 TO [210]ETURN TO [213]P[212]IME" 305 POKE198,0:POKE53272,(PEEK(53272)AND240)ORB:B=B+2:IFB=8THENB=4 306 GET A$:IF A$="[133]"THEN310 307 IF A$="[140]"THEN 320 308 GOTO306 310 LI=5:BO=500:LE=1:U=4:EZ=252:IFSC>HSTHENHS=SC 311 SC=0:GOSUB1104:GOTO20 320 POKE53269,0:SYS65418:POKEV+21,0 330 POKE648,4:POKE56576,199:POKE53272,21 340 PRINT"[144][147]LOAD"CHR$(34)"UPT.REBOOT"CHR$(34)",8:" 350 PRINT"RUN:" 360 POKE 631,19:POKE 632,13:POKE 633,13:POKE 198,3 370 NEW 500 IFLE=1THENPRINT"[129]":RETURN 502 IFLE=2THENPRINT"[156]":RETURN 503 IFLE=3THENPRINT"":RETURN 504 IFLE=4THENPRINT"":RETURN 505 IFLE=5THENPRINT"[158]":RETURN 506 X=INT(5*RND(9)+1):ONXGOSUB510,511,512,513,514 508 RETURN 510 PRINT"[129]":RETURN 511 PRINT"[156]":RETURN 512 PRINT"":RETURN 513 PRINT"":RETURN 514 PRINT"[158]":RETURN 550 PRINT"":FORX=0TO12 551 PRINTTAB(2)" ":NEXT 554 X=INT(3*RND(6)+1):ONXGOSUB560,565,570 555 RETURN 560 PRINT""TAB(27)O$:PRINT""TAB(11)O$:RETURN 565 PRINT""TAB(15)O$:PRINT""TAB(29)O$:RETURN 570 PRINT""TAB(20)O$:PRINT""TAB(20)O$:RETURN 572 PRINT""TAB(11)O$:PRINT""TAB(25)O$:RETURN 1000 POKE147,0:SYS57812"SORCERER.SP",8,1:SYS62631 1002 POKE147,0:SYS57812"SORCERER.FONT1",8,1:SYS62631 1004 POKE147,0:SYS57812"SORCERER.FONT2",8,1:SYS62631 1006 POKE147,0:SYS57812"SORCERER.MVT",8,1:SYS62631 1007 POKE147,0:SYS57812"SORCERER.JOY",8,1:SYS62631 1010 PRINT"[147]":POKE53281,0:POKE53280,0 1012 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR2 1014 POKE53272,(PEEK(53272)AND15)OR16:POKE648,68 1016 POKE53272,(PEEK(53272)AND240)OR6 1017 PRINT"[147]" 1020 V=53248:S=54272:Q=16384:SC=0:HS=0:LI=5:BO=500:LE=1:L=1:P=193:U=4:EZ=252 1021 P$="":A$="\\\\ \\\\ \\\\\\\\\\\\\\ \\ \\\\\\\\\\ \\\\" 1022 B$=" \\\\\\\\\\\\\\\\\\\ \\\\ \\\\\\\\ \\\\\\ \\ " 1023 C$="\\\\ \\\\ \\\\ \\\\ \\\\\\\\\\\\\\\\\\\\\\ \\\" 1024 D$="\\\\\\\ \\\\\\\\\\\\\\\\\\ \\\\\\ \\\\\\\\\\\\ \\\\ " 1025 P$=A$+B$+C$+D$:O$="\[157]\[157]\" 1026 FORX=50432TO50448:POKEX,0:NEXT:SYS51104 1027 FORX=39TO46:POKEV+X,7:NEXT 1028 FORX=2040+QTO2046+QSTEP2:POKEX,195:NEXT 1030 FORX=2041+QTO2047+QSTEP2:POKEX,196:NEXT 1032 POKEV+28,255:POKEV+37,5:POKEV+38,2 1034 Z=5:A=10:FORX=VTOV+15STEP2:POKEX,Z+48:POKEX+1,A+40 1035 Z=Z+25:A=A+25:NEXT:POKEV+16,0:POKEV+27,255 1036 Z=50433:H=247:E=1:FORX=ZTOZ+16STEP2:POKEX,H:POKEX+1,E:H=H+1:E=E+1:NEXT 1038 POKE50688,255 1040 PRINT"[147][154]"TAB(9)"^^^^^^^^^^^^^^^^^^^^^" 1041 PRINTTAB(9)"^[211][207][210][195][197][210][197][210]'[211][160][205][207][213][206][212][193][201][206]^" 1042 PRINT"[129]\\\\\\\\\[154]^^^^^^^^^^^^^^^^^^^^^[129]\\\\\\\\\":PRINT"\"TAB(38)"\" 1044 PRINT"\ [155][199]REAT WEALTH AWAITS THOSE WHO ARE [129]\" 1045 PRINT"\ [155]BRAVE AND SKILLFUL ENOUGH TO CLIMB [129]\" 1046 PRINT"\ [155][211]ORCERER'S [205]OUNTAIN AND REACH THE [129]\" 1048 PRINT"\ [155]POT OF GOLD. [213]SE A JOYSTICK IN [208][207][210][212][129]\" 1049 PRINT"\ [155]2 TO WEAVE YOUR WAY THROUGH THE [129]\" 1050 PRINT"\ [155]MAGICAL FLAMES WHICH THE SORCERER [129]\" 1051 PRINT"\ [155]HAS CAST UPON THE FOREST. [196]O NOT [129]\" 1052 PRINT"\ [155]RUN INTO A FLAME OR A TREE OR YOU [129]\" 1053 PRINT"\ [155]WILL LOSE A LIFE. [193]N ENCOUNTER WITH[129]\" 1054 PRINT"\ [155]A [196][210][193][199][207][206] [205][207][206][211][212][197][210] WILL ALSO COST YOU [129]\" 1055 PRINT"\ [155]A LIFE. [212]HE [194][207][206][213][211] CLOCK STARTS EACH[129]\" 1056 PRINT"\ [155]ROUND WITH A VALUE OF 500 POINTS. [129]\" 1057 PRINT"\ [155][217]OU MUST REACH THE GOLD BEFORE THE [129]\" 1058 PRINT"\ [155]CLOCK REACHES ZERO OR YOU WILL LOSE [129]\" 1059 PRINT"\ [155]A LIFE. [212]O FURTHER COMPLICATE YOUR [129]\" 1060 PRINT"\ [155]QUEST, THE SORCERER IS HURTLING [129]\" 1061 PRINT"\ [155]LIGHTNING BOLTS AT YOU! [199][207][207][196][160][204][213][195][203]!![129]\" 1062 PRINT"\"TAB(38)"\":PRINT"\ [153]------------ [208][210][197][211][211][160][160][198]1 [153]------------ [129]\" 1063 PRINT"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 1100 POKE50432,255:POKEV+21,255 1101 POKE53272,(PEEK(53272)AND240)OR4:FORT=0TO60:NEXT 1102 POKE53272,(PEEK(53272)AND240)OR6:FORT=0TO50:NEXT:GETA$:IF A$="[133]"THEN1104 1103 GOTO1101 1104 POKEV+21,0:PRINT"[147]":FORX=50432TO50448:POKEX,0:NEXT 1105 REM PLAYING SCREEN 1106 PRINT"[194]ONUS";BO;TAB(13)"^^^^^^^^^^^^ [204]IVES"LI 1107 PRINT"[211]CORE";SC;TAB(13)"^[211][207][210][195][197][210][197][210]'[211]^ [204]EVEL"LE 1108 PRINT"[200]IGH ";HS;TAB(13)"^ [205][207][213][206][212][193][201][206] ^" 1109 PRINT"[153]-------------^^^^^^^^^^^^[153]------- ---" 1110 FORT=0TO18:PRINT"-"TAB(38)"-":NEXT 1111 PRINT"---------------------------------------[129]" 1112 PRINT""TAB(1);MID$(P$,INT(215*RND(9)+1),37) 1113 PRINT""TAB(1);MID$(P$,INT(215*RND(9)+1),37) 1114 PRINT""TAB(1);MID$(P$,INT(215*RND(9)+1),37) 1115 PRINT""TAB(1);MID$(P$,INT(215*RND(9)+1),37) 1116 REM SPRITE SETUPS 1118 POKEV+27,0:POKEV+16,144:POKEV+28,123:POKEV+37,5:POKEV+38,2 1119 POKE2040+Q,193:POKEV+39,1:POKEV,168:POKEV+1,214 1120 POKE2041+Q,192:POKEV+40,1:POKEV+2,168:POKEV+3,62 1121 POKE2042+Q,197:POKEV+41,1:POKEV+4,168:POKEV+5,70 1122 POKE2043+Q,196:POKEV+42,7:POKEV+6,070:POKEV+7,180 1123 POKE2044+Q,195:POKEV+43,7:POKEV+8,040:POKEV+9,86 1124 POKE2045+Q,196:POKEV+44,7:POKEV+10,168:POKEV+11,118 1125 POKE2046+Q,196:POKEV+45,7:POKEV+12,100:POKEV+13,86 1126 POKE2047+Q,203:POKEV+46,7:POKEV+14,30:POKEV+15,60 1149 POKEV+21,255:W1=PEEK(V+30):W2=PEEK(V+31) 1150 POKE50435,253:POKE50438,1:POKE50439,1:POKE50441,255:POKE50443,2 1151 POKE50688,255:POKE50432,254 1152 RETURN 2000 DATA 25,30,33,135,42,62,50,60,42,62,50,60,0,0