@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 9AAK@@]@ Y}@7c(}uAR@++(#++(#| Antic Monthly Disk, Aug. 1987 | Z}++(#( | Side 'A' |++(# @  [}-@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: ASTARZEBREATAPELESSBY ROBERT GRUNBOK$$(c)1 }|LINEA ;A ,;@,; (}@;@@ D:DOC.TXTk} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@l}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@m}j%D:MENU D1:HELP.BAS ;A ,;@,; (}@;@@ D:DOC.TXT& WELCOME TO THE ANTIC MONTHLY DISK Most of the pro}ograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. Please read the corp}respondingissue of ANTIC for completeIf you wish to order a back issue,or need subscription information,call us at (415) q}957-0886. For creditcard orders, dial (800) 227-1617, Ex.133. In California, call(800) 722-3545, Ex. 133XXX* OUT OF ROr}OM * OUT OF ROOM * OUT OThis month's disk offers so many8-bit programs that we had to placethe overflow on the back!Bos}th Haiku Writer files are onSide "B", as well as the winningentries in our "Rebound" arcadegame contest. (RUN "D:REBOUNDX.t}BAS"to play all ten winning screens.) And...XXXWe've also included this month'sBONUS program, The ANTICDATABASE (ANu}TICDB.EXE), on theback of the disk. Read theHELP files there for completeinformation.XXX *** BONUS FILES * BONUS FILv}ES ***Whenever there is sufficient room,we will be including TYPO II andLINKLINE on the monthly disks.TYPO II is in LISTw}ed form, and must be ENTERed before using.It will not RUN from the menu.Please see the HELP files on theback of this disx}k for LINKLINEinstructions.XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUN programs y}with a .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the file extender with thiz}slist:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then{} RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filenam|}e..ASM Assembly language source code (Atari Assembler Editor) Must be compiled..M65 "SAVEd" MAC/65 assemb}}ly language source code. Must be compiled.XXX.OBJ Machine language object file. Same as .EXE but ~}not 'Load and Go'. See corresponding article..SYS Reserved for DOS system files..TXT Text file. Usually accessed} by another program..ACT ACTION! language source code. Must be compiled..LGO A Logo program. Requires th}e Logo cartridge.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 insuretha}8K8P?@     Y`  Y0 l `8''xXL( LinkLine/80}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~):}H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` B}D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E V}0((( BD(EHI V( BD(EHI Vii8++}( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E V}+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'}iiiiLb-`+}) - *` B V0`0P B`D'E HI} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ B}םD-EHI V B؝D-EHI V BD'EHI V'iiii8--}--- -Ш B V`'     Y`  Y0 l `8''xXL( LinkLine/80!32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"3}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION} 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE}$(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+65322}00 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π }and edit line above.":GOTO 3205032010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN!987, ANTIC PUBLISHING INC.filename = TITLE.BAS WWTRAP 20:FAST:REM REMOVE FIRST 'REM' IF YOU HAVE BASIC XE OR BASIC }XL FROM O.S.S.u B+@96-F:A`,%F:Aa,$AVM%@ @a%@@u%@ }@oA@'A 9A@KA@]A@@oAR@(F&( }@____________________F(@ the tapeless -O%(@spreadsheet printer0(@O(@ } ٠ 2L(@0(@ prints spreadsheetsL(@ sideways<Q%(@________________ }____((G(Press Ԡ to continueQ APF F:B2y,@@pZ;@,;@,*6.>:,96 }.>:@',C+UAR@gA yA@A@@n-@@ )(TURN }ON PRINTER;-@@Q(Then press \@|@@K: APx)@g ( }}-@@ >(DOWNLOADING PRINTER CHARACTERSP-@@g(PLEASE STAND BY...m A0@8 }@@P:C(@W-@A[ mAYo@@+AY@4 }1(}C-@@\(Loading Main Programo%D:TAPELESS.BASjEF:A,"A8*AY@41(}; B }E Ath (}-@ @A(Error # F:A, Occurred!SAY@4eARh~)6-F: }@,&A(& )$@B7t$ D1:TITLE.BASTAPELESSBY ROBERT GRUNBOK$$(c)1 R_tFNTEMPARDPLLA MAKEAUTO.BA$}SBY ROBERT GRUNBOK (c) 1985, ANTIC PUBLISHING#66(CREATES AN "AUTORUN.SYS" FILE FOR PRNTLOAD.BAS)(GG(LINES 10$}-220 MAY BE USED WITH OTHER BASIC LOADERS IN THIS ISSUE.-##CHANGE LINE 70 AS NECESSARY.)2&&;@ ,;@ ,;@$},<$6-F:B,$BAUFI6. D:AUTORUN.SYSITHIS IS THE NAME OF THE DISK FILE TO BE CREATEDP3 +$}3(! ANTIC'S GENERIC BASIC LOADERZ(BY CHARLES JACKSONdB Apn1( (( Creating 1(...p$}lease stand by.x## "6-;,#6-@ 6.".-@B:,@.ARAUL6-&@$}#-@@L((Countdown...T-P:'@,) =!67<,.>:A:7<%@,,,/6-%@3 = A0$}SF:A,"@((8(TOO MANY DATA LINES!P(CANNOT CREATE FILE!SH %@(-(TOO FEW DATA LINES!$}E(CANNOT CREATE FILE!H @@5Af@#(@5Af(@$}+(( Ġ 156cc25525500000614100616200018902600320106924000523223223220824423214210500618902600313$}3205169107cc157026003232189026003133206169006157026003160000162016177205153107006200202208247169067141111cc0061690061$}41112006169018141106006096172106006240009185123006206106006160001096138072174105006cc165205157026003232165206157026003104$}170169155160001096000000000000000000000000000000000000000cc00007600000000003408306506604606806507907608407808208005806803$}4078085082255255226002227002000$ 006D1:MAKEAUTO.BAS MAKEAUTO.BA$@10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM TOPDOT1210 REM filename = TOPDOT1.LST(}220 REM CHARACTER SET DATA FOR: GEMINI 10/15X AND OKIDATA 92/93 (PRINTHEAD TOP DOT VALUE = 1)230 DATA 33,8,0,0,0(},8,0,8,0,8240 DATA 34,0,0,0,0,0,0,20,0,20250 DATA 35,20,0,20,107,20,0,127,0,20260 DATA 36,8,55,72,0,127,0,9,118,8270 DATA(} 37,49,72,51,4,8,16,102,9,70280 DATA 38,94,33,16,41,78,16,2,16,12290 DATA 39,0,0,0,0,0,0,8,0,8300 DATA 40,32,16,8,0,8,0,8,(}16,32310 DATA 41,2,4,8,0,8,0,8,4,2320 DATA 42,0,34,20,8,119,8,20,34,0330 DATA 43,0,8,0,8,119,8,0,8,0340 DATA 44,4,8,0,12,(}0,0,0,0,0350 DATA 45,0,0,0,0,127,0,0,0,0360 DATA 46,12,0,12,0,0,0,0,0,0370 DATA 47,0,1,2,4,8,16,32,64,0380 DATA 48,28,34,(}69,8,65,8,81,34,28390 DATA 49,28,0,8,0,8,0,8,4,8400 DATA 50,127,0,1,2,60,64,0,65,62410 DATA 51,62,65,0,64,32,28,32,64,634(}20 DATA 52,32,0,127,1,34,4,40,16,32430 DATA 53,31,32,64,0,65,62,1,0,127440 DATA 54,28,34,65,0,67,60,1,2,60450 DATA 55,4,0,(}4,8,16,32,64,0,127460 DATA 56,62,65,0,65,28,34,0,34,28470 DATA 57,14,16,32,64,62,65,0,65,62480 DATA 58,12,0,12,0,0,12,0,12(},0490 DATA 59,4,8,0,12,0,0,12,0,12500 DATA 60,32,16,8,4,2,4,8,16,32510 DATA 61,0,0,127,0,0,127,0,0,0520 DATA 62,2,4,8,16,(}32,16,8,4,2530 DATA 63,8,0,0,8,16,32,0,33,30540 DATA 64,126,1,0,57,68,57,64,33,30550 DATA 65,65,0,65,62,65,0,65,34,28560 (}DATA 66,63,64,1,96,31,32,65,32,31570 DATA 67,60,66,1,0,1,0,65,66,60580 DATA 68,31,32,65,0,65,0,65,32,31590 DATA 69,127,0,1(},0,31,0,1,0,127600 DATA 70,1,0,1,0,31,0,1,0,127610 DATA 71,124,2,65,0,121,0,1,66,60620 DATA 72,65,0,65,0,127,0,65,0,65630(} DATA 73,62,0,8,0,8,0,8,0,62640 DATA 74,28,34,64,0,64,0,64,0,96650 DATA 75,65,32,17,8,7,8,17,32,65660 DATA 76,127,0,1,0,1,(}0,1,0,1670 DATA 77,65,0,65,0,65,8,85,34,65680 DATA 78,97,16,65,8,65,4,65,2,65690 DATA 79,62,65,0,65,0,65,0,65,62700 DATA (}80,1,0,1,0,63,64,1,64,63710 DATA 81,94,33,16,73,0,65,0,65,62720 DATA 82,65,32,17,0,63,64,1,64,63730 DATA 83,62,65,0,64,62,(}1,0,65,62740 DATA 84,8,0,8,0,8,0,8,0,127750 DATA 85,92,34,65,0,65,0,65,0,65760 DATA 86,8,20,34,0,65,0,65,0,65770 DATA 87,(}65,34,85,8,65,8,65,0,65780 DATA 88,65,34,20,8,0,8,20,34,65790 DATA 89,8,0,8,0,28,34,65,0,65800 DATA 90,127,0,2,4,8,16,32,0(},127810 DATA 91,56,0,8,0,8,0,8,0,56820 DATA 92,0,64,32,16,8,4,2,1,0830 DATA 93,14,0,8,0,8,0,8,0,14840 DATA 94,0,0,0,0,0,0(},34,20,8850 DATA 95,127,0,127,0,0,0,0,0,0860 DATA 97,94,33,0,49,14,32,17,14,0870 DATA 98,63,64,1,64,63,0,1,0,1880 DATA 99(},62,1,0,1,0,33,30,0,0890 DATA 100,126,1,64,1,126,0,64,0,64900 DATA 101,62,1,0,127,0,65,62,0,0910 DATA 102,4,0,4,0,30,0,4,8(},48920 DATA 103,60,64,0,124,2,64,2,124,0930 DATA 104,33,0,33,0,33,30,1,0,1940 DATA 105,28,0,8,0,12,0,0,0,12950 DATA 106,1(}4,17,0,16,0,24,0,0,24960 DATA 107,34,16,10,4,10,16,34,0,2970 DATA 108,28,0,8,0,8,0,8,0,12980 DATA 109,73,0,73,0,73,54,0,0,(}0990 DATA 110,66,0,66,0,66,61,0,0,01000 DATA 111,28,34,65,0,65,34,28,0,01010 DATA 112,2,0,2,60,64,2,64,62,01020 DATA 113,(}96,0,32,30,33,0,33,30,01030 DATA 114,2,0,2,0,34,29,0,0,01040 DATA 115,63,64,32,28,2,1,126,0,01050 DATA 116,16,40,4,0,4,26,(}4,0,41060 DATA 117,94,33,0,33,0,33,0,0,01070 DATA 118,8,20,34,65,0,65,0,0,01080 DATA 119,54,73,0,73,0,73,0,0,01090 DATA 1(}20,65,34,20,8,20,34,65,0,01100 DATA 121,30,32,64,60,66,0,66,0,01110 DATA 122,61,2,4,8,16,47,0,0,01120 DATA 124,12,0,12,0,1(}2,0,12,0,12ESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM TOPDOT1210 REM filename = TOPDOT1.LST( 10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM BOTMDOT1210 REM FILENAME = BOTMDOT1.LS,}T220 REM CHARACTER SET DATA FOR: GEMINI SG10/15 AND EPSON FX80/100 (PRINTHEAD BOTTOM DOT VALUE=1)230 DATA 33,8,0,,}0,0,8,0,8,0,8240 DATA 34,0,0,0,0,0,0,20,0,20250 DATA 35,20,0,20,107,20,107,20,0,20260 DATA 36,8,119,8,1,126,0,72,54,8270 ,}DATA 37,70,9,102,18,8,36,51,72,49280 DATA 38,61,66,4,66,57,4,32,4,24290 DATA 39,0,0,0,0,0,0,8,0,8300 DATA 40,2,4,8,0,8,0,8,},4,2310 DATA 41,32,16,8,0,8,0,8,16,32320 DATA 42,0,34,20,8,119,8,20,34,0330 DATA 43,0,8,0,8,119,8,0,8,0340 DATA 44,16,8,0,},32,0,0,0,0,0350 DATA 45,0,0,0,0,127,0,0,0,0360 DATA 46,24,0,24,0,0,0,0,0,0370 DATA 47,0,64,32,16,8,4,2,1,0380 DATA 48,28,},34,81,8,65,8,69,34,28390 DATA 49,28,0,8,0,8,0,8,16,8400 DATA 50,127,0,64,32,30,1,0,65,62410 DATA 51,62,65,0,1,2,28,2,1,12,}6420 DATA 52,6,0,127,0,34,16,10,4,2430 DATA 53,124,2,1,0,65,62,64,0,127440 DATA 54,28,34,65,0,97,30,64,32,30450 DATA 55,1,}6,0,16,8,4,2,1,0,127460 DATA 56,62,65,0,65,28,34,0,34,28470 DATA 57,62,1,0,1,60,67,0,65,62480 DATA 58,24,0,24,0,0,24,0,24,,}0490 DATA 59,16,8,0,24,0,0,24,0,24500 DATA 60,2,4,8,16,32,16,8,4,2510 DATA 61,0,0,127,0,0,127,0,0,0520 DATA 62,32,16,8,4,,}2,4,8,16,32530 DATA 63,8,0,0,8,4,2,0,66,60540 DATA 64,63,64,0,78,17,78,1,66,60550 DATA 65,65,0,65,62,65,0,65,34,28560 DAT,}A 66,126,1,64,3,124,2,65,2,126570 DATA 67,30,33,64,0,64,0,64,33,30580 DATA 68,124,2,65,0,65,0,65,2,124590 DATA 69,127,0,64,},0,120,0,64,0,127600 DATA 70,64,0,64,0,124,0,64,0,127610 DATA 71,31,32,65,0,79,0,64,33,30620 DATA 72,65,0,65,0,127,0,65,0,,}65630 DATA 73,62,0,8,0,8,0,8,0,62640 DATA 74,28,34,1,0,1,0,1,0,3650 DATA 75,65,2,68,8,112,8,68,2,65660 DATA 76,127,0,64,0,},64,0,64,0,64670 DATA 77,65,0,65,0,65,8,85,34,65680 DATA 78,67,4,65,8,65,16,65,32,65690 DATA 79,62,65,0,65,0,65,0,65,6270,}0 DATA 80,64,0,64,0,126,1,64,1,126710 DATA 81,61,66,4,73,0,65,0,65,62720 DATA 82,65,2,68,0,63,1,64,1,126730 DATA 83,62,65,,}0,1,62,64,0,65,62740 DATA 84,8,0,8,0,8,0,8,0,127750 DATA 85,29,34,65,0,65,0,65,0,65760 DATA 86,8,20,34,0,65,0,65,0,65770 ,}DATA 87,65,34,85,8,65,8,65,0,65780 DATA 88,65,34,20,8,0,8,20,34,65790 DATA 89,8,0,8,0,28,34,65,0,65800 DATA 90,127,0,32,16,},8,4,2,0,127810 DATA 91,14,0,8,0,8,0,8,0,14820 DATA 92,0,1,2,4,8,16,32,64,0830 DATA 93,56,0,8,0,8,0,8,0,56840 DATA 94,0,0,},0,0,0,0,34,20,8850 DATA 95,127,0,0,0,0,0,0,0,0860 DATA 97,61,66,0,70,56,2,124,56,0870 DATA 98,126,1,64,1,126,0,64,0,6488,}0 DATA 99,62,64,0,64,0,66,60,0,0890 DATA 100,63,64,1,64,63,0,1,0,1900 DATA 101,62,64,0,127,0,65,62,0,0910 DATA 102,16,0,16,},0,60,0,16,8,6920 DATA 103,30,1,0,1,30,33,0,33,30930 DATA 104,66,0,66,0,66,60,64,0,64940 DATA 105,28,0,8,0,24,0,0,0,24950,} DATA 106,56,68,0,4,0,4,0,12,0960 DATA 107,34,4,40,16,40,4,34,0,32970 DATA 108,28,0,8,0,8,0,8,0,24980 DATA 109,73,0,73,0,7,}3,54,0,0,0990 DATA 110,33,0,33,0,33,94,0,0,01000 DATA 111,28,34,65,0,65,34,28,0,01010 DATA 112,32,0,32,0,62,1,32,1,621020,} DATA 113,3,0,2,0,62,64,2,64,621030 DATA 114,32,0,32,0,34,92,0,0,01040 DATA 115,126,1,2,28,32,64,63,0,01050 DATA 116,4,10,,}16,0,16,44,16,0,161060 DATA 117,60,66,0,66,0,66,0,0,01070 DATA 118,8,20,34,65,0,65,0,0,01080 DATA 119,54,73,0,73,0,73,0,0,,}01090 DATA 120,65,34,20,8,20,34,65,0,01100 DATA 121,60,2,1,30,33,0,33,0,331110 DATA 122,94,32,16,8,4,122,0,0,01120 DATA 1,}24,24,0,24,0,24,0,24,0,24ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.16 REM BOTMDOT1210 REM FILENAME = BOTMDOT1.LS,10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM SG10LOAD.LST80 REM STAR SG10/15 CHARAC0}TER LOADER100 ? "}":POSITION 5,5:? "Is printer DIP switch 1-5 off?"150 FOR I=1 TO 90:READ LTR:? #7;E$;"*";CHR$(LTR);CHR$(L0}TR);CHR$(139);160 IF (LTR=103) OR (LTR=106) OR (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOTO 180}0170 ? #7;Z$;Z$;:GOSUB 210:NEXT I180 ? #7;E$;"$";:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;"0":? #7:REM 8 LINES PER 0}INCH210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:RETURN PUBLISHING INC.18 REM SG10LOAD.LST80 REM STAR SG10/15 CHARAC0>10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM OKILOAD.LST80 REM OKIDATA 92/93 CHARAC4}TER LOADER100 REM DON'T REMOVE THIS LINE150 FOR I=1 TO 90:READ LTR:? #7;E$;"%A";CHR$(LTR);160 IF (LTR=103) OR (LTR=106) OR4} (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOTO 180170 ? #7;Z$;Z$;:GOSUB 210:NEXT I180 ? #7;E$;4}"2";:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;"8":? #7:REM 8 LINES PER INCH210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:N4}EXT J:RETURN S12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM OKILOAD.LST80 REM OKIDATA 92/93 CHARAC410 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM G10XLOAD.LST80 REM GEMINI 10X/15X CHAR8}ACTER LOADER150 FOR I=1 TO 90:READ LTR:? #7;E$;CHR$(42);CHR$(1);CHR$(LTR);Z$;160 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT8} J:NEXT I180 ? #7;E$;CHR$(36);CHR$(1);:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;CHR$(48):? #7:REM 8 LINES PER INCH9208} DATA 103,60,64,0,124,2,64,2,124,0950 DATA 106,14,17,0,16,0,24,0,0,241010 DATA 112,2,0,2,60,64,2,64,62,01020 DATA 113,96,08},32,30,33,0,33,30,01100 DATA 121,30,32,64,60,66,0,66,0,0NTIC PUBLISHING INC.18 REM G10XLOAD.LST80 REM GEMINI 10X/15X CHAR8:10 REM TAPELESS12 REM BY ROBERT GRUNBOK14 REM (c)1987, ANTIC PUBLISHING INC.18 REM FX80LOAD.LST80 REM EPSON FX80/100 CHAR<}ACTER LOADER100 ? "}":POSITION 5,5:? "Is printer DIP switch 1-4 off?"150 FOR I=1 TO 90:READ LTR:? #7;E$;"&";Z$;CHR$(LTR);CH<}R$(LTR);CHR$(139);160 IF (LTR=103) OR (LTR=106) OR (LTR=112) OR (LTR=113) OR (LTR=121) THEN GOSUB 210:? #7;Z$;Z$;:NEXT I:GOT<}O 180170 ? #7;Z$;Z$;:GOSUB 210:NEXT I180 ? #7;E$;"%";Z$;:REM SELECT DOWNLOADABLE CHARACTERS190 ? #7;E$;"0":? #7:REM 8 LIN=}ES PER INCH210 FOR J=1 TO 9:READ LTR:? #7;CHR$(LTR);:NEXT J:RETURN HING INC.18 REM FX80LOAD.LST80 REM EPSON FX80/100 CHAR<Ehi8OCAADISLTPPRNTOUZERFILFNOWASTBINDEPBLFROFILESKIKEYBOARAXSCREEBREAKEA} A}A} !"#$% TAPELESS BY ROBERT GRUNBOK$$(c)1987, ANTIC PUBLISHING INC.+ A} B A ! AP+ APLOAD ARRAY(? @`-$&%$)0"AU<-$&%?$2"67A}<,.>:,  B"$<! B$!TRAP EOF ERRORF PRINTP4 A  P:.+",*+!,46-ZA}66-P:@&,'@(6-@6-@d ! 7@<,n( 7<%&@,!6-%% ($x A}F:A,"A8AP B6-$MAIN PROGRAMM AAR@%6-+6-16-76-<A }GM(}Y A@-@@ 0( SIZING ARRAYB-@@Y(PLEASE STAND BY...'-@AA } 'AY, )6-%@,AUA6-%@6- 6- A9FA }:A,"A6' B9AY@4f!@5(!}Form has too many to printB(clearly.E(^(See DoA }cumentation...cf 6-$6-P:',* 6-'6-P:', *6-%@  6-r A@AA }A%(}7-@@ I( LOADING ARRAY[-@@r(PLEASE STAND BY...7-@A 'AYA},7FORM FITS"R @ A00-@6@: @@> H @R A ,DOA}ESN'T FIT, MULTI-FILL6 6-6-&6-@2-@ A02-@6@J" !-@)A}" T @@^" !-@)" h r 6-%|"&@6-%@ 6- !A}6-&! @!  >:@,FORM FEEDKAY@4'AR@9A@8A}K@wv (}-@@'(Choose:9-@@W(nother copy of same formi-@@A}v(ew form;-@@(uit#1K:; ADA'A@d.):"@A}eD A+"@x(}!6-@+ Ap$"@!AR$AdAU A`A}8 @ @)(>:@,.8 A@ A01;@@,;@@,;@ ,;@,B67@A},. Q67@,.`67@,.z6-P:I:,&A,;,W6-6-@'6-@36-@A}?6-@K6-@W6-@$&FILE MENU0@S::KAR@'A 9AA}@KA@@Da-@@ 8(Insert data disk into Drive #1J-@@a(Then press A}N0K: A')0(}XE-E((bF-A}@F((|ӠŠϠԠӠ|lE-@E((|A}Π|vE-@E((G-@@#--(|9-A}@9C(|G E-@ E((|ݠ|E-@!E((A}7@D:*.*+6-@76-@ Ap B..A}7@<@,4 DOS SYSA ''7@<@,4FREEAp??7@<@,0TXT*7@<@A},0 A[6.7@<@,367@ <@ ,..[67@<@,.7@<@,1-@A }@$7<,4 167<,..   -d(7@<@,*6-%@6"@@B6-@P6-%@A!}d"@"Ap AC6-@6-@'6-A(1 A CAd@% K:A"}FA'A@d.):6-F6- &"@E6-6@& A`*%"@a6A#}-@% A`4&"@C6-6@& A`>%"@B6-@% A`H"AUA R4"A$}@'!AdAU*(}4 A\3AdAU3"*"Af%%% @)%!@9A%}Ap%%% @)%!@Az( -%%)("@2AJ6-6A( A &6-A(.6A&}-%66-%@ A J A< --%@ )(6-%.-5*9 <$> --@@$)A'}:67<,.>:&A(,> W67@<@,.D:)6-@=-@@J7<,4.M'W A P%67A(}<,.7<,!6-%@% L67<,..6-%@2-@@?7<,4.B'L A p%67<,.7<,!A)}6-%@% 7AdAU47@<@ ,4DOS.SYS7.+6.7@<&@,("+$ APA*}DISABLE [BREAK]'@A'B7tA$/67@,. 67,.,67@,./$e -AA+}6@<2@@@ b2e$z B(}&-@@A,}8AY@4JAR@h(z-@@$D ( Press when ready%A-}3K::)D A@.""8""ӢB""A.}L""렠V""D1:TAPELESS.BASSCREEBREAKE@dMODSECNTCOUNTETEMPXTEMPYLOOSTPSXSTPSYNULOOPXYLASDELALOXXTOYYTOFLACOLOUXOLYOLTTDONWOE0}RTMTMDEBUXN@@@@ @ @ E1} E2}@ !"#$ POLYMOVEBY ROBERT GEDDINGS (c) 1987, ANTICE3} PUBLISHING( A@2PLAYBACK<+AF@APCONTINOUS LOOPZ6-@d*E4}-@@*# OF TWEEN STEPSn T:,@AxA,8@<,8@<,ASTARTING POINT FOR EAE5}CH POLYGON-@@$/8<,8<,$FINISH POLYGON TWEEN PART-@@168}-6-vb -@6?<2A@@ b2 E?}CALC STEPS%-@%-@@#6-%@!#6-@$$68<,-+8<,&8<,,'@E@}$$68<,-+8<,&8<,,'@    A`POINT ARRAY LOADERb -@6?u<2EA}@`@@ b26-%@68<,-68<,-68<,-68<,-EB}3,8@<,8@<,3"@A -@/8<,8<,  *#%@!@#6-@EC}4$>JOYSTICK ROUTINEH6-R:,RGG6-+"@)"@)"@,&+"@ )"@)"@,\GG6ED}-+"@)"@ )"@,&+"@)"@)"@,f F:B2y,@A p$+%@$(}X = EE}Y = z@-@06-+F:B2y,@,4 @+%@2$INIT AND OPENING SCREENdd9@<@EF},9@<@,9@<@,9@<@,9@<@,++9@<@,9@<@,EG}#6-@ A#+@ +AR@&-@&( &-@@EH}&( | |&-@@&( ,-@@,(by Robert Geddings( ( ((T+(#EacEI}h Polygon that you create shouldT($have 8 points, which you select with( the joystick.*(*(You can have up to 1EJ}0 polygons.#(How many do you want: #2-@@2(Graphics mode? (3/5/7/8$(/15.() EK}8XF(+"@)"@)"@)"@)+"@*"@,,N(X APB'"@6-@9'6-EL}@#L'"@6-@y'6-@GV'"@6-AY'6-@`'"@6-A'6-AEM}j'"@6-AY'6-At6-%@$~LOOP/SINGLE PLAYBACK +AR@$-@EN}@$( $-@@$( | |$-@@$( ( ( ((( EO} 1) CONTINOUS LOOP(( 2) SINGLE LOOP ( ( (($(Enter Number of selection: (?"@!-@EP}@"?(ӠΠϠԠ-@A  @` AGAIN AND IF SO, HOW SO +EQ}AR@$-@@$( ($-@@$( | |2$-@@$( ER}<( ( ((F*'( 1) Do again, Same polygons*(P/,($ 2) Do again, Different polygons/(Z( 3) QuitdES}.( (*(Enter Number of selection: .nAApAx A-@-@@ET}#68<,-8<,#68<,-8<,   A`%AR#6- B# AEU} PD1:POLYMOVE.BASTETEMPXTEMPYLOOSTPSXSTPSYNULOOPXYLASDELALOXXTOYYTOFLACOLOUXOLYOLTTDONWOD&F:6FEC&&D&E&+ 5B&&&© 1 V-L*B&˜ ' h4&0& 1&& *L*IW}& & 1 ,& & 1 , , *`RUNTIME ERROR AT LINE &&Lk*+ +L&` '& &LIX}&PROGRAM STOPPED&&Ńł ȱ`iL'HH **La/ k* r. 1 {+ - . - 1 - IY}' 1 {+ - 'hhL-ʥ`HHhh`8L'u`IZ}Huh` Lk*L' Lk*L' ( - ( - ' k* -Lh* ( - I[} ' + ( - ' {+ ' k* ' {+ 1 + - h*Lk* ( ' ' + ( - ' {+ ' k* ' {+ 1 +I\} - !( - h*Lh* ' ** -La/` ( k* -L- ( r. - {+ ' - ' +L' ( ' + I]}' - {+ 'L'C&D&E& ) 1 1,E&eC&iD&`E&8LF& - -E&I^}`ʔȱȱȱ **Șe惠 惨06%*16&* L*HHhh``I_}`Lh*ʱ`p B V8+* &)L&l Lw TO BOOT FOR DI`}OS TO RERUN *ȱLk*&&8c5d58凅刐SJj)ee`ффIa}iiL+8L+ LF&uuuLk*8` +Lk*iLk*豂Hȱh`p Ib} +Lk*+H+ BHI+ [4h`8` +Lu, +#` +0 +0Lu, +0` +0L,L},Ic}`޵` `Ȕ`ʔ惥u`+ BHIId}DEH [4hLh*L+ލ1-+2- +- 0-0 0-Lk* -Lk*` 3-H -h 0 0-`L+8 0ƅ`Ie}66&L;-HH` B VhH)Kh)0 IJD-EB [4hLk*S:+Lk*TUVLh* -`++L+ L+ʱȱȱIf}`ȵȵLk*Lk* - - -ʥ - - - -LK3 - - r. r. **uȱuȱu P* *Ig}* -0 ,,LB3 ȱLk* @,LT.ʵ`eeLF&HHhh`ؐHH **Iq} b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU bjHELP BASbnDOC TXTbLINKLINEEXEb TYPOII LSTbiTITLE BASbMAKEAUTOBASbTOPDOT1 LSTbBOTMDOT1LSTbSG10LOADLSTbOKILOAD LSTbG10XLOADLSTbFX80LOADLSTb.TAPELESSBASb'/POLYMOVEBASbCVLINKBAS EXEBY b-DIMNDAVEBASb TEMPCONVBASb`CHAREDITBASb ELINKBAS BASbfeCHAREDITEXELa/ k*HH r. r.6 {+i i .i i -hh - - 'hh -`HH **% k*Ir}HH 1L. ** - LF& r.6 {+ - {+` ** -ޠ - 1 {+Lf/  h*Lk*H+ B Vh` ҵIs}  h*Lh*H+BHI [4+h+L1 0+KJB@D0EH+ [4h h*Lk* k* -@0ƆIt}@0` -H`B [4h`w0w0L1Lk*Lk* +`H h*hL10HH eHIu}HƆeiH -lꦆ 1Օ`0  L,`8`21(1-12- ,@ 1021L121@021`Iv}1 k* -1 1`+6-1L1801LF& + 1 r. 1 1 {++ 1 {+Ɔʭ1 +`ʕ`66Iw}`HHH66666uuuhhhLk* +愵 ' + 'I 1Ix} T280/66&&&`uuu` T2 a2Ј a2 h* +`@\32@2 .Iy}22222 LF&ȥΖ2i22\3`L*J32 J3`LF&2@82ƅJ3 ȱIz}222` -3L2J3L2H\3 2h`1+ %  88L]3 h* h*I{}` h* h*`  h* h*` ]3$' ]3"0 ]30 3Lu, 3Lu, 3Lu,L1L1d4 1 - .c4d4g4g4`HI|}+? ++HIc4De4d4Ef4B [4Hg4h` VLF&g4` 3e4 1f4g4g4 1Lh4 3g4LF&e4f4I}}, g4g4e4 1f48ee4f4g4 11L81  'Lk*hhLk* 4L2 4L*d42&&ȱ0I~} W5L5 W5c5d5&& L25&&`i`C&&D&E&` *ȱ&&%I}8e慱HȱhױE&iC&iD&Lk*+ BH Vh 1LP*+&BH [4hN 1 P*L 1MLP*+%BI}NLMH [4hLh*)v***G*P*o*11{++2+u,M,_,,,,@,%,4,,**++++,,,-,V-----..-/W/y/2231c0x0{00y)I}///0//333333Q0&='9(_(( )")O)n44h4045005B3e5s5&55 6 1::::::$:.:8:B:L:V:`I}:j:::::;.; .;4; S;*q;4;>;H;R;\;f;p;z;;<:<H<H<H<`<x<<<<I}<<<<="=,=6 =@!=J:=TQ=^U=hj=ro=|========>>>>>#>)>A>E>&SI}>0f>:y>D>N>X>b>l>v>???????"?A?E?Y?b?u?? ?? ?*?4?>?H?R?\?I}f?p?z? @@@3@V@o@@@@@@@AA(AAA$IA.bA8ABALAVA`AjAtA~AAAI}AAAAAAAAAAA AB)B(AB2PB<TBF_BP_BZ_Bd|BnBxBBBBBBBBBI}B CC)CWCvCCC"C,C6C@CJCTC^Ch DrD|%D5DGDUDqDDDDDDDDDDI}D&D0D:DDDNEXEbElEv EE-EHEWEWEiEpEpEpEuEEEEE EXEbElEvF#FCFcFI}F6:@:hhhhhhI}ΑB:hΈB:. ̈`B4:@:hhhhhhB:̈hΑB:.I}`B%:@:hhhihhBhEhB:DhIhHLVB_:@:hhh> ҢҩB:I}`(B:.ҩҩB:D`ҩʍҩB:Z`B(:@(:@:@(:@(:@:@(I}:@2:&:A:&B::DB: A: B::DB::4E:73 3::1I}::: R}:$F0=:$=$|&:"|$=%:$FI}":$F:$F":$F":$F"|ˠàI}|" |ԠR?:A:LIST (D:TEMP.LST)?Al*:S>::F:=f>NI}:F:=y>N:>:TEMP.LSTA:D:A::D/:DB::D/::E.=>::.LSTB":DI}"DESTINATION - :D4:D7bR&*?:START AT LINE No. (2000)?Al*:D=Y?:2000A:I}:D,""| |"HlR&*:W/ "::::?:I} :A::`?:SOURCE/VARIABLE<@>?Al*:D=@:":DSOURCE/VAR - :D:DI}:::F@=o@:~@::D/r@$:::F/=@r@%`P::::: FA::D/::I}::$B::: FA:D/A:F:=A$:F:=(A$:D/AA:TEMP.OBJA:D:A::D/I}:DB::D/::E.=A::.OBJB:":D/:D:AvR&*f:INSERT SOURCE DISKA*I}?4:D7R&*HR&*::E.OBJ9B$=$:6$=%::D.::J:()I}*:_B:INSERT DESTINATION DISKA*R&*: REM:: : DIM:D(:):REI}M __:E:: ::'B:: C::dC:: )C:::: :::WI}C::: ::D(:)="-::: $=$::: :":C6:C::I} : @:: :$=%"-:: ::::W/ ":::5D4:I}GD::$=$::::qD::D(:,:)=CHR$(:W):: $=%*HI}} ":1A:::D/E,::D.:J::D/ F+":D ::D.J:GAII}::D/:DQ=WE ":F+":D - ANY KEY::D.J::EI}+EԠΠΠ3EFҠĠ3F#FĠůŠ3&FCFԠΠI}ŠŠ3FFcFǠŠ2fFFǠΠ2&' h4&0& 1&& *L*HVt our programs operate aspublished, but we consider all oursoftware listings to be works inprogress which we encourage you} topersonalize and enhance.Good luck, and ENJOY! -ANTIC EDgs to be works inprogress which we encourage youL013 FREE SECTORSLAPNB0A6@ ((<(d`"(@D +26-?:C:LM}M}M}M}M}M}N}MN&mXXSIIDMS2MMOVELIVELEVES1ROWP0PYP1FIL1FIL2BUFMICHSEQ} @@Q}DIAMOND DAVEBY STEPHEN STOUT(c)1987, ANTIC PUBLISHQ}ING Ap7B2HB2I)6-%@76-&@!A6-@2( @26-AQ}233F:B2R,*F:B2R,@A<33F:B2S,*F:B2S,@AF\@w$Q}6-R:,@6-+"@,&+"@,\6-+"@,&+"@,P T:,"AZ!!"*"Q}@ d==% )%!@)% @)"!@"@ n71%%7@2*Ac*@@ Q}x -(@ 6-%(6-%.-=(@!_2@2Q}@@ k6-%@--%&@<(@%^6-%@%+&@,$@ k6Q}7<,.b -AP@6@<2@@@ b21"@#Q}-@A' 1 Ap @ BB6-?:C:,:@:=:,,%A(,S-Q}f(@ ,1"@!-@1(@61"@!-@1(@@BB6Q}-?:C:,%6-P:H:,$@,%@+-:(@ > ^-@@hc%6-P:H:,$@Q},%@G6-P:H:,$@ ,%@O1c@2A`r -(@| BB6-?:C:,:,367Ah,.>:,B67@,.H6.N6.T6.lOQ};@V,O6.8hhhhhhh`v7 #A@!-@%"3Ad%Q}7 ;;104,162,6,160,138,169,7,76,92,228,238,197,2,76,98,2286-AD$AV!!6-?:C:,<BsD<<A$, Q}#A A1-@"-%$@%1 "6@ A$$1,56,124,130,146,25Q}4,40,68,130''3,255,255,255,255,255,255,255,255''4,223,255,251,127,255,254,223,251""5,146,84,0,124,254,124,56,16Q}-1;A`,;A`,T AJ67B:,%@,.(T Ap "67Q}@<@,."6.79@,$-@368,-7  n9@,%68,-:68@Q},-@IN-@@j68,-8&@,%@n *K+@%@'AY9@@dKQ}B7t@d4'A@'A A>Z-@2(@㠠D-@@ZQ}(@HU-6-F:A`,%F:Aa,$AV%@A%@@U%@@R_-@@Q}/(@ DIAMOND DAVEA-@@_(@٠Π\3-@@ 3(@TRIGGER TO BEGIQ}NfAY@4p2@w2T:,"A z AK+@%@'AYQ}9@@dKB7t@d76-!-@7(@̺46-@!-@4Q}(@!!!!!HAVAD'A@9A@6H6-?:Ad,'AA'A@hQ}BByC:,'AVB2w@A#'B2V'B2W ApQ}D1:DIMNDAVE.BASIDMS2MMOVELIVELEVES1ROWP0PYP1FIL1FIL2BUFMICHSEP %&N@SsTEMPERATURE CONVERSIONBY DAVID ZUBAK(c)1987, ANTU}IC PUBLISHING FAA @@@@K:F(}8("( Š%(((8U}( SELECT ITEMY("(1.FAHRENHEIT TO CELSIUS>(2.CELSIUS TO FAHRENHEITY(3.FAHRENHEIT TO KELVIN(N(4.KELVIN TO FAU}HRENHEIT6(5.CELSIUS TO KELVINN(6.KELVIN TO CELSIUS-DISABLE BREAK KEY.'@@d'B7t@d2.)U}@. @I)!@T@P<??&@HAAAAAAF @ cF-C U}CONVERSIONd(} FAHRENHEIT TO CELSIUSn(( INPUT TEMP. F6-+&@2,'@(( F =  CU}$C-F CONVERSION(} CELSIUS TO FAHRENHEIT(( INPUT TEMP C6-+$@,%@2(( U}C =  F$+F-K CONVERSION,(} FAHRENHEIT TO KELVIN6(( INPUT TEMP FJ%%6-++&@2,'@,%U}AsT(( F =  K^$K-F CONVERSION(} KELVIN TO FAHRENHEIT(( INPUT TEMP K%%6-U}++&As,$@,%@2(( K =  F$C-K CONVERSION(} CELSIUS TO KELVIN(( INPUT U}TEMP C6-%As(( C = K&$WK-C CONVERSIONX(} KELVIN TO CELSIUSb(( INPUT TEU}MP Kv6-&As((K =  C$D1:TEMPCONV.BAS((K=C (c)1987, ANTTqefH/_/WTFMMMCCMSMBSFPXSCDMKEFXMCHCCHCSPBLBABCPTPCDCRCRRWAI99Y}966o11%%RR[[rvv>>& B) "&& \( @a H@&@@Bq)Y}Bh@d@2BBi(B6AAA`AVAR BY}h!@"#@$@%@&@'@(@)*+,-./Y}0CHAR. SET EDITOR/ANIMATORBY ROBIN SHERER (c) 1987, ANTIC PUBLISHINGV(VERSION 1.41)~ASSEMBLYY} CODE;@W,TDELAY.OBJ**67@,.hh))67@$,.h67Y}@F,. `;@T,FILMEM.OBJ**67@,.hhhhhhΑ))67@$,.Y}hΈ67@F,. ̈`;@I,MOVMEM.OBJ**67@,.hhhhhh)Y})67@$,.̈hΑ̈ 67@F,.`;@7,CIOCTL.OBJ(**67@,.hhhiY}hhBhEh2!!67@$,.DhIhHLV<F;@,MOVSTR.OBJP**67@,.hhhhhΩZY}))67@$,.~d))67@F,.  Nn""67@h,.έ@`xY};@,MOVBYT.OBJ**67@,.hhhhhΠ@))67@$,.̍))67@F,.Y}80 ))67@h,.~N@67@,.`;A,SHIFTY.OBJ**6Y}7@,.hhhhͅh̅ ( ))67@$,. I 2`̅Έ̑Έ))67@F,.̑ΥΑ`̱̅))6Y}7@h,.̑Б`J))67@,.i` i67A,.`;@b,Y}PAINTX.OBJ"**67@,.hhhhh΢̑,))67@$,. i̐iͥ6$$67@F,.i(ΐڥiY}ϐ`@J;A `,CHAREDIT.SCNT**67@,.QRRRRRRRRRRRRRRRRRRRWRR^))67@$,.RRRRRWRRRRRRRRRRE|Y}h))67@F,.|r))67@h,.||ZRRRRRRRR|))67@,.RRRRRRRRRRRSRRRWRRRSRRY}((67A,.RRRRRRRRD((67A3,.|||#5((67AT,.23/2|((6Y}7Au,.|||!!.)-((67A,.!4%|((67A,.||| 5),$##67A0Y}<A0,.>:@4,##67A2<A2,.>:@4,((67A8,.|((67AY,.||Y}|##,%!2((67A,.|((67A,.ARRRXRRRD''%4|((67A",.Y}|((67AC,.|)).)4|((67Ad,.|((67A,.|,,/!$|Y}&((67A,.|0((67A',.|0054|:((67AH,.|DY}((67Ai,.|33!6%|N((67A,.||1X((67A,.15)4|b((6Y}7A2,.ARRRRRRRXRRRl((67AS,.RRRRRRRDv((67At,.|((67AY},.|((67A,.ARRRRRRRRRRRRRRR((67A7,.RRRD((67AX,.Z}| ((67Ay,.|((67A,.| ! #|##67A<AZ},.>:@4,((67A!,.|((67AB,.$%&'()*+,-./012345|((67Ac,.Z}|67((67A,.89:;<=>?@ABCDEFG|((67A,.|HIJK((67A&,.LMNOPQRSTUVWXY|QRRZ}RRR((67AG,.RRRRRRRRRRRRRRDZ[\]^_ ((67Ah,.`abcdefghijk||((67A,.|lmnopqrs Z}((67A ,.tuvwxyz{|}|ZRRRRRRRRR*((67A 1,.RRRRRRRRRRXRRRRRRRRRR467A R,. RRRRRRRRC>H A&@Z}RGET INPUT STRING\6-@f#-@@"(#6.p)@(>:,z"AUA"Z}A&A"'!@6-&@' A!`'67,.>:,6-%@' A!`,A@d'-@Z}@",($GET FILENAME 46.Q 4Q' A1p# 6.D:#B:, @A#$$7@Z}<@,4:A"$$7@<@,0:A# 6. A#67@,. -@B:, Z }7<,4.A#P  $ 67B:,%@,..FNT. $ A8 AR@$(8 $B PAINT MATRIXL *ARZ }@'-@@*(V 6-?:C:, //&@AB@A5`A5 A8`H //&@!A)A6A8Z#}`A7PR "@&AH\ HOME CSRf 16-@6-@!6-'6-1 A1pp 16-@6-@Z$}!6-'6-1 A1pz BYTE #'S ON #6-@ A$# A1p BYTE #'S OFF #6- A$# A1pZ%} CSR OFF AR@ A1p CLR MATRIX $$6-?:C:,CSR LIMITSH!@6-@R Z>}@6-@\!@6-@f @6-@p(AH0zWRITE BIT(6-%+&@,Z?}$@(6.7<, 4~6. AGp 46.~67<,.(PRINT IMAGEARZ@}@6-?:C:,? -@%@( @6-B:,4Q)^T}4A$@7<,4@6-@-@B:,7<,4/A -@@!(Ϡ^U}ŠŠ A@-@@!(ĠŠà A0$'6.7%@<&,$6-B:,^V}56-%@67,.$56.7@<&@,&B:, @A`0$$7@<@,4:A:$$7@^W}<@,4:AD!B:,"!6.TEMP.OBJN 6.D:X 67B:,%@,. 6-B:,b7<,4.67^X},..OBJl 6.6-v'AR@'-@@!( "@Ap-^Y}@@!(ԠŠ A$`+@+@@'AR@'-^Z}@@!(ǠŠ 467@,. %67A H,. 467@,.7,0.OBJA 0(^[}-@@$)@(  A p)@67B:,%@,.>:,  6-B:, A @"@^\}A! -@@!*$$(ԠΠݠ4 A$`>-@@!H""(ǠϠ^]}Π RPUT TO DESTINATION FILE\(@ REMf6-%@p##(@ DIM(B:,z""(@^^}):REM 7@,6-%@6-@ B6-@# A6-@$ A^_}6-@% @6-@&# 6-&%!#6-&%@))(@()=>:@4,-^`}%&@7<,0>:@4,A")67<,.167<,. )6-@(@7<,  (@^a}>:@4, 6-%@6-% A"$ "@""A$. -@B:,8 7<,01^b}A$B (@(,L (@ )=CHR$(34)V 6-%@`  @j -@@!t ""^c}( ~ A0 BRANCH TO DOS @6-?:C:hl ,, KEYBOARD TEST Ad^d}AU &6-F:Ad,&"AUA$p AdAU$D1:LINKBAS.BAS \\&gW=6hWC&&D&E&+ 5B&&&© 1 V-L*B&˜ ' h4&0& 1&& *L*bf}& & 1 ,& & 1 , , *`RUNTIME ERROR AT LINE &&Lk*+ +L&` '& &Lbg}&PROGRAM STOPPED&&Ńł ȱ`iL'HH **La/ k* r. 1 {+ - . - 1 - bh}' 1 {+ - 'hhL-ʥ`HHhh`8L'u`bi}Huh` Lk*L' Lk*L' ( - ( - ' k* -Lh* ( - bj} ' + ( - ' {+ ' k* ' {+ 1 + - h*Lk* ( ' ' + ( - ' {+ ' k* ' {+ 1 +bk} - !( - h*Lh* ' ** -La/` ( k* -L- ( r. - {+ ' - ' +L' ( ' + bl}' - {+ 'L'C&D&E& ) 1 1,E&eC&iD&`E&8LF& - -E&bm}`ʔȱȱȱ **Șe惠 惨06%*16&* L*HHhh``bn}`Lh*ʱ`p B V8+* &)L&l Lw TO BOOT FOR Dbo}OS TO RERUN *ȱLk*&&8c5d58凅刐SJj)ee`ффbp}iiL+8L+ LF&uuuLk*8` +Lk*iLk*豂Hȱh`p bq} +Lk*+H+ BHI+ [4h`8` +Lu, +#` +0 +0Lu, +0` +0L,L},br}`޵` `Ȕ`ʔ惥u`+ BHIbs}DEH [4hLh*L+ލ1-+2- +- 0-0 0-Lk* -Lk*` 3-H -h 0 0-`L+8 0ƅ`bt}66&L;-HH` B VhH)Kh)0 IJD-EB [4hLk*S:+Lk*TUVLh* -`++L+ L+ʱȱȱbu}`ȵȵLk*Lk* - - -ʥ - - - -LK3 - - r. r. **uȱuȱu P* *bv}* -0 ,,LB3 ȱLk* @,LT.ʵ`eeLF&HHhh`ؐHH **bw}La/ k*HH r. r.6 {+i i .i i -hh - - 'hh -`HH **% k*bx}HH 1L. ** - LF& r.6 {+ - {+` ** -ޠ - 1 {+Lf/  h*Lk*H+ B Vh` ҵby}  h*Lh*H+BHI [4+h+L1 0+KJB@D0EH+ [4h h*Lk* k* -@0Ɔbz}@0` -H`B [4h`w0w0L1Lk*Lk* +`H h*hL10HH eHb{}HƆeiH -lꦆ 1Օ`0  L,`8`21(1-12- ,@ 1021L121@021`b|}1 k* -1 1`+6-1L1801LF& + 1 r. 1 1 {++ 1 {+Ɔʭ1 +`ʕ`66b}}`HHH66666uuuhhhLk* +愵 ' + 'I 1b~} T280/66&&&`uuu` T2 a2Ј a2 h* +`@\32@2 .b}22222 LF&ȥΖ2i22\3`L*J32 J3`LF&2@82ƅJ3 ȱb}222` -3L2J3L2H\3 2h`1+ %  88L]3 h* h*b}` h* h*`  h* h*` ]3$' ]3"0 ]30 3Lu, 3Lu, 3Lu,L1L1d4 1 - .c4d4g4g4`Hb}+? ++HIc4De4d4Ef4B [4Hg4h` VLF&g4` 3e4 1f4g4g4 1Lh4 3g4LF&e4f4b}, g4g4e4 1f48ee4f4g4 11L81  'Lk*hhLk* 4L2 4L*d42&&ȱ0b} W5L5 W5c5d5&& L25&&`i`C&&D&E&` *ȱ&&%b}8e慱HȱhױE&iC&iD&Lk*+ BH Vh 1LP*+&BH [4hN 1 P*L 1MLP*+%Bb}NLMH [4hLh*)v***G*P*o*11{++2+u,M,_,,,,@,%,4,,**++++,,,-,V-----..-/W/y/2231c0x0{00y)b}///0//333333Q0&='9(_(( )")O)n44h4045005B3e5s5&55 6 1======$=.=B=L=V=`=jb}=======  > > >*/>4M>>^>H^>Rd>\>f>p>z>>>>>> ?+?I?`?`?f??b}? ? ? ?$ ?. ?8 @B ,@L J@V h@` @j @t @~ @ @ @ @ @ @ A 5A SA qA A A A A B B =B( HB2 Sb}B< pBF BP BZ Bd Bn Cx $C BC `C ~C C C C C D 2D PD nD D D D D E" E, /E6 ME@ kEJ ET E^ Eh Eb}r F| F =F [FmFmFqFqFqFwFFFFFFFG"G,G6G@&GJ=GTPG^cGhoGryG|GGGGGb}GGGGHH3H7H8H8HMHbH&tH0H:HDHNHXHbHl Iv*IGIHI`IlIIIIIIIb}I J*J 1JHJ _J*iJ4rJ>{JHJRJ\JfJpJzJJK"K"K0K6KBKNKZKfKKKKKKK$b}K.K8KBKLLVL`&Lj=LtWL~[LoL|LLLLLLLLLLLL LMM(2M2LM<PMFhMPrMZMb}dMnMxMM NN-NCN^NyNNNNNNNNNN"N,N6O@OJOTO^3OhJOrYO|eO}OOb}OOOOOOOOOOPPPP&)P01P:5PDIPN`PXdPbrPl|PvPPPPPPPPQb} QQ$Q;QRQZQ xQQ Q*Q4Q>QHQRQ\ RfRp0Rz@RURjR|RRRRRRRRRSSb}SS.S$=S.ZS8oSBsSLSVS`SjStS~SSTT!T/T2=@2=hhhhh΢̑B2= i̐ib}ͥB2=.i(ΐڥiϐ`Bw=@w=QRRRRRRRRRRRRRRRRRRRWRRBw=RRRRRWRRRRRRRRRRE|Bw=.|b}Bw=D||ZRRRRRRRRBw=ZRRRRRRRRRRRSRRRWRRRSRRBw=pRRRRRRRRDBw=|||#5Bw=b}23/2|Bw=|||!!.)-Bw=!4%|Bw=||| 5),$Bw="-Cw=b}"-Cw=|Bw=|||##,%!2Bw=|Bw=-ARRRXRRRD''%4|b}Bw=B|Bw=W|)).)4|Bw=l|Bw=|,,/!$|Bw=b}|Bw=|0054|Bw=|Bw=|33!6%|Bw=b}||1Bw=15)4|Bw=ARRRRRRRXRRRBw=)RRRRRRRDBw=>b}|Bw=S|Bw=hARRRRRRRRRRRRRRRBw=}RRRDBw=|b} Bw=|Bw=| ! #|Bw="-Cw=|Bw=$%&b}'()*+,-./012345|Bw=|67Bw=89:;<=>?@ABCDEFG|Bw=%|HIJKBw=:LMNOPQRSb}TUVWXY|QRRRRRBw=ORRRRRRRRRRRRRRDZ[\]^_Bw=d`abcdefghijk||Bw=y|lmnopqrsBw=tuvwxyz{|}|ZRb}RRRRRRRRBw=RRRRRRRRRRXRRRRRRRRRRBw= RRRRRRRRCB ="#=D&=D&=A)=6)=-)=F)=b}~F =F = = &= =)=-B = =@"#=D+&=D=G&=QA&=DQ=&GP,=D:Ab}&=D/=Gh&=F:=PG^&=F:9cGh,=&=DAr,=&=DBG/=,=D/|G$,=/=/=F.=GPb}|G%,=,=D/.FNTBl?,=D+" =2=D.5=D.8=J|G$ /=" ;=3Hb}/=>=|G%+A= MHD=A=@A=bHD=A= A=_tHD=A=>=G=D= =J=D.>=5=D.JM=(b}D= =P=D.>=S=JV=H =P=D.Y=(S=J =P=D.Y=(S=J =P=D.Y=(S=2b}J =P=D.Y=(S=:J+ =\=D.S=JV= =P=D.>=S=J+_=@Y=&b=@&#=@b},=@(&=@e=&@5=@5=B5=@B5=5=DB#= B#= B#=#=DB#=Bb=-=+*_|\^Hb}N ABCGILPSQAh=jk=h= S=k=n=k= G=n=jn=  /"q=01M=q=qb}=8=M=(b=D/|G$/=Jt=S=/=e=(t=t=t=|G% =P=D.w=D.M=J4b}K:7k=o   T&& =\=D.S=Jb}8"#=D INIT (Y/N)? )=6"#=D)=YK =P=D.G=Jz=|G$G=/=~b}G=/=T/==LG=/=WLG=|G%}==A=@5n=R /.b}**======")=6= L"#=D==="b}%Mt=b=D/M$)=b=t=t=F5LMPPM%" Ġ٠= =\=D.e=((b}J =\=D.t=e=(Jt=dLnLxLL..t= LLLL..t= FLFLFLFL..t= LLb}LL..t=NV= t= -Nt=t= CN*t= LTL,LL..t= LLLL..t=b}N============;=*;=* =\=D.5=D.@b}J ==D.5=D.>=J&=4 CHARACTERS? A*_=&=DA&=DQ=JO_=D/YO|T =\=D.S=b}JV= =\=D.S=2J |G$A=_=/=/=F5*/=Y=(>=|G%&=LOAD? A*,*4b},=D7 ==D.G=JN&=SAVE? A*,*4,=D7 ==D. G=J4"#=Db}4"#=DĠŠ=V= P&=SELECT A&=_=DB&= ? B*|G$&=Db}_=/=/=F=QP|G%A=&=D5}=="}=="=6>=G=}= = b}=QQ=*Q}=}==+Q}=}= =-Q== ==Q===Q=b}=Q=}= R}=}=R}===R0RD=>=G=  D=@URA=D= D=?jRA=D=@ b}D=_|RA=D==RR=}= =  =P=D.=>=J0**t=R =J=b}D.>=5=D.J ==D.5=D.>=J= ;=&=CHRS? A*&=D/=SSLOW FAST QUIT =J=D.b}G=5=D.J*==S=>S~====@S=@" FAST=8b}S== ==T=" SLOW =//T"#=D&=D/|G$A=&=/=/=F5b}* =2=D.5=D.8=J ==D.=J|G%=T2"==T SLOW =@T FASb}T==@ T2 SLOW FASTB ==D.t=>=J0**== ==== b}==== ====== =====U==Ub}==U==U== V^=== &=5===FA&=D~=?V&=A"&=D=QV&=~Ab}5===&=DC&=D ==D.5=D.>=J:*;= V| =" = >===b}===V=V*"#=D QUIT (Y/N)? )=6)=Y%W"#=Djh= b}R}&E&+ 5B&&&© 1 V-L*B&˜ ' h4&0& 1&& *L*`#N}N}N}N}L