@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 }}}} [[h}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 XLAPNB0A6@ ((<(dl"(@ D +26-?:C: X}hhhԩ`,<A6,DAdAUuA@'A 9AK@@]@ Y}@7c(}uAR@++(# ++(# Antic Monthly Disk, Nov. 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@- @ .K'7@<@,4 HE `}LP.....BASK67@<@,. Ю2() <@F''7@<@,4FREE@K @ a}P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| b} |[ ( |  |\++(#  d**(" Select HELP.BAS for information.x c}AR[@@9'-@@#C( FILE NUMBERM A0Q[ BP:,A d}00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B e}37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 f} AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"? g}  LOADING ? A@@91@@5%? B[-@@"-  CANNOT R h}UN 7 @LF:A,"@![% D:HELP.BAS B A0D1:MENU."(@ 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 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.XXX *** ANOTHER BONUS FILE ***ANTISTAR.PI1 is} a high-resolutionDEGAS image featuring the digitizedportraits of ANTIC and STARTstaffers.You must port this file to an }STdisk and view it with the Degaspicture making program. Monochromemonitor required.XXXThe menu that appeared on} the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN GFA or } ST BASIC programs!)If you try to run a program and theresponse is 'cannot run Filename',then check the file extender wit}hthe following list:XXX.SYS Reserved for DOS system files..DAT Data file. Usually accessed by another progra}m..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 or GFA 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}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 {GfABASIC&&&****  z     < < < $}<SELECTEDMXMYMK LEFT_BUTTONFOUNDDL CLEAR_FLAGPROPER_DATE_FORMATYEARMONTHDAYXTLPROPER_TIME_FORMATHOURSMINUTESS$}ECONDSBUTTONDAKEYPRESSMMDDYYBELLDATEKEYDCARRIAGE_RETURNTIHHSSKEYTMONTHMINUTEDAYYEAR CURRENT_DATE CURRENT_T$}IMEHOURSECONDNEW_DATEDATEINTINTIME_INM1 GET_THE_DATE DESKTOP_ONOPTION_GROWBOXGET_BOX SHOW_KEYBOARD HANDLE_D_KEY F$}IND_KEY_BOXPUT_BOXOPTION_SHRINKBOX GET_THE_TIME HANDLE_T_KEY Time and Date setting program (c) 1987 Antic Publishing$} version 072887 PWritten by Patrick Bass  r- - - - - - - - - - - - - -  MFM FF.)!Time: 8 |Date: $}~ | !!Exit!F qF  ---------------------------- +F-FYF Enter Today's DateF ,Y! " Date forma$}t: mm/dd/yyyy ("~")FEF Y! "Today's date: "FEF FMFF y FF  E;@ FE?@$}@ FE=@ F  z 01 12F z0131F z 19802099FEF E#5 w $}F  E#5 F  E#5 F$E#  #   F  E,,! F F F F  z4FEFEFF $}F  xF.F &----------------------------------- +F- ESF-  zBPP FEF F  {$}r09F {$6  F0 EF  {6 6  F E/F E6 F F  F2Y!$} " "FFY! ""F F .F &---------------------------------- -+ F-F$} YF4Y! "(Enter The Current Time in 24 Hour FormatF *Y! " Time format: hh:mm:ss ("8")FEF Y! "$}Current Time: "FEF FM FF |FFF E;@ FE?@@ F E=@ F  }>0023F$} }:0059F }60059FEF E#5 F E#5 F E#5 F(E# # # $}F) E44! F F F F  }`FEF EFF F  {F.F &---------------------------------$}-- + F-  ESF-  } BPP FEF F  ~ 0 9F ~P6 F" E F  ~H6$} 6  F E:F  E6 F F   F 2Y! " "FtY! "$}"F F .F *-- End of program --------------------- $}$}xzz{}< $y1000 ' 1010 GETTIME : 1020 '(c) 1987 Antic Publishing 1030 'Version 010887 * 1040 'W(}ritten by Stephen Oriold 1050 ' 1060 Dim OPCODE%(23) 1070 ' 1080 ' 1090 restore 1340 1100 ' 1110 for C%=0 to 23(} 1120 read OPCODE%(C%) 1130 next C% 1140 ' 1150 ADDR = varptr(OPCODE%(0)) 1160 call ADDR 1170 ' 1180 HRS% = OPC(}ODE%(23) 1190 MIN% = OPCODE%(22) 1200 SEC% = OPCODE%(21) 1210 ' 1220 HRS$ = str$(HRS%) 1230 if len(HRS$) = 2 then H(}RS$ = " 0" + right$(HRS$, 1) 1240 MIN$ = str$(MIN%) 1250 if len(MIN$) = 2 then MIN$ = " 0" + right$(MIN$, 1) 1260 SEC$ (}= str$(SEC%) 1270 if len(SEC$) = 2 then SEC$ = " 0" + right$(SEC$, 1) 1280 ' 1290 TIME$ = right$(HRS$, 2) + ":" + right(}$(MIN$, 2) 1300 TIME$ = TIME$ + ":" + right$(SEC$, 2) 1310 print TIME$ 1320 input "- Hit [RETURN] to exit.", A$ 1330 (}' 1340 data &H2248, &H3F3C, &H002C, &H4E41, &H548F, &H3200 1350 data -15748, &H001F, -7351, &H3341, &H002A, -5560 1360(} data &H3340, &H002C, &H0269, &H003F, &H002C, -5048 1370 data &H3340, &H002E, &H4E75, &H0000, &H0000, &H0000  1040 'W(s""33DDUUfvw,},},},},},}-}-}-}-}-}-}-}-}-}- }- }- }- }|7Ex1- }M?v?(AATTC}}-}}#'14ߞ~*?_@`-}QK0cxNn K??o-}А GQzn/ -}v>?ZX= B?I ] 8x-}2^@/R?Xԍ+~W_-}\. o@'X8,vv߂b#? =??@=-}_o@? -Opr-}+? <?^0@Qw8? |hex-}$7r?Wި <ހ!@=%?{-}d$ Q'@C^+?xkWS?O@-}!olAHHqҠ?@XB~Հ0+?yW-}Fo/9]v?a~ ?K\4grWq_-} '?[qAF?l8K36-}(u7` 7?: t}уO-}?  t(D c@|kX{^??I(@x -}@g%`x?Y"1q8-}{> 2@kχ?p @<FrÒ< F9-}r >*@}~p39- }<Npo c?-%}{p_\or~nzO>@vz ?-@-&}c?l@qzzȅ0|}~gy{ƀv2O@?Gx-'}AX8c ոN'_m`n-(}?Y:d8?H xJFyXxxC-)}0y?>?5 >9?<ۤ$x-*}[G?} q_Fx;>l |9>;`9-+}G?Lp/HK\_}  ~-,}3<Oz0"x#b]i@Y?osApI--}t h~8?oa"86`J@Y?-.}g@8 8/m ~?~+zH@~/8x|yf-0}/<0@ F(7xk>-1}Pj_ޠ>98aS <~eKa @b3V>?9zރ006'x-2}9`@@8:7)|8~y3<-3} p%apx9 l"@'*89-4}@ axirm -5}68gO s񀗣C|wxl?/-6}eHq@%=8"<wtHZ<~-7}x$`///qEZ1" <;4?-8} [M&~xLNI? %<-9}w"* lo$?x7$Ey -:}b=>bi`SF!8x-;}e1??©i 8s=> ԞteFx-<}ح= 88|}x$ At n;.? Mbρ-=} wz}s `600p k@b;uXJ.n'> ->})G8~h1@ GΪ{>. x  tĘ-?} ]&`=>`Ք+~ `p'ea8!!!-@}x!x ; 1?;8n1Y >y#ݼ> -A}j~111x7F_^@|.>"Z>7]iO0~p-B}  _0IxWܘ`3B |~>-C}_8I?:9`~q&x @ ɼ)/x {p-D}b^O0]Qn\<:+?(ӳXp~1B<:;{-E}:|(xP51f]g 6@?Anqގ>$k?_=g`|Q?-F}~f?ቸqp8A;2!aqC~|v^> 2k?-G}9}f@A?2p@~| 00"x,-H}A.~ ~0)?">}j@]b ~-I}(x81A>~~1'?|bF?-J}'Y6 w߈Z:2 Y-M}?]/??b|~<6} ??X`?4@IQs|?-N}SYG?dx~ 4,??~-O}8'?)C;|??'o"(g܅>! ?? -P}blmgp?pq -T}\|G|xb_`?to  #ҩ~--U}G?s (pkdT{|X#M`|}=-V},xN9> ?"x/ E?(g-W}  xÑ0 ?K?;O@ @-X}s>,`K 0nN 04"?8?-Y}<}0P_HHH8'?hwpx]B-Z}%y?#|a`p{V 8-[} {^ba`֖$Q?ArI w?_@b-\}x'xxa~r H~d'hrn:?<?{#y< ?,@-]}UBA@>knP7 }??/[ .M?-^}<iU!?@p;H?-_}@x@;G;-a} ߃7އ= ?fy>?b??C??־Ez-b} @8T0# 33 +3<@ ?|܈?-c}54 ܋ß"Z~ FM##fw-d}xqo /??8?>|_{Ab9@?-e}>?? !69 @ ?8 $0t~ -f}@CK$37? pa]os?x R?7/"-g}پ~@#\?#8?c nf???C?`-t}Д)ْ&a@~8&$ ;? .?ƀ-u}H???yc cGaĀ8oz ~8 sq-v}P?_>???V@_#h-w}????-x}????-y}lqlqlqlqNNNN8888???-z}?????-{}7777wwww????AuAuAuAu-|};;;;tttt????߆߆߆߆-}}====vvvv?????-~}???@-}???? ????@-}-}-}-}-}-}-}-}-}-}-}-}$'8&K=>vƬl-}=? <Vxc΅  %!H-}NN&! (0?(??A+0 ?-}p|H-!`m'g 0?? dS:@0-}ർxxH$]F7p7?-}姳??$? ?P0ILO=Cxb?.@0-}x0??o?10t -}ph0s?@?kk??$>~7?-}@o `_g >u ('0'?=?)?|-}`с? `рd8?| -}??'<?Rg poc|@@fT0^-}0?/[7?*??z?o^p@Gp  -}eG(G'\@|8p/ ??i>?w)(-} ?;@{X0?4~sw0?? ~-}yp[=<ʹI H?P2 x 1lp-}\h`??Ls~L? q7m/f&gVV-} `p %  3??>|p-}ݰ_6x j Pp)v J0v׮0p???U;ׯ@?u7@-}_X?sP p 4''C<-}??QC??Fqab%F H.-}{A@????F?pAl/[`-}ȇxx8xZ,?? _?-}X|?̰?ÈÀ?>*|T;-}"``[oo?$G?M????>X?p-}Ez;c rqppCH/-}dܼc`M??_?;  n 00;{DS-}>2?P?H_`|?@|?σI -}_O$?@p??$-}00?AJD-+tO0-}e<?>  -}1?-c <=0>?]?>_'-}(x_>Kye=!>М -};_r0#ǹ<=E>_-}ǜF?6@?XDmpL9?a-}5F>?$;SǓ쭲EF?0-}|jN@ ?:61=2F<?,pE@g-}f ED;87?-1>?lt(?W7'-}N"0V^bI(qh Dq~49S/֜oB -} 0>>9~~~X?8JZ#0\\߿"xi  -}@qqn#z݅<'Y:<V'W'>Nvh*z-} =L GKºb2!,?< P?ẅ@@?@p-}7   @HT#€p߀?P }yH6|ʀ1;<q}-}؝c{x<7%$ Q X`k #f/_PtXXg-}6 ;<T<Ʊ<s~<!pk?|_h?> -} zOZ/_)XgJ?8+@@#3gh啿p -~-}]L@!a? ;x^"o_?(88x6(78פ0`cw-}?pCc$=pA~8ጀ J8z7 R r-}781]x=u@?p"'15E_q vBJ@8L-}?ɿ@ 684|@=pπ0|Q_`0p/_phm-}(Ghxc#wڏ`?> Y6Q88 /̕?~ !p-}=~?YJ}PS$_@ϣ_@V{?2!#?&|8߼~-}xc `P0ooxXewx??#c< -}?$|8]o{{pE2xP0|O?C_O-}P8?K?Yy |8wEH?_?8T#A_`P0z!-}fC? 00|577g0x12_ ox |8^u@$? p0-} xq^?c?HHwgs",?H_ y(}0-}\@ޫ$?0@ y8~\c4n-}m$1?O? h(o0@@??@Ct-} NaJs6Ν'>?(B0ø>-}=pp7?Q53pa-}#'WK!@? @@xaA@@ a~-}????0`uf8dA(hf?-}`0g<3H@@-};=|5}@hh0@3L|`'Y-}XGЉ 1~ppjdHH @Lz-}99pC@@ @1xC=? | -}%@ zbt}~99Y8x@ }|-}2|<;8x?  Ҹx$-=XçI8{|XC-}ML5`?  8&' Wxǘ1 0? :>-}>rύE<و P?Z]<?0<` q-}G>Нh==B>Cü<@R|ރ? = 8-}P^ ." %>? W?? A?'?-}%p">>  #<?{4 0? -}?0P  Kx~8 7sP-}0?|@_x~ #-} ҇3 nj#<??@B-}|xx{{ |avvFAd@ښ$8??! }??-}x~à?^4? -}? xas؏?0o&W -} ^!>@8|1.Ï?j@wB&7C-}W^g</O?-}@r{|}~ 8>Gx 45)!C@o-}P`Z%~W(^>3< q~0=-}, W@@`0r Œqqq/-}-0?a1oq>s0|0?xD-}?<Rn|p 2?J@:r4|0 s?@-}!BŽ%Gx?`?f_. o-}llr?1><>?p{-}|@3010/-}/p-}?-} -}''';-};;;}t}t}t}t///~~~~nnnn-}uuuu7??~~~~ `-}qqqquuuu-}||||qqqq-}-}-}-}-}-}.}.}.}  T*,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+