(@,~w#~w~/W#~вw@N 'N @@@@N 'N @@@@N 'N @@@@N ' OUTLET %CONTENTS &6INSTAMATCH7KOUTPRINT 9LeSCRNREVEAL@ftSMARTCART ueditorial<instructnletters1 lookaheadQlookout ]outboard -outclass .?output @]run ^wBITS 'xBREAKTHRU'ELFINDOR EXMOD hINDEX gLEAGUECOMPMILOGO UTILITY 1 0drivechat1elfindor WgetvarJ OUTLET & "9930" N=" "̯"4"ͧ*:.02{# =,N:N:"(":X$:"9986":"23658",O8:I:I:٧+:O:O,O;"THESPCRUD R I V E MAGAZINE 1989ISSUECHEZRONNo.021S/WAREMAY89" % "EDITORIAL....A DRIVECHAT....MOUTLETTERS...B BREAKTHRU'...NOUTPRINT.....C LEAGUECMPILR.OOUTBOARD.....D BITS.........PLOOKOUT!.....E MILOGO.......QOUTPUT.......F UTILITY 1....RSCREENREVEAL.G ELFINDOR.....SSMARTCART....H getvarJ......TOUTCLASS.....I EXMOD........UINSTA-INFO...J INDEX..VINSTAMATCHIT.K run..........WLOOKAHEAD....L RESET(0).X__" >"editorial","letters1 ","OUTPRINT","outboard ","lookout ","output ","SCRNREVEAL","SMARTCART","outclass ","instructn","INSTAMATCH","lookahead","drivechat","BREAKTHRU'","LEAGUECOMP","BITS","MILOGO","UTILITY 1","ELFINDOR","getvarJ","EXMOD","INDEX","run","0",ç,,"8","23608",ç,"3E3","23728","65368" ("WELCOME FROM OUTLET!!"," SELECT ANY OF THE ABOVE ITEMS BY PRESSING THE BLACK KEYLETTER. PLEASE KEEP YOUR OUTLET DISC IN DRIVE 1... " <\"9997":#O;O,O;O;"":"4500":L>"3E3""90" F="65490",I:"65491","4":"A":ïG:þ"23560"X$:G P*K$=¾"23560":K$<"A"K$>(H+"@")"F" ZKK$-"8"-("12"K$>"L"),"14"+("16"K$>"L");I;I;O;ڧ+;(K$"L");" " kK$="V"װ".05",*:װ".1","20":M$="PUT YOUR LATEST COPY OF 'OUTDEX' IN DRIVE 1 (OR LOAD THE ORIGINAL FROM ISSUE 12) THEN LOAD NEW DATA FROM THIS ISSUE":D,I:"4E3" lK$="T"װ".05",*:װ".1","20":M$="This is an assembler macro which returns the address of any variable. See INSTAMATCHIT for details. Put Issue 12 in Drive 1 to load JACKSOFT.":D,I:"4E3" mK$="U"װ".05",*:װ".1","20":M$="This is a mod to MERGE in EXPENSHEET in Issue 12 - read the EDITORIAL for details":"4E3" xfװ".05",*:װ".1","20":X$=" ONE MOMENT PLEASE...":"65491",O:G:NIF,K$-"@":NIF=HO ^#:;:C$(K$-"@",*)"""23606",O:"23607","<":G-I:"9988":*"M";I;C$(K$-"@") ,,"34567":"9988":*"M";I;C$(K$-"@") %OB=(K$="D"):"9986":OBO:O:٧+ 8O::C$(K$-"@")="output "ڰ"5":I:"34591","" PG=I 8OB;:"23692",O:"21",O'""+(" O U T B O A R D May, 1989 "ƺ((PG+I+I)/3)=(PG+I+I)/3)+"" :/OP=PG:װ".05",O8:PG:"34568":OB"3582" =D$=(PGƱPG="2")+("0"+PGƱPG=I):#O;O,O;"FORWARD BACK";O,"19";"CONTENTS NEXT INTRO PRINT PAGE:THIS ALL SET";O,O;("LASTPAGE"PG="34818"):#O;O,"13";("4"ƾ"23624"ɯ" ");" ";ٰ"9";I;D$;(+ƾ"23624"ɯ"0");" ":PG=IAT=("15",O):AT-(AT/O8)*O8:"21",O;I;I;"Press 2 digits or use keys below" BpO:K$=:K$"0"K$"9"D$=K$:#O;O,"15";D$;I;"+":O:K$=:K$"0"K$"9"#O;O,"16";K$:D$=D$+K$:PG=D$ GPG=IOB"21",O,, LPG=PG+(K$="F"ůK$="13")-(K$="B"):PGPG>"34818";:#O;I,"9";I;("NO SUCH PAGE"OPɾ"34818");(" LAST PAGE!"OP="34818"):װ".1",O:װ".5",-I:PG=OP jOPPG"1080" t K$="C"* K$="I""1030" 3K$="T"PR="I"PR="O"ӧ;"T":"1700":''''':ԧ 2K$="T"PR="K""1415":"1700":''''':"1420" )K$="T"PR="D"PR="L""1700":''''' 5K$="A"PR="I"PR="O"ӧ;"T":"1600":ԧ:"1030" 4K$="A"PR="K""1415":"1600":"1420":"1030" +K$="A"PR="D"PR="L""1600":"1030" *K$="T"PR="Z":PG:"34568"::''''' K$="A"PR="Z""1600" Z(K$="T"K$="A")PR;:#O;I,"4";I;"PLEASE SET PRINTER FIRST!":װ".1",O:I,-I:K$="S" ]K$="N"NIF,NIF+I:K$=(NIF+"@"):#O;O,"28";"NEXT":G,"":"n" K$="S""1800" "1085"-("5"K$="T")  "B";BR #:ӧ;"B":"1410":ԧ: L"@lQ7"::III T@6,I:"1410": x:0  °"27";"@";°"27";"l";°"23": :0  :1  @"23692","":F=PG̾"34818"::F:"34568":#O;O,"15";I;F;I,O;I;"HOLD 'Q'QUIT AFTER THIS PAGE";O::"1700"+(PR="Z"):" ";("--------------------------------"OB)::"23560"ɯ"Q"F J ''''': 9(10 PR="D");:"34761":(10 PR="D");: : /I;"4",O8;"":M=OI:"1800":F="5"̰"17"2:A$:F,8;1;" ";1;A$(1);0;(PR=A$);A$(2);0;" ";F+1,8;" ":F:F,8;"":;:"21",O;"";#O;I,O;I;I;" Select by Initial letter. " .M:K$=(M)+(K$M):PR=(K$(K$="I"K$="O"K$="K"K$="Z"K$="D"K$="L")):M:װ".1",I:װ".3",*:"65203",PR:"1432"-(""K$="I")-(""K$="O")-(" "K$="K")-("D"K$="D")-("L"K$="L"):"INTERFACE 1","OPUS I'FACE","KEMPSTON E ","ZX PRINTER ","LPRINT III ","DISCIPLE ","BAUD ("+BR+")" :K$"B""1080" l2I;I;"BAUD RATE REQUIRED? ";BR:K$="S":"1800" c#O;I,O;(M$="L");"   ":X$=" "+M$(̧*)+"":"9994":"9997":"65490",I:"65491",O:G:X$=M$("11")+". PRESS ANY KEY OR A TO ABORT... "+M$(̧*):"65491","4":G:J$=:"34567":"9988":װ".02","2":"9997":"65490",I:"65491",O:X$=" ":G:"4500":J$="A"  "120" W#O;I,O;O;"           ": &<"9930":"9994":"65203",O:"65201","&":"65202","" &<I:NIF="ER"#O;I,O;" L O A D E D !":"40001":þ"23560""9986":N=OIO:M=O7:.002xn,35#*:16,24;"";M;17,24;" USE ";18,24;" ANY ";19,24;" KEY!";20,24;"":ïM:N &þNIFžNIF>H* &(K$=(NIF+"@"):"23658","8":"300" &* &KH="24":BR="9600":C$(H,*)::N=H:C$(N):N:O,I,O8,NIF,PR,L,D,G: &"m";;"CONTENTS" &*"m";;"CONTENTS"ʰ"9900": '"23637+256*23638+5": '!U\N#FJX!X>R + ?????~`}ccCg{ccc 'Y"23637+256*23638-0058"::*v\:f\<0&K=\ 2B\ 2C\ 2D\"\6>+!s=\v!5J ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y2\͛#N#F4>>>>#>>>~:\ x *K\>Xn #^#V#v #~(~( :\ x !O > + BBBBB< c"|f``` `x``@d"23658","8":O=ç:I=:Y=O:X=O:E=O:"2":ڰ"2":O:O::#O;I,"8"; "PRESS QQUIT":O$(1000,3):Y$(1000):X$(1000):N=10 100010 :K$=:K$"Q"M=13:O$(N,M)=((*26)+65A):M:Y$(N)=Y:X$(N)=X:Y,X;(" "N<100d);(" "N>800 N<1000);N;7;O$(N):Y=(Y+1Y<19):X=X+(6Y):N K$="Q""8E3" FEY$(E),X$(E)-(E<"d")+(E>"800"E<"1E3");"";E;"";O$(E) ȕ"23658","8":O,O:O,O; "Enter any of the above 3-letter'words'[in O$(1000,3)]for searchcomparison or q to quit ";I$:I$="Q"I$="q""8E3" c"21","8";"SELECTED:- ";I$;#O;O,O; "Press any key to compare a BASICsearch and an INSTAMATCHIT one!!":װ".3",*:I:O:E="65100":Eڧ+;ٰ"2";I;I;Y$(E),X$(E)-(E<"d")+(E>"800"E<"1E3");E;O$(E):#O;O,O;"FOUND INSTANTLY BY INSTAMATCHIT! BASIC still searching:":װ".5","25":װ".5"," "  E#O;O,O;"  FOUND  by INSTAMATCHIT!  BASIC still searching:":װ".5",O:װ".5",-"10" ,N=11000:#0;;I,25;"";N:O$(N)=I$I;Y$(N),X$(N);(" "N<100d);(" "N>800 N<1000);N;7;O$(N):"400" @N:#O;I,O; "NOT FOUND! by BASIC! PRESS A KEY":װ".3",O:װ".4",-"20":I:O:"190" #O;I,O; "  FOUND!  by BASIC!  PRESS A KEY":װ".3",*:ڰ"7";I;I;I;Y$(N),X$(N)-(N<"d")+(N>"800"N<"1E3");N;O$(N):I:O: @E"2":ڰ"2":ٰ"7":ç:"5E4":"9815":"9994":"9986":O=ç:I= JU "    PLEASE    DON'T WAIT!    " T  "    INSTA-MATCHITis a very fast   BASIC string array search. It   can replace those slow 'FOR N   =15000:A$(N)='BORING'   ETC.ETC.with a call.   Read'INSTA-INFO' for details.     " " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"13";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "WK$="N"#O;I,"25";"NEXT":"23608","12":*"M";I;"CONTENTS" "K$="E"#:"9990" " "8905" " "23658","8":#O;O,O ;"ERASE ALL BUT INSTAMATCHIT GOSUB RUN DEMO CONTENTS NEXT": &WL"23637+256*23638-0276"::instamatch  !JLLͷd*FKJxd:A2C[D(CJ:C=( 2C("FCJ*H#BKABDM[L+R0>I#N#FCA#"D>Oƀ#N#F#~ #^#V+ ##= CH"F*HR0CL*FKH*K\KY\|0)n #^#V#v #Vz(~(!> &"M";;"INSTAMATCH" &*"M";;"INSTAMATCH"ʰ"8E3": &"INSTAMATCH"ʰ"8e3": '"23637+256*23638-0184"::UDGS  !JXX?????????????zł|S[kV '"23637+256*23638-0078"::deliner  !XX?6?! @2@!n!V&#n!X&n!'n!W&"B\>2D\ ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y2D\ ' "64E3":"23637+256*23638-148":: @2P1= d"9994":O=ç:I=:"23658",O:"7":ڰ"7":O:O::" 1.EDITORIAL 2.OUTLETTERS 3.'EXTRA INSTRUCTIONS' 4.CHECKOUT 5.OUTCLASS 6.DRIVECHAT 7.SHOUTBURST 8.LOOKOUT! 9.OUTPUT" wO,O:O,O;" ENTER 19MENU OPTIONS, CCAT,QQUITA FILENAME (JUST PRESS ENTER THEFILE ON TAPE)";N$ N$="Q"N$="q""8e3" u:N$="C"N$="c""Drive No.? ";DR:#O;I,"12";"";DR;" ":DR:#O;I,"8";"PRESS ANY KEY...":I:O:"200" N$"1"N$"9":N=1̰N$:N$:N:"editorial","letters1 ","instructn","checkout ","outclass ","drivechat","shout ","lookout ","output " "P"Drive No.? (0 for tape) ";DR:DR*,"11";" LOADING ":*"M";DR;N$ ,/DR*,"9";" PLAY THE TAPE ":N$ q:"9100":"9101":"64768":"34512":"9994":"23658","8":"9800":FRX="34818"+I:FRM=I:K$="Q" :"23692",O:"64949",FRM*(FRMI):K$="P""550" K$"0"K$"9""545"  "500" ! "545" #0O:F$=:F$"0"F$"9"K$=K$+F$:K$FRM=K$ $ &<;:#O;I,O ;" PRESS:1.THICK 2.THIN Q.QUIT" (O:K$=:K$="0"K$="Q" *K$="1"CH="":"560" +K$="2"CH="<":"560" , "552" 0n#O;O,O; "PRINT WHOLE FILE IN 3 COLUMNS COPY THIS PAGE ONLY QUIT" 3O:K$=:K$="Q""500" 5K$="P""570" 6K$="C""680" 8 "563" :s#O;O,O; " 1WIDE2WIDEFAST 3 MICRO 0QUIT" ; O:K$=:K$="Q"K$="0""500" <3K$="1""23607",CH:"64960","L":"64944":P1 =3K$="2""23607",CH:"64960","Y":"64944":P1 >3K$="3""23607",CH:"64960","Z":"64944":P1 ? "571" n#O;O,O; " THIS PAGE ONLY. PRESS:-1MICRO 2MINI 3NORM 0QUIT" O:K$=:K$="Q"K$="0"P1 @K$="1""23607",CH::"64946":"64960","Z":"64963":P1 @K$="2""23607",CH::"64946":"64960","L":"64963":P1 @K$="3""23607",CH::"64946":"64960","K":"64963":P1  "682" @2"7":ڰ"7":ç:ç:"34E3":"9994":O=ç:I= T "    by Mike Haine" ^ " OUTPRINT  provides extra print-out options of OUTLET text filesincluding 3-column printing. Nowthere's still a bug or two butseveral readers have been askingabout this utility and I don'twant to delay any further. Forexample,it's necessary to reLOADa text file to print it again.Onmy Opus it drops a character (itmay be a fault in my printer).Ifa solution is found I'll put amod in a later issue." " "8955" " O:K$= " K$="R" "aK$="C"#:;:#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "`K$="N"#:;:#O;I,"25";"NEXT":"23608","4":*"M";I;"CONTENTS" " "8905" "b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": #H"23637+256*23638-0784"::outprint  !J0^( \  > >  !u!*F # ~\(# 8 > +:G> :&oͩ0"!u|ɛ#0 #^((%N 3LDZZ*!*"2!*"*":E*u"u":G>k >*͂"*͂"*͂"͛*"[*R8 ":2ɯZ!@͐>   #KJD ɠ0$ >!@S2͐> >2S>*:=(O   !@"\>!X>R + ?????~`}ccCg{ccc #n"23637+256*23638-0054"::mendrc  !JІ%ІK!*!~# 0 x +>w# &z#O;O,O; "KEMPSTON E I'FACE 1 OPUS USER DISCIPLE QUIT" &|O:K$=:K$="Q" &~K$="K""9881": &"K$="I""BAUD RATE? ";BD:"B";BD &K$="I"K$="O""9887": &K$="U""9888": &K$="D""9889": & "9852" &"9883":"9895": &:/1 &:0 & &ԧ:ӧ;"B":"9895": & "9895": &@"6",I:"9895": &°"27";"@": &"M";;"OUTPRINT" &*"M";;"OUTPRINT"ʰ"8E3": &"OUTPRINT"ʰ"8e3": ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6YA$="0"65534,0:S:H$="M" 23556\="R"7:7:5:23624H\,63?::23296[:0:0:S:20:23385Y[ A$=""ƾ65534340T  170 *T>54000T=T-2:23368H[ "J65534,0:SB=(T+1):P=0:SB=64@A=88X ,$SB=72HA=89Y:P=8 6%SB=80PA=90Z:P=16 @(256*A+T)+16384@,0:.05|L,20:H$="M":23385Y[:AA=T:B=AA/32 :CC=B:C=AA-32 *CC:R=P+CC:T,0:T+1,0:T=54000160 J 170 TFAT=22528X+(32 *R)+C:(AT+16384@)=63?170 ^v(AT+16384@),63?:23377Q[:.01z# =,5:23385Y[:AT:H=23671w\:H=88XH=64@ hH=89YH=72H rH=90ZH=80P |CT,23670v\:(T+1),H:T=T+2:T=55536"500"  170 165535,A$:A$:S=65535:170 C=C-(Sƾ23556\=535C-S0)+(Sƾ23556\=568C+S<32 ):R=R+(Sƾ23556\=546R+S<24)-(Sƾ23556\=557R-S0):23385Y[:65534340T 170 F7:0:7::'''''"NOW READYTHE SEQUENCETABLE AS 54000,1536 (BUTREMEMBER YOU CAN PUT IT ANYWHEREMEMORY SO LONG AS YOU POKETHE ADDRESS INTO LOCATIONS 7 & 8OF THE REVEAL CODE).":N=0255:.02{# =,N:N:"FILENAME? ";N$:"DRIVE No.? (0=TAPE) ";D::DN$54000,1536 &%D*"M";D;N$54000,1536 X7:0:7::''"NOW READYTHE REVEALAS 23296,72 (BUTREMEMBER YOU CAN PUT IT ANYWHEREMEMORY WHEN YOU RE-LOAD ITANDIT WITH A CALLTHE START ADDRESS. ALSO REMEMBERTOTHE START OF THE + 78 WITH THE ADDRESS OF YOURSEQUENCE TABLESTART+ 21/22 & 50/51 WITH THE ADDRESS OF THEYOUINTO HIGHMEMORY MINUS 16384! IT IS SET AT46384 THE MOMENT.)":"FILENAME? ";N$:"DRIVE No.? (0=TAPE) ";D::DN$23296[,72H &D*"M";D;N$23296[,72H @1"4":ڰ"4":ç:ç:"4E4":O=ç:I=:"9994" T "    Malcolm GoodmanThis is the program that createdthe screen effects in our titlepage in this issue. With it, youcan make similar routines but toyour own design, that is,it willslowly reveal any storedin memory, square by square, butin YOUR chosen sequence." " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "HK$="N"#O;I,"25";"NEXT":*"M";I;"SMARTCART" " "8905" "d"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": #((#O;I,"28";"MORE":I:O:: &"M";;"SCRNREVEAL" &*"M";;"SCRNREVEAL"ʰ"8E3": &"REVEAL"ʰ"8e3": ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y ^#= 0R6-U^ kk:&:d"23658","8":O=ç:I=:BD="65534+256*65535":#:"  Smartcart ":"9800":K$"Q";:#O;O,O;" PRESS DRIVE NUMBER ANY OTHER KEYABORT...":I:O:D$=:D$"1"D$"8""59996",D$:;:#S;"6E4"/"2":I:S= @>;:"9994":O=ç:I=:1:1:7:0: T " by D.P. Smart" ^j" Smartcart  gives extra CAT infolike EXOCAT(Issue 17).It doesn'tshow BASIC size but it's faster!RUN this as it is or extract theREM at line 9997(Press E), SAVEthenin your own programs.Use 9997: PRINT 60000(or LPRINT)to(shows sectorsfree)or 60000/2(Kbytes free)CODE=59995,508.POKE 59996,Drive." " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"15";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "VK$="N"#O;I,"26";"NEXT":"23608","9":*"M";I;"CONTENTS" "K$="E"#:"9990" " "8905" " "23658","8":#O;O,O ;"ERASE ALL BUT Smartcart GOSUB RUN PROGRAM CONTENTS NEXT": &zS=:#O;O,O;"SCREEN KEMPSTON E USER ZX I'FACE 1 BAUD=";BD;" QUIT" &|"O:K$=:K$="S"K$="Q"S="2": &~K$="K""9883":"9895": &XK$="B""BAUD RATE? ";BD:"65535",(BD/"256"):"65534",BD-"65535"*"256":"9800" &K$="I""B";BD:"9887": &K$="U""9888": & K$="Z" & "9852" &:0 & &!ԧ:ӧ;"B":"9895":ԧ:ӧ;"T": & "9895": & °"27";"@";°"27";"l";°"18": &1"9997":"65534","":"65535","%":"8E3" &"M";;"SMARTCART" &*"M";;"SMARTCART"ʰ"9900": &"SMARTCART"ʰ"9900": '"23637+256*23638-0084"::deliner  !XX?6?! @7@!n! '#n!'n!'n! '"B\>2D\!v ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y!U(C) D.SMART 1989ͧW(ͧW >O ͧ>>> ][2!qrF(~2rF(:ݾ(5r~ݶ :<2~ ~ݦ ~(!>~# *0!] '> > !qF ~W#### ' >> F(> *M#~ ~ >V+^1 >###^#V1>,^#V1g>~`g>$gq!qF  YS!q"*V V &V(4~'ݾ8 * ~ݾ# 8~Nqw#  Z ??zł|S[kV  !J*S\+ U!; s#r#  #KO\B"2\Z(( *K\~Z( p͸#N#F R#p+q:\'!B2\! "\*{\"\:\!\_"F( !,!s#r~CO '"23637+256*23638-0129"::!Jp>G^>?GV*[\ :\ (% >2\BDM[Y\R8C[\}> 2\> 2\ T]*a\++R8S[\}> 2\ ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y 2\> 2\ T]*a\++R8S[\}> 2\ ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >zNjSC{J ՜t     \Witt gwti ars\sny pڗsorrs\զ efently. Cost\ o,n srni 1987\anat thslw \ˡ ab VAT ceps\a e fsh\o arė anpng. ^W psladsr\bscpo ps, t |\p iain\ srd. Iil\inca baun50t\bscpo l \ cprolli orr\ enu ar t\bscpons.\\T i a ofng\e gasuntbs\it a sw\cզ ¡-nniis\ a tng orrs. Ts\io a sstam.\\I adon,˾ntars'\ow scan}rtdiry\ur-inn m\snpf sck. ^Tio bcw 'd\ ۡ ed|c f u. We\ ndpnt\"ur'own" opo mply\(wc' cn ).\So ot san}rtds\ i a i |s\tf t inoeof\rtnanlng. Urs'\scan}rtd \}llsܦ tch\toow |c es-\allita rgor\raty!\\T ¡ tt orrs\ 10 o20 ¡acas\pIJnCz }rtd or\sf sc wc} \ss-p}bscrs\anss-stcd! ^O o  t\"ur'own" opo ars\w pĘ rtd, CATTab\sco}rtdWITHOUT ANY\l(expnpCHEZRON\lwcul -ud).\"Gd" sco}rtul\mp-sani r\bn sc -cycnand\t iswce ord\ f OUTLET sck. Ts\ula ulrn\uow so}rtd t\iulsetngup. "Bad"\sco}rtul rd\bn t ut֨.In\adon, 25cr ul\ad t | p ˪r\iĎb sf |sck\an ˪t ndn(en\tugst apnt). ^T resanoty\ociAust.Anbscpon\iΦ t l at\pnpanrės.\\Pa u uews\angsonnt xt\up onths. E w \ on, sll\sl pnto— \} bscponat\t pnpanrms.\\Noo fntr, '\rnPs acunt\an(¡, բy\anulss!). We' \nt cԧ an\acun gscck\Φ nnanilʬ\us! ^W  arask\wht i pnopo in\"TASBAS" (Is19). Ta\"ar'own", ro ot\Tasr2 BASIC, sܻr\u tcd synand\implubus\si t isafr\ic eo anst. It\rpu lt is\ pnopo an } only\as t tr,Mar Batn,\ut ZX pnopo wch\rkt t xer.\\Mar swt i y\t43 an200 sul\ ժ up of\ oponta nr\aib. Anmnts, Mark,\o t c opnopon? ^Wsulal caTASBAS\edt ur'ow srd\˘ rk. T˘ ipy-\gh obsl}nt\iin OUTLET. Fotan,\TASBAS SAVEaa -\ pg and, }u oa\i uncd synx\bInr 1,OanDisp\a ers ion\ann-nnpgm.It\} ig֦it\rrntЧ kng!\\EXMOD, i tisica\pgm.It' EXPENSHEET\(Is12) wculng\ 1988 acntcn. We\dn'siun 1989! BREAK\i anenMERGE..etc."EXMOD".\Re-SAVE tRUN 9980 (9983 if\). ^Ji B oB Pubsng,\w p FASTWORD, t\tuei Is19,\wt untt\t p oFASTWORD iw\ `7.95.Temry\ocpgm.\\Wn'rt t r-\en itpاd\nka. It'snnt\¡ or iiflt\anottnga cզ\slpsng!\\We' a inira w\anscena cad.\T gh-oa ̢ on\ARTIST II an16/48 PAD, t w\ toinal\pgma ̢ o own ^BONABANNER (in an in\Is8). So ot gh-s\scen ղefm\ntscenotra\caunbod, saand\arbblant\՘sin-u gpcarst.\\Sanogh-s, iu\a HR5 pnana ub \u gh-sce mp\opontuub- ed\wcnt py, trBREAK and\at fno 9769 -\ POKE 55162,65: POKE 55163,4\T eoc}ollt\iiuall9769.I tise\trPOKE 64941,65: POKE 64942,4\i OUTPRINT i 9895.T HR5\eu a Epn-sn~rd\ e˘. ^CHARMASTER, radnnt\car, e |c ain\}u Uºt1 in\tisan aladd\up occrs\ n'nt TOO ofn!\AfCHARMASTER, pa t\nt anզ ccr\carunsty' t\ۡtnrsa ofr!\\We' a iniraut\stoo LENDING of\Sct anmoks\angsOUTLET ars.Ian\ul gsons\oe or ۡtntn\w i us. OuOUTLETTERs\oOUTBOARD ul ud\sI ubt\ulnt ¡ nd\ ^t okrlul\pp OUTLET a ae\ca acty.\\A ar'asauin\JACKSOFT. T ARE o ot\(laid) incnw\o sund. Adds65000 is\POKEt1 bt JACKSOFT\˘! T su¢\fi bt tait\em r rا anis\un—ab un tr\asmb a65000! Corciby\BREAKini (Φ RUNng) and\enr: 3950 POKE PEEK 23637 +\256 * PEEK 23638 + 2872,0:STOP\\EnRUN 3950 t \3950 anu RUN 4980 (4983 if\) -SAVE t pgm. ^Otga: JP ootodd\instconAT THE END oa\sns-asmbd.If\i ubt, adRET at end.\\SAVE *, SAVE t ˘,tits\mwniu t PSO\instco ll\ SAVE allbung\t H nco }l冨 t\ngtot ˘.\\Dmnto t end\otnop˘ch\aLD DE,(16384) }u ty\ort son\an s-asmbd.\\JACKSOFT alw3 byADD\IX,IX anADD IY,IY anJP (HL)\insaot rc2, 2 and ^1, OTDR smbaOUTI.Y\} ca al t unDEFB\iallet,i ct,u\ artuuntm!\\Now, 'gson: Set\upn ELITE ՘ as\JACKSOFT sngtrng\mntorun²lo \t x i PICA ՘. Ty\o i ELITE ՘!\\Mall Gd wt in\ fconte 1 an2\} eni TURBOMOVER\pg at ase- t\st wР mr1 an2.\\Al, 7 aratmps\cnmon(#19)NONE\ cc pڨcon! ^Filly, ֨ t}st |ck\ise4 20 a aib\ant mo 1-3 t a\ntot!\\\ Ro & Ba Cars\ CHEZRON SOFTWARE\ 605, LghugRd\ Birsll,LsLE4 4NJ.^ an2.\\Al, 7 aratmps\cnmon(#19)NONE\ c6*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >zh ;o<ʓIΘXF limited only by the speed of the printing as each match will be instantaneous (in a test on the CHEZRON database it instantly OUTLET'SEXTRA \ INSTAMATCHIT bBa Cars\ ----------------------------\T xi iuºtr\BASIC pgmrs.IpĘan\alsinsnstng\ararc u. If\ ewt anBASIC\i wce } a\reni l-\no ary, l kw\sFOR NEXT o} \ung,e.g., IF A$(F,N,M)= "rd"\THEN GO SUB etc... ! ^I' te INSTAMATCHIT\afb asb.Irks\tanmonons,\tal oroanent\anppett rst\ocrn onlot stng\ughoerocrn.\\T ˘'i REM a 9815\i t xim. Textcit\u, psE at t\, SAVE t REM anMERGE it\in anouow pgms.\\W ui upgmrst\CLEAR 65099 ost GO SUB\9815 t 259 ˘ bys\in ra65100. T ˘\ SAVEan-LOADein\t r in'\sn˘ i REMs. ^INSTAMATCHIT iutO$\at ar arcand\I$ at stnwcu\a on srst\DIMeno O$ (iMUST DIM-\enoarstng) and\sc I$ arl\stnab NOT aa ary.\Itiuwnglor\caal l t\"ab und" s.\\Ipfnab\u:\\POKE 65208,CODE "I" (stng)\\POKE 65226,CODE "O" (ar)\\ ..w "I" an"O" } any\} tf A Z. ^I ststMUST POKE a\CAPITAL tINSTAMATCHIT\ r } u tr\upoԫ} t r-\b i t aca snst\arl. No su t\GO SUB 9815 BEFORE t Φing\cn ansNOT u iafr\oI$ anO$ l ain!\W t ˘ ii o u\}l ite.g...\\ LET E = USR 65100\\Tt prnon\mot FIRST OCCURRENCE\oI$ i O$ i t USR ncon.\E.g.,iI$ i"st" anO$(6,4)\i"st" t LET E = USR 65100\ul E ea 6 PRINT\O$(E) owulsit. ^He'rtemp i a\BASIC adn wcacpt50\mndsܦi O$().T ur\intmni I$ wcs\ tctt in}l\eni t mnary:\O$(50,6). Insaoung-\\ INPUT I$\ FOR N = 1 TO 50\ IF O$(N,TO LEN I$)= I$ THEN...\ NEXT N\ ...u ts:-\ INPUT I$\ LET E=USR 65100\ IF E THEN...\\No tE i0 itcis\ and, idn'kw\alady,t expso 'IF E' is\t a'IF E<>0' - i.e. if\E (ott ). ^I s}s, e iO$ 3\o4 nol, uld\rllonle nt\PRIMARY no ia\} ocrw et\eco ostntn\POKE 65192,201 Φ unUSR\65100 wcl t r t\FIRST OCCURRENCE ot on\ot sroustni E\alp ot mof\enti t ary. I otr\rditatO$ ao ant\stng, e.g. O$(6,3,20) ul\taa6 * 3 * 20 = 3600 and\t ri E ul\t eco ot srt\oI$ t tt. Y l tn\eۡ BASIC r \}l冨 t ened. To\cfbemp... ^ DIM O$(3,5)\ LET O$(1)= "ONE "\ LET O$(2)= "TWO "\ LET O$(3)= "THREE"\ LET I$="TWO"\\LET E = USR 65100 l E =\6 (a O$ ao stnof\3 5 = 15 bynant\rstot ra\arcnr: "TWO" it 6th\ccr). U tr \t prno e:\\LET E =\ ABS(INT(-USR 65100/(B*C*D)))\\\...w B,C,D a al non\eEXCEPT t rso in\a arO$(A,B,C,D). ^Appe poemp of\2 no ary, O$(A,B):-\\ LET E=ABS(INT(-USR 65100/(B)))\\ ...eldABS(INT(-6/(5)))\wci2, t 2nent. T\coangs} }l-\冨 b-nonind.\Ie tmpt\u'l p|blets\ext fưt- su\INSTAMATCHIT aiitut\t POKE 65192. I c i 99\}o100 al ll\eit prnon.\Innlly, ieth\roni pg }n\stc|c t rl\INSTAMATCHIT tPOKE 65192,0\ou GO SUB 9815 ain. ^T Φinemponled\ no ustn\caocrnot\ stnt iatUSR\addss. Tn}l iUSR\65110 - s mait's\ectl10 զ t t rst.\He ia emp:-\\I ~| o300 s\anaddssܦi the\no ary: O$(300,6,15)\wcpĘ6 o15\ccri ngtch\ anaddss. Saed\ pnal tЧ nin\Lonn. T r"Lonn" i any\ot addsapaon\t 4th, 5to6t nd-\ino t ot addss.\Tsi BASIC uled:- ^10 FOR N = 1 TO 300\20 IF O$(N,4, TO 6)= "Lonn"\ OR O$(N,5, TO 6)= "Lonn"\ OR O$(N,6, TO 6) ="Lonn"\ THEN LPRINT ETC....\60 NEXT N\\\Rep t aʪ th:-\\10 LET I$="Lonn"\20 LET E=USR 65100\30 IF E=0 THEN STOP\40 LPRINT FIRST LONDON ADDRESS\ (IN O$(E) ETC.)\\50 LET E=USR 65110\60 IF E=0 THEN STOP\70 LPRINT NEXT LONDON ADDRESS\ (IN O$(E) ETC.)\80 GO TO 50 ^T seot tl \onlbt seot\pnnactcl \insn(i so t\CHEZRON ~| iinsntly\lt sce tal r\Lon sܡrs' addss).T\ranզ mpt\art gat nin\¡. I al t stI' \I e ab ct\զ t աnru in\nnstne i \40K l-no ary.No\te ia entri t\emp ~| acnlly\s at fnof\"Lonn"iulsl und.\Hor, ulLonnrry!\Taitpb sada\s at enoI$. ^INSTAMATCHIT arcl-\no aryaity\ o anstn \a tt,emp, arch\"TEST" ul SUCCESSFUL,\(e it r"TEST" \pnt) iuar2\nª entning\"NOTE" an"STOP" (t "TE"\enn"NOTE" an"ST" srng\"STOP").I pc—, tsuld\ r ent.\\Filly,t asmbu¢ \nt addsoanab\e extcasnd-\aԢ "c" - u¢ u\} MERGE in anouown\asmbpgmi JACKSOFT\rt.IiSAVEi tise\a"trJ". Tu ist ^aJACKSOFT (Is12)anad\uow asmbsntn\ai t c (il \ad usn- e\JACKSOFT instcono MERGE\int u¢ i t\dd ousng).\\We acsa\ab f c ˘\u¢ at A sr\tby t CALL GETVAR and\t addsiri HL.\ResrB, C, D, E H anL a\u sul PUSHerst\ pr anees.\\T by i t A\sndo t ty of\ab eaniasd\i t lnb:- ^ ADD TO HL\COMMAND ON RETURN VAR.TYPE\------- --------- --------\LD A,"a""z" 1 SINGLE CHAR\ NUMERIC\\LD A,aʪ+64 MULTI CHAR\ No. o NUMERIC\ trs+1\\LD A, " +32 3 No. ARRAY\\LD A, " +128 FOR..NEXT\ 18\\LD A, " -32 STRING\ 3\\LD A, " +96 No. o STRING\ non ARRAY\ ¡2+3 ^T ado HL o r is\ sot ab ar\ilcat itlf,\ngtetc. t aca r-\b tsul adsd\nno wnur\pg .\\Atal OUTLET pgms, if\eanrlor\c}o sw i \us.\ - Ban.^¡2+3 ^T ado HL o r is\ sot ab ar\ilcat itlf,\ngtetc. t aca r-\b tsul adsd\nno wnur\pg .\\Atal OUTLET pgms, if\eanr6*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *m< S>>*̞B< ![#R0~ 8~> > >z#~1Ə]ߕ6כM BΣ}k.("L[R \ May, 1989 Pa Reply\ Ba Gaff...........02 02\ J.D. Stnr........03 04\ Patc Kirkm......05 06\ Kel McW.........08 10\ Mar Batn........11 13\ Ke Cnts.......15 16\ Gor Rorts.......17 17\ HarrHaln.......18 18\ PSedn........19 20\ J.N. Bur...........21 23\ BoB Sth............24 26\ C. GnDin.......27 28\ PeBell...........29 29\ TWght........30 30\ Gor Henrn.....31 31\ R. McG.............32 35 ^F Ba Gaff, CHESSINGTON\\DRo anBan,\\I ans t eso ow\ pnthugt 128K RS232\rtTasr2, ժ t\2nRANDOMIZE snfm\ 250 (t o tt FN in\it), anad 279 t\t |u anpn՘:-\\279 FORMAT"p";1200:POKE 23349,39\ : POKE 23350,1: REM 128K/+2\or...\279 FORMAT LPRINT "c";"u"\ :REM +3 Centڼcs\or...\279 FORMAT LPRINT "r";"u"\ :FORMAT LINE 1200:REM+3 RS232\\ Tnks, Ba - B.C. ^F J.D. Stnr, SHEFFIELD\\\\DMr. Cars,\\I Sct +3 ana\Ci® 120-D.\\Mi pb apnis\ p gphfm\}l冨~ զ ply\o t pnt isb\bpnf t scen.\\ Yrnly,\\\ J.D. Stnr ^To: Mr. J.D. Stnf Ban\\Tia insnpڞct!\Epn-sn~rd, anty\gpc՘ nl\o o1920 twcis\aun1/216toa inc- t\ at r} on.\\I' ! Ca u\nr upniEpn-\mb anal n ۡ\ougp~ r th\o ( r u).\I as  ۡ gph\~ a ptno t\scen? Iirinlsb\ p pnall\to ano n stp\s mpΦ eng\t o .Pa w\|c tanզ in! - Ban ^> Patc Kirkm, CALDEY ISLAND\\\DSir,\\ ... twI I\ulBREAK f WITCHWOOD\3D...\ ...al mHR5 pnr\anHilr|Inr 1 uld\pnanous! I'm\in a RS232/Mi }b\ itlps. Ca u\ anps?\\ ...Mpnn\t. Ha a addspa?\\D ancdof\Css?\ - Patc Kirkm ^TPatc Kirk f Ban\\\\DPatck,\\I'  ib"BREAK FROM\WITCHWOOD 3D " a mp\t btnot\ooules} t\pg unBREAK! It\r- itulI! It\tr, u'l narlall\mra u c\˘. "BREAK" iBASIC ROM\u¢ eBASIC pgms.\Iionlefcª i c\˘ pgmit pgm\cckBREAK itlantn\rn BASIC wcialst\unw i mra s! ^I trllpnt\thuguHilr|Inr\ans }b u\} u uInr 1 RS232\tt. Y } }b fm\MICROSNIPS, 37 SeRd,\Waly,Mery, L45 4QN r\`9.95 + `2 s. W t\it,cc upna as,\iuHilr|Inr is\Centڼcs, u'l alr\t pstci t pn\acpRS232.\\HR5 pnippeby\W.A.V.E., 1, BuccucStet,\Barw-in-Furss, Cumba, LA14\1SR `4.45 p`1 s.\\Sorry!- Ncss!- I' t\ceug w ch\pgms! - Ban ^Fm: Kel McW, MERSEYSIDE\\DRon,\\Jus up~ o msysm,\I sl u t +3. Hor, \eb OUTLET I w\ t Fiz f MGT\wcalw nct\Inr 1 ctl t +3\tanm48K t\d pon.T onlpbm\ttitionly\rki 48K ՘. Ii t +3\՘ t pg l ct\ao aI in BASIC\t +3 css.\\I' ntlughw\pn- t SLC24-10 wch\pblanxI'm ^pintt gpcs,\e.g. spgmtu t\COPY mn  t\pns—. Tincs\pgm Taspn+3 and\Ars2 I' o t out\a impڪSCREEN$ COPY\pg al ainr\ft u Tas \up~ tipndrs.\\ KinRerds,\\ Kel McW\ ^TKel Mcw f Ban\Nmu¢ s— \ANY ll- pn}u\sce o i\256 b192 wat a\9- pnnl\o o1920. I as t\Si24- pnr? A\SCREEN$ l onlepnt\to o255 * 192 -\e g, smpa sll\255 * 192 c"t" i\uotr oslts.\T onlI } tn o\go scen\mid16 ci y,\ARTIST 2 tr c\ܛtt spt gpcs\~ uf csl c\annii t en tt\ul ut rc\- s sk! ^F Mar Batn, MOTHERWELL\\DRo & Ban,\\RernCHECKOUT (Is17) I\agMICROMATE iexlnt.T\t cn t -\m} al u t\ot - alܛtr\- u orˡ t MERGE\err.T onlI en\ub tnstMINITAPE\a OUTLET xs!?\\I EXOCAT (#17) whis\t ngtoPRINT t\n?\\I  ab lC. Cyn\w ntub th\SPRITE DESIGNER(f ARTIST II). ^AltugI t 48K ron,\ir tcds\oltr. T lng\f SoftTechcrks...\\"...anBASIC CLEAR RAM 200\bygt t addsit\rntles.InscBASIC and\cn al ot LOAD anSAVE\mnd cd osc\eints."\\I ulmn N W,\"T Ast֡r'Soft Hand-\Bk" bR.A. Macne.Ists\upgms, al t\Sctm, o al asctof\astmaniacmeby\iinrª xt.\\ Mar Batn ^TMar Bat f Ban\\DMark,\\Ha! - I f u64 mn\tDON'T u t ZX\pntTasr2 u\ARE unTasr3. I ess\texpint c oa\pnopo i uTas|s- u\ughupnafu\ughTasr3, s?\\T a MINITAPE i \tnsOUTLET xis\rp}u t }rtds\a -rtI uld\excALL OUTLET  as\fl(unsMINITAPE es\ Sinciܟni t\?). ^PRINT  ni in\a tingtwciwhy\t' i BASIC aid\a "eno" er(th\cds) unsft\enot w cang\it. I T3TO2(#20)I uFAILSAFE\(#6) ct er nd\t eno.\\T SinciCAT pg unts\cranonlugh\ t as2 crs. A\PRINT oonl10 byll\apaa1K o t SinciCAT\aiu(rof)1 cand\t pg undtu 2\(= 1K a512 bycr).\\Tnkt otin!\ - Ban ^F Ke Cnts, TWICKENHAM\\\DRon/Ban,\\ ...m[ps] eraut\ANAGRAMMER it 60 es\rk.\\I wt ttmy\BtEP44, Tasr2 anE.M.\Dufeld'˘ f Is8 \} ssi kng\tpgmt"d\apal" ud.\\O t eso ost,uldn't\i ca nOUTLET by\2nd-csst?\\ - Ke Cnts ^TKe Cntf Ban\\Li 60 i ANAGRAMMER sul\spt, i.e. EDIT t ,\-mi65 an UP TO\AND INCLUDING LET B=1 anenr\t . Re-EDIT 60 and\tDELETE erytnAFTER\LET B = 1 or, izy, REM\i afLET B = 1. Is\ststt NO\EFFECT o t rcnnof\t pg - isspys\t moagmsb\i t ur'rd.\\OuغcIS u 2ncss\srllRo ofn\u1scsw ps of\r  t sise\!\ - Ban ^F Gor Rorts, CUMBRIA\\I Is20 A Coasaut\ռr128k. M+2 rks\OK tFer TX tRGB\nf RaRenlLtd.\\I iallrc}b\f A~pEctڼcwcd\r ad. T ult\ghbA.E. i t\an¡ RaRenlpped\}b wcrrs¡.\BRIGHT rkO.K. o mp.\\Tnks,Gorn.I tn A Cox's\SINCLAIR 128K ռtis\fn +2 ann'sw\BRIGHT o r ռrs.Tnks\t cssrmwch\I'l i OUTLET (Dic Mulns\pa ֨!) - Ban ^>HarrR. Haln, PETERBOROUGH\\DMr. Cars,\\I e unaran\exlnpg rۈl\acunn- OCP +80 Fin\Mar. I  css\tnsrnto sand\ I e t a p|bly\otpgmwcul \sal tul fm\sc.Ca gsan ?\\Pa at xOUTLETTER\f P. Sedn. Hr a\pg }lCASHBOOK wch\ ectlwed! In\adon, at tafr\tf J.N. Bur wcy\al oinst!\ - Ban ^Fm: P. Sedn, 31 AthԢ\Ae, Boln, Lancs. BL1 6QS\\DBan,\\I pl S Monk'tr\i is19, I tn t addss\ iis:- SUPERSOFT,\CANNING ROAD, WEALDSTONE HA3 7SJ\(Tel: 01 861 1166)\\I o otipgms\}l"Cashok".Iimp\acuntpg tۡ\alloas. Ill\r i 128K ՘ anl alw\ u ext raa\RAMsk. O ot sul\ait at spt\t tnconbrnۡ\t> } sal of ^ri ~,˘, aunt,etc.\T pg al pnto Epn\ty pnrs. I i- ch\mpt Fin Maby\OCP.I unimp nrt\ u bDisat SAVE and\LOAD mnd i sll\BASIC pg wcadin\rst.\ P. Sedn\\\\\Tnks! AngltCASHBOOK\ st ty opgm\tHarrHal asng\aui t pntr!\\ - Ban ^Fm: J.N.Bur, BARNET\\\DRo anBan,\\T ti Is19 f Tony\Fel not OCP "Addss\Ma+80". T OCP pgms\a ndby: EEC Ltd.\18-21 Misur H, Clrn\Hill, ClnSPer, Bucks.\SL9 9UE. (0753 888866) I n't\kit} ltt\Disp inr ta\l rttry.\\O t bcot Word\Mapgms,MF G Miof\"Windsh", RabHth, Welwyn\Herts. AL6 9UF (a inn~nt\pgmr)ab ppl\ ^ta Osning\WorMaIV, AddsMar\II anM MaII. All\thpgm mb\tt Opnrt. If\EEC }n'lp,Mr.Migh\ab asst. I 1987 t sc\s`12. T pgm al\aib o ant\Kemps inr o 5-1/4"\sc. I ulgsa SAE\tanenir Mr. Mis.\\\ConrnBan'pnr\eng, mMT80+ sr\tcef t aand\Φ t pt lr. It\ antub at\all. I ulexca "unr-\er" r i t y. ^O i fntr, I\ntlaw pbmth\mODis˪rt d. I\tt pb id\6116 2K RAM cp. W pd,\antt ot "CONFIG"\pg f t Sctm\Dis˪rCb,(Outard).\I  a 80 tc nd\d uannng.\\ Yrnly\\ J.N. Bur\\\Tn t in. Iand\w I } afrpnr\I sl rinl onat\"sr" edan"unr"eds!\ - Ban ^F BoB Sth, PETERBOROUGH\\\DOUTLET,\\Tnkrctst\is(N19) I st\impsd. I rrld\JUMBOCHARS. Tt'mrof\pgm. I o if\I ulalt cct,\Humm! Well, I pا I uld,\iul c ob.\I o rr զ ots\ty ou¢ i t .\\Noo t i a my\wng. I ktip|bly\ol soDisp\owr(anۡ oPD\oo) I' kw ^w I } naut\o ˘ubt PD. I\ a asmbtI uld\ al tI }n, r\emp, LanSa fm\t t pgm.I } ts\ aI kwed\ l t mI\ul t opo of\int sc.\\I temrs\aft RST 8 mnanall\I ei inis\rpnmsc! N I }n\l u...\\I wt M.G.T. as\I  ply. (I only\Ф t trof\inron). ^Ianakw Ld\ anCat(ansblE)\tul w.\\Y } tw a\t Ȣ(I }n' t only\o w sn'kw!)o}n\d at lng\addss:\ BoB Sth,\ 57, Cbte\ Pasn\ Perugh\ PE4 6EQ\\Tnkt lrs,\ Al t st, BoB Sth.\\Yes, I snզ ¡ gng\t JUMBOCHARS "nt" t in\wnt ˘! V. flt!\ - Ban ^Fm: C.GnDIXON ROSS-ON-WYE\\DRon,\\O oursnnts\eninaut u of\rb sci ng-\d. I ۡ\exen tt an\n¡ a tt\ta rtung.\\Ba}ll mr\tt siڎni a\cԧennnaniany\rcot gc\ana boft sc\tl ad t\salltallot\}rdarenԤ.W t sc\ifpot co of ^ڎo irant\i~not rcs\˻nsdd. I untt\ooo¡ t sysm\ab anI ad\unt fp-oscs.\\ GnDIXON.\\\\Tnkt p, Gnt.\\ - Ban ^F PeBell, 5 Mil Hill\Cԧ, SHOREHAM BY SEA,W.Susx\BN43 5TP\\DYo,\\BeBa4.0 bAndWghis\exlnanBEEP! ll\˪t erbt rn\nnou ot the\cnls.\\It r nnSCRABBLE\o 128K ul in\uct I \i on 128K s I y\ ab lpĘ\rct o .\\ PeBell\\Mantnks, Per. - Ban ^Fm: TWght, Lcs.\\DRon,\\I ull t n-\rScbb t 48K\Sct i isas\noi t ts.\O ot al ¡ gaton\mrs. I s t\m n!\\Yrs,\\TWght\\\Right! I'l iI } nit\ansc ii ise.\\ - Ban ^Fm:Gor Henrn-ABERDEEN\\DRo & Ban,\\I' mtt\lnt-up:- SPEC.48; OPUS\ng s& POLO pnr(Epn\mt.).I u t lng\pgs:-THE LAST WORD(pڗsr);\OMNICALC 2;& MASTERFILE(09).\I u t pgs. rs-\nn,wncmrsp\sts, inst& env.\ls. I al ebo el\st& pbd, |ckmn\& oc}ollPonon!\\Welˡ! Mantnkt\pgts. I tsid\mtasn u\DATODAZ?\ - Ban.^Fm: R. McG\\DRo & Ban,\\Firsoall, tnkgat\Ȣ. Ia\a  t\ial ܛti ¡ ch\nth'stch.May t a\զ t 24 hri 'Cars'\~y!\\It'pmua orr\t 'gses' ata\nn }۠lt\prtrtt\nnt, acally\'u' t mr.\\Posblt onlexpo \ti'YSincir' ats ^einc ۡ lpl\uºtpgms. [Iu \FULL oinsi t oold\~ys, st od!-BC]\EacisitΦ rly\aid.\\O aI a nflty\tiuxarcs. I am\trn at in Tasrd\II 'غsng' Φ\llpnni 80\m ro mBtHR5\pnr(I kiiectly\'s ot art' iits\ m՘seds), I\a exenngaflty\tnsrnt s. T\pg n'acpܟnin\t ca"CODE".\W a I inwn? Ca u\lp? ^I' e tnnomng\Ęesng\mnto ĘoI en.\Dtn tul wn\ll?\\On ai tnkgat\Ȣ. I t rdoMr.\Sck.... Li nanpsr!\\ - R. McG\ ^To: Mr. R. McG f Ban\Tnks!I' e o t Ęo\iaiisn' t\Sctm.IcOUTLET o a\750K Disp sI'nr\adnntng tt\ c os I tn \so o bc- r\manܾcs.\\OUTLET xa mpsd\˘. Iulao in\Tasru'angss\ccrs. COL80(Is18) ll\ 80 m pnand, if\alls et xt\ankBASIC pgmng,\e tpg w\ mpst xtn\؟ iin rinsaof\LPRINTing, SAVE anai|ck\in Tasrd. - Ban.^. Iulao in\Tasru'angss\ccrs. COL80(Is18) ll\ 80 m pnand, if\all*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z`8  \Nexnth'isUTILITY 2\tincBASIC bck\ an -mtt\} ժ wР bckoBASIC\ootcon ectly\w nt AND adsts\anGO SUB anGO TO }lletc.!\T'a exlnro of\MAKE FOUR, t ar - al\}lFi Row. Tt't\wI }l iw iat!\I' onl on - bcn!\I' r nnng\stg- it' od! ^OUTPUT ParThoMallm\Gdn'eo pgm\pڨcon; BYTECOUNT indy\uºt nt ˘ ngth\otuar\otl ar. I' t\auOUTCLASS - \sntot t\DRIVECHAT icnko th\tofnܾc- srt\pannims. T'a\uºt }l冨 t crs\oaninanpgm\t}l冨t o of\a ar´a l;mp\arcct/ ilngand\uºt t urof\Tasr2 YOU ntm;tn\apgm- o ܇c-\f CAT, t otզ d\rnf DATA. T \ ^ srxangpc\adn CAVES OF MYSTERY\ w aa ur. I a\tt զ s I tn anI\ fo OUTCLASS tt\I } p|blu ۡtng\el , aual, n'\rpiI s i o or\t զ pgms!\\I' smpurl,\c ˘ ru¢\BASIC stnary}ld\DIMSORTER mpnts\ise'INSTAMATCHIT arch\u¢ i i Ise\23. We'l e.\\ - Ban.^p|blu ۡtng\el , aual, n'\rpiI s i o or\t զ pgms!\\I'K *v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z֌[ˑ \T'ag lco of\scpi tnth'ws!\\Iat mr\psu'tn t ST ant\A a t "cot\աnt". No, our, ty\a sl rcty\mrs. O40% oal С\mrla Sctms,20%\a Com̦ 64's, 20% Amstd\CPCs- ܛt 80% oall\s!T ST anA only\4% ch! SO WHY DO THEY GET SUCH\DISPROPORTIONATE MEDIA COVERAGE? ^T e urtt\Amsta uncsc\d t wР n of\Sctm(exp+3), 3" of\ur ant ۡ rt\ordpڗsng/spadset\c tpnr/u etc\ant +3, }st\rtal t\+3'unpbm.\Amstal bnnt\munArn's\Arc'riards.Hmmm!\\Tt'al t ws! No is\tfrt. A rry\}rrnppeot mn\l t RearcEst-\abshnorro t\A4 ansitad. Mosts\a adħ e alr\u ainson. ^Wel it wco a\t tnt it\eot nthlȢs!\\CRASH anCOMPUTER SHOPPER (t\t sos) aib\i ¡ anI' a|n̢d\PERSONAL COMPUTER WORLD aa\s o¡. Apntldy\lt t Sct is\sl t m1 mand\istnon.\\Wcas...\\YOUR SINCLAIR tsngr\cnu¢, sce om\uºtana i o t\unnZ80 op˘(wch\tp|blcf r\OUTCLASS snth!). ^YS al eMUSIC MAESTRO if\tt'u|g.\\SINCLAIR USER sndsoa\ lnAROUND ar's\inira  ct\moBASIC tt\}llGO SUB. Tt\ansi "Tab 1" and, u\esit, r pnit!\(Ianydnt kt\anse anoOUTLET's\"THAT'S THE TICKET" pgms!)\SU al okbeflat ROM\anadė uld-\pgmr.\\I' os for\ I } sl u\aumst- cth\BREAKTHRU' i tise... ^I snal Sun~-wna\r roiansit\rnw mTV spnt\srant u}\ir(nSct owrs\} on!). Tn, aI s\snBREAKTHRU an t\LAST sce mSct t!\\I srai anuno\sce ulpڗe t\xsce e w al t\"bcks" e ժd. I\adsab anall\ell. Tesain... Ts\¡ im t xt\sce e tugt o\bc ft! A{{gggghhh! Kp\-ccng. It' u. I'\զ ¡ sit\rtr! So, ioc}olly\sbc ing... ^Aasisul"il" \} mp t .Bt\y, o cn I i \ 35 s! I t\t3 w u\sau7 nds!Bee ,\u'l sl nir\mp u' զ n\I tnk.\\Oh, s. I t spy\pbm. It'mMul€ of\al tngs! I t ed\ncedcanr\ic unpgnan-\pgn¡(tt\Sct OFF our) anit\emok. Now, wt't xt\c?...\\ - Ban.^l nir\mp u' զ n\I tnk.\\Oh, s. I t spy\pbm. It'mMul€ of\al tngs! I t ed\ncedcanr\ic unpgnan-\pgn¡(tt\SW *v\")J!J~#N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >µ *ɉDgŎӏ3{3{{~{{3s{{3,'{4{CoCoCIG)`]v>I' g, roapo'BEST OF PCW ASSEMBLER\ROUTINES FOR THE Z80' bCenryCom}onLtd. - Mallm\Gdn, 17 Bokl Ae,\Lds,LS17 8QA (Tel:0532 683618) ^WANTED:AMX M mARTIST 2Фllaaۈb p.C. GnDIXON, Kyr'Css,\Persw, Ross-on-W, HR9 6LD\(Tel: 0989 62715) ^ THE DISC ORGANISER DISCIPLE anPLUS D USERS.\DIRECTORY ORGANISATION sw\pgi anorswn}sc!ALSO SECTOR CHECK& REPAIR; RECOVER ERASED PROGS;\MULTIPLE E & Re AND MUCHMORE! O Au-tnsr\ al Disrts.ONLY `5(inc.p&i GB) Oraad`1.50.\BETTERBYTES SOFTWARE, 10 SPITAL\TERRACE, GOSFORTH, NEWCASTLE\UPON TYNE. NE3 1UT. ^ZX-COMAL inc Engsh\al. Stc upgms\tPROC, LOOP, CASE, etc.\Sing entry, 32K\pgmb RAM fe. Norlly\onl oonin\inctpo  usocd. Onl135 dkr(au`12) incns.\Pa u GIRO 8 56 41 91.\Addss: LMornn,\Brygrn 29, DK-7120 Vej\0st, Denrk. DELIVERY: 14 DAYS ^O R.D. Di Tr\, `25.00 oasofr. -A Rutrrd, 33 Montϡry\Rd, Co, Farnugh, Hants,\GU14 0AY ^ OPUS DISCOVERY CLUB \W ilotiws-twcio sans\ft, in, ps, etc. :-\57 St.SarRd,WEST CROYDONSury, CR0 2XE ^ OUTBOARD BB ADVERT \T G֡ AHo iBB tt\SPECCY co }ld\SPECTACULAR. Y } nion\(01)888-8894 ,iurl\ew~( PRESTEL) s/w.T\ Sccyi*sct.0#\t! - Ba Gaff.\\^Wan w ar} aty\opښso app}-\o ft? I } acu\tmnthlȢ- AdnMac Co. T\ur llt tckand\p omp\pgmanninCOMPLETE\ARCADE GAMES wt i c\˘. Curnis`1.50 fm\Nic Les, 52 Ky Csnt,\Wtcrch, Carff, CF4 1SU ^ COMPUTER PRINTER OWNERS Y } oexn if uPRINTER RIBBON\CASSETTES RE-INKED BY ALADDINK. Foilop anrėpa nsnpnr\+՘ :ALADDINK,Euth,Bercks, TD14 5AP opТ\08907 50965 u 8p Mon-Sa ^Micd }rtds-`1.60 chUnbnDS/DD sks:- 3.5"-`1.50, 5.25"-50p.\cd ls:-30se (=20 inrs+30 rs) \s ls(55*35mm)-1520\ComatC10 }st\(unld)-30cfmCHEZRON(bc aity)ORDERS SENT WITH YOUR NEXT ISSUE ^REPAIRS:Sct 48K/Ps-`12.90128K-`14.90, P2-`15.90, OsDis˪ry-`21.90. Sena\VSE TECHNICAL SERVICES, U6,\8 NurrRd, Lonn, SW9 8BP\(Tel: 01 737 0234) ^10 }st\(unld)-30cfmCHEZRON(bc aity)ORDERS SENT WITH YOUR NEXT ISSUE ^REPAIRS:Sct 48K/Ps-`12.90128K-`14.90, P2-`15.90, OsDis˪ry-`21.9**v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z$tT?ݖS Iʡ8'j߮i_ \ PROGRAMMING IN MACHINE CODE\ BY NICK LEWIS\ ---------------------------\Welˡ on ai OUTCLASS.\Tunrlimst\eon, anyy. Tis\ t ctI t\oolGCSE em˻nmy\tJu. Anyy, eugof\mpbm- wt'png\tnth? A w a I t\t s ownu¢ \st BREAK y. Tis\w ˡ uth: ^ 10 LOOP LD A,#7E\ 20 IN A,(254)\ 30 AND #01\ 40 JR NZ,LOOP\ 50 RET\T aʪ u¢ stt t\lws, o ts i and\att}psfin.Tn,\bunAND Եc, I soff\unnys.It ing's\ t tysul\e psantsuld\t li rn. T\pb tt u¢ itt\il r iss or\}psfa psinsad\oth. Tsul t\} a~ 0(0)suld\ gitit\psd. I n'kwhit\esn'r aI ktng\aut Sct rd. ^T onlI otng\auntpb i st\}psfans ly.\T u¢ est\tt:\\ 10 SPACE LD A,#7F\ 20 IN A,(254)\ 30 AND #01\ 40 JR Z,CAPS\ 50 JR SPACE\ 60 CAPS LD A,#FE\ 70 IN A,(254)\ 80 AND #01\ 90 JR NZ,SPACE\ 100 RET\\T u¢ rstlstr\t s y, t it st\iª istt\}psfy. Itsts ^a ª r ocrs. If\o otsta ª\t u¢ mp SPACE. T\u¢ eo sghtlssy\s sBREAK I e\ unit.\\ THIS MONTH\Bnt sntI s\unow . I \acallesf an\OUTLET aasn iI\ul a o sclng.\A io asclng\ul զ t o ise\ rry, I }n' its\¡. Ba al as aut\mcncnpgms. I\p anfanint\}lrs. I }nnany\inro o mr ^sܦfaninmr\I }n oanlp. Afr\ctnnI  \ato aund. Las¡\I allnntnon\rtanROM u¢ dn't\ in cil.\\\ PITCH,LOUDNESS AND\ QUALITY OF SOUND\\A i thi crs\wcafct iunds.\BeΦ I } int\onot Sctm\une a of:\\ (1) Pitch\ (2) Ldss\ (3) Qty ^ PITCH\T tcounndon\itfency. T gt\tco֨ t gt\fency. Fencanw\n¡ۡtnoin\nd. Foemp t Z80\pڗsfencof\4MHo4,000,000 Hz. Tans\icyculo ¡a\nd.\\\ LOUDNESS\T udsounnds\o t amp ound\. T gt amp\t ut ֨. T 48K\Sct  }n\onlp sa uns\ t lnagm: ^ +++++++++ +++++++++\ + + + +\ + + + +\++++ +++++++++ +++++\\T 128K eoSctms\ uncp(AY es)tt\} alt uds }n\p զ uns\ ts:\\ +++ +++\ ++ ++ ++ ++\ + + + +\ ++ ++ ++ ++\+++ +++\\Be}u t Sct 48K }n't\alt udsi}n'm-\u a instn a\w t unay. ^ QUALITY\\Al } instntund\fne itpat\t anpt\ ֨.T a whinst-\ntfi}u ty\p fnatof\֨. T s oat\p"" ֨. Tia\unto fency.A und\tso fencis\}ln~n fency\anok :\\\ +++ +++\ ++ ++ ++ ++\ + + + +\ ++ ++ ++ ++\+++ +++ ^A instnpund\nsnot n~nl\֨ anrռcs. A rռc\ilp ot n~nl\fency. Semp:\\Midd C i512 H(n~nl)\\FirsHarռi512*2 = 1024Hz\\Sen" " 512*3 = 1536Hz\\Al t fenem \ u tr a\rund:\\ ++\ + +\ + + +\ + ++ + +\ + +++ + ++ + +\++ +++ +++ ++ ++ ^Mant un inls\cnn al as\fenctr o t\s. T Sct 48K }n\onlcn fency. Iu\ow 128K Sct }n\cn . Di®sech\i sb brռcs.\T Sct 48K onlo\cnl, }u oseit\} un t or\զ, intnrռcs. T\Sct 128K th\cnl cgan\ound} cad.\\ SOUND GENERATION\Tt't tor otngs\ } p und, and\wt w ung\c ˘ tt BASIC? ^Sni bnr\ՠs. A sa} b\t ՠus.Ies\tbph}llbng.T\sibt gr\tc t. T exnof\bo rt .\\T Sct 48K } tsh\t saol t\sain. Tsiu:\\\ LD A,16\ OUT (254),A\\\An l i|c i ain:\\ LD A,0\ OUT (254),A ^Cona lnansng\}ut bon. T Z80\pڗs} acall \stispt sar\ng. Iet}u by\t ¡ t sasrt\6ust, t Z80 na\g ˡ |c in. Tn\w t sasrtinin\t Z80 ndg sh\t. Tspt sar\ni ancon. Tsp\tpn eu\te i anls. Iis\sb  by\onlnt sa¡ \ժ i anrin\sn. Tiry\pc} }u seefcts\tch. Alghunefcts\tugh. ^I gsund\wct\lnab alr.\\ H g.\ ++++++++++ ++++++++++ ++++++\ + + + + +\ + + + + +\+++ ++++ ++++\ L g.\\T H srt\oo¡ t sar\ sd. T L sr\rt oo¡\t sa ld.\T BC sirs\n¡t sai\ lansd. Y }n\t H anL sri t\sa aʪ. Tiw\t onrks: ^ ------BC sr-------\ ! !\ ! --L sr-- !\ ! ! ! !\ ! ! SPEAKER IN ! !\ ! ! ! !\ ! !---LOOP-2---! !\ ! !\ ! --H sr-- !\ ! ! ! !\ ! ! SPEAKER OUT! !\ ! ! ! !\ ! ----LOOP-3---- !\ ! !\ ---------LOOP-1---------\\\ 10 SOUND DI\\Walyb inrpt\ unsn¡ cyc. ^ 20 LOOP1 LD A,16\ 30 OUT (254),A\\ Pust sat!\\ 40 PUSH HL\ 50 LOOP2 DEC L\ 60 LD A,L\ 70 JR NZ,LOOP2\ 80 POP HL\\\LOOP2 it ¡ ot\sa t. No HL is\s t sc aiis\rpd.\\ 90 LD A,0\ 100 OUT (254),A\\ Pul t sain! ^ 110 PUSH HL\ 120 LOOP3 DEC H\ 130 LD A,H\ 140 JR NZ,LOOP3\ 150 POP HL\\LOOP3 rt ¡ od\t sa in. Ain\HL is t sc ait\irpd.\\ 160 DEC BC\\T BC unicnd.\Remtrw\n¡t sabs.\\ 170 LD A,B\ 180 OR C\\Lo}llOR BC in A }n\s (enoop). ^ 190 JR NZ,LOOP1\\In- t b ain.\\ 200 EI\ 210 RET\\Eb t inrptai and\rn. I a in u t\SOUND pg abu¢ \I e t eoHL\anBC at uin\t nt pgm.\\ 15 PUSH HL\ 16 PUSH BC\ 195 POP BC\ 196 POP HL\\ T SOUND  i w\mp } si th ^t ln nt pgm.\\Firsmt sng. If\unJACKSOFT enN1000,10.\\ 10 LD BC,200 ;od\ 20 LD H,100 ;tch1\ 30 LD L,H ;tch2\ 40 CALL SOUND\ 50 RET\\I t pg u\sulasr֨. T\sa r t֨\ok:\\\++++++ ++++++ ++++++ ++\+ + + + + + +\+ + + + + + +\+ ++++++ ++++++ ++++++ ^BotH anL a eal. Wuld\alt tcbalnt\fency.\\\ 10 LD BC,100 ;od\ 20 LD H,150 ;tch1\ 30 LD L,H ;tch2\\Tl ԫ֨\}u t fenciԫr.\H iatrmr\ inca t ¡ ten\saalrnnt\sԫbon. BC en\cn}u t\fenciԫt \aunobnl \nr. Foemp sar\bna100 ¡nd\500 bonl : ^ 1\ --- * 500 = 5 nds\ 100\\BUT sabna50\¡nai 500\bonl :\\ 1\ --- * 500 = 10 nds.\ 50\\Tanl e\exnttcanngth\ ui֨.Tt\gtc } u:\\\ 10 LD BC,400 ;od\ 20 LD H,50 ;tch1\ 30 LD L,H ;tch2 ^I gt SOUND\ i} innnt-\lnt t ¡ oof\w t sailor\sd. W} ֨ th\t trn.\\\++++++++++ ++++++++++ ++++++++++\+ + + + + +\+ + + + + +\+ +++ +++ +\\\ 10 LD BC,500 ;od\ 20 LD H,100 ;tch1\ 30 LD L,10 ;tch2\\\Pitc1 an2 a fnt.\Wetan? ^Hannt otss\ot saզ r-\und. Ty i t xm-\onston.\\ 10 LD BC,200\ 20 LD H,100\ 30 LD L,0\ 40 LOOP LD A,L\ 50 ADD A,10\ 60 LD L,A\ 70 CP 100\ 80 RET Z\ 90 LD A,C\ 100 SUB 10\ 110 LD C,A\ 120 JR LOOP\\Tpg et tcby\onlalnt ¡ od\w t saild. T\ ^ot¡ oint\. Tundfn\w alr t¡\ods. W}n, i calr\t¡ odin\fnys. T xemp\o ¡ onand\t ot¡ osrr.\\ 10 LD BC,100\ 20 LD H,100\ 30 LD L,1\ 40 LOOP INC L\ 50 DEC H\ 60 LD A,H\ 70 RET Z\ 80 CALL SOUND\ 90 JR LOOP\\Ru tpg anll\at tc֨. Ts ^i}u t ol fency\oH+L it . Tradng\t :\\\ 45 INC L\\\Ru t pg ai anu\as}. Ti}u\t¡ H+L eea t\ fencal t ¡.\\\Tsofunanm¡\tOUTLET I o st\u¢. Tu¢ t\fencansghtlcns\intmbnefct.\T u¢ edSOUND \pnt. ^\ 500 TREM LD A,H\ 510 ADD A,4\ 520 LD H,A\ 530 CALL SOUND\ 540 LD A,H\ 550 SUB 7\ 560 LD H,A\ 570 CALL SOUND\ 580 LD A,H\ 590 ADD A,5\ 600 LD H,A\ 610 CALL SOUND\ 620 LD A,H\ 630 SUB 2\ 640 LD H,A\ 650 CALL SOUND\ 660 RET\\\ Aa emp try: ^ 10 LD BC,20\ 20 LD H,150\ 30 LD L,H\ 40 CALL TREM\ 50 RET\\Trt otu¢ty\i CALL TREM insaoCALL\SOUND.I l a  exr-\int. Rem }l冨 w\nt ֨ os} iing\ so i a\nit.\\Tnc, ingat\und, n'48K Sctm!\A 128K Sct isut\sl d. Ied\allouna AMIGA,\n'l tSct tugh\- OUTLET edu!.^oCALL\S*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >zh Չ7$;ŗ then we must look at an alter- native. The answer to this is supplied  \\\ PڨcnYPgm\ Par2. Mall Gdn\ -----------------------\\\\I t rsrotes\ ey u ntl\˘ uBASIC pgm\an ժ o t xt\p... ^Han t tub od-\inusng, t stng\nit pg \ spbpsnt BREAK\ tio ot tngs\tedۡ atnon. Many\ol ub a of\ri POKEtl csh\t mit BREAK is\psd. Trsrir\tЧ w n't!\\I t sys abt is\}o lDF-SZ wch\ia23659. T lin\t}o irll2 t\i i0 t Sctm\tnanesn'kw\w pnersif\t BREAK ipsd. T\libc scen. ^Unrlial imاs\stcono wel }nt\ ̢ turstng\i 2. Y }nu INPUT\pmpts, sr...ss,\mnd cn t BORDER or\scll?. Nt} CLS. If\t stcona pbm\t so aa alr-\ª.\\T ans tipped\ai biosysm\ab- t¡ a23613 &\23614. So urPOKE t\}onte\t}u csit\BREAK ipso\ig֦ t BREAK mply.\Unrlti100%\ab aanGO SUB}n ^uptappach. T rct\ en 'csh-on-BREAK'\i nt addstt\23613 & 23614 ld. Tl \PEEK 23613 + 256 * PEEK 23614.\\T}o anitighur\l la addstalws\aners pnd\ROM u¢. I alr\t adds 0 t any\atmp a err\s l ct\Sct }o . T\rcsynttn\upg is-\\LET a= PEEK 23613+256*PEEK 23614\:POKE a,0: POKE (a+1),0\\ ...ant te t. ^A rorng.... Ia\nRAMTOP ۡ otr\addss, trstn\libttt u¢\t } INPUT pmpts,\CLS, scll?, sr.. and\BORDER ucns. Al t\u oGO SUBl \ttt ''.\\O.K. ' mt BREAK\w sp\t f MERGEinr\pgm? Well, on ai t\i a tts.\\Firstly, e anabs\t'CLEAR' mnd. Cc \i 9999 and,\i, t mi\s t ¡ ing ^anp it'9999 REM'.\Acmnenr:-\PRINT PEEK 23627+256* PEEK 23628\anf tcx.\T ansit }o tt\sulPOKE t255.\Li 9999 l  Ϣ and\sult o \9999 |c i p an\t s ud. Yr\pg iunMERGEb.\\Leuas tt, s\t as,  is\onard. It nstnof\CHR$8(r1 otes)\sn'uptngt o of\t rsoponi PEEK\runFOR- NEXT oin\or e cby t\e t} altp-\Ęt u tt }. ^Firsoal supgm\an CLEAR oany\abs. Nexadt ur\snat rsmn\ n:-\\ POKE 23627,000: POKE 23628,000\\ ...an֨ t the\ud. Iityng\err. NoPEEK t nntof\23627 an23628, an֨ t\ewn. Rep t 000 in\cot POKEi urst\ tt e\s֨d, enntthe\ta u- e its\anincnanang\s.BtI a tsuld\PEEK 23627 = 26 t tll\ˡ 026. Ii 7 tn ^ulenia007,\wlsthuld\ 3 ts. I' rrits\undtckI }n'tnk\oa e t\pa at. If, aa\cmnd, u:-\\POKE 23627,203: POKE 23628,92 :\SAVE " LINE n\\ ...tn, iur\pg ipnf -\nng, anFOR - NEXT PEEKing\orl rk. Aan\ads, it tn\ise'RUN' mnt\pg l Ťt.\\Tiwhiiimrn\t ab ainr ^ itrcaddsrlin\t pgm. I 'CLEAR'\Φ tt upgm\l lf-stct!\\Ic anabs\Φ tnt abs\inrt t mll\tr a ers\ani pڨct\BREAK t l \srai ant(aty\y) itt!- aasw.\\Dbtst a ۡ w\ e w taΦ\ankal aut pڗd-\uI scr\tЧ w n't, ana t\ld, pa -at\rtta uncar. ^If, aftt, sl n't\unrsnmdft pa\e f n o LEEDS\(0532) 683618 sengor\endanI'l tranlp.\\It ian t w\ania nt \tet pa n\ow at:-\\\ 17 Bokl Ae,\ Ld17.\\\ b !\\\ - Mall Gdn.^dft pa\e f n o2ç:ڧ+:ٰ"2":ܼ:"4E4":"9333":"9994":Y=ç̧:"    ": Y:"          OUTLET 21         ":Y="9"̰"21":"    ":Y:13 ,"2";" "'" "'"  "'"  ";#ç;ç,ç;" M A Y 1 9 8 9 I S S U E N O W L O A D I N G ! ! !":"5E3":"6E3":"7E3":"23608","R" d*"M";;"CONTENTS" l"23637+256*23638-4660"::46384  0!. z~( (#F##  >>?>>>>?? >~?>~ `8?~?? >>>>>><? >>?>>>>?? >>?>>`<??????7_ >>>>>>| >>?>>>>?? >>?>`??~@??c >>?>>> >>?>>>>?; ???`_?X_ >>?>>|? >>?>>>>>?8 ?????`` >>?>>>?~?` >>>>>>>>?8` ?;??`_aW >>?>>>>>? ?~>>?~?~?>` ?`8`????~a >>?>>>>>?? >~?>?`8???pU p= 82\:\^#V#0u ~w$|P(H( g0u ~wX x x XI"23637+256*23638-1553"::table  !J!HAHaHHHHHHcHCH#H"HH%HEHeHHHHHHHHHhHHH(HH@@@@@ H,HLHlHHHHH@H1HQHqHHHHHHHHHH7HWHwHHHHHxHHHyHHHzHHH]H}HHH+@,@-@.@/@O@N@o@n@m@l@k@@@@@@@@3@S@s@@@4@T@t@@@+P,P-P.P/POPNPoPnPmPlPkPPPPPPPP3PSPsPPP4PTPtPPP!@>@"@=@#@<@$@;@%@:@&@9@'@8@(@7@a@~@b@}@c@|@d@{@e@z@f@y@g@x@h@w@@@@@@@@@@@@@@@@@@@@@@@HHHHHH!P>P"P=P#P ^#= 0R6-U^ kk6Y255"9500":30 (a=b:1000:a$=x$ 2F"second number (decimal please) ";c:c>255"9500":502 <a=c:1000:b$=x$ KJ$=B:3,6-J$;B;0,8;:J$=A$:1:9937&:J$=C:0;10 ,6-J$;C;7,8;:J$=B$:9937&:0 P2'''''1;" " d"AND,OR or XOR (a,o,x)? ";t$ nt$="a"2000 xt$="o"3000 t$="x"4000 G#0;1,5;"a,o or x only please":"":100d x$(8):y=128 x=18 #ayx$(x)="1":a=a-y:1050  x$(x)="0"  y=y/2 $x 8 *13 ,0;"LOGICAL"''" AND" x=18 ,a$(x)="1"b$(x)="1"x$(x)="1":2040  x$(x)="0" x +o=128:y=0:x=18  x$(x)="1"y=y+o  o=o/2  x *XJ$=Y:18,6-J$;y;15,8;:J$=x$:1:9937&:0 4 5000 )13 ,0;"LOGICAL"''" OR" x=18 ,a$(x)="0"b$(x)="0"x$(x)="0":3040 x$(x)="1" x 2050 *13 ,0;"LOGICAL"''" XOR" x=18 ,a$(x)="0"b$(x)="0"x$(x)="0":4050 ,a$(x)="1"b$(x)="1"x$(x)="0":4050  x$(x)="1" x  2050 (0,0;"Another go? Y/N ";y$ y$="Y"y$="y" @L"9994":"9986":7:7:0:0:"56999":O=ç:I= \ "____of BobSmith!_____________________" h "This is a little program whichallows you to type in 2 numbersand see the result of either an AND OR or XOR operation. It'swritten in BASIC so a look atthe listing may well help you tounderstand what's happening.Justby way of a brief explanation:-" rK"AND:- 0 and 0=0"'" 0 and 1=0"'" 1 and 0=0"'" 1 and 1=1" |"OR:- 0 or 0=0","XOR:- 0 xor 0=0"," 0 or 1=1"," 0 xor 1=1"," 1 or 0=1"," 1 xor 0=1"," 1 or 1=1"," 1 xor 1=0" " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "EK$="N"#O;I,"25";"NEXT":*"M";I;"MILOGO" " "8905" "b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": %#0;0,0;"[Sorry!- maximum of 255. I addedJUMBOCHARS to make the numbersbigger but it didn't work.- BC]":1e3: &~ "23637+256*23638-3142"::jumbochars  !J5 è*6\"B!\>!22#>22̓#N#"Fx!"6\*#"~ o&)^#V2K< *:<2(/>::e>:2:2 x *"6\:2e:2>:::W:߂2 v 2:<2*K\KY\|0*>Jn #^#V#v #~(~(!>?F %6G`y1B[l4Mf/Haz"C\u ,Mn.GXi"C\m~%>Wp??????????????????>>>>>/IA1I17/03E<;&I&<;1<'+>HD*))*6FEI@AA@G7+>+>/MN3OKP1QR&*@/I3E@&7&;B(B&;IE@KG@17@@)@)B))IE@KG@17/I3I3E@KG@1QRA/03412/0KL12/I3EKG12G1QR+>+>+>+>&&;<'<'<'&;;/I3E@G@7/034K12/I@@@@@@@@@(MN(O(GR(EN(G(QR/MN3O KP1QR)0,?4,?,?,?L)2B@@@BB@@@@/MN3OAKP1QR(A(A(A(A(A(A(A>>>>(ABFL12ABA&;;'A<'A@@@@@B*'&@*@*<;@*@*@*@@AAA@A@A@A/MN3OKP1QR(MN(O(GR(((/MN3OKK171F)E0))G2)E0)B)B/IK1IE@KG@1RBAAAAA KP1QR)*>*=)=>(+?A-@)>)>)>*=*=+,B(B<'&;43LK&;<'B('&<'&;$%+?+?+?B&'HIER((/=DE=FGF1210EG2/0DFG12/DFF121/I3E#17/034/I3EKG12FG1QR04G12F12***&*#*EI*@@@@@@G120/ED-=-=/IDK/0DEFG120EG2/JDEFG12;/ID/I1FFEI17@@@@G12==KLF121>,>,'&<;*=*=+,B'&<;&';<KG12FG1QR(B&;&;B/3GEK104FDL2/034KL12 &"M";;"BITS" &*"M";;"BITS"ʰ"8E3": &"BITS"ʰ"8e3": '"23637+256*23638-0184"::UDGS  !JXX?????????????zł|S[kV ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y1R=R-1:Y=R+U:U=2:D2=-1:R+3,0;V$;r,0;1;X$;r+1,0;Y$;R+2,0;Z$:R+1,1;v$;R,1;(V$R>2);Y+1,1;(V$Y<16):Y,1;W$ |I=d$r=15y=16:15,1;v$:16,1;w$ }=d$R<15R=R+1:Y=R-D2:D2=0:U=1::R-1,0;V$;r,0;1;X$;r+1,0;Y$;R+2,0;Z$:R+1,1;v$;;Y-1,1;V$:Y,1;W$ =12 "8E3" =7"9e3" ," ".005y# =,*502:120x 2#O;I,O,,:300,:R+1=YD=0: w=u$R>1R=R-1:R+3,0;V$;r,0;1;X$;r+1,0;Y$;R+2,0;Z$ x=d$R<15R=R+1:R-1,0;V$;r,0;1;X$;r+1,0;Y$;R+2,0;Z$ <x=x+a:y=y+d:Y=17Y=1Y=Y-D:Y,X-1;V$ n=(y,x) PN=579Y-D,X-A;V$:a=-a:X=X+A:.01z# =,557:300,:190 Px=31Y-D,X-A;V$:a=-a:X=X+A:.01z# =,557:3051:190 Y-D,X-A;V$:y,x;W$ 5y=2y=16(.005y# =d),502:d=-d xtb=tb-I:"315" n=568160  .003xD,30+*20 #t=t+10 :19,2;t "n>579a=-a $T=T(J)"9400" '160 ,R=YD=-1: .'R+1=YD=(*3)-1: /R+2=YD=1: 0 1$DD=1-(2ƥ>.5) 2 ;8y,x;V$:"19","15";TB;" ":װ".2",-"#":TB"110" @*,;I;"GAME OVER" J t>hh=t T"20","23";h ^ "350" c"Another Go? ";a$ ra$="y"Q @D"9994":"9986":O=ç:I=:4:2:6:1: h("9500": "Stewart Inglis" " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "IK$="N"#O;I,"25";"NEXT":*"M";I;"LEAGUECOMP" " "8905" "b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": #( "9E3" #-'O,O; "KEYUP? (ckCURSOR KEYS)";U$ #2U$>"z""9e3" #<(U$="ck"U$=°"11":D$=°"10":"9100" #F "9030" #ZO,O; "KEYDOWN?";D$ #dD$>"z""9050" # "9100" # "116" #j N="2"̰"16":"":N: $W$="":V$="":X$="":Y$="":Z$="":N="2"16 :"--+":N: $W$="":V$="L":X$="":Y$="":Z$="":N=23: "LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL":N:N="4"̰"14": "LLLLLLLLLLLLLLLLLLLLLLLLLLLL":N :N=1516:"LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL":N: $^V$="":N=24:"":N:"":N=13 16:"":N: $""":N=27: "":N: "": $,X$="":Y$="":Z$="": v$="":"":N=314:"":N: "": $6X$="":Y$="":Z$="":V$="": "":N=610  :"":N: "": $@"____" $E "____": $J<8ڧ+:I:ٰ"I":I::"9500":" N E X T R O U N D >>> ";J+I:F=I̯" ":*6:;:.005y# =,*502:F:O:ڰ"7":O:O:Y="5":X="5":J $"7"::"10","14";"well";"11","14";"done":I:I:"":'''" please accept this peanut"''',""',"":I:"500":"8E3": %` '" ______" %NB " ___": &"M";;"BREAKTHRU'" &*"M";;"BREAKTHRU'"ʰ"8E3": &"BREAKTHRU'"ʰ"8e3": '"23637+256*23638-0185"::udgs  !JXX<~~~~<~@@@@@OOOOOON@@@~@@NOO>>????zł|S[kV ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y ^#= 0R6-U^ kk6Y"8")):*"M";D;"elfindor":"23606","X":"23607","" " "8955" " O:K$= "K$="R""64525" "iK$="C"#O;I,"8";"CONTENTS":"23608",O:"65367":"9988":*"M";I;"CONTENTS" " "8905" "["23658","8":#O;O,O ;" RUN CONTENTS (LAST ITEM)": &"M";;"ELFINDOR" &*"M";;"ELFINDOR"ʰ"8E3": &"ELFINDOR"ʰ"8e3": 'Y"23637+256*23638-0058"::*v\:f\<0&K=\ 2B\ 2C\ 2D\"\6>+!s=\v!5J ' "23637+256*23638-4174"::  @!! z[F~##U$}  U\UWO_UU`U_UUWpU}UWUU_U_WUUU]UuU$j!pU$TUP5UWp}U]UUUP! U]UW]UU_pUuU}UUWU}_UUUUuU9j@ *>  }GzUuUUcUXOV UUUX$)U_UU_}MU]_]UUW]uUUWU]UX?~P$)Oj:U_ U 1UW0UP sU]UUT$)uU_WUU_MU]PUWUUWUu]UU_]uUM:;`)ZjjU}UWUU]vWU^U}U]_U_w_]}U^I]UU]WwU}w]w_wUUW_U336U__UU}UXuoUPUCU]wUu]wwuw]_UWu]UU]Uw}w]Uw]wUuU_]U4zv4U_WUU}gu]UWGUUU}wwU}uw}w]uU_u]UCU}_U_w]U__UWU4TUWU}WU_]_#U_}]UU}w_UW}]wWw}uUWWU}U uU }]USD3 ??    @??    @? ?~~   @? ?~~  @ ?   @ ?   @~???  @~???    @88(8/(/(/(@  @~???   lLK$="E"I1,I7;"E":"2E3":K$="Y"MM=M:YY=Y:"9E3":M=MM:Y=YY @yF>IT,O; " THERE IS STILLFROM LAST MONTH. DO YOU WISH?":"2E3":K$="Y"MM=M:YY=Y:"9E3":M=MM:Y=YY:K$="" b="21" '"BITS","21","/","BITSHADE","10","*" Q"BREAKTHRU'","21",I0 D$+"mdrive tips)","02"," ",D$+"mdrive tips)","04"," ",D$+"various)","10"," ",D$+"Applied Tech.)","11"," ",D$+"Swiftdisc/Opus)","13"," ",D$+"error-trap)","21"," " "ELFINDOR","21",I0 J%"getvarJ(Jacksoft Macro)","21","/" `"INSTAMATCHIT","21","/" "LEAGUE COMPILER","21","," e"MILOGO","21","*" PO$+"sprites)","19","!",O$+"undoc.Z80opcodes)","20","!",O$+"sound)","21","!" "OUTDEX","12","1","OUTPRINT","21","1","OUTPUT (Printers1)","14","!","OUTPUT (Printers2)","15","!","OUTPUT (Printers3)","18","!","OUTPUT (Prog.protection)","20","!","OUTPUT (protection 2)","21","!" "SCREEN REVEAL","21","*" "SMARTCART","21","/"  6"T3TO2","20","1" '"UTILITY 1 (font/udgmaker)","21","1" a\'l'b'ers3)","18","!","OUTPUT (Prog.protection)","20","!","OUTPUT (protection 2)","21","!" "SCREEN REVEAL","21","*" "SMARTCART","21","/" a;(#a;K$("5"):O,I,O2,O3,O4,O5,O6,O7,O8,O9,I0,I1,I2,I3,I4,I5,I6,I7,I8,I9,T,T1,Q,CHR,P,SET,ZX,L,NU,BAR,L$,K$(I),K$(O2),K$(O3),K$(O4),K$(O5) ç,,"2",,"4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","9940",O,O,O,O,O,O,I,"KEYBOARD","Q","A","O","P","X" 2O:O:O7:I::"9994":"23658",O8:"9970"  3,0;" A TABLE REDEFINE KEYS/JOYSTICK START NEW LEAGUE PUT SCORES VIEW TABLE VIEW RESULTS A TABLE TOGGLE PRINTER ON/OFF OUTLETCONTROL: ";L$ zL$="KEYBOARD"#I;O,O;O4;"KEYS: ";K$(I);"=UP ";K$(O2);"=DOWN ";K$(O3);"=LEFT ";K$(O4);"=RIGHT ";I,O6;K$(O5);"=SELECT" I+O2*BAR,O;O2;I,, 3I:O:I$=:I$=K$(I)BAR=BAR-I:BARBAR=O9:O6 )I$=K$(O2)BAR=BAR+I:BAR=I0BAR=I:O6 I$=K$(5)BAR*"1E3" O6 :O2;O5;" LEAGUE COMPILER-TABLE "'''O;O4;"TYPE THE FILENAME OF YOUR TABLE:-":Z$(I0):I0,I0;I," ":Z=II0:O:=I3"1100" DZ$(Z)=:.1}L,"2":10 ,11 ;1;6;Z$:Z L,I3,I;O5;"IS THE FILENAME CORRECT? (Y/N)" MI:O:I$=:I$="N"O3 NI$"Y""1101" PK"DRIVE No.? (0=TAPE) ";D:I3,O;,,;I5,I2;O4;I;I;"LOADING!":O:DZ$ SD*"M";D;Z$ 5BAR=I::" LEAGUE COMPILER- REDEFINE KEYS " qO7,O4;"REDEFINE KEYS";I0,O4;"CHANGE METHOD OF CONTROL";I3,O3;"MAIN MENU";I9,O;O6;"CONTROL: ";L$:"9950" O4+O3*BAR,O;O2;I,,  I:O:I$= ,I$=K$(I)BAR=BAR-I:BARBAR=O3:"2001" .I$=K$(O2)BAR=BAR+I:BAR=O4BAR=I:"2001" I$=K$(O5)"2020" I$=K$(I)I$=K$(O2)"2001"  "2007"  BAR=O3O3 2E3+BAR*"d" 4.:" LEAGUE COMPILER- REDEFINE KEYS " 5$O6''"TYPE YOUR REDEFINED KEYS:-" 6LO5,O;O4;"UP:";O8,O;"DOWN:";I1,O;"LEFT:";I4,O;"RIGHT:";I7,O;"SELECT:" 7A=IO5 8 A*O5-((A-I)*O2),O9;I;O4;"?" 9I:O:K$(A)= ;A*O5-((A-I)*O2),O9;O5;K$(A) <Q:A =/T,O;" IS THIS CORRECT (Y/N)? " > O:I$= ?I$="Y"L$="KEYBOARD":O3 @I$="N""2100" A "2110" RBAR=I::"LEAGUE COMPILER - CONTROL METHODSELECTCONTROL METHOD" O6,O;" KEYBOARD"'''" CURSOR JOYSTICK"'''" SINCLAIR JOYSTICK PORT 1"'''" SINCLAIR JOYSTICK PORT 2"'O3''"CONTROL: ";L$:"9950":(BAR+I)*O3,O;I;O2,,  I:O:I$= ,I$=K$(I)BAR=BAR-I:BARBAR=O4:"2202" .I$=K$(O2)BAR=BAR+I:BAR=O5BAR=I:"2202" I$=K$(O5)"2220" I$=K$(I)I$=K$(O2)"2202"  "2209" QBAR=IL$="KEYBOARD":K$(I)="Q":K$(O2)="A":K$(O3)="O":K$(O4)="P":K$(O5)="X" YBAR=O2L$="CURSOR JOYSTICK":K$(I)="7":K$(O2)="6":K$(O3)="5":K$(O4)="8":K$(O5)="0" ^BAR=O3L$="SINCLAIR JOYSTICK #1":K$(I)="9":K$(O2)="8":K$(O3)="6":K$(O4)="7":K$(O5)="0" ^BAR=O4L$="SINCLAIR JOYSTICK #2":K$(I)="4":K$(O2)="3":K$(O3)="1":K$(O4)="2":K$(O5)="5"  r :" LEAGUE COMPILER - ALEAGUEWHAT IS THE NAME OF THE LEAGUE?":Y$(" "):L=I:Z=I I:O:=I33030 Y$(Z)=:O4,O;O2;Y$ Q Z=Z+I:Z<"!""3006" /Q:O6,O;O4;"HOW MANY TEAMS ARE THE LEAGUE" O8,I4;O2;" ":B$(O2):Z=I I:O:=I3"3040" B$(Z)=:O8,I5;O2;B$ Q Z=Z+I:Z"30""3031" RN=O:X$(NU,I1):P(NU):W(NU):D(NU):L(NU):K(NU):T(NU):F(NU):G(NU):R$("552","22"):Q("552",O2):O4'"HOW MANY POINTSA WIN?":I2,I5;O2;" " &I:O:I$=:I$>"9"Ŧ<"0"3044 II2,I6;O2;I$:WINP=I$:Q:O4'"HOW MANY POINTSA?":I6,I5;O2;" " #I:O:I$=:I$>"9"Ŧ<"0""3050" I6,I6;O2;I$ DRAWP= Q O4'"ARE ALL THESE CORRECT?" T,I0;"YES";T,I9;"NO" BAR=I )BAR=IT,I0;"YES";T,I9;"NO" I:O:I$= I$=K$(O5)"3070" ;I$=K$(I)I$=K$(O2)I$=K$(O3)I$=K$(O4)BAR=BAR:"3064" "3060" 'BAR=IT,I0;"YES";T,I9;"NO" $BART,I0;"YES";T,I9;"NO" "3060" BAR *:" LEAGUE COMPILER - ALEAGUE " &O4'"TYPE THE NAMES OF YOUR TEAMS-" ZAK=I -A=INU:O3+ZAK,O;A;O4;O2;" " Z=I  I:O:I$= I$=I3"3082" I$=I2"3090" Z=I2Q:"3076" )X$(A,Z)=I$:O3+ZAK,O5;O2;X$(A):Z=Z+I Q:"3076" ZAK=ZAK+I:ZAK=I9ZAK=I ZAK=IB=O3̰"21":B,O,,:B A "5E3" BZ>IƯI$=I2Z=Z-I:X$(A,Z)=" ":O3+ZAK,O5;O2;X$(A):װ".1","2"  "3076" :NU"9990" "LEAGUE COMPILER - PUT RESULTS"''" (USE CONTROLSSELECT TEAM)";#I;I,O;O4;"TYPE 'E'CALCULATE TABLE":P'''"LEAGUE RESULTS"'"--------------" A=(NU/O2):B=IA %B+2,15;6;"-":B TEAM=I B=IA I9,O;O5;"TEAM: ";X$(TEAM)  I:O:I$= 2I$=K$(I)I$=K$(O4)TEAM=TEAM+I:TEAM>NUTEAM=I 2I$=K$(O2)I$=K$(O3)TEAM=TEAM-I:TEAMTEAM=NU I$=K$(O5)"4013" I$="E""4144" Q:"4006"  HT=TEAM B+O2,O;O4;X$(HT): 5"21",O;O3;"SCORE??";O8;"0 1 2 3 4 5 6 7 8 9 >9" 3SCORE=I:OLDSCORE=SCORE:"21",O8;O3;O7;I;" "  I:O:I$= I$=K$(O5)"4035" EI$=K$(I)I$=K$(O4)OLDSCORE=SCORE:SCORE=SCORE+I:"4030":"4022" FI$=K$(O2)I$=K$(O3)OLDSCORE=SCORE:SCORE=SCORE-I:"4030":"4022"  "4017" 8Q:OLDSCORE9" -SCORE9"  "4017" SCORE=I2SCORE=I SCORESCORE=I1  SCORE"c"B+O2,I2;O6;HS  "4050"  HS=SCORE-I B+O2,I4;O6;HS X=I7T1:X,0,,:X I9,O;O5;"TEAM: ";X$(TEAM)  I:O:I$= 2I$=K$(I)I$=K$(O4)TEAM=TEAM+I:TEAM>NUTEAM=I 1I$=K$(O2)Ŧ=K$(O3)TEAM=TEAM-I:TEAMTEAM=NU I$=K$(O5)"4059" Q:"4052" HT=TEAM"4057"  AT=TEAM B+O2,T;O4;X$(AT) 2T1,O;O3;"SCORE??";O8;"0 1 2 3 4 5 6 7 8 9 >9" 0SCORE=I:OLDSCORE=SCORE:T1,O8;O3;O7;I;" "  I:O:I$= I$=K$(O5)"4100" EI$=K$(I)I$=K$(O4)OLDSCORE=SCORE:SCORE=SCORE+I:"4080":"4069" FI$=K$(O2)I$=K$(O3)OLDSCORE=SCORE:SCORE=SCORE-I:"4080":"4069"  "4064" 8Q:OLDSCORE9" -SCORE9"  "4064" SCORE=I2SCORE=I SCORESCORE=I1  SCORENU*(NU-I)RN=I !R$(RN,I1)=X$(HT) "R$(RN,I2̰"22")=X$(AT) # Q(RN,I)=HS $ Q(RN,O2)=AS %%HS>ASW(HT)=W(HT)+I:L(AT)=L(AT)+I &%AS>HSW(AT)=W(AT)+I:L(HT)=L(HT)+I '%AS=HSD(HT)=D(HT)+I:D(AT)=D(AT)+I ,T(HT)=W(HT)*WINP+D(HT)*DRAWP -T(AT)=W(AT)*WINP+D(AT)*DRAWP .:S=I8T1:S,O,,:S:PX$(HT);" ";HS;" ";X$(AT);" ";AS /B 0"4600":A=IT1:A,O,,:A 14I1,O;O5;I;"PLEASE WAIT A WHILE-CALCULATING." 2J=INU:M=1NU-1 3F21,0;6;"TEAM: ";J:T(M)T(M+1)41517 4gDX=T(M):T(M)=T(M+1):T(M+1)=DX:D$=X$(M):X$(M)=X$(M+1):X$(M+1)=D$:DX=W(M) 5W(M)=W(M+1):W(M+1)=DX:DX=P(M):P(M)=P(M+1):P(M+1)=DX:DX=D(M):D(M)=D(M+1):D(M+1)=DX:DX=L(M) 6L(M)=L(M+1):L(M+1)=DX:DX=F(M):F(M)=F(M+1):F(M+1)=DX:DX=G(M):G(M)=G(M+1):G(M+1)=DX:DX=K(M):K(M)=K(M+1):K(M+1)=DX 7T(M)>T(M+1)4155; 8K(M)O:I0-((ZAX/2)),O;"PS TEAM P W D L F A PT" FA=I0-((ZAX/O2))T:A,17;1;0;" ":A I0-((ZAX/O2)),O;O5;I,, B=IZAX:A=B:5500|:B 1T,O;" PRESS FIRE " 7O:=K$(O5)T,O;O,,:I,O;O;O4;"BOTTOM":"5018"  "5015" A=I0-((ZAX/O2))T:A,O,,:A 9O:I0-((ZAX/O2)),O;"PS TEAM P W D L F A PT" FA=I0-((ZAX/O2))T:A,17;1;0;" ":A I0-((ZAX/O2)),O;O5;I,, -B=ZAX+INU:A=B-ZAX:5500|:B:"5100" 1T,O;" PRESS FIRE " O:=K$(O5) =K$(I)"5600"  "5028" P''"LEAGUE TABLE"'"------------"'"PS TEAM P W D L PTS":A=INU:A;" ";X$(A);" ";P(A);" ";W(A);" ";D(A);" ";L(A);" ";T(A):A  |(B/O2)=B/O2IK=O4 }(B/O2)B/O2IK=O3 ~IK:POS=(I0+A)-(ZAX/O2) BO9POS,O;B POS,O3;X$(B) P(B)O9POS,I5;P(B) W(B)O9POS,I7;W(B) D(B)O9POS,I9;D(B) L(B)O9POS,T1;L(B) F(B)O9F(B)<"d"POS,"23";" ";F(B) F(B)>"c"POS,"23";F(B) G(B)O9G(B)<"d"POS,"26";" ";G(B) G(B)>"c"POS,"26";G(B) T(B)O9T(B)<"d"POS,"29";" ";T(B) T(B)>"c"POS,"29";T(B)  p:NU"9990" 9O6::"23692",O:I;" VIEWING A TEAM'S RESULTS " %''O2;"WHICH TEAM DO YOU WANTSEE?" A=I O5,O;O4;"TEAM: ";O5;X$(A)  O:I$= I$=K$(O3)I$=K$(I)A=A-I:Q I$=K$(O4)I$=K$(O2)A=A+I:Q  AA=NU  A=NU+IA=I I$K$(O5)"6604" NUMBER=A:A$=X$(A) A=IT1:A,0,,:A IO2,O;O5;"HOME";I7;O3;"AWAY":O7;"--------------------------------" lP''"VIEW RESULTS"'"------------"''"TEAM:";A$''"HOME AWAY"'"--------------------------------" A=INU*(NU-I) 3A$(11 )=R$(A,12 22)6630 2A$(11 )=R$(A,111 )6630 R$(A,1)=" "6800 A:"6800" HO5;R$(A,I1);I3;O6;Q(A,I);I7;O3;R$(A,I2̰"22");"29";O6;Q(A,O2) OPQ$=Q(A,I):R$(A,I1);" ";Q$;" "(O5-Q$);R$(A,I2̰"22");" ";Q(A,O2)  /P''"FOR: ";F(NUMBER);" AGAINST: ";G(NUMBER) 2#I;I,O;"PRESS A KEYGET BACKMENU.":I:O: X:NU"9990" ZF:O2;O7;" TABLE":''O4;"PLEASE TYPE YOUR FILENAME:" [I1,I0;I;" " \Z$(I0) ]Z=I ^I:O:=I3Q:"7012" a Z$(Z)= b.11 ,10 +Z;6;1;Z$(Z) c(Q:Z=Z+1:Z<11 7006^ d.I5,O;O5;" IS THE ABOVE FILENAME RIGHT? " eBAR=I fI7,O;"YES";I7,"30";"NO" g.BAR=O2I7,O;O;I;" ";I7,"30";O2;" " h-BAR=II7,O;O2;I;" ";I7,"30";O;" " i=K$(I)Ŧ=K$(O3)BAR=BAR-I j=K$(O2)Ŧ=K$(O4)BAR=BAR+I k=K$(O5)"7029" lBARBAR=O2:"7015" mBAR=O3BAR=I:"7015" n "7015" u BAR=O2 v"DRIVE No.? (0=tape) ";DD DD*"M";DD;Z$ʧ  DDZ$ʧ  @D :" INITIALIZE PRINTER":"9800":I$="Q"P=I rv;:P=P:I1,0;O5;" PRINTER TOGGLED: O";("N"P);("FF"P);#I;I,O;O4;I;"PRESS ANY KEYMENU":I:O: #(Wװ".03",:װ".05","10":"9994":"9986":ç:ç:ٰ"5":ܼ::O=ç:I=:"9970" #2v" Jason HarrisonThis will enable football fansto keep a record of results. It is clearly prompted and needslittle explanation except notethat the key operation functionsmainly as a cursor - to move up and down, left and right to the options. For example, a YES/NO prompt means you must cursorleft or right to YES or NO andSELECT (or FIRE if joystick)." #< "The printer option doesn't printimmediately but when you laterview the data. TheTABLEoption SAVEs the whole programwithso you can re-LOAD itindependently if you wish." # "9155" # O:K$= # K$="R" #WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" #CK$="N"#O;I,"25";"NEXT":*"M";I;"BITS" # "9115" #b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": &HP &z#O;O,O; "KEMPSTON E I'FACE 1 OPUS USER ZX DISCIPLE QUIT" &|O:I$=:I$="Q" &~I$="K""9881":SET=I: &"I$="I""BAUD RATE? ";BD:"B";BD &!I$="I"I$="O""9887":SET=I: &I$="U""9888":SET=I: &I$="D""9889":SET=I: &I$="Z"SET=I:ZX=I: & "9852" &"9883":"9895":"9885": &:0 & &:/1 & &!ԧ:ӧ;"B":"9895":ԧ:ӧ;"T": & "9895": &@O6,I:"9895":O6,O: &°"27";"@";°"27";"W";I: &װ".1","2": &yL$="KEYBOARD"T,O;O5;"KEYS: ";K$(I);"=UP ";K$(O2);"=DOWN ";K$(O3);"=LEFT ";K$(O4);"=RIGHT ";T+I,O6;K$(O5);"=SELECT" & & "": &"M";;"LEAGUECOMP" &*"M";;"LEAGUECOMP"ʰ"9E3": &"LEAGUECOMP"ʰ"9E3": 'N="A""A"+"7":N,"":N: ' "9990" ';I1,O;O3;O6;" THERE ISN'T A TABLE YET. ":I:O: ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y3b$=a$(12) $len3b$=a$ (len>3b$="fd"70F )len>3b$="bk"90Z * len>3b$="rt"100d + len>3b$="lt"120x ,a$="cs":14  -6a$="ct"1;pixx,pixy:angle=0:11 /a$="q"a$="quit""8e3" 0a$="help"#0;0,0; "Use e.g. fd 6 to move forward 6,bk 3 to move back 3, more...  ":1:0:#0;0,0; "Turn right with e.g. rt 10 andturn left with lt 45 more...  ":1:0:#0;0,0; " Use ct to re-centre the cursor and cs to clear the screen.":1:0:30 6i1000:#0;0,0;"LOGO CANNOT DO THAT BECAUSE IT'STOO DARN STOOPID!!!":"d":"d" 7S0,0:255,0:0,1:255,0:pixx,pixy < 30 Fdistance=a$(4len) HBangle360hn=(angle/360h):angle=angle-(n*360h) IEangle-360hn=(angle/-360h):angle=angle-(n*-360h) J&angle<0angle=360h+angle LBangle0angle90Zradians=ninety-(angle*/180) M<angle>90Zradians=three60-(angle*/180)+ninety Px=(radians)*distance Qy=(radians)*distance Rx,y S pixx=pixx+x T pixy=pixy+y U 30 Z(distance=-(a$(4len)):73I dadd=a$(4len) eangle=angle+add:30 xminus=a$(4len) y angle=angle-minus:30 n=201-.5 .005y# =,n n: @/"9994":"9986":O=ç:I=:O:O:ٰ"4":I: To "by Ian Miller" ^"MILOGO is a simple but effectiveimplementation of LOGO.You entera direction and number of steps,e.g. fd 9 moves forward 9 steps,or the number of degrees and thedirection you wish to turn, e.g.rt.45 turns 45 degrees to rightand a cursor progressively drawsin response. You can also centrethe cursor and clear the screen.All accepted commands are shown." " "8955" " O:K$= " K$="R" "WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "HK$="N"#O;I,"25";"NEXT":*"M";I;"UTILITY 1" " "8905" "b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": &"M";;"MILOGO" &*"M";;"MILOGO"ʰ"8E3": &"MILOGO"ʰ"8e3": '"23637+256*23638-0184"::UDGS  !JXX?????????????zł|S[kV ' "64E3":"23637+256*23638-148":: AUTOCHARS PLUS !*v\%"6\!?~/wy [v\!P > ^#= 0R6-U^ kk6Y