picsave I €@òKÿvêFull Screen Graphics 1 Picsave by Clyde Bish from ZX Computing, Mar'87  êpicsave î"No. of pics to store? ";n —ô23728°\,n:ña=65367Wÿ-n*6912-12 :êreplace 6912 with 2048 for top third of screen, 4096 for two thirds, 6144 for D_FILE only Týa:ñn=¾23728°\:ña=65367Wÿ-n*6912-11 :ê6912 replaced as above Qñs=a:õ"CLEAR ";s-1;" before LOADing":ëf=65356LÿÌ65367Wÿ:ãi:ôf,i:óf .ëf=1Ìn:î"Title of pic ";(f);"?",a$:ïa$ª (Oùa:ñl=¾23670v\:ñh=¾23671w\:ô65357Mÿ,l:ô65358Nÿ,h:ùÀ65356Lÿ 2cõ"Data start for pic ";(f);" = ";a'"(POKES : ";l,h;")":ña=a+6912:êreplace 6912 as before 22527ÿWËì4000 :êadjust 22527 if altering machine code üú¾d=255ÿËì2000Ð ú¾d=0Ëì3000¸ ,ôa,¾d:ña=a+1:ñd=d+1:ì1010ò ÐPôa,255ÿ:ëf=1Ì254þ:ú¾(d+f)É255ÿÅd+f>22527ÿWËì2050 Úóf -ôa+1,f:ñd=d+f:ña=a+2:ì1010ò ¸Lôa,0:ëf=1Ì254þ:ú¾(d+f)É0Åd+f>22527ÿWËì3050ê Âóf ê-ôa+1,f:ñd=d+f:ña=a+2:ì1010ò  ;úd<23296[Ëì5000ˆ:ênot if omitting attributes ¥Rõa-40000@œ:î"Title?",a$:øa$¯40000@œ,a-40000@œ:â:ê40000=data start ©0êremainder not needed ifomitting attributes ªú¾d=cËì5000ˆ ´,ôa,¾d:ña=a+1:ñd=d+1:ì4000  ˆ@ôa,c:ëf=1Ì254þ:ú¾(d+f)ÉcÅd+f>23295ÿZËì5050º ’óf º-ôa+1,f:ñd=d+f:ña=a+2:ì4000  °roçË\ƒunpack Hÿ €Jÿ!@PÃþÿ(.þ( w#|þX8ïþ( w#|þ[8óÉÕ_ÑïÕ_ÑØG6ÿ#ûÎJTrader ¤ €› …¦ ÿVêTrader by Clyde Bish from ZX Computing, Mar'87 'êTrader from an idea by J.K.Moody &õ"TRADER":î"Who is the Captain?",n$:û %‹ñs$=" ":ñt=0:ñb=500ô:ñy=5000ˆ:ñu=502:ñg=0:ña=0:ñs=0:ñw=0:ño=0:ñl=1:í9900¬& _ í9800H& dUõ¬0,10 ;n$''"Bank $";b+y;s$'"Borrowed $";y;s$'"Deck Space",u;s$'"Location",l$+s$'"General Cargo",g;s$'"Arms",a;s$'"Silk",s;s$'"Whisky",w;s$'"Opium",o;s$''"PRICES:"'"General $";p(1);s$'"Arms $";p(2);s$'"Silk $";p(3);s$'"Whisky $";p(4);s$'"Opium $";p(5);s$ nAõ'"OPTIONS: 1.Buy 2.Sell 3.Sail"'(" 4.Borrow"Æl=1) xî"Choose your option ";c ªìc*1000è èî"What do you want? ";p$ .gñp=(p(1)Æp$="G")+(p(2)Æp$="A")+(p(3)Æp$="S")+(p(4)Æp$="W")+(p(5)Æp$="O") 3Sõ#0;"You can afford ";(º((b+y)/p)):ò100d:î;:î"How many do you want? ";q ƒñu=u-q:ñb=b-(q*p) ’úp$="G"Ëñg=g+q œúp$="A"Ëña=a+q ¦úp$="S"Ëñs=s+q °úp$="W"Ëñw=w+q ºúp$="O"Ëño=o+q â ì95_ Ú!î"What do you want to sell? ";p$ äBú¥>.7€3333Ëõ#0;"Sorry, no buyers":ò100d:î;:ì100d gñp=(p(1)Æp$="G")+(p(2)Æp$="A")+(p(3)Æp$="S")+(p(4)Æp$="W")+(p(5)Æp$="O") Hî"How many to sell? ";q zQúq>1Æ¥>.7€3333Ëñq=q-º(¥*q):õ#0;"You can only sell ";q:ò100d:î; „ñb=b+p*q:ñu=u+q:úp$="G"Ëñg=g-q ¢úp$="A"Ëña=a-q ¬úp$="S"Ëñs=s-q ¶úp$="W"Ëñw=w-q Àúp$="O"Ëño=o-q Å&úb>100000‘CPÆy=0Ëì9000(# ü ì95_ Â,ñt=t+1:ñi=º(y*.1}LÌÌÌ):ñy=y+i:ñb=b-i ÌTî¬0,0;"Ports: 1.Hong Kong 2.Singapore"'"3.Macao 4.Bangkok 5.Shanghai";l ê%í9900¬&:ú¥>.25~ÿÿÿËì9700ä%  ì95_ ´#î"Borrow or Repay(R)? ";c$ Èúc$="B"Ëì4500” Òî"How much? ";m ðñy=y-m:ñb=b-m:ì95_ ”î"How much? ";m ²ñy=y+m:ñb=b+m:ì95_ #-Lû:õ"You can retire with $100,100."''"You took ";t;" move";("s"ÆtÉ1):â %î9õ#0;"STORM!":ò100d:î;:ú¥<.5ÿÿÿËì97804& & ¤õ#0;"Half your cargo is lost":ò100d:î;:ñg=º(g/2):ña=º(a/2):ñs=º(s/2):ñw=º(w/2):ño=º(o/2):ñu=502-(g+a+s+w+o):ì95_ &49õ#0;"STORM OVER. ALL O.K.":ò100d:î;:ì95_ &Háép(5):ñp(1)=º(¥*15+1):ñp(2)=10 *º(¥*14+5):ñp(3)=10 *º(¥*700¼+30):ñp(4)=100d*º(¥*26+5):ñp(5)=100d*º(¥*91[+10 ):þ &¬wñl$=("Hong Kong"Æl=1)+("Singapore"Æl=2)+("Macao"Æl=3)+("Bangkok"Æl=4)+("Shanghai"Æl=5):þ °roçË\ˆinput }€ « ÿVêInput Subroutine by Clyde Bish from ZX Computing, Mar'87 êinput subroutine êr=row, c=column #(ña$="":õ¬r,c; #2ëd=1Ì20:ód #<ú¦=""Ëì9020<# #FSú¯¦=12 Ëú±a$>0ËõÂ8;" ";Â8;:ña$=a$(̱a$-1):ì90102# #Pú¯¦=12 Ëì90102# #Zú¯¦=13 Ëþ #d„ñi$=¦:úi$È"A"Æi$Ç"Z"Ëñi$=Â(¯i$+32 ):êThis was È"0" in the listing, which didn't make sense. [JimG] #n.ña$=a$+i$:õi$;:×.1}LÌÌÌ,12 :ì90102#