@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( 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`  `1  ɐ     `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.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u01CACBQSTNNNFSTCDLERERTI@@@T} U}CHECKBOOK BALANCERBY ROD SAYLOR(c)1987, ANTIC PUBLISHING - @P-@@V}K: +@A*(@5(@@(@a(@ 'CHECKBOOK orl(@(W}@ checking made easyQA @7'AU@;-@A? QAU(i+(# WrittX}en by Rod Saylor 1987 Germany.(P( Press any key to continue])@i6-2q +A @1Y}A@_9A,9A,9A,;@,qAU<) A`)TRAP TO MENU,SETUP SCREENFBZ}-B(' E#|CHECK #| AMOUNT | C/B BAL |ACCOUNTPB-@B('END BA[}LZ-@@ d9-5( | | | |9 nC-@1@$( 6-@2\}@C(DEPOSITxM-@!C(( M AK AP3( disp]}lay block(1-99),deposit(0)7K"A0!@A0 APRAU@ A`) AP^}N( 1-nter 2-elete 3-hange dataR41)4EA`42)4DA`43)4CA0 _}4Q A A`U-@"C(( U-@"*@`}A'B7tA*$ AP2.(% 4-ave 5-etrieve 6-ew 7-rint data24S)44A,a}4R)45A@4N)46AJ 4Q AT4P)47 A ^ A`h: AP"(b} E#&:!@A`mP:,A`r8,A`|8 AP( check ##,68,c}-86-8 AP( amount $#,68,-86-B AP>(E# check #8, for 8,$d},SURE+B<(+4+)4Y,#68,-268,-< A` AP AP A` 6-&8,e}68,-$ FIG0 AP&(Š˪ E#0 A M AP>(*DELETE CHECK #8, $8, -f}M6-T:,33T:,")F:Ad,"@AE+R:,@)F:Ad,"@(;6-&%@g}E A` A068,-!68,-068,- AP A`t AP'( amount ofh} deposit +36-%E-@2@R( d-@2@h(t6-`-@2@!(BAL...3-@i}2@@( R-@2@V(` A&-@@ PRT0g-( $-@0j}( <-@J( V-@!c( g :--@@ -%!AAD|-k}(+&@,%+-@>(8+&@,%,J-@](8+&@,%,i-@!|(8+&@,%,N   $X5 l}AP!(SAVE DATA, Y/N%50YA`bV AP:('ϠŠ׬ǠD AV@wm}A(l8@8@@ D1:CHECK.DATv(@-@A 6-8,6-8,n}6-8,*(@(@*(@ *@ @w* A`} AP A7(o}GETTING CHECKS, PLEASE WAITA AS@wA(}@@ D1:CHECK.DAT@-@p}A*@@*@ 68,-68,-68,- ,@ @wq},6-:6-%@ 8,!&6-0 AP: A@ @A` #6-@ AP# A@r}8 AP8(% working on new balance..standby.... .-@A"6-%8,& .6-%*U-@2@s}#( 5-@2@9(?6-K6-U A`4* A p'3 OUTSTANDING CHECKS*3>#6-#t}-@@H8,"A`R"38,8,8,"6-@\ f'"'3NO CHECKS IN MEMORYpu}#3#3 NEW ACCOUNT END BAL$z$!6-@!AdAU06-R:,!6-T:,06-F:Ad,ov}AR@7+"@)"@)"AB,E6-&@WAdAUc @o6-@ ]%+"@)"w}@)"AC,36-%@EAdAUQ!@ ]6-@?-@()-@@- 9-@x}?( V")"@)6-%&@=-@@PA SAdAUV$ A G AP%y}( ***NO PRINTER***9-@A= G Ar6-F:A,46-F:A,%F:A,$AV> APz}P@wr2AP@@+"Ap+( *** FILE NOT FOUND***3"AD3(***DISK PRO{}TECTED,NOT THERE***("A6((*** END OF FILE ***&"Ab&(*** DISK FULL ***("Ag((*** FIL|}E LOCKED ***$*"A8*(*** TURN ON DRIVE ***.6"A96(!*** DEVICE NAK ie:wrong density**85"A)}}5( **IOCB ALREADY OPEN,CLOSED NOW**B(@L[-@A % AG2~}[ AA`VlAdAU A *@T@@ D1:CHECK.DAT_@i AP}l$`[AdAU APC( Can't find D:CHECK.DAT!W-@A[ jP AP8(& Press [SP}ACEBAR] to create a new oneL-@AP tI AP1( Press [ESCAPE] to re-tryE-@AI }~ F:Ad,"@(A F:Ad,"@3A A $ AP$(Creating CHECK.DATTAd}AU A*@T@@ D1:CHECK.DAT@-@A$(@( 3@= }AP@$6 AP2( Are you sure you want to Quit6 0Y$'+D1:BALANCE.BAS= xt?C\C_C}CCCCCCCCCD:D?DFD_DbDoDDDDDDDDD    LNNRRTICLR }TICLESKEUAHARACTEHECHECKEORRECOULATICTIONARIEISISPLAYEASNRROVEASILILEINIVOORGOORMAUNNEETTINA }ELEEXADECIMAONDICATENSERNVALISN'ONOANGUAGEININEISTINACHINAKANEANESSAGEISSINISTAKEOONNLERSO }NARESROBELROGRAUUIEERUETURUAVOMETIMPELLINTARTETATEMENTUPPORTHAHHIYPYPESAAHEHILISITORKRITRIT }TEEBEEOOUIAUUIEERUETURUAVOMETIMPELLINTARTETATEMENTUPPORTHAHHIYPYPESAAHEHILISITORKRITRIT q<:A%,%6-g;@@,067@<@,.>:@,X67@@<@@,.7@<@,g67@,.},6-'@$@ ;,,6. A-@'@=67@$<@$,.>:AU,A 667@,}. '67@ $,. 667@,.967@<@,.D1:9DATA DISK IS IN DRIVE #1"AA,J +@}"AF:A,4-@@J(@FOOTBALL6,-@@,(@ PREDICTOR@<AR@}<(" FOR ENTERTAINMENT PURPOSES ONLY!J**(" By David Cowles & Bill MarquardtT((( (c) 1987 by Antic Publishin}g^-@A F-@"B67+&@,$@ %@<$@ ,.F (@TA}dAUT( Ensure proper disk is in Drive #7@<@, and""( press Π. F:Ad},"AUA@&4 6- A4SKIP "OPEN" IF NO FILE ON DISK0X#67@<@,.WKNUMBER@@@}M)@X@X @A;#67@<@,.SEASTOTL'(1 BE; B@MAIN }MENU667@<@,. '67<,.667@,.A-@'@=67$@<$@,.>:AU,A }=+@(AF:A,3@= A'AdAU'AR@.*( Current w}eek is Week #.(6 "3(% (No weekly data files were loaded.)6((Select by number:((0-( ENTER d}ata for Week #%@0(41( PREDICT scores for Week #%@4(1.(& REVIEW-PRINT-REVISE weekly stats}1( *'( REVIEW-PRINT season stats*(( QUIT("((Your selection =>"(!! @)!@}A2//A A@A`AAENTER WEEKLY DATA6-%@-@ A ` }1-( Entering stats for Week #1(EB(Enter stats for: 7+&@,$@ %@<$@ ,E(*?((To}tal yards gained rushing =>2 A 6?68,-4?((Total yards gained passing =>2 A!6?68,->)68},-8,%8,)TOTAL YARDS GAINEDHB((Total points scored =>2 A! 6?68,-B(R?((Total yards given u}p rushing =>2 A!06?68,-\?((Total yards given up passing =>2 A!@6?68,-f-68,-8,%8,-TOT}AL YARDS "GIVEN-UP"p8((Total points given up =>,568,-8(z2(.(!Is this information correct (y/n)2}0Y*0yA `  CREATE WEEKLY DATAFILE Z#67@<@,.WKDATA =67@<@,.=:,Z}@@  B 6-: @#67@<@,.WKNUMBER@@@D %*@}@% A2N 7#67@<@,.SEASTOTL- BU7 B@l A IC(ERROR F:A,at line }F:A,%F:A,$AVF(I&PREDICT THE WINNERSG9(# Predictions for Football Week #%@=(G }A@$-@68,- $6-B " (+(Cannot predict first week!.(8 BB A%AdA}U!6-@%(8-@@ &( 2!@8(-@(9-@@}9(Š #%+ +'@,, 8-@@&( 2!@8( -@( }-@( !B2y@!6-@-@-@AdAU !6- }AA0S"+'@,F( I can only predict '@ games!I(S A@*8,"@ 6-%@* }A@w/,($ Π to scroll through teams/(DA( Ԡ => 7+&@,$@ %@<$@ ,D(}3 !0(" Ԡ to print predictions.3(( à to quit@ @* +'@,9-@@%}$@@(=>6-F:B2y,* F:Ad,"@(A*esc key"@AA-"@*! B0}#6-- A x"@* @"68,->-@@%$@i(7+&@,$@ %@<$@ ,x}68,-@ 9@!B2y@/6-%@9 AA0!@6- AA0"@A@}"  @A@u,0-@)-@@,(0 6AG!!PREDICT USING SEASON TOTALS}--6-+88@,,%88@,,,'@--6-+88@,,%88@,,,'@ 6-%-88@,,"-68}8@,,-@##6-88@,,'88@,,-88@,,"-688@,,-@##6-88@,,'88}@,,--6-+88@,,%88@,,,'@--6-+88@,,%88@,,,'@ 6-%-88@},,"-688@,,-@##6-88@,,'88@,,-88@,,"-688@,,-@##6-88@},,'88@,,6-+%,'@6-P:'%?P, 6-+%,'@6-P:'%?P,DISPLAY WINNER}6-%@%!-@4%+ @,@%((!-@4%+ @,@%(((((The ' " A}Q BP' AP0] !](7++8@,&@,$@ %@,<8@,$@ , will defeat the aC(}7++8@,&@,$@ ,%@<8@,$@ ,I!W( by &a AP$e( will defeat the e(7++8}@,&@,$@ %@,<8@,$@ , by &'( point O:&,!@'(s (! ((} ! BP ! B`3"@0((Print option coming up ...)3(,AdAU,(Press any key }... F:Ad,"AUAPG( A@WW(7++8@,&@,$@ %@,<8@,$@ , } versus the SS(7++8@,&@,$@ %@,<8@,$@ , is a toss-up$pREVIEW PAST STA}TS.u"Az:,( Current week is Week #0(: A`5( (5('Enter number of week you wish to }review!-@@(=>! @)!A`Z#67@<@,.WKDATA =67@<@,.=:},Z@@((Reading 26. Stats for week #267B:,%@,.=:, B`/+("Re}vise (correct) these stats (y/n)/0Y*0yAp1(-@.(>>> WARNING <<<<1(11((Revise}d statistics will be saved to disk..(&and become permanent file. This option//('should only be used to correct bad d}ata(entered earlier.()%(Do you wish to proceed (y/n))0Y*0yAp@6-@Y(Ne}w statistics -U(7+&@,$@ %@<$@ , Week #Y(((Change:@)(8, rushing yds gained} to =>3 Ad7@68,- @)(8, passing yds gained to =>3 Ad7@68,-68,-8,%8,C)(8}, points scored to =>3 Ad07@68,-C((@)(8, rushing yds given up to =>3 Ad@7@68,-2}@)(8, passing yds given up to =>3 AdP7@68,-<68,-8,%8,F@)(8, points given up to =>3 }Adp7@68,-G8( ( (4(!Is this information correct (y/n)8H0Y*0yAcI0,(#Review stats for} another team (y/n)0J4Y)4yAp`K(6- BP0 @@* B 06-}Z]-@68,-#68,-,68,-568,->68,-G68,-P68,-Y68,-] _ B AXREP}EAT CHOICE0,(#Review stats for another team (y/n)0##0Y*0y*"@Adu0Y*0y' A}! Bc!"@Ac0 Ap@REVIEW SEASON TOTALSJO#67@<@,.SEASTOTL@@@}O(Reading T#6. Season totals# B`^ Ap A0(#EXIT PROGRAM2#AR'P}RINT STATS' ('40(7+&@,$@ %@<$@ ,4('(Offense:$'LL(! rushing yards gained } =>7@<@&B:=:8,,,,8,.'LL(! passing yards gained =>7@<@&B:=:8,,,,8,B'OL(! } points scored =>7@<@&B:=:8,,,,8,O(L'(Defense:V'LL(! rushing yards given up =}>7@<@&B:=:8,,,,8,`'LL(! passing yards given up =>7@<@&B:=:8,,,,8,t'OL(! } points given up =>7@<@&B:=:8,,,,8,O(y'( B$)WAIT FOR KEYPRESS)7AdA}U7(Press any key to continue ...) F:Ad,"AUB ")AdAU$.SAVE STATS.((Sav}ing .-@.) 6-8, B6-8,) B.) 6-8, B6-8,) B.) 6-8, B}6-8,) B/) 6-8, B6-8,) B:/ @$2READ DATAFILES2U!7@<@ },4WKDATA;67@<@,. U67@<@,.=:,2/ @@/(Reading 2-@}23 B68,-8,%% B368,-8,%23 B68,-8,%% B368,-8,%23 B68,}-8,%% B368,-8,%33 B68,-8,%% B368,-8,%63 @$4!!UPDATE "SEASON T}OTALS" FILE4@#67@<@,.SEASTOTL@@@4(Saving 4-@4) 6-8, }B6-8,) B4) 6-8, B6-8,) B4) 6-8, B6-8,) B4) 6-8, B}6-8,) B*5 @$6DETERMINE WEEKLY AVERAGES6-@668,-8,'68,-8,'}668,-8,'68,-8,'668,-8,'68,-8,'668,-8,'68,-8,'6   $8ENTER SEASON TOTA}LS85-@68,-#68,-,68,-568,-8+ 68,-68,-68,-'68,-+ 8 B0$<UPDAT}E SEASON TOTALS<!@ BE<-@<%68,-8,%8,%68,-8,%8,<%68,-8,%8,%68,-8},%8,<%68,-8,%8,%68,-8,%8,<%68,-8,%8,%68,-8,%8,< @< B5$>ENTER} STATS.> B>-@>) B68,- B)68,->) B68,- B)68,->) }B68,- B)68,->) B68,- B)68,-> @>SELECTION & PRINTING>0}( Reviewing ... #(&(0 Ba>1.( Print totals for all  teams1( ?--(% Print totals for se}lected teams?4"@4( (includes revision option)?'($( Return to Main Menu'( ?(($( Your} selection =>(*?BbBcBh4?!! @)!@BaH? Bp Ba?,( Revie}wing ... #(&(,6-?#-@#-@?/,($ Π to scroll through teams/(?TB( } the 7+&@,$@ %@<$@ ,TB2y@?@F:B2y,"@6-$6-6B2y@@ B}c`? F:B2y,@Bc@?  @Bc? B$A' AhBPRINT STATS FOR ALL TEAM}SjB+('(Use screen or printer (s/p)+lB# 6-4P)4p#6-@rBAdAUwB(Bqp|B,(,(}!Set-up printer and press any key.B F:Ad,"AUBp0B.@.@@P:B&(@}(@&(@B88(@& TEAM OFFENSEB=2(@! }DEFENSE=(@B@@(@. RUSH PASS PTSB=2(@! RUSH PASS } PTS=(@B6-@%-@Baa(@7+&@,$@ %@<$@ , 7@<@}&B:=:8,,,,8,B44(@7@<@&B:=:8,,,,8,B44(@7@<@&B:=:8,,,,8,}B::(@ 7@<@&B:=:8,,,,8,B44(@7@<@&B:=:8,,,,8,B11(@}7@<@&B:=:8,,,,8,C& @ B& BqC&-@ B &6.CAd}AU$PFREVISE SEASON TOTAL FILESZF1(1(&Re-totalling all files - this may takedF(a few minutes...(nF##67}@<@,.WKDATA xF$-@6@$ B0F  B5 B@$,LSKIP TO TOP OF PAGE6L-}@@f&@L3 6-$ NCONVERT TO TWO BYTES*N,6-P:'AV, !AU,6-AU/N*@4N}-6-&+$AV,!!AU-6-AU>N*@$R!!RECONSTRUCT TWO-BYTE NUMBERR)@6-AV$}R)@6-%&R$YPRINT PREDICTION REPORTY@.($Set-up printer and press any key ...@AdAUY} F:Ad,"AUB0Y B0AdAUY((How many copiesY-@Y523 Football} Predictions for Week #%@53Y@=35 Favorite Underdog SPREAD@3Z36-%@ Z} B Z B$aFIRST TEAM IS FAVORITEass67+&@,$@%@<$@&@`,.7++8@},&@,$@ %@,<8@,$@ ,ass67+&@,$@%@&<$@&@5,.7++8@,&@,}$@ %@,<8@,$@ ,a<967$@&@0%+@$+&, @,,.=:&,<$eSECOND TEAM IS FAVORIT}Eess67+&@,$@%@<$@&@`,.7++8@,&@,$@ %@,<8@,$@ ,ess67+}&@,$@%@&<$@&@5,.7++8@,&@,$@ %@,<8@,$@ ,e<967$@&}@0%+@$+&, @,,.=:&,<${!!28 NFL teams - see LINE 110{##Atlanta Falcons,Buffalo Bills{&&Chicago Be}ars,Cincinnati Bengals{%%Cleveland Browns,Dallas Cowboys{""Denver Broncos,Detroit Lions{&&Green Bay Packers,Houston }Oilers{++Indianapolis Colts,Kansas City Chiefs{**Los Angeles Raiders,Los Angeles Rams{&&Miami Dolphins,Minnesota Vik}ings{--New England Patriots,New Orleans Saints{##New York Giants,New York Jets{--Philadelphia Eagles,Pittsburgh Stee}lers{,,San Diego Chargers,San Francisco 49ers{**Seattle Seahawks,St. Louis Cardinals{..Tampa Bay Buccaneers,Washingt}on Redskins D1:FBPRED.BASFrancisco 49ers{**Seattle Seahawks,St. Louis Cardinals{..Tampa Bay Buccaneers,Washingt!uvMJITLITOCPAUSERROREEPSECOSIGNMJIFANXYKECKEYCODECOUNBUZCTUNSTUNETUNJICHCSHIF}REPEA@Bf@ BT }Ad@}  @b!Ae"B@X#@$ FLASH CARDSBY ANDY BARTON(c)1987, ANTIC PUBLISHING } B2 F:, $<2'6-%@&A@h26-@F6-%@% APD A!-@ }.(@46-:6-D ApZm(@}$-@F(@HEY KID!! SPEED UP!!Z-@ }A%^ m(@}d nMAIN PROGRAMxADDITIONA6-P:H:,$@,70@A  }A@ 6-%$SUBTRACTIONI6-P:H:,$@,%6-%?0@I A@ 6-&$ }MULTIPLYA6-P:H:,$@,70@A A@ 6-$$DIVISIONI6-P:H: },$@,%6-$?0@I A@ 6-'$ PART 2S-+(@TOTAL =}-@S(@RIGHT W-@+(@SET =-@@W(@COUNT  }d!6-&@6'@"P:'@,P0@@@V6-d6-%@ PROBLEM SET }UP - VERTICAL"1-@@! @1(@ ,(@6(-@@((@ @'-}@@'(@____J A`O!!PROBLEM SET UP - HORIZONTALT1-@@! @1(@} ^!!(@ /  = h %@rQ'6---=(@ Q @}A w$ 6-F:,"$6-@| @P7<,4 Au'AU-'(@7<,6}-@$A:7<,,$ 6-F:,"$6-@ @P7<,4 A /AU-%@/(}@7<,6-%A:7<,,)-A )6-%@n A@h)6-%@/6-9 A} K-@X(@^6-d6-n Ap!6-%@6-! A`6-&@!}A@' 6-6-%@6-' A`r!@ (@}0-@@G(@ GOOD WORKM6-W }A`k-Ao r% XSOUND SUBSb BUZZERl-@v%%2@P@@}  A BELL-@776-+P:H:,$@,%@,$@%@@ -@@6@}2@   (%2($'INITIALIZE'A;AV,!67@,}. 267AV,. A67@,.'A#67@$<@1,.4 36 521A67@H<@S,.9 07 8$'46-Ad6-@}'6-@ 4;@,.'.@.@@K:8'/+@%@/0@@B'A};A$,!67@,. 267A$,. A67@,.L'E 6-C:,-6-P:'A%@,$@E6-$AV&%@}V'j;6-C:.hhhhhhh`,^6-?:<BsD<$AV<A,jAV`'''67%A }<%A',.>e'''67%AH<%AU,.B$$Bt'7(@}$-@@7(@+ aDD~'-- }@@-(@ - sUBTRACT'--@@-(@ X mULTIPLY'+-@@+(@/ dIVI!}DE')@'Y>:,4A)>:,4+6.++6-A076-AC6-@O6-@Y B'Y>:,4S)>:"},4-6.-+6-A`76-AC6-@O6-@Y B'Y>:,4M)>:,4X6.X+6-A76-A#}C6-@O6-@Y B'Y>:,4D)>:,4/6./+6-A 76-A@C6-@O6-@Y B$}' B'8(@}$-@@8(@HI KID'7-@7(@WHAT SET DO YOU WANT%}'0)@& @I)!@W0 B '(@}(96-A:>:,,6-'6-36-@96- (1&}6-@6-@16-$@&@(36-@6-@ '6-A36-@ (  D1:FLASH.BAS1| GRGRDPXY@@APApB(HA @ @ @ @ @(} @ @hSEE @@%%%*******************************%%* GRAPHICS 8/9 DEMO *%%* )} by *%%* PAUL LAY *%%* --------------------------- *%%* PAGE 6 MAGAZINE*} - ENGLAND *%%******************************* MACHINE CODE FOR DLI72,138,72,152,72,169,0160,64,162,160,+}141,10,212(141,27,208,224,160,240,12234,224,66,240,2,133,203<!!133,203,234,234,234,234,140F27,208,202,208,2,}27,141,10P 212,141,27,208,104,168,104Z170,104,64d-A6A"n  x!!ALLOW ACCESS TO GR.8 &-} GR.9%6-AP6-Ap% AACCESS GR.8@@$ACCESS GR.9@@ $.} +@AR@'A'A@%%6-F:A`,%AV$F:Aa,$$%@F:/}%@,%A(BBADEMONSTRATION PROGRAM(Random Graphs)9@,(-@0}"$68,-( 128,64,32,16,8,4,2,19A @'A9AA" @,',@1}''/@'AY6',@('/@(AY@3-@@3,@%Ab&@$J2}/@&Ab&@$T? 6-)6-@&@$+!@ ,?6-AX&@$^ A h)(0>:@3},)-@@r#(>:@,>:@#, #(|**(" 0 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1**(" 4} 0 1 2 3 4 5 6 -@@6-A@$H:,-@9!,@%@$%5}AY9/@%@$%   !6-@!AdAU`F:Ad,"AU42A@6}V6-&?%%@$+",` Ap/%2/3-@@y#,A7}Y//3  A!!6-@$+@:=:,,&@2,*-@*6-F:BsD%%,-8}@*&8,!6@ 6-&8,*,%%&   0B!@ *6-&@$P:'@,86-%@B A9}:$ D1:IMPOSS.BAS 6-&8,*,%%&   0B!@ *6-&@$P:'@,86-%@B A0100 ;GRAPHICS 8/9 DEMO, SOURCE0110 ;BY PAUL LAY0120 ;(FROM PAGE 6 MAGAZINE, ENGLAND)0130 PRIOR = $D01B0140 WSYNC = $D40A;}0150 *= $06000160 PHA 0170 TXA 0180 PHA 0190 TYA 0200 PHA 0210 LDA #$000220 LDY #$40<}0230 LDX #$A0 ; Loop over0240 ; 160 scans0250 LOOP0260 STA WSYNC0270 STA PRIOR ; Disabl=}e GTIA0280 CPX #$A00290 BEQ SKIP1 ; First LMS ?0300 ;0310 NOP 0320 SKIP10330 CPX #$42 ; Second LMS>} ?0340 BEQ SKIP20350 ;0360 STA $CB ; Three cycle0370 ; delay !0380 SKIP20390 STA $CB ?} ; Three cycle0400 ; delay !0410 NOP 0420 NOP 0430 NOP 0440 NOP 0450 STY PRIOR ;@} Enable GTIA #90460 DEX 0470 BNE LOOP0480 ;0490 STA WSYNC0500 STA PRIOR ; Disable GTIA0510 PLA 0A}520 TAY 0530 PLA 0540 TAX 0550 PLA 0560 RTI SYNC0500 STA PRIOR ; Disable GTIA0510 PLA 0E  =DPTSTRMULTIPLE PLAYER DEMOBY PAUL LAY&&(F!C}ROM PAGE 6 MAGAZINE - ENGLAND) MACHINE CODE FOR DLI72,138,72,162,192,165,203141,10,212,141,0,208,224(19!D}2,240,1,234,224,98,24022,165,204,165,204,234,234<234,234,234,141,0,208,202F208,224,104,170,104,64P-A6!E}Av"Z  dSET UP DISPLAYn +@$x'A @'A%%6-F:A`,%AV!F}$F:Aa,%@A@! @!-@@@++/A$H:,A$H:, SE!G}T UP PLAYER GRAPHICS6-F:A,&@@!AY@b!BBy'B2w@'A#@!H};@ ,'A@'B2HA$6.THIS IS PLAYER ZERO6-Ah A'AAB!I}'B2IA"67@,.ONE"6-A(" A,'AA'B2PA 6"67@,.T!J}WO"6-A@ AJ'A@b'B2QA(T$67@,.THREE$6-A@^ Ah'B2!K}RAB'B2SA@r'B2TA8'B2UA6|*6.THIS IS ALL MISSILES*6-A A!L}'A'A@BBAMOVE BOTH INCARNATIONS OFPLAYER #0 -A"@H!M}6@#A#AAE&-@@  -@HA"#A#A!N}AE&)-@@  ) A@(-@B:,(-@DDAV$%%@$%F:B!O}sD%@$+@:7,,&@2,%,   $D1:IMPOSS2.BAS?-@DDAV$%%@$%F:B K0100 ;MULTIPLE PLAYER DEMO, SOURCE0110 ;BY PAUL LAY0120 ;(FROM PAGE 6 MAGAZINE, ENGLAND)0130 HPOSP0 = $D0000140 WSYNC = $%Q}D40A0150 *= $06000160 PHA 0170 TXA 0180 PHA 0190 LDX #$C0 ; Loop over0200 ; 192%R} scans0210 LOOP0220 LDA $CB ; First position0230 STA WSYNC0240 STA HPOSP00250 CPX #$C0 ; First LM%S}S ?0260 BEQ SKIP10270 ;0280 NOP 0290 SKIP10300 CPX #$62 ; Second LMS ?0310 BEQ SKIP20320 ;0330 %T} LDA $CC ; Three cycle0340 ; delay !0350 SKIP20360 LDA $CC ; Second position0370 NOP 038%U}0 NOP 0390 NOP 0400 NOP 0410 NOP 0420 STA HPOSP00430 DEX 0440 BNE LOOP0441 ;0450 PLA %V}0460 TAX 0470 PLA 0480 RTI NOP 0420 STA HPOSP00430 DEX 0440 BNE LOOP0441 ;0450 PLA $+kPFATNUMBEFLADELA )X}NAME THE PRESIDENTS!REM BY PETER LOESER(c)1987, ANTIC PUBLISHING9+@%@'A@49-)Y}@%%(@NAME THE PRESIDENTS!/%2@P@@/ AP#7-@7(@)Z} (/%2A@@/ AP27-@7(@name the presidents!)[}7Q%2@AP@@G2Q APA7-@7(@ Š)\}ӡCQ%2@A@@G2@Q APP7-@ 7(@)]}NAME THE PRESIDENTS!RQ%2@AP@@G2@Q APU%%2@)^}Zu (}AR@-A@4?A@4Q-@@u(Let's see if you know th)_}e names_**("of our Presidents in their correctdKK(Corder. I'll give you their first names, you give their last...)`}n;@ ,;@ ,s(;@ ,6-@@(6-x "6-@7-@@ 7(PRESIDEN)a}T NUMBER  WAS...C A@A1B7tACA@d4DMCA4-@@)b}'AR@0( 44HELPA0A 5+@%@'A@456-%@)c}0-@@0(@ * * * * * * *0-@@0(@ * YOU ARE *0-@@0()d}@ * CORRECT *0-@@0(@ * * * * * * * A@"AR@6 A @E ()e}}-@@7(SORRY, THAT'S WRONG ...E6-%@J/( (/(! If you can't get it you may typeO%(%( )f} HELP, but first...T-@AP ^ (}h3-@@ 3(TRY PRESIDENT  AGAINr A| )g} ApE (}-@@7(THE ANSWER WAS  E6-%@ AP (} A AP)q}B%DOS SYSB*)DUP SYSB1SBALANCE BASBDICTION 1 B{FBPRED BASB#FLASH BASB'GRAPHDEMBASB:GRAPHDLIM65BBPLAYDEM BASBPPLAYDEM M65B#WPRESQUIZBASBFPROMPTERBASB+PSC DOCB-PSC EXEB`!RESISTORBASBSPELL DATpSPELL M65_ SPELL SUB hVBIRD BAS-@@-@@u2@@ %%2)r}-@@P  - }A@4-A@4$1,GEORGE,XBTIJOHUPO2,JOHN,BEBNT&)s}3,THOMAS,KFGGFSTPO04,JAMES,NBEJTPO:5,JAMES,NPOSPFD6,JOHN QUINCY,BEBNTN7,ANDREW,KBDLTPOX8,MARTIN,WB)t}O!CVSFOb9,WILLIAM H.,IBSSJTPOl10,JOHN,UZMFSv11,JAMES K.,QPML12,ZACHARY,UBZMPS13,MILLARD,GJMMNPSF)u}14,FRANKLIN,QJFSDF15,JAMES,CVDIBOBO16,ABRAHAM,MJODPMO17,ANDREW,KPIOTPO18,ULYSSES S.,HSBOU19)v},RUTHERFORD B.,IBZFT20,JAMES A.,HBSGJFME21,CHESTER A.,BSUIVS22,GROVER,DMFWFMBOE23,BENJAMIN,IBSSJTPO)w}24,GROVER,DMFWFMBOE25,WILLIAM,NDLJOMFZ 26,THEODORE,SPPTFWFMU27,WILLIAM H.,UBGU 28,WOODROW,XJMTPO*)x}29,WARREN G.,IBSEJOH430,CALVIN,DPPMJEHF>31,HERBERT C.,IPPWFSH32,FRANKLIN D.,SPPTFWFMUR33,HARRY S.,USVN)y}BO\34,DWIGHT D.,FJTFOIPXFSf35,JOHN F.,LFOOFEZp36,LYNDON B.,KPIOTPOz37,RICHARD M.,OJYPO38,GERALD R.,)z}GPSE39,JAMES E.,DBSUFS40,RONALD,SFBHBO0,END,END? (}A@4-A@4?AR@){}>-@@>($,,($(-@@)|} (( ՠ .-@@ .(ӠϠ٠(-@@(( .-@)}}@.(ӡ ,,($,,($A-)~}@A('PUSH TO QUIT ŠŠG-@A('PUSH TO RERUN ŠŠ)}D(G($%F:B2y,"@"+%)F:B2y,"@%. A`La-@@a(G)} | ANSWERS MUST BE SPELLED |VPP(H | CORRECTLY TO BE ACCEPTED! | | )} |`++(# | USE ONLY UPPERCASE LETTERS. | j**(" tN"@ -@B:)},>67<,.>:@:7<,,&@,B N6-y$~-@A $D1:PRESQUIZ.BAS -@B:(k?@(""SCOPTT2SEJOXBEERERIOERFNERMODBLLSC-} -} ANTIC PROMPTERBY HEIDI BRUMBAUGH%%(c) 1987, ANTIC -}PUBLISHING INC.(%%(DO NOT RENUMBER THIS PROGRAM!)2/ +/6-F:@,%AV$F:@,d1 +@AA-}H1AAnV-@@((@ANTICD(@ PROMPTERVAR@x88(0By Heidi-} Brumbaugh B B ( }Main menu:( 1 - Screen editor##( -} 2 - Save text to disk%%( 3 - Load file from disk&( 4 - Prompt speech0( 5 - ExitX A@-}((Option b9/ApA0A AB'g9 A;(1(&Please enter a number between 1 and 5-}.; A BYB:,!(}+-@@=AR@O( One moment...Y ASB:,!-} A$T-(%}Please enter text (or the name of anT("ASCII file) before using prompter.6-@ B@-}$%%MAIN SCROLL ROUTINE STARTS HERE BDISABLE TRAPE6-@6-@P'6-36-@E-}AdAUU +@A@1AA"CA @UAA"! A!DRAW FIRS-}T SCREENBF:AD,"$6-86-@#@B A$%"@6-@ % A.&"@-}6-6@ & A8'"@6-%@' AB#@ A# AD)6-&@ -})6-F AL"AV A@ STOPPED* F:Ad,AUA*GET OUT&6-}-F:A2,&"@A A`IAdAU)-@A- 0$IEXIT TELEPROMPTER HERE..SC-}ROLL UNTIL JOYSTICK OR TRIGGER PRESSEDWA")+B:,&@*"@ ,)+"@*"6@ ,M6-W A@-}% 6-%6-%A%6-@-@@ 5567<,.>:@:7%&@<%&@,,%A(, -}"@ Ap{6-@6-%@9#6-/6-@A-_(@7@<@ ,m-@-}q { A"06-6@6-$6-%@ 06-@,-@ $6)-)(@7&@<-},J'-@ '6-%+@$,Q"@6-F:A2,R$F:AD,"$6-T ^3--}3(@7@<@ ,h:F:Ad,AU$6-06-@: Ar"@6-F:A2-},|$F:AD,"$6-!!"@*A$, B((}What is the filename,A-} A!@5@@A6-@1 (}-@@1(Reading file...2)@-}"AU(6-@22 A 5D- @2)+A#*AY,A 0DIGNORE CONTROL CHARS'67,.>:,6-%-}@' A 0( completed. 6-@ B@ 6.$4?6-F:A,46-F:A,$AV%F:A,-}?@>"A6A @EOFCI"@*"A 5((?(File too long...truncating.I A EHG"Ap-}(.(Error-- file not found.:6-@D B@G$R%6-A P6-A % B0 ( B(OUTPUT TEXT T-}O DISK FILE B:,!A0 M-(%}Error-- you haven't entered text, orM(have already used prompter. 6-@-} B@$ " A5"SEE IF FILE EXISTS ( }File name @@ @ -}(}File already exists. ( ( 1 - Overwrite file $$( 2 - Append text to file ( 3 - Cancel 3(%-}(What would you like to do/ A13 A2A3A4& ?("(Please enter 1, 2 or 3., A0?INVA-}LID RESPONSE 6-@ A6 6-@  A6H A9 KF:A,"Ap#@/6-@9 -}A6KCREATE NEW FILE %6-A96-A0% BWRITE TEXT TO FILE<6-A96-A0% B<-}@$(@.@$PARSE STRING AV6-@6-@!7<-},4 AS@D!@6-&@' AS0DFIND END OF 20 COLUMN LINE6-@![+67<%&@,.7@-}<&@,;6-%&@[PUT LINE INTO NEW TEXT STRINGS6-@!&!567<%,.7@<,=6-%-}SFILL TO END OF LINE@7<,4 6-%@( AS`@BEGINNING OF NEW LINE-6.7 B/6-F:A,$AV%F:A,>6-F:A-},--"AS0*+"@ )"@,AT--"AS`*+"@ )"@,AU&#(ERROR  AT LINE -} .&XSCREEN EDITORbF B-@@K:?@F(}l6-6-v-})@7!"AU)"AWAp07DISABLE INSERT MODE'"@'Au'EXIT WITH ESC@"AU*"-}@# (@THROW OFF CR AT END OF SCREEN!"@0*"!(>:,b (>:,6-F:@,<6-F:@,%AV-}$F:@,bPRINT CHARACTER AND ADJUST POSITION_"@#*!@8%-@816-@8?(>:AS,_CAN'T T-}YPE PAST END OF SCREENY"@96-)6-%@7(>:AU,YLEAVE ONE SPACE AS RIGHT MARGIN Ap0-}L''ESCAPE PRESSED; READ SCREEN VALUEV'@ AR@'(j 6-%t6F:,"@,6-&-}@6 Au@~6-&%@6-@-@$$P:'@@,"'@@Av@6-F:%&@,-}'@c6-%@2' Av0'@6-&@d' Av0A'Av0'A6-%@2-}' Av0'A#6-&@d' Av0"AU6-@2567<,.>:,'%&@@56-%-}@ AR6.$'CALC. SCREEN'!!6-+@$$@@,&@t'96-A 9;,;-}%A,;AU,;@ ,~') 6. 67@ ,.)67@,.*$. B0. ASPARSE STRING.6-}7B:,&@,./,,67B:,%@,. (C) 1987 /,,67B:,%@,. /,,67B:,%@-},. &/67B:,%@,.0/,,67B:,%@,. Ӡ٠ :/,,67B:,%@,. Ϡ-} D/1 +@A@1AA"N/Y6-@P6-'6-@36-@= BOA-}dAUY AX/6-@  A@b/ 6. $2pp67@<@,.UANTIC CORDIALLY WELCOMES YOU TO THE A-}NTIC PROMPTER! THIS JOYSTICK-DRIVEN TELEPROMPTER2pp67@<Ap,.U IS EASY TO USE; SIMPLY TYPE IN YOUR TEXT (OR THE -}NAME OF AN ASCII FILE ON DISK) AND 2pp67Aq<AU,.UYOU'RE READY TO GO! PUSH THE JOYSTICK UP TO MOVE FORWARD; IF YO-}U WANT TO GO BACKWARD 2pp67AV<A@,.USIMPLY PULL THE JOYSTICK BACK. PRESSING THE TRIGGER TEMPORARILY STOPS MOVEME-}NT. TO SC2pp67AA<A%,.UROLL FASTER MOVE THE JOYSTICK LEFT; MOVE IT RIGHT TO SLOW THINGS DOWN. TO RETURN TO T2D-}D67A&<Af,.)HE MAIN MENU JUST PRESS ANY CONSOLE KEY. 3$6 PAUSE6'@'@ 6-}F:@, B@ 7$ N BDISABLE TRAP*N@CLOSE CHANNEL4N46-F:A,46-F:A,$AV-}%F:A,>N77+A8*A@,)"AB)"AdBHN++"Ab)"Ai)"ADBRN++"A0-})"A`)"AeB\N##(Error-- at line .fNUNPREDICTED ERRORN)()( I/O error #  has occ-}urredN$$(while trying to access disk.N(Check the disk andO( try again.(O6-@ B@ LO)()-}( I/O error #  has occurredVO##(while trying to write file.`O))(!The disk or directory is full, orjO$$(the disk-} is write protected.tO-*("Please replace disk and try again.-(~O6-@ B@ O((Illegal file name.-}O)&(Filenames must be in the form:)(O( D:FILENAME.EXT(O--(%Where D: is the device name, filenameO**("is t-}he name, which must begin withO))(!a capital letter and contain onlyO,,($letters and numbers, and .ext is theO( ex-}tension.P((Please try again.( P6-@ B@ D1:PROMPTER.BASumbers, and .ext is theO( ex,\PERSONAL SPELLING CHECKERBY BRYAN SCHAPPEL and BARRY KOLBEThis speedy, powerful machinelanguage program supports up to 11}0personal dictionaries. It's easy touse and works with most DOS files. A48K system and about 31,800 freebytes give you a1}bout 6,360 words perdictionary (counting about fivebytes per word) -- as many as 63,600words altogether.GETTING STARTED1}Format a blank disk with DOS 2 or2.5, then use DOS menu option "H" toWRITE DOS FILES to the disk. Thiswill be your Person1}al Spell Checkingdisk. Next, copy PSC.EXE to this disk.Rename PSC.EXE to AUTORUN.SYS.Finally, copy DICTION.1 to thisd1}isk. This is a dictionary file. Turn your computer off and placeyour Personal Spell Checker diskinto drive 1. Remove al1}l cartridges(hold down [OPTION] on an XL/XE) andturn your Atari ON. At the prompt, insert aDOS-formatted disk that wil1}l containyour dictionaries (the monthly diskcontains DICTION.1, a sampledictionary for you to use). You canuse the progr1}am to create additionaldictionaries. Legal dictionaryfilenames are DICTION.0 throughDICTION.9. NOTE: The program m1}ay only useone dictionary at a time. (Forexample, after proofing your textfile with the first dictionary, youmust stop, l1}oad the next dictionaryfile, and check the text again.) If there are no dictionary fileson your disk, the program choos1}esits built-in default dictionary.The top half of the screen displaysinformation to help you use theprogram, such as the1} amount ofavailable memory, your currentdictionary and disk directories("catalogs"). The bottom half isyour work area. 1}This is where themain menu will appear. Choose a menu item by typingthe number or the first letterof that item:1) Pro1}of Document2) Delete Word3) View Dictionary4) Add File to Dictionary5) Catalog6) Exit PSCProof: Type in a filename. (1}"D:"isn't needed if you're using drive1.) The top of the screen shows thefilenames of the current dictionaryand file bei1}ng proofed, the amountof free memory, the number of wordsin the dictionary and the number ofwords proofed so far. Below t1}his isthe context line, which shows thepart of the sentence containing theword being checked. An unknown wordis highlight1}ed and displayedseparately below. If it's spelledcorrectly, just press [RETURN] atthe "Correct?" prompt. Otherwise,type1} in the correct spelling. Toadd the word to the dictionary,press [RETURN] or [Y]. Press [N] toskip it.Delete Words: En1}ter the word to bedeleted from your dictionary. Thenpress [Y] after the prompt "Deleteword? [Y/N]" to remove it.View Di1}ctionary: This is forexamining the current dictionary.Pressing any letter key displays thewords beginning with that letter1}.For more words, press [RETURN].Words can be up to 29 characters.Add File: This lets you build adictionary fast -- but d1}o this onlyif you're sure that all the words inthe document are spelled correctly.Catalog: This gives a directory ofdriv1}es 1-4, or 8 for a RAMdisk.Exit: At this point you can save thecurrent dictionary by putting yourdictionary disk in drive1} 1 at theprompt and pressing [RETURN]. Youcan now restart or return to DOS.If you restart, the currentdictionary remains1} in memory, butyou can load one differentdictionary if you want.The first two bytes of a dictionarycontain the number of1} words in thedictionary. Next are 27 pointers tothe beginning of each set of words,A-Z. This speeds up the search fora 1}particular word. The 27th pointerpoints to one byte after the end ofthe dictionary. Third is a tablecontaining the numbe1}r of words undereach letter.Finally there is the defaultdictionary of 26 words. These areAT, BUT, CAN, DO, END, FOR, GE1}T,HOW, IN, JOG, KNOW, LET, ME, NO, ON,PUT, QUIT, RED, SO, THE, UP, VAN,WHO, XEBEC, YES, and ZIP. The firstletter is not1} actually present inthe word, and the last letter is ininverse video. Each single-letterword -- that is, "I," "A" andwha1}tever other single letters youchoose to call "words" -- is storedas a single inverse letter.If you choose a command by mi1}stake,press [RETURN] at the first promptto go to the main menu.When proofing a document, PSCcreates a file called DOC.TM1}P andwrites your corrected document toit. Your document disk must have atleast enough room for one copy ofthe original d1}ocument, or theproofreading process will abort.Since you can specify any drive asthe source disk, the DOC.TMP filewill a1}lso be written to that drive-- so if you have a RAMdisk, thisprogram flies.When the file has been proofedsuccessfully, t1}he source file isgiven the extender ".BKP" (even ifit already had an extender), andDOC.TMP is given the originalfilename.1}This program is not case-sensitive,so you can enter words in eitheruppercase or lowercase -- eveninverse video -- and th1}e programwill convert them to normaluppercase. The only time thisconversion is not performed is whenyou enter a correcte1}d spelling for aword during a proof. EXTRA BONUS: We've also includedSPELL.M65, SPELL.DAT and SPELL.SUB,the MAC/65 sou1}rce code files forthe Spelling Checker. Due to thesize of these files, they have beenstored in MAC/65 "SAVEd" form. Yo1}u do NOT need these files touse the PSC program.hesize of these files, they have beenstored in MAC/65 "SAVEd" form. Yo02 -=1L#_|^`"}Enter RETURN for DEFAULT DictionaryWhich # to Load: Wo5}rking Dictionary #: I/O Error - Press any key Re-startFile to Proof: Add WordAdd File: Delete Word: Delete '5}Word Not Found.Save DictionaryInsert disk, Press View Letter [A-Z]? View More Words in ' '.Drive [1,2,3,4,5}8]? 12348}1) roof Document2) elete Word3) iew Dictionary4) dd File to Dictionary5) atalog6) xit PSC5}Choice > PDVACEQRRRRRRRRRRRRRRWRRRRRRRRRRRRRRRRRRRRRRRE|$ictionary|&ile|ARRRRRRRRRRRWRRXRRRRRRRRRRWR5}RRRRRRRRRRRD|&ree|7ords|#ount|ZRRRRRRRRRRRXRRRRRRRRRRRRRXRRRRRRRRRRRRC5}000 1112b437?9H512Ck1 u?11 1`轊1H) >h`83Cj4C5}` 8BCCCȱȄ10轊1фĮ`eiŕʥŖ8`Ӡ. \< >u11:1:- ?0_5} @0Z1 v< C@) }B 32 p2 ;> _B& Lb4/ \< P2' ; >бȹ1 p2ei3C8廅46}C弅 85C6CN5C85C6C6C S3B8BBB C51)8@ B8婙BCC v1/ \<&/ \<:/ \< 8; <0BÝD-EJK V ; > L<Щ B V < <_ \b \ЩBѝD-E JK V@l - <0BÝD-EJK V 6}>hh <.a 8` d909-1 挠1ɛ <<i6 }恥İ  <` : b:L: :( - ` - `c/ \ !` ::/ ЎԆ6}ʎčʆ' ; #0-1L;ԠW; \e; \ԩ( s-s- @;L;6} S<ɛ`i(`H ԍh@ЈL_ i0Х itLb}"#$􅇥`ɛ L<6}~ ; ;` <L=`{}ҥ̝1 >Ý11L; ;` @?. \<.6} \< ;. \< S<ƍ` ;0 \< >Hi '8J. \< P2h! !> ;憠 = t81ɛ 7 p2 6}. \< > 3`). \< S<ɛ)YYNY ;ƍ ;(`k1` =8`1:1:.11 u?6}1ɛ11ESD1`ԅ ؠ .ȱ)󄢩8墪H.h`ɛ )a{)`. \<膸 >@ ?06}81 v< C@ }B _B 32 p2 3 11 <<)>1Ȅk1 <<)>1((0 <<)>1ii) <<)>1('>1!`iCjClCnCo6}CqCsCuCwCxCzC}CCCCCCCCCCCCCCCCUANOEOONOEUU6 }IEHAHEBEEI -CCCCCCCCCCUANOEOONOEUU4=>>|//DWATSCSXYTSTNPGETOLZZTSTARZTD:"} @@@:#}RESISTORSBY CHUCK ROSKO(c):$}1987, ANTIC PUBLISHING B i +@ B! Bc+ B`5 @? BdK6-@ U Be_ B:%}`Pi A6-&@~-@ @%(@00Q6-@ $+!@ ,%@$+ @,]-@:&}j(@~A$#-@@+-@&@C(@7@<,U-@@:'}u(@7@!&<@ ,2@$@@& (L-@A %A`7,@:(}I/@@L$-<6. ( @52 @ < A2A@72A%:)}@@K-@@PO q2AA7/-@A % @ :*}/ A<M6-@$+!@,%@$+!@ * A,%@$+ @,o2@P@@:+}-@@"(@000AA-@"(@>2A$Fuu6-@$+!A *:,} B,%@$+!@* A,%@$+!@ * A,%@$+ @,K@!A6---:-}@(@00000Pc%2@P@@1-@>(@`2:.}c$UP6. PLEASE WAIT WHILE ( @5C6.NEW CIRCUT IS FORMEDM @5P$Z%2A@@E6-:/}?:A6:,|6-F:B %@ $+$@,%+$@,,"@`A!!!A* A:7}AUWW Ap$+"@,%A$+"6@,%A$+"@,%A$+"6@,6-%@#A:8}@u- @;6-%@MA@sW @e6-%@o @}6-%@A@t @:9}A6-%@#AA&- @7 @ A A6-&@#A@t- @;6-&@::}MA@sW @e6-&@o @}6-&@A@u @A6-&@#A:;}A&- @7 @ A Aq6-%@#A@r- @;6-%@E @S6-%@] @:<}g @ q Aq6-&@#A@r- @;6-&@E @S6-&@] @g @ :=}q AW6-&A36-+8,",&+8,"@,>6-8,$W Ae%+@$8,, X AW,8,@:>}&AC5,8,@?AXN,8,@X AuN A,8,@&A5,8,@?A:?}N,8,@y-+%,A`E,@%+$@,@%+$@,o/@%+$@,@%+$@:@},y @`=#6-?:A6:,p6-z A,"@A01G6-%+$@,'6-%+$@:B},G6-?:A6:A,c67%@<%@,.>:A,6-P:H:,$@,%A67<:E},.>:,6-E @ AJ26. ٠Ġ( @52 A S-AAU@3-:F}@K2&@@O S O-@A /-@K2O :G}M6. TASK NOT COMPLETED ( @5C6.ELECTRON CHARGE GONEM @5%6-&@%"A%s-@:H}@"(@=6. ELECTRONS REMAIN_67@<@,.>:%AD,i @5s A  A@':I}A @9A@KA@h-@6@2$@@@&_:J}AA 'A3A7 I-_(@>:A%,qA@p'A A:K}9AA@KAAg6.SEVERE POWER FAILURE q @5_6.Ҡ̠ŠӠ( @5:-@:L}@G(@[-@A_ !> B+@4AVF:A,%@> B`"5 @ :M}Bd! Be+ B`P5 A ^-@52AU&@@9 T6. CIRCUT COMPLETED ^ @:N}%Y%6-?:C:hiЎ `,,9-@U2Y \-@6@(6-:O}%@2 @p6 D6-&@P"@\6-@p @ B`! Bd+ Be5 B`pA6-@:P}M6-_-@@p(@09926. CIRCUT IS COMPLETED( @52 A8JASSEMBLY CODE:JRR;:Q}@2,;@ ,;A(,;@p,9@,9@,9@,BJ**6. hhhhh͢ˑ͈`VJ] A:R}F:A,&@*+@K6-+F:A,%@,$AV]AR@[JA6-?:C:,<BsD<,76-?:C:,<Bs:S}D<%A,A#BP`JI-A@3-@7"A%%E I eJ- +@*AVF:A:T},%@-$aFF0,0,0,0,0,0,0,0,44,44,44,44,44,44,44,44,102,238,238,102,51,0,0,0aGG0,0,255,0,255,255,0,0,0,0,15,24,:U}51,39,46,44,44,46,39,51,24,15,0,0aWW0,0,240,24,204,228,116,52,52,116,228,204,24,240,0,0,44,110,207,159,159,207,110,44a``:V}60,102,195,24,255,255,126,60,55,119,239,239,239,239,119,55,236,238,223,223,223,223,238,236aaa231,231,207,207,207,199,231,:W}231,189,189,57,123,123,57,189,189,182,182,36,109,109,36,182,182aee255,255,255,255,255,255,255,255,255,195,153,153,153,129,:X}195,255,255,199,135,231,231,129,129,255aee255,131,249,193,159,129,193,255,255,131,249,225,243,153,129,255,255,243,227,203,:Y}153,129,243,255aee255,193,159,131,249,129,131,255,255,195,143,131,153,153,195,255,255,131,241,241,227,199,143,255add255:Z},195,153,195,153,153,195,255,255,195,153,153,193,241,195,255,60,102,195,129,129,129,129,129acc129,129,129,129,129,129,129,:[}129,129,129,129,129,129,195,102,60,60,126,255,255,255,255,255,255aTT255,255,255,255,255,255,126,60,52,52,52,52,52,52,52,52:\},15,0,15,252,15,0,15,255a\\60,118,118,118,126,126,118,0,124,118,118,126,115,127,126,0,62,119,112,112,119,127,62,0a__124:]},118,115,115,119,127,126,0,126,112,124,112,112,126,126,0,126,112,112,124,112,112,112,0aVV62,115,112,119,115,127,62,0,118,1:^}18,118,126,126,118,118,0,62,62,28,28,28,62,62,0aZZ14,14,14,14,110,126,60,0,102,108,120,124,110,110,110,0,112,112,112,112,1:_}12,126,126,0aYY99,119,127,107,99,99,99,0,115,123,127,127,119,115,115,0,60,118,118,118,126,126,60,0a\\126,119,119,127,12:`}6,112,112,0,240,0,240,63,240,0,240,255,126,115,115,126,126,119,119,0aTT63,120,62,7,127,127,126,0,127,28,28,28,28,28,28,0,1:a}15,115,115,115,127,127,62,0aRR115,115,115,119,127,62,28,0,99,99,107,127,127,119,99,0,0,0,255,255,0,255,0,0aWW115,115,11:b}9,62,28,28,28,0,223,223,223,0,251,251,251,0,63,96,192,128,128,192,96,63aCC255,0,0,0,0,0,0,255,252,6,3,1,1,3,6,252,1,144,20:c},8,81,72,18,0a0,20,72,162,68,160,5,130eKA@p'A A9AA@KAAeN-:d}N(@Š lives00000 099 3 ed-@d(@ $#############& :e}  ! ? r  ! ? eee-@e(@ ! ? s  ! ? i :f} ! ? s ee-@ e(@ ! ? t  ! ? o  ! ? r :g}ee-@e(@ ! ? s  %XXXXXXXXXXXXX'  ee-@e(:h}@  ee-@e(@:i}7 6 5 4 3 2 1 0 ا ew-@!b(@000000:j}ااtAY@Fw$e?6-6-@'6-@36-@ ?6-e2 #B`e!:k}-@@%".68,-2 e(-@@"$68,-( e..1,2,4,8,16,32,64,128,16,14,12,10,8,6,4,2e*:l}-@@&68,-* e%6-P:H:,$AU,%@o6-@$+!@,%@$+!@ * A:m},%@$+ @,{-@"(@e}6-P:H:,$@,56-+$@,%@A6-[6-+@p:n}$%%A,i6-@:7<,,}"@`B`e!!!A* AB`e$fSCROLL SUBROUTINEf2 #Bc!:o}-A6A%"+/ 2$f!!104,104,133,204,104,133,203fhh162,0,160,0,177,203,157,211,152,232,200,192,13,208,2:p}45,138,24,105,7,170,224,180,240,20,234,165,203fff24,233,185,144,2,230,204,165,203,24,105,70,133,203,24,144,214,169,193,141:q},41,153,169,0,133,77,96gDRAW CIRCUIT BOARD g*gu67@,.(-@@u6.FA_A_:r}A_A_A_A_/g/67B:,%@,. /-@@4gdP6.FCCCCCCCCCCCC:s}CCCCCCCCCCCCCCCCCCCCCCd67B:,%@,.9gdP6.FAAAAAAAAA:t}AAAd67B:,%@,.>ghP6.FAAAAAAAAAAAAd6:u}7B:,%@,.h CgdP6.FAAAAAAAAAAAAd67B:,%@,.Hgg:v}P6.FAAAAAAAAAAAAd67B:,%@,.g$g{-@ @d@:w};-@@1@]6-P:H:,$@,%Am6-$@p%{67<,.>:,g   g-@:x}gy6-P:H:,$@,56-+$@,%@O6-P:H:,$@,g6-+$@,%@y6-+@p$%,g:y}7<,4<BeRg11@:7<,,!A*@:7<,, ABeRg67<%@,.;<= h-AAh:z}y6-P:H:,$@,56-+$@,%@ O6-P:H:,$@,g6-+$@,%@y6-+@p$%,h:{}7<,4<BfR h11@:7<,,!A*@:7<,, ABfR$h67<,.>:, $ys +@A1:|}A CAUAd6-F:A`,s6-F:Aa,yY-@@1(@antic maga:}}zineC-@@Y(@presents"y;6-%$AV'%@@;%@@'yb-@@:~}4(@F-@@b(@By Chuck Rosko,y7-@7(@PRESS start TO:} BEGIN6yuA`Aa-AA?AAQA AcAuAA@;:}yF:B2y,"@$@y B5D1:RESISTOR.BASAQA AcAuAA@;8>d dX;--------------------------nX;xX;DATA/HOLD AREAS FOR SPELLX;X;--------------------------X;X;Display L>}istX;DLIST p=p=p=R MYLINE =B TOPHALF ==== ==0=B BOTHALF ====>} ==== ==A DLIST"X;,MYLINE =A A6 =AThe PersonalA@ =A Spelling AJ =AC>}hecker AT =A A^X;h ITXT r Aby: Bryan SchappA| Ael and Barry KolbeA == AInsert Dictionary >}A ADisk andA == APress A ;;end of textX;X;Misc. TextX;DIC_NAME AD1:DICTION.?A E>}OL=EADR AE:ABKP_TXT EOL=APKB.ATMPNAME AD1:DOC.TMPA=EOLFREETXT AE SECAD_HEAD =A DictionaryA&>}DIR_N =A Directory A0DIR_Q =AD A:D_NONE =A NONE ADD_CONT =A CONTEXT AN =ALINE AXNOT_F AC>}orrect? A=bD1TXT AD1:AlDIR_TXT AD1:*.*A=EOLvYNTXT A [Y/N]? A=A2I @== =`X;LIKE_SPC A .,?;:()>}!-/\A A[]+*=$%&@<>#_|^A EOL==`="X;WHAT_D }=AEnter RETURN A Afor DEFAULT DictionA AaryA=EOL=EOL>} AWhich # to Load: A=X;DEF_NUM EOL=EOL AWorking Dictionary A A#: A= X; IOTXT EOL=AI/O Error ->}A= NUMBUF A A=*WAIT_TXT EOL=APress anyA4 A key A=> REST_TXT EOL=ARe-startA=HX;RPROOF_NM AFi>}le to Proof: A\ fX;pADD_TXT AAdd WordA=zADD_FILE AAdd File: A=DEL_TXT ADelete Word: A=DEL_IT EO>}L=ADelete 'A=WNF EOL=AWord Not Found.A EOL=SAV_TXT ASave ADC_TXT ADictionaryA=DC_PRM EOL=AIn>}sert A=DC_PRM2 A disk, Press A A A=X;V_TXT AView Letter [A-Z]?A A A=V_MORE AView MoreA=>}X;N_WORDS A Words in 'AN_W A '.A=$DRIVE_N ADrive [1,2,3,4,A. A8]? A=8LEGAL_D A12348ABX;LM_>}MENU }=AAV EOL=EOL` A1) roof DocumentAj EOLt A2) elete WordA=EOL~ A3) iew DictionaryA EO>}L A4) dd File to A ADictionaryA=EOL A5) atalogA=EOL A6) xit PSCA=EOL=EOL AChoice > A=X;CO>}M_KEY APDVACEAX; INFO_BOX AQRRRRRRRRRRRRRRWRRRRA ARRRRRRRRRRRRRRRRRRREA A|Dictionary > | FiA  Ale > >} A A |A AARRRRRRRRRRRWRRXRRRRA( ARRRRRRWRRRRRRRRRRRRDA2 A|Free: |Words:A< A |Count: >} AF A |AP AZRRRRRRRRRRRXRRRRRRRAZ ARRRRRRXRRRRRRRRRRRRCAdX;nM0 AA=xM1 AA=>}M2 AA=M3 AA=M4 AA=M5 AA=X;"NAMTAB M0=M1=M2=M3=M4=M>}5X;X;Command TableX;COMTAB PROOF DELETE VIEW JUST_ADD DIRECT QUITX;"X;Buffer Space,X>};6CNLINE-;;context line@WORD;;current wordJT_WORD;;tokenized wordTLAST_WORD;;last word^MYBUF-;;in>}put bufferhFILNAM<;;file namer EOL=ent wordJT_WORD;;tokenized wordTLAST_WORD;;last word^MYBUF-;;in<-6dEIn#X;------------------------------xX;X;The Super-SpellerX;X;by: Barry Kolbe andX; Bryan SchappelB}X;#X;------------------------------X;PASSPASS PASS>D:SYSEQU.M65X;X;*** MACRO DEFIB}NITIONS ***X; PRINT " Q>4 , %>5 6 EPRINT@JX;T BUMP ^# h H@BMPr # |@BMPX;X;ZeB}ro Page UsageX; SCR SCR2 INDR XPOS YPOSLMARGINRMARGIN SAVEX SAVB}X2 COUNT IPUT& MAXLEN0 ILEN: CHARD RINDEXN WINDEXX TEMPb R_PASSl MAXGETB}v RXSAV RYSAV WXSAV WYSAV EOF? EOF2? OEOF?LAST_ONE RJUST WCOUNTB} ERRORWORD_POSDICT_NUM S_LEN LEN_1  LEN_2 FREEM  EDITED* ASAV4V_STARTB}> V_ENDH V_TEMPR PREFIX\NO_JUNKf ERRORRpOUTPUT?zX;X;Memory ManagementX; LLENB} HLEN FROML FROMH DESTL DESTH ENDPOSI ENDZPG EIX;X;Other EquatesX;B}WORD_C$ PLR2.X;8 BTOPHALFLBOTHALFVOUTBUF` INBUF jSTART!BEGINtX;~!X;INCLUDEB} DATA AND SUBROUTINESX;>D:SPELL.DAT>D:SPELL.SUBX;X;Zap Top-HalfX;ZAP_TOP%>CZAP_TPTOPHALF8B}PTOPHALF83 HZAP_T: X;X;Intro RoutineX;(INTRO ZAP_TOP2Q>:< PSDMCTLF$>P &EDITEDZ &COLB}OR4d &SIZEP2n &PMBASEx &IPUT &SHFLOK0&CHQ>Ī PPCOLR2$> &GRACTL0 &LMARGINQ>' PRMARGB}IN CLRSCRQ> PCOLOR2Q>  PCOLOR1" Q>4DLIST, PSDLSTL6 Q>5DLIST@PSDLSTLJ Q>4DLIT PVDSLST^ Q>5B}DLIhPVDSLSTrQ>| PHSCROL %>4IVBI $>5IVBI SETVBVQ> %>4DVBI $>5DVBI SETVBVQ> PNMIEB}NX;Q>4TOPHALF( PSCRQ>5TOPHALF(  PSCRX;$>& PTITL20 QITXT9:?DR>N FIADD40XP22bB} QITXT9lR>v FIADD40R> FGET_RET P@SCR73HP2IADD40 SCRADD40 !PTITLX;X;Just Read an EOL fB}rom K:X;GET_RET GETKEY R>EOL HGET_RET: X;X;Add 40 to SCR X;*SCRADD40QSCR4,>O>(HPSCRR DAB}DD_RTS\ #SCRf ADD_RTS:pX;zX;Display List InterruptX;DLI5Q> PWSYNC PCOLPF279X;X;ImmedB}. Vertical BlankX; IVBI%>IVBI.1QCOLOR08 PCOLPF08 1 IIVBI.1 !SYSVBV$ X;. X;Deffered VBI8 X;B DVBIB}Q>L >V DVBI.1PPLR29` 2j HDVBI.1t QIPUT~ FDVBI.OUT QXPOS T? T? , O>0 PHPOSP2 QYPOS T? T? B}T? , O>t > Q> PPLR29 DVBI.OUT!XITVBV( X;2 X;Clear Screen< X;F EPUTR>}P HEPUT_2Z CLRSCRQ>d ?n B}CLR_SCPBOTHALF8x PBOTHALF8 PBOTHALF8 3 HCLR_SC PYPOS QLMARGIN PXPOS : X; EPUT_2R>EOL HB}TRY_DEL PUTCRQLMARGIN PXPOS #YPOS !SCROLL X; TRY_DELR>~" HNORMAL, MOVELEFT6 GETSCR@ Q>J ?T PB}@SCR7^ :h X;r X;We assume the character is| X;'Normal'. X; NORMAL ASC2IC 5 GETSCR 7 %> P@SCR7 X;B} X;Move Right X; GORIGHT$XPOS 2 (RMARGIN DEPLEAV FEPLEAV #YPOS& SCROLL0 $LMARGIN: EPLEAV&XPOSD B}:N X;X X;This tries to Move Leftb X;l MOVELEFT$XPOSv 0 (LMARGIN EGOX $RMARGIN QYPOS HMVUP1 $LMARGINB} !GOX MVUP1"YPOS GOX&XPOS : X; !X;This gets the Address of the X;byte we want to put. X; GETSCRQ>4BOTB}HALF(  PSCR Q>5BOTHALF( * PSCR4 X;> %YPOSH GETSC1 SCRADD40R 1\ IGETSC1f QSCRp ,z OXPOS PSCRB} DGETSCDN #SCR GETSCDN: X; X;Scroll the screen X; SCROLLQYPOS R> DSCMOVEDN Q> PYPOS Q>4B}BOTHALF(  PFROMLQ>5BOTHALF(  PFROMH$Q>4BOTHALF. PDESTL8Q>5BOTHALFB PDESTHL Q>4V PLLEN` Q>5B}j PHLENt MOVE_UP~ SCMOVEDN:X;X;Make ASCII to ICODEX;ASC2IC BITER LA2I9 $SAVX2:X;X;Ready B}the BitsX; BITER5U?U? U?U?M>( &SAVX22><7FM>P:ZX;dX;Get a KeynX;xGETKEYQKEYBDVB}5QKEYBDV5:X;X;Print a StringX;EPRINTPEPRL 'EPRL EPRLQ FEPRLV EPUTBUMPB} EPRL !EPRL EPRLV:X;"X;Show INFO_BOX,X;6SHO_BOX ZAP_TOP@%>JSHB_1QINFO_BOX8T PTOPHALF8^3h)>B}r HSHB_1|X; QDICT_NUM ASC2ICPTOPHALF6%>SHB_2QFILNAM8 R>EOL FSHB_3 ASC2ICPTOPHALFB}@83)> HSHB_2X;X;Enter here to Update #'sX;SHB_3QNUM_WORDS&%NUM_WORDS0 CON_NUM:%>DSHBB}_4QNUMBUF8N ASC2ICXPTOPHALF8b1l ISHB_4v FIND_FREE %FREEM QFREEM CON_NUM%>SHB_5QNUMBUFB}8 ASC2ICPTOPHALF81 ISHB_5 %WCOUNTQWCOUNT CON_NUM%>SHB_6QNUMBUF8  ASC2ICPTOPHAB}LF8 1* ISHB_64:>X;HX;Close the DiskRX;\DCLOSE$>0fHDCLpCLOSE2$> z DCLQ>  PICCOM9 !CIOVX;B}!X;############################X;X;Start of ProgramX;!X;############################X; BEGIN-= QPOKMB}SKM>;;Kill BREAK PPOKMSK PIRQEN.$ INTRO.%>8Q> BER_I1PINBUF8L1V IER_I1` GETDIRj EUSE_B}DEFtPRINT WHAT_D~ #IPUTD_NUM GETKEY R>EOL FUSE_DEF1M>R> 0 DD_NUMR> : ED_NUM PASAV LB}OAD_DIC QASAV HSPELLX; USE_DEF1"IPUTUSE_DEFPRINT DEF_NUM #IPUT(G_NUM GETKEY2M><R> 0F DG_NUB}MPR> :Z EG_NUMdSPELLPDICT_NUMnPDIC_NAME x ZAP_FN SHO_BOX "IPUTX;MAINLOOPPRINT M_MENU #IPUB}TM_KEY GETKEY CONL2U%>M_COMRCOM_KEY8 FM_CK1 IM_COM GM_NUM M_CKC !M_ENTER M_NUMR> 0" B}DM_KEY,R> 76 EM_KEY@;JS> 1T M_ENTERT?^?h QCOMTAB8rPCOMJMP|QCOMTAB8PCOMJMP QNAMTAB85B}QNAMTAB85 CLRSCR PUT_A07?7 EPRINT PUT_A0 PUTCR #YPOS "IPUTCOMJMP!&X;0X;B}Print a Inverse Space:X;DPUT_A0Q>N !EPUTXX;bX;Input RoutinelX;vINPUT'MAXLEN$> &IPUT0 &ILENB}X;INLOOP&SAVEX GETKEY $SAVEX R>EOL FINDONE PCHARM>R>  DINLOOP R>~ HINEXT (>* FIB}NLOOP40> EPUTXH !INLOOPRX;\ INEXTR>`f FINLOOPpR>{z FINLOOPR>} EINLOOP QCHAR (MAXLEN FINLOOB}P PMYBUF9 EPUTX2 HINLOOPX;INDONEPMYBUF9 &ILENQ>PMYBUF9 PIPUT !PUTCR$X;.X;Put a B}byte but save X8X;BEPUTX&SAVEXL EPUTV $SAVEX`:jX;tX;Handle I/O Error~X;IOERRORQ> CON_NUMPRIB}NT IOTXTPRINT NUMBUF PUTCRWAITKEYPRINT WAIT_TXT #IPUT GETKEY "IPUT:X;X;Show NOT FOUNDB}X; NOT_FOUND CLRSCRPRINT M0Q>( PYPOS2 FIND_LEN<5F,PO> Z PXPOSdQ>'n;x SXPOSV? PXPB}OSPRINT NOT_F PRINT_WORD7 PRJUST$> %WORD_POSNOT_1QTOPHALF8L>PTOPHALF832B} (RJUST HNOT_1Q>" PYPOS, PXPOS6Q> >@ EPUTJ #XPOST%>^ INPUTh STRIPr QMYBUF| R>EOL FNO_REPB}X; MY2WORDNO_REP SEARCH DNO_R1Q> PYPOSQ>  PXPOSPRINT ADD_TXT GETYN HNO_R1 ADD_B}WORD NO_R1:X;X;Get a Y/N&X;0GETYNPRINT YNTXT: #IPUTDGET_W GETKEYN R>EOLX FHAV_YbM>lR> Yv HB}TRY_N HAV_YQ> Y HSHO_RESP TRY_NR> N HGET_WSHO_RESPR> Y6 EPUT "IPUT PUTCR8:X;X;Get WB}ord lengthX; FIND_LEN%>FND_1QWORD8  FFND_EN*34 HFND_1> FND_ENCH:RX;\X;Get a FilenamefX;p GETFNB}%>z INPUTX; QILEN HCOP0;:X; COP0$> QMYBUFR> : FYZERO QMYBUFR> : FYZEROB}%>COP1QD1TXT8 PFILNAM8$1. ICOP18%>B HCOPMYBFL YZERO%>VCOPMYBFQMYBUF9` CONL2Uj PFILNAM8t R>B}EOL~ FCOPFILD32 HCOPMYBFCOPFILDQ>PFILNAM8 QFILNAMR> E FINSDDR> S HCOPOK INSDDQ> DB} PFILNAM COPOK, :X;X;Make a number ASCII(X;2X;ENTER: Y=lo byte<X; A=hi byteFX;PCON_NUM'FR0Z PB}FR0d IFPn FASCx%>Q> CON_1PNUMBUF81 ICON_1X; CON_23 Q@INBUFF7 ICON_2M> P@INBUFB}F7 'RJUSTQ>; SRJUST>5"%>,CPYRJQ@INBUFF76 PNUMBUF9@3J2T(>^ HCPYRJh7r:|X;X;ConB}vert lower to UpperX;CONL2UR>EOL FCNNCRM>R>a DCNNCRR>{ ECNNCRM> CNNCR:X;!X;Just adB}d words to Dictionary X; JUST_ADDPRINT ADD_FILE $>& &OEOF?0 2: &OUTPUT?D GETFNN EJ_MAINX OPENINb GB}JUST_ERRl Q>v PWCOUNT PWCOUNT PLAST_WORD SHO_BOX ADD_LP GET_WORD QEOF2? HJADD_CL CONTEXT  B}SEND_WORD TOKENIZE SEARCH DUP_CNT ADD_WORD UP_CNTBUMP WCOUNT! SHB_3 ! !ADD_LP!JADD_CLQERRORR ! IB}J_MAIN*!R>4! FJ_MAIN>!JUST_ERR IOERRORH!J_MAIN DCLOSER! !MAINLOOP\!X;f!X;Open Input filep!X;z!OPENIN DCLOSEB}!Q>! PR_PASS!Q>!PRINDEX!Q>! PEOF?! PEOF2?! Q>4! PMAXGET! Q>5!PMAXGET!Q>! PRINDEB}X"$>0"Q>" PICCOM9$" Q>4FILNAM." PICBAL98" Q>5FILNAMB" PICBAH9L"Q>V" PAUX19`"Q>j" PAUX29t" !CIOV~"X;"B}X;Open OUTPUT File"X;"OPENOUT CLOSE2"$> "Q>" PICCOM9"Q>" PAUX19"Q>" PAUX29" PWINDEX"PWINDEXB}# POEOF? # POUTPUT?#Q>4TMPNAME# PICBAL9(#Q>5TMPNAME2# PICBAH9<# !CIOVF#X;P#X;Get a word from fileZ#X;d#GET_B}WORD%>;;indexn# 'NO_JUNKx#GET_1 GET_BYTE# $EOF2?# HWG_L# PCHAR#M># CONL2U#R> A# DGOT_SPC# R> Z# DB}ST_WORD#GOT_SPCQCHAR# SEND_BYTE# QOEOF?# HWG_L$ !GET_1$X;$ST_WORDQCHAR"$ PWORD8,$W_LOOP GET_BYTE6$ $B}EOF2?@$ HG_SPC1J$$>T$ PCHAR^$W_LP1QCHARh$RLIKE_SPC9r$ FG_SPC|$M>$RLIKE_SPC9$ FG_SPC$0$ IW_LP1$ QCHARB}$M>$R> $ DG_SPC$X;$3$)>$ EEAT_WORD$ QCHAR% PWORD8% !W_LOOP%X;&%G_SPC1#NO_JUNK0%G_SPCQCHAR:% B}PLAST_ONED%Q>N% PWORD8X% WG_L:b%X;l%X;Eat a word > 29 charsv%X;%EAT_WORD%>%EAT_1QWORD8% SEND_BYTE% QB}OEOF?% HWG_L%3%)>% HEAT_1%EAT_2 GET_BYTE% $EOF2?% HWG_L% CONL2U%R> A& DEAT_3 & R> Z& EEAT_3 &B} SEND_BYTE*& QOEOF?4& HWG_L>& !EAT_2H&EAT_3 SEND_BYTER& QOEOF?\& HWG_Lf& !GET_WORDp&X;z&X;Get a byte from file&B}X;&GET_BYTEQRINDEX&,& O>4INBUF& PTEMP&QRINDEX& O>5INBUF& PTEMP& 'RYSAV& &RXSAV&QRINDEX&RMB}AXGET& DFROMMEM' QRINDEX' RMAXGET' DFROMMEM$' FFROMMEM.'X;8' QEOF?B' FGO_GETML' #EOF2?V':`'GO_GETM GET1KjB}' 'ERRORRt'6~' Q>4INBUF' PTEMP' Q>5INBUF' PTEMP'X;'Q>' PRINDEX'PRINDEX'8' IFROMMEM'$>0' QIB}CBLL9' PMAXGET( QICBLH9 (PMAXGET( QR_PASS( HLEN_OK(( QMAXGET2(,<(O>F( PMAXGETP(QMAXGETZ(O>d(PMAXB}GETn(LEN_OK#EOF?x( QMAXGET(;(S>( PMAXGET(QMAXGET(S>(PMAXGET(X;(FROMMEM%>( 'R_PASS( QB}@TEMP7(BUMP RINDEX( %RYSAV( $RXSAV):)X;) X;Read @1K")X;,) GET1K$>06)Q>@) PICCOM9J)Q>4INBUF T) PIB}CBAL9^)Q>5INBUF h) PICBAH9r) Q>4|) PICBLL9) Q>5) PICBLH9)%>)MV_24QINBUF8) PINBUF8)1) IMV_2B}4)X;) QR_PASS) FCALL_CIO) Q>4INBUF) PICBAL9) Q>5INBUF* PICBAH9*Q>* PICBLL9&*Q>0* PICBLH9:*X;D*CALLB}_CIO CIOVN* 'ERRORRX*6b*ICALL_GOODl*$>0v* QICBLL9*,* O>4INBUF* PINDR* QICBLH9* O>5INBUF* PINDR* QR_PB}ASS* HC_END* QINDR*,*O>* PINDR* QINDR+O> + PINDR+ C_END%> +Q> *+X;4+GET_K1P@INDR7>+BUMPB} INDRH+ $INDRR+(>5INBUF \+ DGET_K1f+CALL_GOOD8p+:z+X;+X;Send byte to Output+X;+SEND_BYTE'WYSAV+ &WB}XSAV+5+ QOUTPUT?+ FSEND_1+Q>+ POEOF?+7+:+SEND_1QWINDEX+,, O>4OUTBUF, PTEMP,QWINDEX$, O>5OUTBB}UF., PTEMP8, QWINDEXB, HTOBUFL,QWINDEXV,R>`, DTOBUFj,X;t,Q>~, PWINDEX,PWINDEX,$> ,Q> , PICCB}OM9, Q>4OUTBUF, PTEMP, PICBAL9, Q>5OUTBUF, PTEMP, PICBAH9,Q>, PICBLL9-Q> - PICBLH9- CIOV- INO_B}B(- #OEOF?2-NO_B'ERROR<- TOBUF%>F-7P- P@TEMP7Z-BUMP WINDEXd- $WXSAVn- %WYSAVx-:-X;-"X;Send remaining buffeB}r to file-X;-SEND_END$> -Q> - PICCOM9- Q>4OUTBUF- PICBAL9- Q>5OUTBUF- PICBAH9- QWINDEX- PICBLL9-QWIB}NDEX. PICBLH9. LWINDEX. FSEND_LV". CIOV,. SEND_LV:6.X;@.X;Send word to fileJ.X;T.SEND_WORD%>^.SEND_W1QWB}ORD8h.PLAST_WORD8r. FSND_LST|. SEND_BYTE. QOEOF?. HSEND_OUT.3. HSEND_W1.SND_LSTQNO_JUNK. HSEND_OUT. QLASB}T_ONE.!SEND_BYTE. SEND_OUT:.X;.X;Make context line.X;.CONTEXT%> /CNT_0QD_CONT8/PTOPHALF8/1&/ ICNTB}_00/Q>:/Q>D/%>'N/CNT_1PCNLINE8X/1b/ ICNT_1l/?v/CNT_2QLAST_WORD8/ FCNT_3/ ASC2IC/M>/ PCNLINE8/3C}/ HCNT_2/ CNT_33/ 'WORD_POS/$>/CNT_4QWORD9/ FCNT_5/ ASC2IC/M>0 PCNLINE8 0203 0)>(*0 HCNT_440 CC}NT_5)>(>0 FCNT_LVH0CR0>\0 QLAST_ONEf0 ASC2ICp0M>z0 PCNLINE9020%>0 QRINDEX0,0 O>4INBUF0 PTEMP0QRINC}DEX0 O>5INBUF0 PTEMP0CNT_6Q@TEMP70 ASC2IC0M>0 PCNLINE913121(>($1 ECNT_LV.1)>81 DCNT_6B1CC}NT_LV$>'L1CNT_7QCNLINE9V1PTOPHALF9`10j1 ICNT_7t1:~1X;1X;This is the Dictionary1X;1 DICTION1NUM_WORDS C}1AWORD A1=B1=C1=D1=E11 F1=G1=H1=I1=J11 K1=L1=M12=N1=O11 P1=Q1=R1=S1=T11 U1=V1=W1=X1=Y1=C}Z11ENDWORD AFTERZ1X;1WORDS_IN =====2! ========= 2! =========2C}X;2 A1ATA(2 B1AUTA22 C1AANA<2 D1AOAF2 E1ANDAP2 F1AORAZ2 G1AETAd2 H1AOWAn2 I1ANAx2 J1AOGA2 K1C}ANOWA2 L1AETA2 M12AEA2 N1AOA2 O1ANA2 P1AUTA2 Q1AUITA2 R1AEDA2 S1AOA2 T1AHEA2 U1APAC}2 V1AANA2 W1AHOA3X1AEBECA3 Y1AESA3 Z1AIPA"3 AFTERZ,3X;63X;Set Run Address@3X;J3T3 START^3PA@z.dX;---------------------nX;xX;Subroutines for CHECKX;X;---------------------X;TOKENIZE%>TOK_1QWG }ORD8 FINV_IT CONL2U PT_WORD83 HTOK_1INV_IT)> FINV_LQT_WORD8L>PT_WORD8 INV_L:"G }X;,X;Print a tokenized word6X;@PRINT_WORD$>J PW_12T QT_WORD9^5hM>r EPUTX|7 IPW_1:X;X;GetG } amount of free memoryX;FIND_FREEQ>; SENDWORD PFREEM QRAMTOPSENDWORD PFREEM:X;X;SeG }arch the DictionaryX;&SEARCH MAKE_INDEX0?: QAWORD8D PINDRNQAWORD8X PINDRbQAWORD8l PTEMPvQAG}WORD8 PTEMPX; SRCH%> D_LEN3 Q@INDR7 ID_LEN3 'ASAVX;%>$> QT_WORD GSRCH_1G}2 SRCH_1QT_WORD9 R@INDR7  HSRCH_NXT*243> )ASAVH HSRCH_1R,\:;;found it!fX;pSRCH_NXTQINDRz, OASG}AV PINDR QINDRO> PINDR QINDR RTEMP HSRCH QINDR RTEMP HSRCH;:;;not found!G}X;X;Proof a fileX;$PROOFPRINT PROOF_NM. GETFN8 EPROOF_MBX;LX;Make DOC.TMP same drive asVX;Source file.G}`X;j%> 1tQFILNAM~R> :;;a ':'? FPRF_GC$FILNAM(> : HPRF_GC?PRF_GC'TMPNAME OPENIN GG}PROOF_E OPENOUT GPROOF_EQ> PWCOUNTPWCOUNT PLAST_WORD SHO_BOXX;(PROOF1 GET_WORD2 QNO_JUG}NK< HP_LASTF QEOF2?P HPR_CLZ QOEOF?d HPR_OERnP_LAST CONTEXTx TOKENIZE SEARCH DPROOF2 NOT_FOUNDG}PROOF2 SEND_WORD QOEOF? FP_BMPPR_OER%ERROR HPROOF_EP_BMPBUMP WCOUNT SHB_3;;show counts !PROOF1G}X;PR_CL%ERRORR IPR_OK)> HPROOF_E"PR_OK DCLOSE, SEND_END6 CLOSE2@ RENAMEJPROOF_V CLOSE2TG}PROOF_M!MAINLOOP^PROOF_E IOERRORh DCLOSEr !PROOF_V|X;X;Move memory UP (delete)X;MOVE_UPQFROMLPUMOVG}LP QFROMHPUMOVLP QDESTLPUMOVLP QDESTHPUMOVLP $HLEN FSKIPMOV MOV1Q>MOV2PENDPOG}S%>UMOVLPQ8&P803: )ENDPOSD HUMOVLPN#UMOVLPX#UMOVLPb(>l FUMVOUTv0 HMOV1SKIPMG}OVQLLEN HMOV2 UMVOUT:X;X;Move memory down (Insert)X;MOVE_DNQHLEN> LLLEN HNOTNULL: NOTNULLG},A  OFROMHPDMOVLP  QFROML*PDMOVLP4,>AH ODESTHRPDMOVLP\ QDESTLfPDMOVLPp2z %LLEN G}HDMOVLP FSKIPDMV DMOV1%>DMOVLPQ8P81)> HDMOVLPSKIPDMV"DMOVLP"DMOVLP0 HDMG}OV1: X; !X;Add a word to the Dictionary X;$ ADD_WORD%>. ADD_038 QT_WORD8B IADD_0L 3V )>` FADD_1j 1t G}ADD_1'LEN_1~  FIND_FREE QFREEM HCAN_ADD QFREEM RLEN_1 ECAN_ADD : CAN_ADD MAKE_INDEX > #WORDG}S_IN9 HADD_NH #WORDS_IN9 ADD_NH CHK_EDIT WHERE? X; , QTEMP( PFROML2 OLEN_1< PDESTLF QTEMPPG } PFROMHZ O>d PDESTHn QENDWORDx ; SFROML PLLEN QENDWORD SFROMH PHLEN MOVE_DN X; QT_WORD G!}M> ; S> A > T? ? UPDATEQAWORD8 ," OLEN_1, PAWORD86 QAWORD8@ O>J PAWORD8T 3^ 3h 2r G"}(>| HUPDATE BUMP NUM_WORDS %> $> QT_WORD GUPD 2 UPDQT_WORD9 P@TEMP7 GADD_LV 2 3 HUPG#}D ADD_LV!SHB_3 X; X;Delete a Word X;& DELETE CLRSCR0 PRINT M1: Q>D PXPOSN PYPOSX X;b PRINT DEL_TG$}XTl %>v INPUT X; DEL_MV MY2WORD QMYBUF R>EOL HD_S !MAINLOOP D_S SEARCH DGO_DEL PRINT WNFG%} WAITKEY !DELETE X; GO_DELPRINT DEL_IT  PRINT_WORD Q> ' EPUT GETYN* HDELETE4 %>> DEL_L3H QG&}T_WORD8R IDEL_L\ 3f )>p FDEL_Mz 1 DEL_M'LEN_1 SEARCH QINDR PDESTL , OLEN_1 PFROML QINDRG'} PDESTH O> PFROMH QENDWORD ; SFROML PLLENQENDWORD$ SFROMH. PHLEN8 MAKE_INDEXB>LQWORDSG(}_IN9VLWORDS_IN9`R>j DDELETE_GtQWORDS_IN9~;S>PWORDS_IN9QWORDS_IN9S>PWORDS_IN9 G)}MOVE_UPQNUM_WORDS;S>PNUM_WORDSQNUM_WORDSS>PNUM_WORDS  CHK_EDIT QT_WORDM>(;2G*} S> A<>FT?P?ZDNDATEQAWORD8d;n SLEN_1x PAWORD8QAWORD8S>PAWORD8332(> HDNG+}DATE SHO_BOXDELETE_G!DELETEX;X;Check Edit FlagX;CHK_EDITQ> PEDITED:"X;,X;Quit from Program6G,}X;@QUITQEDITEDJ HTRY_SAVET "YPOS^GO_JMP!GO_DOShX;rTRY_SAVEPRINT SAV_TXT| ZAP_FN SHO_BOX GETYG-}N HGO_JMPPRINT DC_PRMPRINT DC_TXTPRINT DC_PRM2 GET_RET DCLOSE$>0Q> PICCOM9Q>4DICG.}_NAME PICBAL9Q>5DIC_NAME PICBAH9Q>& PAUX190Q>: PAUX29D CIOVN IQ_OPENXQ_ERR PUTCRb IOERRORlG/} DCLOSEv !MAINLOOPX;Q_OPEN$>0Q>  PICCOM9Q>4DICTION PICBAL9Q>5DICTION PICBAH9 QENDWORDG0};S>4DICTION PICBLL9QENDWORDS>5DICTION  PICBLH9 CIOV  GQ_ERR*X;4 DCLOSE>GO_DOSPRINT REST_G1}TXTH GETYNR HDOS_MAIN\ !BEGINfDOS_MAIN$>p &GRACTLzQ>  PICCOM9 CIOV DCLOSE CLOSE2Q> %>4G2}SYSVBV $>5SYSVBV SETVBVQ> %>4XITVBV $>5XITVBV SETVBVX;$> &HPOSP2Q>$ PICCOM9. Q>4EAG3}DR8 PICBAL9B Q>5EADRL PICBAH9VQ> ` PAUX19j &AUX2t CIOV~Q>@ PSHFLOK !@DOSVEC:X;X;Load a DictionG4}aryX;LOAD_DICPDIC_NAME  DCLOSE$>0Q> PICCOM9Q>4DIC_NAME PICBAL9Q>5DIC_NAME  PICBAH9QG5}> PAUX19(Q>2 PAUX29< CIOVF IL_OPENPL_ERR IOERRORZ7d7n DCLOSEx !BEGINX;L_OPENQ>$>0G6} PICCOM9Q>4DICTION PICBAL9Q>5DICTION PICBAH9Q> PICBLL9 PICBLH9 CIOV)> HL_ERR !DCLOSEG7}X;"X;Erase filename,X;6ZAP_FN%>@Q> JZAP_F1PFILNAM8T1^ IZAP_F1h:rX;|X;Find Where a word goesX;G8}!X;ENTER: LEN_1 = length T_WORDX;WHERE? MAKE_INDEX> QAWORD9 PTEMPQAWORD9 PTEMPQAWORD9G9} PINDRQAWORD9 PINDRX; WH_1$>Q> &WH_2PWORD_C902: HWH_2DX;N%>X WH_33b Q@TEMP7l PG:}WORD_C8v IWH_3M> PWORD_C83 'LEN_2X; )LEN_1 ESET_LEN %LEN_1SET_LEN'S_LEN%>$> QT_G;}WORD GWH_42  WH_432  QT_WORD9*PWORD_C84 IWH_4>M>HPWORD_C8RX;\%>fWH_5QWORD_C8p RG<}WORD_C8z DWHDONE FWHINC ECHKENDX; WHINC3 )S_LEN HWH_5X;CHKENDQTEMP, OLEN_2 PTEMP QTEMG=}PO> PTEMP RINDR HWH_1$ QTEMP. RINDR8 HWH_1B WHDONE:LX;VX;Move MYBUF to WORD`X;jMY2WORG>}D STRIPt%>~MY2_1QMYBUF8 PWORD8 R>EOL FMY2_023 HMY2_1 MY2_0Q> PWORD8 QWORD HMY2_L QG?}>EOL PMYBUFMY2_L!TOKENIZE X;X;View Dictionary by LetterX;(VIEWPRINT V_TXT2 #IPUT<VIEW_1 GETKEYFG@} CONL2UP R>EOLZHV_Ad !VIEW_LnX;x V_AR> A DVIEW_1 R> Z EVIEW_15 EPUT "IPUT7 PPREFIXGA}PN_W MAKE_IN$>?QWORDS_IN8 PWCOUNTQWORDS_IN8PWCOUNT"VIEW_2QAWORD8, PV_START963@2JGB}(>T HVIEW_2^X;hVIEWERQ>rPCOUNT;;words in col|PASAV;;columnPEOF?;;words left? ZAP_TOPQ>4TOPHALFGC} PSCRQ>5TOPHALF  PSCRVIEW_LP%> VIEW_33Q@V_START7 IVIEW_3 QASAV FVIEW_PW)> EGD}V_WAIT%> Q@SCR7& HV_WAIT0VIEW_PW PULL_WORD:%>DVIEW_SCQLAST_WORD8N FA_40X ASC2ICb P@SCR7l3vGE} HVIEW_SCX;A_40 SCRADD40 QEOF? HV_WAIT #COUNT QCOUNTR> HVIEW_LP QASAV HV_WAITQ>4TOPHGF}ALF PSCRQ>5TOPHALF  PSCR Q> PCOUNT  #ASAV* HVIEW_LP4X;>V_WAIT CLRSCRHPRINT M2RQ>GG}\ PXPOSf PYPOSpQWCOUNTz %WCOUNT CON_NUM, O>4NUMBUF5 Q>5NUMBUFO>?7 EPRINTPRIGH}NT N_WORDS PUTCR #YPOS QEOF? HVIEW_E SEE_MORE HVIEW_L$ !VIEWER.VIEW_L ZAP_FN8 SHO_BOXB !MAINLGI}OOPLVIEW_E!VIEWVX;`X;Make Letter in A an IndexjX;tMAKE_INDEXQT_WORD~MAKE_INM>;S> AT?:X; XGJ};Pull a word from DictionaryX;PULL_WORDQ>PLAST_WORD QEOF? HPULL_OUTX;%>  PULL_13Q@V_START7GK}PLAST_WORD8( IPULL_12M><PLAST_WORD8FQ>PPLAST_WORD8Z3d 'S_LENn QPREFIXxPLAST_WORD)>GL} HPULL_N1RLAST_WORD HPULL_N1Q>PLAST_WORDPULL_N1QV_START, OS_LEN PV_STARTQV_STARTGM}O>PV_START RV_END HPULL_OUT QV_START" RV_END, HPULL_OUT6 #EOF?@ PULL_OUT:JX;TX;Strip Junk GN}from MYBUF^X;h STRIP$>r%>|STR_1QMYBUF9 R>EOL FSTR_2 CONL2UR> A DSTR_N R> Z DSTR_2 STGO}R_N2 HSTR_1STR_2QMYBUF9 PMYBUF8 FSTR_EN2 3 HSTR_2 STR_EN:& X;0 X;Rename XIO: X;D X_RENQ> N HGP}DO_XIOX X;b X;Delete XIOl X;v X_DELQ>! HDO_XIO X; X;Unlock XIO X; X_UNLQ>$ X; X;Perform an XIO on CH #GQ}4 X; DO_XIO5;;XIO Command $>@ Q> PICCOM9 CIOV!$>@ !7! PICCOM9 ! Q>4FILNAM*! PICBAL94! Q>5FILNAM>!GR} PICBAH9H!Q>R! PAUX19\! PAUX29f! !CIOVp!X;z!X;Rename the files!X;! RENAME X_UNL;;unlock source!%>!REN_1QGS}FILNAM8! PMYBUF8!R> .!FS_Y! R>EOL! HUP_Y! S_Y'ASAV! UP_Y3!)>! HREN_1" %ASAV" ADD_BKP" X_UNL;;uGT}nlock backup$" X_DEL;;delete backup."X;8"X;Restore FILNAMB"X;L"%>V"REN_2QMYBUF8`" PFILNAM8j"1t" IREN_2~"X;"$GU}>" F_EL2" QFILNAM9" R>EOL" HF_EL"Q> ," PFILNAM9"2"A"?"$>" F_COL2# QFILNAM9 #R> :# HF_COL#2(#GV} &ASAV2#X;<#ADD_8QMYBUF9F# PFILNAM8P# R>EOLZ# FREN_4d#R> .n# FREN_4x#2#3# HADD_8#REN_4 ADD_BKP# X_REN;;GW}rename source#X;#%> #C_TMPQTMPNAME8# PFILNAM8#1# IC_TMP#Q> ,#PFILNAM #%> $ $ASAV$C_FNQMYBUF9$GX} PFILNAM8"$2,$36$ R>EOL@$ HC_FNJ$ X_REN;;rename DOC.TMPT$ !ZAP_FN^$X;h$X;Add the .BKP Extensionr$X;|$ADD_BKP$>GY}$REN_5QBKP_TXT9$ PFILNAM8$3$0$ IREN_5$:$X;$X;Get a Directory Entry$X;$GET_ENTRY$>0$Q>$ PICCOM9GZ}$ Q>4MYBUF% PICBAL9% Q>5MYBUF% PICBAH9&%Q> 0% PICBLL9:%Q>D% PICBLH9N% !CIOVX%X;b%X;Open for Directoryl%X;v%G[} OPEN_DIR5%C%5% DCLOSE%$>0%7% PICBAH9%7% PICBAL9%Q>% PICCOM9%Q>% PAUX19%Q>& PAUX29 & !CG\}IOV&X; &X;Get Dictionary Directory*&X;4&GETDIRQ> ?>&PDIC_NAME H&$>R&Q>4DIC_NAME\&%>5DIC_NAMEf& HNORM_DIRp&G]}X;z&X;Normal Directory&X;&DIRECTPRINT DRIVE_N& #IPUT&DIR_1 GETKEY&M>&R>& FGD_MAIN&%>&DIR_2RLG^}EGAL_D8& FG_DIR&1& IDIR_2& GDIR_1'X;'G_DIRPDIR_TXT'5$' EPUT.' PUTCR8'7B'N>L' PDIR_QV'$>`'QG_}>4DIR_TXTj'%>5DIR_TXTt' NORM_DIR~'GD_MAIN"IPUT' !MAINLOOP'X;'NORM_DIR&RJUST' OPEN_DIR' 'ILEN' DIR_TOPG`}' %ILEN' IGDIR' IOERROR'NO_DIR DCLOSE'%>'NO_DQD_NONE8(PTOPHALFa8 (1( INO_D(;((:2(X;<(GDIR GGa}ET_ENTRYF( GGDDIRP(%>Z(AT_END?QFREETXT8d(RMYBUF8n( HNOTFREEx(1( IAT_END?( QRJUST( LCOUNT( FNO_DIR(X;Gb}(NOTFREE#COUNT( NF_2%>(DIRLP1QMYBUF8( R>EOL( FENTRYDN( ASC2IC( P@SCR7(3) HDIRLP1)ENTRYDNQSCR)Gc},")O>,)PSCR6) DG_TST@) #SCRJ)G_TSTQCOUNTT)R>^) DGDIRh) ED_WTr)X;|)GDDIRQCOUNT) LRJUST) FNO_DIR) Gd}DCLOSE),):)X;)D_WT SEE_MORE) HGDDIR) DIR_TOP) !GDIR)X;)X;Do Top of Directory Screen)X;*DIR_TOP ZAGe}P_TOP*Q>4TOPHALF( *PSCR&*Q>5TOPHALF( 0* PSCR:*Q>D* PCOUNTN* $RJUSTX* HJ_DIRb*%>l*DT_1QD_HEAD8v*Gf}PTOPHALF 8*1* IDT_1*:*X;* J_DIR%> *JD_1QDIR_N8*PTOPHALF 8*1* IJD_1*:*X;*X;See More?*X;+Gg}SEE_MOREPRINT V_MORE + !GETYNX;* J_DIR%> *JD_1QDIR_N8*PTOPHALF 8*1* IJD_1*:*X;*X;See More?*X;+D"34)=AOIIITEXTSAVMSHOLDSCRCHAROWIDTTEM@@ @Ki}  B1  B9 B@@A@DOT & TEXT DEMOBY SHERER/JACKKj}SON(c)1987, ANTIC PUBLISHING ;@,;@,% 6.v^ 6-@%6-@ C+@%@76-FKk}:@,%F:@,$AVC6-@@(A- A26-%$%<-@B:,F6.7<,Kl} A@P$$6-F:AV,$AV%$@Z-@d%$F:%,n   x @ @EKm}& 6-@:,!A'&6-&A(*!@1* @'6-&@2*$ @26-%@d$y @Kn},A1/A@%C/AAU/A@g/AP@Ey/AA6-R:Ko},$1#"@)"@)"@16-&@)1#"@)"@ )"@16-%@.1#"@)"@)Kp}"@ 16-&@31#"@)"@)"@16-%@8$ D1:VBIRD.BAS.1#"@)"@)Hc