@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED* MENU 018 COPYING---D1:MENU4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`Y? O XLAPNB0A6@ ((<(dl"(@ D +26-?:C: X}hhhԩ`,<A6,DAdAUuAA'A @9AAK@@]@ Y}@7c(}uAR@++(#++(#| Antic Monthly Disk, Aug. 1987 | Z}++(#( | 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@- @ 2() <@ `}F''7@<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,% a}@' |Z++(#| |[ ( |  |\++(# b}d**(" Select HELP.BAS for information.xAR[@@9'-@@#C( FI c}LE NUMBERM A0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$ d}@%@<+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@ e},4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,% f}@,.?AR@'-@@"?  LOADING ? A@@91@@5% g}? B[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B A0 h}D1:MENU.XLAPNB0A6@ ((<(dl"(@ D +26-?:C:   5'LINEAFQ C1;A ,;@,;@,;@,CARj}W (} ( (1) HELP file#(@((2) How to 'port' filesW( to an ST disk(((3) ANTIC DB Helpk} (( SELECTION""(+41)42)43,@ ,6. D:DOC.TXT42,6. D:PORT.TXT 436.l} D:DETAILS.TXTN((Hardcopy (Y/N) ?N+@<(+4Y)4N,D(N @&1 (}@1@m}@ A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(}` *O.|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHNo}^NuNVNZ./</</<N $ 3>.j/<>/< N&P. ?<NTByByN^NuNV. <p}?<NT3 yfa< yfa. ?<NT3 yf3N^NuNV. r?<NTBy<`Ryq}< y>Naa>>NN^Nur}NV. ?<NTah09,|3f09,|@3:. ?<NTD:*B9./</<s}NPJyg">>N>a&a>>NN^NuNVBy`By<`Ry< y?<?<N vt}X>f?<?<N vX>:?<?<N vXByd`*0yd"|00H>?<?<N vXRyd09dy,m>?<?<Nu} vXN^NuNV32>N 3h09h|A:*.*B9B9./</<NPJyv}gv>>N>/<?<=N \32 y2o$.0/9 n?92?<?N P3,>2?<>N T>>NNw}^NuNV>>NBW/<?<2?<>N T>>NN^NuNVx}>>N>aa>>NN^NuNV>?<N vT3& y&f>?<N vT3f>?<N vT3:09:y}@yf3.Byd`* |02yd/?<?<N vX _Ryd09dy.m3d,N^NuNV>?<?<N vX nf>z}S?<?<N vX nf>L?<?<N vXBy`> |2y \g$0y"|0H>?<?<N vXRy |2y{}J(nBy`*0y"|0H>?<?<N vXRy |2y n> ?<?<N vXN^NuNV. :?<N|}T>>NNN^NuNV3eBByDByH3NNN^NuNV3{BByDByH3NNN^NuNV#z#}} .мZ#3dBByD3 H n 3NN n 0N#z###~N^NuNV3 3~}zBByD3H3NNN^Nu#Bv"<vpsNBNuNV30.|Hм -@=|` nH2n2}RRn nm.4N>B@09 N^NuNV#### #Z##4> aF3} @pN^NuNV>a*pN^NuNV3# Z>4NN^NuNV#Z# ^>ZN n0"B@09 N^NuNV>}MN n0" n 0$ n0& n0(B@09 N^Nu#NN/9Nu#NM/9Nu#NA/9Nu} }}[1][ Welcome to LinkLin}e/ST | v.041286 ][ Perform ][3][ Load: 8Bit->ST Save: ST->8Bit ][ Load | Save ][3][ Enter the 8Bit file to load. ][ Selec}t ][3][ Select the ST file to transfer. ][ Select ][3][ Select the new device:filename.ext ][ Select ][3][ Want to tran}sfer another file? ][ Yes | No ][3][Thanks for using|LinkLine/ST|v.041286][ Exit ]}_crystal>_ctrl_cn _workin} _hialert _typeale <_loadler r_saveler _devaler _moreale _tksaler :_max_len n_main}J_initiald_communi_termina_load_fi8_save_fi_load_8B_write_tL_read_thX_send_}co_send_fi_get_fil_v_clsvw_v_hide__v_opnvw&_v_show__gsx1_gsx2_iiof}fz_iooff_pioff~_pooff_vdi_crys_if_appl_inZ_appl_ex_form_al_fse}l_in_graf_ha $_gemdos _bios v_xbios f_intin_intout_org_pal_c_mx}_my_finishe_new_pal_i_j_k_l_hi_word_w}rite_b_ptsin_path_ptsout_write_h_global_inchar&_lo_word(_pressed*_}bytes_r,_bytes_t._text_bu0_control_int_in_int_out _read_ha._dum0_file_ha2}_ad_c4_resolut8_lenhi:_delay<_gem_han>_gl_apid@_contrlB_addr_inZ_charact}b_file_ind_lenlof_driveh_workoutj_button_filenam_for_rea_action__addr_ou}_color.$            }            }$    .|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHN 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 ***Whenever there is sufficient room,we will be including TYPO-ST andLINKLINE on the monthly disks.Please see th}e HELP files on thisside of the disk for LINKLINEinstructions.XXXThe menu that appeared on the screenwhen you bo}oted the disk will onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN ST BASIC programs!)If you }try to run a program and theresponse is 'cannot run Filename',then check the file extender withthe following list:XXX.}SYS Reserved for DOS system files..DAT Data file. Usually accessed by another program..TXT Text file. Usually }accessed by another program..PI2 A Med.-resolution DEGAS picture file.XXX*** Files for the 520 ST ***.}C C Language source code. Must be ported to an ST disk. See the corresponding article for complete }details..BAS An ST BASIC program. WILL NOT RUN on 8-bit computers!!! Must be ported to an ST disk. } See the corresponding article for complete details.XXX.PRG A compiled ST program which uses GEM. } Must be ported to an ST disk. See the corresponding article for complete details..TOS A compiled ST pr}ogram which does not use GEM. Must be ported to an ST disk. See the corresponding article for com}plete details..S 68000 Assembly language source code. Must be ported to an ST disk. See the corre}sponding article for complete details.XXX Whenever possible, we will try toadapt our programs to work with asm}any configurations of C as possible.But we think ANTIC's published Clistings should come as close aspossible to the indust}ry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo this.XXXAll programs from ANTIC is}sues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We have worked to insure that ourprograms operate a}s published, butwe consider all our softwarelistings to be works in progresswhich we encourage you topersonalize and enha}nce.Good luck, and ENJOY!-ANTIC EDtwarelistings to be works in progresswhich we encourage you topersonalize and enha(pqSSFLIPSTOSTARFIRSTSCREEFLIPBONUBRJJJOODISYYBTTTXXNSNXYMMXOXOYDDUF$} @$}@@$} !"#$%&'()*+,-.$}ST 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}e files willhave a .C extender, assemblylanguage source code will havean .S extender.XXXPORTING FILESBefore using an }ST program, you musttransfer it to an ST disk. Thisprocess of transferring filesbetween computers is called"porting."X}XX To port a file from the AnticMonthly disk to an ST disk, you'llneed the Linkline programs fromthe August 1985 issue}.(LINKLINE.PRG and LINKLINE.EXE are both included on this disk).XXXIf you don't have Linkline, youmay also use: }- A telecommunications programfor the ST which supports XMODEMfile transfers.FLASH or PC/InterComm will work).XXX - }A similar program for your8-bit Atari which supports XMODEMfile transfers. Chameleon orBackTalk will work. Unfortunately},HomeTerm won't do the job because ittranslates all carriage returns intoATASCII value 155. Also, don'texpect to succeed} at ST porting withany version of AMODEM.XXXA - 8-bit Atari computerB - An Atari 850 Interface Module with a modem }cable (RS-232 to D-9.)C - Null modem connectorD - Gender changer (if required)E - Your ST   } | 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 }use BackTalk on an8-bit machine, and FLASH on the ST. Configure BackTalk for 1200 baud,with Full Duplex and ASCIItrans}lation. Press [SELECT],choose the XSEND option, selectXMODEM protocol and enter the nameof the file you wish to port.X}XX From the ST desktop, double clickon FLASH.PRG. Make sure FLASH isrunning at 1200 baud. Type -Bto change baud} rates, if necessary. Now type -R (for RECEIVE).When the file selector box appears,press [ESCAPE] and type the name }ofthe file to receive. Press [RETURN]or click on OK. To begin the transfer, press the[START] button on the 8-bit Atar}i.XXX Occasionally some versions ofXMODEM will append extra "garbage"characters to your files. Textfiles, such as C} listings, areparticularly susceptible to thisproblem. If your implementation ofXMODEM appends garbage characters toyour} source code, you must removethose characters with a text editorbefore compiling the program.or those ST owners who do noa 1000 ' TYPO/ST 1010 ' (c) 1986 Antic Publishing 1020 ' Written by Patrick Bass and Bill Marquardt 1030 ' Version 050 }286 1040 '----------------------------------------------------------------- 1050 ' 1060 DISK=1: OUTPUT=2: TRUE=(-1): F }ALSE=0: CHECKSUMMING=TRUE 1070 TV=FALSE: PRINTER=FALSE 1080 ' 1090 print "File to Check:": input FILENAME$ 1100 pr }int "Output on:" 1110 print "(S)creen or ": print "(P)rinter ": input DEVICE$ 1120 if( DEVICE$="p" )or( DEVICE$="P" )th }en PRINTER=TRUE else TV=TRUE 1130 ' 1140 if TV then print "Checksum for file: ": print FILENAME$: print 1150 if PRINT }ER then lprint "Checksum for file: ";FILENAME$: lprint 1160 ' 1170 '----------------------------------------------------- }------------ 1180 open "I", #DISK, FILENAME$ 1190 ' 1200 while CHECKSUMMING 1210 LINENUMBER=0: CHECKSUM=0 1220 } ' 1230 gosub GETALINE 1240 ' 1250 DECIMAL=CHECKSUM: gosub DECTOHEX 1260 OUTPUT$=str$( LINENUMBER )+" :" }+HI$+LO$ 1270 if PRINTER then lprint OUTPUT$ else print OUTPUT$ 1280 wend 1290 ' 1300 close DISK 1310 end 13 }20 ' 1330 '----------------------------------------------------------------- 1340 GETALINE: 1350 BLINE$="": on error }goto 1300 1360 GOTALINE=FALSE 1370 ' 1380 while not GOTALINE 1390 line input#DISK, BLINE$ 1400 if len( BL }INE$ )>1 then GOTALINE=TRUE 1410 wend 1420 ' 1430 LINENUMBER=val( BLINE$ ) 1440 for CHAR=1 to len( BLINE$ ) 1450 } OK=TRUE 1460 CHARACTER$=mid$( BLINE$, CHAR, 1 ) 1470 if CHARACTER$=" " then OK=FALSE 1480 if OK then C }HECKSUM=CHECKSUM+asc( CHARACTER$+chr$( 0 )) 1490 next CHAR 1500 return 1510 ' 1520 '-------------------------------- }--------------------------------- 1530 DECTOHEX: 1540 DECIMAL=abs( DECIMAL ) 1550 HI=int( DECIMAL/256 ): LO=( DECIMAL }-( HI*256 )) 1560 HH=int( HI/16 ): HL=( HI-( HH*16 )) 1570 LH=int( LO/16 ): LL=( LO-( LH*16 )) 1580 HI$=chr$( 48+HH- }( 7*( HH>9 )))+chr$( 48+HL-( 7*( HL>9 ))) 1590 LO$=chr$( 48+LH-( 7*( LH>9 )))+chr$( 48+LL-( 7*( LL>9 ))) 1600 return 50 {/0Rebound Contestby J.D. Casten (c) 1986, ANTIC PUBLISHING'6-@6-@'6-@$}06-@$F:B2y,"@06- Adg-@)-/6-56-[6-?$}:C:,<<<8,<%$@<8,,gAi6 6-%1&6.7%$AV,64OAPj'6-@6-@$}'6-@mM 4B6-66-%"156.7%$AV,=4OC6-M APn' 4B6-6-@' AP$}p4JAaxJ 416-@#6-@+6.BJ AP&AA$+"6@,yI 426-@#6-$}@+6.BI AP&AA$+"@,\ 4S6.B6-'6-@&.6-6:6-@F6-@R6-@$}\ A S 4T)6-&%6-&16-@!=6-@I6-@S A4DAPH6-F:A$}2,6-%8,%186.7%$AV,H4OA? 4B6-6-@)6-56-@? A$}0JAqI6-@6-@'6-@-,;6-%@I"A= 6-66-%1-6.7%$}$AV,=4OA 6- A` 416-@#6-@/6-@76.BV AP&@$+"6@$},` A_ 426-@#6-@/6-@76.BU AP&@$+"@,_ Ad4S* $}@6-)6-@&06-6<6-@H6-@T6-@Z6-d AS4T*+),6-&%6-&1$}6-@!=6-@I6-@S A4DAP%6-&@%2   4F:B2T$},@*B2x4 Ab@@-A#@?A@TE6-Q!AUb6-P$}:'AU,6-@r,-@6@8AO-6@k2+&,$@y6-A$}R&}  /6-&@/ A%A$+",,e6-@6-@2'6-@1 AG )$}!@U6-@&[6-e A-6-@#& A[ A6-%@'6-36-@?6-@$}G6-%O6-%[6-a AAY@(1-E A%$@PO AaAY@b$}[#A%$@P"'A+"7A;"GAK"WA["A"a$} A6-@6-%6-1@=@OA#@aAA2-@@#C(@$}FLIPS:&@ ROOM: e2@A @@2@A@@KB7b@&$}!6-@-6-96-K@w 2B2x2F:B2T,"@A% AXM A$}+@)AY@b;@@"M@]<A@'-@@<(@Š$}_N(A@,-@@N(@SAVED % OGARTS`nAAB+-@$}L(@FLIP SAVES HUNDREDSn(@ AWARDED KEY TO CITYaa@@+@@ =A@r$}a(@ & FLIPS LEFTbNA @(3-@@ &+",N(@ press triggergF:$}AD,Al A*-B7`B7g#' *$ +@@d+B7t@d!$e$}AF:A@,/6-F:A,&@CA&@M+@W Ae6-%@U(@ BoD$}7(@ U(@ iNiAzI;@ ,6-@%%6-F:@,%AV$F:@,R$};@V,;A6,9@,;@,;@,9@,9@,\#Ap-@@Vt"67,.>:,$} 8;@4,$-@@4("467,.>:,8 $AVG6-?:C:,<$AV<$AV%@<A5$},[-@6-?:C:,<Bxr<$AV%$A%@<A, + 6.B67A6,.B+67@,$}. -AAV w 67@E%<@E%,.O=67As%<As%,.OZ67@%<@%,.Ow$}67AA%<AA%,.O 67@2%<@2%,.O-@@67%<%,.O*'AV"&@$}*67%<%,.D  67@%<@%,.S 67@6%<@6%,.D 67A1%<A1%,.J%} 67AT%<AT%,.1 67@%<@%,.2,-@'@0(67%<%,.T, B K #A%}LQ-@+-@@G/"I$AV%$A%M Q QQ-@HA'"/-@%}I$AV%%$AM Q R #A!-@ %"9-@6-?:C:,<BsD%$@<%}$AV%$A%A(%$@<@,  V= #A!-@@'"068,-968,-= `S #A%}!-A6A%"+/ AA@SA@eJ #A!-@@'"7A6%%}%; J6-?:A6,jw-@76-$AV%$A%AdCc6-?:C:,<<%@<@G,w-%}@o<%&AVF:+@&,$A%$AV%@%,w%$@%F:$AV%+@&,$A%%}@2%,{  t2 #A!-@%".68,-2 A +@ A)AY@b;AVA$%}A6- 6-@6-'6-@36-@?6-@K6-@X6-6@e6-6@k6-q6-w6-% }}6-A @A@A@(x-@@2(@ҠϠD-@% }x(@&q6-+&@,$+ @,+#%A0/"_F:A`,%F:Aa% },$AV%@"@q@wI -&(@ ,-I(@rebound contestG -% }%(@ +-G(@by jd casten~F:A2, @H6-%+F:A2,"@,&+F:A2% },"@,n6-$+ @,%@$+ ,z#%A0~""-@"(@: 6-6-%'"%})"@.6-6:6-@H 6-6-%5")+&@*"@,<6-6H6-@: 6-6-%'"%})"@.6-6:6-@I 6-6-%6+%@*"6@,)"@=6-6I6-@(16-&@%}12@@@2F:AD,A76-%@xs +@ A)AY@(;A%}@OBBy%@aB2w@sBB@dy9%6-F:A`,%AV$F:Aa,9%@A;%}-@@'%%A4) ;BBA9A@R'AAf9A @c @2%}6-@+A#@96-&@EAVK6-W6-c6- ASCREEN #1&&(@%},,,,,.,,,,,,,,,,,,,&&(@, . ,&&(@, . ,&&(@, .%} ,&&(@, . . ,&&(@, .. ,&&(@, . . %} ,&&(@, . .,,&&(@,. ,&&(@,...... ,&&(%}@. . ,&&(@,. ,&&(@, ,&&(@%} ,,&&(@, ,&&(@, ,&&(@, , %} ,&&(@ , ,&&(@, , ,&&(@, ,%}&&(@, ,&&(@, ,&&(@,,,,,,,,,,,,,,$$$85,%}134,107,45,0,-1,0,1,1,16SCREEN #2&&(@&&(@# &&(@%}# Z&&(@ _&&(@ ^&&(@ %} ]&&(@ \&&(@ [&&(@ %} Z&&(@ Z[\]^_Z[\]^ _&&(@% ^&&(@]&&%}(@ Z_^]\[Z_^]\[Z \&&(@[&&(@]\[Z_^]\[Z_^]\[Z Z&&(@&}""CHSEWORDHAIKUPHRNOU1NOU2TMP1MP2MP3CHANGSXOUMAKEPHIJNSNDECOUNTEDECIDCRATCARVANOU)!}BANADSUVERADPRECHOICMXSOUNCONSOCNSODEBUAR((Xd "(J()"} r( (  AH?%cGebPA9)#} !"#$%&')$}()@ *+,- HAIKU WRITERBY A. BAGGETTA (c) 1987, ANTIC PUBLISHING(6-F)%}:B2y,@Zh6-+F:A,&@,(A2+DA A4VAA4hAA4\')&}AR@'@dGG;@@,;A,;A,;@0,;@0,;@,iT<;@@,;)'}@@,;@@,;@@,;@,H6-T6-n6.yl`QxTITLE SCREEN- A")(}X-@ @/(JAPANESE HAIKU WRITERA-@ @X( BY A. BAGGETTA-@  A"))}LOAD CHARACTER SETAVy@7@@ D:JAPAN.FNTC6-AHW%@@)*}k%@y%@\%@+%@ @G6-?:C:hhhLV,<@,R@\ A%)+}SET-UP HAIKU SCREENp -@6?P<2@0@X2@@0@l-@),}@p BA @& /-@A>6-H:,B H@w#6-%@H(} h)-}aiku writer POEM I( (I( !#$ >:@,>:@, *QQ( %&' ).} >:@,>:@,>:A6,>:A8, 00( ()* * >:A6,**(" )/} * )-@@)(!#$ !#$ !#$*)-@@)(%&' %&' %&'4)-@@)()0}()* ()* ()*> A HJAPANESE SONG ROUTINER%%6-P:H:,$@,%@\6-@:7<,,[-)1}@?052@W2@@@@[ ;2@;2@@@)2}@8%-@P:H:,$Ap,46-F:B2y,8 s%2@G2)3}sREMOVE REM FOR DELAY BETWEEN NOTES AB=1^1$OPTION FOR THREE PHRASES9%6-P:H:,$@,%@)4}9@A A  ASTART WITH AN ARTICLE 6. A67@}] A!P("@A#2 F:Ad,"AUA<' 6.6.6-' AP)?}F""============================PARTICLES OR POSS PRONOUNSZ!!THE,MY,HIS,HER,OUR,ITS,YOURdB%6-P:H:,$@)@},%@/#Ap56-? APB$n NOUNSxjjFRIEND,HAPPINESS,NIGHT,SUMMER,SUNSET,CHERRY TREE,BLOSSOM,BUD,PROSPE)A}RITY,SNOW,WINTER,FALL,SPRING,HOPEddPOND,CROW,BALANCE,AUTUMN,SWAN,SAND,TEMPLE,GARDEN,PETAL,WILLOW,ISLAND,TEACHER,TWILIGHT,)B}NOCTURNEEEVILLAGE,BELL,MOUNTAIN,SEASHORE,DEWDROP,SHELL,CLOVER,BUSH,FLOWER..MOGAMI RIVER,BUTTERFLY,TOMB,LOCUST,HERON)C};;GOD,VASE,SKY,SURF,TWIG,POEM,HONEYSUCKLE,OCEAN,MEADOW,&&STRANGER,HUT,ROAD,DRAGONFLY,WEED%%6-P:H:,$@,%)D}@%%6-P:H:,$@,%@#"@#A# A #"@#A# A #"@)E}#A # A  #A@ 6- AP$ADJECTIVESiiHAPPY,SAD,LONELY,TIRED,QUIET,JOYOUS,TROUBLED)F},SLEEPING,FEARFUL,RUSTY,ANCIENT,SWEEPING,BURIED,WEEPING WEAKESTkkOLD,WITHERED,GRAY,WILD,DRIFTING,PULSING,MILK-WHITE,)G}DRUNKEN,BUNGLING,SIFTED,IMMORTAL,FRIENDLY,NAMELESS"iiFRESHEST,HAPPIEST,QUIETEST,SWEETEST,FRIENDLIEST,NOISIEST,FRESHER,HAPP)H}IER,QUIETER,SWEETER,FRIENDLIER,''NOISIER,HUMBLER,HUMBLEST,PRETTIER6COLD,SAUCY@%%6-P:H:,$@,%@J)I}%%6-P:H:,$@,%@T#"@#A@# AP^#"@#A`# APh #Apr 6-)J} AP|;6-P:H:,$@,;@*!@A$ 6.6.MOST $67@,.$ VERBS)K}llWALKS,SLEEPS,FLIES,HOPES,CRIES,CROSSES,TREMBLES,AWAKENS,CALLS,DREAMS,CARRIES,MOVES,ANSWERS,FOLLOWS,SAW$$IS,WAS,CAN BE)L},WILL BE,SHALL BEiiBALANCED,TAUNTED,REVERBERATED,BLOOMED,LOOMED,ECHOED,DISSOLVED,BATHED,FUSED,WALKED,SLEPT,HOPED,CRIED)M}@@WOULD BE,MUST BE,MIGHT BE,COULD HAVE BEEN,SHOULD HAVE BEENCROSSED,MOVED%%6-P:H:,$@ ,%@%%6-)N}P:H:,$@,%@#"@#A# A #A  6- AP$ ADVERBSkkQUICKLY)O},SWEETLY,SMOOTHLY,ROUGHLY,CHILDISHLY,FINALLY,FREQUENTLY,NOW,SELDOM,RARELY,ONCE,PRESENTLY,FIRST/%6-P:H:,$@,%)P}@/#A& 6- AP$0PREPOSITIONS:RRBY,WITH,FOR,ON,AFTER,BEFORE,AROUND,WITHOUT,BETWEEN,AMONG,UPON,I)Q}N,TO,INTO,OFFDiiABOARD,ABOUT,ABOVE,ACROSS,AGAINST,ALONG,AMID,AT,BEHIND,BELOW,BENEATH,BESIDE,BEYOND,CONCERNING,UNTILNYYD)R}OWN,DURING,BY,FROM,INSIDE,LIKE,NEAR,OF,ONTO,OUTSIDE,OVER,PAST,SINCE,THROUGH,WITHINX%%6-P:H:,$@,%@b%%6)S}-P:H:,$@,%@l#"@#AP# A0v#"@#A`# A0 #Ap 6-)T} AP$CHOICE LOOP-@" $PUT SPACE IN STRING67B:,%@,. $HAIKU$ PAR)U}T = WORD$67B:,%@,.$CONSTRUCT PHRASE 6. AP6.6.> Ap#67B:,%@,.)V} 767B:,%@,.>6. A4)4A @ : 6.67B:,%@,. 367B:,%@,.:6.)W}@$ 6-%@*"@6. A 4"@6. A >"@6. A )X}H]-@@(,/-@@ 7(,I-@@Q(.]6-R)-@%@&( -- ret)Y}u pmoc)$\PRINT POEMf.@.@@P:p"@A"Pz6-6-)Z}-@B:,6-%@7<,4 6-%@2"@(@&6-26-"@)[}(@ (@7<,  A"(@(@(@.(@.()\}@ --Retu Pmoc1(@(@$@. A%1$&-@@"( !#$ & &-@)]}@"( %&' & )-@@"( ()* & )$CLOSING SCREEN 'SAYANARA' U(>:A%,((1()^} RETU PMOC4(O( BIDS YOUR(U( OAu'Av@9AwAO"" IS)_} [CTRL]+[TAB] F(!(   3(   F(  B ( INVERSE CTRL-M = "" )L P( )`})( =(P(  ?(  &(  ܠ3( ?()a}  $( ($( SAYANARA -@?  ))2@%'@@   )b} -@6? E!2@ %@E2@AU@%@   <Au@)c}'Av@9Aw@< +@A+B7tA $ D1:HAIKU.BASATCARVANOU(mfff_`.Z`:r0 ~0~ 0-e}`@||8x8888| ><\||| @||||~  0 0 ~~`0 0`<-f}f (brie"blfcc>3a``py>|faaqqr|G`\L`~OG`~N@@@OA`gs}8$##socb$x< |qa>0fLxPLn& @@@`s>"ui[SGgg73kieec-g}#>cGFx@`x>yscgO>>qavhlf'#aFay>~PcBcss{?>gCCff44fCSIik+Gf,8,Bogg#0sf 1gO@`0 ||6-q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU biHELP BASb'nLINKLINEPRGbDOC TXTbPORT TXTbTYPOST BASbREBOUNDXBASbD HAIKU BASb dJAPAN FNTbvANTICDB EXEb zDETAILS TXTbHALFISH BASc6>8pp8?-r}ww<~~~<x`x`~<~~<-s}0~0 ~ <~~<8~888~8x88<x8888|-t}8888>|8|$|8|~|8p<~~<-u}~x|nf8x8_`.Z`:r0 ~0~ 0,&t=6tC&&D&E&+ 5B&&&© 1 V-L*B&˜ ' h4&0& 1&& *L*1w}& & 1 ,& & 1 , , *`RUNTIME ERROR AT LINE &&Lk*+ +L&` '& &L1x}&PROGRAM STOPPED&&Ńł ȱ`iL'HH **La/ k* r. 1 {+ - . - 1 - 1y}' 1 {+ - 'hhL-ʥ`HHhh`8L'u`1z}Huh` Lk*L' Lk*L' ( - ( - ' k* -Lh* ( - 1{} ' + ( - ' {+ ' k* ' {+ 1 + - h*Lk* ( ' ' + ( - ' {+ ' k* ' {+ 1 +1|} - !( - h*Lh* ' ** -La/` ( k* -L- ( r. - {+ ' - ' +L' ( ' + 1}}' - {+ 'L'C&D&E& ) 1 1,E&eC&iD&`E&8LF& - -E&1~}`ʔȱȱȱ **Șe惠 惨06%*16&* L*HHhh``1}`Lh*ʱ`p B V8+* &)L&l Lw TO BOOT FOR D1}OS TO RERUN *ȱLk*&&8c5d58凅刐SJj)ee`фф1}iiL+8L+ LF&uuuLk*8` +Lk*iLk*豂Hȱh`p 1} +Lk*+H+ BHI+ [4h`8` +Lu, +#` +0 +0Lu, +0` +0L,L},1}`޵` `Ȕ`ʔ惥u`+ BHI1}DEH [4hLh*L+ލ1-+2- +- 0-0 0-Lk* -Lk*` 3-H -h 0 0-`L+8 0ƅ`1}66&L;-HH` B VhH)Kh)0 IJD-EB [4hLk*S:+Lk*TUVLh* -`++L+ L+ʱȱȱ1}`ȵȵLk*Lk* - - -ʥ - - - -LK3 - - r. r. **uȱuȱu P* *1}* -0 ,,LB3 ȱLk* @,LT.ʵ`eeLF&HHhh`ؐHH **1}La/ k*HH r. r.6 {+i i .i i -hh - - 'hh -`HH **% k*1}HH 1L. ** - LF& r.6 {+ - {+` ** -ޠ - 1 {+Lf/  h*Lk*H+ B Vh` ҵ1}  h*Lh*H+BHI [4+h+L1 0+KJB@D0EH+ [4h h*Lk* k* -@0Ɔ1}@0` -H`B [4h`w0w0L1Lk*Lk* +`H h*hL10HH eH1}HƆeiH -lꦆ 1Օ`0  L,`8`21(1-12- ,@ 1021L121@021`1}1 k* -1 1`+6-1L1801LF& + 1 r. 1 1 {++ 1 {+Ɔʭ1 +`ʕ`661}`HHH66666uuuhhhLk* +愵 ' + 'I 11} T280/66&&&`uuu` T2 a2Ј a2 h* +`@\32@2 .1}22222 LF&ȥΖ2i22\3`L*J32 J3`LF&2@82ƅJ3 ȱ1}222` -3L2J3L2H\3 2h`1+ %  88L]3 h* h*1}` h* h*`  h* h*` ]3$' ]3"0 ]30 3Lu, 3Lu, 3Lu,L1L1d4 1 - .c4d4g4g4`H1}+? ++HIc4De4d4Ef4B [4Hg4h` VLF&g4` 3e4 1f4g4g4 1Lh4 3g4LF&e4f41}, g4g4e4 1f48ee4f4g4 11L81  'Lk*hhLk* 4L2 4L*d42&&ȱ01} W5L5 W5c5d5&& L25&&`i`C&&D&E&` *ȱ&&%1}8e慱HȱhױE&iC&iD&Lk*+ BH Vh 1LP*+&BH [4hN 1 P*L 1MLP*+%B1}NLMH [4hLh*)v***G*P*o*11{++2+u,M,_,,,,@,%,4,,**++++,,,-,V-----..-/W/y/2231c0x0{00y)1}///0//333333Q0&='9(_(( )")O)n44h4045005B3e5s5&55 6 1======$ >.)>87>BP>Ln>V>`1}>j>t>~>>>>?%?;?[?m?n?n???? $@@@\@(@2@<@F AP AZAdGAnMAxAAA1}AAB"B&BRBBBBBB4CaCsC"C,C6C@(DJ7DTJD^XDh\DrxD||DDD3EQEgE}EE1}EEEEFF3FgFF&F0F:FDGN5KHcKRK\KfKp&LzdLvLLLLVMxMMMMM9NUNgN kN N N$ N. O8 _OB1} {OL OV O` Oj Pt P~ /P P P P P Q >Q CQ XQ |Q Q Q Q Q Q Q R( 6R2 TR< URF URP qRZ Rd Rn Rx 1}R S :S fS S S S "T 8T CT T T T T T T T" ,U, FU6 rU@ UJ UT U^ Uh Ur V| VV VV fV V V 1}W 8W NW OW pW W W W &X IX gX X& X0 X: YD YN %YX rYb Yl Yv Y Z 6Z }Z Z Z Z [ \[ [ [ [1} +\ =\ n\ \ \ \* \4 ]> ]H ]R $]\ >]f q]p ]z ] ^ ^ 2^ J^ p^ ^ ^ ^ L_ o_ _ _ __W``$1}`.`8`B`LaV a`"aj@atNa~paaaaaaabbGbmbbbb bc2c(bc2oc<cFcPcZ1}cdcn dx'd?dydde6ePe|eeeef8fqffff" g,g6Dg@EgJcgTg^ghgrg|hiCihiii&j0nHnRn\nfop/oz`oooooo1pKpYpoppppp1}pq-q$Lq.q8qBqLrV4r`8rjOrtr~rrXrbss@JsJZsTs^srs|ss's'Ctt1}1}} "The ANTIC dataBASE "by " Carl M. Evans "Richard M.1} Leonard"Copyright 1987 Antic Magazine t*X=X=>X=X= X=X=4K:71}X=64+[= ?^=>$t*X=%?P+X=0X=9 ;?X=-[= [=X=0 >%t1}*X=m?+}WORKING FILE a=D+O}d d=@a=@Xg=@j=@m=@ p=@s=@v=@&y=@|=@=1}@=@=@=&=&=&=&=@=@=@%=@%=@=@= B=% B==DB=B=%B=1}=DB==ŠԠAp=D1:INDEXAs= A|=SearchA=SEARCHA @=p==1}WC@=@$==(==(@%+=A+}"n ?=^=1}=  *=@?p=D7y==DA?j=GAI *=y=D/Fy=D9Ax4=+P"=D *Od "1}=D" t*X=X=  B+X=/X=:"B=X=0 +" ž1}=" ŠҾ堠t*v=X=-A+P*=*=v=A1}=@$=== C@%=B==B$g==  = F===(V? *m=y=DAy=A[=1}m=D/=[=aCJ=sC=====( m=DC====(m=AB%==@Bt *"1}پ t*X=YX=yC=(D@?$a=D7 a=D7V?=D=*v=D1}E=JDhX= XDJ=xD4#a=D7n P**. Display All Records1}. Search For A Record. Return To Main Menu= 4="=D" t*X=1}X=E X=e QEn X=SX=s gEX=AX=a }E=*f*==@?a=D71}?=GAIV?==ED=E=E===F=D;===F=D< F==t **v=DE93F1}"=gFTotal Number Of Records: ==FϠӠ4 *n P**1}=f*@?$a=D7 a=D7=4?==U=GAIV?===F=D;===F=D< ==1}ED= Q=@%+ *[=XQ=+m=F01;m=F1}12< |Q=m=F01;m=F31< Q=+y=A==F=="==Q==Q$1}t*X=QP2 X=~RF * X= X=z X=_ X=` 6R X=-y===X=-CQ%+== =q1}R=+--=Ry=y== FA+y=A+*Pn ?44"} àŠ.F1}ile Directory .Add New Record.Change Drive .Modify Old Record.Create File .Print Record1}s.Modify File .Display Records.Exit To DOS .Display Fields.Format Disk  .So1}rt File" t*X=`X=m"TX=X= X=AX=L 8T =X=@ =6 LJ L LL L1} LL&LlL|L LhL.. X=wJ" Which Disk To Format: t*X=Tn X=X=0 X=X1}= T X==X=WC"Press To Format Disk Drive X=t*X=YX=yFUn =DC=1}:C@?=D7n  *U=V""Current Drive Number : =Enter New1} Drive Number: t*X=Un X=X=0 X=X= V^ X=X=O*=p==WCa==WC 1}*n L$L%+}Data Bases On This Disk:=@?V=p=D1}7Š  ?j=GAIj=ED=W j=F j= F 4*X= NW1} +O*g= Bg=X Bg=g=DB }=Enter File Description = *d=y=DA[=d=D/[1}=Wn ^==  *0 ^=="===  File Name ? = *=y=DAX==F5X=AX=Z IX1} =D/@$X====F5X=/X=:X=@X=[ X& "==  *"1}=D @%+ "$Number Of Fields In Record (2-8)? t*X=2X=8 Y: =X=0 = }1}File Name : =D Description: d=D==@$"=D"Enter Parameters For Field =1}- Of =" Record Size: ==="=D="Label: =  *m=y=DA[=m=D/[=1}}Z"=D"Ԡ *Vg==  = m=DC=" Length (1-37): 1}#="*[=["=D"Field Too Small *== b [=%\["=D"1}Field Too Large *== b ==([===[==[ ==(@%= ["=D"1} Record Size Must Be At least 10 *N =+\"=D" Record Size Must Not Exceed 128 *N 1}= * *H *"%پ t*X=YX=y\n * ?$p=D7 p=D71}j=D4#p=D7@?a=D74#a=D7n X=TX=]@@?p=D7 j=ED=$]+1}}File Name : =D Description: d=D Record Size: =  ̠1} =B$="= ="g==  = F="==(B%+j= Bj1}= Bj=j=DBj==DCj= d=DC@$j=====(-Cj=~=~===(WC@%j='~g=DCj1}=@B+=j=FAd=j= FA^[==D/^$=[=[=F 9^^%[=[= a=Aa=DCa==WC1}a=:Ca=[==[=FCa=[=.DBBp==WC==@$==(j===F5==(j=~1}=~=F,==(_ ======(@%g=j='~FA+}. For All Fil1}es. For A Single File. Return To Main Menu= ="=D" t*X=X=1}E X=e `n X=SX=s `BX=AX=a `L"=D=^===  *="@?1}p=D7=?j=GAIj=ED=@a`= Na~=Dj==D/F9j=ED= pa`== *H *= 1}a*= X=EX=eX= a= X=EX=e a= X= a`=a*X= b1}4n  }== ^== *y==DA@?$p=D7= p=D7==Uj=GAI *1}=y=D/Fy=D9bH *"%ľ堠 "%þ 1}"%Ӿ󠠠 "%ž t*v=X=-Av=DD=v=Dd= 1}cv=DC=v=Dc= cdv=DS=v=Ds= cv=DE=v=De= cn (""Enter Field Num1}ber To Editt*X=X=0 X='dX=X== ?dn=X="!Enter New Label For Field Number =1}== = *y=D/d"=Dm=y=DAy=A== g== = Cg== =m=DC 1}*H *""پ a=Dt*X=YX=yPe"=D"1}@?j=DB==Vj=D4n ??$a=D7!a=D7V?p=D7[==M =@1}?j=GAIj==ED=f=[=[== j=DC[=[==4[=[= =[== =D/qf!p=D71}V@?p==WCp=D7[==@$j===== FAj=D-@%4#p=D7@?==1}Vj=D4""SAVED *V==Dg"=D"=D *+n ?X=T"=D"X=1}gŠԠ^ ˠ *4n T?P** ==|=SortA=SORTAf1}*""ľt*v=X=-Av=DD=Zh="1}#پ žt*=X==Yh=Ehd 1}= = ==@$= @%a=D/@$=a===F5@%O *=M j=@a=@2}=@=s=@@$a====-C@%=a=FD9a=F:9 i ERROR *V4}2}Organizing  a=D@?a=D7[==:?j=GAIj==ED=&&(@ ?&&(@ @&&(@ &%} A&&(@ B&&(@ C&&(@&&}D&&(@E&&(@F&&(@Z[\]^_Z[\ \[Z_^]\[ZG&&(@&'},H&&(@I&&(@J&&(@&(}K$$$52,136,166,10,0,-1,0,70,8,8eSCREEN #5f&&(@$$$$$$$$$$$$$$$g&&(@ &)}h&&(@ i&&(@  j&&(@ &*} k&&(@ \ Z_^[\] l&&(@ , [ m&&(@ , Z  n&&+}&(@$ $ , _  $o&&(@ , ^ p&&(@ , ] q&&(@&,}$ $], \ $r&&(@ ^ [  s&&(@ _ Z t&&(@ Z &-} u&&(@ ]  v&&(@ ^_[\]^_Z[\]^_ w&&(@ _  &.}x&&(@ ZZ[\]^_Z[\]^ y&&(@  z&&(@$ ${&&(@&/},,,,,,,,,,,,,,,,,|&&(@ fnnc,ktbj }$$$71,136,162,10,0,-1,0,54,1,3SCREEN #6&&(&0}@gd nars`bkd bntqrd &&(@saass&&(@$ Z^_Z. - . . .Z&&(@ &1} [][ [&&(@ \\\. . - . .\&&(@ $]b[] ]&&(@ ^nZ^- . &2}. . -^&&(@r _m__ _&&(@k$ Zu^Z- - . - -Z&&(@n [d][ [&3}&&(@k \x\\. . - . -\&&(@` $]d[] ]&&(@l ^qZlhmdehdkc^&&(@&4} __ $ _&&(@$ Za^$ $ Z&&(@ [d] $ [&&(@ \k\&5} $ \&&(@ $]s[$ $ ]&&(@ Z^Z $ ^&&(@ ___ $ _&6}&&(@^Z^$ $ Z&&(@ ] [\] $ [&&(@fnncktbj%$%&7}52,136,166,10,0,-1,0,45,1,21SCREEN #7&&(@ kho `bsnqx &&(@ &&(&8}@    &&(@ &&(@  &&(@&9}  h j  &&(@ l k t ` &&(@r f q &&(@ / &:} &&(@/ //  &&(@   &&(@  $ $ &;}&&(@     $ $&&(@     $&&(@   $&&(@&<} o r u $ $&&(@ q q r  &&(@  &&(@&=} n c q &&(@o vd &&(@ &&(@   &>}&&(@ $$$52,152,70,10,112,-1,0,9,1,2&&(@&&(@&?} &&(@ &&(@  &&(@ &@}  &&(@  &&(@ &&(@$$$$$$$$$$$$&A}$$$$$ &&(@ &&(@  &&(@  &&B}&(@  &&(@ &&(@$$$$$$$$$$$$$$$$$$ &&(@&C}   &&(@  &&(@  &&(@ &D}  &&(@   &&(@    &&(@   _^]\[ZZ[\]^_ &E} &&(@   &&(@ &$&36,72,72,187,208,15,29,70,1,1. &&(@&F}/ &&(@ $0 &&(@ 1 &&(@ &G} 2 &&(@ 3 &&(@ , 4 &&(@ &H} 5 &&(@ 6 &&(@$ $$ 7 &&(@\ _ 8 &&&I}(@[ Z 9 &&(@  : &&(@Z [ ; &&(@&J}_ \ < &&(@$ $$ = &&(@ > &&(@ &K} ? &&(@ , @ &&(@ A &&(@ &L}B &&(@ C &&(@ $D &&(@E ($(69&M},246,199,10,96,25,22,14,18,11` &&(@,,,,,,,,,,,,,,,,,,,,a &&(@ ,b &&(@&N}^[c &&(@]\d &&(@\]e &&(@[ \ ^ &O}_ f &&(@Z _\]^g &&(@_Z h &&(@^[ i &&P}&(@ ]\ j &&(@\]k &&(@[^l &&(@&Q}Z_m &&(@_ \ Zn &&(@^[o &&(@]&R}\p &&(@\]q &&(@ ]\[Z_^]\[Z_^]\[Z_^ r &&(@ &S}s &&(@ .......t &&(@ ....u &&(@ _ ..v &&(@&T}.......w $$$0,205,6,10,148,28,36,27,8,1 &&(@ѯˢ &&(@ &U} Z_ &&(@ [^ &&(@     \] &&(@    &V}]\ &&(@    ^[ &&(@   _Z &&(@     ..-. Z_ &&(&W}@   [^  &&(@ \] &&(@ ]\ &&(@&X} ,,,,,,,,,,, ^[ &&(@ _Z &&(@ \[Z_^]\[Z_^]\[Z_ &&(@ ] &Y} ^ &&(@ ^ ] &&(@ _ ,\ &&(@ Z [&Z} &&(@ [ Z &&(@ \]^_Z[\]^_Z[\]^_ &&(@ ,,,,,,,,,,,,  &&(@&[}  &&(@ǯʢ !$!7,184,5,74,2,-1,0,29,0,8 &&(@gddantmc&\}nmsdrs &&(@,,, &&(@ , , &&(@ , ,&]} &&(@ ,  , &&(@  ,    &&(@  ,  &&(@&^} + ,  &&(@ ) ,  &&(@ ,  &&(@ nmf&_}q`stk`shnmr  &&(@ ~_{\~_{\ &&(@ ,,,,] &&(@ ,,,,\vdm &`}^ &&(@--....,{b`qk _ &&(@.... ..-dkkhr Z &&(@.......-_l`qj [ &&(&a}@.......-~kdnm`qc\ &&(@......-gi ] &&(@. - .-\c`uhc ^ &&(@. &b} ...-{jduhm+_ &&(@......-shl  &&(@,...... #$#52,191,8,70,0,20,23,5&c},14,9 TITLE SCREEN 10TH TIM SIMPSON 9TH KEVIN O'NEIL 8TH DAVID TODD 7TH H.&d}J. MCGINTY 6TH LEONARD DEJESUS 5TH MARK ANDERSON 4TH ELLIS PHILLIPS 3RD GWEN LENKER 2ND &e} CARL ARCHER 1ST GWEN LENKER CLOSING SCREEN(#CHARACTER DATA)#%%126,195,129,129,129,129,195,126&f}*#%%254,223,175,215,235,245,251,127+#$$60,120,124,214,255,135,195,126,#%%126,255,219,255,231,195,231,126-# 6,15,11,15&g}3,153,208,240,96.#%%126,195,129,153,153,129,195,126/#%%254,187,221,175,215,235,245,1270#$$60,120,124,214,255,199,255,12&h}61#%%126,239,255,251,209,241,251,1262# 14,31,17,24,24,136,248,1123#%%126,195,153,189,189,153,195,1264#%%254,245,187,&i}221,175,215,235,1275#""60,30,62,107,255,239,255,1266#%%126,251,241,209,251,255,239,1267#28,62,34,56,28,68,124,568#%%&j}126,219,189,231,231,189,219,1269#%%254,235,245,187,221,175,215,127:#""60,30,62,107,255,255,255,126;#%%126,231,195,231,&k}255,219,255,126<#120,224,192,120,30,3,7,30=#%%126,255,231,195,195,231,255,126>#%%254,215,235,245,187,221,175,127?#""&l}60,30,62,107,255,247,255,126@#%%126,223,143,139,223,255,247,126A#96,192,192,222,123,3,3,6B#%%126,231,195,129,129,195&m},231,126C#%%254,175,215,235,245,187,221,127D#$$60,120,124,214,255,231,255,126E#%%126,247,255,223,139,143,223,126F#0&n},96,206,219,219,115,6,0G#$$60,120,124,214,255,131,199,126H###120,60,126,86,255,129,195,126I#""60,30,62,107,255,193,227,&o}126J###60,120,92,214,255,231,195,126K#""60,30,58,107,255,231,195,126L#0,0,36,60,0,126,60,0M#0,0,0,0,0,0,0,0N#%%&p}255,255,255,255,255,255,255,255O#%%255,255,255,255,255,255,255,255P#%%255,129,129,129,129,129,129,255#==1,64,1,64,1,64&q},0,0,-1,48,-1,48,-1,48,0,0,0,56,0,56,0,56T$[[104,169,6,162,6,160,10,76,92,228,216,165,5,10,10,10,24,105,48,141,2,208,141,3,&r}208,166U$XX7,160,0,152,157,0,158,157,0,159,232,200,192,8,208,244,165,6,10,10,10,24,105,32,133V$QQ7,170,160,0,185,56,154,1&s}57,0,158,185,88,154,157,0,159,232,200,192,8,208,238W$MM169,136,133,203,169,10,133,204,173,244,2,141,9,212,173,196,2,141,22,&t}208X$76,95,228$<<72,216,173,11,212,201,107,176,30,141,10,212,165,203,24$LL105,240,141,23,208,133,203,165,204,24,105&u},16,141,25,208,133,204,173,11$QQ212,201,108,144,13,141,10,212,169,224,141,9,212,169,28,141,22,208,104,64,-1$99104,104,1&v}04,133,5,104,104,133,6,104,104,141,56,6,96%''32,12,60,12,35,13,66,13,63,0,57,0H&##14,35,36,38,39,42,43,50,52,55&194&w},193,192,192,192,193&bb104,104,133,2,104,133,1,104,133,4,104,133,3,104,133,6,104,133,5,160,0,240,16,177,1,145,3,230&``1&x},208,2,230,2,230,3,208,2,230,4,198,5,165,5,201,255,208,232,198,6,165,6,201,255,208,224,96&``104,104,104,133,5,104,104,133,&y}6,104,104,141,56,6,104,104,141,244,2,104,104,141,3,210,173,6&""208,133,212,169,0,133,213,96D1:REBOUND.BASYDDUF$uANTIC DATABASE: The details...GETTING STARTEDHere's how to make your ANTICdataBASE disk:1) Format a fresh disk with DO6{}S 2 or2.5. Be sure to WRITE DOS FILES tothis disk. This will be your ANTICdataBASE disk.2) ANTICDB.EXE is the name of 6|}theANTIC dataBASE program. Copy it toyour ANTIC dataBASE disk.ANTICDB.EXE is on the 'B' side ofthe Antic Monthly Disk.6}}XXX Once copied, put your AnticMonthly Disk in a safe place3) Put your ANTIC dataBASE disk intoyour drive and rename 6~}ANTICDB.EXE toAUTORUN.SYS. To start the program, turn offyour Atari and place your ANTICdataBASE disk into drive #1. 6} Removeall cartridges (if you have an XL oran XE, hold down the [OPTION] key,too) and turn on your Atari. ANTICdataBASE 6}will start automatically.XXX---------------------------HINTS:1. Sorting is based on the ASCIIcodes of the letters and 6}numbers inthe field. Here is an abbreviatedASCII table:(See your favorite computer manualfor a complete chart of ASCII6}values).XXX ASCIICharacter values----------------------- 0 - 9 48-57 A - Z 66}5-90 a - z 97-122 Using this system, the word"ZODIAC" would appear before theword "aardvark", but after a w6}ordlike "07-APRIL".etails...GETTING STARTEDHere's how to make your ANTICdataBASE disk:1) Format a fresh disk with DO4Πf@l(}v @@<(4Y3F @@dj@ B*-@@"R("Π}ҠՠҠˠҠ_@j%D:MENU D1:HELP.BAS;A ,;@,;@,;@,CARG1000 ' 1010 ' 1020 ' ALPHABET FISH 1030 ' (c) 1987 Antic Publishing 1040 ' Version 042187 1050 ' Written by Debora:}h H. Lundgren 1060 ' 1070 '------------------------------- 1080 HOUSEKEEPING: 1090 gosub NAMEGAME 1100 gosub SETC:}OLOR 1110 ' 1120 while PLAYING 1130 DING$=chr$(7): YES=1: NO=0: GOOD=1: MOUSE=0 1140 COUNT=1: FINISHED=27: F:}=11: G=3 1150 gosub DECIDE 1160 gosub PICTURE 1170 gosub GAMELOOP 1180 gosub ABCSONG 1190 gotox:}y 10,1: input "Play Again? (Y/N)",PLAY$ 1200 PLAY$=left$(PLAY$,1) 1210 if PLAY$<>"y" or PLAY$<>"Y" then PLAYING=F:}ALSE 1220 wend 1230 end 1240 ' 1250 '------------------------------------ 1260 NAMEGAME: 1270 A#=GB 1280 ADD:}RESS=peek(A#+8) 1290 AESOUT=peek(SYSTAB+8) 1300 poke SYSTAB+24,1 1310 NAME$=" Alphabet Fish " 1320 poke ADDRESS+0:},AESOUT 1330 poke ADDRESS+2,2 1340 S#=ADDRESS+4 1350 NAME$=NAME$+chr$(0) 1360 poke S#,varptr(NAME$) 1370 gemsy:}s(105) 1380 poke SYSTAB+24,0 1390 return 1400 ' 1410 ' In GFA BASIC: 1420 ' 1430 ' NAMEGAME: 1440 ' Titlew 2,":} Alphabet Fish " 1450 ' return 1460 '--------------------------------- 1470 SETCOLOR: 1480 ' 1490 TRUE=(-1): FALSE:}=0: PLAYING=TRUE 1500 ' 1510 dim P%(16) 1520 for P=0 to 15 1530 read Z 1540 P%(P)=Z 1550 next P 1560 :} data 1911,1792,96,1856,7 1570 data 1799,119,1365,819,1792 1580 data 96,1904,119,1799,119,0 1590 defdbl L:L=1114 1600:} poke L,varptr (P%(0)) 1610 return 1620 ' 1630 '------------------------------- 1640 DECIDE: 1650 fullw 2: clear:}w 2 1660 color 2,14,14,5,2: ellipse 145,25,24,12,180,3420 1670 linef 161,19,175,16: linef 175,16,175,34 1680 linef 1:}75,34,161,31 1690 fill 150,20 1700 gotoxy 15,2: print "HI!" 1710 color 2,3,3,5,2 1720 ellipse 75,15,12,6,180,3420:} 1730 linef 85,12,92,9: linef 92,9,92,21 1740 linef 92,21,85,18 1750 fill 75,12 1760 gotoxy 8,1: print "A" 1770 :} color 2,4,4,5,2 1780 ellipse 212,15,12,6,180,3420 1790 linef 222,12,229,9: linef 229,9,229,21 1800 linef 229,21,22:}2,18 1810 fill 215,15 1820 gotoxy 23,1: print "a" 1830 sound 1,0,0,0,100: color 1,0,1,1,1 1840 CHOICE=0 1850 w:}hile CHOICE=0 1860 gotoxy 3,5: print "Uppercase or Lowercase (U/L)?" 1870 color 2: gotoxy 29,5: input " ",CHOICE$:}: color 1 1880 UPPERCASE=FALSE 1890 if CHOICE$="U" or CHOICE$="u" then CASE=1: CHOICE=GOOD 1900 if CHOICE$=:}"U" or CHOICE$="u" then UPPERCASE=TRUE 1910 if CHOICE$="L" or CHOICE$="l" then CASE=2: CHOICE=GOOD 1920 wend 1930 :} CHOICE=0 1940 while CHOICE=0 1950 gotoxy 3,8: print " Mouse or Keyboard (M/K)? " 1960 color 2: gotoxy 26,8::} input " ",CHOICE$: color 1 1970 if CHOICE$="K" or CHOICE$="k" then CHOICE=GOOD 1980 if CHOICE$="M" or CHOICE$="m:}" then MOUSE=YES:CHOICE=GOOD 1990 wend 2000 return 2010 ' 2020 '------------------------------ 2030 PICTURE: 2040:} restore FISHPICS 2050 fullw 2: clearw 2 2060 ' 2070 'FISH 2080 for LETTER = 1 to 26 2090 read C,N,D,X,Y,X1:},Y1,UC$,LC$ 2100 color 1,C,C,5,2 2110 ellipse X,Y,12,6,180,3420 2120 linef X+10,Y-3,X+17,Y-6: linef X+17,Y-:}6,X+17,Y+6 2130 linef X+17,Y+6,X+10,Y+3 2140 fill X,Y 2150 gotoxy X1,Y1 2160 if UPPERCASE then print :}UC$ else print LC$ 2170 next LETTER 2180 restore FISHPICS 2190 ' 2200 'SEA 2210 color 1,5,5,1,1 2220 for X=2 :}to 300 step 12 2230 circle X,79,12,2300,3100 2240 next X 2250 circle 302,79,12,2300,3000 2260 fill 50,115 227:}0 ' 2280 'SUN 2290 color 1,14,14,2,1 2300 pcircle 303,0,45,1800,2700 2310 fill 300,5 2320 linef 250,5,230,5: l:}inef 255,20,235,30 2330 linef 264,35,250,53: linef 280,45,271,73 2340 linef 295,50,295,82 2350 ' 2360 'RECTANGLE 2:}370 color 1,5,1,1,1 2380 linef 97,25,217,25: linef 217,25,217,50 2390 linef 217,50,97,50: linef 97,50,97,25 2400 f:}ill 100,30 2410 ' 2420 'FISHINGPOLE 2430 color 1,9,9,1,1 2440 linef 0,80,40,20: linef 40,20,42,21 2450 linef 42,:}21,2,81: linef 2,81,0,80 2460 fill 40,21 2470 linef 42,21,44,30 2480 color 1,2,2,1,1 2490 circle 44,32,2 2500 :}fill 44,32 2510 color 1,0,9,1,1 2520 linef 44,34,44,36 2530 circle 46,36,2,1800,3600 2540 sound 1,0,0,0,100 2550:} return 2560 ' 2570 '------------------------------ 2580 GAMELOOP: 2590 read C,N,D,X,Y,X1,Y1,UC$,LC$ 2600 while :}COUNT < FINISHED 2610 gosub ERASESMILE 2620 if MOUSE=YES then gosub CLICKFISH else gosub KEYBOARD 2630 if A:}NS$=UC$ or ANS$=LC$ then gosub GOTFISH else gosub WRONG 2640 wend 2650 return 2660 ' 2670 '-------------------------:}---- 2680 ERASESMILE: 2690 color 1,14,14 2700 circle 303,0,25,2000,2700 2710 circle 303,0,26,2000,2700 2720 retu:}rn 2730 ' 2740 '------------------------------- 2750 KEYBOARD: 2760 gotoxy 10,1: input "Choose Letter ",ANS$ 277:}0 return 2780 ' 2790 '------------------------------- 2800 CLICKFISH: 2810 CLICK=NO: CORRECT$=UC$ 2820 gotoxy 10:},1: print " Choose Fish " 2830 while CLICK=NO 2840 CONTROL=peek(A#) 2850 GLOBAL=peek(A#+4) 2860 GINT:}IN=peek(A#+8) 2870 GINTOUT=peek(A#+12) 2880 ADDRIN=peek(A#+16) 2890 ADDROUT=peek(A#+20) 2900 gemsys(7:}9) 2910 XM=peek(GINTOUT+2) 2920 YM=peek(GINTOUT+4) 2930 CLICK=peek(GINTOUT+6) 2940 wend 2950 ' 2960 :} PART.ONE=FALSE 2970 PART.TWO=FALSE 2980 ' 2990 if XM>(X-12) AND XM<(X+12) then PART.ONE=TRUE 3000 if YM>(Y+14) AN:}D YM<(Y+26) then PART.TWO=TRUE 3010 if PART.ONE=TRUE and PART.TWO=TRUE then ANS$=CORRECT$ 3020 return 3030 ' 3040 '-:}----------------------------------- 3050 WRONG: 3060 sound 1,0,0,0,30 3070 sound 1,15,12,2,20: sound 1,0,0,0,50 3080:} gotoxy 10,1: print " SORRY,TRY AGAIN! " 3090 sound 1,0,0,0,120 3100 gotoxy 10,1: print " " 3:}110 return 3120 ' 3130 '----------------------------------- 3140 GOTFISH: 3150 'ERASEFISH 3160 color 1,5,5,1,1 3:}170 for D=Y-6 to Y+6 3180 linef X-12,D,X+17,D 3190 next D 3200 fill X,Y 3210 ' 3220 'SMILE 3230 print DI:}NG$ 3240 color 0,0,0 3250 circle 303,0,25,2000,2700 3260 circle 303,0,26,2000,2700 3270 ' 3280 'ERASE LETTERS 3:}290 gotoxy 10,1: print " " 3300 ' 3310 'DRAW NEW FISH 3320 color 1,C,C,5,2 3330 ellipse 48,46,:}6,12,2880,2520 3340 linef 45,56,42,63: linef 42,63,54,63 3350 linef 54,63,51,56 3360 fill 48,46 3370 gotoxy 5,4 :}3380 if UPPERCASE then print UC$ else print LC$ 3390 sound 1,0,0,0,100 3400 ' 3410 'ERASE NEW FISH 3420 color 0,0:},0,1,1 3430 for Y=63 to 35 STEP -1 3440 linef 42,Y,54,Y 3450 next Y 3460 ' 3470 'REPLACEHOOK 3480 color 1,:}0,9,1,1 3490 linef 44,34,44,36 3500 circle 46,36,2,1800,3600 3510 ' 3520 'ENTER LETTER 3530 color 1,0,1 3540 :}gotoxy F,G 3550 if UPPERCASE then print UC$ else print LC$ 3560 F=F+1 3570 if F=24 then F=11: G=4 3580 read C,N,D:},X,Y,X1,Y1,UC$,LC$ 3590 COUNT=COUNT+1 3600 ' 3610 return 3620 ' 3630 '--------------------------------- 3640 ABC:}SONG: 3650 sound 1,0,0,0,30 3660 gotoxy 10,1: print " GOOD JOB! " 3670 sound 1,0,0,0,60 3680 restore FISHPICS:} 3690 F=11: G=3: TIMES=1 3700 while TIMES<=26 3710 read C,N,D,X,Y,X1,Y1,UC$,LC$ 3720 color C,0,1,1,1 3730 :} gotoxy F,G 3740 if UPPERCASE then print UC$ else print LC$ 3750 sound 1,10,N,4,D 3760 sound 1,0,0,0,0 :} 3770 F=F+1: TIMES=TIMES+1 3780 if F=24 then F=11: G=4 3790 wend 3800 TIMES=1 3810 color 1,0,1,1,1 3820 :} while TIMES <=14 3830 read N,D 3840 sound 1,10,N,4,D 3850 sound 1,0,0,0,0 3860 TIMES=TIMES+1 3870 :} wend 3880 sound 1,0,0,0,60 3890 return 3900 ' 3910 '------------------------------- 3920 FISHPICS: 3930 data 1:}5,1,19,50,150,5,16,A,a,3,1,19,245,105,27,11,B,b 3940 data 3,8,19,150,150,16,16,C,c,8,8,19,256,150,28,16,D,d 3950 data 4,1:}0,19,102,96,11,10,E,e,10,10,19,22,105,2,11,F,f 3960 data 9,8,39,175,132,19,14,G,g,7,6,19,290,122,32,13,H,h 3970 data 14,6:},19,166,96,18,10,I,i,10,5,19,15,132,1,14,J,j 3980 data 4,5,19,102,150,11,16,K,k,8,3,9,210,105,23,11,L,l 3990 data 3,3,9,2:}0,150,2,16,M,m,14,3,9,47,122,5,13,N,n 4000 data 9,3,9,58,96,6,10,O,o,7,1,39,257,123,28,13,P,p 4010 data 10,8,19,123,113,1:}3,12,Q,q,11,8,19,83,113,9,12,R,r 4020 data 8,6,39,87,131,9,14,S,s,2,5,19,220,123,24,13,T,t 4030 data 2,5,19,282,96,31,10,:}U,u,11,3,39,229,140,25,15,V,v 4040 data 6,8,39,200,149,22,16,W,w,6,6,39,128,131,14,14,X,x 4050 data 7,5,39,173,113,19,12,:}Y,y,4,3,39,284,141,31,15,Z,z 4060 ENDSONG: 4070 data 1,19,1,19,8,19,8,19,10,19,10,19,8,39 4080 data 6,19,6,19,5,19,5,19:},3,19,3,19,1,39 1020 ' ALPHABET FISH 1030 ' (c) 1987 Antic Publishing 1040 ' Version 042187 1050 ' Written by Debora8