@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? M XLAPNB0A6@ ((<(d"(@D +26-?:C: X}hhhԩ`,<A6,DAdAUuAA'A @9A@&K@@]@ Y}@7c(}uAR@++(#++(#| Antic Monthly Disk, Mar. 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}D:MENUXLAPNB0A6@ ((<(d"(@D +26-?:C:   "EXLINEAFxxy &&;A ,;@,;@,W (} ( (1) HELP file#(@(j}(2) How to 'port' filesW( to an ST disk (( SELECTION(+41)42,@ ,6. D:DOC.TXTk}42,6. D:PORT.TXT1 (}@1@@ A(@2vB:,!@-l}7@<@,4XXX0(3(E-@@"Y(ӠΠf@l(}v @@<( @@dj@m} B*-@@"R("ΠҠՠҠˠҠ_@j%D:MENU D1:HELP.BASile#(@(r` *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 pr}ograms on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forco}mprehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 }or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONU}S FILES *** ALIENS.PI1, by STart Editor JonBell, is an excellent rendition ofthe spacecraft "Narcissus" as seenin the }opening scenes of "Aliens." This is a low-resolution picturecreated with Degas (BatteriesIncluded). Color monitor requir}ed.XXX *** BONUS FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO-ST andLINKLINE} on the monthly disks.Please see the HELP files on thisside of the disk for LINKLINEinstructions.XXXThe menu th}at appeared on the screenwhen you booted 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 exte}nder withthe following list:XXX.SYS Reserved for DOS system files..DAT Data file. Usually accessed by anothe}r program..TXT Text file. Usually accessed by another program..PI1 A Low-resolution DEGAS picture file.}XXX*** Files for the 520 ST ***.C C Language source code. Must be ported to an ST disk. See the corres}ponding 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 comple}te details..TOS A compiled ST program which does not use GEM. Must be ported to an ST disk. See the }corresponding article for complete details..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 to}adapt our programs to work with asmany configurations of C as possible.But we think ANTIC's published Clistings should com}e as close aspossible to the industry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo thi}s.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem} from our HELP columns andmost are compatible with the XL andXE machines. We have worked to insurethat our programs operat}"3DUffGWgwC@""  " @H,} $4 @@@   ,}@@@@   @     q#@,B$B$J-}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 { 1000 ' 1010 ' ST PUZZLER 1020 ' (c) 1987 Antic Publishing 1030 ' Ver 120286 1040 ' Written by David Bohlke 1050 $}' 1060 '---------------------------- 1070 MAIN: 1080 randomize 0 1090 gosub SETCOLOR 1100 TRUE=1: FALSE=0 1110 $} WRONG=0 1120 TIMER=0 1130 RIGHT=0 1140 fullw 2 1150 clearw 2 1160 for J=1 to 60 1170 X=rnd*84+210 118$}0 Y=rnd*70+90 1190 while abs( XA-YA )<300 1200 XA=rnd*3600 1210 YA=rnd*3600 1220 wend $} 1230 XR=rnd*9+7 1240 YR=rnd*9+7 1250 color 1,rnd*15+1,1,7,2 1260 pellipse X, Y, XR, YR, XA, YA 1270 $} next J 1280 color 1,1,1 1290 linef 220, 100, 283, 100 1300 linef 283, 100, 283, 147 1310 linef 283, 147, 220, 1$}47 1320 linef 220, 147, 220, 100 1330 color 1,0,0 1340 for X=180 to 219 1350 linef X,60,X,180 1360 linef$} X+104,60,X+104,180 1370 next X 1380 for Y=70 to 99 1390 linef 160,Y,310,Y 1400 linef 160,Y+78,310,Y+78 14$}10 next Y 1420 gosub GRID 1430 color 12 1440 gotoxy 23,7 1450 print" ST Puzzler" 1460 for I =1 to 8 1470 $} for J=1 to 6 1480 B( I ,J )=0 1490 next J 1500 next I 1510 ' 1520 '------------------------- 153$}0 PUZZLE: 1540 gosub MAKE.SCORE 1550 M$=" Selecting piece SCORE " 1560 M$=M$+str$( SCORE )+" " 1570 gosub TIT$}LE 1580 R=int( rnd*8 )+1 1590 C=int( rnd*6 )+1 1600 if B( R, C )=1 then goto PUZZLE 1610 NX=240 1620 NY=20 16$}30 gosub PLOTBIG 1640 gosub MAKE.SCORE 1650 M$=" Click to grid SCORE " 1660 M$=M$+str$( SCORE )+" " 1670 gosu$}b TITLE 1680 ' 1690 MLOOP: 1700 gosub MOUSE 1710 if B<>1 then TIMER=TIMER+1: goto MLOOP 1720 A=int(( X-10 )/24)+$}1 1730 B=int(( Y-30 )/24)+1 1740 if A<1 or A>8 or B<1 or B>8 then goto MLOOP 1750 if A=R and B=C then goto GOT.ONE $}1760 WRONG=WRONG+1 1770 gosub MAKE.SCORE 1780 M$=" Incorrect SCORE " 1790 M$=M$+str$( SCORE )+" " 1800 go$}sub TITLE 1810 sound 1, 8, 4, 2, 99 1820 sound 1, 0, 0, 0, 0 1830 goto PUZZLE 1840 ' 1850 '----------------------$} 1860 GOT.ONE: 1870 RIGHT=RIGHT+1 1880 B( R, C )=1 1890 gosub MAKE.SCORE 1900 M$=" CORRECT "+str$( RIGHT ) 191$}0 M$=M$+" -"+str$( WRONG ) 1920 M$=M$+" SCORE "+str$( SCORE ) 1930 M$=M$+" " 1940 gosub TITLE 1950 NX=R*24-14$} 1960 NY=C*24-14 1970 gosub PLOTBIG 1980 if RIGHT<48 then goto PUZZLE 1990 ' 2000 gotoxy 2, 0 2010 color 15 $} 2020 B.LOOP: 2030 gosub mouse 2040 if b<>1 then goto B.LOOP 2050 goto MAIN 2060 ' 2070 '----------------------$}---- 2080 GRID: 2090 color 1, 1, 1 2100 for X=10 to 202 step 24 2110 linef X,10,X,154 2120 linef 10,X,202$},X 2130 next X 2140 return 2150 ' 2160 '-------------------------- 2170 PLOTBIG: 2180 A=R*8+212 2190 B=C*8+9$}2 2200 for I=0 to 7 2210 for J=0 to 7 2220 X=I+A 2230 Y=B+J 2240 gosub LOCATE 2250$} color 1,LC,LC 2260 X1=I*3+NX 2270 Y1=J*3+NY 2280 X2=I*3+NX+2 2290 line$}f X1,Y1,X2,Y1 2300 linef X1,Y1+1,X2,Y1+1 2310 linef X1,Y1+2,X2,Y1+2 2320 next J 2330 if NX<$}210 then sound 1,8,I+4,5,0 2340 if NX>=210 then sound 1,6,10-I,3,0 2350 next I 2360 sound 1,0,0,0,0 2370 retur$}n 2380 ' 2390 '----------------- 2400 MAKE.SCORE: 2410 SCORE=( RIGHT-WRONG )*100 2420 SCORE=SCORE-int( TIMER/10 )$} 2430 return 2440 ' 2450 '----------------- 2460 TITLE: 2470 M$=M$+chr$( 0 ) 2480 A#=GB 2490 GINTIN=peek( A#$}+8 ) 2500 poke GINTIN,peek( SYSTAB+8 ) 2510 poke GINTIN+2,2 2520 V#=GINTIN+4 2530 poke V#,varptr( M$ ) 2540 ge$}msys( 105 ) 2550 return 2560 ' 2570 '------------------ 2580 MOUSE: 2590 poke CONTRL,124 2600 poke CONTRL+2,0 $}2610 poke CONTRL+6,0 2620 vdisys( 0 ) 2630 X=peek( PTSOUT ) 2640 Y=peek( PTSOUT+2 ) 2650 B=peek( INTOUT ) 2660$} return 2670 ' 2680 '------------------ 2690 SETCOLOR: 2700 restore COLOR.DATUM 2710 for I=0 to 1 2720 rea$}d A 2730 R=int( A/100 ) 2740 G=int(( A-R*100 )/10 ) 2750 B=A-R*100-G*10 2760 poke CONTRL,14 2770 $} poke CONTRL+2,0 2780 poke CONTRL+6,4 2790 poke INTIN,I 2800 poke INTIN+2,R*140 2810 poke INTIN+4,G*%}140 2820 poke INTIN+6,B*140 2830 vdisys( 0 ) 2840 next I 2850 A#=GB 2860 GINTIN=peek( A#+8 ) 2870 pok%}e GINTIN,3 2880 gemsys( 78 ) 2890 return 2900 ' 2910 COLOR.DATUM: 2920 data 030,777 2930 ' 2940 '------------%}----------- 2950 LOCATE: 2960 poke CONTRL,105 2970 poke CONTRL+2,1 2980 poke CONTRL+6,0 2990 poke PTSIN,X+1 30%}00 poke PTSIN+2,y+22 3010 vdisys( 0 ) 3020 LC=peek( INTOUT+2 ) 3030 return 1040 ' Written by David Bohlke 1050 $V 1000 ' ST ALERT BOXES 1010 ' (c) 1987 Antic Publishing 1020 ' Ver 120286 1030 ' Written by Dr. Ron Schaefer 1040 ')} 1050 '------------------------- 1060 gosub INITAES 1070 fullw 2 1080 clearw 2 1090 ' 1100 '------------------)}------- 1110 while CHOICE<3 1120 TYPE$="3" 1130 TEXT$="Choose a box|and click the mouse." 1140 BUTTON$=")}One|Two|Quit" 1150 DEFAULT.BUTTON=1 1160 gosub FORM.ALERT 1170 if CHOICE=1 then ?"You chose number 1" 1180)} if CHOICE=2 then ?"You chose number 2" 1190 if CHOICE=3 then ?"Good bye" 1200 wend 1210 end 1220 ' 1230 ) }'------------------------------ 1240 FORM.ALERT: 1250 N#=ADDRIN 1260 poke GINTIN, DEFAULT.BUTTON 1270 ALERT$="["+T) }YPE$+"]" 1280 ALERT$=ALERT$+"["+TEXT$+"]" 1290 ALERT$=ALERT$+"["+BUTTON$+"]" 1300 ALERT$=ALERT$+chr$(0)+CHR$(0) 131) }0 poke N#, varptr( ALERT$ ) 1320 gemsys( 52 ) 1330 CHOICE=peek( GINTOUT ) 1340 return 1350 ' 1360 '------------) }---------------------- 1370 INITAES: 1380 A#=GB 1390 CONTROL=peek( A# ) 1400 GLOBAL=peek( A#+4 ) 1410 GINTIN=pe) }ek( A#+8 ) 1420 GINTOUT=peek( A#+12 ) 1430 ADDRIN=peek( A#+16 ) 1440 ADDROUT=peek( A#+20 ) 1450 return 0 '(y@@`@`LP0-}|1_] 4*@@@ @``@h@`@@` P`@-}PUD!@@ @A @!@@ -}@@`@Fv42 * J"-}   @@  -} A$YQ@P@@@H"HB & @ !-}  PP@g@@,G@oo@@PPH h -} @@@@@@ Z/P!}#"!  $% xD@@-}(@A@     RqFB24-} A @ @@@@@@(-}WKXB@2  %A@@@@@  -}  AQ@I @XXX $(h ( @-}  HrNH>X $-}@ 0 @ PqTT!-}`0a @F@@0  -}@@@ wTKC 00BS%D $@ P  @ @-}@  $ !09HHR+( @-}  @ ~~``5500- }HH(   J-!}9 Z " @h  " @D @@ -"} H\!\!Х $h($($`$A-#}@@@@@@@@@ ?BR(((P@@$-$}@  $ ,$@@@@rK -%}     @@ @@P@@@@@-&}@ {44@@@HKEA F @@@@  *-'}"8qMI 0@A @@-(} 4@( @TPHPh -)}"  @BP  " -*} e%@ @@@` b`@ "@-+}0!@3D@!@@@@@@M@@0@-,} `@  C\\tИ@@DEDPA@ --}@C bB  0RL  " @RAJ-.}BA@@@@ P  @@1-/} CƗ@@@(@((!    T ^ *@-0} i$XH 2H hj )2P-1} @P @@ 9(  EDDH @$ -2}@RWH   ??@D@@@@@H -3}BBM`@B0P@%X// 5@ -4}(B`bP@ $8@@@%H-5} !@@*! LPP  A -6}~>4><AT!D+@@@  D0D`@@! !!@@@-7}  0p@ A@@D@P@"" -8} 1 A@@@D@H0Dcp ( Db-9}@@B 0@$@J@ @H HH` `$ $$ \`b-:} @   $@ @@@ aHHp l*-;}  +   @B@@$ !-<}@ A A TE"A 241(1.t|@@ -=}@$ $,  $d$ $ ( pp$8->}Ā@@@@@APUQ   D @@  An-?}P!@? H  D @BAE-@} 00   0 ?y@ -A} 莈 ()@  0?P@-B}   AeZDD  @@@@i) g# -C}+@ @4  0P &" -D} @$d$$ MrLR351[BB[DQ@ @@@@ P-E}p a@850m!B!j!bޝB@D(  (-F} p     ?["("`"`ݟwDTwD-G}  @@AB @@ @DD 0 "" !$$$ d$-H}BBBϽ0n{D @` @h-I} L@L3 ȧHHDDDǻ8{`w <@-J}4 0   a:E10&K{w&@@-K}@@@@   @@@@0"@B"?Vw-L}= @@@@(` @ @@@@@@@*-M}C[$ 0 @@@@@ -N}@ !! Y -M,)9=%A  -O}(  P @(D4JOhh>p-P}  `  @ !  *ē?x```g-Q};0πH0 "6(-R}+ I&kkq< -S} .(&0 ,)c99ƬsywN!A-T}   @@@ h:@H0OR$t-U}wAA  @ Қa?&;K-V}G~k7@ @  ``` `@@-W} 8 # ?D?X``a`aZ~׺@*@ -X} *  f}I|99_ ~~aAp-Y} !BI ~-Z}@P@@@@@@ (b -[}޶;ߘg::~ (` -\}  ,  X.hh7}`ߟ/=:( $ -]} `@ 0@@$ 0 ?K;$8g=¯wtXߧ-^}ـ @@   @P ac-_}bc y@A@@@@P@#-`}67;E::| ^~`{ ۠@-a}` @ @ @0</ibbp5_|-b}B&$!RD@HX7?y9m~  ~-c}?sm@@@@@@@@ (@APP 8 2?-d} m i ~? &-e}0& :?;gnw4I5357`} @@@-f}@ 0 ? hhnw:{-z}s A@Q@@HA  d-{})7P/~ :DD gM -|}  AYO]K4NGG ?$$h -}}`   @DDE ]l``NFB ?@}-~}x  ((9   [h(݀-}n;  ?@:y0 0 @-}@ D N 'D$n ?@o@\A ,$$-}0@@@@`-t wAQ @@@_oϹE-} @@(t ~ H X ~-}@@p(@R  $ 0 !#-}Zn0@0HϷ }(( @-}( $% R  @H? }7}-} K; " @H //o-} @@@ @@@@ @2u}-}FD//_g@@@@@@@@@@@@@-}  f{u7 $}FD0( -}P 0 .o $}FD -}2 @1@@@A  o0"0&FD__ -}} HJ!! a!@D"Aj-}o?FD_ _ =p @DbCAA@@@-}B"Q\&$`~o@ D N@-}D   @$( }Ill&$}@ -} a@ @H > pp13̽&$-}@ { @"   R-}!0_@@.&n$~~~  ` (@@@-}A hQ ?h_ ##ah@@7**h( -}@ `  P([ob_  Vo/-}Pp0 @@@@@@@B@H _-}phpi m_c  2 -}@@` Q.~w m` @ H -}( df7VV)  ~ m!!-}A@@A@@!/""tJ@@@H_X'8484<-=-}}7$  @A8ՙ@-}A@N0h?;n?jj=C9@@{@   @@@@HH-}H@@@`t@Z+k}89ux -} 0&1:@/" , ?  ;xty-}(@@@@@x 0('4 nhh-}}?  ;p)  `  .*-}D @h  {}?  ;p@@@@@-}Hh B@  }?;sn @ @-}@A   @~ B B;3?-}@@@@pPP$ HD`-}JErArA=7?-} HK@@ @@@ $ ` ݂AA}?7wP$@-} F@1 !!?7-} B E401 !!?-}7=/ h   H_*-}  'o!!wGgs  -}P|V!@@@ހo/o|p:-} c @ b(Bbo/o~-}D@ @@ F*+ .(("@@-}B~o/o~9-@"  -}Ahh@@d X(   ~NHNH/o~Tۀ0R @0-}  # 0CP00  pHpH}oAAOW0 @-}P @@( $$DDe$#"_HH?AA_-}o׿$oPP@ @   -}B000?$$___o~$@0@-}  8$Z0 _< HH\-}@@@ B@A_ x>-}`@R@@  @ @  0 @'@`((-}7P/" ~B`p@@B@@ @11@-}H 0H?PP/D {@0@@DC-}X 7PP/ _ @@@-}@@  (A?__ V _-} @@@@@ P   @BB" #"-}AA@@0PP/@?_l@@`(-}@@@$!@@ PBB3TT+}*O@ A ,@D-}  ``H@Y@@7PP/W}(O`-} @ `B@@ @H@7PP-}/O 00HH@@HL-}@AAA!8!((7PP/5O8@ @P-}H 8PX7PP/W/B>@@B@0-}@ PPH@@7P P /j/-}@@2`z@  -}7PP /-/Dd@H@-} @t7PP/+/   1@@@ -}@QTt $ 7%P//+/@@  -} @@@@ Q`@@!!7P%P//[-}/ 0 \ "tI-}DDD@A7PKP_/W /@P@    @-}hP?/h /@-}@BBB DHLL7PP?/H '-} @"@H-}7PP/P/P '@`B@@ -}!!!!$$$$^P/o'  -}  @@@@ 6P^P/_'-}   5BPQ._-}'  BP  `-} 5P}Q. '(  @B  -} @  DDD:QS,@'@@@@-} `xh`@@@=RW(@7' -}DPP @,-}6AG8?7' @     &PP@P@P@-}D @@@H@@* EO0ހ!'  p@-}"L!%@B K_ р.-}$4$@;@@G_ /-} 7B@@ -}T(Wo`  AH -} @@R@)co @&!-}  DD (@| -}" @PP@@ !*@P@?-} d m  $$@@@@@ -} @"D+ BB"D  -} B BBK0  D8@@-}@ $@@ @ @ `@"@@@2@` -}@b@@ @@@!(-}@@@ -}`o @ -}`LB< << -}  (@ -}R(`DD    @ @ -}@A   @-}`HB@@ -}B@BB@@@ @@-}AEE@ 9 @-}A A@@X-}@` ! @ @@!-}D( @"@@AHHH-} @@Ҁ -}P -}(@B-}  $ 0-}@ @@@   " @@ @ -}@@@@@@@ADaA-}   @  -} A @@@@@@ -}@@@@ @@@@ -}B  " "  (@ D@TD-} 0@@@-} @0A-}P  -}@  @ @H@@-}@-}@@@@DD    .} "@@   BB.}$@ P   .}@!!!.}A@@@@@@@@@.}@ .} @@.}"@@ """.}@````.}@@  $$. }$!!! P@@@@@%. } !C@@@@@@@@ . }  " @@@@@ " * H. }X@A@ @. }@ @ &&&&.}  @@@@" .}UUUU H@HH  @.}  vvvv@@@   P .}B  PUUUU .}b@@@@VVVV.}!@A@@ @@`.}@  T*HB@@ ,Be aspublished, but we consider all oursoftware listings to be works inprogress which we encourage you topersonalize and e}nhance.Good luck, and ENJOY!-ANTIC EDtware listings to be works inprogress which we encourage you topersonalize and e+