@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}} !!l}CDOS SYSB*+DUP SYSBUAUTORUN SYSB"jFARRAH B&WWEATHER BASBVBIFFDROPBASBKEYCLICKBASB SAVER } BAS 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8P} CE: vC y@y@`A# *` :105L; 0L>! * 0` * : ;` 1 *` 1 *` Disk Drive Sp,}eed:XXX RPM~~~Drive # X PRESS:C > check drive speedL > list error sectorsP > print error sectorsW > write al-}l zeroesto error sectorsM > return to main menui0k ^ 1 :ɛL 800 퍍L5 RETRY ERROR 3 TIME(S)؆莟.}R'S  `=D;EHI 1 1! @ :ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU!L; .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # O 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED007 FREE SECTORS COPYING---D1:FORT4}UNE.RUN# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}/$/CHu ξL/L DRIVE TO WRITE DOS & DUP TO?WRITING NEW DOS & DUPTYPE "Y" TO WRITE DOS/DUP:DISK 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DIA}SK 1 IS WRITE-PROTECTED !!TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `CԭC ؠȱC)CȩC`߅C ذ ٥ԍCՍC`800  `0  0`C}i7``ߍDCEHIB 10H``TRʠĩ`D` +CDCC /,D} 8 l0浥CޥC` b,`8` g+  CRC S0NCC S09CE}ե ݩԩ (۰ ٰ ؠ)`i iAC :L., :0 C :`i F}iAC`CC X*C>> ` 0>>  D, q; ,`COPY SECTORS`RLS ; , ,>  , ,G}ۢ>  ,?  , ,`= `=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A.= ` <0 0 .@L# .BJ 1  DEHIB V L1 = g <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 = ` <0,0Lf- B VJ},A#P= ` <0 0L#L ߢ) 1* 1 ~0YjC8C}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `INVALID DESTINATIL}ON:DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1H$IHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 144ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4CT} $;CC $;C $;CC 8C Z: *DCC ,=  , lɀL +}EiͩkΩ͙kCopj`j {j`Hi͝Νh`V}L*.*HARRAF:D" NURͩkΩ͙kCopj`j {j`Hi͝Νh`#$\LaINSTKTENDENCPRESSURWINPESSURǠøX}dz;@,6-@n+@%@(($(9( >(T( Y(n(Y} -@A ;+@%@(($()(;( <($(ҮZ}Π®8-@A< : +(((:(Do you want instructions (Y/N)((7@<@,4[}YA n (} ((2(What is the pressure tendency?5(8(F( 1) n(# (up >0.05 inches in past 12 hours)>\}(( 2) >(% (<0.05 inch change in past 12 hours)G((3) ǠG(& (0.05-0.2 inch drop in past 12 hou]}rs)(F((4) ǠF($ (down >0.2 inches in past 12 hours)2+((Indicate by number' @P+<&P^}:, @F''AA A0A@PF($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F @_}Barometer Rising APAAALQGApApAp Ap Ap Ap `}ApApQ AuQGApAp Ap@ApPAp Ap ApApQ AuQGApa}Ap ApAp Ap Ap Ap Ap`Q AuBarometer Steady APA!A"Ab}!4 Aqp AuQGAqpAqpAqpAqpAqpAqpAp Ap Q Au Barometer c}Falling Slowly AP A1A2A3 QGAq AqAqAqAqAqAq Aqd} Q Au QGArAqAqArArAr ApPAq Q Au QGArArAre}Ar`Aq`ApPAsAsQ Au AuBarometer Falling Rapidly APAAf}ABACQGAppAppApApAqAqAqAq Q AuhQGAq0Aq@Aq@g}AqPAq@Aq0AqAq`Q AuQGAr0Ar@Ar@ArPAqAr`Aq`ArpQ h}AuPressure Subroutine (} (((.(( What is the barometric pressure?+(.( (1) i} (# (2) #(#(3) 堳 (#(((Indicate by number$ AP`(++"@} xqTFILEFILE1SELDPAGFLG k} d..** ATARI DISK MENU SYSTEM ** VERSION 2.1n Axp-@"D ٠ΠŠ l}V-@ @ p(NEW DRIVE # |-@$@  ( * A0<-@$@ NAd m}AURh @)!@r A| A0 B$e +@-@@< @DISK # n} NOTN-@@e(@ ON SYSTEM8 A A`#6-@- Ap8@ B A o}b-@"C((͠ӠˠM BX@b A`m A-@@ p}P:?-@"m (ҠΠŠ6@ Ap" A`, B q}6 A l-@"C (ҠԠΠŠM AW A`b@l Bn  r}A@.@@R1:@-@"n((ӭ̠ӠΠŠ,@ Ap s}" A`, APW-@"C((ӭ̠ӠԠΠŠM AW A`" B t}@" A-@A $b%2@@@9-@AP= _2 u}b$b%2@U@@9-@AP= _2b$"z1 v};@,;@,;@,;@,C@U@ea6-@m6-@z6.D :*.*, + w}AR@90@S0@] Bw67@<@,.=:, AP x}@@6]1()}ŠŠƠӠŠC-@G(Y-@8](@A y}@!6-5-@@4? A`L@V Bb @v-@%(0 z}J7 @*!@ --@%7(T1!@+-@ @%&@1(^ h F:A {},A6ArM @-"( .-@A( FREE SECTORS M6-@|m!@+-@ @ |}%&@2( N-@%@%&@a( FREE SECTORS m6-@M B-@!M((ΠЩ }}ŠĩŠөӠ̩C-@"C((ةӠ>-@@ $( SE ~}LECTION >0@@ @] Ap-@$@ +( =-@$@ OAdAUY A] }S27@<@,4P*+"@)"@,=@I6-@S A7@<@,4X.V&7 }@<@,4P*"@26-@L0@V AG7@<@,4D(6-@2 A }=@G A$$7@<@,4SA17@<@,4L'@1 A: 6-A:,& }@)!&@&0 A: A_ B(}@;@@G6-S"@ }_6-@4$-@% @$ +67@<@,.7@<@,S67@<@,.7@<@ },l67@<@,..67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F })"@XY67B:,%@,.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @ }@+@e@=ARG Apr +@-@@4(@LOADINGF-@@d( }@7@<@,n A@r%a A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE }^ A`a%XPRINTER SECTION]5 A0@5@@^.@.@@ }P:_(@ SIDE (` A@b$-@@d$@g> @ /P:'@, }"'@> @ l q#@@# AvV-@"8(ҠԠΠŠB } AL BV AE'(@ %(@ 0@;@E AD2:MENU q)"@)"@AUF($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AP|Wind Direction Sub}routine (} ((()#(What is the wind direction?&()(>(1) !( 2) -(3) >( 4) }D(5) !( 6) -(7) >( 8) A(D(((Indicate by number$ AUP(&P:,}AV!!!* @ A`F($(ILLEGAL ENTRY--TRY AGAIN!8-@A< F AUp Gr}aphics Set-up Subroutinezg+@%@((3( THE FORECASTI(VALID 24 HOURS]( FROM NOW IS:b(g(}$XForecast Listb(ҠĠ$l(fair$v(ҠĠ$*('(}ҠΠ*$(FAIR AND WARMER$(ҬȠ$Q( 2(}N(ĠQ$/( ,( /$*( '(*$}.(+(ΠҬ.$(rain$( unsettled$(ΠĠ$*(}increasing wind,'(rain*$8(increasing wind,'(rain5(WARMER8$*( INCREASING'( CLOUDIN}ESS*$( no change$ ( ά$(unsettled, cloudy$ /( unsettled,,(probably c}loudy/$*(RAIN AND WARMER$4(unsettled, WARMER$>7(cloudy&( rain probable4(WARMER7$H}*('(*$R(cloudy and rain$\(CLOUDY AND WARMER$f=( unsettled,$(}:(=$p4(SUMMER:LIGHT WINDS1( 4$z1(summer:unsettled.( }1$1(RISING TEMPERATURES.(and fair1$L"F:B2y,"@" @V Au@Instruction}sJU (}0("This program forecasts the weatherU( for the 24 hour period beginningT%%(24 hours after forecast time.^}j)(!User supplies the following data:,(J( 1) Pressure TendencyM(j( 2) Present Pressureh/()( 3) Pr}esent Wind Direction,(/(ri)(!To begin, press . To re-runQ(#the program after completion, pressi(. To st}op the|5#(program at any time, press 5( ͠. Au D:WEATHER.BASǠø^"#**VDSRSDXY } }àøDzBIFFDROPBY J.D. CASTENANTIC MAGAZINE 6-6-(6-?P(6-AV46}-@<6-%Y;A,;,;@,c+@"z6-F:A,&@A& Adu@w2&}'B2x1-M@@H%$@iA@&%$@o6-u6-iU)AAY&$@B}%@$/6-U )!@ )")"@An 1%7<,3 6-s 1&7<,3 6-x# 1}&@2# A0}F:A ,AP&6-F:A2,&"@A"@AL"@}"@6*(0B7aA486-&@6-&LB7a#((*@66-%# 96-&%B7c}$%A`1"@96-&F%%F:AD,"*$6-@,6-&46-&FB7cAu = 6-%1}1&57<,3)7<,3=6-&3 6- B7aA8'6-&3B7a AEA 6-&1&}!1&&97<,3)7<,3A6-%4 6-6 B7aA8(6-&4B7a AE"@6}$"@@' A:7"@5)"Af)"Ag)!@6* A1:$#"A@ A# A@}"Ap' AP 6-&$H @2,&6-&"(0#B%$6"<,B"H/1-}6-@6)2- 1 I "!-$AP@+-%A2&@%&'E I ' A},j #AP-@"-67,.7<,:67<,.> LAA&g67@,.>:F:A@,,j$1] #AP}-@"-67<,.7,1 =AAWA@@:7@,,%] $^x AA#@) A JA}@&%P:%,$@Z-@l2$@p x6-&c|-@6? 42$@$@}HA@%L ^A@(pA#@|AphG-@6-612%@?}A%C G mT(@}&-@@(4%@8 JAVA$T APrf-@$$(}@& 2#B %$< A B6-H6-TA@`AAf $~(@}AY.%@'}>%$@#R%@!@\@5h,@p/&~BBv%k /%%/@%)/@&;/}@@A%M,@_/@@k-@{0(@icked medley museum TIME: >-%@}q(@%Ӡ١{A1oAA1,%%,%-,%9/@G/@}%QAhe%@"@o,%%^ #B A ! A 2-@6<-N2%@}^A%'o  -%@-%@#@"?AA"Q2AP%c2AQ%oB7h}sI(@P:+F:@,$$%F:@,$%F:$,,'AA6P, MINUTES[AY@bs6-?:C: hȌЭ`,, A}e +@AY%@1B7tA6-$%@$M6-@W Ag6-$%A`m6-w A}6-$%A6-_ AA%BBy3B2w%G-AAK"QU _#APUrr6.}hإХХЍХiiiivv67A,.c}̝̝̝˱ΝϱΝˍiivv67A,.ci,}iṰ*`;I;</I/ )  Ѝ )  m67A,.Lb&A}%4-@:"J67<,.>:%,N _6. hL\m6-P:C:,',p6-C:,&$"67'<',.>:,<67@<@},.>:,F#A`XAAYl-A6Ap"e  A@1BBA=6-?:C:,,Y}6-F:A`,%$F:Aa,eA&o@%AY--&@7%&; I%@Y%$A4}e6-@o#AP+I %-"!,'/-/3/9/= I@0m -%&((@ }2 A :-%U(@ press triggercA#$m A 5q2&2&/2%@$};B7hMAAP_A@8e'qA: ,%/@%/%@7/@@}I,@@[,@@m,@@/@@/@@?/@%A1-,@}@;/%@A6-G6-O6-'U6-gAA6yAY@b@2Do!6-?:C:hЭ ԍЭ}`,,3,@@A/%@K A c-A8A@$oAIW -$  %)AY5}-&$C%@G W%%@N%@%'!%@&5%@'@I%@(@UA}aAVp(@}|@@XcAY A'%,1/@C/@@O/}@U/c#B%$]O A7",#/'"1@9-C"I,O/_5 A#}@"!+@65 Ab" Ag Ac" Af Ad" Ap A}eS" Ah',@@1@@=,@GA6S,@f" @5 Ag"} @C AhL"A@-"%,) .(8@2D,@L/%jg A 6-6-}6-%6-+6-36.@67&,.I67,.S#APu]-'g AulW-@" '"1#AP}?-@C"S67<,.7<,W qB2VB2W$"67<,. 167@<@,.B67'}<',.L-%$l67@<',.7@<',67@6<@6,.67@C<@C,.9(@ SLYVES}TERS:&K-@@!l(@room >:%@,~AY@bAA $& -",/}# &$& -",/# &$4 -"-#,)/- 1 4$   6-% %% }6-%6-%"@%6-* "6-@/!@6-4( 6-6-(@}( A2-B}7aB7g! /B7`'2$FF]]]<~*΀<~h0}FF`|<8888(p8px8`(80g6 ><FF lx80h8}FFBBBBff<<~~<<<<~~<:A(%@:,,FCONVERT 1ST CHAR TO INVERSE67B:,%@,. ))Š}ŠҠԠĠƠǛ 67B:,%@,.>:A(,d ( (eȠĠԠΠ͛f&(&(LOCATE WHICH }WORD?(1-)gi6-?:C:,:@:7<,,&A(,,6-%@t"@A}x(7<%&@, A&#""Š̠͠ΠǛ'#: #A!-@@W%"367<,.>:,7} :$(#YY104,104,133,1,104,133,0,104,133,3,104,133,2,169,1,133,212,160,0,132,213,177,0,16,18-#PP198,2,208,14,165,3,208,8,}200,177,0,16,251,132,1,96,198,3,230,212,208,2,2302#%%213,230,0,208,224,230,1,208,220 D:SAVER.BASj  K&ABǠøǸ } +!}AR@90@Q(FUNCTION KEY DRIVERk(BY STEPHEN PROKOPCHUK}ARO+F:A !},%F:A!,$AV"AL(FUNCTION ALREADY IMPLEMENTEDO--A6Ay"#6-%)- $Bp&! }!( ERROR IN DATA$W(/($ THIS PROGRAM WILL DEFINE CTRL 4 - 0W(#AND SHIFT+CTRL 4-0 AS PHRASES WHICH#++(#YOU MAY E! }NTER. THESE PHRASES CAN BE(E,($CALLED AT ANY TIME BY SIMPLY PUSHINGE(THE APPROPRIATE KEY.2;@,;@,<! }-@@Fb('(FUNCTION KEY # - CTRL 3 @b(>:@H%$+@,%@$+@,,Kc! }!@c(+ SHIFT >:@H%+&@,$+&@@,%@$+&@@,,P&"&(DEFAULT SETTING IS [! }]Z( YOUR PHRASEd4B:,!@*(PHRASE IS TOO LONG.4 @n 46.xH-@B:,DA!}%+&@,$@%&@@:7,,H 73A%+&@,$@%&@7 ((PROCESS IS COMP!}LETE.6-?:A6,104,173,8,2,141,82,6,1739,2,141,83,6,169,50,1418,2,169,6,141,9,2,17333,3,13!}3,207,173,34,3,133 !!208,160,6,177,207,141,123,6(##200,177,207,141,124,6,238,12306,96,165,66,208,27,160,08 185!},137,6,205,9,210,240,25@9,64,205,9,210,240,13,200H!!192,7,208,236,169,0,141,241P2,76,190,255,152,24,105,7X""1!}68,173,241,2,208,243,152,10`""10,10,24,105,144,133,203,169h 6,133,204,160,0,177,203,56p""233,32,133,93,177,203,240,!}10x$$132,206,32,164,246,164,206,200 16,242,169,1,141,241,2,104$$64,152,157,155,179,181,176,178YYLOAD ",SAVE "!},LIST ,RUN ,POKE ,PEEK(,DATA ,PLOT ,DR. ,LOC. ,POS. ,COLOR ,SE. ,GR. ,D2:BASICKEY.BASǠøǸ } + ^0 ;ǠøǸ10 ;***********************20 ;* FUNCTION KEY DRIVER *30 ;*By Stephen Prokopchuk*40 ;*Written for THE%} ATARI*50 ;* MACRO ASSEMBLER *60 ;***********************70 *= $060080 ;90 ;SYSTEM EQUATES0100 ;0110 CIO = %} $E4560120 ICCOM = $03420130 ICBADR = $03440140 ICBLEN = $03480150 ICAUX1 = $034A0160 ICAUX2 = $034B0170 VKEYDB = $020%}80180 KEYDEL = $02F10190 KBCODE = $D2090200 OLDADR = $5E0210 OLDCHR = $5D0220 COLCRS = $550230 ROWCRS = $540240 CRITIC%} = $420250 EHADS = 8010260 ;0270 ;CIO HANDLER VALUES0280 ;0290 COPN = 30300 CCLOSE = 120310 CPBINR = 110320 CGTXTR =%} 50330 ;0340 ;PROGRAM EQUATES0350 ;0360 KEYADR = 2030370 LENGTH = 2050380 YSAVE = 2060390 EPADR = 2070400 ;0410 ;THE%} PROGRAM0420 ;0430 PROGRAM0440 PLA ;GET #PARAMETERS0450 ENTRY ; TO SATISFY BASIC0460 LDA VKEYDB %} ;SAVE ORIGINAL0470 STA EXIT 1 ;INTERRUPT VECTOR0480 LDA VKEYDB+10490 STA EXIT+20500 LDA # CHECK ;POINT TO OUR0530 STA VKEYDB+1 ;ROUTINE0540 %}LDA EHADS0550 STA EPADR ;FIND EDITOR0560 LDA EHADS+1 ;HANDLER TABLE0570 STA EPADR+10580 LDY #6 ;FI%}ND EDITOR "PUT"0590 LDA (EPADR),Y ;ROUTINE + MODIFY0600 STA JPRINT+1 ;PROGRAM TO JSR0610 INY ;TO THIS % }ROUTINE0620 LDA (EPADR),Y0630 STA JPRINT+20640 INC JPRINT+10650 RTS ;RETURN0660 CHECK0670 L%!}DA CRITIC ;IS THIS TIME0680 BNE EXIT ;CRITICAL I/O?0690 LDY #00700 MLOOP0710 LDA KEY,Y ;CHECK IF KEY07%"}20 CMP KBCODE ;PRESSED MATCHES0730 BEQ PRCH2 ;OUR TABLE OF0740 ORA #$40 ;FUNCTION KEYS0750 CMP KBCOD%#}E ;SHIFT+CTRL?0760 BEQ PRCH10770 INY 0780 CPY #70790 BNE MLOOP0800 LDA #0 ;NO MATCH FOUND0810%$} STA KEYDEL ;CLEAR DEBOUNCE0820 EXIT ; CONTINUE WITH0830 JMP $FFBE ;INTERRUPT0840 PRCH10850 TYA %%}0860 CLC 0870 ADC #70880 TAY 0890 PRCH20900 LDA KEYDEL ;IS THIS "BOUNCE"0910 BNE EXIT ;YES - EXI%&}T0920 TYA ;FIND ADDRESS OF0930 ASL A ;PHRASE TO PRINT0940 ASL A ;ON SCREEN.0950 ASL A%'}0960 CLC 0970 ADC #$900980 STA KEYADR0990 LDA #61000 STA KEYADR+11010 LDY #01020 LDA (KEYA%(}DR),Y ;SAVE FIRST LETTER1030 SEC ;OF PHRASE AS1040 SBC #32 ;UNDER THE CURSOR1050 STA OLDCHR ;TO S%)}TOP ERASURE1060 PRLOOP1070 LDA (KEYADR),Y ;GET A LETTER1080 BEQ ADJPOS ;END OF PHRASE?1090 STY YSAVE ;SAVE%*} Y REG1100 JPRINT1110 JSR $F6A4 ;PRINT CHARACTER1120 LDY YSAVE ;RELOAD Y REG1130 INY 1140 BPL PRLOOP%+} ;DO AGAIN1150 ADJPOS1160 LDA #1 ;SET DEBOUNCE1170 STA KEYDEL1180 PLA 1190 RTI ;AND RETURN%,}1200 ;1210 ;TABLE OF FUNCTION KEY CODES1220 ;1230 KEY .BYTE 152,157,155,179,181,176,1781240 ;1250 ;TABLE OF FUNCTION KE%-}Y PHRASES1260 ;1270 *= $06901280 .BYTE "LOAD ",34,01290 *= $06981300 .BYTE "SAVE ",34,01310 *= $%.}06A01320 .BYTE "LIST ",01330 *= $06A81340 .BYTE "RUN ",01350 *= $06B01360 .BYTE "POKE ",01370 %/} *= $06B81380 .BYTE "PEEK(",01390 *= $06C01400 .BYTE "DATA ",01410 *= $06C81420 .BYTE "PLOT ",01%0}430 *= $06D01440 .BYTE "DR. ",01450 *= $06D81460 .BYTE "LOC. ",01470 *= $06E01480 .BYTE "POS.%1} ",01490 *= $06E81500 .BYTE "COLOR ",01510 *= $06F01520 .BYTE "SE. ",01530 *= $06F81540 .BYT%2}E "GR. ",01550 .END **********************20 ;* FUNCTION KEY DRIVER *30 ;*By Stephen Prokopchuk*40 ;*Written for THE$0 ;WINDOWS2.ASM àøǶ01 ; ..TEST INTO GRAPHICS SCREENS..02 ; BIT to BIT PAIR Expansion sith03 ; conversion for )4}4 color Graphics04 ; with string input capability.05 ; vs.2 by Dave Culbertson06 ; (C) Jun 11,1984 CE Softwart07 ;0)5}8 ;EQUATES09 DAT = $CB ;ADR OF RESULT STRING.10 SW = $CD ; FLAG FOR 2 NIBBLES.11 TMP = $CE ;HOLDS)6} WORKING BYTE.12 COL = $CF ;COLOR MODIFIER REG.13 COL1 = $D0 ;COPY OF COLOR MODIFIER.14 YINR = $D1 ;)7}Y POINTER INNER LOOP.15 YOUT = $D2 ;Y POINTER OUTER LOOP.16 CHR = $D3 ;ADR OF SOURCE STRING.17 PT = $D)8}5 ;PTR INTO CS.18 INV = $D7 ;INVERSE FLAG.19 NUM = $D8 ;LEN OF STRING.20 NUM1 = $D9 ;COPY OF LE)9}N*221 TEA = $DA ;TEMP AREA.22 PTR = $DB ;PTR TO WORK AREA ($400).23 CS = 756 ;PAGE PNTR OF CHAR S):}ET.24 ;25 *= $4000 ;IGNORE (RELOCATABLE)26 ; GET THE VARIABLES27 ;28 PLA 29 PLA 30 );}STA DAT+131 PLA 32 STA DAT33 PLA 34 STA CHR+135 PLA 36 STA CHR37 PLA 38 )<} PLA 39 STA NUM ;GET NUMBER OF CHRS40 ASL A41 STA NUM1 ;NUM1=NUM*242 PLA 43 PLA )=}44 AND #3 ;ONLY BITS 1&2 OK.45 CLC 46 ROR A47 ROR A48 ROR A49 AND #192 ;ONLY)>} PASS BITS 7&850 STA COL ;STORE COLOR CODE.51 STA COL1 ;AND A COPY.52 LDA #0 ;POINT TO PAGE )?}4.53 STA PTR54 LDA #455 STA PTR+156 ; CONVERT FROM CHARACTER TO57 ; ADR OF PLACE IN CHARACTER SET58 B)@}E LDA #0 ;CLEAR WORK AREA.59 TAY 60 BF STA (PTR),Y61 INY 62 CPY #1663 BNE BF64 )A} LDA #25565 STA INV ;NORMAL MODE.66 LDY #0 ;Y=067 LDA (CHR),Y ;GET THE CHARACTER68 CMP #)B}128 ;IS A <127?69 BCC T ;YES GOTO T70 STY INV ;SET INVERSE.71 EOR #12872 ;73 T CMP #9)C}6 ;IS IT LOWERCASE?74 BCC U ;NO,GOTO U.75 LDY #3 ;SET OFFSET.76 BCS Q ;GOTO Q.77 ;)D}78 U CMP #64 ;IS IT UPPERCASE?79 BCC V ;NO,GOTO V.80 LDY #1 ;SET PAGE 1.81 BCS Q )E} ;GOTO Q.82 ;83 V CMP #32 ;IS IT A SYMBOL?84 BCC W ;NO,GOTO W.85 BCS Q ;YES,GOTO Q.86 )F}; 1st ISLAND TO BEGINNING.87 IS CLC 88 BCC BE ;GOTO BEGINNING.89 ;90 W LDY #2 ;A GRAPHICS CHR!91 )G};92 Q AND #31 ;NOW ACC <32!93 ASL A ;MULTIPLY BY 8!94 ASL A95 ASL A96 STA PT )H};INDEX INTO PAGE.97 CLC ;MOVE PAGE OFFSET.98 TYA 99 ADC CS ;ADD C.S. TO OFFSET.0100 ST)I}A PT+1 ;STORE IT.0101 ; MAIN ROUTINE0102 LDY #00103 STY YINR0104 STY YOUT0105 S LDX #00106 STX SW)J}0107 LDY YOUT0108 LDA (PT),Y0109 STA TMP0110 B LDY YINR0111 LDA TMP0112 BMI C0113 ;0114 LDA )K}(PTR),Y0115 ORA COL0116 STA (PTR),Y0117 C CLC 0118 ROR COL0119 CLC 0120 ROR COL0121 ASL TMP)L}0122 INX 0123 CPX #40124 BNE B0125 ;0126 LDA INV ;CHECK FOR INVERSE?0127 BEQ D0128 SEC )M} ;INVERT BITS0129 SBC (PTR),Y0130 STA (PTR),Y0131 D LDA COL1 ;ADJUST FOR NEXT0132 STA COL0133 IN)N}C YINR0134 INC SW0135 LDA SW0136 CMP #20137 BNE B0138 ;0139 INC YOUT0140 LDY YOUT0141 CPY)O} #80142 BNE S0143 BEQ K ;HOP OVER ISLAND.0144 ; 2nd ISLAND TO BEGINNING0145 HOP CLC 0146 BCC IS ;)P}GOTO BEGINNING.0147 ; CONVERT DAT TO STRING FORMAT.0148 K LDA DAT ;PUSH DAT ON STACK0149 PHA 0150 LDA DAT+1)Q}0151 PHA 0152 LDY #00153 AG LDA (PTR),Y0154 STA (DAT),Y0155 INY 0156 CPY #20157 BNE AG0158 J)R} LDA (PTR),Y0159 TAX 0160 INY 0161 LDA (PTR),Y0162 PHA 0163 INY 0164 STY TEA0165 LDY NUM)S}10166 TXA 0167 STA (DAT),Y0168 PLA 0169 INY 0170 STA (DAT),Y0171 CLC 0172 LDA DAT0173 )T} ADC NUM10174 STA DAT0175 BCC G0176 INC DAT+10177 G LDY TEA0178 CPY #160179 BNE J0180 PLA )U} ;RECOVER & BUMP DAT0181 STA DAT+10182 CLC 0183 PLA 0184 ADC #20185 STA DAT0186 BCC I0187)V} INC DAT+10188 I INC CHR ;INCREMENT CHR0189 BNE H0190 INC CHR+10191 H DEC NUM0192 BNE HOP ;D)W}O NEXT CHARACTER.0193 RTS 01 ; ..TEST INTO GRAPHICS SCREENS..02 ; BIT to BIT PAIR Expansion sith03 ; conversion for ( }WMSGWORKEMILINAS -Y} àøǶWINDOWS2&&BY JERRY WHITE & DAVE CULBERTSONANTIC MAGAZINEd1 +A-Z}R@1@@n&(&( GRAPHICS WINDOWS OF TEXTx+(+( BY JERRY WHITE & DAVE CULBERTSON99;A-[},;@,;@$@,;Ac,(( CREATING W$--@A")67<,.>:,- (( CRE-\}ATING E$--@Ac")67<,.>:,- 16-@6-@@'+%@1 A`16-@6-@@-]}'+%@1 A`16-@6-@@'+%@1 A`16-@6-@ '+%@1 A`-^}16-@6-@'+%@1 A`16-@6-@'+%@1 A`7 +@@-_}"(,(BASIC4(IS7DISPLAY MSG SUBROUTINEk0@ @70@@@Q0@@ -`}k0@@@CLEAR STRINGSG6.>:,267@$@,.>:,A67@,.G6-a}."-@@,CREATE MSG$ TO DISPLAY6x6. Gr#? Š667@<@,.>:%@H,X67@<@-b},.>:%@H,x67@<@,.>:,@ CONVERT TO GRAPHICS FORMATJ((6-?:C:,A@@72; >$DATA FOR W$%%104,104,133,206,104,133,205,10-f}4141,1,6,104,141,0,6,104%%133,208,104,133,207,104,104,133209,104,141,3,6,104,141,2!!6,165,88,133,203,165,-g}89,133 204,24,165,203,109,0,6,133!!203,165,204,109,1,6,133,204##160,0,177,203,170,177,205,145%%203,138,145,2-q}B'DOS SYSBL+DUP SYSBUAUTORUN SYSB"jFARRAH B&WWEATHER BASBVBIFFDROPBASBKEYCLICKBASB SAVER BASBBASICKEYBASBBASICKEYSRCB%3WINDOWS2SRCBXWINDOWS2BASB'|MINER BASBBANNER BASB<ANDROTONLSTBTANDROTONEXEB[PGEOQUIZ BAS05,200,196,209,208##241,169,0,198,207,197,207,208!!6,197,208,240,30,198,208,24##152,101,205,133,205,144,3,230 -r} 206,24,165,203,109,2,6,133!!203,165,204,109,3,6,133,204&24,144,197,960DATA FOR E$:%%104,104,133,204,104,13-s}3,203,104D%%133,212,104,133,211,104,104,133N!!216,10,133,217,104,104,41,3X##24,106,106,106,41,192,133,207b!!133,2-t}08,169,0,133,219,169,4l##133,220,169,0,168,145,219,200v$$192,16,208,249,169,255,133,215!!160,0,177,211,201,128,144,-u}4!!132,215,73,128,201,96,144,4160,3,176,19,201,64,144,4160,1,176,11,201,32,144,5176,5,24,144,205,160,2,-v}41 31,10,10,10,133,213,24,152!!109,244,2,133,214,160,0,132##209,132,210,162,0,134,205,164%%210,177,213,133,2-w}06,164,209,165 206,48,6,177,219,5,207,145!!219,24,102,207,24,102,207,6##206,232,224,4,208,231,165,215""240,5-x},56,241,219,145,219,165%%208,133,207,230,209,230,205,165 ##205,201,2,208,208,230,210,164 210,192,8,208,190,240,3,-y}24 ##144,160,165,203,72,165,204,72*##160,0,177,219,145,203,200,1924##2,208,247,177,219,170,200,177>$$219,72,200,1-z}32,218,164,217,138H$$145,203,104,200,145,203,24,165R##203,101,217,133,203,144,2,230\$$204,164,218,192,16,208,220,104-{}f""133,204,24,104,105,2,133,203p!!144,2,230,204,230,211,208,2z 230,212,198,216,208,177,96D:WINDOWS2.BAS ,zaNN1NNNANNMAN3XN16SCORGGNXYDNDNDIDNZN3NN16N16AIGOLSCLEVEVWDIRDIRMN11}}3GAMN3SECHAROCKGAROC@@@@@@@ @ @ @1~}2 @ A3Aa@@@@ @@@@ 1}@2@5@ Ah!Ab"@#@$@%@ &@'()*1}+,-A3./@80AV1AX2@@3@4 5AC6@7@89@Q1}ǠøǷd******************n* MINER JACK *x* BY ** RANDY SCHULZE ****1}*************** A@J 2- #2+6-%7!@P=6-@'J A  %1}6-@w$ " ,@ " ,@$ 1&",& 11}", 1%",% 1&",& 1%",%$"82@1}6-%$%6-%+6-528$,< A6-& A0) A/6-<(AP6 A0@***1}* MAIN LOOP ****JA 6-6--@P32@@7 A2T 6-R:,6-6-^@21}@Th)6-+",&+"%,)6-+"%,&+"%,r - | 6-%6-% )!+%,6- )!@"1}6- 2 1" A= "6-6-%2AT/-$3 =2? "21}@'-AP+ 52? A"A  ,@,F:%,! Ap1}I&* 6-%6-%6-&+6-16-76-?6-%I A0  6-&"A@&GUARD NOT ON BO1}ARD 6-6-6-N:&,6-N:&, 6-%6-%&!$) 6-0) 1")")")"#6-)6-1}:"AD  ,N )@2,X A@b6-@6-@'6-@36-@?61}-@K6-@W6-@c6-@o6-@ {6-@6-6-6-6-6-6-lu6-Aa1}6-Ab'6-@536-A3?6-@8K6-AhQ6-W6-]6-c6-i6-u6-@2vVAF:A1},&$+%+%,;6-F:A,$AVJ6-F:A,VAV -% SPACE #Ap,-$%1}"% ,CHARACTERS^^24,60,24,126,90,60,36,102,231,165,231,24,126,165,129,255,126,195,189,191,177,189,195,126T1}T24,60,54,126,127,251,159,255,255,247,255,191,251,255,223,255,0,0,24,24,0,0,0,0==60,110,255,191,251,255,110,60,165,60,681},130,70,40,36,40 #Ap**** PLAYFIELD SETUP ******** STARS ****9 -6-H:,$+%,%6-H:,$)5,1}P:,P:,9 **** EARTH ****!-$%,/%! **** ROCKS ****  A%7 -1}6-H:,$+$,+6-H:,$+$%,1 76- ,P:,P:, ***** GAS POCKETS ****47 -6-H:,$+$,+61}-H:,$+$%,1 76->,P:,P:, H**** MOON ****R @9,%\**** GOLD ****f -p=1}6-H:,$+$,!6-H:,$+$,/1P:,P:,="Az A )!@A,P:,P:, 1}""**** MEN LEFT INDICATOR ****(A ` 6-,@,@ #A  ""6A 1}A0 , A pWW1,4,2,4,3,4,4,4,5,4,6,4,7,4,8,4,10,4,11,4,12,4,13,4,14,4,15,4,16,4,17,4,18,4,-999**1}** SCREEN CHECK ****! "6-6-6-!6-! "6-6-6-!6-! "6-6-6-!6-# 1}"6-%6-6-#6-# "6-%6-6-#6-$% "6-%6-%6-%6-.# "6-$6-1}6-#6-8# "6-6-%6-#6-B# 6-%6-6-#6-L$V #A@` ""AV21} $j# 2- # A tEE243,243,243,243,243,243,230,230,230,230,243,243,243,243,243,256~9-@#1},#/@' 9AVA$ - (@ GAME OVER -(@GOLD ' -'(@1}levels completed -(@'-@'(@ fire*-@*(@ PLAY 1}, (T:,"AF:A,%, A A I+@%@/0@@ @I0@@@1}--@@-(@ MINER JACK--@@-(@ CREATED BY1-@@1(@1}RANDY SCHULZE&-@@P&6-F:A, rAF:A,,-@@0 EAF:A,1}Y-@@] rAF:A ,5-@@ 'A + 5 A D:MINER.BASDIRMN10uoppBINCODPSXPIXMAPBANRBANNRROWMAPHCCRVAOFSESTARINPIXPOFSVPOLSHPOSPRPIXHPIVPIROWSUD5}@@@@ 5}5}àøǹBANNERTIZERBY JOHN BAUMANANTIC MAGAZINE ]]9@,;@,;@,5};@,9@d,9AU,;AU,9@,TITLE SCREEN A@( @@2GET BANNER<' +5}'0@AM' INPUT 0 FOR A HORIZONTAL BANNERI INPUT 1 FOR A VERTICAL BANNERMF#*@5}# @P @Zb +'0@^ 2ENTER CHARACTER SIZE - FROM 1 (SMALL) TO 10 (BIG).b5}d# @)!@# @n Ax\ +'0@E INPUT LINE TO BANNERTIZE.\(THE5}N PRESS RETURN.( 6-B:,A-@@'( נǺ9-@@A( -@6-@5}:7<,,ADJUST CHARACTER VALUE AiiCALCULATE OFFSET OF CHAR FROM START OF CHARACTER SET AND THEN CALCULAT5}E ACTUAL START OF CHAR IN SET6-$@6-BsD%??STORE THE BINARY VALUES FOR THE CHARACTER IN ARRAY BINCO5}D-@@68,-F:%&@, ))CREATE A PIXEL MAP OF THE CHARACTER A0PRINT OUT5} THE CHARACTER" (7<,, A 6 @ @@((CHARACTER VALUE ADJUCTMENT ROUTINE56-!A'5})6-&A(56-@3+@2* @,)6-&@23 A@)+* @2,)6-%@d5}$$PRINTING ROUTINE'6-+$@&@,'6-@ --@@bbIF THE BIT IS A 15} THEN STORE 10 ASTERISKS IN ARRAY S$, OTHERWISE STORE 10 BLANKS IN ARRAY S$(+8,%"@,6.*( A ` 6.5}  --LOOP TO STORE ASTERISKS OR BLANKS IN S$  -%@ 67,. 6-%@6-%@  *-5}@3 46-@> H$ 44ROUTINE TO CREATE A PIXEL MAP OF THE CHARACTER ]]INITIALIZE POSITION POI5}NTER FOR PIXMAP ARRAY AND SET PIXL TO VALUE OF FIRST BIT TO TEST 6-@6-A( //LOOP TO GET VALUES OF PIXELS5} HORIZONTALLY -@@ --LOOP TO GET VALUES OF PIXELS VERTICALLY -@@6@ +"@5}+6-++&@,$@%, ddTEST PIXEL: IF THE BIT IS A ONE, THEN STORE A ONE IN PIXMAP; OTHERWISE, STORE A ZERO IN 5}PIXMAP ;8,&"68,-8,&168,-@; A0` 68,- INCREMENT PIXPOS 6-%@ 5}  SET PIXL VALUE TO NEXT BIT 6-'@   ;;DETERMINE IF EACH 8 BIT ROW IN PIXMAP IS BLANK OR NOT 5}-@! 6-& 2-@@.6-%8%+$@,,2 0 0!&68%@,-@0 A5}1@: 68%@,-D  I SSDETERMINE WHERE THE CHARACTER'S FIRST AND LAST ROWS TO BE PRINTED ARE LOCATEDN 15}"6-@'6-@1 A1S *-@@&8,@* X 6-&+@,b 3 -@5}@6@/8,@3 l 6-v $] +@'0@I6-F:A`,%F:Aa,$AV]5}%@@-@@2(@THE BANNERTIZERD-@@a(@by john baumans-@5}@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@  D:BANNER.BASIROWSUD4q10 Z=0:W=1:DS=24064:OP=53279:R=53770:T1=540:T2=542:T3=544:CS=11776:AT=1140050 P=1536:A=112:GOSUB 59:GOSUB 59:GOSUB 59:A=70:G9}OSUB 59:A=Z:GOSUB 59:A=94:GOSUB 59:B=Z:C=2353 A=6:GOSUB 59:B=B+W:IF B 8~~`0 =}0```nf>ff~fff~~f<flxxlf`````~cwkcc=}fv~~nf}x6ch^Ѝ ҍ .,>}pz{ 1 1 1Fz{ 1z{ 1^z{ 1xy|}z{ 1mxxmyyy}>}  x|L0Az{ 1z{ 1z{ 1/z{z˭{̘˩0z{z˭{̘˩1z{>}xyxz˭{̘˩/z{.xyxz˭{̘L1z˭̘mm`z{.x>}yxz˭{̘˩ȍz{xyxz˭{̘˩ƍz{xyxz˭{̘˩čz{xy>}xz˭{̘˩Ǎz{Hxyxz˭{̘˩ڍz{mzzm{{xyzmxx{myyЍ|}>}|z˭{̘mzzm{{{y  zxL2M0h A>} M M K˭̡ˍz{xy{y zxLM4xy{y zxL3xy{y zxL4Lb3>} ͎L3LY3LY3z{zm{mxyy  xLY3LY3> }P͍z{Ӎxyڍ|}~mzm{˭̡ˍ> }m|m}˭̡ˍ~mm͟  ͞LF6͑  ͐L~5mzz> }m{{m||m}}{y  zxL4͍z{Ӎxyڍ|}~mzm{˭̡ˍ> }m|m}~mm˭̘mzzm{{m||m}}{y  zxL5> }͍z{ӍxyP|}mzm{|˭̘mzzm{{{y  zxLd6z{Սx>}ymxxmyyzx˭y̘˭z{xy |}|z˭{̘mzzm{{ |}>}|z˭{̘mzzm{{z˭{̘mzzm{{˭̡ˍ|}~}  ~|>}L7m||m}}|z˭{̘mzzm{{mmy  xL7 Mxyx>}yz{˭̡ˍxy|}}y  |xLJ8xmxxymyymxxmyyx˭y̡ˍ|>}}}͙ |͘L8LJ8x˭y̘mzzm{{{  zLJ8z{xy U>}xyxm|ym}˭̡ˍxy|}}y  |xLj9xmxxymy>}ymxxmyyx˭y̡ˍ|}}͙ |͘L9Lj9ʍx˭y̘mm͋ >} ͊Lj9cMz{z˭{̘ K YL Lz{mzzm{{z˭{̘ˢ˭̡ˍz>}{{  zL(A˭̘˩z{xy "Um|zm}{z{͙ ͘L(A>}z˭{̡ˍmzzm{{z˭{̡ˍmzzm{{z˭{̡ˍmzzm{{>}z˭{̡ˍzҍ{˭̡ˍxyxz˭{̘˩zҍ{xyxz˭{̘˩z{x>}y "Um|m}mm @{͏ z͎L<mmz{>}{  zL<L<8͑  ͐L< S˭̡ˍz{>}{͏ z͎LS={Ϳ z;LJHL? S˭̡ˍz>}{{͏ z͎L>{Ϳ z;LJHL?mm|}}  >}|L*> S˭̡ˍz{{͏ z͎L>{Ϳ z;LJHL?mm>}|}}  |L=L= @{͏ z͎L=8͑>}  ͐L+? S˭̡ˍz{{͏ z͎Lf?Lb>8  > }L>L> L?L?˭̘ˢ˭̘ˢ˭̘mm>!}˭̘mmz˭̘mm˭̘mm >"} L(AL(Az{͏ ͎L'Axyy xL'Axyy xL'Ax>#}yy xL'Az{`˭̡ˍz{{  zL6Fz{z˭̘˩`>$} A0h ALB˭̡ˍz{@xy U|z}{xy "U|mz}m{mzz>%}m{{mxmy|}zm||{m}}z˭{̡ˍx˭y̘mzzm{{mxx>&}myy{}  z|L6B`x $C͏ ͎LJH͏ ͎L6Fy>'} $C͏ ͎LJHL6F˭̡ˍz{xy{y zx>(}LGDxy{y zxL]D xy{y zxLsD xy{y zxLDxy{y zxLGDx>)}y{y zxL]D xy{y zxLsD xy{y zxLDL5F8LDmm>*}LDmmLD8LDzҍ{Zxyxz˭{̘˩zҍ{fxyxz˭{̘>+}mm˭̡ˍz{{͙ z͘LE{͏ z͎L5Fxy{y zxLEʍxy{y>,} zxLE{ zLEL5FmmLEL5Fmmz{{  zLE>-}mzm{z˭{̘˭˭̘`z{̍xyxmzxym{y|>.}}z˭{̡ˍ~} ~|L{Hmzzm{{{y  zxLiFmmz{zm>/}{mFz{{  zLGz{͙ ͘L6mxmymxxmyyzҍ{>0}xz˭{̘˩zҍ{xyxz˭{̘8 CM z{z˭̘8z>1}{ xy "U|m}m V  LG˭̡ˍz{{  zLHLG8>2} YL  L6LY3 V Mz{z˭{̡ˍxy |}y} x|L{H˭̡ˍz{>3}@xy U|z}{xy "U|mz}m{mzzm{{mxmy|}zm||{m}}>4}˭̡ˍz{xyy{  xzLPIxy "Uxm|zym}{\xymxxmyyzx>5}˭y̘ˢ˭̡ˍz{xy{y zxLY3΍z{mzzm{{z˭{̡ˍxyy x>6}LsJxymm YL˭̡ˍz{{  zL:2z{z˭̘˭͏ >7}͎LJ#z{z˭̘8 CM  L:LJHЍxyxmzym{xy>8}zmxx{myy|}z˭{̡ˍ~~|˭}̘mzzm{{m||m}}{y>9}  zxLoK`z{ xy U|}z{ xy "U8|}Ѝz{zm{m>:}zm{m` z{{  zLL Ѝz{mzzm{{xymxxmy>;}yzx˭y̘` K@z{mzzm{{z˭{̘˩Tz{mzzm{{z><}{̘` K֍z{mzzm{{z˭{̘mzzm{{z˭{̘`zҍ{>=}z˭{̘˩zҍ{z˭{̘`z{̍xymxxmyyz˭{̘mzzm{{>>}{y  zxL N xyA|}~z{mzzm{{mzzm{{~>?}mzm{|z˭{̘mzzm{{mzzm{{{͝  z͜LNmm(>@}mmy  xL}N捊mm˭̘ R˭̡ˍz>A}{܍xyy{  xzLOzmzx{m{ymxmy˭̡ˍz{xy{y zxL,>B}PLO˭̡ˍz{@xy Um|m} S˭̡ˍz{ͫ>C}  ͪL8Pxymxxmyyy͋  x͊L8P˭̡ˍz{{͙ z͘LQL8P>D}˭̘ˢ˭̘mxmyzҍ{xz˭{̘˩zҍ{xyxz˭{̘˭>E} Rmmbz{{  zLOލmzm{z˭{>F}mzm{z˭{̘˭͏ ͎LkRz˭{̘˭z{xy Uz{mzz>G}m{{Ѝxy|mxx}myyxz˭{̘` S˭̡ˍz{ͫ>H}  ͪLySxymxxmyyy͋  x͊LySAxy{y zxLSmmx>I}yy  xLR`xyx˭̘LyS|}(xy͏ ͎LtTz{{>J} zLTz{{ zLT88|}8xy`mmm>K}mmm`mm|m}mxmym`88>L}8`|}~y͙ x͘LUzm||{m}}m~~my  ~x>M}LMU`|}{y  zxLV8zxz{y{m||m}}y{  xzLU{y zxLU`>N}͏  ͎LV8ҍ|}m||m}}PZ~|˭}̡ˍxymxx>O}myyy  x~LVxyx|˭}̘8||}}L^Vx|˭}̘``/~<n  ;O-a-ANNN;;1,999,THINK OF AN INDEPENDENT NATION. ARE YOUBQ} READYFF2,3,IS THIS COUNTRY SITUATED EXCLUSIVELY ON ONE OR MORE ISLANDS--4,5,IS THIS ISLAND IN THE CARRIBEAN SEA6BR}66,7,IS THE COUNTRY SITUATED IN EUROPE OR AFRICA668,9,IS THE PRIME MINISTER CALLED FIDEL CASTRO1110,11,IS THIS CBS}OUNTRY LARGER THAN GREENLAND1112,13,DID THIS COUNTRY SIGN THE WARSAW PACT!!14,15,IS IT EAST OF LEIPZIG0,0,CUBABT} %%16,17,IS THIS COUNTRY A KINGDOM ;;18,19,IS THIS COUNTRY THE HOME OF THE KANGAROOS 8820,21,IS SOUTH AFRICA INBU}SIDE A RANGE OF 1000 MILES --22,23,DID THIS COUNTRY SEND UP VOSTOK 5 ??24,25,CAN THE INHABITANTS BATHE IN THE MEDIBV}TERRANEAN;;26,27,IS THIS COUNTRY THE HOME OF THE KANGAROOS2228,29,SITUATED BETWEEN HONDURAS AND COLUMBIA113BW}0,31,IS THE ISLAND FAMOUS FOR IT'S OLD RUM))32,33,IS THE CAPITAL PORT AU PRINCE0,0,AUSTRALIA0,0,ANTARCTICABX}%%34,35,IS THIS COUNTRY A KINGDOMAA36,37,IS RICE A VERY IMPORTANT FOODSTUFF FOR THE POPULATION0,0,USSR6638,39,BY}DOES THIS COUNTRY SHARE A BORDER WITH USSR((40,41,PART OF THE AFRICAN MAINLAND2242,43,DO WILD GIRAFFE LIVE ON THIS COBZ}NTINENT0,0,AUSTRALIA**44,45,IS THIS COUNTRY EAST OF PERSIA5546,47,IS THIS COUNTRY BISECTED BY A LARGE CANALCB[}C48,49,DOES PART OF ITS TERRITORY LIE WITHIN THE POLAR REGIONS0,0,JAMAICA((50,51,IS THE CAPITAL PORT-OF-SPAIN B\}0,0,HAITI!0,0,DOMINICAN REPUBLIC"0,0,MAURITIUS#0,0,MALAGASY REPUBLIC$>>52,53,IS JAVA ONE OF THE MANY ISLANB]}DS IN THIS COUNTRY%,,54,55,MORE THAN 40 MILLION INHABITANTS&9956,57,IS THIS COUNTRY A NEIGHBOR OF EAST GERMANY'B^}1158,59,IS THIS COUNTRY A NEIGHBOR OF RUMANIA(::60,61,IS FRENCH AN OFFICIAL LANGUAGE IN THIS COUNTRY)//62,63,ARE THE IB_}NHABITANTS ROMAN CATHOLICS***64,65,HAS THIS COUNTRY ANY COASTLINE+**66,67,HAS THIS COUNTRY ANY COASTLINE,6668,69,DOEB`}S THIS COUNTRY SHARE A BORDER WITH LAOS-??70,71,CAN THE INHABITANTS BATHE IN THE MEDITERRANEAN.0,0,PANAMA/ 7Ba}2,73,A NEIGHBOR TO PANAMA01174,75,IS IT THE HOME OF THE EMPEROR PENGUIN1))76,77,IS SPANISH THE MAJOR LANGUAGE20,0,Bb}TRINIDAD AND TOBAGO30,0,BARBADOS40,0,INDONESIA5<<78,79,IS THIS COUNTRY KNOWN FOR ITS TEA PRODUCTION60,0Bc},UNITED KINGDOM71180,81,ARE THERE HOT SPRINGS IN THIS COUNTRY8 82,83,IS IT A BALTIC STATE9**84,85,HAS THIS COUNTRY Bd}ANY COASTLINE:>>86,87,HAS THIS COUNTRY A COAST ON THE ADRIATIC SEA;>>88,89,HAS THIS COUNTRY A COAST ON THE Be}ADRIATIC SEA<::90,91,HAS THIS COUNTRY A COAST ON THE ATLANTIC=9992,93,DOES THE NILE FLOW THROUGH THIS COUNTBf}RY>::94,95,HAS THIS COUNTRY A COAST ON THE ATLANTIC?>>96,97,HAS THIS COUNTRY A COAST ON THE ADRIATIC SEA@Bg}0098,99,DOES THE COUNTRY'S NAME START WITH SA((100,101,IS IT NORTH OF THE EQUATORB''102,103,IS THIS COUNTRY A KINGDOMBh}C>>104,105,KNOWN FOR ITS MANUFACTURE OF WATCHES AND CLOCKSD??106,107,ARE THERE MORE THAN 500 MILLION INHABITANTSBi}E,,108,109,HAS THIS COUNTRY ANY COASTLINEF==110,111,IS THIS COUNTRY JUST OVER THE BORDER FROM IRAQG==112,113,IS THISBj} COUNTRY JUST OVER THE BORDER FROM IRAQH0,0,COSTA RICAI0,0,NICARAGUAJ0,0,ANTARCTICAK<<114,115,IS FRENCH ANBk} OFFICIAL LANGUAGE IN THIS COUNTRYLXX116,117,DOES THE AMAZON OR ONE OF ITS TRIBUTARIES RUN THROUGH THIS COUNTRYMBl}0,0,BRAZILN0,0,CEYLONO;;118,119,DOES MANILA HEMP COME FROM THIS COUNTRYP((120,121,IS IT NORTH OF THE EQUABm}TORQ 122,123,IS THE CLIMATE HOTR0,0,POLANDS0,0,CZECHOSLOVAKIAT0,0,RUMANIAU0,0,HUNGARYV0,0,YUGOSLBn}AVIAW0,0,BULGARIAX0,0,ALBANIAY0,0,DDR (EAST GERMANY)Z0,0,MOROCCO[EE124,125,IS THE LARGER PART OF THIS Bo}COUNTRY IN THE SAHARA DESERT\0,0,EGYPT]0,0,LIBYA^@@126,127,IS BULL FIGHTING POPULAR THROUGHOUT THIS COUNTRY_Bp}@@128,129,HAS THIS COUNTRY A COAST ON THE ADRIATIC SEA`0,0,YUGOSLAVIAa>>130,131,DOES PART OF THIS COUTRY BELONBq}G TO THE NEAR EASTb33132,133,DOES IT CONTAIN ONE OF AFRICA'S CAPESc<<134,135,HAS THIS COUNTRY A COAST ON THE ATLABr}NTICd@@136,137,IS THERE ANOTHER AFRICAN STATE WITH A SIMILAR NAMEe::138,139,IS THE COUNTRY SITUATED NORTH OF ZAMBIBs}AfJJ140,141,IS THIS COUNTRY A MEMBER OF THE SCANDINAVIAN COMMUNITYg%%142,143,IS PORT WINE MADE THEREh0,0,SWIBt}TZERLANDi66145,144,DOES THIS COUNTRY'S NAME BEGIN WITH AN Lj0,0,CHINAk22146,147,IS THIS WHERE SIAMESE CATS COME FRBu}OMl//148,149,DID THIS COUNTRY SEND UP VOSTOK 5m88150,151,DOES THE NAME OF THIS COUNTRY END WITH TANn33152,153,KNOWN Bv}FOR BLACK COFFEE AND CIGARETTESo''154,155,MEMBER OF THE ARAB LEAGUEpAA156,157,IS THE HEAD OF STATE A KING AND NOT A SHABw}H OR SHEIKq@@158,159,DOES THE RIVER EUPHRATES RUN THROUGH THIS COUNTRYr0,0,CANADAs 0,0,USAt..160,161,DOES IT Bx}HAVE A PACIFIC COASTLINEu..162,163,IS THIS COUNTRY NORTH OF BOLIVIAv0,0,PHILIPPINESw88164,165,WERE THE OLYMPIC GAMBy}ES HELD HERE IN 1964x0,0,ICELANDy0,0,NEW ZEALANDz''166,167,IS THIS COUNTRY A KINGDOM{0,0,EIRE|0,0,ALBz}GERIA}0,0,TUNISIA~0,0,SPAIN0,0,FRANCE0,0,ITALY0,0,MONACO0,0,TURKEY0,0,GREECE44168B{},169,DOES THE GOVERNMENT PRACTICE APARTHEID;;170,171,DOES THE NILE FLOW THROUGH THIS COUNTRY##172,173,IS IT WESB|}T OF NIGERIA''174,175,IS THIS COUNTRY A KINGDOM0,0,NIGER''176,177,IS IT A NEIGHBOR TO NIGER''178,179,DOES TB}}HE NAME END IN ANDA**180,181,IS IT A NEIGHBOR OF RHODESIA,,182,183,IS RC4000 MADE IN THIS COUNTRY@@184,185,IS THIB~}S COUNTRY FAMOUS FOR IT'S CIGARS AND TUPLIPS0,0,PORTUGAL##186,187,HAS GOETHE LIVED HERE==188,189,DOES THIS COUNB}TRY LIE ON THE ITALIAN PENNISULA..190,191,IS IT ONE OF BELGIUM'S NEIGHBORS0,0,THAILAND00192,193,WAS THIS COUNTB}RY RECENTLY REUNITED0,0,USSRMM194,195,DOES ONE OF THE RIVERS INDUS OR GANGES RUN THROUGH THIS COUNTRY**196,197,B}IS IF FAMOUS FOR ITS CARPETSAA198,199,IS THE WORLD'S HIGHEST MOUNTAIN SITUATED HERE0,0,TURKEY0,0,SYRIAB}0,0,LEBANON0,0,ISRAEL99200,201,HAS A BIG RIVER THE SAME NAME AS THIS STATE--202,203,FAMOUS FOR ITS CARPETSB} AND RUGS0,0,IRAQ--204,205,MORE THAN 4 LETTERS IN ITS NAME))206,207,IS THE CAPITAL CALLED QUITO66208,209,ISB} IT NAMED AFTER THE HERO SIMON BOLIVAR00210,211,IS THERE A GULF WITH THE SAME NAME88212,213,DOES THE NAME OF THIS COUB}NTRY END IN GUAY0,0,JAPAN''214,215,IS THIS COUNTRY A KINGDOM0,0,MALTA((216,217,IS IT NORTH OF THE EQUATOB}R0,0,SOUTH AFRICA##218,219,IS IS WEST OF NIGERIA0,0,SUDAN((220,221,IS IT NORTH OF THE EQUATOR<<222,22B}3,MORE THAN 6 LETTERS IN THE NAME OF THE COUNTRY11224,225,DOES THE EQUATOR CROSS THIS COUNTRY0,0,ETHIOPIA$$226,B}227,IS NAIROBI THE CAPITAL..228,229,IS THERE A LAKE OF THE SAME NAME""0,0,CENTRAL AFRICAN REPUBLIC<<230,231,CAN TB}HE INHABITANTS BATHE IN LAKE VICTORIA0,0,BURUNDIEE232,233,WAS THIS COUNTRY FORMERLY CALLED NORTHERN RHODESB}IA''234,235,IS THIS COUNTRY A KINGDOM0,0,DENMARK??236,237,DOES THIS COUNTRY GIVE THE NOBEL PRIZE IN PHYSICSB}0,0,HOLLAND0,0,BELGIUM%%0,0,FEDERAL REPUBLIC OF GERMANY0,0,FINLAND%%238,239,DOES THE POPE LIVE HERE&B}&240,241,HOME OF THE VIENNA WALTZ0,0,LUXEMBURG0,0,LICHTENSTEIN0,0,VIETNAM00244,245,IS MANDALAY A TOWN B}IN THIS COUNTRY$$246,247,SITUATED WEST OF INDIA<<248,249,IS THIS COUNTRY SITUATED SOUTH OF THAILAND0,0,AFAHB}ANISTAN0,0,BHUTAN0,0,TIBET--250,251,IS IT SOUTH OF THE CHINESE WALL0,0,JORDAN0,0,SAUDI ARABIAB}0,0,IRAN0,0,KUWAIT@@252,253,CAN THE INHABITANTS SAIL ON THE PERSIAN GULF0,0,MUSCAT AND OMAN0,0,B}ECUADOR--254,255,MORE THAN 4 LETTERS IN ITS NAME0,0,BOLIVIA0,0,VENEZUELA11256,257,DOES IT SHARE A BORDER B}WITH THE USA**258,259,IS IT SMALLER THAN GUATEMALA..260,261,IS THE CAPITAL CALLED MONTEVIDEOAA262,263,IS THE COUNB}TRY KNOWN FOR ITS BEEF EXPORT AND PAMPAS++310,311,IS THIS ISLAND IN THE PACIFIC0,0,TAIWAN==312,313,WAS PART OF B}THIS COUNTRY A TRUST TERRITORY((264,265,IS THE CAPITAL CALLED APIA0,0,SENEGAL0,0,SOMALIA0,0,SIERRAB} LEONE0,0,SOUTHWEST AFRICA??266,267,DOES THE COUNTRY SHARE ANY BORDERS WITH GUINEA00268,269,DOES IT SHARE ANB}Y BORDER WITH MALI;;270,271,DOES THE CONGO RIVER FORM ONE IF ITS BORDERS<<272,273,IS THIS COUNTRY SITUATED SOUTH OF B} CAMEROUN0,0,KENYA0,0,TANZANIA0,0,CHAD--274,275,MORE THAN 4 LETTERS IN ITS NAME0,0,UGANDAB}0,0,RWANDA0,0,ZAMBIA0,0,BOTSWANA88276,277,WAS THE COUNTRY FORMERLY CALLED BASUTOLAND--278,279,IS THE CAPB}ITAL CALLED SALISBURY0,0,SWEDEN0,0,NORWAY0,0,VATICAN0,0,SAN MARINO0,0,AUSTRIA0,0,ANDORRAB}0,0,BURMA0,0,CAMBODIA0,0,PAKISTAN((280,281,ARE THE INHABITANTS HINDUS<<282,283,IS THIS A FEDERATION B}WHICH WAS FOUNDED IN 1963MM284,285,IS THE AREA OF THIS COUNTRY LARGER THAN THE KOREAN PENINSULA//286,287,DOES IT SB}HARE A BORDER WITH CHINA0,0,MONGOLIA33288,289,IS THE COUNTRY A UNION OF 7 SHEIKDOMS**290,291,IS ADEN PART OF THB}IS COUNTRY0,0,COLUMBIA0,0,PERU0,0,MEXICO0,0,HONDURAS0,0,EL SALVADOR33292,293,IS THIS COUNTRB}Y A COMMONWEALTH MEMBER0,0,URUGUAY0,0,PARAGUAY0,0,ARGENTINA0,0,CHILE0,0,WESTERN SAMOA 0,0,B}NAURU --294,295,IS IT NAMED AFTER ITS COASTLINE EE296,297,IS THE LARGER PART OF THIS COUNTRY IN THE SAHARA DESERT 00B}298,299,IS THERE A GULF WITH THE SAME NAME 11300,301,WAS IT ONCE KNOWN AS THE GOLD COAST--302,303,IS KATANGA PART OF TB}HIS COUNTRY0,0,GABON0,0,EQUATORIAL GUINEAJJ304,305,DO THE FIRST 5 LETTERS FOR THE NAME OF ANOTHER AFRICAN STAB}TE0,0,VOLTA0,0,MALI0,0,LESOTHO0,0,SWAZILAND0,0,RHODESIA0,0,MALAWI0,0,INDIA0,0B},BANGLADESH0,0,MALAYSIA0,0,SINGAPORE0,0,MONGOLIAXX306,307,IS THE COUNTRY ON THE NORTHERN BORDER B}OF THIS COUNTRY PART OF CHINA0,0,NAPAL0,0,LAOS 0,0,UNITED ARAB EMIRATES!00308,309,IS THE COUNTRY LARGER TB}HAN BAHREIN"0,0,SOUTH YEMEN#0,0,YEMEN$0,0,GUYANA%0,0,GUATEMALA&0,0,IVORY COAST'0,0,LIBERIA(B}0,0,MAURITANIA)0,0,DAHOMEY*0,0,GUINEA+0,0,GAMBIA,0,0,GHANA-0,0,TOGO.0,0,ZAIRE/0,0,CONGO0B}0,0,NIGERIA10,0,CAMEROUN20,0,NORTH KOREA30,0,SOUTH KOREA40,0,QATAR50,0,BAHREIN60,0,FIJI7B}0,0,REPUBLIC OF MALDIVES80,0,PAPUA NEW GUINEA90,0,CYPRUSAR@""@@KB};@v,)) !} G E O G R A P H Y Q U I Z6- 6- 6-&"A  }0#: "B}D"ApN!-@@! ?X)@b"@:Y,A@l"@:N,A0v B}  A/-@@* THE COUNTRY IS:/ -@A  A  D2:GEOQUIZ@}CCC.LE4 k:泭C0iiCLg3CL<3 Z: *DCC ,=  , /,C0 8} l0N S0G :CC# k:浭C0iiCЪL<3 ,٢=  * q;L8 D, q; $; ,WC } L 4C>  :A>810CC ,/> 1C1>  :Z>810CC ,C> 1CCC , 1= 1 :Yh}hL `=CCЍCCCCCCCCC ; ; ; , 4L3 ,\> 1 * 鈹CɛሢCɛ )CC0}CC ~* 5CCCC Co> 1 * Cɛ ~* 5ܭCCCC C˭CCLE5CCLE5`C`}`C`~, , E5C 4L3? , E5CC 4C $;D浭CC 8CCCBC} lɀYC :L6 : lC񠀈Ѱиi iACCC k:LX6CCCCC q};L8= ; , ,p  , ,  ,1@  :ɛL 15))C q+L 7= , ,V@  ,u@  :ɛL H 7 }7Lj7 7Lj7D 8 7L7 7L7բ@ `ߢC ` ,@  * ECɛ>0$C *00C0C *0" CCL}7`C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CC}C`8`=8W=Wy 8W=PyL5 ON ,C` ; *nDEǍHI 1C L!9 :C }q+L8L 9 q;L8P 9 q;L8W +L8ML 15))C g+L8 ,C&D?E BHCCC /,C\}XCC X*C-?0  -?C0L8:8鉍C mC mCE?1?C V0*CCC LW9C? }`CL09PC B VB DAEJNK V0 09 ,ʢ? PC D,P B V`CC mC mC?1?L9}CC`i`i`i`i`i`P B} VBDAEJ VBHIL1HI B} V@`HS S ShH )Lc;Lj;h` 0)¢})  q; ,` M;hL$; b,hL$; ,>  , ,L,=L1 :HOh:` ; 0L>!}DISK UTILITIES (c)1983 Atari V}er 2.6f MODIFIED FOR ATARI 800 USEA. DISK DIRECTORY K. BINARY SAVEB. RUN CARTRIDGE L. BINARY LOADC. COPY FILE }M. RUN AT ADDRESSD. DELETE FILE N. CREATE MEM.SAVE. RENAME FILE O. DUPLICATE FILEF. LOCK FILE P. COPY SECTORSG}. UNLOCK FILE Q. CHECK SECTORSH. WRITE DOS/DUP R. RADIX CONVERTI. FORMAT DISK S. DRIVE SPEEDJ. DUPLICATE DISK T. WR}ITE VERIFY:ƛ9!&x#!7&p))'&5./)L''-66C76u8COPY DISK Insert source disk and Λ Insert DESTINATION }disk and Λ IT'S DONE !'Y' to execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # 1Des}tination drive is # 1Enter first sectorEnter last sectorCHECK DRIVE # 1 >>>>ERROR # 138<<<