(@&]~w#~w~/W#~вw@N 'N @@@@N 'N @@@@N 'N @@@@N ' OUTLET "CONTENTS #Nexp Opinstructn1qjac letters lin lookaheadoutboard :outclass ;Dcheckout 2Ercra !sout Xske tsketchB 'vid ()vidl.d *9vidp.d :Mrun Nvideo.$ xec Beditoriallookout OUTLET OUTLET OUTLET OUTLET OUTLET OUTLET OUTLET OUTLET OUTLET &  "9930" N=" "̯"4"ͧ*:.02{# =,N:N:"(":X$:"9986":"9995":"23658",O8:I:I:٧+:O:O,O;"THESPCRUD R I V E MAGAZINE 1988ISSUECHEZRONNo.012S/WAREAUG88"  "EDITORIAL....A CRASH COURSE.MOUTLETTERS...B VIDLIST......NEXPENSHEET...C SKETCH.......OOUTBOARD.....D OUTDEX.......PLINEDIT......E run..........QLOOKOUT!.....F RESET(0).ROUTCLASS.....G  JS INFO......H  JACKSOFT.....I  co-edited by XECUE........J  LOOKAHEAD!...K  R.& B.CAVERS CHECKOUT.....L  __" "editorial","letters ","exp","outboard ","lin","lookout ","outclass ","instructn","jac","xec","lookahead","checkout ","cra","vid","ske","out","run","0",ç,,"8","23608",ç,"3E3","23728","65368" ("WELCOME TO OUR BIRTHDAY ISSUE!"," SELECT ANY OF THE ABOVE ITEMS BY PRESSING THE BLACK KEYLETTER PLEASE KEEP YOUR OUTLET DISC IN DRIVE 1 " "3E3""90" FS"65490",I:"65491","4":"A":ïG:"65481","11":þ"23560""2":X$:G P*K$=¾"23560":K$<"A"K$>(H+"@")"F" ZKK$-"8"-("12"K$>"L"),"14"+("16"K$>"L");I;I;O;ڧ+;(K$"L");" " x{װ".05",*:װ".1","20":X$=" PLEASE WAIT A FEW MOMENTS...":"65481",O8:"65491",O:G:NIF,K$-"@":NIF=HO XC$(K$-"@",*)"""23606",O:"23607","<":"9988":G-I:G:*"M";I;C$(K$-"@") ,*"M";I;C$(K$-"@") .OB=(K$="D"):"9994":"9986":OBO:O:٧+ ;O::C$(K$-"@")="checkout "ڰ"7":ٰ"2":"34591","" PG=I 8OB;:"23692",O:"21",O'""+(" O U T B O A R D Aug, 1988 "ƺ((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,"31";" " 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 "@lQ7": :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" l)I;I;"BAUD RATE? ";BR:K$="S":"1800" W#O;I,O;O;"           ": &J"9930":"9988":"34567":G:"65203",O:"65201","&":"65202","" &NIF="ER""9910" &þNIFžNIF>H* &(K$=(NIF+"@"):"23658","8":"300" &"23560",O:Q(*):N=Ḭ"10":Q(N)="(*10)*6+32":N:W=I:Z=OI:W=W:"9920":F=O:A,B:J=OIO:M=110 :N=Q(M)̯"z"6:F=F+.005y# =:F>AF=0:A,B:A=255Z:* &1,15;N;(N+1);2,15;(N+2);(N+3);3,15;(N+4);(N+5):.05|L,B+(12 W):þ23560\N:M:J:.02{# =,0,.02{# =,0,.04|# =,2,.04|# =,0,.04|# =,5,.08}# =,4,.02{# =,0,.02{# =,0,.04|# =,2,.04|# =,0,.04|# =,7,.08}# =,5,.02{# =,0,.02{# =,0,.04|# =,12 ,.04|# =,9 ,.04|# =,5,.04|# =,4,.04|# =,2,.02{# =,10 ,.02{# =,10 ,.04|# =,9 ,.04|# =,5,.04|# =,7,.12}u[,5,255,255 &* &KH="18":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 '"23637+256*23638+5": '!U\N#FJX*v\"\6>+s=\vB<xDBBDx~@|@@~~@|@@@>BB<DHpHDB@@@@@~BfZBBBBbRJFBjmw#wL>cw#w#>kw#>>w#>6w ' D"23637+256*23638-251":"23606","23670":"23607","23671": ' 000000lllll~H~~ ~ 0n8h0jj90  0880$~~$~~8~~888 0`||x|p||0|0~>~f?``|f~|>~`~>>f~>~f~`~>000~~f~~~``~~ff8888< ll|8`n|x|n8888>|~fff<~f~<|~f~|``|}||l``~p~~~~fff~?|8~f~<~ff~>~|~8~~0p00  t\|ƚ ' "23637+256*23638+5": '!U\N#FJX>2\͛#N#F4>>>>#>>>~:\ x *K\>Xn #^#V#v #~(~( :\ x !O > + BBBBB<   t\|ƚ ' "23637+256*23638+5": '!U++ "9E3" 2,"6E4":"9988":"9977":"9994":"9986" d;:I:I:O7:O::" " x O4,O ;"  EXPENSES";M$(M,̰M$(M,10 ));", ";Y;"  MONTHLY CHANGE YEAR No.CHANGE INPUT EXPENSES SAVE PROG+DATA PRINT EXPENSES ERASE OLD DISPLAYAMEND GET DUMMY LOAD ""run"" DELETE = 0 " "8955":O:K$=:O,O VF=IK$="D"K$="P"K$="E"#O;O,O;" (NOENTERED)":BP:"d":"" K$=°"12""2E3":K$="Y"O ,K$="M""1600" 6K$="Y""1500" @'K$="D"S=O8:P$="`":ZX=O:"3E3":G ELK$="P"S=O3:P$=("#"DS)+("`"DS):HELP=O:PQ=O:"9800":PQ"3E3":G G PQPQ=O:G JWK$="C"#:#O;I,I1;"CONTENTS":"23608",O:*"M";I;"CONTENTS" TWK$="N"#:#O;I,"24";"NEXT":"23608",O4:*"M";I;"CONTENTS" K$="I"AMENDING=O:"1E3" sK$="S"O9,I7;"S":"M";I;"EXPENSHEET":*"M";I;"EXPENSHEET"ʯ"2":*"M";I;"EXPENSHEET":O9,I7;"S" XGK$="L"#:I5,I;"L":"23606",O:"23607","<":*"M";I;"run" l4K$="E"I1,I7;"E":"2E3":K$="Y""9E3" K$="G""9900"  K$="H""4E3":G "" F=MXI+I"1300": eO,O;" ENTER THE DAY ";(M$(M,̰M$(M,I0)))," (1";(M(M));")",D:DM(M)źDDBP:"1050" $NEX=O 8D(F)=D:"23658",O LO,O;"ENTER THE NAME OF THE ";(""NEX);(""NEX);"ITEM(MAXIMUM ";(MXL);" CHARACTERS)JUST HITENTERENDADATE: ";Y$:Y$="" Q "9300" T I$(F)=Y$ VO,O;"ENTER AMOUNT DECIMAL POUNDS(MAXIMUM `99.99)DO ENTER THE`p SIGNS - USE THEINTHESE EXAMPLES SHOWN BRIGHT:- 3=`3,1.50=`1.50,.10=10p,.05=5p ";L$:ñL$űL$>O5BP:"1110" `DOT=O:DOTPOS=O:N=I̱L$ b/L$(N)="."DOTPOS=N:DOT=DOT+1:"1135" eDOT>1BP:"1110" j"L$(N)<"0"L$(N)>"9"BP:"1110" oN:L$>O7BP:"1110" pL$ȯ"d"BP:"1110" qL$="."BP:"1110" rDOTL$=L$+".00" tDOTPOS=L$L$=L$+"00" vDOTPOS=L$-IL$=L$+"0" wL$="0"L$=L$(O2):"1143" xL$(L$-O2)"."BP:"1110" y"A$(F)="":A$(F,A$(F)+I-L$)=L$ z"A$(F)="":A$(F,A$(F)+I-L$)=L$ {AMENDING |AF=F+I:F=MXI+I"21",O3;"THITEM ENTERED O.K. BUT":"1300": ~NEX=I:"1080" n#O;O,O;" NO ROOMANY MORE ITEMS PRESS ANY KEY":װ".4",O:װ".5",-I0:O:O,O:,,,,,,: 1O,O;"ENTER YEAR... ",Y$:Y$O4BP:"1500" *N=IO4:Y$(N)<"0"Y$(N)>"9"BP:"1500" N:Y=Y$: @aF>IT,O; " THERE IS STILLFROM LAST MONTH. DO YOU WISH?":"2E3":K$="Y""9E3":K$="" r/O,O:O,O;"ENTER 112MONTH:- ";Y$ |ñY$űY$>O2BP:"1650" +N=I̱Y$:Y$(N)<"0"Y$(N)>"9"BP:"1650" N:Y$I2BP:"1650"  M=Y$: 4#O;O,O;" PRESS YCONFIRM" !װ".1","2":K$=:ïK$"2050" K$"Y"K$="" 4 :#O;O,O;" PRESS ANY KEY":O: /;:#O;I,O9;" PLEASE WAIT ": #:O6:#O8;O2;O5; #S;S$(("3"-H$)/O2);H$:#S;S$((513-H$)/O2);U$(̱H$):#S;" EXPENSES FOR ";M$(M,̰M$(M,I0));", ";Y:#S;U$ TOT=O:LN=O4:N=IF-I:#S;" ";(" "N9 );N;" ";(" "D(N)9 );D(N);".";("0"M9 );M;".";Y;" ";I$(N);" ";P$;A$(N):TOT=TOT+A$(N):S=8LN=LN+1:LN=21+ZXLN=ZX:"3500"::#S;ZX,O;:AMENDING"3E3" ;N:S=O8LN>I8+ZX"3500"::#S;ZX,O;:AMENDING"3E3" 1DOTPOS=O:T$=TOT:N=I̱T$:T$(N)="."DOTPOS=N N DOTPOST$=T$+".00" DOTPOS=T$-IT$=T$+"0" s#S;S$(̯"1"-T$);U$(̱T$+I):#S;S$(̯"1"-T$);P$;T$:#S;S$(̯"1"-T$);U$(̱T$+I):S=O8"3500":AMENDING"3E3"  AMENDING=O:ZX: c#O;O,O; "A= AMEND AN ENTRY,D= DELETE ANY OTHERCONTINUE..." O:K$= K$"A"K$"D" O,O;"ENTER NUMBER OF ITEM YOU WANT TO";("AMEND"K$="A");("DELETE"K$="D");"0ABORT: ";AN:ANF-IANɺANBP:"3505" Bh:#S;I0,O;" ";(" "ANO9);AN;" ";(" "D(AN)O9);D(AN);".";("0"MO9);M;".";Y;" ";I$(AN);" `";A$(AN) LK$="D""3800":AMENDING=I: t@TEMPF=F:F=AN:AMENDING=I:"1E3":"23658",O8:F=TEMPF:: ؝O8,O8;"?":"2E3":K$="Y"O8,I2;"ING...":"2500":N=ANF-I:D(N)=D(N+1):I$(N)=I$(N+1):A$(N)=A$(N+1):.004yn,30:N:F=F-I   :'" A F E W H I N T S . . .Not everyone has to fill in amonthly expense sheet of course but if you do then EXPENSHEETshould make it easier and muchneater.EXPENSHEET is simple in concept-Enter the current month number. Add new expenses as they occurduring the month and use there-SAVE option to keep the info on disc or cartridge. At the endof the month,load EXPENSHEET anduse theoption to obtain aneatly-printed expense sheetwith total. Remember to oldwhen starting a newmonth!" "4900" :"The following BASIC lines may beadjusted for your own needs:9100=MAXIMUM No.OF ITEMS(initially 55. You can increase as far as memory allows but ituses more space on disc or cart)9110=MAXIMUM LENGTH OF ITEM NAME(change may ruin display format)9170=SIZE OF AMOUNTS(set at 5 togive up to '99.99'(`) initially)9190=EXPENSE SHEET HEADING(Any heading- max:51 characters)93109500 DEFINE ITEM NAME(Frequently-used names like'stationery' may be defined soyou only need enter 's')" 6"4900"::"Little more info is needed asEXPENSHEET is fairly straight-forward to use. Some dummy datacan be generated if you want aquick look at the presentationbut don't use this option if youREDUCE the maximum number ofitems below 50 or it will refuseyou! Also remember - creatingdummy data will any real data so you will be asked toconfirm! - Brian":"4900": $~#O;O,O; " PRESS PTHIS PAGE ANY OTHER KEY":O:K$=:K$="P"HELP=I:"9800":"9891"-(O9ZX) V: װ".4",O:װ".5",-I0: "c"23658","8":#O;O,O ;" HELP CONTENTS NEXT": #(S$("3"):U$="---------------------------------------------------":M$(12 ,10 ):M(12 ):9E3(#:N=112 :M$(N),M(N):N:O,I,O2,O3,O4,O5,O6,O7,O8,O9,I0,I1,I2,I3,I4,I5,I6,I7,I8,I9,T,M,Y,F,G,BP,SET,DS,ZX,ZXTYPE,PQ,E$:"JANUARY 7",31,"FEBRUARY 8",29,"MARCH 5",31,"APRIL 5",30,"MAY 3",31,"JUNE 4",30,"JULY 4",31,"AUGUST 6",31,"SEPTEMBER9",30,"OCTOBER 7",31,"NOVEMBER 8",30,"DECEMBER 8",31,0,1,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18,19,20,1,1988,I,"d","5E3",O,O,O,O,O,°"27" #"MXI=557:MAX ITEMS ##MXL=26:MAX NAME #I$(MXI,MXL):ALTER AS NEEDED.  ^  ^ MAX No.   MAX LENGTH OF OF ITEMS   ITEM NAME  #D(MXI):DAYS ##A$(MXI,5):AMOUNTS #dENTER YOUR OWN HEADERBELOW. IT WILL BE CENTRED AUTO-MATICALLY(MAXIMUM 51 CHARACTERS) #&H$="CHEZRON SOFTWARE - BRIAN CAVERS" # $TENTER ANY LETTER(S)BELOWREPRESENT ANY ITEMLIKE THE EXAMPLES SHOWN...USE 'G 'RE-ENTER THEPROGRAMYOU HAVE VALID ALREADY $^(Y$="S"Y$="s"Y$="Stationery/Postage" $h(Y$="M"Y$="m"Y$="Computer Magazines" % &HZXTYPEZX=I:P$="`":S=O8 &RSET &\%HELP:I1,O9;"OPTIONS " &z#O;O,O;"KEMPSTON E I'F1 ZX OPUS LPRINT III DISCIPLE QUIT" &|O:K$=:K$="Q"PQ=I: &~K$="K""9881":SET=I: &"K$="I""BAUD RATE? ";BD:"B";BD &!K$="I"K$="O""9887":SET=I: &K$="L""9888":SET=I: & K$="D""9889":SET=I:DS=I: &(K$="Z"SET=I:ZXTYPE=I:ZX=I:"9800" & "9852" &7"9883":E$;"@";I5;E$;"W";I;E$;"l";O9;E$;"R";O3: &:0 & &:1 & &Cԧ:ӧ;"B":E$;"@";I5;E$;"W";I;E$;"l";O9;E$;"R";O3;:ԧ:ӧ;"T": &SE$;E$;E$;"@";E$;I5;E$;E$;E$;"W";E$;I;E$;E$;E$;"l";E$;O9;E$;E$;E$;"R";E$;O3;: &> @O6,I:E$;"@";I5;E$;"W";I;E$;"l";O9;E$;"R";O3;:@O6,O: &"23637+256*23638-0129"::hurrydump  >!"[K[*6\y_y@W`(< =O# >2[ Hx > :[:[2[ >2[> :[2[ &MXI<"2"BP: &K$="Y":F>I"2E3" &K$="Y""2500":Q=I:I:J=O̯"("I0:"9900":N=II0:I$(N+J),A$(N+J):D(N+J)=Q:Q=Q+(2ƥ>.6):N:J:M=O6:F="51":;:#O;I,I2;" READY ":װ".5",I0:"2":DUMMY & &"demo data only!"," .10","computer magazine"," .70","postage stamps"," 8.28","train fare","16.50","box of disks","14.45","computer magazine"," 1.25","printer paper"," 6.99","envelopes"," 3.50","computer magazines"," 3.10","misc. stationery"," 2.85" &P#:"23637+256*23638-1322": :!J*S\+ U !8!"&\LH(( 7777:/Y >X2/񇇇W:+=21X *>2/!-8 W!.F!)>2)20@O >Y2/ >X2/:02) >2.>2,>*2-*D"J 2.>2,>32-*F"J >2.>2,>@2-*H"J > >2+=21>20>2* ':*(!+8>21>20>>2* [Jo&)))"2>2*K0:+=ͬ"24"5*5#:4[. *2~#"2o:4(G&=:B[5:4( :00|*5$"5:0!,8>2*:1!+8>21>!.20:1v !Z:\wZ>21|Xg:\w*@@@@@@PPPPPPP p`` @@``@X @ @@@@@@ @ @p p @  @@`А` ` p` @` ` ```0 @@@````p` @ @@ @ @` @@pp`𐐐pppp𐐐p px`𐐐𰰐```аpࠐ``` p``````  @`@@@@@@`@@ ` ` p pP@@@pppppp`p0P@@@@`p@@@@@ @@@@@@ 𐐐```pp``@@@@@ p````p @`@@@@`@@@@@@@@`  `HpȨp &"M";;"exp" &*"M";;"exp"ʧ: '"23637+256*23638+5": '!U\N#FJX?????????????8q8S 'Y"23637+256*23638-0058"::*v\:f\<0&K=\ 2B\ 2C\ 2D\"\6>+!s=\v!5J ' ~64000:"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"6\>jmw#wL>cw#w#>kw#>>w#>6w 8q8S 'Y"23637+2!+*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z* 7"ij8}{Bئ EQU name EQUALS- used to define labels(like variables) DEFM "X" DEFINE MESSAGE followed OUTLET'SEXTRA \ JACKSOFT Z80 ASSEMBLER BY HANS\ GEORG ZEZSCHWITZ.(instcons\ -wt bBa Cars)\ ------------------------------\\JACKSOFT'pg e\BASIC- ty i mr\anmnt ENTER add\t pg sng.\T sm mndl \expii OUTCLASSES srng\tisanl n\si i ise. ^No ot mnd} \enaDIRECT COMMANDS, i.e.\tu maBASIC\mndy,t a otr\"nt mnds" o"asmbr\cªs" pĘ s\nconi JACKSOFT ant\a salp}llo t\lnn.\T pg sn}nt\ "RUN" imal BASIC\s "asmbd" rst\in c ˘ antn\"RUN" f t JACKSOFT (r\ic sng)oSAVEd,-ad\anutUSR mnfm\BASIC. Iktnaut\c ˘ oasmbru\sulpnt lng\n ant e\OUTCLASS i tise. ^I  48K BASIC, a\pg  DELETED by\tyni itmanENTER;\CHANGED b-tynt mr\ant en¦ ai or\MODIFIED bpsnE anet-\int aed. JACKSOFT\al ll-sce e\t sn anby\u ot ry ժ\t ero,\cn anENTER .\No tonlONE mny\ eno anNO \ nt t "scen\s". Iunt ll-scen\eto pg \tut "sce s",t\rMUST o t ԫof\t "sce s" w ENTER is\ps t cn. ^Moor,t ԫ MUST NOT\BEGIN WITH A DIGIT OR LETTER! In\u l s˪t only\oc}o pg ut\sce iw t ia\mn( BASIC REM). It's\mntw enna\ tmnu t\TAB mnd(r) }n\t l t\i t snanSPACE\at srot ԫ.\A "*", "!", "+" - anytna\otl al !\ALL int,incnZ80 mnds\(OUTCLASS)  i }l\trs,sl trod.\LABELS (OUTCLASS) sBEGIN\ttot alpt\tafu tor\t unr cc"_" up\ o6 ccrs... ^ JACKSOFT ASSEMBLER DIRECTIVES\ (PsENTER aftyng)\ -----------------------------\A AA0\\A0 ASSEMBLE snin a\ c ˘ pgm\\A1 AA0 + slud\\A2 AA0 + ssng+˘\\A3 AA1 + A2 ܛtr\\A4 AA0\\A5 AA1 tpnr\\A6 AA2 tpnr\\A7 AA3 tpnr ^CAPS+1 INSERT CHARACTER (cas\ s i pg \bnal x t ght\ot ro ccr\rtght. Y } t ty\i cci t s\cad\\CAPS+2 CAPS LOCK on/ofi t\ r y.\\CAPS+3 MOVE CURSOR t enof\ t \\CAPS+4 CLS - cart scen\\CAPS+5 MOVE CURSOR o cLEFT\CAPS+6 " " " " DOWN\CAPS+7 " " " " UP\CAPS+8 " " " " RIGHT\(arys) ^CAPS+9 TAB RIGHT TO NEXT PART\ OF LINE. Eac s\5 cons: Li mr, l,\mnd, arnanmnt.\TAB spgh t srof\t xcon. T\ig֦w enn as\JACKSOFT l s t \܇}lli t snt\rkaʪ auenng\ tmnanad\OUTCLASS ilo enng\pg .\\\C CONVERT HifAsmbr\ x (sng) in\JACKSOFT rt. Lt Hift\ rsunJ mn(e\r) ant enC on\only. (Nosd) ^Dn, DELETE  m. To\ DELETE wР sng\u D1, w ianmr\gat us\mr. Bt y, t m\ mi32767!\\E EDIT ( is\ spant rr\ipat sro.\\H,r HEX CALCULATOR. Anrm,\ }lao oexpson\ u- t lt'swn\i tanl. Iy\al ut es.\T r  i l, x\ory.Peth\# anrt%.Vaath-\ empԭanu\"&" AND, "@" OR an"!" ^EXCLUSIVE OR. Emps:\\H,START swot l\ START i l+ x\\H,#FF swt FF in\ & x.\\H,55000 swt 55000 in\ t & x\\H,(5+3)*5 Swli &\ l.\\Sn~reao a\od. No tt st\ si t rm.\\I INCREMENT ܇c\ mng. E.g. I20\ia mng ^i spo20. T enur\x i t r th\mr. O mpo (afr\psnENTER) t xmr\apar܇}lly. Sts\m،ly,e.g. enr-\ecª, bDELETEin|c or\t mr.Nex¡ ena\ mil mn\܇ mnth\t incnt. SWITCH OFF\- mntI0.\\J, LOAD x sng\ }l.Fi up\ 10 ccrs- e u\oo rks. IMPORTANT - Any\ al ADDED at\enoansnaladin\JACKSOFT ant snl \md. Ts,t mny ^ u adpslwtt-\e sn~ru¢(MACROS).\Tmnd,tt bc \DELETE ant bc SAVE\ u anMERGE\arnnsh! REMEMBER\tugh, iss ad\, u t D mnrst\iansnialadin\JACKSOFT.\\J,< LOAD BASIC }ld\ "n" (DISCIPLE ron\ fnt). T \an"<" pmp alby\cnnBASIC 8000.I add\tmn eJACKSOFT.\\K Set mopgm\  apaaft\L (LIST) mnΦ rtr ^ypsed. T i\"scll?" s i JACKSOFT as\i BASIC t pg its\any psd\af pg a sd\Φ sclnut sng.\I mnu K5 K10 if\noupg \ut sce s.Lisngt\wsofsce Φ u\} at tK20 oզ!\\L LIST pg f n\ onrd. NOTE WELL: USE\BREAK(SHIFT+SPACE) enou\scl thuga en¦\sn i ntl!\\Nn, -NUMBER pg s\ f onri spof\ (t si 255) ^R RUN c ˘ pgm\ f t JACKSOFT (\sit). ENT instco ed\(w). T sr\nnta spd.\\Sn,m, SAVE snfm\ m\unan "".\\Sn,m,* SAVE t asmbd\ ˘ unt\ "*". an } \anm32768 aty\a uonl tt synx\iacpb JACKSOFT and\t "*" pl rt\SAVE mu¢ aBASIC \9000 wcal PRINTut\˘ sranngto scen.\Li 9000  lald\ipۡ otpx. ^X DISPLAY ADDRESS OF END OF\ LISTING. RAMTOP iat\24999, t JACKSOFT ˘ srts\a25000 ant enot ˘\it a pg s\pni31715.Aadp-\g u uզ addr-\esgangi m-\or e artt\ orw anc\˘ pg asmb tn\ it! A r snal\ ory! Iasmbng\՘su¢srni t\60000 po t i\~nonfcanyy,\t X mnswt addss\ot enot sn u\} cck. E iu ts\omntu' l\ in tub an} u\t PSO mnal(r). ^Filly, t a ۡ pu-\instconwcan'ct\mnds.Ta eni t\snasmbin\˘.Ty' instconTO t\asmbtt instct-\n ASSEMBLED in t\c ˘ pgm. Mosof\t l cei t\OUTCLASS et\rta:-\\ORG Dect addsat\ wcnt ˘\ asmbd. SHOULD\NOT BE LESS THAN THE END OF THE\PROGRAM LISTING! (X aʪ)\\ENT Dect addsat\ wcs ENTER\ & t c ˘. ^EQU EQUALS- u \ ls( abs)\\DEFM "X" DEFINE MESSAGE lԫd\ bxi olls\t asmb t ASCII\˘t xi rat\tini t c ˘.\\DEFB DEFINE BYTE llt\ asmb p t\ln i rat\tini t ˘.\\DEFW DEFINE WORD aDEFB\ DOUBLE-BYTE\e(OUTCLASS 10).\\DEFS DEFINE SPACE llt\ asmb a n\addsempt(0) i t ˘. ^PSO PARTICULARLY SPECIAL\ ORDER! U asmb\˘ aaddss\X (aʪ anORG). U\gORG addst u\nanlitPSO n\w it REAL addsu\nt ˘ . Y }nt\RUN t ˘ f t JACK-\SOFT sSAVE ian-\aat addsn.\\ ; T - i\ REM i BASIC an\o o itow oat\eno afmnd.\IMPORTANT! THERE MUST BE A SPACE\BEFORE THE ";" onZ80\instconrpt, e.g.,\LD BC,(23675)is-asmbas\LD BC,23675. Don'mnts\aft instcons. ^Wel tt'it! I tn it'a\ asmbanI mt\of t tHanGrg\Zezschtz. I' e mral\asmbrr t ts\anHan(w ionl19\arol s en\au17 w wڨ JACKSOFT)\ptpg i t\ḃin.HE nds\f Hamrg:- "GREETINGS TO ALL\BRITISH SINCLAIR-USERS!".\ - Ban\\FOOTNOTE-LAST MINUTE BUG FOUND!\W n f JACKSOFT\u RUN afd erch\a"cd ll".DNOT u\CONTINUE -traaltugh\iSAVEt , t Sctm\-to -entr JACKSOFT!\(Onlcco m/d r).^ SINCLAIR-USERS!".\ +!+!d;"49999":O=ç:I=:O:O:٧+ :I::"4986":"4994":"   Z80  FREEWAREHansGeorgZezschwitz":,"w":O,-",":"",O:O,"T":I,O:O,-"U":-"",O:O,"," 9"This is a full Z80 machine codeassembler!It's many features arelisted in 'JS INFO' and OUTCLASSstarts a beginner's tutor.Selectthe PRINTER option NOW,if neededas there is no return here oncethe program's RUN. Exit by usingJ,< (LOAD,RUN keys) to return toOUTLET or any ""run"" file.":"590"  O:K$= K$="R""23607","<":"4E3" WK$="C"#O;I,"15";"CONTENTS":"23608",O:*"M";I;"CONTENTS" BK$="N"#O;I,"25";"NEXT":*"M";I;"xec" &K$="P""3E3":"590" 0 "510" Nj"23658","8":#O;O,O ;" PRINTER RUN CONTENTS NEXT ": #O;O,O;"KEMPSTON E I'F 1 ZX OPUS LPRINT III DISCIPLE QUIT" O:K$=:K$="Q" K$="K""3090": "K$="I""BAUD RATE? ";BD:"B";BD K$="I"K$="O""3130": K$="L""3140": K$="D""3150": K$="Z" "3010" :0 °"27";"@": &:1 0 :4ԧ:԰"4":ӧ;"t":Ӱ"4";"b":#"4";°"27";"@":԰"4": D°"27";°"27";°"27";"@": N @"6",I:°"27";"@": "23637+256*23638-5727"::jacksoft+  !JPNP!n!n!a"\6>+s=\!a!"B\>2D\!v!{"4{+6>2@{>2a!"6{"8{&a":{2k\>2H\2\ͯ !?{>!3ccX!?{cK:{͛ ~wwvn(ww>2:\ b80K:{ j  b= !a= :j\2j\= $y(O*\}o>T]-$= > a= y=O d>= y<O X<= y͎e2:{a= x0>G;= 'y=aO*\>T]6$= >1b=?d= > i(C:{a > 1bfjy2:{~~#0:;{og}o::{o JACKSOFT-ASSEMBLER  Version 1.1 Written 1986 by H.G. Zezschwitz Schwindstr. 17, 2 Hamburg 52 Copying for non-commercial use allowed. ͛ ~ #} 208.:0*!8)`i!8!!8 80O 8DM#}~ x7cx?y~A[? A[?x!`{@6 #G+jw+ y x( ~ !{c0O!{.d8<#.d06 #.d0,++.d#!f(~###(:;{G͛ >?͎ea#N#F~(!`{!{gͬee { Ée!{p#q#C<{f6 #" w#{(Cw#" f6 #{(. (; $!{RDM!{~ (+ x y(+~ (#6 {RK<{ͬee{͎eK8{x(*<{ | +f>2:{a͎e2:{:;{<c2;{K:{͛ !{~# ~+#8+#~# (*4{T] "4{B ~##~# *4{B"4{ ѯRDM; (w#{< *:{>|}_f_f_f_f_fɯ <8B= v(>0!?{Q$hCiDgEIiJ)hIUgKggLbiNgPiSgXrgRfA@kHjTextend:Returned!AF:BC:DE:HL:*J{|(!f!?{͎e!fc͎ecj@Ďeûg>2k\g~,g#ͬegͬe~(~# RgDM*4{B"4{ Bx(kCac~1>8$d8`28{Q$d8U2@{F!f͎ec*4{+> 2:{+f2g~, 0#$d8(!{~(r#s#~# |x8 >/͎ea>?c8xgͬe~#, gͬe, ~(##~# B!{6u t q p!{ (#61!{ *4{+"{@61[{(!`R *4{+6!hc͎eaS4{!{B øgBKÚg61øgOut of memorygͬe͎e~(i!;{5ac0xgͬe͎e:@{G~(#iT0~(vn(:@{~(ziT0rV#^#!?{_f_f_f_f_f> ~ (.y N ͎e~# Afjy( G>  #NÎe>øgy0 0 00~,#g> 2{!!ak9n!?{g͎e>=>2:{`i+f> >=> >#jûg|j}j 80x͞}o*6\$ # x x <`(GlHlMlRllllllC7!)k!)k[HõsFlKlmlrlwl|llllllm mm?m`{!ak!ak[H{6#6!tk)n ($;( #[6666O [H{k9C7~~ ~ (7K~ 8A8[0 ( (/ O!Ck N#F!l0~ ##~ݶwy7 ~#(#ww~ !v!vk:ck247!v!v!w!#w9n44qp7!8w!Cw9n4 ~`iKlkBKB{BDM8 xy x?y?q79n~ q47q47!VwIl9nxyyݶw7!bwk47!pwk- !$ *B{y#(-%(P"([:0s:0_08[0DM)) )O 0 88: 8 *80 0*O)))) 080)oo"(DMF(0or ~( N#F`iPr0 Pr8N(!BDM7 ( (( %. (,((-) -  ( ( (!qn)n( 9no)(}Em0x,)n o#o0",} g|(g(wsr u}=(3o&o^#V~w0^V V .~gqn7}= */+-&@!?oIocoioqo|oow6 ݾ( 4 8~ 7PYͩ0nx`i+-+-'8͢-7 7B7|g}o7|g}o7|g}o7org pso ent equ defbdefwdefmdefs 2kk*4{6+"D{!"L{"B{&"lk!{~r2ck"N{KL{CB{##~ Pr 8e ~ Xor>D&r*D{ "D{~  B Pr8 [8 w#6 #"F{ #~Pr0)n q;q)n!o2bkSH{kTq2ck:bk= *dk"L{"B{"P{Qq= *dkKP{B"lkQq= *dk"J{Qq= *dk"B{Qq= !*L{9n>P'r4 ~(yw#,(]= '*L{9n>P'r44 ~(yw#xw#,(3= )*L{)n">P'r >P'r"(4 ~(w#:dk2ckl*L{"B{nk>S'rNi(4 ~(N*L{A( >I >w#i(q >w#Q( :ekwˑ>w#:bkw#Q(:ekw#y( :dkw#a(:ekw#)n ( ;>S Z *B{Klk "B{ ^(*F{KB{q#p ~ Ls*L{N "L{KD{B>A8o!kk~ o>͎eͩs!sc͎e*N{!?{i!;{5a_A8 [?a{? n0:?*4{~Pr8q[8 r(+#0L BN:\>n(vvn(!@@6!":{ͩs ##+#8 ~ Last Byte:-Error: ** JACKSOFT-Assembler ** (C) H.G. Zeschwitz Aug '86 *B{͜rj*L{> > :ck(8>G~j> # yG> *N{!?{i!akN͜r͎e͜r͎e!ak>:;{::{0888>00W(>!sc(r!ako F(6͜r> *4{~("͜r~#> > ^#V#j> ͜r> !ak>~ W (>2;{ͩs͎eͩs!rc*L{+j͎eas͎es!sc*L{+j͎eada'dec dec ddjnz eex af,afexadc a,add a,add , and call ,call cc?cp cp/da'dec dec ddjnz eex af,afex de,hex (sp),exhalvin a,(inc inc jp ,jp jp jr , jr ld ,(*ld ,ld ,@ld ,ld (bc),ld (de),ld (),2ld (),"ld a,(bc ld a,(deld a,(:ld sp,noor out (),pop push reret rlrlcrrrrcrst sbc a,sc7sub xor bit ,@res ,rl rlc rr rrc set ,sla sra (srl 8adc ,Jcpim Fim Vim ^in ,(c@inld ,(Kld (),Cld a,Wld i,Gld a,_ld r,OldneDotdotiout (c),AoutoutretMretErlorrgsbc ,BrFhiibd s0 (08(nnp p(08id ((08bd a0hix+iy+nnSXrw| T])))_"+͟q ͟q t"M";;"jac" v*"M";;"jac"ʧ: z"23637+256*23638+5": {!U\N#FJX?????????????zł|S[kV8q8S z"64E3":"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"6\>jmw#wL>cw#w#>kw#>>w#>6w  "25E3" @,"9900":N$="<""65367":*"M";;"run" r*"m";;n$A:"26687" #(R"9900":N$="*"A="31568+256*31569":B="31554+256*31555-A+1":''A;",";B #Z*"m";;n$A,B:"26754" &\B="31659+256*31660+1":A="31661+256*31662":N$="":N=ç̧*:n$=n$+¾"31649+N":N: *"M";;"run" r*"m";;n$A:"26687" #(R"9900":N$="*"A="31568+256*31569":B="31554+256*31555-A+1":''A;",";B #Z*"m";;n$A,B:"26754" &\B="31659+256*31660+1":A="31661+256*D*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *J< S>>*̞B< ![#R0~ 8~> > >z ,t&ގ?bܛU_$cح[ְ)V.Ӹdt*m ................................\\\Aust, 1988 Pa Reply\\ G. A. Mattws.......02 05\ Do Wng......06 08\ PaCary...........09 13\ P. Te............18 19\ J. N. Bur..........20 21\ ChCyn........22 23\ Joh Luby............24 38\ Ba Mumrd........40 41\ DaWornm........42 44 ^Fm: Mr. G.A. Mattws, Esx\\DSir,\\DRIVECHAT'S A inrn\ppsra }lid\ngana obib fm\TANDY `1.99 ch. Lur\a athugt nas\n¡a}n.TANDY al\ a R.F. lr. I\a® |nac\ I o ˡ an\exro t bct.\\I ܎ sr. I\bsc Sctm\ugups-SPECTRUM PROGRAMMER,\DATABASE. I tban\ea i DATABASE. I sll\mbscpon.I nt ^t mp r tetit\ tTasr and\2 srpgm nst\mint;t sintt\altugI lt :\"TASWORD FILE DISPLAY 1 AND 2"\ pt sot \wcI e un tns-\ۡ imf OUTLET \s f cd. Trk\e nc t my\rk. I wt m\ln ta ly\ an u tm.\I' rripd.\\Odtanes: O +3 ty:\OUT 32765,21, psENTER and\u' i "Sct ՘". Ty:\OUT 32768,48 anu' i t\o 48K ՘. ^Bt y, tn a\crei i OUTLET\auunncsp\ca ed ncts, I ntly\stexen th\TANDY'nccar, pd-\ucI ulrlltughly\mnd. Ark, I spa\Hoyl nt tit,\wciall}m-\ntlna instal\t. I inn ca oƘ\tf t ncons.\So ot spnot\PC ard. T efctt\ mآntmply\dpot l t. Boy,\I i tub. Mol: \} w spit.\\ - G.A. Mattws ^To: Mr. G.A. Mattwf Ban\\Gulp! I' ssruna\ncspo t ed\ncromt Sctms!\\Tnkt tof\in. Y noof\˘ (wcI g }n't\u i OUTLET ait'pyght)\ant dgd\u' na I'll\cn uOUTBOARD s.\\Don'rraut DATABASE\x-up. A tncth\t olBuc}egup? I' an\iI a adrtt\ addss. I' ̢ srt\eoSPECTRUM PROGRAMMER in\CHECKOUT tise. - Ban ^Fm:Do Wng,Lonn,W12.\\MantnkOUTLET 9 ant\BONABANNER }rtd. BONABANNER\irluanallod\բy.I a exnt-\inantnt now\ u ianФ nu\marsto ot\~ys. A u ado uld\ e HELP ais\aib i TASWORD. I exct\on o tatt\ntlil ˡ er.\\I atnt ZX Micڀion\t 11tJu t¡ t\ane\lMi aa assnt. As\u' a, Mi Johns ns\t ZX Micڀitt lp ^oDaan|no-\}rdrnlrs. I\allenҭt sand\tt ¡ c uw\|rins. T i od\atn~n ghthugt\~y. Whdn'OUTLET ˡ?\\I o oue Outtt-\erw no\eMi anexpsapp-\ao ot ZXM. Harnt\auif us in\LOOKOUT, Is9. Hn\kw t xsul\a tluf Den. I\l I ulesMi \inr OUTLET w ll, I am\, adr§ ii t ise\Φ t sw.\ - Do Wng\ ^\\\\TDo Wng f Ban\\Tnks, Don. W}n'e nd\¡ t ZXM aԢ\ snain! I s\ulI' u'tr\ snt ~y(ant ~yof\pon) pnt xt\OUTLET. We'l rinladħ\arot ~ ot xt\ZXM.\ - Ban ^F PaCary, Harw\\DSirs,\\Tnksedpl my\espour\mpȢ, wcI sn\ add, imps end.\\I w (ty?) i t Ф tt\uoloatr\a} l ta\pb I' e trng\ rۡ ¡ w.\\I rcpoTHE WRITER\}u iul tnsrd\ cd }rtd. Now\t PD (wcI a r\eug own) unrsndt\M'd syn I asI ^ultnst pg \sc- an ri exnmy\asmpo rct. Hor\aft rs bck\a'Sta ud' s\aparananrttns-\rn sends. I' en-\cԧpot BASIC ad-\ebck onrdanif\} gsanadndnts\i or l mpb I\ulapa it.\\I' aterrnTHE\WRITER antipnn- \implI }n't. I ow a\ZX +2 anBtHR-5 pgd\stighin t +2'RS232\rt, t pninsll\pg esn'apa }r\tmon. Ian\ ^ˡ uainstpbm\anorˡ iI' pad\ af tm.\\I al exen pbmwn\iˡ pnnung\Outt. II at mpr\unt aopo o m+2\t I } pnunt\Kemps E opon. II ad\unt 48K ՘ Ыr, and\ai u t Kemps E opon,\tnpns.Angsons?\Wt'զ, iI u t\Kemps E opo al I ia\pot Jott scen\anmtaФd.\\Lastly(tgoef\I ard)I — tOuts\gt 48K Sct as ^angsottngJiBx\n'r i 128K ՘. Du\innan128K ron?\Tnnu-or-\aon,\ PaCary. ^To: Patc Carf Ron\\\DPat,\\Ruert"T Wr".\Atar, Bil Crk, s\al pbmtpnng\ttrpڗsr. A\tewn Sofchcs\tucss, I of\o at pg if\t o t\ulimpnt. Unrly,\saftt, t al\inr o mpnd\ r I ub \csng. Fot st\othnthI en\pnnt Disp sk\inr t atmptI ^ t"T Wr" \id. T i pb itt\t pg ien¦lwtn\i c ˘ aniiry\cզ fl c in\ nt pnu¢etc.\\T Тst, I nio of\t sesnpgmI\ ˡ acss. I w\teufnWord\Pڗspgmantall\ tefco - al |r\TasrT wcI u ery\~- "T Wr" is\rrl|d. I \n ai xt\! T onlI en\ab aa tЧ ta\܇}llli bt\Helmnd. ^Innlly, } t\i pg tt PD's\Spst an \o }e, I as\is sb it\f s - isedt\pnpb iڼnt!\\Anyw, I gst ules\tt pg anur\pnr/inr mon\I Ф bpnnts\ttt  otr\ar- w զ\cstit -\an} expi  insl a\stight-rrEpn-ty\pnr.\\Witr upnng\f OUTLET. I }n' t\wipn - I kw ^otara unt\Kemps sys cssll-\ia pnnt Jotr\t , a tna\sce mf ۡw. Did\al sce mwn\atmpn pnt rl\xi OUTLET?\\Mosot Kemps mnds\u t COPY ܟ et\128K al sn tad\t ZX anAlp pnrs? If\iet tulexpin\t sce mp, I uld\ tughtt xuld\sl pnaftt\(e iinrctls´ed).\Butesn'expi whit\ulr i 48K ՘ - a\  t "E" ty\Kemps ant "S" (wch ^iۡ ˘ ad)\- alrªly, ean\kiKemps pd\a inr unfnt\synx?\\Folno usint,\Pat, iiunlt ll\bn128K ro of\OUTLET as, altugt is\զ rt t mr,\t ul infent\s o t }rtd- I\}l冨 tty} OUTLET,\wt i ry-ngr128K\Bac, ulocpaas3\}rtds.\\St  it. No t\oth- \tuuΦ w!\ - Ron ^Fm: P. Te, Bsl\\DEr, (l iunds\tt Ro oBan),\\W anOUTLET 008B s-\r~I ft ثr\i wcrpt\}rtd. Clpa,\pa, pa n¡ in\te al uotb\ atpo008B .\\Eugot pang. Wis\t rnin o inab\ tnsOUTLET \} u al tЧ tt bck\ʬt a al act-\ing? OUTLET ip\ERASE "M";1;""\ Yrithlly,\ P. Te ^TP. Tf t er\\\Oh, b par! I am\i uctۡo w \ab w ۡ u¢r\uand,i,o ot pڞcts\l u¢ tnsr\cd  }st t\n'lubath- t st\opڞctino!\\ - t er\\[O ntughts-ld\ubatish] ^Fm: J.N. Bur, Bart\\DBoth,\\Mantnk"Outt" No.10.\Blanaer, esally,\"ARNOLD!"!\\"Kay}t"  on-sce t\i Lpnt Os\l r(tugill\pn a Alp ty of\pnr). I i swt\wntt pg t\t "sh" ane\n aal ¡s. (No\e pl tbt y\aI ulrllu my\t-tpnts\anyy.)\ Yrnly,\ J.N. Bur\ ^To: J.N. Bur f Ban\\I' plat KAYCAT\pb afcoturs.\\T uli aI ada\CLEAR # i t wnp. T\pb iI sl t\pnat Oand\ }n'spnopons. T\o KAYCAT i ժ\t CLEAR # f t srof\ 80 t sro 70.\(i.e. BREAK in, EDIT 80,\DELETE t CLEAR #, EDIT 70\anadCLEAR #: at srt)\EnRUN 9980 ERASE anRE-\SAVE t pgm.\\GARNOLD wcus\BASIC ժ (OUT-TAKE 1)!\ - Ban ^\F ChCyn, Cars\\\DRon/Ban,\\\Rernadrng, ulit\ oanimrt\adin t "fcseds"\o} rs/fesetif\aib i tiaa? (Ty\a ). I p u\Adnk'fadrng?\\\ Yrs\\ ChCyn ^To: ChCy f Ban\\Yes, gaiitll\acpt! Y } CHEZRON'S\ anaddsanI gst\t'f of\OUTLET ian ndsor\}rtd tt saut\expint fnps.\Y ghe trio t\o"I' aanI }n\mnetc...".\\We'l fbn sor\}rtd an nni a\tnotiad! (Tn g\I y)\\Yes, fadrin\Adnk'in set.\ - Ban ^Fm: Joh Luby, Duns,\\DRon/Ban,\\A{arghh!!! I cctBIN\tn-u' ght! (Wcis\NO ex -I' uial or\t p!) Y }n'tst\Sct a inch, } u?\\Outeptntand\tr, esalltt\uºtims. Ca I gst\ۡ uºes? Hoaut\c-˘ ru¢s, an\'instng' arcu¢, a\(allod) mty,\ou¢ "gb" scens\al at |ck.\\Mantnk DaGen-I ^u ֨ ot 128\mPOKEs, sia\w a. I dn' tt\bc oG.A.\Mattwtr, -l ̢ G.A.\\I P Hiy'LIFE\pgm. It'a olu,\Pl'ro itr\t st.\\Harn|c HANDYWIDE, I'\unrtu r\"crs" aa alr\ccTasr2.\It'i tsy, at\ctra o t ft\ot ccll, and\Tasrccra o t\gh(wciwht Tasrd\cesn'r th ^HANDYWIDE tr). Mosod\ner} sftm\or. In'o, I\encԧ o omow ng,\altugI' a\Sct uw dn't\ aaso. Tasroks\i fntt\sghtlrcct.\Liaadds61184 r\Tasr2.\\FoIa Jos, w ong\Micd oks, a\(aaI kw) al t oks\ebso tbct:\\\CARRI, Gn}\Sct SROM smbly.\Melur H. `8.95 1985 ^COOKE, Sart\Como t SinciZX\Micd aninrs.\Pa Bks. `5.95 1984\330 28662 5\\HURLEY, RicrG.\Mant souSctm\Micds.\Mic Ps `5.95 1984\7447 0005 1\\LOGAN, Ian\T Sct Micd ok.\Melur H. `5.95 1983\86161 127 6\\PENNELL, Andw\MasuZX Micd.\Suns `6.95 1983\96408 19 X ^ROSS-LANGLEY, Ricrd\Sct c-˘ n\i: Micd, Inr 1\anROM smbly.\Inr `4.95 1984\907563 51 1\\SINCLAIR, Ia R.\Ma t souZX M/d\G~ `4.95 1984\246 12406 7\\SPECTRUM Micd ndok.\Cenry. `4.95 1983\7126 0206 2\\STANLEY, Pl\25 pgmSinciZX\Micd: l-ur\t Sctm.\Pa Bks. `5.95 1984\330 28674 9 ^-I n'kno t\a i pnt, ornps,\soksps/be}n\cc t il u, and\t-of-pnt} sbly\ obithug u }l\bry. I n'kwt's\p t Sctm\bsns l-u\uldn'tn tt Sctm\iSTILL t ng sr\c i t untry!\\Fot gnmof\128'er(an+2'eran+3'ers),\} I exno PaddMul}hy's\sce et(I\tnk!) t l soys:\\ N : sropgm.\ W : " " " " ^ T : enopgm.\ V : " " " "\2 : sro.\ Y : " " " "\ M : eno.\ X : " " " "\8 : stcsce ՘.\ Z : " " "\ P : ul.\ I : w l.\J : xrd.\ I : prd.\ E : prd.\ J : eno.\ K : sro.\ W : enord.\K : tccr\\ = GRAPHIC MODE\ = EXTEND MODE\ = SYMBOL SHIFT\ = EXTEND MODE +SYMBOL SHIFT ^Al ot 'yd' ntls\e t, altugۡ\a զ tub t ty'\rth! O t bcot\syd, anrd\fft u gng\С- o? OANY iaat\al o sb utt\'yd' ct? I }n'e\tAmst anՌl\gh gmb, naw\tcct!\\Bac t bcoPROCs,\stc, etc: I n'tn \gaual tch,\Ban. I DO tnk, tugh, tt\w stcpgm\lpf an\unstcsrt, iesn't\܇}lllf t\.^r tr, anany\pgmno tt\pnpڗses\ otng. Outt\pgmuallpڪ tr\ints, I' e ۡ al\rropاdly\pښso ft us!\Uºe BeBan't\(aghtlint)\܇}llstc ur\pgmu, t\pgmntė\DO...LOOP anPROCeat\asactt a\զ enrmopgm\g t soGOTOs.\\A i i pl John\Tayr'nSHOUTBURST on\on anft: ^SorrJohn, I tn tt\t'a "uantm" asct\ uarntuld\ul‡l a~nuas\t pb ' ssng.\\\I agtiiwn\acds, ctlor\inctly, ton ia\mp ans 's\pbms, ott n-\eni a a eas\aata i lmand\s. Hor, ' st\lnocldn, anit's\ mpl Ę ۱ety\in t u(oes) antm\(|des) -isn'tt nd\oat ' bnt\pgmranlm-rr? ^EVERYONE nnc\on, annous, if\' Тst, }n}l ۡ\ao wch, iid\Ԥfntly, ult\  on -o OUR\rt! Itisn'te, pa\n t addsot\Ոsr in! I' t\զ t ghlinl-\nt, ll-ofanTOTALLY\aՌ op, ant rª\cran'alytsy\ r.\\T ISN'T ۡ '|d' con\o۱etno on\ainst sous. T\n-onanua rps\tЧ r eug\ e d io ^ofn, oa an-۱a in\otr, զ bt, eally\imՌl, ys? Dgssy\A} ap-ottir\ckeenu e a\im op r\sТst ace rin\-sty? I, sul |n\tm?\\T ARE op w \pa i on, an\aot er~y, I\tn ' t lnof\psycЊthtt c of\inln, ant pct-\ ocop ont\lms, etc., it RESULT of\tino antok, NOT\t }u. ^T ARE lms, okand\ft ta r|d\s inei MY uth, t\tt'rۈ at anI\ gh excotrs\ s it. Ialyen\s no t |s\t"oCOURSE iesn' ME\anrm, woORDINARY\op?". I n f\aaneaI pa,\tumci ind\bt sarntt\ۡ sl rn ot\o COULD, PERHAPS, \ro on bt\i eson. Wul|n\anytnanerytno tt\|s!\\Wsul aib \ ^ris, our atr\tr, ano wculd\t alto զ\ª |owIS \aib t wISN'T. I\u gaФot\بna oadn s,\insn. Butt'atr\arnt... (Фlly!)\\St!\\ Cers,\\ Joh Luby. ^TJoh Lubf Ban\\I ad mpڞctst\m/˘ ranarch. I'\aladۡ u¢I y\ ab a~pt.T'BASIC\-mi TK50 i Is11\wI ul is\o t} caas\(incnanunVAL"" wch\I u t) ane ժ tm\ otaaot pgm\OVER inrnaas, e.g. \m1500 1700 anit\a5500 5700. I ton\mst! GbnSCREEN$ and\snt insntlwn\eii si c\˘ angh} sdy\OUTCLASS tiswcs\cu¢. On t\ ^pnp oi}n, ta\otught, w u¢s\url sܦ strd\osce ost urs\osܦ scens.\\I' r trcrs\i Tasr- I n'a\cn iund a\oia. Ta.\\I ablagtal ur\mnto on.\\I STILL gaФr\adns! I da tt\o ~t l ... No! \o ALL I n y\o tbct!\ - Ban ^Fm: Ba Mumrd, Cyn\\\Hel Ban,\\Firstly, i ans Andw\Cpm, T pg is\i'MASTERFILE' f CAMPBELL\SYSTEMS,57,Tp'll,Lghn,\EsIG10 1TD\\LastlI ul l ur\artODis˪es,\titiOs' o t\bn a ntly, tt\I }nt I ka\ w }n.Hi anaddss\is:-\\ Ia Vdy,23 Ramy\ H,Lon SW9 6NB. ^Hal irSctms, and\l al  alw\Mul€ 1 o128 ud\f t exno rour\OPUS. Iano iզ\in pa w , o t\adds Sctm\Dis˪rCi OUTBOARD.\\ Besss,\\ Ba Mumrd\\\\MantnkBan. It'ul\ kt' ۡo w }n\it ODis˪rwn\ed.\ - Ba Cars ^Fm: DaWornm,\ 20 T Parknds,\ 0905-775840 Ditch,\ Worcs. WR9 7DG.\\DRon,\\ I ans t trfm\DenAshy, w ntpon\adn wng, anA. D.\Cpm, w iaf"Pnt\Uºes", ant inrm-\ao ootars,a alr-\ª ans t wnof\adn ooter-\s,uptub ight\ccrs,incdngpcs,}n\ uni t "FƊ 200"\tnsysm, Фllon\ adr§anein\"Outt". ^ T adn otsysm\iitg u by\mp nrt\pgmnkwd, incs\adnaeend\murs, an} ud\incª adns, fe\ro܇spys.\\\ Hane Ԥanll\si t C Pnon\eld, iippeta\mp 200 f oinr-\acª ergr\u bcld f 5, tt\StnDant, olr\rntsctes\adnanaltth\stanpo }anu\ty. ^ Mostlpf `8, զ\ill no ipt\osmd, addsenԤ.\\\ DaWornm.\\\\\Tnks, Dad. A CHECKOUT ew\e wt anpnr\xntaI w ts. If\t io faft\trs, t eal, out\etc. I'l trans iin\tisI' Фl.\T OUTBOARD adre in\n sisour.\\ - Ban.^aWorn @  LINE EDITOR 1988-04-23 :Sven Kumlin, Trollrunan166, S-423 46 Torslanda, Sweden This routine can handlegraphics symbols and UDG's. CAPSLOCK, DELETE and E mode work as usual. (ALSO K COMMAND MODE KEY WORDS AFTER ENTERING "THEN" - ADDED BY B. CAVERS) RETURN bypressing ENTER.The text is put in the string e$ (Demo 2Al=5:c=6:n=26:l=line c=column n=length 7*0:7::l,0;"Text: "; jmw#wL>cw#w#>kw#>>w#>6w #( Line editor #2Q6:K=0:h=0:e$="":b$="":i=1n:b$=b$+".":i:l,c;b$ #uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z - \BeLOOKAHEAD xnth!:-\A nr'm/˘ DISasmbr\VAT mccr,sy--u\r xunPRINT, OUTCLASS\neo m/˘, FLEXIPAGE\2000 ed; al o B }r&\sc:DRIVECHAT in o SWIFTDISC\anOPUS DISCOVERY, t'a\ascen-stcnu¢, a\gacclcon,a\ ~| osauall\kw oko t Sctm, a\fsJIG!BLOX c, al Z80\m/˘ instcons(alp}l\orn) & Фlly\t r  sce mst-\آf THIS nth! Pt\rananytnel I }n\c in! - Ban.^, t'a\a *v\")J!J~#N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >µ*#]ٍH͑ RMk۱3g{3g{b{^{b{3S{c{3,'c{4_{CoCoCIG) ]v>An n3.5" s d\ib +D/Disp?\Sghtldg- rkw it\el it. Iiesn't\rk, ianispng\ (tt'or\usks). I sct'ao ncon.Y } itsost/cnfm:\G.A. MATTHEWS, 62 KinEdrds\Rd, Barng, Esx, IG11 7TN^Ian unt RS232 o tSct 128+ d al\pnaI a npbms.I n(0568) 5348 ow\ Mar Wars, 50 West,\BanCss, Lͻnsr,\Herds, HR6 8SA^WANTED: Inron/adė on\unt Sct nt a\MODEL RAILWAY. Conct: CHRIS\CLAYTON, 21 RUDCHESTER CLOSE,\CARLISLE,CA2 7XL(Cars 32150) ^"FLEXIPAGE 200" spys,\ers, adn s, etc.A l-u, LARGE xand\gpcpg ew~\u; incª, fe-rou܇tl \pgmanmp instcons}nnr\exenurs. MnlBASIC,} sܻid.\F `8.00 sk, cd\o}st. 48K an128K.\S.A.E. ils: F|\Soft, 20 T Parknds,\Ditch, Worcs, WR9 7DG ^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 ^FoSa: SPECTRUM PLUS: `40.00,3" DD HITACHI DRIVE (Ca \ثbODis˪rand\ni l tesng\3.5" d): `24.00. Conct\Harrrr, 14 Hal La,\Walsg, Contry, CV2 2AW\(Tel:0203 612812)^ALPHACOM PRINTER. Gnontثpply. O antllotr r. `15 or\W.H.Y... An el una\(Sincir)Sct 128/D'ktڼcpninr/Ss\GP100pnmon? T\scen- mf tt-uisrb. Pa  kif\u' lt pbm. JOHN\LUBY, 38 WinrelGarns,\DUNS, Bercks.^Au܇tnsopgms\f cd, Os\Dis˪ry, Be, Disp or\PD unSOFT-CRACK th\SOFT-ROM. Bett Mul€?525 dk+ s (au`47)\Sen LarJesrn, Mons16a, DK-8000 ArC, Denrk\(Tel:06-183661) ils.^Sct Ps-`50: Sctm\48K-`40: Inr 1 & M/D-`40:\4 PoUts-`5 ch: TV t\(B&W)-`20: Ta Rerr-`5:\QcksJoysck-`8: Kempsn\Inr-`2. PТ Juan\Ratcf o 01 848 6585\(Of) o01 573 6440 (С).^O R.D. Di Tr\, `25.00 oasofr. -A Rutrrd, 33 Montϡry\Rd, Co, Farnugh, Hants,\GU14 0AY ^FOR SALE-Ofrs/spnd\\1.DK'TRONICS LIGHT PEN an SOFTWARE.................`8.002.MASTERFILE anTASWORD TWO o }rtd anndok. GAMES }rtd,ud, f exno Sysm.......Ofrs?3.SUPERCODE III............`8.004.TASPRO 3.................`2.005.QUALITAS 3.............. `5.00 (pNLQ pni nttTASWORD 3) 6.MELBOURNE DRAW...........`5.007.PRINT UTILITIES (Sincir)...............`2.00\\ CHRIS CLAYTON, 21 RUDCHESTER CLOSE, CARLISLE, CA2 7XL (Cars 32150) ^ PHANTOM VIEWDATA BB NUMBER CHANGE\\I a pa inr tt\Pn Vw~ BBS l nn24hr, 7 ~ek\rė - T 24hrė\l Ы o w\pТ mr: 0226 732140.\T sys isl V23 Vw~(1200/75 |ud) aΦ anu} trt sys sl by\gno a'GUEST USER'. T\'Wi rۈ so' ofr\sl sndun t 100\ct e ise(S\OUTLET 006) t l \n'Wi }' ofr\|o t ia. Scr\DSy- Ps MBX 919998422^ 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.\\^Re stbnnuoldbpnbn:\ALADDINK, 4 HurCsnt,\Euth, Bercks, TD14 5AP -ind. Ta ofr:-\ONLY `1.25 bn! (08907 50965)^(01)888-8894 ,iurl\ew~( PRESTEL) s/w.T\ Sccyi*sct.0#\@ *v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z0%$e @ɕg_9| ЧPY JͶk(* 80 LD DE,16384 screen 90 LD HL,STORE label _ \ Mac Co - GetnSrd\ - Ba Cars\ ------------------------------\\T rsot OUTCLASS\sno c ˘ a r\t mp nw,\rtss, gspt mpr\nptoBASIC pgmng\ GO TOs, GO SUBs, abs\anPOKE etc. Iimnd\tsdOUTCLASS 10 rst\ a iot ry\i t Sct iarnd. ^Li al OUTCLASSes, it is\anytnncfnor\ۡ otbc˪nst\w i mI' an\exrbanans!\\Mappacl tm\toran emp \ghin pgmng.\Al rml tn\ t JACKSOFT asmbin\tise. Iu' pnr,\pnt JACKSOFT instct-\nin t\I'l l   ty\pgmi an'e nng!\\Y l pg i asmbr\na tmp expsons\ CALL u bu¢\( GO SUB) anRET RETURN. ^T pg sniۡtng\ BASIC sn- t a\ mrs/mndetc. T\sniof }lur\ ox ant}n\ SAVE sc/}rtd and\-LOADertcns.\W t pg iad \RUN i nr\c ˘. Ti}ld\asmbly.T asmbets\܇}llant lng\˘ } "RUN" tct\f JACKSOFT obSAVEinit,\-LOADinianunUSR\}l f BASIC(S OUTCLASS 11)\BUT ALWAYS SAVE A LISTING FIRST!\T a ersin\c ˘ - iiesn'n\rctlof ԧ ntl\(ot mr!) an \RESET - nt pgm. ^T c ˘ iofn\}lt obc˘.Witch\pg w u'l enup\tt o sc- t xt\(o pg snor\ur ˘) ant obc˘\wcit aca pg u\l "RUN" tUSR.\\Al pgml i l\rllropnt-ts\f JACKSOFT a x.I' r\unou i asmbr\ande ab \REAL empw pgmng\i octit\fnitdw|cks-\rinlt a\u¢t С uws.\Al ekt աnt\itimsysm ^(OUTCLASS 6) anu'l ed\ۡ anonro in\ w ˡ acsit.\NUMCON i Is3 } tor\HEXPRINT (Is7) } pnt\l ok-ub. JACKSOFT\itlnrtanyy.\\T tI'l ut\bcts: 1. Pnnxon\sce an2. Monbckof\eaui rwch\inclnen of\addstopy-\inbc o~ f o\aor atand\l l i mp\sce mpsu¢ wch\u'l sty i rt-\so l UNDERSTAND \} -w iint\an iuown. ^I'l srtpnn"l"\o sce anu t l-\ ttyni ny\pgm.T'u¢ i t\Sct ROM (OUTCLASS 10)\wcpntxo sce and\'l u is u'u\GO SUB i BASIC. T eint\oGO SUB i asmbna\iCALL. I JACKSOFT }nt\GOSUB mauld\i BASIC CALL a ADDRESS\i r(o"l" } \u pnt addss).\\Dumt lni a\pnoscbb t pgm\wn. LJACKSOFT, ia\upnanRUN enr.\\Y sransntt\ ^addsi rnt\˘ asmbd. Tll\rll t USR }l u\enalll u RUN ur\u¢. T instco iORG\lԫbt addss...\\Ty i t rs mr:\\ 10 t s.\\Imalaftyn\mans t asmbr\exctLABEL ans. A\La rkt s\anI'l expi a \ang. In'nl\ MUST sl ty i t\SPACE ժ o t xt\rot owu\ty l taal! ^Let'ty i an sw\o app}o o aa\ic REM l cfy\t snw ait.\We'l u t START ty\START t s. S :\\ 10 START\\Nexty i t mnORG and\s.Noet addss\nu˘ . Y'll\ar f exen wch\adds co nnon\nt ˘'l \anwel l nt\i ry. Tsrt, ty 64000.\S tyd:10 s START s\ORG s 64000. NopsENTER\ t:\ 10 START ORG 64000 ^ty L ol, ENTER LIST and\u'l t st\sզ. Y } \ibtyn10 anENTER ain\BASIC, alibttyng\ii ai tancnor\bunt ry}n\ժ t ruin t\snanor-ty cns\THEN PRESS ENTER TO COMPLETE.So,\emp, ghn\cn t addsf 64000 \63000.Jusruanacss\ t 4 anty 3 antn\ENTER. Ty L sanu'll\t rc. Wn\rng, CAPSHIFT+9 (Gpcs)\TABt rghf 10 \START ORG 64000 (i r\emp) anCAPS SHIFT+1 (EDIT)\ժal xo t ghof ^t rs t ght.\Tcas inra\cc iժt\rot 4 i 64000 and\psEDIT, t "4000" uld\ժ ghanulinrt\2 te t 6 ant 4\n624000. DELETE ժs\t cc t LEFT ot\ranժfi a\ t BASIC DELETE\i t ain\TASWORD 2 I n'tnk.\\No ty i at. We\n pnt s"l"\ e t ri ۡ-\w.Let'pnt t"h"\ srth. Anod, \sl u bu¢ i t\ROM t pnng. Tt ^u¢ edt ti t\"A sr". T A sis\o o sri t\Z80 pڗsr. T srs\lef 0 255 \raddsa u\"pڗss" ei fnt\ys. TLOAD t "h" in t A\s u t mnd: LD\ ty t ln\mr:\\ 20 t s.\\Wn'e ty a\2ns (in t of\tynt safch\ munsea\l). Noty:-\\ LD t s. ^Fillty:-\ A,"h"\\T m te t A ant\"h" an"th" i tat-\ LD A,"h" anLOAD A\WITH "h". Our, i\e lnOUTCLASSeu'll\ktal ccr an\ASCII ˘ meinand\it't˘ wcein\A. T ˘ "h" i104 (in\t olSct a oty\PRINT CODE "h" i BASIC). We\ul uLD A,104 insad\at asmbacpttr.\\So, tyd:- 20 s s LD\s A,"h".PsENTER enr\t mp :-\\ 20 LD A,"h" ^Y } u }losll\troi JACKSOFT \la,"h" ul.\\I ui i aut\tyni t rs u\sul ab ty \i t - \mr, s, l, a\s, mnd,s ant\arnoon(wt\mnionon). No\}l t bu¢ tCALL.\T addsi t ROM w t\u¢ srtia5618 \ty:-\ 30 CALL 5618.\\Wuleadns\ pnt sot rd\"l" tLD A,"e" CALL 5618\LD A,"l" CALL 5618 etc. anu ^} exni t\tsctanI\l ˪tyoing\it. Fot աn'l sp\anspnt "h".\\Aft bu¢ en\uour, t mr\l r pg and\o t xinstco \ e instco \r f OUR pg |c \BASIC. Tit rn\instco }lRET ty\in: 40 RET ( onth\tinstcon) t:-\\ 10 START ORG 64000\ 20 LD A,"h"\ 30 CALL 5618\ 40 RET ^SAVE tsn ˡ\att pڗ by\tyn(tu mr):-\\ S10,40,pnt01.J\\w S it SAVE mn(NO\m afS) 10 it rst\ mr, 40 it sand\pnt01.J it (NO\oo rked). U any\ nour I'\srnadn} J o t\en I kit'JACKSOFT\x.\\No } asmb t ˘.\Ty A anENTER.Y sule\spd:-\\ LAST BYTE FA05 ^wcit addsot\enot ˘ rtt\w. I pnr,\ty A7 anENTER wcll\pnt l sng, and\t c ˘ es,tt\addstl at,i x\at fn. (S t\JACKSOFT instconall\asmblopon֨ \tif, w asmbng, t\red, t pg is\in psy\at eno oxt. If\mn upny\ d w t ENTER y\ۡnsngs!)\\T addsoanla\al sd. Lala only\i t sng-t t ^asmbin ˘ ta\srrt asmbr.\\It LAST BYTE\s a ers\t cc t sng.\\Filly, t obc˘\' asmbenr:-\\ S1,1,*pnt01\\w S it SAVE mnd, 1,1\a an mr(' t\nt LISTING JACKSOFT\n'acpt SAVE tut\ mrs) ant \MUST t*. Y suld\spo scen:-\\ 64000,6 ^Tit sraddsand\ngtot ˘. I adts\u¢ mylas, olly,\JACKSOFT  cmn\ t obc˘ ottn\acmnf BASIC\ I alt TEXT SAVE,\ SAVE t OBJECT ˘ iit\ct"*". In'\t * pal 8050 in\t BASIC.\\T asmbsuladss\ t enoansr\ il 10 ccrs\ng. I } w gpc\s(CHR$ 128) add\insa}unfleat\-ang.I anch\pbmtradnCHR$ 128\ t 10 ccrs. I'm ^оntisa oderr\wcn'p ain. Iit\es,  alySAVE\10 cc .\\No st ˘.Int\ it JACKSOFT add:-\\ 5 ENT START\\Tt entrinr\t mnai nr\pgmghs st\u¢ rtw t st-\ino itown. YOU MUST PRESS A\TO ASSEMBLE AGAIN iadENT\afasmbntugh! Tt\}ugh t!\\T mniR ENTER. Y\sulr(oRi\ ^unCAPS LOCK) "rd!" and\soeing\i t srs. Ig֦ tЧ\֨ t "h" o t\enot R!Tsn'pnd\bt asmbbur\c ˘ pnnt "h" at\t LAST PRINT POSITION wcin\t} saft R\e pnbt JACKSOFT\asmbr!\\In su˘ in\BASIC af JACKSOFT, u\CLEAR 63999 oss, at\˘ anu tt BASIC:\\ 10 CLS : PRINT AT 0,0;\ 20 RANDOMIZE USR 64000\\Iu RANDOMIZE USR 64000 ^acmntts\u¢ it'l pnat st\pno wcl in\t in aul\sent mn t\"h" l imaled\bt OK s. I ota\u¢ cpnn\t i sce mpty.\\It'srt! Erccr\gh pnt- en\u˘anPRINT AT ˘s.\I'  wtt r\Sct alst\nt ˘ t ol\ a t i os:\\ INK=16 PAPER=17 FLASH=18\ BRIGHT=19 INVERSE=20 OVER=21\ AT=22 TAB=23 ^S pn"h" i BRIGHT 1\ulLD A t19 anCALL\t u¢, LD A t1 and\CALL ai anllLD A,"h".\TpnAT u'LD t22,\t t Y or, t t\X anllt "h"\\Oupg pmp r\ct t'ժ on...\\T Z80 a instcon: RST\(srt) wc} p CALL\FEW sa u¢s. On\t Sct RST 16 iu\mctl 5618. T\adn otinin\ry. CALL 5618 u3 bys\w asmbRST 16 es\t i 1 by. So, RST 16\} p CALL 5618 i r\pgm. ^Let'o ayopnna\wР stnox- tr\a¡ imrۡ. O\ti u o- a\FOR NEXT oi BASIC. T st\m oi c ˘ is\ tDJNZ wcsndr\DECREASE t B sb1 and\JUMP iNOT ZERO cd\addss. B isi t\Z80 pڗstt'of ud\ eunt. We'l gally\o aal t sr(t\a ny) anl nd\bemp wc} .\Supا ent lng\aropgm:-\\ 20 LOOP LD A,"h"\ 30 RST 16\ 40 DJNZ LOOP ^Y o u  \- t rLOOP iempԭaa\rt DJNZ m.\DJNZ saly lԫby\a adds m oba\ pnna addss.\T asmbl }l冨 t\aca addsipnts\w asmbng.\\T a ulti my\emp: (1)Iulepnt-\in"h"un B ac.\(2) Wn'kws\i B at sr iuld\pn"h" anmo¡s.\(3) T u¢ a5618 (md\ bt RST 16) al u B\ c¡ 30 isB\ atۡ by\t 5618 u¢ anNEVER ach\! ^Let'l t st ults\rst.JusΦ 20 }n\ad15 LD B,5 pny, 5\"h"s. No ea instcon\ "ld" t f B and\sܦ iaf 30.\\W} u PUSH wctt\o t STACK (OUTCLASS\10).T i˪AFTER\ 30 tPOP. PUSH anPOP\onlr t"sirs".\Mossrr tngly\otsrtanB\etC r BC. Sing\sr} onlnd es\u 255 i irt}n\ˤ tu 65535.\\I } u PUSH BC and\POP BC srwis ^i C - ' onlinsin\t i B .So, inrt\t PUSH at osrand\t POP saf˻n|ck\f t bu¢:-\\15 LD B,5 unr\\17 LOOP PUSH BC mp. ld\ f B\20 LD A,"h"\30 RST 16 PRINT "h"\\35 POP BC sܦ t\ unr\\37 DJNZ LOOP ca B &\ |c LOOP\ i\\Tpnt5 "h"i w.(If\trit- ada ORG anRET!) ^S eۡ tof\tncentrfm\r"l" in A a\20. He'o y:-\\Wu t DEFM (DEFINE MESSAGE)\mnalws:-\\ 80 TEXT DEFM "l"\\Aasmbly, JACKSOFT l p\i rt en oASCII\˘rsrnat\t adds' lTEXT.\\Tt trin A,o by\o,'l t sraddss:\TEXT in ANOTHER sand\aA f t addsi THAT\sr. W} inca THAT\so bo i op ^ ildcot ced-\inaddss(t t ˘\xt).\\Resira sr\leaaa addss\}u ng sronly\}rru 255. We'l u t H\ant L srܛtas\HL.I sul tB only\etC, D etE anH\etL r ir- u\}n't all! Tis\t :-\ 20 LD A,(HL)\\T bct a t e\i t ADDRESS i HL t\addsitlf. Foemp, if\ pslaHL th\35000 ant i addss ^35000 99 t LD A,(HL)uld\t 99 i A t 35000.In\cA } onllu 255.\\Now,i } eincanHL\o csthugpgm\ot i} ni cof\t en oaddsw\t ASCII ˘"l" a\sܦd. S it \inca t i HL b1:-\\ 34 INC HL\\Remr, inn t\ADDRESS ot rstof\"l" in HL srth.\\Witaddss? Well, \liTEXT antt'all\ e kw. Tt TEXT ^addsin HL mplu:\LD HL,TEXT.Tinstco st\ BEFORE t oo'ep\-anHL tTEXT was\ ni eincang.\St':\ 12 LD HL,TEXT\\T bu¢ }l a5618\al u t HL sand\tulŤ t \i , sa th\BC, u PUSH anPOP sܦ\tm،lant\s IN t oant POP\ssܦ t \HL BEFORE tr INCREASE it.\VaePOP oft sc i t\REVERSE orty' o \ MUST POP HL anBC IN THE\OPPOSITE ORDER PUSH t at\t srt. T u¢!:- ^10 START ORG 64000\12 LD HL,TEXT "h" ADDRESS\15 LD B,5 trin\ "l"unt\17 LOOP PUSH BC mp.sܦ\18 PUSH HL " "\20 LD A,(HL) t A\30 RST 16 PRINT GO SUB\\33 POP HL RESTORE ADDR\34 INC HL inca \ addsof\ xtr\\35 POP BC RESTORECOUNT\37 DJNZ LOOP ca B\ & m|ck\ LOOP 'l\ i B\\40 RET RETURN\80 TEXT DEFM "l" ^Wl o attd\xntanw ex-\ntts. It't\u¢ tt'imrnit\l զ ath\unasmbr. Trunur\} broko Z80\pgmnosl oksps\sl oko Sctm\c ˘.\\No'l o at pnps\onbcko˘ ( \t un~o scen\mpsi ise).\\Y  a addsin\HL ant ˾et e\f THAT addsin A. We\ullta instcon\ pt by (e)f A ^in ANOTHER addss. T'\mn ժ by ctly\f o adds atr- it\ thugsr.\\For bcko˘ Ыr\t a tys. We'\so o at\t LDIR instco asrt\i taopgmng.\\LDIR iONE mnwces\al ot lng:-\\1. LOADS t addsi DE th\t i t addsi HL.\(Sit 99 at\adds35000 an35000 in\HL an45000 i DE t 99 uld\ ˾eacsf 35000 \45000)..^2. INCREASES HL anDE b1. (In\t emp i No.1 tuld\a tHL ulld\35001 anDE ull45001).\\3. DECREASES BC bo.\\4. REPEATS t pڗsun BC\ac.\\We' so o aa\pg tl pSCREEN$\in ran|c insntly\aed. Al t ett\ ut c i scen\rf 16384 23295 ll\ ˾e t asafr\t pgm. I' l\}lSTORE ghat enof\t pg tJACKSOFT }n\}l冨 t rsaddss. ^10 ORG 55000 addss\ aom\ t 7K\ sce sܦ\\20 UP LD BC,6912 No.obys\ i SCREEN$\\30 LD DE,STORE r\ scensܦ\ addss\\40 LD HL,16384 1saddss\ oscen\\50 LDIR pall\ t bys\ f scen\ ry\\60 RET RETURN ^70 DOWN LD BC,6912 unr\\80 LD DE,16384 scen\\90 LD HL,STORE l\\100 LDIR pct-\ u |c \ scen.\\110 RET |c \ BASIC\\120 STORE only\\W asmb ts,֨ wn\t addsoUP anDOWN\(sw at enoasmbly)\annri l. T\rsl obsl 55000.\Bac i BASIC,LOAD SCREEN$ and ^RANDOMIZE USR 55000 l t\rsaddsot sce in\HL ant rsaddsot\STORE i DE. LDIR l pt\f t rsscen\adds(i HL) t rst\addsi t STORE(i DE) tn\\1.INCREASE HL t xscen\addss,\\2. INCREASE DE t xSTORE\addss,\\3. DECREASE BC b1 ill\ 6911 byf py\\4. REPEAT un BC i.\\RANDOMIZE USR (DOWN addss)ll\pi|c scen.Mo xt\nth! - Ban.^ t STORE(i DE) tn\\1.INCREASE HL t xscen\addss,\\2. INCR  *v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> **< S>>*̞B< ![#R0~ 8~> > >zT> \ THE SPECTRUM PROGRAMMER\ bBa Cars\ -----------------------\THE SPECTRUM PROGRAMMER iw\}st-|"Ȣ"-ty\mo oapd\bK Wd. T t ed\rpڻn I nof85p\ana SAE...\\A ntsΦ I id\mort expon.T\Ȣ ipintnt\ tirbeew. ^T "Pgmr" nstoo\BASIC pg orp13K and\au10K o˘(RAMTOP).\T pno ior\anaush. T isI d,\Is2, fl ad\int Sincicct\i bc INK o PAPER o all\s. Isy, Ы\BREAK i ancn t ur.\\T aۈb n of\imso t i \conr \inlo ot scenof\ngEngstrgh\slncn-cined.\T texsympmof\onaut\atopco tI\unin in aly ^a omow ons. He\ i anub\mnob}on\tZX COMPUTING!\\Nertss,I t npt\ofnaal ing\insntlacsb f o\ analtugtiss\iulgieugh\op prit. Hor,i\fnklat աnioks\ 12 ar-old'7 o10\sco pڞct.\\T incd: MUSIC ON THE\48K -  } ֨s\f c ˘; Pgm\pڨco - POKE 23659 etc.; a\o- BASIC (al?) wch\sЫۡ BASIC t\expo anaaso\ ^imsb ; o ar's\t(it'rl~yin\al irss);anBASIC \}lGALAXIANS.\\I no oBoSth\oBUCCANEERS' , w \inۡ c ˘ u¢s\i t PROGRAMMER \i}n' al |} it?\\Y t adrt-\iai at pys\'l p|bllo rof\uth. Aonl85p+SAE, ior\slnanpno es\rri rta\ok. T xisit\15tAusfm:\ KIERAN WOOD,30 CHURCH STREET\ ELSECAR, BARNSLEY, S74 8HZ.^MER \i}n' al |} it?\\Y t adrt-\iai at pys\'l p|bllo rof\uth. Aonl85,-@,-2M#:"9955":"9986":"9995":,;"PLEASE WAIT - INITIALIZING":"5E3" d9:L,Q,QQ,T,U,V,W,S$:O4:O4:O:O::O2,O,O,O,O,O,O,"1" xfO8:I:O8:R=Ḭ"1E9":A:O,I;" CRASH COURSE, ROUND:";R,:J=I̯"2":.01z# =,J:J: WZ:I,O;"T1111111111111111111111111111111T1T1T12222222222222222222222222221T12T21T123333333333333333333333321T123T321T1234444444444444444444321T1234T4321T12345555555555555554321T1234554321T1T2T3T4T55T4T3T2T1T1234554321T12345555555555555554321T1234T4321T1234444444444444444444321T123T321T123333333333333333333333321T12T21T12222222222222222222222222221T1T1T1111111111111111111111111111111" LR=IA:#O;O7;I;O2;I,I," LIVES:",:Z:#O;I,"24";"TWTWTWT" [L=LO-I:S=O:PY=I:PX=I:CY="21":CX=I:A:O6;O2;I;I;"11","11";"PRESS A KEY":I 6װ".001","<":װ".001"," ":װ".001","20":ï"" 9"23560",O:װ".2",I0:O4;"11","11";"":Z =S$" "Q=Q+S$:QQ=QQ+S$:Q=860\Q=I:PY,PX;"T":R S$="" " N=0S '23560\=13 .05|L," ":S=S:A:O4;I;11 ,11 ;" ";11 ,11 ;O6;O;I;("EXTRA SPEED"S):23560\,O:Z ,YP=PY:XP=PX 1;="X".003xD,0:PY=PY+E(PY,PX):PX=PX+F(PY,PX) 3;="Z".003xD,0:PY=PY+G(PY,PX):PX=PX+H(PY,PX) |P=PY+A(PY,PX):PX=PX+B(PY,PX):PY=P:Q$=(PY,PX):2;PY,PX;(86V+A(PY,PX)):YP,XP;"T":Q=Q+Q$:Q=860\PY,PX;"T":"800":R (CY=PYCX=PX"900":L:"800":"700" N XN=0̥*2:YC=CY:XC=CX:T$(CY,CX)>T$(PY,PX)CY=CY+G(CY,CX):CX=CX+H(CY,CX) 5T$(CY,CX)8<8<8 d0<>|<<8<<< +{ 7( MM?}E ⋿/#H_/ |q>p??0<8 p>|>|?0<< mio?jU>zݾ $7$ [L c߀ &g"23637+256*23638-0303"::car color  Y!. zZ~( (#F## pppppPP PPX 88 PPPP 888888 HH8888888 888 8888888HH88xxx88 888 8888888HHH8xxx8 888 !!!!! !!!! &"M";;"cra" &*"M";;"cra"ʰ"8E3": 'I"23637+256*23638-0785"::CRASH UDGS  !JXX?~~????~~????<$B~~B<$|||8pp||||~~<0000000p` 0`0 ~~~~0  0| 0x0>~>~f~?``|~f~|<~`~<>~f~>>f~`>>60||00>~f~><``|~fff888888nn~<``f~|~f00000<|~fff<~f~<|~f~|`|||l``~p~~~~fff~>||8~||8~8~~0p00  t\|ƚ| '"23637+256*23638-0129"::!Jp>G^>?GV*[\ :\ (% >2\BDM[Y\R8C[\}> 2\> 2\ T]*a\++R8S[\}> 2\ ' I"23637+256*23638-0785"::CRASHCHARS  !J>cccc>666666~x~~cf 3c<?f?  00<~<~0~ 0`$$$088$ <888 ((<< 88 8$<$$$0 0 ~~0 0>c >o`>>cccc~c~cc~>c``c>|fccf|`~```~```>c`oc>ccccc~~cc>flxlfc`````cwccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c><$B~~B$<c66cf< 0`0 xx<~f>``|ff|ff>ff><``|fff8<f<0488<6vkkkk|ffffff>|f```<`<|`x``f<ffff>ff<<ckkk6f<<~ 0~pxx<jmw#wL>cw#w#>kw#>>w#>6w |ff|``>ff>|f```<`<|`x``f<ffff>ff<<ckkk6f<<~ 0~pxx<:O6,I1;"SCREEN";I0,I1;"PRINTER";I4,I1;"QUIT" O:K$= K$="Q" K$="S"S=O8:L$="":ZX=O: 4K$="P""9800":S=O3+(5ZX):L$=(I0ZX):  "220"  "270"  ,*"600":"800":N=Ḭ"9E9":S=O8"610" 1"23560",O:M=O5T 6!N$,I$,C:I$=32 "630": @$23560\S=O3ZX:װ".3",T: JI#S;" ";N$;"..........................."(26-N$);I$;" ";C$(C);L$ ^M:"700"+(TS=O3):K$="Q" h N  ~:"750":CURRENT ISSUE:I0,O5;"FROM WHICH ISSUE No.? ";I2,O5;"(THE LASTLOADED WAS FOR ISSUE No.";CURRENT ISSUE;")" "I,O2;Q$:Q$="""497":"405" (N=I̱Q$:Q$"0"Q$>"9""497":"405" +N:ðQ$ŰQ$>CURRENT ISSUE"497":"405" "600":S=O8"610" 5M=O5:N=Q$CURRENT ISSUE:800 :23560\,O M=MT  N$,I$,C $23560\S=O3ZX:װ".3",T: I$=32 N:"630": I$N440 J#S;" ";N$;"..........................."(26-N$);I$;" ";C$(C);L$; $M:M=O5:"700"+(TS=O3):K$="Q" "610"+(S=O3):"430" װ".3",O:װ".2",-T: "600":S=O8"610" .M=O5:N=I̯"3":C$(N)=32 N:"630":  800  "23560",O:M=MT N$,I$,C:CN540 !I$=32 N:"630": &$23560\S=O3ZX:װ".3",T: ?J#S;" ";N$;"..........................."(26-N$);I$;" ";C$(C);L$; DC="3""630": I$M:M=O5:"700"+(TS=O3):K$="Q" N!"610"+(S=O3):"530" X:S=O3#O;O,O;"";#O2;I1,O7;"PRINTING-HOLD DOWN";I2,O7;"ANY KEYQUIT...":" T H E O U T L E T I N D E X";L$;L$;" TITLE ISSUE CATEGORY";L$;L$ ] b`:I,O8;"THE OUTLET INDEX":" TITLE ISSUE CATEGORY"'':#O8;O2;O4;O5,O;O5 g lSZX#O;O,O;" PRINTING-HOLD DOWN ANY KEYQUIT..." q v=#S;"_____________________END OF FILE___________________";L$ {ZX: 1S=O8#O;I,O;"PRESS ANY KEYMENU":O:K$=""  ZX: /#O;I,O;"QQUITANY OTHER CONTINUES":O:K$=  I2  AAA I"ADDACAT","11","," "ARNOLD","10",I3 !"ATTRIBRUSH","07","*" ."AUTOCHARS","01",O6 /"AUTOINFO","07","!" "BIG TOP","07","1" "BITSHADE","10","*" "BLAST IT!","05","1" /"BONADEMO","08",O8 -"CALENDAR","04","(","CALENDAR 2","07","(" "CARPET WEAVER","10",T6 "CHANGE","09","("  "CHARCOL","08","." !"CHECKADDR","08","," "R$+"Extricator)","05","%",R$+"Cardex)","08","%",R$+"Rombo)","09","%",R$+"Chain,etc)","09","%",R$+"Utility A)","11","%",R$+"Spec.Programmer)","12","%" )"CHUNKY","05",O6 U"CLEAR CUT","07","/" "COPYRIGHT INFO","01","#" "CRASH COURSE","12",I0  "DATOTAZ","11","1" !("DAVE'S BOX......(not disc)","06"," " ""DAYCALC","04","(" P"DELINER","05","/" "DOODLE","11",T6 /"DOTMANIA","10",T6,"DOTTY MIXTURES","03","*" "DRILLER DEMO","05",O8 oD$+"mdrive tips)","02"," ",D$+"mdrive tips)","04"," ",D$+"various)","10"," ",D$+"Applied Tech.)","11"," " "EMERASER","08","," +"EP44toT2","08","," +"EXPEND","06","(","EXPENSHEET","12","(" "FAILSAFE","06","/" )"FINANCE MANAGER","10","(" "FS EDITOR","10","1" "FURNISHER","11","*" e"HANDYWIDE","07","1" k"HB DATABASE","05","," "HEXPRINT","07","(" f"HUH?","02",I3 k"HURRYDUMP","09","."  "JACKSOFT ASSEMBLER","12","/" m"JIG!BLOX(original)","01",I0,"JIG!BLOX(master).(Disc 04)","02",I0,J$,"03",I0,J$,"04",I0,J$,"05",I0,J$,"06",I0,J$,"08",I0,J$,"11",I0 p"JIG!JOY","06",T1 "JOHN'S NOTE","06"," " ("JOTTER...........(Disc 04)","01","1"  "JUGULAR!","05",I3 `"KAYCAT","10","," "LIFE","09",I3 <"LINEDIT","12","/","LINEWALK","04",T6,"LINEZIP","02","/" r"LPROMPT","05","1" "LUCKY DRAW","03",T6 "MANGLEGROT TREE","06",I3 "MAROONED!","10",I0 "MATCHTAKES","01",I0 /"MEGA-MESSAGE","04","." i"MISTERMIND","08",I0 "MULTICOLS","03",I3 T"NUMCON","03","(" O$+"#0,streams etc.)","04","!",O$+"Saving memory)","05","!",O$+"numbers)","06","!",O$+"Spectrum memory)","10","!",O$+"BASIC intro)","11","!",O$+"m/code1)","12","!" "OUTDEX","12","1" }"OUTSTRETCH","04","1","OUT-TAKE 01.(pixel move)","01",I3,"OUT-TAKE 02.(border)","03",I3,"OUT-TAKE 03.(Wordshower)","05",I3 ("PAUL'S PACK.....(not disc)","06"," " "POLLY","08",T6 "PROCSIM","02",O8 "RANDOMAZE","02",I3 "RANDOM WALK","09",T6 "REMSTORE","06","/" "REVOLVER","03",I3 R"ROTATOR","07","*" "SCANPATTERN","06",T6 "SEAL RESCUE","10","," ?"SHARECHECK","02","(" DS$+"serious s/ware)","01","#",S$+"piracy)","02","#",S$+"hex)","03","#",S$+"prog.structure)","04","#",S$+"media violence)","07","#",S$+"black boxes)","08","#",S$+"anti-violence)","09","#" h"SKETCH","12","*" j"SKIPPER","09","/" "SPRINGLES","09",T6 "STAR DEMO","07",I3 $"SUBCALC(subscriptions)","05","(" 4"T2PG","08","1" l"TEE-EM","09","1" "THAT'S THE TICKET!(Part 1)","05",I0,"THAT'S THE TICKET!(Part 2)","06",I0,"THAT'S THE TICKET!(Part 3)","07",I0,"THAT'S THE TICKET!(Part 4)","08",I0,"THAT'S THE TICKET!(Part 5)","09",I0 "TK50 TOOLKIT","11","/" "TIME TO GO ERM","09",T1 !"TO THE TOP.(football)","11",I0 "TOPCHARS","03","1" "TRI-LOADER","08","," D"VIDLIST","12","1" /"WINDOWBOXES","06",O8,"WINDOWINDER","11","/" '"WORLD TIME","10","(","WOT?","08",T6 ! "WRECKTANGLES","01",T6 !"XECUE","12","/" $*"ZAP","09","," %M?"ZX M'FAIR DEMO.(disc only)","04",O8,"ZXMICROFLOP?","07","#" %tZZZ %u*"____________________END OF"," FILE",N %.02{# =,0:.04|# =,20:C$("3",20):9610%:O,I,O2,O3,O4,O5,O6,O7,O8,O9,I0,I1,I2,I3,I4,I5,I6,I7,I8,I9,T,T1,T6,SET,ZX,ZXTYPE,E$,D$,J$,O$,R$,S$,C$(1),C$(2),C$(3),C$(4),C$(5),C$(6),C$(7),C$(8),C$(9 ),C$(10 ),C$(11 ),C$(12 ),C$(13 ),C$(14),C$(15),C$(16),C$(17),C$(18),C$(19),C$(20),C$(21),C$(22),C$(23),C$(24),C$(25),C$(26),C$(27),C$(28),C$(29),C$(30),C$(31),C$(" "),C$("!"),C$(34"),C$("#"),C$("$"),C$("%"),C$("&"),C$("'"),C$("("),C$(")"),C$("*"),C$("+"),C$(","),C$("-"),C$("."),C$("/"),C$("0"),C$("1"),C$("2") %"0,1,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18,19,20,21,26,O,O,O,°"27","DRIVECHAT.(","JIG!BLOX(fresh picture)","OUTCLASS(","CHECKOUT.(","SHOUTBURST(" % % CATEGORIES %"" %"" %"" %"" %"" %"character set(s)" %"" %"demo (info,text,etc)" %"" %"entertainment" %"" %"" %"graphics (misc.)" %"" %"" %"" %"" %"" %"" %"" %"miscellaneous" %"" %"" %"" %"" %"pattern-generator" %"" &"" &"" &"" &"" &"text (info,tips,etc)" &"text (instructional)" &"" &"text (misc.)" &"" & "text (review)" & "" & "" & "utility (calc.)" & "" &"utility (graphics)" &"" &"utility (misc.)" &"" &"utility (printer)" &"utility(programming)" &"" &"utility (text)" &"" &"":DO USE-EOF & &G &HZXTYPEZX=I &RSET &\:I1,O9;"OPTIONS " &z #O;O,O;"KEMPSTON E I'F1 ZX OPUS LPRINT III DISCIPLE QUIT" &|O:K$=:K$="Q" &~K$="K""9881":SET=I: &"K$="I""BAUD RATE? ";BD:"B";BD &!K$="I"K$="O""9887":SET=I: &K$="L""9888":SET=I: &K$="D""9889":SET=I: &!K$="Z"SET=I:ZXTYPE=I:ZX=I: & "9852" &,"9883":E$;"@";I5;E$;"W";I;E$;"l";O9: &:0 & &:1 & &-ԧ:ӧ;"B":E$;"@";I5;E$;"W";I;E$;"l";O9: &>E$;E$;E$;"@";E$;I5;E$;E$;E$;"W";E$;I;E$;E$;E$;"l";E$;O9: &+ #O6,I:E$;"@";I5;E$;"W";I;E$;"l";O9: &P#:"23637+256*23638-1322": :!J*S\+ U !8!"&\LH(( 7777:/Y >X2/񇇇W:+=21X *>2/!-8 W!.F!)>2)20@O >Y2/ >X2/:02) >2.>2,>*2-*D"J 2.>2,>32-*F"J >2.>2,>@2-*H"J > >2+=21>20>2* ':*(!+8>21>20>>2* [Jo&)))"2>2*K0:+=ͬ"24"5*5#:4[. *2~#"2o:4(G&=:B[5:4( :00|*5$"5:0!,8>2*:1!+8>21>!.20:1v !Z:\wZ>21|Xg:\w*@@@@@@PPPPPPP p`` @@``@X @ @@@@@@ @ @p p @  @@`А` ` p` @` ` ```0 @@@````p` @ @@ @ @` @@pp`𐐐pppp𐐐p px`𐐐𰰐```аpࠐ``` p``````  @`@@@@@@`@@ ` ` p pP@@@pppppp`p0P@@@@`p@@@@@ @@@@@@ 𐐐```pp``@@@@@ p````p @`@@@@`@@@@@@@@`  `HpȨp &"M";;"out" &*"M";;"out"ʰ"20": ' ~64000:"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"6\>jmw#wL>cw#w#>kw#>>w#>6w ````p @`@@@@`@@@@@@@@`  `HpȨp &"M";;"out" &*"M";;"out"ʰ"20": ' ~64000:"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"R R"23608","CASSETTE":"20" "23608","DRIVE" P="23613+256*23614":P,:P+,"19":"2":ڰ"2":ٰ"2":ç:"43813":"43814","{":"43815","\":"9994":"9600":"9610":"47764",ç:"44612":"7",ç;#ç;,"11";" LOADING ":װ".3",^ 2"23608"="C""" d7D="23766":D=D-(D-(DD>"8")):*"M";D;"sketchB" %q"23637+256*23638-0057"::hue+store  !J(((>[Kv\!Xq#!@Q!Q@ %"23637+256*23638-4993"::sketch  Q!. z~( (#F##    a ? ?~  $07h ;`  @O  @ '  ?z j7p?@ 7   @ |  ` l>9Pnp nl        @   xXP0w .  8    \|  @ ? `` =P? .  ? O  `?_ `  `&  @  ?  P; Lw?`  0H  ?0~ x ``  } ??? ?? ? ?????"|00>>2(((((((((((((((((  &"m";;"ske" &*"m";;"ske"ʧ*: & "SKETCH"ʧ ' {"43816":"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"6\>jmw#wL>cw#w#>kw#>>w#>6w ((  &"m";;"ske" &*"m";;"ske"ʧ*: & "SKETCH"ʧ ' {"43816":"23637+256*23638-71nGpnG "d" E;:#O;I,IO;"PLEASE WAIT":xf=x:I;x,y:f=y̯"":(x,f)30 F wy=f:n=0̰"500":xf=xf+1:(xf,f)=1xf>254x,f:xf-x,0:f=f-1:xf=xf-2 #@(x,f-1)=1x,f:xf-x+1,0:n=500 (#(xf,f)=1xf=xf-2:n -|n:xf=x-1:f=y:bt=0:n=0500:xf=xf-1:bt=1xf<1n=500:70F 2](xf-1,f)=1xf<2x-1,f:xf-x,0: f=f-1:xf=xf+1 7$(x-1,f)=1bt=1 ABxf<255f0(xf,f)=1xf=xf+2:65A FAn:#O;I,O7;"FILL ROUTINE ENDED":y=f-I:"2":;:"2195": i6O,I,O2,O3,O4,O5,O6,O7,O8,O9,IO,I1,I2,I3,I4,I5,I6,I7,I8,I9,hold,bo,mc,join,paper,ink,k,SET,ZX,DS:"23658",O:ç,,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18,19,"9990",I,"44600",O,I,O7,"2193",O,O,O nO4:O:O5:I::hue=I5:O7;O;O,I;"Press";O,"24";"Sketch";I,I;"A Key";I,"27";"1.1":"20","":O,-O6:O2,O2:-O2,-O2:-O2,O2:O6;O4;I;I,I2;" M E N U " xO3,O2;"A. ADVICE,INSTRUCTIONS,NOTES";O5,O2;"B. BEGIN A BRANDCTURE";O7,O2;"C.PICTURE STORE";O9,O2;"K. KEEP(SAVE)CTURE ON TAPE";I1,O2;"L.PICTURE FROM TAPE";I3,O2;"P.THIS PROGRAM ON TAPE";I5,O2;"Q. QUITOUTLET";I7,O2;"R.PRESENT PICTURE";I9,O2;"S. STORE THE PRESENT PICTURE";"21",O2;"HOLD DOWN KEYS 12SEE ";#O;O,O;O;O5;I;" CTURES NOW STORE 12 ":I6,I2:"",O:hold ="a""7E3" ="b""1E3" ="c""5E3" ="k""4600" ="l""4500" &="p""4E3" 0(="q""9943":"6600":hold:"6520" :<="r"x="43814":y="43815":O:"9943":hold:"2020" D="s""9E3" v="1""9944":"920" ="2""9945":"920" R"" hold: I:I:O7:O::"1050":Y=O2I9:A$:Y,O5;A$:Y:"PRESS ANY OF THE FIRST","THREE KEYS SHOWN BELOW","","THEN YOU CAN PRESS THE","COLOUR KEYS (THE TOP","ROW OF KEYS - 0 TO 7 -","ON THE KEYBOARD) WHICH","WILL CHANGE THE COLOUR" L"OF THE FOLLOWING:- ","","BORDER, PAPER (MIDDLE","OF THE SCREEN)INK","(COLOUR YOUWITH)","","AFTER YOU HAVE CHOSEN","COLOURS THYOU LIKE,","PRESS KEY:- DBEGIN","YOUR DRAWING..." `N=OO3:A,B:"$",A:"",0:0,-B:-"",0:0,B:N:"9900":ں(hue/O8):ink::"",21,"","4","R",28,"2","$" k="2193":x="{":y="\" z=(x,y):zz=I:z=Izz=O >O8:I;X,Y:"3100":wink=I:qu=I:guide=I:k:O:O;zz;x,y ="p""8500":k 7="e"s$("352"):O,O;O8;O8;O;I;I;s$;s$:s$(I) "="q"3110& :qu=1:k h="u"װ".05",IO:"":#O;I,O4;"PRESS YESCONFIRM USE":O:a$=:k:a$="y""9943":k  =13 װ".05",I9:;:#O;I,O3;"PRESS YESCONFIRM ENTER":O:A$=:k:A$="y";:"9940":n=OO3:װ".03",n*IO:n:#O;I;I,O9;"PICTURE STORED":"2":;:k  !="l"3100 :lo=I:z=O:k  ="f"I5 !k$=:k$"0"k$"7""9910":k ="h"guide=O:#O;O,O;"FILL GUIDE-ON/OFF TEXT O(CIRCLE)INK VERIFY POSITION WINK-ON/OFF"  >="w"װ".02",O:װ".02",O:wink=wink:hold:qu=Iwink;x,y %7="o"n=IIO:װ".01",n*O6:n:3500 :2195 *,="t"paper=O7:ink=O:t=0:"8200" /-="g"guide=guide:2192+guide:hold 4-="a"3100 :an=1:z=1:k 9-="c"3100 :cr=1:z=1:k >="b""8300":;:k C="i"װ".1","(":"8e3":k H="j""3e3" M joinxj,yj R-="n"3100 :no=1:z=1:k W7="v"O8;O8;I;I;x,y:hold:O8;O8;O;O;zz;x,y \-="r""43814",x:"43815",y:;:"9940": a.="s"3100 :slo=1:z=0:k fcrslo2800 kqu2900T pno2600( zan2700 lo2500 wink1;x,y ink:2040 ;: .03{u\,I9:guide #O;O,O;"ANGLE CREEP JOIN LIFT-OFF NORMALHELP KEYS RETURN-MENU SLOW QUICK" !join#O;I;I;O,I2;"JOIN" #O;O,18;("IFT-OFF"lo);I,28;("UICK"qu);O,I;("NGLE"an);O,O7;("REEP"cr);O,27;("ORMAL"no);I,23;("LOW"slo): x,y 5="z"x1;x,y:x=x-1:x,y:2510 ?="x"x<2551;x,y:x=x+1:x,y:2520 ?="k"y<1751;x,y:y=y+1:x,y:2530 5="m"y1;x,y:y=y-1:x,y:2540  -x,y 2'="z"xx=x-1:x,y:26102 <1="x"x<255x=x+1:x,y:2620< F1="k"y<175y=y+1:x,y:2630F P'="m"yy=y-1:x,y:2640P  x,y E="z"xy<175x=x-1:x,y:y=y+1:x,y:2710 E="x"x<255yx=x+1:x,y:y=y-1:x,y:2720 O="k"y<175x<255y=y+1:x,y:x=x+1:x,y:2730 ;="m"yxx=x-1:x,y:y=y-1:x,y:2740  n=OIO:n x,y "="z"x>Oslo;x,y:x=x-I:x,y %="x"x<""slo;x,y:x=x+I:x,y %="k"y<""slo;x,y:y=y+I:x,y "="m"y>Oslo;x,y:y=y-I:x,y J W8:wink1;x,y ]#zz=1:z=1zz= ^K="z"x>7zz;x,y:x=x-8:z=(x,y):1;x,y:2909] hM="x"x<248zz;x,y:x=x+8:z=(x,y):1;x,y:2909] rM="k"y<168zz;x,y:y=y+8:z=(x,y):1;x,y:2909] |K="m"y>7zz;x,y:y=y-8:z=(x,y):1;x,y:2909]  join"3050" %join=I:xj=x:yj=y:"2193":hold: Bx,y:ink;xj-x,yj-y:join=O:hold:#O;O,I2;("JOIN"guide): &Kqu=0:cr=0:slo=0:no=0:lo=0:an=0: Yguide=I:#O;O,O;"ANY KEY FROM 1(LITTLE) TO 9(BIG)DRAWS A CIRCLE ROUND THE CURSOR." =k$=:code=((k$)-"0")*9 :k$<"1"ůk$>"9""3520" .code>xcode>y-1code>""-xcode>""-y#O;I;I;O,O;"PART OF THE CIRCLE WILL GO OFF THE EDGE OF THE SCREEN.TRY AGAIN":hold:n=O̯"d":n:"":;: =x,y,code:1;x,y,code-2:code=code+2:#O;I;O,O;"TO MAKE CIRCLE BIGGER, PRESS KEYE(ENLARGE). TO DRAW, PRESS KEY D" G="e"3630. L ="d";: Q 3655G X=O4:O2:X:O:O::O3,X;"FIRST RELOAD THE PROGRAM";X,X;"FROM THE BEGINNING UNTIL";O5,X;"THE ""SKETCH"" TITLE PAGE";O6,X;"APPEARS.BREAK INTO";O7,X;"THE PROGRAM & ENTER:";O8,X; "9982(MDRIVE)/9983(TAPE)." I4,X;"IF YOU HAVE ALREADY DONE";I5,X;"THYOU CAN NOW PRESS C";I6,X;"HEREPART TWO OF";I7,X;"THIS PROGRAM ON CASSETTE";I8,X;"OR M ON M/DRIVE" Ȼ"4200":"E",27:5,0:24,"":"",0:0,-"@":-"",0:0,"@":24,"G":"",0:0,-"8":-"",0:0,"8" ="c""4100"  ="r" ="m":IO,I1;"NOW SAVING,";I2,I1;"PLEASE WAIT":"P","h":"h",O:O,-"(":-"h",O:O,"(":*"m";I;"sketchB"ʰ"6E3":*"M";I;"sketchB":"4170"  "4060" :I1,O6;"READYPART 2":"sketchB"ʰ"4400"::IO,O9;"PRESS VYOU";I2,O9;"WISH":64@,103g:134,O:O,"-40":"-134",O:O,"40":"4200"  ="r" ""v""4120" 6:I1,O9;"READY":O4:"":O JA:IO,I1;"VERIFIED OK":^:I3,O8;"RETURNING TO MENU":"2": h&#O;I,O2;"PRESS R THE MENU": O:O:O7::O4,O5;"IF LOADING FROM MDRIVE";O6,O5;"THEN ENTER THE NAME OF";O8,O5;"THE SCREENJUST ""C""";IO,O5;"TOTHE CATALOGUE.";I5,O5;"TOFROM CASSETTE";I7,O5;"JUST HIT THE ENTER KEY" " ","":"",O:O,-"H":-"",O:O,"H":" ","?":"",O:O,-"(":-"",O:O,"(":"21",O;" ENTER R TO RETURN TO THE MENU":A$:A$="""4580" A$="R"A$="r" ^A$="C"A$="c":#O;I,IO;"(CATALOGUING)":I:"":#O;I,O6;"ANY KEY TO CONTINUE":O:"4500" =O::#O;I,I;"LOADING A FROM M/DRIVE":*"M";I;A$:"4590" /O::#O;I,O;"READYA SCREEN FROM TAPE":"" BO=("22",O):BO=BO-(""BOȯ""):bo=bo-("@"boȯ"@"):BO=(BO/O8):BO:#O;I,O;"PRESS ANY KEY WHEN READY TO DRAW":"200":"":O:"23658",O:"1950" O2:O:O3::O3,O3;"C.PICTURE ON CASSETTE";O6,O3;"M.PICTURE ON M/DRIVE";O9,O3;"U. UPDATE PREVIOUS VERSION";IO,O6;"OF PICTURE ON MICRODRIVE";I3,O3;"E.PICTURE ON M/DRIVE"  O2;O;I7,O4;"(All Microdrive SAVES are";I8,O4;" VERIFIED automatically. ";I9,O4;" A cassettehas the ";"20",O4;" option toor not)":"4200" ."16","":"",O:O,-"h":-"",O:O,"h" S$=:S$="e"E$="":"4700"  s$="r"  S$"c"S$"m"S$"u""4630" *^#O;O,O;"PRESS 1,23CHOOSE PICTURETHEN S(R -MENU)":="1""9944":HOLD 4="2""9945":HOLD >="3""9943":HOLD H ="r" R"s""4650" \hold:O,O;"ENTER PICTURE NAMERMENU";p$:p$>IO#O;O,O;"THERE'S ";P$;" LETTERS THAT NAME.- ROOM10 ONLY. - TRY AGAIN.":"400":"4700" fP$="""4700" pP$="R"P$="r" &"23658",O:s$="m""4950":"4890" s$="e";:"4900" ,s$="u"E$="UPDATE ":"":"4900":"4890" p$ 5#O;O,O;"PRESS VRTO THE MENU":="r" "v""4860" ";:#O;I,O;"READY֪":O,O:"" X:O8,O9;"PICTURE SAVED";IO,O8;"VERIFIED!":^:I3,O7;"RETURNING TO MENU":"75": $\#O;O,O;"PRESS Y";E$;"";P$;,;"OR RTHE MENU ":="r"Ŧ="R" ."Y"Ʀ"y""4900" BN;:"m";I;p$:S$="e"#O;O,O7;p$;" ERASED";I,O7;"RETURNING TO MENU":"d": V;:*"m";I;p$:*"m";I;p$: I:O6:I:O::X=O6:O2,X;"TO DRAWING";O4,X;"A PICTURE A STORE";X,X;"SIMPLY PRESS D(DRAW)";O8,X;"AND THEN KEY: 1 OR 2";I3,X;"IF YOU WISHCHECK";I5,X;"WHAT PICTURES ARE ";I7,X;"STORE,JUST HOLD DOWN";I9,X;"EITHER KEY: 1 2":",","":"5400":",","M":"5400":"4200" 0A$=:A$="1"A$="2""9943"+A$:hold:"5E3"  $="d"I;X,"21";"DRAW":"5200"  ="r" < "5100" P+A$=:A$="1"A$="2""9943"+A$:"1950" n ="r"  "5200" $"",O:O,-"B":-"",O:O,"B": peO=ç:I=:"23658","8":"6600":n=̯"2"ͧ:.01z# =,n:n:mc="44600":s=:p=ç:n=o̰"9E9" z"q=1:p=7q=-7 TJ=9 12 :p=1p+q;2;0;s;1;J,0;"" Fp=2p;2;0;s;1;J+4,0;"" +""K$=:K$="R"K$="C"K$="N""6530" 1J:s=0:p=p+1:p=8p=0 n:K$="R":"6530" x O:K$= ,K$="R"ç:ç::"9941":"9942":"4": WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" BK$="N"#O;I,"25";"NEXT":*"M";I;"out"  "6520" b"23658","8":#O;O,O ;"RUN PROGRAM CONTENTS NEXT ": l "7100":O6:O5:O:O:"7900" v ="r" ="n""7900" ="p""8500":"7950"  "7030" ""," WITH ""SKETCH"", YOU CANBY"," PRESSING THE FOLLOWING KEYS"," MOVE A CURSOR ROUND THE SCREEN",""," ZLEFT XRIGHT",""," KUP M DOWN" ""," USING THE ABOVE KEYS WILL HAVE"," DIFFERENT EFFECTS DEPENDING ON"," WHICH ""MODE"" YOU ARE IN. FIRST"," SELECT THE MODE BY PRESSING A"," MODE KEY (NEXT PAGE) AND"," USE THE: Z X K M KEYSDRAW." ""," WHEN YOU START TOYOU ARE"," ""QUICK"" MODE. THE MODE THAT"," YOU'RE WILL BE SEEN BENEATH"," THE DRAWING AREA ON THE SCREEN"," WHERE GUIDE KEYS ARE DISPLAYED" f""," MODE KEYS",""," N NORMAL....DRAW STRAIGHT",""," L LIFT-OFF..REMOVE "" """,""," C CREEP.....SLOW"" """ ;""," S SLOW...... "" REMOVE "" """,""," A ANGLE.....DRAW DIAGONAL """,""," O CIRCLE.... "" NORMAL CIRCLE",""," Q QUICK.....MOVE AROUND SCREEN",""," J JOIN......PRESS 1ST "," A,ˬB"," TOLINE FROM"," A̩B" ""," SPECIAL KEYS",""," B BACKGR'ND.CHANGE LOCAL"," BACKGROUND COLOUR",""," E EXCHANGE..EXCHANGE THE"," COLOURTHE",""," ENTER.......ENTER PICTURE A"," TEMPORARY STORE.TO"," RESUME,PRESS U USE",""," F FILL......FILL ENCLOSED AREA"," WITH ANCOLOUR",""," I INK.......CHANGESCOLOUR",""," P PRINTER...PICTUREPRINTER",""," T TEXT......TEXTUDGS" ""," U USE.......USE PICTURE STORED"," EARLIER WITH ENTER",""," V VERIFY....VERIFY YOUR CURSOR"," POSITION ON SCREEN",""," W WINK......CURSOR WINK ON/OFF" $u""," PRESSING ANY COLOUR KEY ALTERS"," THECOLOURYOU"," COULD SELECTORMODE","ALTER THE PICTURE'S COLOUR"," WITHOUT WIPING THE SCREEN. BUT"," BEWARE!THIS WILL ALWAYS REDUCE"," THE PICTUREJUST 2 COLOURS-"," SO IT MAY BECOME IMPOSSIBLE"," RECOVER EVERY ORIGINAL COLOUR"," (IF THERE WERE MORE THAN TWO).","PRESS KEY: D WHEN YOU ARE"," READY TOTOMORE" Lm""," NOTES",""," WHEN USING THE ""FILL"" ROUTINE,"," PUT THE CURSOR THE SPACE"," BE FILLED, BELOW THE HIGHEST"," POINT.PLEASE NOTE THVERY"," IRREGULAR SHAPES GAPS COULD BE"," LEFT WHICH SHOULD BE FILLED "," LATERGRAPHICS WITHTHE"," SPACE MAY BE INKED OVER SO USE"," THE ENTER FACILITYSTORE A"," PICTURE BEFORE FILLING A SPACE" "","AN ERROR STOPS THE PROGRAM,","EXAMPLE AFTER A FAILURE"," VERIFY A SCREEN$,RUN THE"," PROGRAM TOTO THE MENU.",""," PRACTICE IS NEEDED TO GET USED","ALL OF THE KEYS. GOOD LUCK!","" +:N=O̰"20":A$:A$="""7100":"7900" A$:N 0,0:0,"":"",0:0,-"":-"",0:1,1:"",0:#O;O,O;"NPAGE P":"4200": JL#O;O,O;"PRESS ONE OF THE COLOUR KEYS TO DRAW IN A DIFFERENT COLOUR " rk$=:k$<"0"k$>"9""8050" |$ink=k$-"0":ink:װ".1"," ":;: ;#O;paper;ink;O,O;"P";T;"APER I";T;"NK (THEN COLOUR KEYS)SWAP CHARACTERS ENTER TEXT/UDGS":O:K$=:K$"0"K$"7"paper=paper-(paper-(K$-"0")T):ink=ink-(ink-(K$-"0")T) iK$="c"236066\,("("þ236066\):236077\,(""ƾ236077\="<")+("<"ƾ236077\="") & K$="i"T=I + K$="p"T=O 0K$"e""8210" :qO,O;A$:paper;ink;O;("22"-(y+I)/O8),((x+I)/O8);A$:236066\,"(":236077\,"":"23658",O:K: N Tink=c: S paper=c: K#O;O;O6;O,O;"CHANGE BACKGROUND COLOURCURSOR BY PRESSING COLOUR KEY" Qp$=:p$"0"p$"7"paper=p$-((p$/O8)*O8):paper;O8;I;x,y:װ".1","20": "8350" !4G;:"23658","8":SET"8600"+("20"ZX)+("#"DS):'':"23658",O: !>"8690":#O;O,O;"KEMPSTON E IFACE 1 OPUS ZX LPRINT III DISCIPLE QUIT" !HO:K$=:K$="Q""23658",O: !RK$="K""8610":SET=I !\"K$="I""BAUD RATE? ";BD:"B";BD !fK$="I"K$="O""8660":SET=I !pK$="L""8670":SET=I !zK$="D""8680":DS=I:SET=I !K$="Z"SET=I:ZX=I ! "8500" !GN="7"̯"G"O8:"23308",N:"23331",O8-(O2N="G"):"23296":N: !&"8620":°"27";"@";°"27";"l";O8: !:0 ! !)NX="23637+256*23638":(NX-)::: !:1 ! !=ԧ:O4:ӧ;"t":O4;"b":#O4;27;"@";°"27";"l";°"20": !@°"27";°"27";°"27";"@";°"27";°"27";°"27";"l";°"27";O8: !. @6,1:°"27";"@";°"27";"l";°"8":@6,ç: !"23637+256*23638-0189"::K1@ 23296  !J[[1![͓[7C[>*[ "["[>![͓[*[ "[> O[![͓[= = > ^[k[,=[~ $ >[   >{͐[= = ~͐[# K 3PO #ZCO6:O:O6:I::O4,O3;"SIMPLY PRESS KEY S (STORE)";O6,O3;"ANDEITHER KEY 12";O8,O3;"TO STORE AWAY YOUR PICTURE";I3,O3;"YOU CAN CHECK THE PICTURES";I5,O3;"ALREADY STORES: 12";I7,O3;"BY HOLDING DOWN KEY 12":20,"":N=OI:"",0:0,-"4":-"",0:0,"4":20,"M":N:"4200" #n0A$=:A$="1"A$="2""9943"+A$:hold:"9E3" #x ="r" #"s"9070n# #;I;O4,"23";"STORE" #4a$=:a$="1"a$="2""9943":"9940"+a$:"9000" # ="r" # "9130" &MP#O;O,O;"KEYS: B(BORDER) I(INK) P(PAPER)(THEN COLOUR KEYS) D(DRAW) " &RTO:k$=:k$>47/Ưk$<58:hue=(k$-((k$/8)*8))*8+ink &\;="i".1}L," ":z=((hue/8))*8:"9870" &f;="b".1}L," ":z=((hue/8))*8:"9900" &ppaper=(hue-ink)/8 &z="d"paper:ink:"": &hue=0hue="64" &hue:"44584":"9805" &V#O;O,O;"KEYS: B(BORDER) I(INK) P(PAPER)(THEN COLOUR KEYS) D(DRAW) " &QO:k$=:k$>47/Ưk$<58:ink=k$-((k$/8)*8):hue=z+ink &="d""9850" &="p".1}L," ":"9800" &="b".1}L," ":"9900" &hue=0hue="64" &hue:"44584":"9871" &\#O;O,O;"KEYS: B(BORDER) I(INK) P(PAPER)(THEN COLOUR KEYS) D(DRAW) " &k$= &@k$>47/Ưk$<58:bo=k$-((k$/8)*8):bo &="p".1}L," ":"9800" &;="i".1}L," ":z=((hue/8))*8:"9870" &="d"paper:ink:"": & "9900" &#ad="44625":sho=0:"9970" &#ad="51538":sho=0:"9970" &#ad="58451":sho=0:"9970" &ad="44625":"9950" &ad="51538":"9950" & ad="58451" &%sho=I2:"9970":(("22",O)/O8): &ca1=(ad/"256"):a2=ad-("256"*a1):mc+"7",a2:mc+"8",a1:mc+"16",a2:mc+"17",a1:(mc+sho): '"""9990" ' '"M";;"sketchB" '*"M";;"sketchB"ʰ"6e3" "51538":"9950" & ad="58451" &%sho=I2:"9970":(("22",O)/O8): &ca1=(ad/"256"):a2=ad-("256"*a1):mc+"7",a2:mc+"8",a1''"8E3" sfl :a=(lt/ii):sf=ii^a-i:m$="PLEASE WAIT: SORTING...":m .sf=(sf/ii):xx,o;vi;sf;" ":sfsfl=i: sd=lt-sf:b=i a=b Pe=a+sf:d$(d(a))>d$ (d(e))tt=d(a):d(a)=d(e):d(e)=tt:a=a-sf:ai22 b=b+i:bsd20  16 ('inv=o:tb=o:u$(le)=t$(le)tb=le: )f=ile:u$(f)":"f *u$(f)=t$(f)tb=f +$u$(le)="#"u$(le)=" V":inv=i: , riii -g=lei-i:u$(g)=" "g .>u$=u$(g)+".............................."(g+i)+u$(le+i): 21;:xix,o;o;,,,,,,#o;o,o;i;i;vii;m$;o: <5"18",o;" caps off "cap;" CAPS ON "cap:i:i: d#:vi:pp=ii:ii:v$''''" ADD/AMEND TAPE RECORDS"''" TAPES BY NUMBER"''" TAPES BY TITLE"''" DRIVE"''" FILE/QUIT/RESTART"''" THIS PROGRAM"''" INSTRUCTIONS":m$=" CURSOR WITH ARROW KEYS, PRESS ENTER...":m:l=iv:ll=l i/xx,x:i;ll,o,,l,o;i,, q=:q"" mqxiiill=l:l=l+ii*(q=xl<16)-12 *(q=xl=16)-ii*(q=xil>iv)+12 *(q=xil=iv):"140" r=((l-i)/ii):r*"1e3":u #:st=i:z$="":v$ Po,o;i;" WHICH TAPE?  (ENTER gets 1st blank tape) ",q$:ñq$"1040" tp=q$:tpre"1010"  tpscr Cm$=" Seeking first blank tape...":m:n=ilt-flfl:d$(n,i)g$n etp=(n/fl+i):tp=red$(n,i)g$m$=" No blank tapes left -getting first record":tp=i:m:i,o:u Lypos=tp*fl+i-fl:cap=i:#:q$=a(tp)+" hour"+"s"a(tp)> i:i:o,o;i;" TAPE No. ";tp,q$d$(pos,i)g$d$(pos,le)"#";o':i/x,xx:n=ifl:n*ii,ii;o,,:n*ii,o;i;n;o;o;" ";i;d$(pos+n-i,le):n:xix,o;i;i;" PRESS SYMBOL/SHIFT+A=menu Q=last rec E=next recF=file rec D=dup line G=goto rec";#o;o,o;i;i;"I=tape len S=search U=clearW=orig rec":l=ii:c=ii:"<"  l,c;c$  O:Q$= zq=q$:qȯ" "q<""l,c;(q-" "*cap*(q>"@")*(q>"`")):l=l+ii*(c>lell< ii):c=c+(cle)-((le-i)(c=le+i)ll< ii):k "q=vicap=cap:"<":1210  cc=c:ll=l:qxiii1280 #l=l+ii*(l< f2)-f3*(l=f2):c=le+ii !c=c-i:(l,c-i)=" "1260 .c=c*(c> i)+ii*(c< ii):ll,cc;c$:cap=i:k-i q ii)-((le-i)q=ix(c=le+i)):l=l+ii*(q=xl< f2)+f3*(q=xil=ii)-ii*(q=xil> ii)-f3*(q=xl=f2):ll,cc;c$:k  #q=xiic=c-(c> ii):ll,cc;" ":k  q="" q="""1800" q=""tp=tp-(tp> i):scr (q=""tp=tp+(tp< re):scr qɯ"""1560" l,c;c$:m$="INSERTING RECORD INTO FILE...":m:n=ifl:n*ii,ii;i;o,,:d$(pos+n-i,le+i)=(" "tp< x)+tp:(n*ii,ii)=" "d$(pos+n-i,le)= g$:"1550" &f=ile:d$(pos+n-i,f)=(n*ii,f+i):f n:sfl=o:scr+x Gq=""m$="":m:o,o;" Tape length in hours? ";a(tp):scr+x "{q=""m$=" CLEARING SCREEN -USE FILE COMMANDFROM ARRAY.":m:n=ifl:n*ii,ii;o,,n*ii,ii;i,,:i/u,n:n:u:scr+xx ,4q=""m$="RETURNINGORIGINAL RECORD..":m:scr+x 8q=""m$="":m:"1010" ;qɯ"""1700" @l,c;c$:r$(le):f=ile:r$(f)=(l,f+i):f:c=ii:m$=""""+r$+"""":m:xix,o;i;"CURSOR UPDOWN, COPIES,S/shift ABORTS" Tl,c;i;i;le+ii ^ O:Q= hq=xiiil,c;i;r$:"1630" r#q=""l,c;i;i;le+ii:scr+xx |dll=l:l=l+ii*(q=xl< f2)+f3*(q=xil=ii)-ii*(q=xil> ii)-f3*(q=xl=f2):ll,c;i;i;le+ii:"1620" ?cap=i:"<":m$="":m:xx,o;i;"Enter title to be found..." acap=i:"<":CP,viii:o,o;i;"(ENTER alone continues current search) ";q$:q$>leq$=q$(le) Hñq$ñz$#o;o,o;i;i;" NO CURRENT SEARCH KEY!!!":i/ii,o:"1810" :ñq$q$=z$:"1870" Dst=i N6z$=q$:zl=q$:#o;o,o;i;"SEARCHING :""";q$;"""" X?CP,o:z$=q$:q=stlt:q$=d$(q,zl)tp=(q/fl)+i:st=q+i:scr b9q:m$=" END OF FILE. ANY KEY...":m:i/ii,o:o:scr -:v$:''"BY NUMBER..."':q=o:pr:q$="a" Dn=o(q$="p"):#n+ii;" VIDEOS BY NUMBER:"'':n:dt=o:vf=o n=iltfl:"23692",u ,t$(le+iii):e=ofl-i:u$=d$(n+e):="h"p u$(i)=g$"2070"  frm:dn=o:invdn=u$(le+i)  #S;"";u$(le+i)dndtinv;" "dn=dt;"V "invdndt;"";l$;" "(tb);u$(tb+ile-i);u$(le)inv;" "inv:dt=dn:t$=d$(n+e):pp=pp+i:e d$(n,i)g$inv#S:pp=pp+i  ppplpp=o:#S'''' *N:P 3srt:#:v$''"LIST BY TITLE...":q=o:pr:q$="a" 7n=o(q$="p"):#n+ii;" VIDEOS BY TITLE:"'':n t$(le+iii):n=ilt:="h"p -"23692",u:inv=o:u$=d$(d(n)):u$(i)=g$p ֋frm:#s;" "(tb);xx;inv;u$(tb+ile);xx;(inv);u$(le+i):t$=d$(d(n)):pp=pp+i:ppplpp=o:t$="":#s'''' N:P srt:I,O;"DRIVE No.? ";D:m$=" ERASING OLD FILES...":m:"m";D;"video.$":"m";D;"vidl.d":"m";D;"vidp.d":m$=" SAVINGVERIFYING...":m:*"m";D;"video.$"d$():*"m";D;"video.$"d$():*"m";D;"vidl.d"a():*"m";D;"vidl.d"a():*"m";D;"vidp.d"d():*"m";D;"vidp.d"d(): p:cap=o:CP,O:v$:''"FILERESTART?"''" ARE YOU SURE? y/n...":i/xx,x:i/xx,xx:"5500":q$="y"  |q$=:q$"y"q$"n""5500"  pm#:CP,o:v$'''"SAVING THIS PROGRAM..."''"Variables will be cleared."''"-continue? y/n?":"5500":q$="n" y:,ç;"DRIVE No.? ";D:ݼ;ܼ;" VIDLIST - VIDEO INDEX"'''"SAVING ""VIDLIST""":*"m";D;"VIDLIST"ʧ:"8e3" X :INFO=I:pr:INFO=O:q$="a" l#s;v$:#s'"allows you to store and retrieve"'"information on up to 99 video"'"tapes, with up to 8 titles on"'"each tape."'"Records can be amended, searched"'"and output to screen or printer"'"in numerical or title order."'"The file is always in numerical"'"order. When a record is amended,"'"a re-sort is done before alpha-"'"betic output or microdrive use."'"Only a pointer array is sorted,"'"so that both listings are always"'"available. The sort is in BASIC,"'"so a coffee break might be in"'"order!" vp+(q$="p"):#s;"In most of the program you just"'"need to follow the prompts."'"In Amend mode, records are"'"edited on screen. Using the"'"symbol/shift key, you can move"'"backwards and forwards, dupli-"'"cate lines, and file or delete"'"records."'"The screen record is stored"'"permanently until S/shift is"'"pressed, and the 'old' record"'"can be recovered at any time up"'"to then. This includes the clear"'"option (S/shift )." C#s'"S/shift allows input of tape"'"length."'"S/shift allows a"'"search for a title:the first few"'"charactersmay suffice.":p+(q$="p"):#s'"DON'T start a line with a space,"'"or the program will assume that"'"it's all blank. Empty lines are"'"seeded with 128, to sort"'"them to the end of alphabetic"'"listings." q#s'"Records of blank tape should"'"start with _, e.g. _2 hours, so"'"that they are also sorted last."'"If you put a colon (:) in a"'"title, the listings will not re-"'"peat anything before the colon"'"if it occurs in the last line"'"-listing the specimen file will"'"show what I mean.":p+(q$="p"):#s;"You can store commercial videos"'"with only one title per tape, by"'"working back from record 99,"'"using every line of each record."'"Put # at the end of such lines,"'"and they will be listed as sep-"'"arate un-numbered tapes. Don't"'"mix both types of tape on one"'"record. The specimen file will"'"show you the idea." $#s'"If you use BREAK, DON'T use RUN"'"to re-start, or you'll lose the"'"file in memory. In this case, or"'"if the program is broken with"'"output channelled to printer,"'"'99 ' rescues you."'"Listings to ZX-type printers"'"are interrupted every so often,"'"so the paper can be cut for"'"storage.":p+(q$="p"):#s'"The program could be improved in"'"many ways, especially if you're"'"hot at machine-code; -the screen"'"editor or sort routine perhaps"'"(athough I've never seen a"'"m/code utility that allowed you"'"to sort only a pointer array)." #s'"Perhaps a routine to print video"'"cassette labels could be added."'"I haven't included one as it"'"would have to be specific to"'"printer, kind of cassette box,"'"etc.":p+(q$="p"): @#:"65367":"9e3":CP,VIII:I,,:N=Ḭ"14":I;V$:N:I,,''VII;"  A video cassette database"''," by John Luby";#O;O,O ;" LOAD FILE STARTFILEINSTRUCTIONS CONTENTS NEXT" !O:K$=:K$="I""7E3":"8E3" PK$="C"#O;I,"15";"C":"23608",O:*"M";I;"CONTENTS" =K$="N"#O;I,Z-I;"N":*"M";I;"ske" K$="L"I,O;"DRIVE No.? ";D:m$=" LOADING...":m:*"m";D;"video.$"d$():*"m";D;"vidl.d"a():*"m";D;"vidp.d"d():sfl=i:U ǧK$="S"M$=" PLEASE WAIT...":M:d$(lt,le+ii):d(lt):a(re):n=ilt:19,14;LT-N;" ":d$(n)="":d(n)=n:n:n=ire:a(n)=3:n:sfl=i:U  "8100" "`@cap=o:CP,cap:vi,o;" Screen, Printer or Abort?" "jq$=:"8810"+(q$"") "t q$="a" "~q$"s"q$"p""8810" "2s=ii:l$="":q$="p""9800":s=iii:ZXl$=" " "j#:i;" LISTING";"SCREEN"q$="s";"PRINTER"q$="p";"...",'" Hold downHto halt printing:"INFO:' " "2;:#o;o,o;i;" PRESS ANY KEY...":i/x,i:o: " #("9E3":Z,CP,o,i,ii,iii,iv,v,vi,vii,viii,ix,x,xi,xii,xiii,xvi,xix,xx,xxi,pl,re,fl,le,lt,f2,f3,li,srt,frm,m,u,scr,k,pr,p,INFO,SET,ZX,inv,g$,c$,v$::"27","23658",ç,,i+i,,ii+ii,iv+i,v+i,v+ii,v+iii,v+iv,v+v,x+i,x+ii,x+iii,x+vi,"19",x+x,xx+i,"P","c",viii,xx+x,re*fl,fl*ii,f2-ii,"23",x,"(","2","d","1100","1200","8800","8900",O,O,O,O,"",xxi+i+""," VIDLIST - VIDEO INDEX " &HSET &zCP,O:#O;O,O;I;I;"KEMPSTON E IFACE 1 OPUS ZX LPRINT III DISCIPLE QUIT" &|O:K$=:;:K$="Q" &~K$="k""9883":SET=I: &(K$="i""BAUD RATE? ";BD:CP,O:"B";BD &!K$="i"K$="o"SET=I:"9887": &K$="l""9888":SET=I: &K$="d""9889":SET=I: &K$="Z"ZX=I:SET=I: & "9850" &:0 &'"9883":Z;"@";Z;"W";I;Z;"l";§: &2ԧ:ӧ;"B":Z;"@";Z;"W";I;Z;"l";§:ԧ:ӧ;"T": &6Z;Z;Z;"@";Z;Z;Z;"W";Z;I;Z;Z;Z;"l";Z;§: &+ @6,1:Z;"@";Z;"W";I;Z;"l";§:@6,O: &"M";;"vid" &*"M";;"vid"ʧ 850" &:'c{'JRIa:BiZA9 2 *z{yQ 3 # "qr bY  !)1+j{zy~}|   %$&('0,/.-47685;?=>@<GDFHCELPNMKOSVXTWU[^_\]`chdefgkolpnmsxutwv|}~      !&'"%$#(0*)+/.-,42351768=<9>:?@;GDEAFCBHNOPKMIJLUSQWVRXTY[_`\Z^]egbfhadcnkojlimpxtvqwursz{}y|~      &!'(#$%"*)-0.+/,614285739:<=@;>?GBEHCDAFPMJOILKNXSVTUWRQZ][_\^Y`bhgcaedfkjnlipomtuwqrvsxZ][_\^Y`bhgcaedfkjnlipomt2mç:ç:ç:"5E4":ܼ:٧+:"6E3":"7E3":"23606",ç:"23607","":"23608","R":*"M";;"CONTENTS" pI"23637+256*23638-0785"::candlechar  !J@@@@@@???@@@@@@????@@@ X"23637+256*23638-4000"::candle  @!. z[~( (#F##A> @5Y]UaX@6UU @?y @5P6TVUU @5XU B* +ڬ*c*i***l B6\ @6UUXՁ@6UU0 @5X\eWY` @76\UU@5PTՅU B*쮦*ڨ>|p+檮o***l B6UUTct@6UUXՀ@ @66TEU7@ @66XUU ?|B+l*+*l.** B5YUUTcT@6UU @ @5X6TVUU5@ @66EU 0pB*l***l:+ wfd,2[P@ j @?   ?@ٶ($2$     0   ?7?Dg ?&I$&m$ #B  / ` ?A ;X#"̈Y/ۿ"&     "z? nlJH@4 6I?(   Ϳf ? rM2  $ΝMg   D!/  ?$?  m6 &X*$ H$ٲ H  ? I$f;sFwm@DAGmgP    @W F ?*?ԀWx`oxx0~` c`gc3c1*_Jl0|1` cpnc3c1)?  `c0~c3c1c0~c )w  ` c0nc3c1xc0x|a| )/ #~c0gc3a+? $~c0cc3~a +?RW%` c3917*?h&` c391!FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGFFFFFFFFFFFFFFFGFGGGGGGGFFFFFFFFFFFFFFFBBGGGGGGFFFFFFFFFFFFFFFBBGGGGGGGFFFFFFFFFFFFFFFBBGGGGGGGFFFFFFFFFFFFFFFBBGGGGGFFFFFFFFFFFFFFFBBG@@@@@@@@@@@@@@HHHHHHHHHHOOOOOJJOOHHHHHHHHHHHHHHHHHHHOOOOOOOOOBJOOOOOOOOOHHHHHHHHOOOOOOOOOOOOOBzOOOOOOOOOOOOHHHOOOOOOOOOOOOOOOBzOOOOOOOOOOOOOHHOOO_______________________OOHHOOO_______________________OOOOOOO_______________________OOOOOOO_______________________OOOOOOO_______________________OOOOHMM_______________________MMMOMMM_]_____________________MMMOMMMM]]kkkkkkkkkkkkkkkkkkkkkkMMMOMOMMMMMMMMMMMMMMMMMMMMMMMMMMMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO &"M";;"run" &*"M";;"run"ʧ ___________________OOOOHMM_______________________MMMOcieo LOCAL HERO 1MASH:Ringbanger 1_0.5 hour 1 1 1 1 1 1STAR TREK:2:WRATH OF KHAN 2MASH:It happened one night 2MASH:Of moose and men 2 2 2 2 2 2CLOSE ENCOUNTERS OF THIRD KIND 3SNOWMAN 3MASH:Dear Dad again 3 3 3 3 3 3STAR TREK:1:MOVIE 4_0.5 hour 4 4 4 4 4 4 4SUPERMAN:1 5MASH:Sometimes you hear bullet 5MASH:Long John flap 5 5 5 5 5 5SUPERMAN:2 6FAWLTY TOWERS:Inspector 6_0.5 hour 6 6 6 6 6 6SUPERMAN:3 7DAKOTA 7MASH:Divided we stand 7 7 7 7 7 7CARRY ON:SERGEANT 8CARRY ON:CABBY 8 8 8 8 8 8 8CARRY ON:NURSE 9CARRY ON:DON'T LOSE YOUR HEAD 9 9 9 9 9 9 9BLUE THUNDER 10BAND OF THE YEAR:1986 10 10 10 10 10 10 10MALTESE FALCON 11BAND OF THE YEAR:1987 11 11 11 11 11 11 11SMOKEY AND THE BANDIT:2 12CARRY ON:GIRLS 12 12 12 12 12 12 12CANNONBALL RUN 13SHAPE OF THINGS TO COME 13 13 13 13 13 13 13CARRY ON:FOLLOW THAT CAMEL 14_1.5 hours 14 14 14 14 14 14 14MOONRAKER 15MORECAMBE & WISE SHOW 15 15 15 15 15 15 15LIVE AND LET DIE 16HANCOCK:Blood donor 16HANCOCK:Radio ham 16 16 16 16 16 16MAN WITH THE GOLDEN GUN 17_1 hour 17 17 17 17 17 17 17GOLDFINGER 18_1 hour 18 18 18 18 18 18 18DOCTOR NO 19_0.5 hour 19 19 19 19 19 19 19STAR TREK:Deadly years 20STAR TREK:Obsession 20STAR TREK:Wolf in the fold 20STAR TREK:Private little war 20 20 20 20 20_3 hours 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 23 23 23 23 23 23 23 23 24 24 24 24 24 24 24 24 25 25 25 25 25 25 25 25 26 26 26 26 26 26 26 26 27 27 27 27 27 27 27 27 28 28 28 28 28 28 28 28 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 32 32 32 32 32 32 32 32 33 33 33 33 33 33 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 36 36 36 36 36 36 36 36 37 37 37 37 37 37 37 37 38 38 38 38 38 38 38 38 39 39 39 39 39 39 39 39 40 40 40 40 40 40 40 40 41 41 41 41 41 41 41 41 42 42 42 42 42 42 42 42 43 43 43 43 43 43 43 43 44 44 44 44 44 44 44 44 45 45 45 45 45 45 45 45 46 46 46 46 46 46 46 46 47 47 47 47 47 47 47 47 48 48 48 48 48 48 48 48 49 49 49 49 49 49 49 49 50 50 50 50 50 50 50 50 51 51 51 51 51 51 51 51 52 52 52 52 52 52 52 52 53 53 53 53 53 53 53 53 54 54 54 54 54 54 54 54 55 55 55 55 55 55 55 55 56 56 56 56 56 56 56 56 57 57 57 57 57 57 57 57 58 58 58 58 58 58 58 58 59 59 59 59 59 59 59 59 60 60 60 60 60 60 60 60 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 96 96 96 96 96 96 96 96 97 97 97 97 97 97 97 97CLOCKWISE #98SPIES LIKE US #98MASH #98DARK CRYSTAL #98QUEEN:WE WILL ROCK YOU #98 98 98 98STAR TREK:Cage #992OO1:SPACE ODYSSEY #99LEGEND #99KRULL #99RAIDERS OF THE LOST ARK #99STAR WARS:1 #99STAR WARS:3:RETURN OF JEDI #99FREDDIE MERCURY #99STAR TREK:Cage #992OO1:SPACE ODYSSEY #99LEGEND #99KRULL #99RAIDERS OF THE LOST ARK #99STAR WARS:1 #99STAR WARS:3:RETURN OF JEDI #99FREDDIE MERCURY @ @"8994":"8986":"9966":缧:ç:ٰ"7":ܼ:"62999" :"" J" This is the scrolling cue line routine in the CONTENTS BASIC. E erases all but the at 9966.it,MERGE it in your program,do62999LESS and9966 to initialize. Scroll your message with:  X$='text':RANDOMIZE 63000. Messages repeat unless you put the Sinclair token: """" (254) at the end. Any key press also ends the scrolling." "'O=ç:I=:O6="6":O7="7":"8955" " O:K$= "K$="D""8960":"8900" "WK$="C"#O;I,"14";"CONTENTS":"23608",O:*"M";I;"CONTENTS" "WK$="N"#O;I,"25";"NEXT":"23608","11":*"M";I;"CONTENTS" "K$="E"A=ç:B="9965":"8925":D="23296"̰"23319":E:D,E:D:"65367":#:"23296":"!","A-256*(A/256)",(A/"256"),"","n","25","","!","B-256*(B/256)",(B/"256"),"#","","n","25","","","","R","","25","","","25","" " "8905" "y"23658","8":#O;O,O ;"ERASE ALL BUT THE XECUE DEMO/INFO CONTENTS NEXT": #X="63E3":W="63148":S="63158":H="8977":X$=" X E C U E is useful when you want to add info to a full screen! ":S,"10":W,O7:H:X:#O;O,O,,:"":X$=" Character spacing can be expanded like this with POKE 63148,9(upward)":W,12 :H:X:"":X$=" See what I mean?":W,"25":H:X:"":X$=" or reduced like this by poking less than 8":"23607","<":W,O6:H:X:"" #5X$=" You can't use colour codes ":W,O7:H:X:"":X$="or Sinclair tokens...":W,O7:H:X:"":X$=" ...but you can scroll THROUGH colour very effectively by printing blank coloured spaces first!":#O;I,O;"              ":H:X:"" ##O;I,O;O7;I;I,,:X$="You can control the speed with POKE 63158 (255 is slowest)":"8994":S,"30":H:X:"":X$=" AND 0 IS VERY FAST!":W,"15":S,O:H:X:"" # "8994": # "8977" # #"23637+256*23638+5": #!U\N#FJX?????????????zł|S[kV8q8S #"z"64E3":"23637+256*23638-71"::AUTOCHARS*v\!?~/wy *v\%"6\>jmw#wL>cw#w#>kw#>>w#>6w & "23637+256*23638-0209"::xecue  !J>2\l"*#N#F4>>>>>>>>#>>>~ͫ:\ x *K\KY\|0,>Xn #^#V#v #~(~(! :\ x !O > + 7+256*23638-0209"::xecue < ri*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >zՋs     \Wel tt't rsat\ot - t x suld\ sy! W kws? Sin t\a sl ZX81, DRAGON anORIC\entastauafor\ ars, lt Sctm\s in t xnry!If\, c OUTLET l o! ^Now, ' cm cin\trth~ist'st\o pet oes:-\\EXPENSHEET itЧ w ed\ ci exncnth.Now\} psy~ily\anpnt-o t 31st.\LINEDIT iBASIC "c" u\} MERGE in uow pgms\aa alrª INPUT. We\src ˘\instco i OUTCLASS tt\ ontor lp\mp nr acally\srWRITING rmp\pgms. I prot\ l Z80 c ˘\asmb eb  ty\uc ˘ pgmung\mp asmbmnds. ^XECUE it s sclng\u¢ at t of\t CONTENTS .Noit'urs\ adtesna ext in\ cwscens! Al o sc\anCartd B iCHECKOUT\eoSPECTRUM PROGRAMMER;\a anngladcª ng\ri; VIDLIST pĘa\~| al uĘo\}sts(No t' of\t tr'Ęoo sand\}rtd B wc} ad\in VIDLIST a); SKETCH\igh-dnpg -\ectlART STUDIO tn,\iesn'sfe id\eit? Iacalltof\a"uallonlunon\gpccsng..."\etc. etc. ^Filly,bsa est,'\ainoOUTLET pgms\anarci t, ise, or\}rorr. Eacnth,ext\~ l i OUTLET up~\uinand,au'l ab\ pnit, t' e\st imi t eal\anyզ.T pڻsce mp\iw a impڪnt\iadd. Sorrt'\o any- զ tn\eugt bo - r\rth~rti ct! Enit\all!\ Ro anBa Cars\ Cz Soft\ 605 LghugRd.\ Birsll, Lsr\ LE4 4NJ\ Ps : 014703943.^mp\iw a impڪnt\iadd. Sorrt'\o any- զ tn\eugt bo - r\rth~rti ct! Enit\all!\ Ro anBa Cars\ Cz Soft\ 605 LghugRd.\ 3*v\")J!J~͗"2\k #N#F+#~8N 8A{8O808#88 ւ>uh>oN>i4>e>a #~a> ^(\(> *< S>>*̞B< ![#R0~ 8~> > >z*-***** 2 *************** \T EEC vo Ja pnr\imrti imاon\~isy-we pnral as\t-tx. FOCUS, bsrof\PoComnWkla \unct rseklȢ\} onl}ld\"COMPUTER GAMESWEEK". PCW itlf\l i uncni itown\˪ oews. T\rcsr rn\acrn o ur.Iems\lCurryl slng\mranode\ pڴts. A exo of\t "rtn" c- Dn,\Einsin, Oc,etc. l ld\o 12tNomat Asn\Vil SrtanL Cent,\Birngm. ^NYOUR COMPUTER tntand\CRASH apa us.\YOUR SINCLAIR snga\sp eansPRINT\u¢. T ixn ur\pnra ed. SINCLAIR\USER PLOT & DRAW u¢\anottd ry\itoca ed.\PERSONAL COMPUTER WORLD an\abrni o w"n۠"\cabex-Sinciempԭes\unt Z80 text sm\cpgatgpcs\anunast.T'\yareo ul\add. Soft adf t\ilt-i }st c suld\ cap. Carly, tit\"Lo" arcllang\fit!Pg Fi oka˘\mpso tds..^w"n۠"\cab