start tok64 d64-4bZeEr
1 POKE52,40:POKE56,40:POKE51,0:POKE55,0:POKE53280,0:POKE53281,0:GOTO10
2 PRINT"{clear}"TAB(7)"{green}{cm asterisk}{reverse on}{space*5}public domain{space*6}{reverse off}{sh pound}"
3 PRINTTAB(8)"{down}{blue}{reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on}{cm asterisk}{reverse off}{space*2}{reverse on} "
4 PRINTTAB(8)"{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {cm asterisk}{reverse off} {reverse on} "
5 PRINTTAB(8)"{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {reverse off}{space*4}{reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on} {reverse off}{cm asterisk}{reverse on}{cm asterisk} "
6 PRINTTAB(8)"{light blue}{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {reverse off} {cm asterisk}{reverse on} "
7 PRINTTAB(8)"{reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on}{space*4}{reverse off} {reverse on} {reverse off}{space*2}{reverse on} {reverse off} {reverse on} {reverse off}{space*2}{reverse on} "
9 PRINT"{down}"TAB(7)"{reverse on}{green}{sh pound}{space*8}software{space*8}{cm asterisk}{reverse off}{down}{green}":RETURN
10 POKE788,52:POKE45,242:POKE46,18:CLR
12 GOSUB2:PRINT"{down*3}{green}{space*4}presents for your entertainment":GOSUB1031:GOSUB1012
13 s=54272:POKEs+23,1:POKEs+5,15:POKEs+12,15:POKEs+19,15:POKEs+6,240:POKEs+13,24:POKEs+20,240
14 POKEs+10,2:POKEs+9,2:POKEs+17,2:POKEs+16,2:POKEs+4,33:POKEs+11,65:POKEs+18,65:GOSUB1011
15 POKEs+24,69:FORx=1TO11:READaa:POKEs,aa:READb:POKEs+1,b:READzz
16 POKEs+7,zz:READd:POKEs+8,d
17 READe:POKEs+14,e:READf:POKEs+15,f:READg
18 g=g-8:IFg>0THEN18
19 NEXT
20 GOSUB1031:SYS31389
28 GOSUB2000
29 GOSUB2:PRINT"{home}{green}{down*11}use{space*2}joystick/s{space*2}to{space*2}guide jonny to get"
30 PRINT"three sausages{space*2}and take them to '{pink}mash{green}'";
31 PRINT" the {orange}dog{green}. but{space*2}beware{space*2}the {orange}'jimpys'{green}{space*2}who"
32 PRINT"will 'lick' you to death for a banger!!"
33 PRINT"you can drop a{space*2}sausage{space*2}for them using"
34 PRINT"the{space*2}{pink}fire{green}{space*2}button but you only score on"
35 PRINT"those mash eats.{space*3}you can pass through"
36 PRINT"the gates but the {orange}'jimpys'{green} cannot{.*5}{down*3}{reverse on}{pink}":a$="":POKE198,0
37 PRINT"{light blue}{up*2}{space*3}Z{space*2}Z {reverse on}{156}{sh asterisk}select 1 or 2 players{sh asterisk}{reverse off}{light blue} Z{space*2}Z{space*2}";
38 GETa$:POKE18609,1:IFa$="2"THENPOKE18609,2
39 IFa$=""THEN38:POKE18610,0
40 DATA186,5,107,14,75,34,400,0,0,0,0,0,0,80,114,11,214,28,75,34,80,147,8,227,22
41 DATA214,28,80,114,11,214,28,75,34,80,70,15,126,38,198,45,560,0,0,0,0,0,0,10,7
42 DATA15,126,38,198,45,80,216,12,94,32,126,38,80,70,15,126,38,198,45,80,227,22
43 DATA172,57,149,68,1200
44 PRINT"{clear}":SYS31399
730 w(1)=(PEEK(j)-c)*k+(PEEK(j+1)-c)*l+(PEEK(j+2)-c)*a+(PEEK(j+3)-c)*y
732 w(2)=(PEEK(j+6)-c)*k+(PEEK(j+7)-c)*l+(PEEK(j+8)-c)*a+(PEEK(j+9)-c)*y: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
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:IFPEEK(18609)=2THENGOSUB1011
915 IFPEEK(18609)=2THENz=2:POKE18609,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":WAIT653,1
930 GOTO29
1011 FORf=1TO2000:NEXT:RETURN
1012 RETURN
1020 a$="":GETa$:IFa$=""THEN1020
1021 RETURN
1031 FORf=54272TO54295:POKEf,0:NEXT:RETURN
2000 GOSUB2:PRINT"{down}{green} 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 {pink}one{green} or {pink}two{green} joysticks"
2005 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}"
2006 POKE15563,1
2007 GETa$:IFa$=""THEN2006
2008 IFa$="2"THENPOKE15563,0
2020 RETURN
4000 OPEN1,1,0,"m.c.file"
4001 SYS65493
4002 CLOSE1
4010 DIMb$(5):FORi=1TO5:b$(i)="01{0*4} {.*3}":NEXT:DIMw(2):c=112
4011 j=18593
4012 k=100000:l=10000:a=1000:y=100
4014 GOTO12
5000 PRINT"{clear}":POKE53270,200:POKE53272,21
5001 RETURN
stop tok64
(bastext 1.0)