@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}}} and |||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` WELCOME TO THE ANTIC MONTHLY DISKMost of the pr X}ograms on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forco Y}mprehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 Z}or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONU [}S 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 that 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 yo ^}u 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. Usuall `}y accessed by another program..PI2 A Med.-resolution DEGAS picture file.XXX*** Files for the 520 ST *** a}.C C Language source code. Must be ported to an ST disk. See the corresponding article for complet b}e details..BAS An ST BASIC program. WILL NOT RUN on 8-bit computers!!! Must be ported to an ST disk. c} See the corresponding article for complete details.XXX.PRG A compiled ST program which uses GEM. d} Must be ported to an ST disk. See the corresponding article for complete details..TOS A compiled ST e}program which does not use GEM. Must be ported to an ST disk. See the corresponding article for c f}omplete details..S 68000 Assembly language source code. Must be ported to an ST disk. See the cor g}responding article for complete details.XXX Whenever possible, we will try toadapt our programs to work with as h}many configurations of C as possible.But we think ANTIC's published Clistings should come as close aspossible to the indu i}stry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo this.XXXAll programs from ANTIC j}issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost ar k}e compatible with the XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider al l}l oursoftware listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY!-A m}NTIC EDtware listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY!-A and enhance.Good luck, and ENJOY!-ANTIC EDTHE ANTIC MONTHLY DISKMost of the pr 2  "EXLINEAFxxy &&;A ,;@,;@,W (} ( (1) HELP file#(@(p}(2) How to 'port' filesW( to an ST disk (( SELECTION(+41)42,@ ,6. D:DOC.TXTq}42,6. D:PORT.TXT1 (}@1@@ A(@2vB:,!@-r}7@<@,4XXX0(3(E-@@"Y(ӠΠf@l(}v @@<( @@dj@s} B*-@@"R("ΠҠՠҠˠҠ_@j%D:MENU D1:HELP.BASile#(@(r` *O.|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHNu}^NuNVNZ./</</<N $ 3>.j/<>/< N&P. ?<NTByByN^NuNV. <v}?<NT3 yfa< yfa. ?<NT3 yf3N^NuNV. r?<NTBy<`Ryw}< y>Naa>>NN^Nux}NV. ?<NTah09,|3f09,|@3:. ?<NTD:*B9./</<y}NPJyg">>N>a&a>>NN^NuNVBy`By<`Ry< y?<?<N vz}X>f?<?<N vX>:?<?<N vXByd`*0yd"|00H>?<?<N vXRyd09dy,m>?<?<N{} vXN^NuNV32>N 3h09h|A:*.*B9B9./</<NPJy|}gv>>N>/<?<=N \32 y2o$.0/9 n?92?<?N P3,>2?<>N T>>NN}}^NuNV>>NBW/<?<2?<>N T>>NN^NuNV~}>>N>aa>>NN^NuNV>?<N vT3& y&f>?<N vT3f>?<N vT3:09:}@yf3.Byd`* |02yd/?<?<N vX _Ryd09dy.m3d,N^NuNV>?<?<N vX nf>}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<NBNuNVaaJygaHNPhi AXLPB0NZCL25 } D +26-?:C:hhhԩ`,<A6,DAdAUuA@'A @9A}@K@@]@@7c(}uAR@++(#++(#| AN}TIC MONTHLY DISK NOV. 1986 |++(#( | Side 'B' |++(#} @ -@A $ GG;@@,;@ ,;@@,;A,;@,;@@}, "D1:MENU" &&@@D:*.* 6,6." 6 @0i6-%@}(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367}B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@}<@,.7@<@,]67@<@,.0$@(''7@<@,4FREE@- @ }2() <@F''7@<@,4FREE@K @ P(7@<@,)|U @}0W'!-@6+'@,%@' |Z++(#| |[ ( |  |\++(}#d**(" Select HELP.BAS for information.xAR[@@9'-}@@#C( FILE NUMBERM A0Q[ BP:,A00"@&6.7@<@,}0 AELB6.7+&@,$@%@<+&@,$@%@,L B37@<@,4 36.7@}<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<, }  6.! 6.D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A@}@91@@5%? B[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:}HELP.BAS B A0D1:MENU.TORUN .SYS:C:hhhԩ`,<A6|AUTORUN..SYS(AD260 FREE SECTORS2A}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 { :hi AXLPB0NZCL25 1000 ' 1010 ' ST Classics: HANGMAN.BAS 1020 ' (c) 1986 Antic Publishing 1030 ' Ver. 032786 1040 ' Written by Paul Pr$}att and Stephen Everman 1050 ' 1060 '----------------------------- 1070 MAIN: 1080 gosub INITIALIZE 1090 ' 1100 $} while not FINISHED 1110 gosub HANGMAN 1120 wend 1130 ' 1140 end 1150 ' 1160 '----------------------------- $} 1170 HANGMAN: 1180 while PLAYING 1190 gemsys( GRAFMKSTATE ) 1200 SPOT=( peek( GINTOUT+2 )\9 ) 1210 PLA$}CE=int( SPOT ) 1220 MOUSE=peek( GINTOUT+6 ) 1230 INRANGE=FALSE 1240 GOODPRESS=FALSE 1250 if PLACE>9 a$}nd PLACE <61 then INRANGE=TRUE 1260 if MOUSE=LEFTBUTTON and PLACE<>OLDPLACE then GOODPRESS=TRUE 1270 if INRANGE$} and GOODPRESS then gosub MAKEAGUESS 1280 if MOUSE=RIGHTBUTTON then PLAYING=FALSE: FINISHED=TRUE 1290 wend 1300 re$}turn 1310 ' 1320 '------------------------------ 1330 MAKEAGUESS: 1340 if PLACE mod 2<>0 or peek( GINTOUT+4 )10 then $}SCORE=SCORE+10 1980 NUMRIGHT=0: TRYS=12: FLAGGED=FALSE: WORD=WORD+1 1990 gotoxy 13,7: print TRYS 2000 gotoxy 56,7: p$}rint SCORE 2010 color BLACK 2020 PA=PA+6.75 2030 PAR=int( PA ) 2040 gotoxy 41,7: print PAR 2050 gotoxy 28,7: p$}rint WORD 2060 gosub WORDGET 2070 return 2080 ' 2090 '-------------------------------- 2100 INITIALIZE: 2110 TR$}UE=(-1): FALSE=0: EOL=155: GRAFMKSTATE=79 2120 FINISHED=FALSE: PLAYING=TRUE 2130 WHITE=0: BLACK=1: RED=2: GREEN=3 2140$} OUTPUT=2: BOILERPLATE=13: SHADED=1: STIPLED=2 2150 bell$=chr$( 7 ) 2160 MINCOLOUR=1: MAXCOLOUR=4: LEFTBUTTON=1: RIGH$}TBUTTON=3 2170 fullw OUTPUT: clearw OUTPUT 2180 randomize 0 2190 color BLACK, RED, GREEN, BOILERPLATE, STIPLED 220$}0 A#=GB: TRYS=12: WORD=1 2210 gotoxy 8, 7: print "TRYS =";TRYS;" WORD# =";WORD 2220 gotoxy 36,7: print "PAR =";PA$}R;" SCORE =";SCORE 2230 ' 2240 restore BOXDATUM 2250 for VECTOR=0 to 8 2260 read x1, y1, x2, y2: linef x$}1, y1, x2, y2 2270 next VECTOR 2280 ' 2290 gosub WORDGET 2300 fill 0, 100: color BLACK 2310 gotoxy 22,1: print$} "H A N G M A N" 2320 gotoxy 18,3: print "* Remaining Trys Are Added To Score *" 2330 gotoxy 18,4: $}print "* Not Getting Word Subtracts 5 Points *" 2340 gotoxy 18,5: print "* 0 or 1 Error Adds 10 BONUS Points. * 2350 $}color GREEN, GREEN, GREEN, SHADED, STIPLED 2360 fill 60,10 2370 GINTOUT=peek( A#+12 ) 2380 return 2390 ' 2400 BOX%}DATUM: 2410 data 48,6,560,6,560,6,560,74,560,74,48,74,48,74,48,6 2420 data 150,88,450,88,450,88,450,124,450,124,150,124%},150 2430 data 124,150,88,48,61,560,61 2440 ' 2450 WORDSDATUM: 2460 data MOUSE,POWERSUPPLY,ATARI,BIRTHDAY,SCREAM,WE%}LCOME,CARRIAGE 2470 data ESSENTIAL,TOWER,ADJOINING,APPRECIATE,PROCEDURES,DAMAGE,OFFICE 2480 data DISPATCH,HARSH,CONFIDE%}NCE,DANGER,WEATHER,POLICY,PHONE,FLIGHT 2490 data PATTERN,EXACTLY,FLAMBOYANT,I,A,AS,TO,BE,AN,ON,OF,AT,WORSE,FLY 2500 dat%}a CLOCK,NATURAL,VISIT,ELBOW,BURDEN,DWINDEL,PORTRAIT,SIMPLY 2510 data DIVORCE,ELIGIBLE,ABRUPTLY,MAILBOX,SEVERAL,CHOKED 252%}0 data CHILD,REQUEST,SUPRISE,SEVERAL,SHADOW,CENTER,BEACON,EMPTY 2530 data UP,CHICKEN,DUCK,ROLL,ROAR,TOILET,ROVING,ACTUAT%}E,INTERIOR,HARM 2540 data JOLT,VICTORY,EMPERIOR,AFTERNOON,APARTMENT,GUESS,BOARD 2550 data CONSIDERABLE,FIRECRACKER,OBST%}RUCTION,TEMPORARY,INTENSELY,YOKE 2560 data ASHES,DIRTY,SEX,ICY,KILL,LID,LUMP,MOBLITY,MEGAPHONE,SENSIBLE 2570 data PERFO%}RMANCE,DEMONSTRATION,STATEMENT,PORTABLE,DELEGATION,WORSE 2580 data OBJECT,OUTRAGE,SHOULDER,HUSBAND,BALLERINA,INFORMATION,P% }OOR 2590 data APPROACH,DEVELOPMENT,UNDERSTAND,OBSESSION,CAMPAIGN,GLEAM,FULL 2600 data TERMINAL,EARNEST,DOUBT,ROOF,SOFTL% }Y,PANIC 2610 data IRRATIONAL,CHAPTER,ZERO,WEENIE,ZONKERS 2620 data ENLIGHTEN,COUPLE,PECULIAR,SQUARE,CODE,YIELD,GARDEN % }2630 data IGNORE,ABDOCATE,SILENT,NAKED,MURMUR,POISON,PERISH,HONEST 2640 data COMMENT,BALCONY,LIMOUSINE,COMMUNITY,TRANSPO% }RTATION,INVOLVED 2650 data EFFECT,DYNAMITE,WRONG,OXYGEN,SKILL,LONELY,GUITAR,PLOT 2660 data PAUSE,PROPER,CHINA,STORY,BEC% }AUSE,SWITCHBOARD,UNIMPEACHABLE 2670 data BLUNT,ANNOUNCING,PROBLEM,FACTORY,TOMORROW,ABDUCTION,CORNER 2680 data FELT,RIFL%}E,EMPTY,FIFTEEN,YAWN,JEWEL,GOLF,CONFIDENTLY,QUOTE 2690 data YACHT,LIBERTY,HABIT,DAZED,TRINKET,PUNGENT,CAPTIVE,SPRAWL $}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWDOC TXTboHELP BASb'tLINKLINEPRGbMENU bPORT TXTbTYPOST BASb3HANGMAN BAS