@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }BF$$******************************$$* REAL TIME CLOCK *$$* l*} for ATARI XL/XE *$$* (Cassette version) *$$* by Len Golding *$$* -------------------l+}------- *$$* PAGE 6 MAGAZINE - ENGLAND *$$******************************  IIPROGRAM 2 - Makes an autoboot cal,}ssette version of the Clock routineb$6-+F:A,&@$,$AVbreserve a safe area at the top of RAM as a temporarl-}y bufferU-@F")A6%- ULoad the new SAVE routine into page 6(PP104,104,133,204,104,133,20l.}3,104,133,206,104,133,205,162,16,169,11,157,66,32II165,203,157,68,3,165,204,157,69,3,165,205,157,72,3,165,206,157,73,3<l/}32,86,228,96,67,58,155FAALoad the program temporarily into the reserved buffer spaceP6-#APZ"l0}"6@A d# %6-%@# @nPPNow read the data from the temporary buffer into an Autoboot cassetl1}te filex##@@A(C:))6-?:A6<}8,201,3,208,7,162,206,160,10,32,235,9,76,95,228|FF174,48,2,172,49,2,224,109,208,4,192,10,240,7,169,0,141,92,10,240FF5,l?}169,255,141,92,10,173,249,6,41,1,208,37,173,92,10,48,44,142,90KK10,140,91,10,138,24,105,3,141,115,10,152,105,0,141,116,10l@},169,109,141CC48,2,169,10,141,49,2,76,11,9,173,90,10,141,48,2,173,91,10,141GG49,2,96,162,0,238,241,6,173,241,6,201,10lA},144,82,142,241,6,238,242GG6,173,242,6,201,6,144,69,142,242,6,238,243,6,173,243,6,201,10,144GG56,142,243,6,238,244,6,lB}173,244,6,201,6,144,43,142,244,6,238,245,6II173,245,6,201,4,144,30,172,246,6,192,2,176,17,201,10,144,19,142,245EE6,23lC}8,246,6,173,246,6,201,3,144,6,142,245,6,142,246,6,169,0,141DD247,6,162,5,189,241,6,9,16,157,103,10,41,15,13,247,6,141,247lD},6KK202,16,237,173,249,6,41,8,208,36,173,103,10,141,140,10,173,104,10,141NN139,10,173,105,10,141,137,10,173,106,10,14lE}1,136,10,173,107,10,141,134,10HH173,108,10,141,133,10,96,206,241,6,16,51,169,9,141,241,6,206,242,6EE16,41,169,5,141,2lF}42,6,206,243,6,16,31,169,9,141,243,6,206,244,6EE16,21,169,5,141,244,6,206,245,6,16,11,169,9,141,245,6,206,246,6KK16,1lG},96,76,106,9,134,205,132,206,160,11,177,205,153,117,10,136,16,248GG140,99,10,96,104,169,0,141,97,10,162,5,157,241,6,202,1lH}6,250,32,29&GG10,169,4,141,249,6,32,106,9,162,157,160,10,76,235,9,173,87,10,1410GG95,10,173,96,10,141,102,10,96,104,169lI},2,141,246,6,169,3,141,245,6:EE169,5,141,244,6,141,242,6,169,9,141,243,6,141,241,6,32,106,9,32DBB29,10,169,6,141,249,6,lJ}162,170,160,10,76,235,9,24,255,0,0,0,0N==0,0,0,50,0,0,0,20,0,50,16,16,16,16,16,16,112,112,66,117X3310,1,0,0,0,0,0,0,0,0lK},0,0,52,41,45,37,26,0,0,0b5516,16,26,16,16,26,16,16,0,0,0,0,0,0,0,0,0,0,0,0l220,0,0,0,0,0,0,0,0,0,0,0,52,41,45,37,26,0,lL}0,0vEE35,47,53,46,52,36,47,55,46,0,51,101,116,0,51,101,99,111,110,100FF115,0,51,101,116,0,45,105,110,117,116,101,115,0lM},0,0,51,101,116,040,111,117,114,115,-1D2:CLOCKCAS.BAS,100FF115,0,51,101,116,0,45,105,110,117,116,101,115,0lD?@ DHDHDMDMDSDSMODLOCKOUZEROFLAZERCDOWHHMMSSO} P}$$******************************$$* ALARM CLOCK *$$* for ATARI XL/XE *$$* (use wQ}ith REAL TIME CLOCK) *$$* by Len Golding *$$* -------------------------- *$$* PAGE 6 MAGAZINE - ENGLAR}ND *$$******************************  BBPROGRAM 3: Alarm Clock - Beeps when pre-set time is reached.e6-A}b) !"`3!3̩OiLNiw̩Oiͩ έϊH 6OhiiЩi i1O7iDž̩OiW}L~N̩OͩέϊH 6OhiiЮ+O1O!O*OOO  0LNNX}LNN#`) ) α)` ) ҘeY}̥̅iͥi(Υiб`i̭iͩ Oi!`# Oi(̥i`D#Z}`ffb"fffff""&fffb"""fff""""&ff""""&fb"""""fb"""""fb"""""f""#3""&"33332&3333336C33333FDD334DFdDDDDDffDDDDFffdDDDffffdDffffb"f[}ff""&fb"""fb"""f""""&""""&"332&33336C333FDDDDFdDDDffdDfff"fb"&"""#32C34dDF""ffffffafefeUufeuUUUUfeWUWUUf\}eUUUWUfeuWWUUfeUUUUufeWUUuUfdUUuUTfdDUUTDfdDDDDDfdDDDDDffDDDDFfffDDFfffaffafQVuQUvWUWWVuWUUvUuWUVEUUuFDEuDFdDDDf]}fdDffafuuvWWVEUFdDfUw Ti M8 TSLWL{Q-@,0p   0 @-8@^}0  ( L0@--D44x $ 4D-@D4 $ 0 T4 D- _}- H <8  (  8 H - HH 8 ((8 \8H - -LD< , <$L `}-LD< , <$L --8P@ 0( L@P-P,@p 0 @ Pa}- U   U  .  .  m  i m ̩Qm ̙͠ m̩Xm ͭmέmϥiΥb}iϭ S `̑i(Υiϥm̥i`pppM Nc}  ATTT10ΩϢd}Έ 򩀍ԩ>/Т UT W`HH Ԣ ԽvVнUr ԩЍ ԽvVнU ԩe}ЩЩ ЩƍЍ ԩ؍ЩЩЩЩЍ hh@  80 LU  iέiϥm ΥiϢf}i(Υi-`g}h} ҝvV )  )m i6Uߩi}  TS  TS"  TS3  TSD  TS   |W#o`  .  .  . m ̩m ͭiέi ϊe΅Υj}iϠ̌άȥi(Υi`"/Ѝo`UU`UU`UU`UU`UU```%`%`%`%`k}%`%`%```UU`UU`UU`UU`UU`l}U```U`V`Z`@%`%`}%`u`UUU`UU`UU`UU`Um}ЕWЕUW`@```UV@@}uUUUЕЕPUP**UmUPUeUP**n}U``UU`UU`UU`%```UU`UU`o}UU`UU`UU`UU``%`%`%```UU`UU`UU`UU`p}UU`UU`UU`UU`UU```%`%`%`%`%`%`%```UU`UUq}`UU`UU`UU`@@@@@@@}uUUU`UU`UU`UU```%`%`%``UU`UU`r}UU`UU`@@@@U`U`j``}%`uUU`UUU`UWЕЪUUP*U@*Us}UUPUUUP**UU``UU`UU`UU`%```UU`UU`Ut}U`UU`UU`UU``%`%`%```UU`UU`UU`UU`UU`UUu}`UU`UU`UU```%`%`%`%`%`%`%```UU`UU`UU`UU`UU```%`%`%`%`%`%`%`%`%`%`v}%`%`%`%`%`%`%`%`**U```U`V`Z`@%`%`}%`u`UUU`UU`UU`UU```%`%`%`%`w}%`%`%`%`%`%`%`**UЕWЕUW`@```U`V`@%`@%`%`}%`u%`U%`**UUЕЕЕ_ЕЕx}ЪP`* *UmPUeP** %`*%``e```UU`**%`%`%`%`%`%```UU`UU`%``y}`UU`UU`**%`%`%`%`%`%`%`%`%`%`%```UU`UU`UU`UU``%`%`%```UU`UU`UU`UU`z}**%`%`%`%`%`%`%`%`%`%`%`%`%`%`%`%`%`%```UU`UU`UU`UU`UU```%`{}%`%`%`%`%`%```UU`UU`UU`UU`UU`@`@`@%`@%`@%`@%`@%`%`}%`u%`U%`%``UU`UU`U|}U`UU```%`%`%`UU`UU`UU`UU`ЕЕ`@`@`@%`@%`U`U`j``}%`uUU`UUU`%}}`%`%P%ЕUWЕЪUUP*U@*UUUPUUUP**UU``UU`%`%`%`%`UU`UU`%```UU`UU`%`~}%`%`%`%`%`%`%`UU`UU`UU`UU``%`%`%```UU`UU`UU`UU``%`%`%`%`%`%`%`}%`%`%`%`%`%`UU`UU`UU`UU`UU```**}U`U`U`U`U```%`%```UU`UU`UU`UU`UU`U```U`V`Z`@**}uU}U`U`U`U```%``UU`UU`UU`UU`UЕWЕUW`@U`U``}`}uUU`UUU`UUЕЕЕЕUPU`UjUU`**UUUPUUUP**UU``%``U`U``UU`UU`UU``}`U`U`**``UU`UU`UU`UU`UU`UU``%```U`U`U`U`}**``UU`UU`UU`UU`UU`UU`UU`UU`UU```%`%```U`U`U`U`U`}**``UU`UU`UU`UU`UU`U```U`V`Z`}@``}U`uU`UU`U`*%``UU`UU`UU`UU`UЕWЕ__`A}`Au`AjA}@@@%`}%`uUU`UUU`UU``U`UWЕЪUUP*U@*UUUPUUUP**UU`U`%`U``UU`}UU`UU`%`%`U`U```UU`UU`UU`UU`UU`UU``%`%`}U`U`U`U``%`%```UU`UU`UU`UU`UU`UU`UU`UU`UU`}U`U`U`U`U`UU`UU`UU`UU`UU`U`}``U`VZ@}uUU`U`U`U`UU`UU`UU`UU`UЕWЕU`}U`@`֠Z@}uUU`UUU`UUЕPUj`U`UU`**UUUPUUUP**UU`UU``}UjUU`UU`UU`U`U`UU`UU`UU`UU`UU`UU`}U`U`U`U`UU`UU`UU`UU``UU`UU`UU`UU`UU`P )exACHA ** TITLE SCREEN **** BY D. STUART **2/ #@!-A6 }A%"+/ <,,@@ D:TITLE.OBJA(-@$)@( F6-?:A6 }<@,P@ZVV104,104,104,141,9,6,162,16,169,7,157,66,3,169,0,157,68,3,169,77,157,69,3,169,156_EE157,72,3,1 }69,29,157,73,3,32,86,228,169,12,157,66,3,32,86,228,96hCOLOURS OF SPACE STATIONiB4'B9@9 }BDAKBRA]BW@oBb@BgAUBr@nKA#@ }'A6A69A7A8KAC@x;@5,}EEA$ MUST ALWAYS BE 35 CHARACTERS LONG BUT CAN TAK }E ANY CHARACTER--6.#ISSUE 38 JUNE/JULY 1989 PRESS START-@@56-@:7<,,' @26-%@d }' A'!@1* @'6-&@2AU% COLOURS OF PAGE6 LETTERSKAA@ }'A @9A@KA6-?:B,1 +A1A  }%D:MENU D:TITLE.BAS@KA6-?:B,1 +A1A  !PDKEBLDELALINTEXTB@!@''@'(A@ PAGE $}6 ISSUE DISK #38l#@@K:;;@9,;@@,L67@,. ]67@9,. l67@,.$}! +@ A! A(<$(@ PAGE 6 - issue 380(@<(@-*-@@*(@$}1. help2.-@@.(@ 2. <.-@@.(@ 3. FH-@@H($}@%4. PF-@@F(@#5. ZG-$}@@G(@$6. d1-@@1(@7. n<)@$}6-&@H< @)!@Ax??A@AAAAAA! A$} A!#Ap"4END A( AP++> PAGE 6 - ISSUE DISK 38 <$$Unfortunatel$}y only two of the''programs from this issue will run&&directly from the disk but there((are instructions for all $}the rest.''MCQ-TEST will run from this disk((but is better set up as an autorun((disk. To create such a disk for$}mat**a new disk and write DOS to it using&&option H from the DOS menu. Copy##the files MCQTEST - MCQTEST.2((M$}CQTEST.3 - QUIZ.1 and AUTORUN.MCQ%%to the disk. Rename AUTORUN.MCQ##to AUTORUN.SYS and MCQTEST to&&MCQTEST.1 and $}then boot the diskin the normal way.''There is a test quiz on the disk$$with the filename QUIZ.1 which%%yo$}u can load when prompted.,END A%D:PODZ,#B2w#% D:MCQTEST! A A!#Ap$}"4END A( A++> MACHINE CODE LIBRARY <))To fully understand and use the$}se''programs you need to refer to the))article in Issue 38. There are four&&listings in Assembly source code**$}with filenames MEM1.LST - MEM2.LST -&&MEM3.LST and MEM4.LST. These areall in LISTed format.))There are two BA$}SIC listings which''you can run from the disk but the))SAVE routine will write to the disk%%so you should have a $}blank disk$$handy. These listings have the++filenames MEMSAVE.BAS and MEMLOAD.BAS%%You can RUN or LOAD them in th$}eusual way. END END A! A A!#Ap"4END A( A$}:++> REAL TIME CLOCK <;,,See the magazine for details of the<use of these programs.=''The$} program CLOCKDSK.BAS creates>&&an autoboot program for disk and?&&CLOCKCAS.BAS creates an autoboot@((tape. The prog$}ram created by theseA""must be booted before eitherB++ALARM.BAS or COUNTDWN.BAS can be run.C%%It would be better to$} transferD$$these four programs to anotherE##disk. The magazine gives fullFdetails.G ENDN AX! A$} A!#Ab"4END Al( A++> CASSETTE DATABASE <))The C$}assette Database is part of))an ongoing tutorial and needs to be$$combined with the listing from''Issue 37. This $}issue's instalment%%is on the disk in LISTed format%%under the filename DATABAS2.BAS END A! A$} A!#Ap"4END A( A++> TURBO BASIC <++The Tur$}bo Basic programs will only%%run with Turbo Basic installed.))Boot up with TB and LOAD or RUN the**programs in th$}e usual way. Filenamesare TURBO1 and TURBO2 END A %%6-F:A`,%AV$F:Aa,*@%@$}@q+-@@ 9%@= @$G -@6@,-9(@C A G  +$} A$V-@#(.-@ :->(H A L V A $$oA$}@'A @9A@PKA@t]A@PoAR@*@A'B7$}tA*$VAY@4'AdAU9-@ @#V(Ӡ٠٠Ϡ F:Ad,"AU$}A) APAdAU) @0-@@ $D:MENU F:Ad,"AU$]KL MAISETUBLANKSTLOOBLANSCREELETTERG_G_LOOPFADEFADEFADECIRCLE? 9p}9 : : v;;#####################p}############# TURBO BASIC TUTORIAL 3 #### by Gordon Cameron #### for PAGE 6 #### p} LISTING 1 #### ATARI XL/XE ONLY ################################d\nTxTOp};@@,;@`,--@@@)67,.>:,-  6-C:, +@$70@r$}888888pp8?(}ww<~~~<x`x`~<~~<(}0~0 ~ <~~<|~~||~~|~8~8888~~<<<<<<|<<<<<<<(}||~~~|8888>~|8|8|~ 8p<~~<(}~x|nf8x8~~~|8888>~|8|8|~ 8p<~~<( 44LOAD AND RUN ROUTINE FOR THE PODZ++@@ D:PODZ.OBJ],}AP@'AR9AS@2KAVAU]AWAU6-?:C:hhhLV,<@,,}@6-?:A2,D2:PODZS@2KAVAU]AWAU6-?:C:hhhLV,<@,,%6-A'6-A36-Ay?6-AxK6-AweClock display registerse6-A6-A'6-A}36-A?6-AeControl registers and USR addresses(B 6-?:,@BZero display and go to Standby Mo}de (4)2:@:Disable the console key setting facility<Set the curent time:F. (}+(WHAT IS THE CORRECT T}IME NOW?.(P @pZ7( HOURS: 7 )!@#@d7(MINUTES: 7 )!@Y}An7(SECONDS: 7 )!@YAx00Convert the values into individual digits:6-P:'}@,6-&$@6-P:'@,6-&$@6-P:'@,6-&$@(::}77Insert the digits into the six display registers:' !'!!Start the} clockSet the alarm time:3 (}3(%WHEN DO YOU WANT THE ALARM TO GO OFF? A@5(HOURS: 5 })!@#A`7(MINUTES: 7 )!@YAp7(SECONDS: 7 )!@Y}A"00Convert the values into individual digits:,6-P:'@,66-&$@@6-P:'@,J6-&}$@T6-P:'@,^6-&$@h7 (}7(ALARM WILL GO OFF AT ::r--Loop until the p}re-set time is reached:|77F:,"*F:,"*F:,"*F:,"*F:,"*F:,"A APre-set time has arrived:}%%2A @@-@A %%2 D2:ALARM.BAS}?@MdDHDHDMDMDSDSMODLOCKOUZEROFLAZERCDOWHHMMSS0} 0}$$******************************$$* COUNTDOWN TIMER *$$* for ATARI XL/XE *$$* (Use w0}ith REAL TIME CLOCK) *$$* by Len Golding *$$* -------------------------- *$$* PAGE 6 MAGAZINE - ENGLA0}ND *$$******************************  NNPROGRAM 4: Countdown timer - Sounds an alarm when count reaches 00:00:000}e6-A6-A'6-A36-Ay?6-AxK6-AweClock display registerse6-A6-A0}'6-A36-A?6-AeControl registers and USR addresses(T 6-?:,TInitialise display to 23:59:59 an0}d go into Countdown Standby mode (6)2:@:Disable the console key setting facility<2 (}/(!WHAT IS THE COUNT0}DOWN START TIME?2(F @`P7( HOURS: 7 )!@#@Z7(MINUTES: 7 )0}!@Y@d7(SECONDS: 7 )!@YAn6-P:'@,x6-&$@6-P:'@0},6-&$@6-P:'@,6-&$@8 (}8(Countdown started at ::' 0}!'4@4Start the clock in Countdown Mode.F:,A Count h0}as reached 00:00:00%%2A@@-@A %%20}D2:COUNTDWN.BASA@@-@A %%20VWoCCSCREENBOARDTEMPDLISHLAQUESTIONNNNNTEMSCREENSCR0LPEKSCR0HSCR1HSCR1LSCR2HSCR2LDHHHP<}HPVPVPPLMOVJIFSECHRMINSEXPYPVPAQUESTDATANSWERGARBAGEGARBAGEQUESDATSCREEMANQUESSUBQUEVLUANPLACQUE<}STTQNAMERANCOWRWRZEDLPLREVTRUEFALBASIJSECSELP1P1P2XOPXXXXWKYYYNANS<} @<}@ !<}"#$%&'()*+,-.@/0<}123456789:;<=>?@<}ABCDEFGHIJKLMNOP<}QRSTUVWXYZ[\]^_<}`ab ******************** MULTIPLE CHOICE ** PROGRAM *(* by *2<}* D.Rawlings *<* Jan-May 1986 *F*******************PU##Listing 2 - Save as MCQTEST.2Zd)<}A@ Ax) AJOYSTICK ROUTINE@ A*!@!6-%26-?:A6<,:6-%@<}$@ A*!@!6-&26-?:A6<,:6-%@$ A6-%$@!@P*<} A!6-%26-?:A6<,:6-&@$@!@P*!@!6-&26-?:A6<,:6-&@$<}!@P6-&$( A6-%(6-?:A6<,$(!@6-&(6-?:A6<,$<}WE6-P:+F:@ ,%AV$F:@,%BU6$F:@,,'@P,W@wg-@)@&6-P:'A6,<}E6-P:++'A6,&,$@`,g6-&$A6&$@`&@PRINT TIME(:: 6-@<}"! B@*F:B2y,"@ 4N* B"$,I B  B! A`+ A5 A@<}? ACI A ROUTINE FOR DISCSAVE>@ B(>@@D1:DSAVER*@<}F:@,/*@F:@,E*@F:@ ,R*@6-@A `%6-@:7<,,2*@6 <}6-@A%6-@:7<,,2*@6 @< B6-A%6-A8+<6-?:A6<,<}$$LROUTINE FOR DISCLOADV> B'@>@@D1:DSAVE`7)@)@*<})@7)@j6-@A `$)@267<,.>:,6 t6-@A$)@267<,.><}:,6 ~@'@@'@ h B6-6-) Av/6-9 AvE6-A=}Q6-A8Wh6-?:A6<,$$$MAIN ROUTINE LOOP 2000 TO 2500F6-%?$+ @,: A%R:=},$@FGOTO 2000 T:,"@A _%2@A@@9-@@= _2@=}E#!At*!@F* A$- A77 A%ET/F ROUTINE+ AeA!+SE=}LECT BOTTOM ROW/ @ As# A%/TERMINATE: A4 B# AAP- A%:REVIEW Q/A 4=} AT B# AI- A%4EDIT7 A A# A%7GOSUB ANSWERSHEET  A%NO CHOI=}CE4 APA%95 @x B# A- A%5DSAVE>5 A B# A- A%5=}DLOADH4 A& B# AE- A%4MARKR7 AV B# A- A%7RESTART\* A=} AG# A%*NEXTf AGP A%LAST A sT/F ROUTINEt6-P:+&@F,'@`,~=} A6.TA6.Fj 4T9+F:8,%A%+$@,,,"@RW-@2@%+$@= },`(Ԡj A8j 4T9+F:8,%A%+$@,,,"AW-@2@%+$@,`( T j A8= }j 4F9+F:8,%A%+$@,,,"@8W-@6@%+$@,`(Ơj A8j 4F9+F= }:8,%A%+$@,,,"AfW-@6@%+$@,`( F j A8MARK UP ANSWERSHEET6-$= }@%fYF:8,%A%+$@,,"A*F:8,%A%+$@,,"@8f67<,.TfYF:8=,} ( /<ө8( `L)wwvxXxX  >>>>>>>*?<\*~>?<\>~848<84~>,<8,~~A5}RpG>A ppBL!ppppW6W7W8W9W:W;W;ppppppA!ppBL!G0A6!()-%.4!2'(23#Ţ5}:;0P00089:67ܢ00iR"0 X0[0066 ;F067675}E :]"9 O00123456̩ˠˠ ˠ@ˠ`ˠˠ˥ ̥<`1E~ՁGHGHQGH: 5}>>??`/<ԍ8<8=0 <Щoҩҩ0 1j" */.# \5} s"` s")~>``0̩˨̦<`S0(8)=!!!"!%!(!+!L#i)ԅ5}!!!"!%!(!+!iƲҥƳiҥ2)<8崍ҥJJi` 8嵍ҥJJiƴ8JJJJi 5}涥LbЩЍТ?> Ѝ ` R$V8幰fx) !x)O!ɿD iL$Z8幐 !)x5}) @L$x) lL$`e i˩ ̩>Υ8ͩͱˑI`8 $`i $`0 5}+? Э ) ? dҭ!iJJJJJ$%` Jzjj b% l% Щi0=!60!1čd5}L$>`?`x) %x) %x) %x) %`8L%i//L%8L%i//5}//i////i////8JJJ e/80JJJe˝ /̠Ɂ5/ǭ/Э/ $/J/O-5}QS`dҩ ` l%!-@2@%+$@,.( T | F ;67<,. >$Q =2} A **SET UP BOARD POINTERS AND INITIALIZEth;A `,;@,;@,;A,;A,;@,;=3}@,;@,9@,t6-@67A<A,. V #AP!-@%"R67$@%@=4}<+%@,$@,.V %%6-F:A`,%AV$F:Aa,L.68,-F:@,%AV$F:@,=6-F:@=5},L6-F:@,T68@,-C:,/6-P:8@,'AV,T6-++8@,'AV,&,$AV6-@%=6}@%@$,REVIEW Q/A6@56-%A%-@@ +6-5 AvE''PUT CORRECT ANS=7}WER ON PM-GRAPHICSJ-@T\$7$@%<$@%,4T.#ABpB-@@F"X%$@=8}%\ ^\$7$@%<$@%,4F.#ABB-@@F"X%$@%\ h m^-@@=9}@+-@22( >-@4G( | S-@8Z( ^ o* -A A6@&* rx-=:}@"&( PUSH BUTTON:-@@ > P-@"`( PUSH t-@@ x wDF:B2=;}y,"@$6-@ 06-: AvD AB0| T:,"@ABD-@"&( =<}:-AA @D g -@"+( Š?-@AC U-@"g( ==} 26-A6-A8!26-?:A6<,$..0,0,0,0,0,0,0,224,224,64,64,64,64,64,0,0%%0,0,0,0,=>}0,0,0,7,7,4,7,7,4,4,0,0SET UP QUESTIONS&&;A,;A,;@5,e67@,. %67A,.=?} 467@,.E67@,. V67A,. e67@,.''6.hhEhDBHGILV[ B%@=@}5@@F6-?:C:, P-@@`( press-t-@@x 0=C} F:B2y,@AC:c-@@ _67$@<$@%@,.7$A#%A<$A#%A!,=D}c De6- Av%6-@/ AvA@S@e@ @U$MA=E}RK ROUTINE7%@%@+6-16-76--@C:,%Ag%@@$+++'@ ,=F}&P:'@ ,,$@ ,%@$P:'@ ,F:C:,%%@,%@8 7%@<%@,4 .6-%@8 AE`=G}37%@<%@,47%@<%@,A6-%@c2@@@@w-@@{ =H}2@37%@<%@,07%@<%@,A6-%@c2@AP@=I}@w-@@{ 2@ 7-@A )%@7%=J}@I 6-6- Av+6-@=-@@I(f-@@ $(CORRECT 6-@=K}@E(WRONG W-@@f(BLANK *-@@*( FINAL SCORE & )-@@)(=L}--------------- *26-A6-A8!26-?:A6<,4f-@"(( Š<-@=M}AP@ R-@"f( >H$[CHANGE QUESTION NEXT\)6-%@"@!)6-@=N}f/ 6-6- Av%6-/ Avp$zCHANGE QUESTION LAST)6-&@")6-@ =O}/ 6-6- Av%6-/ Av$$EDIT ROUTINE.AUTHORISATION8B=P} B0% D1:MCQTEST.3L B$DATA FOR SCOREBOARD 1VVQRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRE|=Q} -#14%34 0!'%|VV|pressorusearrowtonewquestion|ARRRRRRRWRRRRRRRWRRRRRRRWRRRRRRRWRRRRRRDVV|=R}a |a |a |a |a ||b |b |b |b |b |VV|c |c |c |c |c ||=S}d |d |d |d |d |VV|e |e |e |e |e ||a |a |a |a |a |=T}VV|b |b |b |b |b ||c |c |c |c |c |VV|d |d |d |d |=U}d ||e |e |e |e |e |VV|a |a |a |a |a ||b |b |b |b |=V}b |VV|c |c |c |c |c ||d |d |d |d |d |VV|e |e |e |=W}e |e ||a |a |a |a |a |VV|b |b |b |b |b ||c |c |c |=X}c |c |VV|d |d |d |d |d ||e |e |e |e |e |pBASIC SCREEN=Y} DRAWz3 + Ax)@3 Ap4-!(TITLE-4CHANGE TO TITLE$ -@$@=Z} (TIME:C-@C(( A-@ A('|D-SAVE|D-LOAD|MA=[}RK|RESTART||NEXT|LAST|C-@!C(( B-@"B('|TERMINATE=\}|REVIEW Q/A|EDIT|ANSWERSHEET|B-@#B('"Aa7-=]}@ 7(|||||0-@"0(||||ffNOTE LINES 6085 AND 60=^}90 ARE THE SAME AS 6040 AND 6060 WITH (INVERSE SPCAE) TO REPLACE WORDING$XDRAW FRAME]9@'-=_}@9AR@b11((l11((|QUESTION |=`}v11((| |11((| |11((=a}11((|a) | T | F |11((| 1=b}1((|b) | T | F |11((| 11((|c) =c} | T | F |11((| 11((|d) | T | F |11((|=d} 11((|e) | T | F |11((| =e} 11((| | |11(( $TE=f}RMINATEG BA+5+G@@QUESTION PLOTTER ROUTINEZ=g}@@'@@83"E-@@P( Z Av  -@@ ( >-@=q}?bŠb堠b렣bb%DOS SYSbNALARM BASbSAUTORUN SYSb;TTITLE OBJb TITLE BASb#MENU b FONT38 SETbPODZ bCOUNTDWNBASb PODZ OBJb$MCQTEST bMCQTEST 2 bHQUIZ 1 bAUTORUN MCQbAMCQTEST 3 b GMEM1 LSTb RMEM2 LSTb \MEM3 LSTb gMEM4 LSTb rMEMSAVE BASb }MEMLOAD BASb!DATABAS2BASb#CLOCKDSKBASb%)CLOCKCASBASbTURBO1 b2TURBO2 @>(7$A#%@<$A#%A,d@@'@@09-@@d(7$A#=r}%A<$A#%A,c@@6'-@@Q(7$A#%A<$A#%A,c@@9=s}NOW FILL IN BOXES9@@9)-@96-$@%B"+-@2@%$@=t}8( T | F B Aw97<,4T,-@2@%$@9(Ԡ| F 97<,4F,-@2@%$=u}@9( T |Ơ 97<,4 ,-@2@%$@9( T | F  wDISABLE BREAKx*@@d'=v}B7t@d*$?$@PMGRAPHICS SETUP 4J46-F:A,&@&BBy46-$AVTAY@bc=w}6-B2H6-B2Id'A@'A@&h7 #A)-A6A6%@@-"37 r7 #=x}A)-AA%@@-"37 wB2w@xA#@|36-A6-A '6-A=y}636-Aa6-%AV"6-P:'AV,I6-++'AV,&P:'AV,,$AVUAaA#A=z}#A%@ %6-?:A6<,%6-?:A<,$"DATA FOR PM MOVEMENT"\\104,104,104={},141,41,6,160,0,152,145,207,136,208,251,162,0,172,41,6,189,31,6,145,207,200"66232,224,9,208,245,96,1,2,4,8,144,160,192,240=|},0,0"* 41 BYTES(#__104,104,104,141,121,6,160,0,152,145,205,136,208,251,162,0,172,121,6,189,111,6,145,205,2002#>>232,=}}224,9,208,245,96,255,129,129,129,129,129,129,255,0,0<#* 41 BYTES#ANSWERSHEET ROUTINE#7%@%@=~}%6-+6-76-@#06-@`%@2$+P:+&@,'@,,{6-@)%@@$+++&@,'@,&P:+&@=},'@,,$@6-?:A6<,T$:6-%?$+ @,: A%R:,$@%EE6-P:+&@),'=}@@,%@%P:+&@Q,'@2,$@% T:,"@A%N6-6-6-,6-?:A6<,2=}@%@N%@!%/ 6- Av%6-/ Av&%$%RESTART ROUTINE%%=}%+%%%NO RETURN NEEDED%' INTRODUCTION AND FILE LOAD''g;@ ,+$ Ax=}6AHAR@Z-@@g($'N-@@6(TO COMPUTER AIDED ASSESSMENTJ=}-@AN B'U-@<("Please enter name of question fileU(e.g. D1:FILENAME.EXTG'**("(or type EDI=}T for question editor)L'V'4EDIT% D1:MCQTEST.3'$*OPTION ACCESS*" 4N B'" A%+$=}...SET PASSWORD FOR LIMITED FUNCTION ACCESS.&&;@,;@,;@,.>$(ACCESS ALL FUNCTIONS? (Y/N) (=}>0Y*0NB .4YB @.D#@@K:&(D(Set password - 3 letters .A-@=}@$)@267<,.>:,6 A@.( (6-@/$/UNDO PASSWORD/_%2@A@=}@9-@@= _2@/#-@%#( Ŀ/a#@@=}K:7-@@D)@R67<,.>:,V a@/' 46.Y6-' A`5/'-@%=}$( '$0TRAP ROUTINE0@6- Av+-@@@(DISC INPUT ERROR0+-@@ =}+(CHECK - DRIVE OK?0'-@@'( FILE ON DISC?0'-@@'( CORRECT FILE?0%-@@=}%( PRESS 1 F:B2y,@B%P1&+# Ax&%11F 6-6- Av1-=}@@F(DISC INPUT ERROR1'-@@ '( DISCSAVE FILE1%-@@%( NOT ON DISC1'-@=}@'( OR DISC FAULT1+-@A !6-+ Ae2G 6-6- Av1-@@G(DI=}SC OUTPUT ERROR 2'-@@ '( DISCSAVE FILE2)-@@)(PROTECTED DISC?2$-@@$( DISC=} FULL?(2(-@@((OR DISC FAULT?22+-@A !6-+ AP2 6-6- Av2*=}-@@*(DISC INPUT ERROR2)-@@ )(QUESTION EDITOR2%-@@%( NOT ON DISC2'-@=}@'( OR DISC FAULT2+-@A !6-+ Av356-A6-A8!26-?:A6<,5$=}6ROUTINE FOR TIME UP676- Av+-@@7(Š6-@@92@A@=}@M-@@0Q s2@-@@P  6+-@@+(N=}OW CHOOSE OPTION6h6-A6-A8!26-?:A6<,D@V@h@ 6=}$ N%2@A @@7-@%I( Ӡ]-@@0a s-@%( =} *N%%2@4N$ D1:LISTING.2]-@@0a s-@%( <KhiP d FILENNAMEMANQUESTDATQUESTRASCNVVTOCONXRPKISTSTLAJUMPWBQUESDATJXXXXXXI} I}@I} !"# ******************** QUESTION SETTER *(* AND EDITOR *2* bI}y *<* D. Rawlings *F* April 1986 *P*******************Z_##Listing 3 - Save as MCQTESI}T.3adq + Aq;A,;@,;@ ,;@5,;@,9@,;A,;A,I}467@,. %67A,. 467@,.67A<A,.F$(ENTER: - NEW QUESTION SETF( I} ADD/ALTER OLD SET0A*0NA@ 4A AQUESTION LOOPQ A6($ EnterI} question (1-20) to write/editQ(or enter 0 to continue$ A 6-P:,$ B!! )!@ AI}"A+ + A! Ap+ Av A0 A AXNAME FILEb +I} Afg#(Enter S - Save file to discB( C - continue editingg( P - Output file to printerg(((I} R - Return to main programh))0S*0R*0C*0PAi4CAj4RA k4PI}Al/-@@/(Present title header-v+-@@+(7A<A,@(.(#Do you want to wrI}ite/change header?@( Enter Y or N0Y*0NA@4NAL"(Enter name- (max 20 chars)&?I}-B:,%@@ L67<,. 67A<A,.>(>( TIME SET-@:7A,,hrs,@:7A,,minsI}M(.(#Do you want to set/alter TIME LIMIT9(Y or N=M4NA ,&(Enter time in hrs,mins eg 1,30,76I}7A<A,.>:,767A<A,.>:,COMMIT TO STORAGE DEVICE&"(ENTER FILENAME FOR STORAGE&I}h A!P@5@@S @7@<A,^@h B R A!((5(I}Return to main program (Y/N)9A4YR% D1:MCQTEST.2% 0(0(%ENTER NAME OF FILE eg D1:FILENAME.EXT*4''I}6.hhEhDBHGILV>[ A P@5@@F6-?:C:,!*I} @%6-@(26-6@>6-@V3"@6-@('6-@V36-@ +f A'(I}Now enter text-RETURN*(:( QUESTION E(PART Q"\ headerf A "@ A AI}(>:%@d,a B:,!8( LINE TOO LONG by B:,& characters-;(Q(Try shortening itT(W(a A  BI}:,  A A0TRY AND FIT IN GAPS%7<,4 )7<,4-% A SEARCH DOWN FOR GAPZ-@I}6@27<,0 *7<,0-6 9(P(NO GAPS-TRY AGAIN!Z A 67%@,.7%@, ^-&@I}6@-C:,%@21 E67%,.7,^C:,%&@@2` B:,!(8($Adjusting to fit grid lengthI}ens line`(#beyond limit. Shorten or insert '-'> B:,!4( at or around the  th character> A #(NOWI} LOOK AT SECOND GAP2+"6@)B:, ! A+ A0<%7<,4 )7<,4-% A FSEARCH DOWN FOR GAPJ} A} A} A} The following cities are European Capitols A} London Paris A} Frankfurt Brussels VA}ienna TTFTT The following can be fouA}nd on the Muppet Show Kermit A} Daffy Duck Scooter Animal A} Foghorn Leghorn A} TFTTF Recognised computer languages BUGOA}V C Fortran A} Pascal Double Dutch A} FTTTF The following are square numbers A} 15 25 A} 98 122 A} 81 FTFFT These actoA}rs have played James Bond Sean Connery A} David Niven Warren Mitchel A} John Forsyth Timothy Dalton A} TTFFT These authors wrote these books A} Steinbeck - The Grapes of wrath Stevenson - Treasure Island A} Shakespeare - Little Women Fleming - The Devil Rides Out Krantz - MiA}strals Daughter TTFFT These are famous astronomers A} Russel Grant PatricA}k Moore Galileo Prof. Pat Pending A} Beethoven A} FTTFF These songs were sung by: Tie a yellow rA}ibbon - Tony Orlando Let it be - Beatles See my Baby Jive - Roxy A} Music Yellow Submarine - Monkees Stairway to Heaven - Slade A} TTFFF Did these authors write these books? A} Guest - Ordinary People Tolstoy - Anna Karanin A} Douglas - Valley of the Dolls Hayes - Midnight Express A} Wheatley - The Excorcist TTFTF The following are A} Elements in Chemistry Water A} Brass Copper A}Iron Plutonium A} FFTTT These are found inside a living cell A} Nucleus Lysosome MitochonA}drion Zylon Cytoplasm A} TTTFT These are continents A} Africa Iberia A} Asia Australia A} Arabia TFTTF TA}hese are bones in the human body Cerebellum A} Femur Gastric A} Halarious Occiput A} FTFFT These are all Scottish Towns A} Barrow in Furness North Berwick A} Fort William Portree PaA}isley FTTTT In chemistry these are gaseA}s at room temperature Helium A} Aluminium Hydrogen Flourine A} Sodium bicarbonate A} TFTTF These characters have played Dr. Who WilliA}am Hartnel Peter Cushing John Noakes A} David Niven Patrick Troughton A} TTFFT These footballers played in the 1966 England World Cup teaA}m Donald Ford Gordon Banks A} Alan Mullery Jim Clarke A} Bobby Moore FTTFT These numbeA}rs are prime numbers 17 A} 25 13 A} 100 15242 A} TFTFF The following are makes of computer A} Apricot Pear A} Apple Grapefruit Lemon A} TFTFF The following statements refer to AtariB} Computers They never break down The firB}st Atari 400/800 appeared in 1979 The first micro to have sprite (PM) graphics The CPU is a Z80 chiB}p Atari Basic is now devoid of bugs B} FTTFF TRIAL QUIZ  Atari Basic is now devoid of bugs @L 䙣ލȎ!"` !"H h`lDD F}1.TSETQCM:D"NUR䙣ލȎ!"` !"H h`lDD DPX-6@,7<,0 *7<,0-0 N(NO GAPS IN 2ND PART-RETRYX A Z6.7%@,dL-&@J}6@-C:,%@21 B67%@,.L An^ B:,!6(% Adjusting to fit grid lengthens line^(#beyond lJ}imit. Shorten or insert '-'x> B:,!4( at or around the  th character> A NOW INSERT INTO QUESTDATJ }$67%@,. :":67$A#%@<$A#%A,.t!* @t67$A#%AJ }%+&@,$@V<$A#%A%+&@,$@V%@U,.:"@:67$A#%A'<$A#%AJ },.  Ap Av-@@ $;ROUTINE FOR ANSWERS@((( INPUT ANSWERJ }S IN FORM OF 'TFTFT'JT)B:,@(ERROR() A^Z-@%6-F:C:,%,;@p*@J }P(ERROR-not T or FZ Ah r..67$A#%A<$A#%A!,.|" A"AVOID MOST OF LOOPJ}> B:,-B:,(C:,%@2, >FILLS IN BLANKS$DISABLE BREAK*@@d'B7t@dJ}*$ TRAPS+(!(NUMERICAL VALUES ONLY!+ AN(FILE INPUT ERROR,(IS FILE ON DISC@-@ADJ} N A4V(FILE INPUT ERROR*( CORRECT DISC?>-@AB L BV Af^(FILE OUTPUT ERROR5J}(Disc full or protected?I(Drive connected^(Illegal filenamep%-@A % A`XDRAW FRAME]M J}+ A)@;-@MAR@b11((l1J}1((|QUESTION |v11((| |11((| J} |11((11((|a) | T | F |11((|J} 11((|b) | T | F |11((| J} 11((|c) | T | F |11((| 11((|d) J} | T | F |11((| 11((|e) | J}T | F |11((| 11((| | |11((J} $QUESTION PLOTTER ROUTINEZ@@'@@83"E-@J}@P( Z Av  -@@ ( >-@@>(7$A#%@<$A#%A,J}d@@'@@09-@@d(7$A#%A<$A#%A,c@@6'-J}@@Q(7$A#%A<$A#%A,c@@9o-@@3( - -J}E-@ @o(7$A#%A<$A#%A!,?$T'#PRINTER OUTPUT(# BTRAP 92002#P37J}A<A,3P3TIME-@:7A,,hrs, @:7A,,mins<#-@@ 3F#3 QUESTION - P#,,3J}7$A#%@<$A#%@&,U#,,37$A#%@'<$A#%@d,W#,,37$A#%@e<$A#%AJ },Z#-@_#ZZ3>:@e%,) 7$A#%A%@V$<$A#%A%@V$%@',d#ss37$J!}A#%A1%@V$<$A#%AX%@V$, - 7$A#%A%<$A#%A%,n# x#,,37$A#J"}%A<$A#%A,#3  A#PRINTER ERROR#>(>:A%,(&( PRINTER ERROR:-@AJ#}> T$ B A D1:LISTING.3#PRINTER ERROR#>(>:A%,(&( PRINTER ERROR:-@AH270@@@ @%%6-F:@,%AV$F:@,QTTO-@r%}B:,Y$@%7<,"@ -@6@<2A@@ , 6Q@TJTTOr&}^-Ay`@h9%@@r9%Ay`&@@| QTTO-r'}Ay`@9%@@  -Ay`6@9%@@ QTTOr(}-Ay`@9%@@& 0-@@Ay`@:9%@@D NQXTbr)}TlOv6.PAGE - SIX6-@6-@P-A@6-'@6-G:,r*}b'@$+$,@//bA &A&'@$+$,@ PT""6.CIRCLE/TEXT/MOVE DEMO..r+}.6-@6-AP%%6.(WITH SOME TERRIBLE SOUND!)6-6-P -A `6r,}@6-'@6-G:, //bA &A$+$,%'@@  P!T*+6-@6-@r-}'6.A FEW+P4+6-A@6-@'6.MIXED+P>.6-@6-As*6.CIRCLES&.PH.6-A06r.}-As*6.ELLIPSES.PR-@@@\bA`@f!!bA`@%@p!!bA`r/}@%@z PT-@A@%%bA`A%+'@, **6.r0} AND...SOME PLAIN SIMPLE OVALS...6-@06-@P M@ PQTT]PEr1}PF D2:TURBO1VALS...6-@06-@P M@ PQTT]PEp<= MAIINTRSPECIALOOWHERSTARINBOUNCMSKESETUFLIPMSG@8X:v3}; < = ################################## TURBO BASIC TUTORIAv4}L 3 #### by Gordon Cameron #### for PAGE 6 #### LISTING 2 #### Av5}TARI XL/XE ONLY ################################ \TT(O2`</-@@/(GRAPHICv6} FX by G.C '89F/-@@/(---------------------P0-@@0(OPTION - 'Door' effectZ,-@@v7},(SELECT - Scroll Upd.-@@.(START - Scroll Downn0-@@0(SPACE - Bounce effectxv8}4-@@ 4(Press any key, then wait.. >Y4 ?QTTO%%2AU@@v9}-A8@@@9%A8@&9%A8@%Av&  -@6@;2v:}AU@;2@AT@2@AP@%A%M+%@,'@ v;}a"6-,Q6T@TJOT-%Ae`@@^9A h r$$-%Ae %@@6v<}@@|9A %%9%&%A%A@@ -@A3 @@9%A %%9v=}%&@@%&@@@@ 6-QTTO(+F:B2y,V@,9%Av&v>}9%A8&6-+%@,aAvA(+F:B2y,V@,&9%Av&09%A8&:3v?}6-+&@,aAv' 36-AvDAN(+F:B2y,V@,XPbAl Y4 vPAQv@}TTO;A8,;A , 6-C:, 6-C:, +@/-@+0vA}/ 6-U:@,-@@%@  ,/@y&'/@y&@'&'/@'&vB}  /* 4 @>Y@@ PAGE 6H9AR +@\/-@+0vC}/ f-@@@@p%@z))b@@@$A'@#R%@#_@A&vD}@6-+%@,a@  @9A8 +@A-@vE}++0@&@+%@,$@ QTT]PP$P.E8PBF DvF}2:TURBO2@&@+%@,$@ QTT]PP$P.E8PBF Dt 10 ;MACHINE CODE LIBRARAY20 ;by Stephen Williamson30 ;for PAGE 6/ATARI USER40 ;----------------------50 ;#2.1 SAVE MEMORYNH} BLOCK60 ;TO DISK70 ;----------------------80 *= 2000090 .OPT OBJ0100 CIO = 584540110 COMMAND = 8340120NI} BUFFER = 8360130 BUFFLEN = 8400140 AUX = 8430150 TASK = 8420160 START = 400000170 LENGTH = 9600180 ;0190 ;--------NJ}-----------0200 ;OPEN DEVICE CHANNEL0210 ;-------------------0220 LDX #160230 LDA #3 3=Open channel0240 NK} STA COMMAND,X0250 LDA #8 8=Write0260 STA TASK,X0270 LDA #00280 STA AUX,X0290 LDA #NAME&255030NL}0 STA BUFFER,X0310 LDA #NAME/2560320 STA BUFFER+1,X0330 JSR CIO0340 ;0350 ;---------0360 ;SAVE DATA037NM}0 ;---------0380 LDX #160390 LDA #START&2550400 STA BUFFER,X0410 LDA #START/2560420 STA BUFFER+1,X0NN}430 LDA LENGTH&2550440 STA BUFFLEN,X0450 LDA LENGTH/2560460 STA BUFFLEN+1,X0470 LDA #80480 STA CNO}OMMAND,X0490 JSR CIO0500 ;0510 ;-------------0520 ;CLOSE CHANNEL0530 ;-------------0540 LDX #160550 LDA #1NP}2 12=Close0560 STA COMMAND,X0570 JSR CIO0580 RTS 0590 NAME .BYTE "D:SCREEN.DAT"0600 .BYTE 0,0,0,0,0,NQ}0,0,0,0,0lose0560 STA COMMAND,X0570 JSR CIO0580 RTS 0590 NAME .BYTE "D:SCREEN.DAT"0600 .BYTE 0,0,0,0,0,L 10 ;MACHINE CODE LIBRARAY20 ;by Stephen Williamson30 ;for PAGE 640 ;---------------------50 ;#2.2 LOAD MEMORY BLOCK60 ;FRS}ROM DISK70 ;----------------------80 *= 2000090 .OPT OBJ0100 CIO = 584540110 COMMAND = 8340120 BUFFER = RT}8360130 BUFFLEN = 8400140 AUX = 8430150 TASK = 8420160 START = 400000170 ;0180 ;-------------------0190 ;OPEN DEVICRU}E CHANNEL0200 ;-------------------0210 LDX #160220 LDA #3 3=Open channel0230 STA COMMAND,X0240 LDA RV}#4 4=Read0250 STA TASK,X0260 LDA #00270 STA AUX,X0280 LDA #NAME&2550290 STA BUFFER,X0300 LRW}DA #NAME/2560310 STA BUFFER+1,X0320 JSR CIO0330 ;0340 ;---------0350 ;LOAD DATA0360 ;---------0370 LDX #16RX}0380 LDA #START&2550390 STA BUFFER,X0400 LDA #START/2560410 STA BUFFER+1,X0420 LDA #2550430 STARY} BUFFLEN,X0440 LDA #2550450 STA BUFFLEN+1,X0460 LDA #40470 STA COMMAND,X0480 JSR CIO0490 ;0500 ;--RZ}-----------0510 ;CLOSE CHANNEL0520 ;-------------0530 LDX #160540 LDA #12 12=Close0550 STA COMMAND,X056R[}0 JSR CIO0570 RTS 0580 NAME .BYTE "D:SCREEN.DAT"0590 .BYTE 0,0,0,0,0,0,0,0,0,0lose0550 STA COMMAND,X056P^10 ;MACHINE CODE LIBRARAY20 ;by Stephen Williamson30 ;for PAGE 640 ;---------------------50 ;#2.3 SAVE MEMORY BLOCK60 ;TV]}O CASSETTE70 ;----------------------80 *= 2000090 .OPT OBJ0100 CIO = 584540110 COMMAND = 8340120 BUFFER V^}= 8360130 BUFFLEN = 8400140 AUX = 8430150 TASK = 8420160 START = 400000170 LENGTH = 9600180 ;0190 ;----------------V_}---0200 ;OPEN DEVICE CHANNEL0210 ;-------------------0220 LDX #160230 LDA #3 3=Open channel0240 STA COMV`}MAND,X0250 LDA #8 8=Write0260 STA TASK,X0270 LDA #NAME&2550280 STA BUFFER,X0290 LDA #NAME/2560Va}300 STA BUFFER+1,X0310 JSR CIO0320 ;0330 ;---------0340 ;SAVE DATA0350 ;---------0360 LDX #160370 LDA Vb}#START&2550380 STA BUFFER,X0390 LDA #START/2560400 STA BUFFER+1,X0410 LDA #LENGTH&2550420 STA BUFFLEVc}N,X0430 LDA #LENGTH/2560440 STA BUFFLEN+1,X0450 LDA #80460 STA COMMAND,X0470 LDA #1280480 STA AVd}UX,X0490 STA 620500 JSR CIO0510 ;0520 ;-------------0530 ;CLOSE CHANNEL0540 ;-------------0550 LDX #16056Ve}0 LDA #12 12=Close0570 STA COMMAND,X0580 JSR CIO0590 RTS 0600 NAME .BYTE "C:"0610 .BYTE 0,0,0,0,Vf}0,0,0,0,0,02 12=Close0570 STA COMMAND,X0580 JSR CIO0590 RTS 0600 NAME .BYTE "C:"0610 .BYTE 0,0,0,0,T 10 ;MACHINE CODE LIBRARAY20 ;by Stephen Williamson30 ;for PAGE 640 ;----------------------50 ;#2.4 LOAD MEMORY BLOCK60 ;Zh}FROM CASSETTE70 ;----------------------80 *= 2000090 .OPT OBJ0100 CIO = 584540110 COMMAND = 8340120 BUFFZi}ER = 8360130 BUFFLEN = 8400140 AUX = 8430150 TASK = 8420160 DEVICE = 8330170 START = 400000180 LENGTH = 9600190 ;0Zj}200 ;-------------------0210 ;OPEN DEVICE CHANNEL0220 ;-------------------0230 LDX #160240 LDA #3 3=Open chaZk}nnel0250 STA COMMAND,X0260 LDA #4 4=Read0270 STA TASK,X0280 LDA #NAME&2550290 STA BUFFER,X0300Zl} LDA #NAME/2560310 STA BUFFER+1,X0320 JSR CIO0330 ;0340 ;---------0350 ;LOAD DATA0360 ;---------0370 LZm}DX #160380 LDA 880390 STA BUFFER,X0400 LDA 890410 STA BUFFER+1,X0420 LDA #2550430 STA BUFFLEN,XZn}0440 LDA #2550450 STA BUFFLEN+1,X0460 LDA #40470 STA COMMAND,X0480 LDA #1280490 STA AUX,X0500 Zo} STA 620510 LDA #10520 STA DEVICE0530 JSR CIO0540 ;0550 ;-------------0560 ;CLOSE CHANNEL0570 ;--------Zp}-----0580 LDX #160590 LDA #12 12=Close0600 STA COMMAND,X0610 JSR CIO0620 RTS 0630 NAME .BYTE "CZq}:"0640 .BYTE 0,0,0,0,0,0,0,0,0,02 12=Close0600 STA COMMAND,X0610 JSR CIO0620 RTS 0630 NAME .BYTE "CX&EF#9STARHISTARLOSTARBUFFELENGTHILENGTLOLENGTBUFFLECMMCAUTAS^s} ##*****************************##* MACHINE CO^t}DE LIBRARY 2 *##* (SAVE MEMORY BLOCK) *##* by *##* Steve Williamson *##^u}* ------------------------- *##* PAGE 6 MAGAZINE - ENGLAND *##***************************** 2 A< ^v}A F--@@ D:SCREEN.DATPHHCASSETTE USERS TYPE:- 70 OPEN #1,8,0,"C:":POKE 859,128:POKE 62,128^w}Z6-Bd6-P:'AV,n6-&$AVx %@6-A `6-P:'AV,6-&^x}$AV %@@6-?:C:,,@ ASAVE MEMORY BLOCK6-AR^y}6-AV'6-AY6-AY'6-AP;@,)-@@")67<,.>:,   $104^z},162,16,76,86,228,96' +'0@"..(&ENTER TEXT, PRESS RETURN WHEN FINISHED,##@@^{}K:6N)@+40@N0@@@/@'-^|}/(>:,J*)@"AU'@*$T (>:, A0D2:MEMSAVE.BAS'-\e./STARHISTARLOSTARBUFFEBUFLECMMCAUTASb~} ##*****************************##* MACHINE CODE LIBRARY 2 *##* (LOAD MEMORY BLOCK) b} *##* by *##* Steve Williamson *##* ------------------------- *##* PAGE 6 MAb}GAZINE - ENGLAND *##***************************** (A +'0@A0@@b}2 A<--@@ D:SCREEN.DATFHHCASSETTE USERS TYPE:- 60 OPEN #1,4,0,"C:":POKE 859,128:POKE 62b},128P6-BZ6-P:'AV,d6-&$AVn x%@#AU#%@AUb}@6-?:C:,,@ A`LOAD MEMORY BLOCK6-AR6-AV'6-AY6-AYb}'6-AP;@,)-@@")67<,.>:,   $104,162,16,76,86,228,96D2:MEMLOAb}D.BASAP;@,)-@@")67<,.>:,   $104,162,16,76,86,228,96D2:MEMLOA`1 REM ******************************2 REM * TUTORIAL SUBROUTINE *3 REM * ADDRESS BOOK PART 2 *4 REM * f} by *5 REM * Ian Finlayson *6 REM *----------------------------*7 REM * PAGE 6 MAGAZINE - ENf}GLAND *8 REM ******************************9 REM 20 SORT=3000:CREATE=2000:MAINMENU=1000:SCREENDRAW=13100:FINPUT=13300:FFIf}LL=134001999 REM ***Šħ***2000 IF R=0 THEN 20502001 REM **DELETE THIS LINE2010 ? "} SAVE CURRENT DATABASf}E BEFORE CREATING NEW? ";2020 GOSUB KEYPRESS2030 IF KEY<>78 AND KEY<>110 THEN GOSUB DBSAVE2040 DATA $(1)=" ":DATAf}$(LEN(DATA$))=" ":DATA$(2)=DATA$:R=02050 GOSUB RECADD2060 RETURN 5999 REM ***Ġנ**6000 R=R+1:GOSUB SCREENDRAWf}6005 POSITION 8,19:? "ENTER DATA - ":POSITION 8,20:? " AT THE END OF EACH LINE."6010 GOSUB FINPUT60f}15 GOSUB SCREENDRAW6020 GOSUB FFILL6030 POSITION 8,19:? "IS THIS RECORD CORRECT? ":POSITION 8,20:? " f} "6040 GOSUB KEYPRESS6050 IF KEY=89 OR KEY=121 THEN 60706060 POSITION 8,19:? "AMEND RECORDS - f} ":POSITION 8,20:? " WHEN LINE IS CORRECT. ":GOTO 60106070 R$=F1$:R$(16,30)=F2$:R$(31,57)=F3$:R$(58,73)=F4$:R$(74,87f})=F5$6071 R$(88,95)=F6$:R$(96,109)=F7$:R$(110,115)=F8$6072 DAT$(R*115-114,R*115)=R$6075 POSITION 8,19:? "ADD ANOTHER RECORf}D? ":POSITION 8,20:? " "6080 GOSUB KEYPRESS6090 IF KEY=89 OR KEY=121 THEN 6000610f}0 RETURN 6999 REM ***Š***7000 ? "} *** DATA SAVE ***"7005 ? "PREPARE A CASSETTE... PRESSf} AND THEN "7010 OPEN #1,8,0,"C:"7020 R=LEN(DAT$)/1157025 ? #1,R7030 FOR X=1 TO R7040 R$=DAT$(X*115-114f},X*115)7050 ? #1,R$7060 NEXT X:CLOSE #17070 RETURN 7999 REM ***Ġ***8000 ? "}*** LOAD DATA ***"8005 ? "Df}O YOU WISH TO SAVE THE CURRENT DATA BEFORE LOADING ANOTHER SET?"8010 GOSUB KEYPRESS8020 IF KEY=89 OR KEY=121 THEN GOSUB DBf}SAVE8025 DAT$(1)=" ":DAT$(LEN(DAT$))=" ":DAT$(2)=DAT$8030 ? "}LOAD CASSETTE WITH NEW DATA - PRESS AND f}"8040 OPEN #1,4,0,"C:"8050 INPUT #1,R8060 FOR X=1 TO R8070 INPUT #1,IN$:DAT$(X*115-114)=IN$(11)8080 NEXT X:CLOSE #180f}90 RETURN 11999 REM **Š***12000 DIM R$(115),F1$(15),F2$(15),F3$(27),F4$(16),F5$(14),F6$(8),F7$(14),F8$(6),DAT$(f}11500),IN$(125)12010 SETCOLOR 2,14,6:SETCOLOR 4,14,6:SETCOLOR 1,0,012020 R=012100 RETURN 13099 REM **Πנ***131f}00 ? "}";:? ""13110 ? "|  Ġ|"13120 ? "| 1. | f} | |*** ***||"13130 ? "|  |"13140 ? "| 2. | | |"13160 f}? "| 堦 |"13170 ? "| 3. | | |"13180 ? "| f} |"13190 ? "| 4. | | |"13200 ? "|  |"13210 ? "| 5. |f} | |"13220 ? "|  |"13230 ? "| 6. | | f}|"13250 ? "|  |"13260 ? "| 7. | | |"13270 ? "| 堨f} |"13280 ? "| 8. | | |"13290 ? "|  |"13295 ?f} ""13296 RETURN 13299 REM **ĠԠ***13300 POSITION 31,2:? R;"**"13305 POSITIf}ON 8,2:INPUT F1$13310 POSITION 8,4:INPUT F2$13320 POSITION 8,6:INPUT F3$13330 POSITION 8,8:INPUT F4$13340 POSITION 8,10:If}NPUT F5$13350 POSITION 8,12:INPUT F6$13360 POSITION 8,14:INPUT F7$13370 POSITION 8,16:INPUT F8$13380 R$=F1$:R$(16)=F2$:R$f}(31)=F3$:R$(55)=F4$:R$(71)=F5$:R$(85)=F6$:R$(93)=F7$:R$(107)=F8$13390 RETURN 13399 REM **̠Ӡ***13400 POSITION 31f},2:? R;"**"13405 POSITION 9,2:? F1$13410 POSITION 9,4:? F2$13420 POSITION 9,6:? F3$13430 POSITION 9,8:? F4$13440 POSITIOf}N 9,10:? F5$13450 POSITION 9,12:? F6$13460 POSITION 9,14:? F7$13470 POSITION 9,16:? F8$13480 RETURN :? F4$13440 POSITIOdi$$******************************$$* REAL TIME CLOCK *$$* for ATARj}I XL/XE *$$* (Disk version) *$$* by Len Golding *$$* -------------------------- *j}$$* PAGE 6 MAGAZINE - ENGLAND *$$******************************  LLPROGRAM 1: Makes an AUTORUN.SYS disk file cj}ontaining the Clock routine..@@ D:AUTORUN.SYS6-(""6@2*@j} @@<::255,255,250,6,255,6,76,32,33,76,77,33,0,30,40,34,162F%%50,169,41,142,175,33,141,166,33PJJ32,33,33,32,j}64,33,165,10,141,172,33,165,11,141,173,33,169,122,133,10ZJJ169,33,133,11,165,12,141,68,30,165,13,141,69,30,169,67,133,12,1j}69,30dFF133,13,173,48,2,141,169,33,173,49,2,141,170,33,76,70,30,32,89,30nHH169,57,141,231,2,169,34,141,232,2,162,30,160j},90,169,6,32,92,228,96xGG165,66,240,26,173,167,33,16,14,173,249,6,141,168,33,9,1,141,249,6II32,220,31,169,10,141,167,3j}3,16,19,173,167,33,48,14,208,9,173,168,33HH141,249,6,32,220,31,206,167,33,162,38,173,249,6,201,16,144,5,169,4FF141,24j}9,6,41,4,240,11,169,0,157,196,33,32,64,33,76,230,30,169,10LL157,196,33,206,174,33,16,9,206,181,33,173,166,33,141,174,33,2j}06,181,33DD16,38,32,70,33,173,249,6,41,2,240,25,32,211,32,173,247,6,208,6FF32,33,33,76,230,30,173,249,6,41,251,141,24j}9,6,76,230,30,32,47,32FF173,249,6,41,2,205,177,33,240,18,141,177,33,41,2,240,8,173,247,6GG240,3,76,142,31,76,119,31,3j}2,220,31,206,179,33,48,3,76,217,31,169HH10,141,179,33,173,248,6,240,3,76,217,31,173,31,208,162,0,201,7,144HH6,142,180j},33,76,217,31,173,249,6,41,254,141,249,6,173,31,208,201,0HH208,6,32,33,33,76,103,31,201,1,208,43,173,176,33,240,223,160,4j},140BB249,6,201,1,208,6,32,47,32,76,103,31,201,2,208,6,32,75,32,76II103,31,201,3,208,194,32,101,32,32,141,32,76,217,3j}1,201,6,208,12,142HH176,33,142,249,6,32,57,33,76,217,31,201,2,208,19,173,247,6,240,160II169,2,141,249,6,142,176,33,32j},115,33,76,217,31,201,5,208,65,172,180II33,208,60,200,140,180,33,173,249,6,9,4,141,249,6,238,176,33,173,176"EE33,201,4j},144,5,169,1,141,176,33,201,1,208,7,162,5,160,34,76,214,FF31,201,2,208,7,162,17,160,34,76,214,31,201,3,208,7,162,29,160,34j}6EE32,14,33,76,95,228,174,48,2,172,49,2,224,188,208,4,192,33,240,7@II169,0,141,171,33,240,5,169,255,141,171,33,173,249,j}6,41,1,208,37,173JJJ171,33,48,44,142,169,33,140,170,33,138,24,105,3,141,194,33,152,105,0TII141,195,33,169,188,141,48,2,j}169,33,141,49,2,76,46,32,173,169,33,141^FF48,2,173,170,33,141,49,2,96,162,0,238,241,6,173,241,6,201,10,144hGG82,142,241j},6,238,242,6,173,242,6,201,6,144,69,142,242,6,238,243,6rHH173,243,6,201,10,144,56,142,243,6,238,244,6,173,244,6,201,6,144,j}43|GG142,244,6,238,245,6,173,245,6,201,4,144,30,172,246,6,192,2,176,17GG201,10,144,19,142,245,6,238,246,6,173,246,6,20j}1,3,144,6,142,245,6EE142,246,6,169,0,141,247,6,162,5,189,241,6,9,16,157,182,33,41,15HH13,247,6,141,247,6,202,16,237,1j}73,249,6,41,8,208,36,173,182,33,141NN219,33,173,183,33,141,218,33,173,184,33,141,216,33,173,185,33,141,215,33JJ173,18j}6,33,141,213,33,173,187,33,141,212,33,96,206,241,6,16,51,169,9EE141,241,6,206,242,6,16,41,169,5,141,242,6,206,243,6,16,31j},169,9EE141,243,6,206,244,6,16,21,169,5,141,244,6,206,245,6,16,11,169,9JJ141,245,6,206,246,6,16,1,96,76,141,32,134,20j}5,132,206,160,11,177,205LL153,196,33,136,16,248,140,178,33,96,104,169,0,141,176,33,162,5,157,241GG6,202,16,250,32,64,j}33,169,4,141,249,6,32,141,32,162,236,160,33,76LL14,33,173,166,33,141,174,33,173,175,33,141,181,33,96,104,169,2,141,246j}EE6,169,3,141,245,6,169,5,141,244,6,141,242,6,169,9,141,243,6,141FF241,6,32,141,32,32,64,33,169,6,141,249,6,162,249,160,j}33,76,14,33KK173,172,33,133,10,173,173,33,133,11,173,68,30,133,12,173,69,30,133,13JJ172,96,228,174,97,228,169,6,32,92j},228,169,0,141,231,2,169,30,141,232662,108,10,0,24,255,0,0,0,0,0,0,0,50,0,0,0,20,0,50&;;16,16,16,16,16,16,112,112,66,1j}96,33,1,0,0,0,0,0,0,0,00::0,0,52,41,45,37,26,0,0,0,16,16,26,16,16,26,16,16,0,0:--0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,j}0D;;0,0,52,41,45,37,26,0,0,0,35,47,53,46,52,36,47,55,46,0NJJ51,101,116,0,51,101,99,111,110,100,115,0,51,101,116,0,45,10j}5,110,117XKK116,101,115,0,0,0,51,101,116,0,40,111,117,114,115,224,2,225,2,0,30,-1D2:CLOCKDSK.BAS1,101,116,0,45,10hl@6-+%@,a@  @9A8 +@A-@v}++0@&@+%@,$@ QTT]PP$P.E8PBF Dv}2:TURBO2@&@+%@,$@ QTT]PP$P.E8PBF Dt ssette version of the Clock routineb$6-+F:A,&@$,$AVbreserve a safe area at the top of RAM as a temporarn}y bufferU-@F")A6%- ULoad the new SAVE routine into page 6(PP104,104,133,204,104,133,20n}3,104,133,206,104,133,205,162,16,169,11,157,66,32II165,203,157,68,3,165,204,157,69,3,165,205,157,72,3,165,206,157,73,3<l}