JonTheJany" ""WJon the Jany by N Billiland from Your Computer, Aug'85 `33499ۂ:0:0:0:6:8::hi=0:5000:4500  1500 #$1000:2000:3500 dMAIN ROUTINE n"".001wn,20 s7x1=x:y1=y:(y+2,x+1)=2130 x#(y+2,x)=7200 *x=x+(="8"x<31)-(="5"x>0) ;y=y+(="6"ƫ(y+2,x)=7)-(="7"ƫ(y,x)=7) \1:y1,x1;a$(a,1);y+1,x1;a$(a,2):a=3a=2:300, !a=1a=2:300, ="8"a=3 ="5"a=1 ,y,x;a$(a,1);y+1,x;a$(a,2):0:(y-1,x)=71Gy-1,x;1;"":.01z# =,t:t=t+1:s=s+10 :0,6;s:t=n3000 @q(y+1,x)=4ū(y+1,x+1)=4ū(y+1,x-1)=4ū(y,x)=44000 33500܂:110n  SCREEN 0,0;7;"SCORE ";s;0,12 ;"HI SCORE ";hi;0,27;"MEN ";lv;21,0;"SCREEN ";scr:f=4204:f,0;2;"":f=201110V g=13 $Tc=(*30)+1:(f,c+1)=7ū(f,c-1)=71060$ B2h=-13:f+h,c;7;"":h:g:f Vl(15,0)7ƫ(15,2)7f=1519:f,1;7;"":f: VARIABLES a$(3,2):a$(1,1)="":a$(1,2)="":a$(2,1)="":a$(2,2)="":a$(3,1)="":a$(3,2)="" "an=5:s=0:t=0:scr=1:lv=4:b$="PRESS ANY KEY TO START.........." rSx=0:y=18:a=2:y,x;a$(a,1);y+1,x;a$(a,2): LIGHT BULBS  f=1n [y1=((*4)+1)*4+1:x1=(*32 ):(y1,x1)62020 #y1,x1;7;1;"":f: SCROLLING MESSAGE Κ23659k\,0:b$=b$(2)+b$(1):22,0;7;1;b$(32 ):.001wn,(*502)+10 :=""2500 K22,0;" ":23659k\,2  COMPLETED SCREEN f=110 :.01z# =,40(+f:f:f=10 -20-.73333:.01z# =,40(+f:f:21,0:23692\,23:f=021::.005y# =,10 +(f*2):f Ң7:8,6;"YOU ACTUALLY CLEARED";10 ,10 ;1;"S C R E E N";4,14;1;"WOW";6,12 ;1;"AMAZING" ؆14,13 ;1;scr;14,17;scr;16,15;scr;12 ,15;scr;14,15;1;scr s2500 :7::0:6:8::scr=scr+1:n=n+2:t=0:1650r:35# DATA FOR M/CODE p=33828$:f=15:p,((*30)+1)+((*2)*128+96`):p+1,64@+(*2)*8:p+2,(*2)+1:p+3,4:p=p+4:f \p,255:p+1,255:33827#,1:33500܂:33827#,0: LOST LIFE 1:8:y,x;a$(a,1);y+1,x;a$(a,2):f=y+2201:f,x;"";f+1,x;"":.005y# =,f:f,x;"";f+1,x;"":f T0:1650r:lv=lv-1:lv00,31;lv:2500 : 1,-20:s>hi10 ,10 ;1;7;"NEW HI SCORE":f=-2020:.01z# =,f:f:12 ,11 ;7;"WELL DONE":0:100d:hi=s "f=5020-2:.01z# =,f:f::6,4;7;"YOUR FINAL SCORE WAS ";s:9 ,3;1;7;"DO YOU WANT ANOTHER GAME?" ,="y"Ŧ="Y":30 6="n"Ŧ="N"4500 @ 4130" OPENING SCREEN b$=" 'JON THE JANY' by NG GUIDE 'JON' AROUND THE FACTORY (using the cursors) SWITCHING OFF ALL THE LIGHTS BUT WATCH OUT FOR THE FUNNY BLOBS THEY ARE FATAL IF TOUCHED (press any key to play)" k:6,6;5;1;"J O N T H E J A N Y";10 ,9 ;7;"Written by N.G." P2500 :f=030:.01z# =,f:f:7::0::30  DATA 310 ,6;7;"PLEASE WAIT A MINUTE" ,5080:f="a""j"+7:a:f,a:f 49000(#:f=33500܂33829%:a:f,a:f: O255,24,24,255,255,129,129,255 Q129,129,129,255,255,129,129,129 28,28,28,9 ,29,45-,75K,72H,72H,20,148,84T,82R,34",2,3 28,28,28,8,28,42*,42*,42*,42*,20,20,20,20,20,20,546 M60<,126~,90Z,90Z,126~,102f,102f,60<  568,568,568,144,184,180,210,18,18,40(,41),42*,74J,68D,64@,192 G24,24,60<,60<,60<,24,0,0 ( 4130" #(17,36$,132,26,254,255,40(,5,205,241,130,24,246,19,26,254,255,200,27,24 #2243,26,111o,19,26,103g,19,205,143,131,205,108l,131,19,229,205,126~,131,26,254 #<4,32 ,2,62>,7,119w,225,58:,35#,132,167,40(,2,19,201,213,27,205,45-,131 #F27,124|,18,27,125},18,209,229,205,126~,131,126~,18,546,4,225,205,108l,131,19 #P201,26,203,71G,32 ,13 ,203,79O,32 ,11 ,203,87W,32 ,9 ,203,95_,32 ,26,201,43+ #Z201,35#,201,213,125},230,224,40(,8,167,17,32 ,0,237,82R,209,201,17,32 ,7 #d237,82R,209,201,213,125},230,224,254,224,40(,6,17,32 ,0,25,209,201,17,32 #n7,25,209,201,229,213,17,136,255,6,8,78N,26,169,119w,36$,19,16,248,209 #x225,201,124|,203,183,203,63?,203,63?,203,63?,103g,213,17,0,88X,25,209,201,125} #230,31,254,31,32 ,6,62>,0,203,199,18,201,167,32 ,6,62>,0,203,207,18 #201,229,205,67C,131,205,126~,131,126~,254,6,225,32 ,17,229,205,88X,131,205,126~ #131,126~,254,2,225,40(,4,205,223,131,201,229,205,67C,131,205,126~,131,126~,254 #6,225,200,229,205,88X,131,205,126~,131,126~,254,2,225,192,205,240,131,201,205 #17,132,230,3,40(,249,254,1,32 ,23,62>,0,203,223,18,201,205,17,132,230 #3,40(,249,254,1,32 ,6,62>,0,203,215,18,201,254,2,32 ,6,62>,0,203 #199,18,201,62>,0,203,207,18,201,229,42*,33!,132,35#,126~,71G,230,63?,103g,34" #^33!,132,120x,225,201,0,0,0,255,255 ro\in.