@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 D8u^_?QSIZOLDOLDOLDDIXYTURNLETTEDIUNDEDELAMOVFRONLEFRIGHCHBASDCHNUUNDERD@T}@@@@@@ BR @ @  @`@e@A8@1U}@@ArAqAqBHBxVAqB@BLACK BOX BY KEN ARROMDEE(V}c)1988, ANTIC PUBLISHING;@,6.>:@4, Ap(C +A 1A@CAW}@2@ @3( How many particles? (8 maximum) @@</!@%(The maximum is 8./ @PF*X}!*"P:, BU5* @P)(Please type an integer.) @PZk A(4(Do you want the black boxY} to beR( 8 by 8 or 10 by 10?U(k( (Type 8 or 10) \@_!!@*@Ad BZ} A n"(Type an 8 or 10." @x A|6-@6-6@(6-@46-@@6-@L6-[}X"@d6-p6-|6-Y"@Aq--@@A-@@G,\}K O Y Aq @,@@)@;,@@M/@ @_,@@q/@ ]}@ @,@@)@;,@@E@W,@@a@s,@@/^}@@ ,@@/@@ C Aq!-@@ 5-@@ ;,? C ]A_}#@'B2V@9B2aAUKAA(]B2HADKB2W@'AA(`}9B2bAUKB2IAvKB2X@'AA(9B2cAUKB2PAK-@a}@((@black:-@@K(@box+-@@+(@ (-@@b}((@)-@@)(@&-@@ &(@ (-@@((@c}-@S+6-P:H:,$,%@&+"@,S6-P:H:,$,%@&+"@," 1d}AqA, Ar,6 @-@:A,J 6-6-6-T@1%@%@1-%@%@e}@(@^-@@0 h**T:,"*"@2APr6-R:,|)-%@%@f})(@>:, F:Ad,"@3AP:F:B2y,"@,-@@@0 : A0"@g}A@''A0A`AA b!6-%+"@,&+"@,9"+"@,&@F6-6@V6-+h}"@,b6-@C"@ %+"@,'6-@76-+"@,C6-@ A@j!6-%+"@,&+i}"@,9"+"@,&@F6-6@^6-@%+"@,j6-@K"@ %+"@,'6-@?6j}-@%+"@,K6-@ A@j!6-%+"@,&+"@,9"+"@,&@F6-6@^6-@k}%+"@,j6-@K"@ %+"@,'6-@?6-@%+"@,K6-@ A@b!6-%+l}"@,&+"@,9"+"@,&@F6-6@V6-+"@,b6-@C"@ %+"@,'6-@m}76-+"@,C6-@ A@&4-%@%@((@ 46-@0) 6-6-6-)"@n}A:"@6-@ D"@6-@ N"6@6-X"6@6-b''o}A0ApAAPlDIR 1=MOVING RIGHTvC1%@%@+1%@C1%@%@p} A 06-%@ A2=MOVING UP+1%@1+1%@ A 06-&@q} A3=MOVING LEFT+1%@1+1%@ A 06-&@ A4=r}MOVING DOWNC1%@%@31%@%@C1%@ A 06-%@ UU+"@s},*@%+"@,*+"@,*@%+"@,A"@AP ''AA A0At}@*6-%@ AP46-&@ AP>6-&@ APH6-%@R6-%@ Bu}\?-%@%@)(@>:,?-%@%@f+(@>:,!-%@+ A pQ Bv}6-%@1-%@%@G(@>:A8,Q A zQ B6-%@1-%@%@G(@w}>:@ ,Q A 3-@@!!@ 3-@@(@  A03"Arx})"A@'& A3ABSORPTIONS"@9"Ar)"Ar)"A@)"A@<'F ASREFLECTIONKy}1+"Ar)"A@,*+"Ar)"A@,4'> AKREFLECTION6-%@@-Ar*Ar*A@*z}A@0$@NOTHING AHEAD!!"Ar)"A@A@BOUNCE RIGHT)6-&@")6-@'{} ABOUNCE LEFT)6-%@"@)6-@'$ A.ҠΛ8e +|}@*AF:A,&@A6-F:A,%@K+@WAVe6-$AVB::6-?:C: hhhhh֢}}ԑ`,<BsD<,L_""6@&A A8AAJA@r\A@&_$V~}?'-%@$%@$%@+"15 ? A`''1,255,153,153,255,255,153,153,255j3,0,0,0,31,31,24,24,}24t4,0,0,0,255,255,0,0,0~5,0,0,0,248,248,24,24,246,24,24,24,24,24,24,24,247,24,24,24,31,31,0,0,08},24,24,24,248,248,0,0,0##9,60,82,137,197,163,145,74,60((10,255,129,189,165,165,189,129,255((11,255,129,129,129,12}9,129,129,255((12,255,129,129,129,129,129,129,255-1SHOW PARTICLE LOCATION3 #AP%-%@%A})"/3 ##60,126,255,255,255,255,126,60q-@@*(@<-@@ L(@}^-@@q(@ T:,A $-$(@}0-%@%A},F:&@,0 AdAU A0(GUESS MODE2(-@@((@<6-R:},F]56-%+@*@,&+@ *@,M!@%+"@,]6-+"@,P+ +"@,+6-@}%+"@,ZqI6-%+"@)"@ )"@,&+"@)"@)"@,a!@%+"@,q6-+"@,}d+ +"@,+6-@%+"@,n@1%@%@1-%@%@@(@!xT:,}A}I-@@0 I6-%@2$+ A`,&@2$+!A`,4-@@4F:B2y,"@}A7 )-%@%@)(@>:,%F:Ad,"@3'% AP A@)-%@%@})(@>:,C-@@0 --@@@(@C$ A0TITLE PAGEC +@}A1A @@CA@9%6-F:A`,%F:Aa,$AV9%@@,-@}@,(@ 2-@@2(@BY KEN ARROMDEEL%@@)-@@}L(@PRESS TRIGGER TO PLAYT:,A0$'RANDOM DELAY';4-@@`&@$%@@$}H:,8 ;$D1:BLACKBOX.BAS,A0$'RANDOM DELAY';4-@@`&@$%@@$18K8P?@     Y`  Y0 l `8Eiͩk }Ω͙kCopj`j {j`Hi͝Νh`L"SAB.KRSB:D"NUR }͙kCopj`j {j`Hi͝Νh`L"SAB.KRSB:D"NUR GfABASIC,@@n~$&'(((>(V(V(V()))*}(KXYVALUEBQCSHIPRSHIPXSPOTYSPOTCSINKRSINKZUBOAT BATTLESHIPCARRIER DESTROYERTANKERIJLOOK_HITDUM1DUM2DUM3}DUM4DUM5S_UBOATS_TANKERS_BATTLE S_CARRIER S_DESTROYERSTRAYSILLCHECKPPSWITCHDUMM1DUMM2DUMM3DUMM4DUMM5LOOKCOMU}BOAT COMBATTLESHIP COMCARRUIER COMDESTROYER COMTANKERZPPRINT COMPUTER_WINSDUMMDUMM6REZXBIOSNEXTNRECSNRCXRESDAYH}OURMINUTESTARTFINISHTIMERCLOCKNNAITS_OKACTIVENRECRECCHOICEDEVICETEMPDAYSPOSNDQQPOSLNGTHLENGTHTESTFLAG}SUCCESSTRYACKMAXTRYLASTHUMAN VDESTROYERVUBOATVTANKERVBATTLEVCARRIER HDESTROYERHUBOATHTANKERHBATTLEHCARRIERACJ}UNKPICSCREENPINDEXRECORDBSYNCDEVIDLOCTONTOFFLEVELMODEDAYRECSTATDUNXINPUTDATYHOURMSGALRTNSPTEMPSTA}TUSXTEMPEIGHTEMPTYTMBLANKNAMETNAMENOMDAY1JTIMEJDATEXCYXXSHIPYSHIPTESTSINKESSINKERNVCOMPUTERSECTCHAR}XORASCREENSUNKAMSGSHIPJUMPJUMP2JUMP3JUMP4JUMP5JUMP8JUMP9JUMP11JUMP10JUMP14JUMP13JUMP15DAYSACTIONSSHIP_D}ATINFO COMPUTER_HITBRAINSGRIDCOMPUTER_PLACEFILLLISARECT2RECT1 HIT_MARKER RIGHTSINKUPSINK CHECK_SINK STRAY_SINKLEFTS}INKDOWNSINK PLACE_SHIPVERTICAL_PLACENOISESTART INSTUCTIONS INSTRUCTIONS INITIALIZE WRITE_RECORDSET_TIMEACK2 OPEN_MODEM }OPEN_RS232 OPEN_PORTBSR_PUTGET_ACKSHOW_ALL PRINT_LINE SHOW_ACTIVE SHOW_RECORDSUPDATEDUMMYLOAD_BSRQUITTESTCHECKSUM OP}EN_FILE PRINT_HEADERUP_STATUP_DEVUP_LOCUP_DAYUP_TONUP_TOFFUP_LVLUP_MODE PRINT_DAYSUP_DAYSUP_TIMEUP_MOD CHECK_SUMF}IXT1 FIX_LENGTHSPRESS_CR PRINT_HEADERFIXBSRk! By Walter Lazear b ST Version by Charles Jackson (c)1988, Antic Pub}lishing 4E F 4Fr.)!Does not work | in low rez!! OK !FqF FXF/EF(!!! FYF300}->9 600->8 1200->7 (p!!!!!! FFMF7E@@FgEDATA.BSRFE! F*}@@ F E Desk Fi E About BSRk! F E--------------------FEG@F EA }F F EF  E Records F0 E Update FF@ E Show Active FP E Show Al}l F ` EFop E Options F E Initialize F  E Set Time FF$ E Load BSR Int}erface FF$ E--------------------FF  E Quit FF( EF  FvLF FF&F n+FM8}MF7U!M!AUX:F Print #1;Chr$(127) .F  +FFE F Fl)!V BSRK! | By Walter Lazear | ST Version }by Charles Jackson | (c)1988 Antic Publishing !! OK !FYF 8F.w#  L$!"! !%!%!!!&!%!'F F!} F.F n+F 4)! Initialize | Database? !! OK | ABORT !F h JFM*F E0 F E Fk E0}000F E0000FE0FEXFE FEIF8EG7FM!8F 8F! 8MF"E Records | }Initialized F! EA8 F)!!! OK !Fn Fn.F +F EEF EF!YFE5?@@ FYFR} FaH8EG F$! EB= F$!  EB #< FM})FMFX.F! +)FKEF8E?G@FKEK7?$@8@ F! KJFKEKFF FE 8F)$!@! }EBK F.F +F Transmit & Get Ack MFs h8!W!DFXE FF"8EG6$ F Transmit to BSR M"?$@8@} "FCE9F9 C FnF 8FWEFFEVEF"" VXF Keep trying VEVF to get F} characters e | JFV from BSR DEa F UNTIL we get eWEWFF six chars. R FE OR until 2 ZVXW@@}F  we're tired of trying F! ( Try > Maxtry )  ZW@@FhF# FDEa FFF8MFs.F }  ++FNHID - St Dev Loc Days T.On T.Off Lvl ModeFFNI-----------------------------}---mtwtfss----------------------------------F.F+ +!F 6 6 6 JFM;F F  H JF "F} F 'E F2E0000000F (E=00000000p5 @` FEG`F .2!! EB4#5?(@@ } F ZF?6H" - ""'""'";@` "'"2"'""'"F"'""'"F".F! +4FR Fa6EG`Fe}QF$YX!` "" - "Fi F".F4 $+"FFEFM#F .F# #+ F FEFM#F .F# !+#FM*F}YFFEFM+FHEG7FM!HF  #FA FJFM!F EF `%` JF]M Choose RecordF|FaJStatus,Device I.D.,Location,}Days,Time On,Time Off,Level,Mode,Main Menu FI(YX! "Enter Choice FY ! ""F:(F }(JFh(E,F FE E7( F8 Z#(hh  8 <<F F <JF IE5( F }I JFwIL,!-!.!/!0!1!2!3Fe F F, RZI#(88 FFM;FM!HF} ,JF HEHF FE 4JF HEHF FE" Z#,,44 FF ZIF0}FFEYF.F$ +;F(E ! FO(EF E=(@ F(E ! FN(EFE;(@  F(E} ! FO(EFE=(@` F.FE E+,FF,YFM+F(M!F(6YX! "Status (A, I) "" } FFY ! ""F:(F (E( FU  &(JF(EF$ FE  DZ(A(IFFFE(F.F +-F(}F,YFM+FFM!F(4YX! "Device (1-8) "" FY! ""F:(F  (JF(EF }FE  Z5( 5( F( ^FE(F.F +.FYFM+FFM!F(0YX! " Location "" F} 1MS Fan 083008310N 28A 2A Fan 083108320N 28A 1 083308340N 28A 2 083408350N 60A 1 } 083608370N 12A 2 083908420N 28A 1 084508470N 60A 2 085008550N 28A 1 } 090009050N 28A 2 090809150N 28A0 000000000X I0 000000000X I0 000}000000X I0 000000000X I0 000000000X I0 000000000X I0 00000000}0X I0 000000000X I0 000000000X I0 000000000X I0 000000000X } I0 000000000X I0 000000000X I0 000000000X I}} WELCOME TO THE ANTIC MONTHLY DISKMost of the pro}grams on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forcom}prehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 o}r, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONUS }FILES ***If you liked BSRk on your 8-bit,you'll love it on your ST. Wetook the original 8-bit versionand rewrote it in} GFA Basic forthe ST. As a bonus, we'veincluded BSRK.PRG, a run-timeversion of this program.XXX *** MORE BONUS FILES} ***Whenever there is sufficient room,we will be including LINKLINE onthe monthly disks.Please see the HELP files on }thisside of the disk for LINKLINEinstructions.XXXThe menu that appeared on the screenwhen you booted the disk wi}ll onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN GFA or ST BASIC programs!)If you try to ru}n a program and theresponse is 'cannot run Filename',then check the file extender withthe following list:XXX.SYS Res}erved for DOS system files..DAT Data file. Usually accessed by another program..TXT Text file. Usually accessed} by another program.*** Files for the 520 ST ***.BSR Data file used by the BSR kontroller.XXX.C C }Language source code. Must be ported to an ST disk. See the corresponding article for complete details.}.BAS A GFA BASIC program. WILL NOT RUN on 8-bit computers!!! Must be ported to an ST disk. Se}e the corresponding article for complete details.XXX.PRG A compiled ST program which uses GEM. Mus}t be ported to an ST disk. See the corresponding article for complete details..TOS A compiled ST program wh}ich does not use GEM. Must be ported to an ST disk. See the corresponding article for complete de}tails..S 68000 Assembly language source code. Must be ported to an ST disk. See the corresponding} article for complete details.XXX Whenever possible, we will try toadapt our programs to work with asmany confi}gurations of C as possible.But we think ANTIC's published Clistings should come as close aspossible to the industry standa}rd. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo this.XXXAll programs from ANTIC issues date}dprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost are compatibl}%&~PfLPENLPENSTRIGXMAYMACYMIXMIAdAe@"xW(@$8)xrAd} DRAWGUN.BASBY MATTHEW RATCLIFF(c)1988, ANTIC PUBLISHING('6-6-'6-Ad}<6-Ad6-AeP[+@%@'A IA@%@$@[A@Z 6}-F:,d+@',6-A'%n6-&@xSCALER -> (227-86+27)=168B6-A$'AhB86 <= LPENH }<= 227, PAST 227 THEN 0-27 6-!A6-A 6-F:,6-&@SCALER -> }(111-17)=94:6-A$'@:17 <= LPENH <= 111 IN MY TESTS 6-!A6-A}TR:,"@ 1*0,:@@,DJ,T @ @, @D1:DRA}WGUN.BAS 1*0,:@@,DJ,T @ @, @D1:DRA8O@AxFAST CURSOR XL/XEBY TREVOR MAINGOT(c)1988, ANTIC PUBLISHING % }-A`Aw"!%  VV(NFAST CURSOR INSTALLED, PRESS RESET, THEN TYPE 'NEW' AND GO ABOUT YOUR BUSINESS6-? }:A`,<<169,2,141,218,2,169,4,133,2,169,1,133,3,169,3,133,9,96D1:FASTCRSR.BAS }<<169,2,141,218,2,169,4,133,2,169,1,133,3,169,3,133,9,96D1:FASTCRSR.BAS 7LINEAFPPR 11;A ,;@,;@,;@,G@$}(}2( (1) HELP file5(GART ((2) How to 'port' files7( to an ST disk:(T($}(3) Instructions for( KEYED-UP(+ (( SELECTION+6-2""(+41)42)43,@ <,$}6. D:DOC.TXT42,6. D:PORT.TXTF 436. D:KEYEDUP.TXTP6-@@2(Hard Copy (Y/N) N6$}Z(+4Y)4N,@dW@@(}&@C@@K4YW6-@n A`&}249209233926692999379340937393106941494479480941139521955495879512096289661969497297(}35976897101989(}6897101989(Y XLAPNB0A6@ ((<(dx"(@D +26-?:C:,}hhhԩ`,<A6,DAdAUuA@'A @9AK@@]@,}@7c(}uAR@++(# ++(# Antic Monthly Disk, Aug. 1988 ,}++(#  ( | Side 'B' |++(#  @ ,}-@A $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@-}@D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ -}<@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<-}@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]6-}7@<@,.0$@(''7@<@,4FREE@- @ .K'7@<@,4 HE-}LP.....BASK67@<@,. Ю2() <@F''7@<@,4FREE@K @ -}P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| -} |[ ( |  |\++(#  d**(" Select HELP.BAS for information.x-}AR[@@9'-@@#C( FILE NUMBERM A0Q[ BP:,A-}00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B- }37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4- } AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?- }  LOADING ? A@@91@@5%? B[-@@"-  CANNOT R- }UN 7 @LF:A,"@![% D:HELP.BAS B A0D1:MENU.- } B A0D1:MENU.,6 XSUB AR %% PRINT-USR DEMOBY MARC ESCOLA(c)1988, ANTIC PUBLISHING<;1}@ ,F ASET UP SUBROUTP)6. XX,XXX.XX6-@) A Z( NORMAL NUMBERd*6. XX,XXX.XX 61}-6@* A n( NEGITIVE NUMBERx)6. X$,XXX.XX6-@"%) A ( FLOATING $)6. **,XXX.X1}X6-@) A ( ASTERISK FILL)6. *$,XXX.XX6-@) A  ( ASTERISK FILL,FLOAT $)1}6. $$,XXX.XX6-@) A ( LOTS OF MONEY&6-?:C:,}FOUND2200 INY ;POINT ONE BEYOND2210 ;2220 ; CHECK NUMBER FOR FRACTIONS2230 ;2240 LDX #02250 NUMFRAC2265?}0 LDA LBUFF,X2270 BMI ZFILL ;ZERO FILL REST2271 ;2280 CMP #'.2290 BEQ MOVERITE2291 ;2300 INX 2315@}0 BPL NUMFRAC ;CHECK NEXT BYTE2311 ;2320 MOVERITE2330 INX 2340 LDA LBUFF,X2350 BMI DLAST ;LAST DECIMAL5A}2351 ;2360 STA (SADR),Y2370 INY 2380 CPY LEN ;CHECK FOR END2390 BEQ MOVERITE ;ZERO CONTINUE2391 ;25B}400 BMI MOVERITE ;LESS THAN CONT2401 ;2410 BPL EOJ ;ALL DONE EXIT2411 ;2420 DLAST2430 AND #$7F ;MASK 5C}HIGH BIT2440 STA (SADR),Y2450 INY 2460 ZFILL2470 CPY LEN2480 BEQ ZNEXT ;ZERO CONTINUE2481 ;2490 5D}BMI ZNEXT ;LESS THAN CONT2491 ;2500 BPL EOJ ;ALL DONE2501 ;2510 ZNEXT2520 LDA #'02530 STA (SADR),Y255E}40 INY 2550 BPL ZFILL2551 ;2560 EOJ2570 RTS 5F} 2550 BPL ZFILL2551 ;2560 EOJ2570 RTS 4 JdX; RAMOSDAT.M65nX; BY MATTHEW RATCLIFFxX; (c)1988, ANTIC PUBLISHING' ========= = =' =9H} =x====/=====' ===========' B===== ======'  ====9I}=======' == ===== ====' ===== ======' ====@==9J}==="==/' =====B=X==`== =' B== =V===`====B=' =S=====:===9K}==' =E=====K===D==' ==J== =V======' ===X========9L}' ===========' ==`========="' == =========,' =)9M}==========6' =========`==@ =======9N}===6' =========`==@ =======8  ELINAD PARTIAL SCREEN CLEARBY ROBBY CH=P}AVERS(c)1988, ANTIC PUBLISHINGd#@#(>:A%,n -A@( x6-@ A=Q}!6-F:@,!6-F:@,6-%$AV%$@@$6-P:'AV,$6-&$AV(@=R}@((>:A%,@@-$D1:SCRNCLR.BAS=S}>:A%,@@-$D1:SCRNCLR.BAS< ShAAWINDOW DEMOBY CHARLES JACKSON$$(c)1988, ANTIC PUBLISHING INC. ++TYPE A 'D'AU} TO DISPLAY THE TEXT WINDOWTYPE A 'K' TO KILL IT'+@%@'A( @2A-AAV}@1,=/AA <B -A6@2,>/AB FA-AW}A@1,A=/A PA-A@1,A=/AA Z F:AX}Ad,"AU@d"F:Ad,"@X" AnrF:Ad,"@*AY<+@%@HNAAY}`AY@4rAdAUx%-@A % @qAY'+@%@29AZ}AKAR@q(!} Type a 'K' to KILL this window.*AY@4'AdAU*$ D1:A[}WINDOW.BASR@q(!} Type a 'K' to KILL this window.*AY@4'AdAU*$ D1:@44 9 :L6 ;L14۱ Turn Π BASIC 4 :LS4۲ Turn BASIC ;4 :Lu4۳ Run ]E]}4 :L4۴ ROM O/S to RAM 4 :L4۵ RAM O/S to ROM 4 :L4۶ Missile Command à4 : ; :R BE^}D:E45HI V W:HR :h10)өj 9 :L@5àΠ45 :LU921 өj 9 :Lu5E_}àƠh5 :LU93 N5  9)өDLP45 ) LtL; :L4STR ) 9L5͠ϯӠ䡛E`}Ҡ5 :L656Ӡ塪5 :`L6R :SLH6̠ŠԠ*6 :Lk6CONVERT ROM OS Ea} RAM ?R6 :L6(Type 'Y' or 'N' and press RETURN) u6 : W:Y+N :L4 9LU9D1:*.FNTD1:FILENAME.EXTV=j<Eb} L7 ͠ϯӠ676 :L.7 㡠7 :LV7 8Ec}7 :Ly7 (1-8, 0=Exit, no load)`7 : W:ɛ0`9 :L571 :L576 B VBJKD6E V$L7Open Ed}error.Ѡ7 : B VL7857 y:0! BDEHI VL7 B VL:8Font file to load?&8 :LZ8( forEe} new dir)D8 : W:ɛL57 n9BJKD6E VH BD6EHI VL8Can't open file!8 :Ef} B VL57BDE89HI V B VL9RAM O/S Font loaded.9 :LG9[1] Exit [2] Load different font?Eg}$9 : W:1  :`2 :L9L57:+:$D666:6 6ɛ6ɛ6.ɛEq}B%DOS SYSB*)DUP SYSB<SBLACKBOXBASBBSRHAND OBJBXBSRK BASBDATA BSRBDOC TXTBDRAWGUN BASBFASTCRSRBASB HELP BASBINDEX BSRBMENU B NUMPRINTBASB/NUMPRINTM65BGRAMOSDATM65BOSCRNCLR BASBTWINDOW BASB\XEGSMGR EXEBDzXEGSMGR M65BBSRK PRGnKEYEDUP EXEKEYEDUP TXT,PORT TXT 66`` B V`9:BS:EKDJLVR'S :L):Ġ٠: :LL:PRESS Er} TO RESTART3: : W:`BDEHI V`BDEHI V`堣οDԌEEs}HI HI BLVL: :;BޝD:EHI V`R : ;L#;Ӡ ; :LE;Et}-; :Lg;O; :L;堠q; :L;̯ŠEu}; : ;L:L;; :`L;;<ޠ; :`i<D<L Lt Ev}ӭ)ө***𠀙 R ll`V  x/ԍҍԅ۩B آ Ew}  ҩ@ԩ"/BX` B VD:SYSEQU.M65<>D:IOMAC.LIBFIPI{}"AXEGS Manager By M. RatcliffAZ4dEKnFx TXPNTԂ RAMTOPjRAM copy"8FLAG;;Copy part1/part2 flag,:CASINI;;Vector we will steI}al6COLDSTD@ CSETJWARMSVtT PAGE6^"X; If Self-test selected, checkh$X; first byte here, definition ofI}r#X; space character. Try to write| X; nonzero value there. If it#X; changes then we're in RAM O/S$X; mode. Will crash I}if attempt to"X; continue. If RAM-based, tellX; user & return to DOS.!X; If ROM, continue with test.GINTLK;;ExI}t. Cart Flag BOOT !X; Good cass boot will give us X; control via CASINI vector. COPY IRQEN CRITICBI}GRACTLSDMCTL/ POKMSK NMIEN&DMACTL0 PRN0 :  D AINCORRECT PRN0 CALL!ANX !@I}SKPTX]X;b@TXT ==l@SKPTX$>4@TXTv %>5@TXT PRINTXTX; BEGIN= GRAF0;;GRAFCMD, set new I} RAMTOP, tooQ>;;Black bkgnd. PCLRBAK TITLE QGINTLKFINTBAS;;No ext. cart-OKX;?!RRONLY;;YesI}-ROM/RAM option only! INTBAS TOP#PRN0 A۱ Turn Π BASIC A#PRN0 A۲ Turn I} BASIC A#PRN0 A۳ Run A#PRN0 A۴ ROM O/S to RAM A #PRN0 A۵ RAM O/S to ROM A#PRN0 I}A۶ Missile Command A  BOT* CRLF4:Q>;;No editing prompt line>PLMARGN;;Fix marginHI}BPUT =PROMPT=R KEYINW GETKEY\5;;Save keyfQ>p PLMARGNz CRLF7KEY1R> 1;;Cart on?HKEY2;;NOPI}EX;9QPORTB;;Yes, current config?M>;;Enable BASIC PPORTBQ>;;New RAMTOP PRAMTOPI} GRAF0;;Normal screenQ>BASIC_ON PBASICF CRLFPRN0 AàΠA!CR5 X;KEY2R> 2;;Cart. off?HI}KEY3;;No.X;$ BASOFF)QPORTB;;Yes! Do it!.L>8PPORTB;;It's off. NowBQ>;;set new RAMTOPL PRAMTOPV GRAF0`I} CRLFjQ>BASIC_OFFt PBASICF~PRN0 AàƠA!CR5;;Back to DOS.X;KEY3R> 3;;Self-test? HKEY4;;NoI}X; BASOFF;;BASIC off firstQPORTB;;Enable OS RAML> PPORTB GRAF0QPORTB;; Self-test on.M>:PPOI}RTB;;Now remapped to $5000Q>;;Coldstart flagPCOLDST;;for 'RESET' X; Reboot after test!I}PX;KEY4#R> 4;;ROM O/S -> RAM?( FGROMRAM-X;2KEY57R> 5;;RAM O/S -> ROM?< HKEY6AX;F QBOOTPM>Z PBI}OOTd !WARMSViX;nKEY6s;!MISLCMD;;Enable Missile Commandx GOOF !BEGINX; GROMRAM QI}DOSIDR>SPARTAFLGHGOROMSRAMX; NORAMOSQ> PLMARGN QBOOTM>;;Disk boot OK PBOOT GRAF0$PRI}N0 A͠ϯӠA$PRN0 AӠ塪A:X; GOROMSRAM  !ROMSRAM X;$X;Copy ROM OS -> RI}AM then disableX;all interrupts, enable RAM"X;in place of ROM (OS),'X;copy RAM->RAM & enable., RRONLY1Q>6 PLMAI}RGN@ CRLFJ QDOSIDTR>SPARTAFLG^ FNORAMOScX;h)PRN0 A̠ŠԠAr$PRN0 ACONVERT ROM OS  I}RAM ?A|0PRN0 A(Type 'Y' or 'N' and press RETURN) A GETKEYR> Y FROMSRAMX;R> N FQUITX; GOOF !BI}EGINX;QUIT GRAF0!CR5X; DRVTX AD1:*.FNTA= FILENAME AD1:FILENAME.EXTA===X; ROM OS toI} RAM setup ROMSRAM$>;; Move RAM O/S%RAMGRLN;; MGR to Page6 RMOVLP QRAMGR9 PPAGE69&201: HRMOVLP?XI};D PAGE6;; Make RAM O/SN)PRN0 A ͠ϯӠAX)PRN0 A 㡠Ab REDIRg)PRNI}0 A Al$PRN0 A (1-8, 0=Exit, no load)Av GETKEYR>;; CR also exits FNOFNTX;R> 0I} HDIRITX; NOFNT: DIRITR> 9;; Valid drive #? DDIRIT2X; GOOF !REDIRX; DIRIT2R> 1 EDII}RIT3X; GOOF!REDIR;; Try it again.X; DIRIT3 PDRVTX  CLOSE OPEN ===DRVTX C* IDIRIT4I}/X;4PRN0 AOpen error.A> CLOSE H !REDIRMX;R DIRIT4W GETFNAME\Cf GDIRIT5kX;pPRINT =STRBUF=zI} !DIRIT4X; DIRIT5 CLOSE PRN0 AFont file to load?A!PRN0 A( for new dir)A GETKEY QSTRBUFI}R> HDIRIT6X; !REDIRX; DIRIT6 EDITFNAMEOPEN ===FILENAME IDIRIT7X;PRINT =FILENI}AME=PRN0 ACan't open file!A CLOSE  !REDIR X; DIRIT7 BGET =CSET=$ CLOSE . DIRIT7A3 !I}PRN0 ARAM O/S Font loaded.A8 .PRN0 A[1] Exit [2] Load different font?AB GETKEYL R> 1V HDIRIT8[ X;` CR5e Q>j I}PTEMPt XTRALFy CRLF~ "TEMP HXTRALF X; : X; DIRIT8 R> 2 FDIRIT9 X; GOOF !DIRIT7A X; DIRI}IT9 !REDIR X; X; Edit strbuf to filename X; with defaults EDITFNAME QSTRBUF;; D: or Dn:? R> : >FCOPYASII}S;; Yes, no edits on front QSTRBUF R> : FCOPYASIS X; Q> D;; Set default( PFILENAME;;I} drive spec2 QDRVTX< PFILENAMEF Q> :P PFILENAMEZ $> d %>n COPLPs =QSTRBUF8;; Move rest I} of fnamex PFILENAME8 R> FEXTST X; 3 0 HCOPLP X; FEXTST X; COPYASIS $> %>I} COPLP1 QSTRBUF8 PFILENAME8 R> FEXTST X; R> FEXTST X; 3 0" HCOPLP1' X;, EXTST1 $>6 EI}XTST1; QFILENAME9@ R> .;; Extender here?J FGOTEXT;; Yes, done editO X;T R>^ FADDEXT;; Add extensionc X;h R>r I}FADDEXTw X;| 2 9(>;; Done all possible? HEXTST1 X; ADDEXT %> ADDEXT1 QDRI}VTX8 PFILENAME9 2 3 )> HADDEXT1 X; GOTEXT : X; X; Execute a GR.0 to restore X; E: S: and K: hanI}dlers X; after ROM->RAM function. GRAF0 $>`;;CL.# 6 - Screen Q>CCLOSE& PICCOM90  CIO: $>`D Q>COPN;;OPEN S:I}N PICCOM9X Q> S;; S: temporarilyb PSTRBUF;; on CASBUF pg 4l Q> :v PSTRBUF 5Q>;;Point to S: I} page 4 PICBADR9 Q>;;GRAPHICS 0 PICAUX29;;For S: handler PICBADR9;;Rest of S: adr >Q>;;Flip bit 4 & I} allow READ/WRITE PICAUX19 !CIO;;Open & return X; GOOF Q>;;Left margin PLMARGN Q>'I};;Right margin PRMARGN CRLF PRN0 AĠ٠A GOOF1 $PRN0 APRESS TO RESTARTA GETKEY :% XI};* GETKEY/ INPUT =STRBUF=4 QSTRBUF> :C X;H GETFNAMEM INPUT =STRBUF=R :W X;\ PROMPTa  A堣I}οAf PRINTXTk &ICBADR;;Print to #0p &TXPNTz @'ICBADR;;X-lo byte, Y-hi byte. I} 'TXPNT %> 'ICBLEN 'ICBLEN LEN Q@TXPNT7;;Length? R>;;ETX-End of text FOUTPUT X; #ICBLEN I}HMORE X; #ICBLEN MORE 3 HLEN;;256 chars max. X; OUTPUTQ> ;;PUT record$>;;Ch #0 PICCOM!CI}IOX;$X; Print a blank line.CRLF3 PRINT 8:=X;B TITLEGQ>L PLMARGNV CRLF` TOPj#PRN0 AI}ӠAt#PRN0 AA~#PRN0 AA#PRN0 A堠A#I}PRN0 A̯ŠA BOT!CRLF;;CR and [RETURN]X;TOP#PRN0 AA:X;BI}OT#PRN0 AA:X; MISLCMD %MISLLEN$> &COLDST MISLPUT QMISLCOM9 PPAGE69I}2 1 HMISLPUTX; !PAGE6#X;( MISLCOM2 =====< ===== F L=t====P  ===I}==Z ==)===d ====*=n =====x =====* ==*=== ===I}== ==== =R ===== =====  =l===l= =` MISLLEN MISLCOI}M RAMGR>D:RAMOSDAT.M65 RAMGRLN RAMGREI BEGINI}GINHIY ! ""F:(F  (JF(EF FEE;(@  F.F +/FF,YFEM+FFM!F(M4F*YX!}p "------------------F *YX! "8 - Return to menuF (+E6p5 !@@ p5 F EG}FF  ?+@ @ 1JFY@!@ "=>F F  VF!YX! "Days"F:(F NE5( F } HNNJFMENF  ?+@M@ 0JFF+!M! E1F  4F!+!M! E0F F+EA5&X+ F F+}  h(JFNEF FE  ZNF F.F /+6F0F,YFM+FFM!F($YX! ""-" } FY0! ""F:(F  (JF(E-F FE6  @Z5(  5=(@ pp6( F  F-}E(F.F /+0F0-EF0E Time On (24 hr.) FM6FFE-F0.FE /+1FF-EFETime Off (24 hr.) FM6FF}E-F.FE E+2FTF,YFM+F(M!F(<YX! "Level (0=Hi, 8=Low) "" F=Y8! ""}F:(F ^(JF(EF FE Z5( 5( F0 FE(F(.F 2+3FF,YFM+F(M!F(BY !} "Mode (N)ormal / (S)ecurity "" F Y<! ""F:(F (E( F 0(JF(EF FE NZ}(N(SF)FE(F.F +&FM*F()! Clear | BSR? !! Yes | No !F HJFFE$EB B@} FMF)!$ Are You Sure | You Want To Quit? !! Yes | No !F JF8FCqF F.F' (}}}@(@}(UN} }}  }}zLv}<D^Dxp$d2V Z   V   }}`^FT` Efv*oM$F m HPHUBg?<JNA(m)m -:gS)@ -OK1M}PC#HN Hx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNHz2?< NA\pdAM}xr0XQ)K\NNZnnJrBjNuHz?<&NN\M}CAp$L Qp NސBlJpNNސpMNސ9@pdAr 0Q0tr N9lN"Nupealp`NuaNJHz?<&NNBWNANCM}2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuCM}2 @ e @}bA@p222Nr,Ҍ0<NBNuM} M}M}&8*:EENuHn< 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNM}u 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuM}DdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNM}u&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEM}JEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdM}iN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAM}р&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f M}0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDM}S4</NJFkSFk&aQN`Ha"FFaQL8Nt6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| M}Bb BkH>aaNRFBdL8?Nt<JBga2SF Be BgQRB`ApdR e <rRF&0xaM}fEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANuM}~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<N"M}Hnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBM}jDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffM}AVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&NAXJ@jNNu~c0NbQNup6`pN}5`p4`p3` p2`p`pN @ddAg(g@A `1||9XgBX)HJPfNu"lJQf2")IBQlk0NV` QNu2pN }~?`2p~@`~?`~@St4f9G/0N(g^AA `.j>(1GRhgbHhBg?,(/?<BNA Jk@$_>g8 Z"XPf, HQHN }/?,(?,NA gJk p x?gp%NNu @fp7`vN)@p `H@)@prtNAHplrtNB 2pNpNpapaN }prapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`N }v`?(* 9AJA)H@@[000][ˈNH Evz`* [g" ]g |g QSz` zQSpQ][ɈNH DvN }x`* [g" ]g |g QSx` xQSpQ]Bp4NސHNu2(g"P@g2RADAH""l`r2oZAe 1@#)N}I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg: k&@0+R`g k#&@0+S@H3 N}Q&f)I`LNuApN2N$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuNHJ@gpNu _0HpNN}2 _0HpN2p"_0HqNp"_0HqNE ұeHHQ0)NV$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%N}NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuN WHNuN VHNu Ihd*NN}$E$RR@H`2QˈNH ENu Ihd"*N$E8*$R`"QˈNH ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QN}ˈNH ENup`(* 0(iN$E 4R`Q$D 4R`QˈNH DNH ENua NuNH IHPg"B  g &gNJBjN}t BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRBN}0 b b瀀`RB0 fрd`A"HJf X0pN2NuN&tЀUrЀQ N20H 0 0H@Nu?<,NN}ATANpN2"H2X@N`:0H@?N`:AAN^2p <0N`QNupC 0(gFd"P$I` *N$E$R(S@jv N}A(Wf( ae zb Q DNu, NH$F Z2Ad@`Q` QNuQNu, NH$F N}Z2Ad@` Q`QNuQNu?r`??, NH$F Z268SDĒDcCc2Ac0`QNuHRp` HRpJQfpN$_& iN}f"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`N}eЀe"Ѕe$W.H@@NL"2` NqR YEjrd0` SjN" KC`e Nг`d \N l\Ӭ\ NupNd N}d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QN}Nu??<NMXNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?Np N9|nNA0,l2J,jkN} 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRlN}l`R@ 0 fQj`Bll?<?<?<NM\NHQNV&g ! ge l*g l*gpNNu<,*?Hj\F FfN`H FfN`RGFc8>`4A g6 g0 g` gTlfelhgFf2pRN"}GRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ N#}fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RN$}E`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N"p`tdN%}bDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNup`N&}pNu)H9@Jp4NސP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ N'}gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C\fApNNNzHP?< NA\NuH@N)}aa/a a Nu@0 9c^Nu| PC>$Error # ][Abort]\f.B &lX)K\)ld` lp ,N*}BQjNup(N Division by zeroOverflowNumber not integer|-2147483648 .. 2147483647Number not byte|0 .. 255N+}Number not word|0 .. 65535Square root only|for positive numbersLogarithm only for|numbers greater than zeroUndefined eN,}rror Out of memory Function or command|not yet implemented String too long|max. 32767 characters Not GfA-BASIC V1.0 progN-}ram Program too long|memory full|NEW Not GfA-BASIC program|file too short|NEWArray dimensioned twiceArray not dimensionN.}edArray index too largeDim index too largeWrong number of indicesProcedure not foundLabel not foundOn Open only|"N/}I"nput "O"utput "R"andom|"A"ppend "U"pdate|allowedFile already openFile # wrongFile not openInput wrong|not numericN0}End of file reachedToo many points for|Polyline/Polyfill/Polymark|max. 128Array must have|one dimensionNumber of pointN1}s too|large for arrayMerge - Not an ASCII fileMerge - Line too long|aborted ==> Syntax error|program aborted!Undefined N2}label"Out of data#Data not numeric$Syntax error in data|unpaired quotes%Disk full&Command not allowed|in direct mode'PrN3}ogram error|Gosub not possible(Clear not allowed in|For-Next-loops or|Procedures)Cont not possible*Parameter missing+ExprN4}ession too complex,Undefined function-Too many parameters.Parameter wrong|must be a number/Parameter wrong|must be a striN5}ng0Open "R"|Record lenght wrong2Not an "R"-File3Only one Field per|Open "R" allowed4Fields larger|than record lenght5TooN6} many Fields (max. 19)6GET/PUT|Field string lenght changed7GET/PUT|Record number wrongMENU error?RESERVE error@Pointer (*x) errorZLOCAL error[FOR error\Resume (next) not possible|Fatal, For oder LocN8}ald GFA BASIC V 2.0| Copyright 1986|GFA Systemtechnik GmbHf2 bombs - bus error|Peek or Poke possibly wrongg3 bombs -N9} adress error|Odd word adress! Possibly at|Dpoke, Dpeek, Lpoke or Lpeekh4 bombs - illegal instruction|executed in machine coN:}dei5 bombs - divide by zero|in 68000 Machine Codej6 bombs - CHK exeption|68000 interrupted by CHKk7 bombs - TRAPV exeptionN;}|68000 interrupted by TRAPVl8 bombs - privilege violation|68000 interrupt by|execution of a|priviliged instructionm9 bombs N<}- trace exeptionGeneral errorDrive not readyUnknown commandCRC error|disk check sum wrongBad requestSeek error|trN=}ack not foundUnknown media|boot sector wrongSector not foundOut of paperWrite faultRead faultGeneral error 12WrN>}ite protectedMedia change detectedUnknown deviceBad sector (verify)Insert other disk|(request)Invalid function numbN?}erFile not foundPath not foundToo many open filesAccess deniedInvalid handleOut of memoryInvalid memory block aN@}dressInvalid drive specificationNo more filesGEMDOS range error|seek wrong?GEMDOS internal errorInvalid executable NA}file formatMemory block growth failuredA JpBQA/)H )l gBlJpNސB Aprt0 0BBB R@ @efANB}000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 NC}$HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ TND}d BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BNE}AAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVANF})H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nސp>L8N AJ0?C bL000zH?NG}A/.)HpNސLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A NH}hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nup)@JphNސLtH &JKBCH .A/~0 1PP1P1PA NI}L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nސ"F QNu _b@gGHpp 0f NNJ}uGNp @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`$Y8gHRDD*D%H8#$c2g# HNK}RDD%H`pr`&AdRd QJBgRBBABJk"l` d&6&|0!NuN"l` epZN?<NNTA8NANL}8NzNfN5xHxNDoes not work | in low rezHPN OK r"_ NANNzNBmpNpNpNpNNNM}?"_NHPp"_NNj}C NA 0 <r$<ANHmHAN/Hm AN&<x*<NN Choose Record4NNprNNEnter Choice rNNpr(NNNC NHm A Nw}"_NdfNJ8p,N"C NA NrANAN&<x*<NpJBgp/AN&<x*<NpJBgp/ANNx}&<x*<NpJBgp/AN&<x*<NpJBgp$VHgNJ`AN&<x*<NfNKpA NNy}VA큶NA큶N&<x*<NfNKpA큶N~NMNOP\TbTTUA큶N&<x*<NpJBgp/Nz}AN&<x*<NpJBgp/AN&<x*<NpJBgp$VHgNK`AM"NA큰NrN0ANN{}&<x*<NfNLLA큰N&<x*<N"A큰NAN&<x*<NfNL <r$<A큰NNA큰NN|}AN&<x*<NpJBgp/AN&<x*<NpJBgpF$VHgNL`nA큶N&<x*<NgNN}}M`NzNNNzp r NC NHm A킚"_NjHm p"_NC킚Np r NC NHm A킠"_NNHQD/p0"NHPN}A킾NVN"_NCNA 0 <r$<ANHmAN&<x*<NNNN@`NqNqNprNNDaysNNC NA NVANN}ANzNpJBgp/AN&<x*<NpJBgp$VHfNRAN&<x*<NANHmAN/p"N}"_NHPp0N""_NdfNRHmAN/p1N"r "_NNRHmAN/p0N"r "_NN&XHPA"_NNVN.CN}NHm A "_NdfNSA 0AN&<x*<NgNS6`(NNzNAB*NABNNprNAN}NA*NN 4NNpr,NNNC NHm A "_NdfNSA*C NA NV&<x*< NpJBN}gp/Hm p"_NNV&<x*<NpJBgp/A NHN&<x*<NpJBgp$VHgNTN`A C*NNN}NzA킦C*NN Time On (24 hr.) CNAS>NA*C킦NNNzA킬C*NNTime Off (24 hr.) CN}NAS>NA*C킬NNNzNAB*NABNNprNNLevel (0=Hi, 8=Low) A킲NN NN}Npr.NNNC NHm A "_NdfNUA킲C NA NVzNpJBgp/A NV&<x*<NpJBgpN}$VHgNU`A C킲NNNzNAB*NABNNprNNMode (N)ormal / (S)ecurity A킸NNN} 4NNpr/NNNC NA NC NHm A "_NdfNVA킸C NHm pNN""_NdpJBgp/Hm pSN"N}"_NdpJBgp$VHgNV` A C킸NNNzA\NHxN Clear | BSR? 4HPN Yes | No r"_ NANN}AN&<x*<NfN\N\HmpN""_NHPp`N""_NCNA@NA큰 0AJNA큰NA큰NN}rN,HmpAN""_NdfN\A킔CNA큰NvNJANAN&<x*<NfNXN <r$<ANNAN}N`HmpN""_NHPANN""_NHPA큰NvNJNNNNzNNzMondayTuesdayWednesdayThursdayFridaySaturdaySundayStatusDevice I.D.LocationDayN}sTime OnTime OffLevelModeMain Menu5.|d(||Rt ^Z8&,&\r^." D&2| 4Dz& N" rN}V" n2 P$X0 dNN" zV" Nd0HDdXL V N}LLe with the XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider all oursoftw}are listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY!-ANTIC ED}ze and enhance.Good luck, and ENJOY!-ANTIC EDHAR@x@vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠ&}f@l(}v A   3( A j@ B*-@@"R("ΠҠՠҠ&}ˠҠ_@j%D:MENU D1:HELP.BAS&}j%D:MENU D1:HELP.BAS$G|WԍWԩ ЍЍЍЭ01̍R}Ѝ0^1LaWԭ 8LGЭЭЭЭ01LaR}S:` B V`)IKJDGEB V`` BHIDE V`UVT`s`NcsR}s 8iɩȩ:/Щo `r K I R}I 8JLT'L9SҍҍҍҍԠb \LP Isҍҍҩ Jҩҩ ҩmR}iҢ < ΩLSҍҍҍ I IL9Sҍҍ $KҩҩLҩҩ̍ҭ R} Hh "ҍҍҍҍԩ b \LPд ҍҍҍҍLR}9Sҍҍҍҍҍҍҍύҩҩ<ҍ U1^`(ЭЭ OUR}LZUβγδЭЭ OULZU%` U sU U sULdUiLUhhԠb \LPR}``ȩrɠx!/x4``ȩrɠx!/x4`R}R}R}R}R}R}R}R}R}R}R}R}QRRRRR#??3??!3|&??3??$+|R}QRRR"???3??')||%???3??##/22%#4,||!???3??&83+),,,||QRR}$???3??"!$$%$|||'??????%,|||#???????!).#/22%#4%|||&???R}b???$83+),,6||ZR"b??b3??'35"42!#4%$%||%b??b3??#,||!b??b3??&R}3|ZRRR$b??b3??"b|'b??b3??%bZRRRRR#b??b3??!bR}0resstoreturnR}pppB[R}A^R}R}HHHRLaLaLbLoc 筰iR})Ϡ8ȱ>LaLah )-L8bh 135: ?2 7 <  bLa bLa bLa cLa b cLR}a c bLa b bLa b bLa Р Э bLa`Ʋƴƶȱȱ `}Lb ȑR}ȑȑȑ涥} :c`0βγδЭЭ`ЭЭ``` R}ЍЭ8Р‘ `F8 ЭiЭ Lcđ Lci ЭR}8Э LcƑ hLaR}R} R}R}R}R}R}R}R}R}R}R}R}R}*---------*-&' !----R}*--------*-&' !----*--------*-&' !--#-*--------*--&'-----*--------*-&' !----*--------*-&'------*--------*&' !--#--*----R}----*+---------+-()#&'---+------+-()#-----+--------+-()#&'$%-+-------+--()-----+--------+-()#&'---+-------+-()#-----R}+------+()#&'$%--+--------++--------+--$%()---+-----+--$%-----+-------+--$%()#--+------+---------+--------+--$%R}()#--+------+--$%-----+-----+-$%()#&'-+--------++--------+---------+-----+---------+-------+-----$%--+------R}+---------+--------+-----$%--+-------+---------+------+----$%()-+--------++---------+---------+-------+---------+----R}-----+---------+--------+---------+---------+---------+---------+---------+--------+---------+--------+,;>?./018,;@A@A:R},;8:,6@CC8,ADEFBC8,A>?8,;./01,BC668,./01GHI6@,A>?:,;8:,6@CC8,ADEFBC8,A>?8,;R}./01,@A892345BCGHI<=<=8@ABA<=./01@AGHI<=<=76<=GHI<<=877623458<=<=>?@A72345776BC<=<=BC<=@ABA<=./01@AGHI>wcAAAAAA|>8`]t]uS}^vs sss(s2sOsYs$$$ F# pppTdTdT,eTeTXfTfTgThThTFiirjTkTkT4lTl`mS}mTn"oF`rFtrFrFrA`S}S }S }S }S }S }S}S}KEYED-UP!٠٠OPTION-үSELECT-̠START-ӠS} 4)-%350S}$ l  G' Fn#V  S} & yF"&,!4V 5 y"! 5 l d  % l d GF !! l d S}%&,!45 dy !&,!4dyGn. $&,!4 5 l dyG # 5 l dyG &l dy G'&,!S}4l dy G #&,!4! 5 l d "! l  % l  F!!V  $ S} y'yn'dy GF. # 5 l d G &l d GF #V 5 S}dy& dyG"&,!4V 5 l dy!V 5 l dy$5 l dy G%&,!45 l dy GS} !&,!4dy GF.PS}PPGKEYED-UP!BY RAYMOND CITAKAUGUST 1988 ANTIC SUPER DISK BONUS Keyed-Up! is a music educationgame that teaches the relatW}ionshipbetween sounds and key signatures(sharps or flats at the start of acomposition) of various major andminor musical W}scales in the trebleclef.XXX On the first screen you will seeseveral options available. Use the[OPTION] and [SELECTW}] keys to set thegame level from 1 (easy) to 3(difficult). You can select majorkeys only, minor keys only, or both.A HELW}P screen, which you can switchon or off with the joystick button,explains the scoring and shows thekey signatures for the W}scales. Press[START] when you are ready to play.Anytime you want to return to thetitle screen, press either [RESET] or[SW}TART].XXX The game screen shows a fencealong a highway. There are fivestrands of wire on the fence -- likethe five W }lines of the musical staff.Between each fence post is a keysignature. There are seven sectionswith one to seven sharps, sW!}evensections with one to seven flats, andone blank section with no sharps orflats. A bird appears in flightabove the fenW"}ce and a letter(indicating the first note in thescale) appears at the lower centerpart of the screen.XXX Using the jW#}oystick, land the birdon the section of fence that showsthe correct key signature for thescale and note indicated. If W$}you land correctly, you gainpoints and a new scale will beplayed. If you land on the wrongsection of fence, watch the birdW%}ie --the fence is electrified! Playcontinues for three minutes.XXX You will have to listen carefullyto the scale beW&}ing played to see ifyou can tell the difference betweenthe major and natural minor scales.Beginners should first play the W'}majoroption, then the minor, to accustomtheir ears to the difference. (Thethird note of the scale is the bestone to listeW(}n for.)XXX To play, copy KEYEDUP.EXE to adisk which has been formatted withDOS 2 or 2.5. (Make sure the DOS.SYSfileW)} is on the disk, too!) Renamethis copy of KEYEDUP.EXE toAUTORUN.SYS. Finally, turn off yourAtari, make sure your KEYEDUPW*} disk isin drive one, remove all cartridges(XL/XE owners should press [OPTION] )and turn on your Atari. KEYED-UPwill loaW+}d and run automatically.ners should press [OPTION] )and turn on your Atari. KEYED-UPwill loaT6ST LISTINGSON MONTHLY DISK...and how to get themby CHARLES JACKSONAntic Technical EditorFor those ST owners who do no[-}t yetown a C compiler, but are eager totry out Antic's C language listings,we are now including the executableobject code[.} on the Antic MonthlyDisk.XXXAll disk files with extendersof .PRG, .TOS, .TPP and .ACC arecompiled ST programs, ready [/}to betransferred to an ST disk andexecuted. Given enough disk space,we will also include the sourcecode. 'C' source cod[0}e files willhave a .C extender, assemblylanguage source code will havean .S extender.XXXPORTING FILESBefore using an [1}ST program, you musttransfer it to an ST disk. Thisprocess of transferring filesbetween computers is called"porting."X[2}XX To port a file from the AnticMonthly disk to an ST disk, you'llneed the Linkline programs fromthe August 1985 issue[3}.(LINKLINE.PRG and LINKLINE.EXE are both included on this disk).XXXIf you don't have Linkline, youmay also use: [4}- A telecommunications programfor the ST which supports XMODEMfile transfers.FLASH or PC/InterComm will work).XXX - [5}A similar program for your8-bit Atari which supports XMODEMfile transfers. Chameleon orBackTalk will work. Unfortunately[6},HomeTerm won't do the job because ittranslates all carriage returns intoATASCII value 155. Also, don'texpect to succeed[7} at ST porting withany version of AMODEM.XXXA - 8-bit Atari computerB - An Atari 850 Interface Module with a modem [8}cable (RS-232 to D-9.)C - Null modem connectorD - Gender changer (if required)E - Your ST   [9} | A |=>| B |=>| C |=>| D |=>| E |     Sample porting configurationXXX IMPORT[:}ANT: If you're not usingLinkline, both modem programsmust be configured similarly. Ifyour 8-bit software is set for 1200[;}baud, your ST software also must beconfigured for 1200 baud. Additionally, BOTH programs mustbe set for 8-bit (binary) [<}filetransfers.XXX Once both computers are linkedtogether you may begin the filetransfer. You can also reverse this[=}procedure to transfer files from STdisks to your 8-bit machine.XXXWALK-THROUGH DEMO1) LINKLINE:Once both LINKLINE pro[>}grams arerunning, place the monthly diskinto the 5-1/4" drive, and sitdown at the ST. Choose theLOAD A FILE option and t[?}ype inthe name of the file you want totransfer. LINKLINE will pullthe file off of the monthly disk,and save it to an ST [@}disk.That's it. You're done.XXXWALK-THROUGH DEMO2) MODEM PROGRAMSLet's walk-through a sample filetransfer. We'll [A}use BackTalk on an8-bit machine, and FLASH on the ST. Configure BackTalk for 1200 baud,with Full Duplex and ASCIItrans[B}lation. Press [SELECT],choose the XSEND option, selectXMODEM protocol and enter the nameof the file you wish to port.X[C}XX From the ST desktop, double clickon FLASH.PRG. Make sure FLASH isrunning at 1200 baud. Type -Bto change baud[D} rates, if necessary. Now type -R (for RECEIVE).When the file selector box appears,press [ESCAPE] and type the name [E}ofthe file to receive. Press [RETURN]or click on OK. To begin the transfer, press the[START] button on the 8-bit Atar[F}i.XXX Occasionally some versions ofXMODEM will append extra "garbage"characters to your files. Textfiles, such as C[G} listings, areparticularly susceptible to thisproblem. If your implementation ofXMODEM appends garbage characters toyour[H} source code, you must removethose characters with a text editorbefore compiling the program.[I}program.XW?