start tok64 d64-Q7z4Ba
1 POKE52,48:POKE56,48:POKE51,0:POKE55,0:POKE53280,0:POKE53281,0:GOSUB2:GOTO10
2 PRINT"{clear}"TAB(8)"{green}{cm asterisk}{reverse on}{space*3}public domain{space*7}{reverse off}{sh pound}"
3 PRINT"{space*39}"
4 PRINT"{blue}{space*4}{reverse on}{space*5}{reverse off}{space*2}{reverse on}{space*4}{reverse off}{sh pound}{space*2}{reverse on}{space*4}{reverse off}{sh pound}{space*2}{reverse on}{space*5}{reverse off}{space*2}{reverse on}{cm asterisk}{reverse off}{space*3}{reverse on} {reverse off}"
5 PRINT"{space*4}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {cm asterisk}{reverse off}{space*2}{reverse on} {reverse off}"
6 PRINT"{space*4}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*6}{reverse on}{space*4}{reverse off}{space*3}{reverse on}{space*5}{reverse off}{space*2}{reverse on} {reverse off}{cm asterisk}{reverse on}{cm asterisk}{reverse off} {reverse on} {reverse off}"
7 PRINT"{light blue}{space*4}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*6}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {cm asterisk}{reverse on}{cm asterisk} {reverse off}"
8 PRINT"{space*4}{reverse on}{space*5}{reverse off}{space*2}{reverse on}{space*4}{cm asterisk}{reverse off}{space*2}{reverse on}{space*4}{cm asterisk}{reverse off}{space*2}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*2}{reverse on} {reverse off}{space*2}{cm asterisk}{reverse on} {reverse off}"
9 PRINT"{down}"TAB(7)"{reverse on}{green}{sh pound}{space*5}s o f t w a r e{space*4}{cm asterisk}{reverse off}{down}":RETURN
10 POKE788,52:POKE45,78:POKE46,20:CLR
11 GOSUB4010:GOSUB2000:GOSUB2:PRINT"{down*3}{green}{space*4}presents for your entertainment":GOSUB1011
13 PRINT"{clear}":SYS32883
14 GOSUB5000:PRINT"{clear}"CHR$(14)"{orange}Jonny ,{space*2}while{space*2}visiting{space*2}his{space*2}Grandma,
15 PRINT"finds the village under the spell of the";
16 PRINT"evil witch Esmiralda.{space*2}At present she is";
17 PRINT"away from her castle having placed the 4";
18 PRINT"spellroom{space*2}keys{space*2}in dark towers near the";
19 PRINT"castle.{light blue}Jonny must first{space*2}light the lamps";
20 PRINT"to find{space*2}the key{space*2}and then return to thecastle with it."
21 PRINT"{orange}At first Esmiralda will leave the JIMPYS";
22 PRINT"to catch him .{space*2}Should{space*2}Jonny{space*2}open{space*2}the";
23 PRINT"the first door she will start on her way";
24 PRINT"back to the castle,throwing thunderbolts";
25 PRINT"at him if he dares to touch another key.";
26 PRINT"At first her{space*2}powers{space*2}are{space*2}weak but will";
27 PRINT"increase as she gets closer to home."
28 PRINT"Can {light blue} YOU{orange}{space*2}help{space*2}Jonny{space*2}to open the doors";
29 PRINT"and use the Book of Spells on {light blue}HER{orange} before";
30 PRINT"she{space*2}returns and{space*2}casts her evil{space*2}spells";
31 PRINT"on {light blue}HIM{orange}?{.*14}"
32 PRINT"Jonny has{space*2}one{space*2}friend{space*2}in the form of a";
33 PRINT"'green goblin' who will send the JIMPYS"
34 PRINT"on their way!"
35 PRINT"{space*2}{pink}{space*8}PRESS {reverse on}{brown} SHIFT {reverse off}{pink}{space*2}KEY"
36 POKE198,0:WAIT653,1:PRINTCHR$(142):GOSUB2:POKE198,0:PRINT"{up*5}"
37 PRINT"{down*4}{green}{space*11}enter 1 or 2 players{141}"TAB(10)"{down}or {light blue}i{green} for instructions"
38 PRINT"{down}{space*2}on 1 player game fire button can be{space*14}used throughout game"
39 PRINT"{right*4}{down*2}{white}{reverse on} {light gray} {gray} {dark gray} {reverse off}{space*3}{reverse on}{156}{sh asterisk*2} enter{space*2}1 or 2 {sh asterisk*2}{reverse off}{space*3}{reverse on}{dark gray} {gray} {light gray} {white} {reverse off}{light blue}"
40 POKE32824,1:GETa$:IFa$=""THEN40
41 IFa$="2"THENPOKE32824,2
42 IFa$="i"THEN14
43 PRINT"{clear}":SYS32792
730 POKE53269,0:w(1)=(PEEK(j)-c)*k+(PEEK(j+1)-c)*l+(PEEK(j+2)-c)*a+(PEEK(j+3)-c)*b
732 w(2)=(PEEK(j+6)-c)*k+(PEEK(j+7)-c)*l+(PEEK(j+8)-c)*a+(PEEK(j+9)-c)*b:GOSUB5000
800 z=1
900 POKE198,0:i$="":t$=STR$(w(z)):p=LEN(t$):t$=LEFT$("{0*6}",7-p)+RIGHT$(t$,p-1)
901 o=0:FORm=1TO5:IFw(z)>VAL(LEFT$(b$(m),6))THENo=m:m=5
902 IFo=0THENFORt=1TO1000:NEXTm:GOTO913
903 GOSUB2:PRINTTAB(8)"{down}{green}a great score player "z"{down}":POKE198,0
904 PRINTTAB(8)"{green}enter your initials for":PRINTTAB(9)"{down}{orange}{reverse on}**{space*4}superstars{space*4}**"
905 PRINT"{down}":a$="":FORn=1TO3:GOSUB1020:i$=i$+a$:PRINTTAB(18)a$;:NEXTn:GOSUB1011
911 FORg=4TOoSTEP-1:b$(g+1)=b$(g):NEXTg
912 b$(o)=t$+" "+i$
913 GOSUB2:PRINT"{up*2}{space*7}{reverse on}{green}{sh pound} Z Z Z superstars Z Z Z {cm asterisk}{reverse off}{down*2}{green}"
914 FORi=1TO5:PRINT"{green}"TAB(11)i;"{space*3}{orange}"b$(i):NEXT:FORf=1TO1000:NEXT
915 IFPEEK(17893)=2THENz=2:POKE17893,0:GOTO900
925 PRINT"{down*2}{light blue}{space*3}Z{space*2}Z{space*2}Z {reverse on}{156}{sh asterisk*2} press{space*2}shift {sh asterisk*2}{reverse off}{light blue} Z{space*2}Z{space*2}Z"
930 GOTO36
1011 FORf=1TO1000:NEXT:RETURN
1020 a$="":GETa$:IFa$=""THEN1020
1021 RETURN
2000 GOSUB2:PRINT"{down}{light gray} this game has been designed for one or"
2002 PRINT"{down}{space*4}two players using joystick/s only"
2004 PRINT"{down}{space*4}you can use {light blue}one{light gray} or {light blue}two{light gray} joysticks"
2005 PRINT" {down*2}{white}{reverse on}{space*2}{light gray}{space*2}{gray}{space*2}{dark gray}{space*2}{reverse off}{space*2}{reverse on}{156}{sh asterisk*2} enter 1 or 2 {sh asterisk*2}{reverse off}{space*2}{reverse on}{dark gray}{space*2}{gray}{space*2}{light gray}{space*2}{white}{space*2}{reverse off}{light blue}"
2006 POKE15569,0
2007 GETa$:IFa$=""THEN2006
2008 IFa$="1"THENPOKE15569,1
2020 RETURN
4010 DIMb$(5):FORi=1TO5:b$(i)="02{0*4} {.*3}":NEXT:DIMw(2):c=112
4011 j=18761
4012 k=100000:l=10000:a=1000:b=100
4013 RETURN
5000 PRINT"{clear}":POKE53270,200:POKE53272,21
5001 RETURN
stop tok64
(bastext 1.0)