@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 a}05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx G*}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5+}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118,}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&-}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5.}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4/}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 240}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC language TUR > TURBO BASIC OBJ|<}COM > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST > BASIC=} LISTing -Some MACHINE language programs can only be run by loading the MENU without BASIC! ------- -For s>}ome programs, XL/XE models may require a "TRANSLATOR" program (available from BELLCOM) to be loaded first! -Most ?}programs are relatively self-explanatory; however, some may have separate DOCumentation files. Some BASIC programs m@}ay contain instructions in their program listings. LIST to read. -To view DOCumentation files one page at a time,A} press [START], [Return], or the Joystick Trigger to display the highlighted DOC file. Pressing the [Esc] key cauB}ses a return to MENU. -To print out a hard-copy of any DOCumentation file, [Q]uit the MENU, boot DOS, and then fromC} DOS, use the (C)Copy command: D:Filename.DOC,P: -To use this great MENU program on your own disks, simplyD} copy the file "AUTORUN.SYS". D:Filename.DOC,P: -To use this great MENU program on your own disks, simply!abuMMONGMTCDYEAMDASGMGGSCEGESDDDETANDELALORSLLPFLASS F}@@  G} H}!"#$%&'()*+,-./$$ I}******************************$$* SUNPLOTTER *$$* for ATARI XL/XE *$$* by J} *$$* Peter Scott Welch *$$* -------------------------- *$$* PAGE 6 MAGAZINE - ENGLAND * K}$$****************************** dn<<;@`,;@,;@,9@,9@,x##Š L}ҠȠÛFF6.:A%,((2,($Sunplotter and Sunrise/Sunset Finder/(2(* O}( ENTER YEAR&(not before 1752*"!! AS)!AA,sJ'@"P:'@,*'AP:'A,)' P}A"P:'A,c67@<@,.9s( a leap year63((ENTER MONTH NAME/(first 3 letters3@6- Q}J-@@V@T47<%@,A^##6-%A:7%@<%@,,h r A|( R}(ENTER DAY NUMBER:6(not more than [A:7%@<%@,,] :))!A:7%@<%@,,A 6 S}-%;((ENTER TIME in GMT7(24 hour clock-4 digits;B:,@A ++A:7@<@,,!@ T}A  6-A:,!! )!A$A 6-P:'A,6-+&$A,'@`6-+%&@,$@ U}##ӠΠҠԠٛ6-&@v(c 6-%A`6-@WAd$G:,6-%%Ax5@ V}&!A`6-&A`06-?9xgP$G:,:6-D:'M:6$%@,,D6-G:,'E:,N +@X7@@d W}'B7t@d7Š˛b1A@'A1ӛl)AR@)ԠĠƠ X}қvU*("Plotting sunlight and darkness for-(U(  hours GMT on   ĠР 6- #A Y}"6-@&-@ 6-6-F:@,A@IIԠǠƠȠ Z} ŠΠƠŠĠԛ6-$G:,'E:,1!@6-'6-A`1 A02 6@ [}6-A`(6-2 A0%%6-6D:'M:6$%@,,%@ 6-+&,'@%6-+A`&&,'@%  \} 6-6-6-*/ 6-%A`#6-/6-@4/!A`6-&A`#6-/6-@> 6 ]}-&H *6-@&RԠР̯ӛ\(@>:%,f p"AeA z Ap ^}##ŠנҠĠŠԛ6-%@E6-%@6-F:A,&@$BBy6-AV$ _}AY@FB2w@A@-%A%A@  #A"p `}-@0"A6% $6-R:,.6-%8,86-%8,B!!6-%+ @,&+! a}@,L!!6-%+ @E,&+!A,V6-?:A6<<,`CCԠΠҠ ҠΠҠ b}ӛj!!@*"A`ty@6-((>:A%,:@wyΠӠԠŠ c}ҠԠĠŠԠś~"@A`6-+"@,"A`CAVC( d}Sunplot  hours GMT on   $$6-P:+&+&@,$,%?P,006-P:+AxP&+&@E,$@%,%?P, e}$$(UNDER CURSOR LONG O:,  (E A@ (W( LAT O:, (S A f}p (N**("local time Sunrise & set GMT( ( GMT plus ( A ( GMT minus 0(P:?P g}%O:,'@,0AW@6-$G:,'E:,(0!@&(Sun above horizon0 A`21 6@'( h}Sun below horizon1 A`<%%6-6D:'M:6$%@,,%@F6-+'@,%+'@,P 6- AZ6-+ i}'@,&+'@,d 6- An A`x Ԡ̠͠ӛ 6-%@$!@$ j}6-&@$ 6-P:,##6-P:+&P:,,$@`%?P,)!@Y6-%@)6- @( k}0( @(0( $РƠŠě881,3,2,20,2,7,1,3,1,2,5,3,1,2,4,7,5,5,12,4 l},1,4,3,62222,1,3,35,1,2,1,3,1,2,6,5,8,4,11,4,2,4,1,63,5221,3,19,1,7,1,4,2,1,1,1,3,4,5,5,9,1,12,5,1,70226,23,1,9,6 m},3,2,2,6,4,14,1,5,6,2,5,1,54,1,7,8--6,1,1,1,23,7,5,9,2,21,6,2,4,1,55,3,4,11"&&4,6,20,7,5,1,1,30,6,5,54,1,1,3,1,--17 n},2,8,14,1,4,7,7,24,2,4,1,1,3,3,52,8,26**15,2,11,21,4,7,24,2,5,1,1,1,2,53,8,3@3328,14,2,7,1,10,21,1,1,2,4,1,2,1,1,39,1,1 o}3,8,2J//31,13,1,7,1,11,19,2,1,3,1,46,1,15,6,1,6,1T))25,21,1,2,1,6,1,1,19,1,2,3,1,62,6,1^33,14,1,12,3,3,22,64,1,1h p}40,15,2,9,3,3,21,64,1,1r**41,27,1,1,25,14,2,1,1,4,3,3,1,5,1,28|--43,16,1,1,2,8,26,7,1,6,4,4,2,3,2,33,2,2))40,16 q},1,7,27,6,3,1,2,4,6,3,2,36,3,31140,5,1,16,28,5,3,1,2,2,1,3,1,4,1,4,2,30,1,36647,22,29,4,1,1,2,1,2,1,1,2,1,10,2,29,1,1 r},1,1,5,2..41,22,20,1,8,4,6,2,2,1,1,10,2,29,3,2,4,11143,3,1,17,30,2,2,4,5,1,1,3,1,7,1,30,2,2,3,2))43,21,30,1,1,6,6 s},1,2,1,1,38,2,2,1,445,17,31,9,11,38,4,248,1,1,10,2,2,31,26,1,3254,1,1,10,2,2,31,26,1,32%%55,1,1,6,7,1,2 t}7,1,1,21,1,6,1,31!!56,1,1,5,7,1,28,22,1,6,3,29%%56,1,1,5,36,23,1,6,1,1,5,23,1,1%%58,4,6,2,27,22,1,1,2,8,5,20,2,1 u}%%36,1,22,4,8,1,26,24,1,9,5,8,2,9))41,1,21,5,2,1,7,2,22,25,1,8,6,6,4,6$$67,6,4,1,26,25,2,6,8,4,5,6,6,1&!!64,4,2 v}9,26,1,4,10,3,8,5,4,10""66,3,29,14,1,14,12,3,8,5,4,2:))66,2,5,2,23,26,2,2,11,2,8,1,1,3,5,2D))66,1,3,2,1,4,20,30,11,2 w},8,1,2,1,7,1N67,11,20,28,14,1,7,1,9,3X!!69,9,20,26,14,1,9,1,6,1,2,1b""70,11,19,1,5,19,21,2,1,1,6,1l73,12,26,1 x}7,22,1,1,1,5,2v72,13,26,16,24,3,2,4,4,1&&67,13,26,10,1,4,25,2,3,4,1,2,1,1..61,1,4,13,1,2,24,10,1,4,26,2,2,3,1,2, y}3,3&&63,19,21,14,27,3,1,3,1,2,1,2,1,4""61,20,21,13,28,1,6,2,5,5,3,1##55,21,20,13,29,4,11,4,1,1,1,1""54,21,20, z}13,31,8,4,3,1,2,3,1##54,19,21,13,35,1,1,1,10,1,4,153,19,22,12,48,258,17,22,13,4,1,36,2,2,1""62,17,22,13,3 {},1,34,1,1,3,2,2++62,2,1,13,22,13,2,2,33,6,2,2,10,1,3,1##48,15,22,12,2,2,32,8,1,3,13,149,14,23,10,4,2,32,12"" |}63,13,24,5,1,4,3,2,31,15,6,1 55,13,24,10,3,2,30,1761,11,26,9,4,2,30,18 60,10,27,9,36,18*60,10,28,7,37,1 }}0,1,7460,10,28,7,37,18>60,9,30,5,38,10,1,7H60,8,31,4,40,4,4,8R60,9,31,1,42,3,6,8\60,7,86,6,10,1f ~}50,7,87,5,11,1p49,7,103,2z48,5,105,148,5,93,2,10,149,5,93,1,9,250,4,104,250,4,156,4,59,1 }96,3,157,3,3,2,152,3158,4,12,1,628,1,1,1,265ˠԛKK0,0,0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0,0,-1,1, }-1,-1,-1,0,0,0,0,1,0,-1,0,0ҠқYY104,104,104,141,0,208,104,104,168,162,0,189,24,6,153,0,138,232,200,224, }7,208,244,96Ҡś0,16,40,68,40,16,0D2:SUNPLOT.BAS04,104,168,162,0,189,24,6,153,0,138,232,200,224, M|PPVIDEKAFKDAMTLLPLOCYEBYXYYXPHSUAPLLTDDDELAZADLQRVAAZMMNP}PZFHTCLSLYXRVHLPDRRHDHMPDNWYZOUNKUCA(a>'wx@ce}AU@& @ @P @D ?ue?quRvA@AS A @1P3WAvggA }@1Avg @?)q95B@@&p@0@FyA  !@Q"A##@$ %?ffff&}@'@4A(+ A)g *@)XAA+ A, A- .@ xA/W 0? d'1A(a2Ab3Aw4@1P3W5Avgg}6A7@18`9T5e:@;@0Hwh@W)W? Av@@HwA?rqQB?hd9%C? 9VD&E@}h8F5fUF"GetAHAC"'IAuEqFJ?x9!KAC"'L@!HS%M@geN'fOvPAvggQ@fRBr8uSA AT) }UAV AW XA` ll**** SKYPLOT **** Adapted for ATARI by R.Barkley, from "Celestial Basic" by E.Burges}s. SYBEX 1982  $$* * * * V.1.4 JULY '85 * * * *ooThe equations used are approxi-mate, with results good to <5 deg}. or within the resolution of the screen.llThey are intended for use in the 20th Century; you can get results for more }remote dates, but..?????jjIf two or more objects occupy one 5x5 deg. square, only the last to be plotted will remain vis}ible.ooMost general astronomy books will have lists of eclipses, conjunc- tions, & other solar system goodies.##* *} * * * * * * * * * * * * *11;@,;@,;@,;@",<<9@ ,9@ ,9@ ,9@ },9@ ,(<<9@ ,9@ ,9@,9@,9@,2..9@ ,9@ <@ ,9@,<}/6-@16-@W)W/6-@'@F/6-@6-A`'6->'wx/6-$P-6. +V*MJSUNP)-6.Eugene,} Oregon USAZ36-A6-@'6-@&36-@Pd A**INTRO** **** MAIN CALC'N LOOP ****-6}-@#-@@ - A 68,-68,-68,-6-%@ -@@ "@}  A@ 68,-68,-68,- 68,-68,-  A !68@,-!68@,- } A!68@,-!68@,-$##6-$8<@,%8<@,"* !*6-++$?U,&P:$?U,,$}' 6@c A0u,! 6-%! A1&&6-8<@,$G:&8<@,,6 6-%; !6-&} A@! 6-%! A E336-8<@,%8<@,$G:&8<@,,J&&6-8<@,$G:&8<@} ,,O$T6-8@,&8,YO:,!* 6-%^O:,!*!6-&cGG6-M:8,$8,%8@},$8@,&@$8,$8@,$E:,,h##6-+8,%8@,%,$?Pm((6-M:++$+&8,,,'+8@,$,,,r//6-}@$+6D:'M:6$%@,,%@W,w( (6-$+8@,%&,$|(!(6-$+8@,%%,$'}!@$6-&@$' A' 6-%@$' A4 46-G:8@,%&,$@#D@%$8,}4!46-G:8@,%%,$@#D@%$8, *** COMPUTE AZ AND EL *** 6-&  +6@, 6-%@$}!@6-&@$6-$$@ 6-$ 6-E:,6-G:,6-G:,$%E:,$$E:,6-+'M:6$%}@,, 6-D:,6-+G:,&$G:,,'+$E:,,6-+'M:6$%@,,6-6D:,%@W`!6-&} 6-$ 6-$$*** POSITION SUN ***6-$+8@,%,$'!@$6-&@$' A' }6-%@$' A6-G:8@,%,$@#D@ 6-& 6@6-%@$ !@6-&}@$6-$$@ 6-$6-G:,$%E:,$$E:,!6-D:'M:6$%@,,&6-+G:,&$G:,,'+$E:,,+%%}6-6D:'M:6$%@,,%@Wc00!6-&5 6-$: 6-$?$D*** POSITION MOON ***I!!6-A}%A`$'@'2N 6- AS 6-X6-?$%AUt3] 6- Ab 6-g 6-&l6-$+G:$},,q 6-%v 6-{ 6-$'!@$6-&@$' A@' 6-%@$' AE6-Axi}&$?)T 6-& 6- A 6-6-@3$G:$,6-%@#D$G:$, 6-& 6@}6-%@$!@6-&@$!@) 6@$6-$$@ 6-$6-G:,$%E:,$$E:},6-D:'M:6$%@,,6-+G:,&$G:,,'+$E:,,%%6-6D:'M:6$%@,,%@Wc0!6-& }6-$ 6-$!@) @$ 6-6-%@&$!@$6-&@$!@6-}&@$36@*@367@<@,. A ) 6@)67@<@,.(}(!@(67@<@,.)$) 6@)67@<@,.) (!@(67@<@,.(}%$*6-+$&P:$,,$A`$4$0"6-F:AY,0AY))6-Ae$%%++&@,$}@1,@A%LL6-%P:+&@,$?%,&P:+?u,$P:+&@,'A,%@, A5++6}-&P:$?@%@0,%P:$?%,++6-&P:+?u,$P:$?,%@, 6-&Br(1980 BASE6-&BqXu}1960 "556-?W$%@G%+++%,'@$,$?W,% @$Ae!A@6-&A@$6-}&@$ AP)!6@$A. 6A@6-%A@36-%@$ Ae8!A=}6-%@$B ACALCULATEG"AYL4(>:A%,"-4AR@Qkk(} PLANUM- P:%?P,/P:%?P,/P:%?P, AT +P:$A,,$? LMTVU:(+P:$A,,$?} LST  LAT.  LONG.L-@6@U(DEG[( ` A4 SKYCOLORe3-@@ @}3-@7%@j(A&$@o t-@@ y''APApAA~( } ++(#,,(#N NE E SE S A%( } ++(#,,(#S SW W NW N A% (} ++(#++(#E SE S SW W A%++(# } ++(#++(#W NW N NE E*** PRINT PL}ANETS ***#-@@#68,-8,''8, @)8,!@A%"@68,-8,% Au-}"@#68,-8,&A- Au-"@#68,-8,&@- Au11"@*8,!Ap*8, A`}Ae11"@*8,!*8, @Ap!68,-8,&Ap! Au68,-8,%@''8, })8,!AA 6-8,6-8,&&6-@!&P:+$?!,%?P, 6-P:+$?!,%?P, -}(7<, -@6@"(KK( ?$P:+%?,$@,  =Quit#"}@A0(&"@(>:AS,& A0- A2ESOUNDS2$6-F:Ad,$AdAU7A1 }* CYCLING<.@.@@K:AA1F$)@$"AUAK!!"@C)}"@EA1P!!!@h* @ApU APZ%"@i6-@% A_%"@6-@}% Ad%"@6-@% Ai%"@x6-@% An As-@A }x06-6-%+0@}##@@K:,( ( (,( Another Horizon? Y/}N $)@$@AeJ( (*( Š נ Ӡ Π-(J( CHOOSE A LETTERm( (2(}$(YOU CAN CHANGE HORIZONS USING THESEZ(# LETTERS WHILE VIEWING THE DISPLAY)](m( 2)@"@i}(6-@2 A`%"@6-@% A`%"@6-@% A`%"@x6-@%} A`"@'A"@ B" A,( (,( Same Date, New Time? Y/N$)@}$@A(( Last LMT: - A)( Enter new LMT: -"( ("( ...CALCULATING...}: B@,-@P0 : A%( (%( Another Date? Y/N$)@$@}A@ A#E'( ('( Another Place? Y/N $)@$@A%@ A"}P+( (+( Cycle Time or Lat.? Y/N$)@$@AuV(>:A%,"-@@2( - C}YCLES - D-@@VAR@n)(!During Display, hit + or - key,(R(! Then H D M Y or L to alte}rU(n(our,ay,onth,  F(ear Or atitude(F($ The display will change +/- 1 hour//(&[Day/Month/Year or} degree of Latitude]Q*("each time. To increase or decreaseQ("the step changes use > OR < keysM($( Hit to Quit.'(M(! CommandS take effect one cyclejj(bafter you hear a (usually delayed) cycle key signal. Only on}e change is accepted per cycle."%)@@% A',( (,( List 'planet' data? Y/N ,D)@}"@D(# (S)CREEN OR (P)RINTER?-&)@"@& AP1( A2)@(}HOLD SCREEN6%(!( Another Go? Y/N %;4YACLOSE #1@(>:A%,EG( (&( Change soun}d? Y/N 3)@G@A%JK( (*( (1)Original (2)Beep (3)None-(G( Pick a Number: KO, }@)!@"(, AT AY?( ((  QUIT? Y/N+)@?@A^W( (W(I} HOKAY!.....Now, there's a great big wide sky to observe outside.c''( Go out and see for yourself!hBAR}@(5( Have Fun..... B)@m*** INTRODUCTION ***.@.@@}K:"(>:A%,"-@@%%(*****************************'('(  PLANUM +(+(} *****************************/( (/(! Shows the Planets, Sun and Moon++(# As they appear in the sky from any}KK(# Location on earth (Except near thePoles) for any date and time.F(F( The sun looks like: *  And th}e moon: )  ( ((( When waxing, full or waning.LL( Mercury is: + and the other!Planets: V M J U N} and P .,(,(! (To Move On Press Key) ++(#(To Go Back A Screen Use Key)++(" (To Restart Any Time)(AR@((()@@(>:A%, v-@@v([ Program variable}s such as time, date,and observer's location have been set for the %dd(\ spectacular con- junction of 1981, whe}n all major members of the solar system were*n( in the sky at once. (n(H After you have seen this display, }you may want to enter today's date/--(% to see morning and evening skies.4m(m(b Try watching the midnight sun fr}om Hammerfest, Norway (70.6 N, 23.9 E, -2 time zone) in June.9o(o(c Or the July 11, 1991 eclipse of the sun from Mau}na Kea, Hawaii (19.8 N, 155.5 W, +10 time zone)>( at 6:10 am.C3(&@@K:3)@H}"@'A M@(>:A%,R9-@@ 9(PLEASE WAIT......LOADING ARRAYSW A0\(6-}@D6-A#(6-5@a 6-6-$-@(>:A%,-AR@%-@@%( COLOR }CHECKp(.(# You will enjoy this program moreS( if you temporarily adjust the p( colors on the monitor]( } to show day :( and night sky colors properly.=(](  Perform check? Y/ND#@@K:0)}@D@A"P"@'A u(>:A%,r(/($ Note the CONTRAST and BRIGHTNESS U(! setti}ngs on your monitor, so your( can get back to normal.o(.(# Use these controls to get colorsS( which look like y}our dawn, mid-o( night and daytime sky:-@A Y( ((( FIRST... Mid-dawn.... ( 2 A4pL0@}@@Y)@@()( THEN ... Full Day.... * 3 A4@)@H(&( LAST ... Midnig}ht.... +0 A4U3(H( OK? Y/N.)@."@x)"@'A""@'A"@}+=-@@=(#Position and time zone are set for:A( ($(  Latitude: '(A(  }Longitude:  ( (  Time Zone: (( That's ('( ('( Any Changes? (Y/N) D#@}@K:0)@D"@'A!u@A#EHAR'-@@H( } j A"6($ Enter Latitude: (Deg.xx) X( [ + for N or - for S ] \b6-j6}-$L('( Enter Longitude: (Deg.xx)H( [ + for W or - for E ]Ld!@) 6@(B( INVALID }LATITUDE...TRY AGAIN!V-AZ d A"P d!A) 6A(B( INVALID LONGITUDE...TRY AGAIN!V}-AZ d A"P !!6-P:+O:,'@,%?P,  6-6 1(1( That's standard Time Zone } -OK? p(p(d If you are on Daylight Saving time or in a non-standard time zone then use standard times }( in entries. +(+( Enter Location Name: (optional) 4 ( 446. $ ,(( O}K ? (Y/N),4NA"P) %@ B%(>:A%,. FAR@'-@@F( Date & time }are set for:3 >( (  Year.... : #(>(  Month.... : 8 !(!(  Day...... : = ( ( } Time (LMT):B %(%( Any Changes? (Y/N) G e-@@ (?("  Please use hours and hundreths:e(! 11.5} for 11:30 or 1.25 for 1:15L D#@@K:0)@D"@IA#Q "@'A"PV }@A$P[ @ A$` '-@'ARe . A$.( }j ( Enter Year: o (( Enter Month:  t (( Enter Day :  y (( Enter Time: }~ L(( OK? Y/N ?@@K:L)@ "@xA#E %@ B%(}>:A%, -(>:A%,@-AR@ 9-@@6( Select a horizon (Initial)9( &(&( } AST 0 TO 180  &(&( EST 180 TO 360  &(&( OUTH 90 TO 270  &(&( ORT}H 270 TO 90  a( ( ( LETTER?@@@K:M)@a"@'A#E %"@i}6-@% A% %"@6-@% A% %"@6-@% A% %"@x6-@}% A% A$P (-@@%@$(( --> +-@@+(CHOICE OK? (Y/N) $)@$}"@xA$P @(>:A%, '-@@'AR@ 2,($ Excuse me while I calculate......}./(2( Q(+( Please wait 20 sec.for display.(Q( Or 10 sec. w/Newell FASTCHIP ,( ( (,( *=* *=* *=* }*=* *=* -@@  6-( A **** PLANETARY DATA **** #A0% -@@ } &-@@ "&68<,-    OO0.071425,3.8494,0.388301,1.34041,0.3871,0.07974,2.73514,0.122173,0.}836013 OO0.027962,3.02812,0.013195,2.28638,0.7233,0.00506,3.85017,0.059341,1.33168 AA0.017202,1.74022,0.032044,1.78547,}1.0,0.017,3.33926,0.0,0.0 PP0.009146,4.51234,0.175301,5.85209,1.5237,0.141704,1.04656,0.03142,0.858702 NN0.001451,4.533}64,0.090478,0.23911,5.2028,0.24934,1.76188,0.01972,1.74533 PP0.000584,4.89884,0.105558,1.61094,9.5385,0.534156,3.1257,0.04}3633,1.977458 OO0.000205,2.46615,0.088593,2.96706,19.182,0.901554,4.49084,0.01396,1.28805 OO0.000104,3.78556,0.016965,0}.773181,30.06,0.27054,2.33498,0.031416,2.29162 KK0.000069,3.16948,0.471239,3.91303,39.44,9.86,5.23144,0.300197,1.91812 }$ * 6B0 6-+%B(1 ,* A0u * 6Ac 6-+%AbR,* A0 * 6A0 6-+%A(1 ,* A0} $ *** CYCLE DISPLAY *** (6-@"@E(6-6@! A3& ")@6-"6-@+} A3, :-@@#:( OK...CYCLING..PATIENCE,PLEASE!0 #!@* @V# A35 '"@U6- }$@' A1P: 3"@T6-'@) @3 A@? ""@6-O:," A1PD ("@6-6 }@$( A1PI "@ AN -"@r6-%#6. HOUR- A1uS ,"@h6-%"6. DAY,  }A1X ."@w6-%$6. MONTH. A1] ,"@6-%"6.YEAR, A1b 8"@v6-%!6- }%$16. DEG.LAT.86.d U!@) 6@,-@%@#=( LAT.TOO HIGHK(>:AS,U Af "@v }A1g 5!@$6-&@$+6-%@5 A1ui 56-@$%+6-&@5 A1wl 5!}@06-&@0+6-%@5 A1n 5 @6-@0%+6-&@5 A1q 5!@6-&@}+6-%@5 A1r 5 @6-@%+6-&@5 A1v &6-?$P:$A,& A{ &6-}?$P:$A,& A ""***PRINT PLANET POSITIONS*** ?(>:A%,((?($'PLANET' AZIMUTH ELEVATION (Deg}.) #-@@#68,-8,  6-8,6-8, 6-+P:$A,,$? 6-?$+P:$A,, !(}!( 7<,    $ *** CHIMES *** FOR HZ ''A3%A2A2UA3` -@}6? -6@$@$ A"2@@O:,A2@@@O:,    7}-@327  $ *** 'MUSIC' *** FOR HZ -@@"@ }-@@ -@@6@ ##2@%@&@     (%2@}($ ""*** ANTIMUSIC *** FOR HZ -A@6@P -@@ }-@6@ 2@%@     (%2@($ ""** ANTICHIM}ES *** FOR HZ -@6?% -6@$@$* A"2@@`@O:,A2A}!@O:,/   4 7-@327 9 $> *** WHEEEP! ***C -A }@6@H 2@@@M  R %%2@W $\ !!*** DAY/NIGHT SKY COL}OR ***f &0@@@&'TEXT'k 6-@%P:$? ,p  @A4Uu !@A4z ??}A4UA4`A4eA4pA4uA4A4 A0@@70@@A A4 A}0@@@70@@@A A4 A0@@@70@@@A A4} A0@@ @70@@ @A A4 A0@@@70@@@A }A4 A0@@@70@@@A A4 A0@@@70@@@ }A A4 $!!*** CYCLE BACKWARDS FIX ***3"@h6-$@$)6-@r3 A1`3"@w6-$@!}0)6-@h3 A1P3"@6-$@)6-@w3 A1"@rA1P Bs A`"}s3 PLANATARIUM P:%?P,/P:%?P,/P:%?P, AT +P:$A,,$? LMT::3+P:$A,,$#}? LST  LAT.  LONG.3 ""***PRINT PLANET POSITIONS***/3/3$'PLANET' AZIMUTH ELEVATION$} (Deg.)#-@@#68,-8, 6-8,6-8,6-+P:$A,,$?6-?$+P:$A,,%}!3!3 7<,   3 3$p Au D:SKYPLOT.REV6-?$+P:$A,,Y ************ ** ** * * * ORBITS * * '} * ** ** ************ These two short BASIC programs plot orbits of planets or com(}ets about a fixed central mass in graphics modes 6 and 8. The calculations use Newton's laws of gravity and motion, a)}nd a numerical integration method. Also included are two Atari Microsoft Basic II (MSB) versions which run about twi*}ce as fast as the two programs in regular Atari BASIC. The Microsoft BASIC cartridge is required to run them.out twiv@XYYMIDNNRGAAVVXXSCALYYSCALXMIN1XADINXMXMAYFRENNSNNNA@y@9,}P?2$QG@@@6y@W4 @R )iC @ F7 & `Dw40@?3Yr@cx-}@%AXF@ @U@A`AY@ @`!@.}"#A$#$@%@&@d##Զ㠠n##֮ӳ׮Ү/}K6-6-@'6-@36-@?6-@K6-@'6-A6-AY'6-@y0} 6-'6-' 6-6-@%6-@ '6-@`6-@'6-@ A A" 1} A@,𠠛66-$%$@ 6-M:,J 6-$2T 6-6'^ 6-$'6-$'h 6-%$2}6-%$r 6-%$6-%$ 6-$% 6-&$ , 2 A A@廠3}ج٬Ԡ A""( ̠Ӡ6-6-##(Enter X-position (.5 - 4) !4}&##(Enter Y-velocity (0 - 2) +0##(Enter Time step (.2 - .01)5:$D##ؽٽ5}N##ԠX󠠛b +@@g70@70@6}l-v , - , $""׮Ү""7}젠""""®îֹ٠̶""䠠8}""""蠨𲹹D:ORBIT6@<@@9}<=RBIT8@""蠨𲹹D:ORBIT6@<@@P XYYMIDNNRGAAVVXXSCALYYSCALXMIN1XADINXMXMAYFRENNSNNNA0AY@y;}P?3U&@@@we@pv @3$G &Gt" @ Vdd #&5HR?@4W9AUf'<}@Pc0@@@A@A AA` @`!@=}"#AYh$@%@&@d##Ը㠠n##֮ӳ׮Ү>}K6-6-@'6-@36-@?6-@K6-@'6-A06-A'6-AY?} 6-'6-' 6-6-@P6-@@'6-@`6-@'6-@ A A" @} A@,𠠛66-$%$@ 6-M:,J 6-$2T 6-6'^ 6-$'6-$'h 6-%$A}6-%$r 6-%$6-%$ 6-$% 6-&$ , 2 A A@廠B}ج٬Ԡ A""( ̠Ӡ6-6-##(Enter X-position (.5 - 4) !C}&##(Enter Y-velocity (0 - 2) +0##(Enter Time step (.2 - .01)5:$D##ؽٽD}N##ԠX󠠛b1 +@@10@@g70@@E}@70@@l-v , - , $""׮ҮF}""젠""""®îֹ٠̶""G}䠠""""蠨𲹹D:ORBIT8@=H}RBIT8@""蠨蠨𲹹D:ORBIT8@=A%d ԶIn ֮Ӵұ׮Үd N00:N11:N22:N33!J}:N44:N55XM110:XMAX159:YM79XMIDXMN2:YMIDYMN2GMN1XSCALE25:YSCALE20FREQ60:N1010:N88!K} 600  500 , 𠠠+ 1 440: 6RRXXYYG @R(RR)d JSFRFREQ: N0,SF,N10,N8q TAGMRR ^!L}AXAXR:AYAYR hVXVXAXT:VYVYAYT rXXVXT:YYVYT XPXSCALEXXMID YPYMIDYSCALEY  XP,YP!!M} N0,N0,N10,N8 ! 310! 440/! ج٬ԠV!0,0)" ̠Ӡ|c!Y0:VX0!0,0)"E!N}nter X-position (.5 - 4) |;: X!&0,0)"Enter Y-velocity (0 - 4) |;: VY!00,0)"Enter Time step (.2 - .01)|;: T!:!O}"D ؽٽ6"N ԠN"X 󠠠Z"b 6: 1o"g 4,0,12: !P}6,0,0"l XX0 XMAX N5"v XX,YMID: XX" YY0 YM N4" XMID,YY: YY" " ׮Ү!Q} # 젠.# P# ®îֹ٠̶r# !R}䠠# # 蠨𲹹®îֹ٠̶r# U%d ԸIn ֮Ӵ򠱸׮Үd N00:N11:N22:N33%T}:N44:N55XM230:XMAX319:YM159XMIDXMN2:YMIDYMN2GMN1XSCALE50:YSCALE40FREQ60:N1010:N88%U} 600  500 , 𠠠, 1 440; 6RRXXYYH @R(RR)e JSFRFREQ: N0,SF,N10,N8r TAGMRR ^%V}AXAXR:AYAYR hVXVXAXT:VYVYAYT rXXVXT:YYVYT XPXSCALEXXMID YPYMIDYSCALEY  XP,YP!%W} N0,N0,N10,N8 ! 310! 4400! ج٬ԠW!0,0)" ̠Ӡ|d!Y0:VX0!0,0)"%X}Enter X-position (.5 - 4) |;: X!&0,0)"Enter Y-velocity (0 - 4) |;: VY!00,0)"Enter Time step (.2 - .01)|;: T!:%Y}"D ؽٽ7"N ԠO"X 󠠠d"b 8: 1: 8,12,0{"g%Z} 5,12,14: 6,12,0"l XX0 XMAX N5"v XX,YMID: XX" YY0 YM N4" XMID,YY: YY" " ׮%[}# 젠:# \# ®îֹ٠̶~# %\}䠠# # 蠨𲹹®îֹ٠̶~# $a@kl,ANVVHMAXADTSSPVTYXS)^} )_}dԠ VER.6 88MAR7n36-@ 6-@y'6-@36-?Px6-?6-@ 9 +')`}0@@9@@:0@@70@@:('$( THIS PROGRAM SI)a}MULATES THE'(+(( LAUNCHING OF A PROJECTILE WITH A+(&#(VELOCITY OF 20 m/s NEAR THE&(,)(!EARTH'S SURFACE WHILE )b}VARYING THE,((ANGLE OF ELEVATION.(,)(! IT PLOTS THE PATH OF THE OBJECT,(*'(AT 0.05 s INTERVALS THEN PRIN)c}TS*()&(THE MAXIMUM HEIGHT, RANGE, AND)((TIME IN THE AIR.((""(WHAT ANGLE WOULD YOU LIKE A0)d}@!! )!@A0"' +@'0@,K0@@)e}'@9,@yK/AY@y6'0@@'@@-AR@J,@)f}y T2/('0 m 10 m 20 m 30 m 402(^"@6-@h6-$E:,6-$G:,r6-$'+)g}@$,|6-@$$G:,'6-$$G:@$,'-@  6-$6-$&$$$6-&P)q}B%DOS SYSB )AUTORUN SYSB5HELP DOCB=ESUNPLOT BASBSKYPLOT BASB&ORBITS DOCB+ORBIT6 BASB:ORBIT8 BASB IORBIT6 MSBB SORBIT8 MSBB]PROJMOT BASBwTHERMCALDOCB|THERMCALBASBTHERM1 BASBTHERM2 BASBMCQTEST DOCBMCQTEST BMCQTEST 2 BA0MCQTEST 3 BHqQUIZ 1 BAUTORUN MCQ:$%,6-P:$%,2@@!A , -@A@++2)r}@@&+$?,) )2$$6-P:$A%?P,'A$$6-P:$)s}A%?P,'A$$6-P:A$%?P,'A(Height m( Range m( Time )t}s&( new angle 0!! )!@APD APN$$ҮX$$)u}ɠb$$׮㮠l$$鬠àֹ٠̶ D:PROJMOTA@)v}@ ?㮠l$$鬠àֹ٠̶ D:PROJMOTA@(0 THERMCAL - THERM1 - THERM2 ************************** These programs are for use with the thermistor in the-x} AtariLab Starter Kit. With them, temperatures up to about 70 deg. C can be measured, although the possible error inc-y}reases with temperature. These programs are still in development - if anyone knows how to use the Atari clock to trig-z}ger the readings and display the time, please let me know. W. R. Janzen, 3827 Exton St., Port Alberni, B.C., Can-{}ada V9Y 3Y1 gs and display the time, please let me know. W. R. Janzen, 3827 Exton St., Port Alberni, B.C., Can,@RAPTPXXYYBET@ 1}} A) ̠%%ATARILAB THERMISTOR CALIBRATION$$FOR PADDLE . REV.12/9/83&&from1~} AtariLab starter set manual( +@2;@,< @ ATARILABF @ CALIBRATIONP-1}@@Z @ BETA P(0)dn** "PUT SENSOR IN ICE WATER, AND ENTERx-- %INPUT PADDLE NO. (#2 IS 1}RECOMMENDED).  A!@ A-@@ @ FOR PADDLE 1} Ap A 6-1 1 %PUT SENSOR IN ROOM TEMPERATURE WATER,  AND PRESS RETURN.   1}((INPUT HIGH TEMPERATURE/READ PADDLE   -- %ENTER THERMOMETER READING IN CELSIUS."!@A1}," TRY WARMER WATER" A`6 @0A0@" TRY COOLER WATER" A`J ApT A^ 61}-hr##COMPUTE CALIBRATION CONSTANTS| 6-K:,6-K:,/6-@'As/6-@'+As%,6-1}+&,'+&,-@@(( @P:%?P,P:%?P,%6-P:%?P,%6-P:%?P, PO= 1}PR=  A3  3 %T W O M I N U T E S P L E A S E...!-@B  $ 6--1}@A06-%Q:,'A0 &-@A0%%2AD@@: D%%21}N$X!! PUSH RESET TO END PROGRAMb OR RETURN TO RECALIBRATElv A D:TH1}ERMCALN$X!! PUSH RESET TO END PROGRAMb OR RETURN TO RECALIBRATElv A D:TH0 !<LBETPTTTBETADPNNNNRAAAPAsBw@CH1p?P @x5} @ A $$ͱ 89june28 ׮ҮThermistor TranslatorPaddle 2 to Celsius(5}AtariLab Values2< +@-@@F++(#׮ҮP++(#Connect AtariLab the5}rmistor to pinsZ$$(7 & 9 of controller jack 2 d$$ @PADDLE TEMPERATUREn'6-AA6-AP'6-As5}x/ 6-$6-?P#6-/6-@ 6-6-A-@6-%Q:, $-@ @5}$ @  6-'6-+,'+$+K:',,%,&6-P:@$%,'@6-P:@$%,'@'-@5}@' @ /-@ @/ @*  C  A0D:THERM1,'@'-@4l@A BETPTTTBETADPNNNNN1N1N10NAVNAAAPAsB#D@CH1p9}?P @ @ @ @@@@A ""Ͳ 89june28 W.R.9}JANZENThermistor TranslatorPaddle 2 to Celsius(AtariLab Values2<+@%@F%% @ P9}ADDLE TEMPERATUREP'6-AA6-AP'6-AsZ; 6-$6-?P#6-/6-@;6-@d36-9}@6-@'6-@36-An 6-x 6--6-%Q:,  6-'6-+,'+$+K:',,%9},&6-P:$%,'6-P:$%,' -  -  C  6-%!6-" -"  9}  A D:THERM2A@x  -  C  6-%!6-" -"  89 MCQ-TEST ======== MCQ-TEST is a computer aided assessment utility which can be used as a=}n informal quiz or as a formal examination tool. Create your own timed tests in the True/False format as used in many =} universities. The MCQ-TEST program will run from this disk, but it is better set up as separate autorun disk. To cr=}eate such a disk, format a new disk and write DOS to it using option (H) from the DOS menu. Copy the program files MC=}QTEST, MCQTEST.2, MCQTEST3, QUIZ.1, and AUTORUN.MCQ to the disk. Rename AUTORUN.MCQ to AUTORUN.SYS and MCQTEST to MCQ=}TEST.1, and then boot the disk in the normal way. There is a sample test quiz on the disk with the filename QUIZ.1 =}which you can load when prompted. The program features a question editor so you can create your own tests.me QUIZ.1 <qOPASP70P70P71P71$$***************************A}***$$* MCQTEST *$$* A MULTIPLE CHOICE QUIZ *$$* by David Rawlings *$$* A} (Listing 1) *$$* -------------------------- *$$* PAGE 6 MAGAZINE - ENGLAND *$$*************************A}*****  ##ǠŠӠԮ  +@--@@-(@ aG 6 (+-@A}@+(@PrSeTs2+-@@+(@mcq-test<"@A@Z?6-F:A,!6-F:A A},06-F:A,?6-F:A,dJ-@@@+-AABH:,$AUF J n3AA}A 'A3Ax%6-%@%!@A; +@A1AR@; @0A}##( by David Rawlings( 1989% D1:MCQTEST.2 D2:MCQTESTR@; @0@iVWoCCSCREENBOARDTEMPDLISHLAQUESTIONNNNNTEMSCREENSCR0LPEKSCR0HSCR1HSCR1LSCR2HSCR2LDHHHPE}HPVPVPPLMOVJIFSECHRMINSEXPYPVPAQUESTDATANSWERGARBAGEGARBAGEQUESDATSCREEMANQUESSUBQUEVLUANPLACQUEE}STTQNAMERANCOWRWRZEDLPLREVTRUEFALBASIJSECSELP1P1P2XOPXXXXWKYYYNANSE} @E}@ !E}"#$%&'()*+,-.@/0E}123456789:;<=>?@E}ABCDEFGHIJKLMNOPE}QRSTUVWXYZ[\]^_E}`ab ******************** MULTIPLE CHOICE ** PROGRAM *(* by *2E}* D.Rawlings *<* Jan-May 1986 *F*******************PU##Listing 2 - Save as MCQTEST.2Zd)E}A@ Ax) AJOYSTICK ROUTINE@ A*!@!6-%26-?:A6<,:6-%@E}$@ A*!@!6-&26-?:A6<,:6-%@$ A6-%$@!@P*E} A!6-%26-?:A6<,:6-&@$@!@P*!@!6-&26-?:A6<,:6-&@$E}!@P6-&$( A6-%(6-?:A6<,$(!@6-&(6-?:A6<,$E}WE6-P:+F:@ ,%AV$F:@,%BU6$F:@,,'@P,W@wg-@)@&6-P:'A6,E}E6-P:++'A6,&,$@`,g6-&$A6&$@`&@PRINT TIME(:: 6-@E}"! B@*F:B2y,"@ 4N* B"$,I B  B! A`+ A5 A@E}? ACI A ROUTINE FOR DISCSAVE>@ B(>@@D1:DSAVER*@E}F:@,/*@F:@,E*@F:@ ,R*@6-@A `%6-@:7<,,2*@6 E}6-@A%6-@:7<,,2*@6 @< B6-A%6-A8+<6-?:A6<,E}$$LROUTINE FOR DISCLOADV> B'@>@@D1:DSAVE`7)@)@*E})@7)@j6-@A `$)@267<,.>:,6 t6-@A$)@267<,.>E}:,6 ~@'@@'@ h B6-6-) Av/6-9 AvE6-AE}Q6-A8Wh6-?:A6<,$$$MAIN ROUTINE LOOP 2000 TO 2500F6-%?$+ @,: A%R:E},$@FGOTO 2000 T:,"@A _%2@A@@9-@@= _2@E}E#!At*!@F* A$- A77 A%ET/F ROUTINE+ AeA!+SEE}LECT BOTTOM ROW/ @ As# A%/TERMINATE: A4 B# AAP- A%:REVIEW Q/A 4E} AT B# AI- A%4EDIT7 A A# A%7GOSUB ANSWERSHEET  A%NO CHOIE}CE4 APA%95 @x B# A- A%5DSAVE>5 A B# A- A%5E}DLOADH4 A& B# AE- A%4MARKR7 AV B# A- A%7RESTART\* AE} AG# A%*NEXTf AGP A%LAST A sT/F ROUTINEt6-P:+&@F,'@`,~E} A6.TA6.Fj 4T9+F:8,%A%+$@,,,"@RW-@2@%+$@E},`(Ԡj A8j 4T9+F:8,%A%+$@,,,"AW-@2@%+$@,`( T j A8E}j 4F9+F:8,%A%+$@,,,"@8W-@6@%+$@,`(Ơj A8j 4F9+FE}:8,%A%+$@,,,"AfW-@6@%+$@,`( F j A8MARK UP ANSWERSHEET6-$E}@%fYF:8,%A%+$@,,"A*F:8,%A%+$@,,"@8f67<,.TfYF:8E},%A%+$@,,"@R*F:8,%A%+$@,,"Aff67<,.FfYF:8,%A%+$@E},,"@R*F:8,%A%+$@,,"@8f67<,. cYF:8,%A%+$@,,"A*F:8,E}%A%+$@,,"Afc A9  %%UPDATE SCOREBOARD BEFORE RETURN -@vv6-Ae%++&@E},'@,$@%+++&@,'@,&P:+&@,'@,,$@$A%@@$5$7$@%<$@%,4E}T5C:,%@R5$7$@%<$@%,4F5C:,%@8#5$7$@%<$@%,4 5C:,%E}- <$O&&SUBROUTINE TO COMPLETE LINE 3840P>!-@2@%+$@,.( T | F ;67<,. >$Q E} A **SET UP BOARD POINTERS AND INITIALIZEth;A `,;@,;@,;A,;A,;@,;E}@,;@,9@,t6-@67A<A,. V #AP!-@%"R67$@%@E}<+%@,$@,.V %%6-F:A`,%AV$F:Aa,L.68,-F:@,%AV$F:@,=6-F:@E},L6-F:@,T68@,-C:,/6-P:8@,'AV,T6-++8@,'AV,&,$AV6-@%E}@%@$,REVIEW Q/A6@56-%A%-@@ +6-5 AvE''PUT CORRECT ANSE}WER ON PM-GRAPHICSJ-@T\$7$@%<$@%,4T.#ABpB-@@F"X%$@E}%\ ^\$7$@%<$@%,4F.#ABB-@@F"X%$@%\ h m^-@@E}@+-@22( >-@4G( | S-@8Z( ^ o* -A A6@&* rx-E}@"&( PUSH BUTTON:-@@ > P-@"`( PUSH t-@@ x wDF:B2E}y,"@$6-@ 06-: AvD AB0| T:,"@ABD-@"&( E}:-AA @D g -@"+( Š?-@AC U-@"g( E} 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,E}0,0,0,7,7,4,7,7,4,4,0,0SET UP QUESTIONS&&;A,;A,;@5,e67@,. %67A,.E} 467@,.E67@,. V67A,. e67@,.''6.hhEhDBHGILV[ B%@E}5@@F6-?:C:, P-@@`( press-t-@@x 0E} F:B2y,@AC:c-@@ _67$@<$@%@,.7$A#%A<$A#%A!,E}c De6- Av%6-@/ AvA@S@e@ @U$MAE}RK ROUTINE7%@%@+6-16-76--@C:,%Ag%@@$+++'@ ,E}&P:'@ ,,$@ ,%@$P:'@ ,F:C:,%%@,%@8 7%@<%@,4 .6-%@8 AE`E}37%@<%@,47%@<%@,A6-%@c2@@@@w-@@{ E}2@37%@<%@,07%@<%@,A6-%@c2@AP@E}@w-@@{ 2@ 7-@A )%@7%E}@I 6-6- Av+6-@=-@@I(f-@@ $(CORRECT 6-@E}@E(WRONG W-@@f(BLANK *-@@*( FINAL SCORE & )-@@)(E}--------------- *26-A6-A8!26-?:A6<,4f-@"(( Š<-@E}AP@ R-@"f( >H$[CHANGE QUESTION NEXT\)6-%@"@!)6-@E}f/ 6-6- Av%6-/ Avp$zCHANGE QUESTION LAST)6-&@")6-@ E}/ 6-6- Av%6-/ Av$$EDIT ROUTINE.AUTHORISATION8BE} B0% D1:MCQTEST.3L B$DATA FOR SCOREBOARD 1VVQRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRE|E} -#14%34 0!'%|VV|pressorusearrowtonewquestion|ARRRRRRRWRRRRRRRWRRRRRRRWRRRRRRRWRRRRRRDVV|E}a |a |a |a |a ||b |b |b |b |b |VV|c |c |c |c |c ||E}d |d |d |d |d |VV|e |e |e |e |e ||a |a |a |a |a |E}VV|b |b |b |b |b ||c |c |c |c |c |VV|d |d |d |d |E}d ||e |e |e |e |e |VV|a |a |a |a |a ||b |b |b |b |E}b |VV|c |c |c |c |c ||d |d |d |d |d |VV|e |e |e |E}e |e ||a |a |a |a |a |VV|b |b |b |b |b ||c |c |c |E}c |c |VV|d |d |d |d |d ||e |e |e |e |e |pBASIC SCREENE} DRAWz3 + Ax)@3 Ap4-!(TITLE-4CHANGE TO TITLE$ -@$@E} (TIME:C-@C(( A-@ A('|D-SAVE|D-LOAD|MAE}RK|RESTART||NEXT|LAST|C-@!C(( B-@"B('|TERMINATEE}|REVIEW Q/A|EDIT|ANSWERSHEET|B-@#B('"Aa7-E}@ 7(|||||0-@"0(||||ffNOTE LINES 6085 AND 60E}90 ARE THE SAME AS 6040 AND 6060 WITH (INVERSE SPCAE) TO REPLACE WORDING$XDRAW FRAME]9@'-E}@9AR@b11((l11((|QUESTION |F}v11((| |11((| |11((F}11((|a) | T | F |11((| 1F}1((|b) | T | F |11((| 11((|c) F} | T | F |11((| 11((|d) | T | F |11((|F} 11((|e) | T | F |11((| F} 11((| | |11(( $TEF}RMINATEG BA+5+G@@QUESTION PLOTTER ROUTINEZF}@@'@@83"E-@@P( Z Av  -@@ ( >-@F}@>(7$A#%@<$A#%A,d@@'@@09-@@d(7$A#F }%A<$A#%A,c@@6'-@@Q(7$A#%A<$A#%A,c@@9F }NOW FILL IN BOXES9@@9)-@96-$@%B"+-@2@%$@F }8( T | F B Aw97<,4T,-@2@%$@9(Ԡ| F 97<,4F,-@2@%$F }@9( T |Ơ 97<,4 ,-@2@%$@9( T | F  wDISABLE BREAKx*@@d'F }B7t@d*$?$@PMGRAPHICS SETUP 4J46-F:A,&@&BBy46-$AVTAY@bcF}6-B2H6-B2Id'A@'A@&h7 #A)-A6A6%@@-"37 r7 #F}A)-AA%@@-"37 wB2w@xA#@|36-A6-A '6-AF}636-Aa6-%AV"6-P:'AV,I6-++'AV,&P:'AV,,$AVUAaA#AF}#A%@ %6-?:A6<,%6-?:A<,$"DATA FOR PM MOVEMENT"\\104,104,104F},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,240F},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,F}224,9,208,245,96,255,129,129,129,129,129,129,255,0,0<#* 41 BYTES#ANSWERSHEET ROUTINE#7%@%@F}%6-+6-76-@#06-@`%@2$+P:+&@,'@,,{6-@)%@@$+++&@,'@,&P:+&@F},'@,,$@6-?:A6<,T$:6-%?$+ @,: A%R:,$@%EE6-P:+&@),'F}@@,%@%P:+&@Q,'@2,$@% T:,"@A%N6-6-6-,6-?:A6<,2F}@%@N%@!%/ 6- Av%6-/ Av&%$%RESTART ROUTINE%%F}%+%%%NO RETURN NEEDED%' INTRODUCTION AND FILE LOAD''g;@ ,+$ AxF}6AHAR@Z-@@g($'N-@@6(TO COMPUTER AIDED ASSESSMENTJF}-@AN B'U-@<("Please enter name of question fileU(e.g. D1:FILENAME.EXTG'**("(or type EDIF}T for question editor)L'V'4EDIT% D1:MCQTEST.3'$*OPTION ACCESS*" 4N B'" A%+$F}...SET PASSWORD FOR LIMITED FUNCTION ACCESS.&&;@,;@,;@,.>$(ACCESS ALL FUNCTIONS? (Y/N) (F}>0Y*0NB .4YB @.D#@@K:&(D(Set password - 3 letters .A-@F}@$)@267<,.>:,6 A@.( (6-@/$/UNDO PASSWORD/_%2@A@F }@9-@@= _2@/#-@%#( Ŀ/a#@@F!}K:7-@@D)@R67<,.>:,V a@/' 46.Y6-' A`5/'-@%F"}$( '$0TRAP ROUTINE0@6- Av+-@@@(DISC INPUT ERROR0+-@@ F#}+(CHECK - DRIVE OK?0'-@@'( FILE ON DISC?0'-@@'( CORRECT FILE?0%-@@F$}%( PRESS 1 F:B2y,@B%P1&+# Ax&%11F 6-6- Av1-F%}@@F(DISC INPUT ERROR1'-@@ '( DISCSAVE FILE1%-@@%( NOT ON DISC1'-@F&}@'( OR DISC FAULT1+-@A !6-+ Ae2G 6-6- Av1-@@G(DIF'}SC OUTPUT ERROR 2'-@@ '( DISCSAVE FILE2)-@@)(PROTECTED DISC?2$-@@$( DISCF(} FULL?(2(-@@((OR DISC FAULT?22+-@A !6-+ AP2 6-6- Av2*F)}-@@*(DISC INPUT ERROR2)-@@ )(QUESTION EDITOR2%-@@%( NOT ON DISC2'-@F*}@'( OR DISC FAULT2+-@A !6-+ Av356-A6-A8!26-?:A6<,5$F+}6ROUTINE FOR TIME UP676- Av+-@@7(Š6-@@92@A@F,}@M-@@0Q s2@-@@P  6+-@@+(NF-}OW CHOOSE OPTION6h6-A6-A8!26-?:A6<,D@V@h@ 6F.}$ N%2@A @@7-@%I( Ӡ]-@@0a s-@%( F/} *N%%2@4N$ D1:LISTING.2]-@@0a s-@%( DKhiP d FILENNAMEMANQUESTDATQUESTRASCNVVTOCONXRPKISTSTLAJUMPWBQUESDATJXXXXXXJ1} J2}@J3} !"# ******************** QUESTION SETTER *(* AND EDITOR *2* bJ4}y *<* D. Rawlings *F* April 1986 *P*******************Z_##Listing 3 - Save as MCQTESJ5}T.3adq + Aq;A,;@,;@ ,;@5,;@,9@,;A,;A,J6}467@,. %67A,. 467@,.67A<A,.F$(ENTER: - NEW QUESTION SETF( J7} ADD/ALTER OLD SET0A*0NA@ 4A AQUESTION LOOPQ A6($ EnterJ8} question (1-20) to write/editQ(or enter 0 to continue$ A 6-P:,$ B!! )!@ AJ9}"A+ + A! Ap+ Av A0 A AXNAME FILEb +J:} Afg#(Enter S - Save file to discB( C - continue editingg( P - Output file to printerg(((J;} R - Return to main programh))0S*0R*0C*0PAi4CAj4RA k4PJ<}Al/-@@/(Present title header-v+-@@+(7A<A,@(.(#Do you want to wrJ=}ite/change header?@( Enter Y or N0Y*0NA@4NAL"(Enter name- (max 20 chars)&?J>}-B:,%@@ L67<,. 67A<A,.>(>( TIME SET-@:7A,,hrs,@:7A,,minsJ?}M(.(#Do you want to set/alter TIME LIMIT9(Y or N=M4NA ,&(Enter time in hrs,mins eg 1,30,76J@}7A<A,.>:,767A<A,.>:,COMMIT TO STORAGE DEVICE&"(ENTER FILENAME FOR STORAGE&JA}h A!P@5@@S @7@<A,^@h B R A!((5(JB}Return to main program (Y/N)9A4YR% D1:MCQTEST.2% 0(0(%ENTER NAME OF FILE eg D1:FILENAME.EXT*4''JC}6.hhEhDBHGILV>[ A P@5@@F6-?:C:,!*JK} @%6-@(26-6@>6-@V3"@6-@('6-@V36-@ +f A'(JL}Now enter text-RETURN*(:( QUESTION E(PART Q"\ headerf A "@ A AJM}(>:%@d,a B:,!8( LINE TOO LONG by B:,& characters-;(Q(Try shortening itT(W(a A  BJN}:,  A A0TRY AND FIT IN GAPS%7<,4 )7<,4-% A SEARCH DOWN FOR GAPZ-@JO}6@27<,0 *7<,0-6 9(P(NO GAPS-TRY AGAIN!Z A 67%@,.7%@, ^-&@JP}6@-C:,%@21 E67%,.7,^C:,%&@@2` B:,!(8($Adjusting to fit grid lengthJQ}ens line`(#beyond limit. Shorten or insert '-'> B:,!4( at or around the  th character> A #(NOWJR} LOOK AT SECOND GAP2+"6@)B:, ! A+ A0<%7<,4 )7<,4-% A FSEARCH DOWN FOR GAPJS}PX-6@,7<,0 *7<,0-0 N(NO GAPS IN 2ND PART-RETRYX A Z6.7%@,dL-&@JT}6@-C:,%@21 B67%@,.L An^ B:,!6(% Adjusting to fit grid lengthens line^(#beyond lJU}imit. Shorten or insert '-'x> B:,!4( at or around the  th character> A NOW INSERT INTO QUESTDATJV}$67%@,. :":67$A#%@<$A#%A,.t!* @t67$A#%AJW}%+&@,$@V<$A#%A%+&@,$@V%@U,.:"@:67$A#%A'<$A#%AJX},.  Ap Av-@@ $;ROUTINE FOR ANSWERS@((( INPUT ANSWERJY}S IN FORM OF 'TFTFT'JT)B:,@(ERROR() A^Z-@%6-F:C:,%,;@p*@JZ}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((| Ja} |11((11((|a) | T | F |11((|Jb} 11((|b) | T | F |11((| Jc} 11((|c) | T | F |11((| 11((|d) Jd} | T | F |11((| 11((|e) | Je}T | F |11((| 11((| | |11((Jf} $QUESTION PLOTTER ROUTINEZ@@'@@83"E-@Jg}@P( Z Av  -@@ ( >-@@>(7$A#%@<$A#%A,Jh}d@@'@@09-@@d(7$A#%A<$A#%A,c@@6'-Ji}@@Q(7$A#%A<$A#%A,c@@9o-@@3( - -Jj}E-@ @o(7$A#%A<$A#%A!,?$T'#PRINTER OUTPUT(# BTRAP 92002#P37Jk}A<A,3P3TIME-@:7A,,hrs, @:7A,,mins<#-@@ 3F#3 QUESTION - P#,,3Jl}7$A#%@<$A#%@&,U#,,37$A#%@'<$A#%@d,W#,,37$A#%@e<$A#%AJm},Z#-@_#ZZ3>:@e%,) 7$A#%A%@V$<$A#%A%@V$%@',d#ss37$Jn}A#%A1%@V$<$A#%AX%@V$, - 7$A#%A%<$A#%A%,n# x#,,37$A#Jo}%A<$A#%A,#3  A#PRINTER ERROR#>(>:A%,(&( PRINTER ERROR:-@AJp}> T$ B A D1:LISTING.3#PRINTER ERROR#>(>:A%,(&( PRINTER ERROR:-@AH2 Nr} Ns} Nt} The following cities are European Capitols Nu} London Paris Nv} Frankfurt Brussels VNw}ienna TTFTT The following can be fouNx}nd on the Muppet Show Kermit Ny} Daffy Duck Scooter Animal Nz} Foghorn Leghorn N{} TFTTF Recognised computer languages BUGON|}V C Fortran N}} Pascal Double Dutch N~} FTTTF The following are square numbers N} 15 25 N} 98 122 N} 81 FTFFT These actoN}rs have played James Bond Sean Connery N} David Niven Warren Mitchel N} John Forsyth Timothy Dalton N} TTFFT These authors wrote these books N} Steinbeck - The Grapes of wrath Stevenson - Treasure Island N} Shakespeare - Little Women Fleming - The Devil Rides Out Krantz - MiN}strals Daughter TTFFT These are famous astronomers N} Russel Grant PatricN}k Moore Galileo Prof. Pat Pending N} Beethoven N} FTTFF These songs were sung by: Tie a yellow rN}ibbon - Tony Orlando Let it be - Beatles See my Baby Jive - Roxy N} Music Yellow Submarine - Monkees Stairway to Heaven - Slade N} TTFFF Did these authors write these books? N} Guest - Ordinary People Tolstoy - Anna Karanin N} Douglas - Valley of the Dolls Hayes - Midnight Express N} Wheatley - The Excorcist TTFTF The following are N} Elements in Chemistry Water N} Brass Copper N}Iron Plutonium N} FFTTT These are found inside a living cell N} Nucleus Lysosome MitochonN}drion Zylon Cytoplasm N} TTTFT These are continents N} Africa Iberia N} Asia Australia N} Arabia TFTTF TN}hese are bones in the human body Cerebellum N} Femur Gastric N} Halarious Occiput N} FTFFT These are all Scottish Towns N} Barrow in Furness North Berwick N} Fort William Portree PaN}isley FTTTT In chemistry these are gaseN}s at room temperature Helium N} Aluminium Hydrogen Flourine N} Sodium bicarbonate N} TFTTF These characters have played Dr. Who WilliN}am Hartnel Peter Cushing John Noakes N} David Niven Patrick Troughton N} TTFFT These footballers played in the 1966 England World Cup teaN}m Donald Ford Gordon Banks N} Alan Mullery Jim Clarke N} Bobby Moore FTTFT These numbeN}rs are prime numbers 17 N} 25 13 N} 100 15242 N} TFTFF The following are makes of computer N} Apricot Pear N} Apple Grapefruit Lemon N} TFTFF The following statements refer to AtariN} Computers They never break down The firN}st Atari 400/800 appeared in 1979 The first micro to have sprite (PM) graphics The CPU is a Z80 chiN}p Atari Basic is now devoid of bugs N} FTTFF TRIAL QUIZ  Atari Basic is now devoid of bugs LL 䙣ލȎ!"` !"H h`lDD R}1.TSETQCM:D"NUR䙣ލȎ!"` !"H h`lDD P