@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u23sMAXNMAXSIZMEMALLOCATIOITEMITEMNNUMITEMAGAIT}d*** BRIAN SCHWARTZ ***n*** ANALOG MAGAZINE ***x!!SUBROUTINES DEMONSTRATION 1INITIALIZATION6-@ U}6-@@ 6-$ BADD TEN NAMES TO LIST + ENTER 10 NAMES:-@@V} NAME # B !!RETRIEVE ONE ITEM FROM LIST  WHAT ITEM # DO YOU WANTW} B" IT IS: ,ALPHABETIZE LIST6 B@PRINT ENTIRE LISTC E&& HERE IS THE LIST ALPHAX}BETIZED:J-@T B^ - h r""PRINT LIST FROM END TO STARTw | HERE IT IS BACKWARY}DS:-@6@ B -  ##REM CLEAR WORKSPACE IF NEEDED$$ RUN AGAIN [(1) YES Z} (2) NO]"@A B AREQUIRED END STATEMENTD:ALPHDEM1.BASES z;<|-CINFILEOUTFILEMAXNMAXSIZMEMALLOCATIOITEMITEMNNUMITEM \}d*** BRIAN SCHWARTZ ***n*** ANALOG MAGAZINE ***x!!SUBROUTINES DEMONSTRATION 2;@ ,;@ ]},6-A6-AP6-B B +  INPUT FILE  OUTPUT FILE ^} @@ @@ A@ B A`" _} B,-@6 B@ @J TD:ALPHDEM2.BAS B A`" ]30000 REM *** BRIAN SCHWARTZ ***30010 REM ALPHABETIZATION ROUTINE30020 REM AND SUPPORTING ROUTINES30030 REM FOR THE ATARIa} COMPUTERS30040 REM *** ANALOG MAGAZINE ***30100 REM INITIALIZATION ROUTINE30110 IF INIT=1 THEN RETURN 30120 INIT=130130b} DIM STORAGE$(MEMALLOCATION),ITEM$(MAXSIZE),PIVOT$(MAXSIZE)30140 DIM STACK(100,2),POINTERS(MAXNO,2)30145 LET POINTERS(0,2)=c}030150 RETURN 30200 REM CLEAR WORKSPACE ROUTINE30210 NUMITEMS=030220 RETURN 30300 REM ADD ITEM TO LIST ROUTINE30310 IF d}LEN(ITEM$)=0 THEN RETURN 30320 IF NUMITEMS=MAXNO THEN PRINT "ITEM LIST FILLED":RETURN 30330 IF POINTERS(NUMITEMS,2)+LEN(ITEe}M$)>MEMALLOCATION THEN PRINT "MME":RETURN 30340 NUMITEMS=NUMITEMS+130350 LET POINTERS(NUMITEMS,1)=POINTERS(NUMITEMS-1,2)+1f}30360 LET POINTERS(NUMITEMS,2)=POINTERS(NUMITEMS-1,2)+LEN(ITEM$)30370 STORAGE$(POINTERS(NUMITEMS,1),POINTERS(NUMITEMS,2))=ITg}EM$30380 RETURN 30400 REM RETRIEVE ITEM ROUTINE30410 IF ITEMNO>NUMITEMS OR ITEMNO<1 THEN PRINT "NO SUCH ITEM":RETURN 3042h}0 ITEM$=STORAGE$(POINTERS(ITEMNO,1),POINTERS(ITEMNO,2))30430 RETURN 30500 REM QUICKSORT ROUTINE30510 IF NUMITEMS<2 THEN REi}TURN 30520 SP=130530 STACK(1,1)=130540 STACK(1,2)=NUMITEMS30550 IF SP=0 THEN RETURN 30560 UP=STACK(SP,1)30570 DOWN=STACj}K(SP,2)30580 SP=SP-130590 IF UP=DOWN THEN 3055030600 PIVOT$=STORAGE$(POINTERS(UP,1),POINTERS(UP,2))30610 US=UP30620 DS=Dk}OWN30630 UP=UP+130640 IF STORAGE$(POINTERS(UP,1),POINTERS(UP,2))>PIVOT$ THEN 3068030650 IF UP=DOWN THEN 3079030660 UP=UP+l}130670 GOTO 3064030680 IF STORAGE$(POINTERS(DOWN,1),POINTERS(DOWN,2))PIVOT$ THEN UP=UP-130800 TEMP=POINTERS(UP,1)30810 LET POINTERS(UP,1)=POINTERS(Up}S,1)30820 LET POINTERS(US,1)=TEMP30830 TEMP=POINTERS(UP,2)30840 LET POINTERS(UP,2)=POINTERS(US,2)30850 LET POINTERS(US,2)q}=TEMP30860 IF US>UP-1 THEN 3090030870 SP=SP+130880 STACK(SP,1)=US30890 STACK(SP,2)=UP-130900 IF UP+1>DS THEN 3056030910r} SP=SP+130920 STACK(SP,1)=UP+130930 STACK(SP,2)=DS30940 GOTO 3056030950 RETURN 2)=UP-130900 IF UP+1>DS THEN 3056030910Te"#NNNNNNNNNNN1N1N1N1N1N1N1N1N1N1SSBNN1NSTARSCDDCYCTRSCRRCNFFCSt}PRRSRSFBDYZD@@@@@@@@ @ @ @ @u} @@@@@@@@ARv} f<< !A"#$ffA%(&'()*+w},-./0123A4 A5 6d789&(A:;Brx} VERSION 1.36-6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@y}{6-@ 6-@y6-@6-@'6-@36-@?6-@K6-@W6-@c6-@z}o6-@y A(""*******SOUND ROUTINES*******2,2A- )2,$<4-6?@$2{}@42@F6 - 2#2+-/ 3 6$P""******CALCULATE SCORES******ZG68|}<,--"8<,!6968<,-8<,%8<,= G Ad n%8<,@c%68<,-@5x8 6--}}8<,!6*6-%8<,. 8 A@ %68<,-8<,%8<,%"6-%$##********PRINT SCORES ******** "~}*"$06.7$&<$,-($6-*6-06- "*($7 -2$+2AU&$3-7 } 22# 6-%!6-#6-@6)8<, -(`  ) AP+6.=:8<,,B:,"}+67@,.  - ( ,8<, -@5"(` , A%6.=:8<,,B:,"%67,.  B:},"67<,. -@5("3 -(8<, -*(8<, 06-3$,!!*******ROLL DICE***********6= }-68,-P:H:,$,%(-$%=(78,$&<8,$,@$2A2! $$J ***TOTAL DICE VALUES******}T; -68,-  -4688,,-88,,%8 ;$^""*****CHECK FOR ATARZEE******h  $r1 A@-}8,"$6-''1 A|   $N6-F:A,"-AU.A82J2AU&N #A}2#28<,$068<,-8<,%A'-@50(8<,# A - (8<, #$}!!*****ERASE PROMPT LINE*****.-@ +( .$!!******MAIN GAME LOOP*******# 6-%}@w!#6-! 6-6-%!!$A1 A`-@!1(ȠˠϠR:,A}- AP- A# - A`'-@ '(ˠŠϠ 6--@!(^ 6-R:,}"AP&T:,"A0*A@: 6-D) "6-%!@')6-@'N "6-& }6-XD-@!( !-@!((^6-@P: D A@b/6-+&,'8, -%( / A0l }-(*v68,-68,E2A- )27-A; E A@A AP-@'}#-*( . :-@!A( -A 6-%" -8,! " A A  A}` "6- A  A I-@"%(Ԡ٠16-@y76-=6-C-I(T:,}"A  6-R:,*A0 6-6-- "6-& *"!6--6-@! *"@!6-}6- - "6-%!*"!6--6-@! !6-6-  1- (>:&A(,*< 1- (>}:%A(,.-@P2 < A04; -(>:,'6-$+"@!,%'1 AP; A@>D8<,2A},-A0 :2D A H! @` AP! A@RwwApApApApApA}pA A A 0AAA`A\""************1 - 6***********f168<,--}8,"168<,-8<,%p  @ A z##*****3 OR FOUR OF A KIND*****968<,-6-'% -568}<,-8<,%8,9 ( -8, @( A & 68<,- @& A ""*********FULL HOUSE**}******* 6-6-" -8," " A  8,"6- 8,"6- . *68<,-@%}$ @. A "68<,- @" A ""**********STRAIGHTS*********B 6-6-'6-+&,$%-}.8, 46-8 B A@2 6-%"68%<,-( @2 A  $68%<,- @$ A } **********CHANCE**********$C68<,--+68<,-8<,%8,/ 9 @C A . *********ATARZEE*******}***8 -8,"AB 68<,- AL68<,-@PV @`NE-%@ $+!@,&+"@},$@&@$+!@,N(8<,j! -(8<,-!(8<,t -(8<,~"Ap'-@ }'(ӠΠT:,Ap Ap********GAME OVER********$ 6-6-- 68,-$} 8<,8,A! 6-%!8<,!8,A@ A N-668%,-8,*68%,-8,N67+%,}$&<+%,$,.7$&<$, = 6-6.7$&<$,"-/7<,0 3 = A6 6-%"-&(6}7<,., 6 A 768,-8@<, 68,-167$&<$,.76-  6-6-%A+}@+ D:ATARZEE.DAT:-(8,+(7$&<$,/ 4:6-(/+ -(!-}/(2 -6.7$&<$,<3 -7<,4 %67<,.-) 3 A`F P* -%(-%}*(-8<,ZU2$@0/2AU&$@0=-@ A K2U2d  A`n"+} -"( record scoresx -( 2 --%.(7$&<$,8,2 " -8}," " AP-@@P " -%( @`"  A` A?A!-@}@"?(@--@P !A*T:,"-$+-@P !A+ Ap}[[;A,;@`,;,;@@,9,9,9,9<,;,;A,9,9,pp6.f}006.&| | | } |(67,. 67@`,. (67,.[+ARAC6-F:A`,%F:Aa,$AV%K%S%}[%0 -(CLAYTON WALNUM'S$-0(S --$%*(7@<A,A-AU6@ K2}O S 6 2-AU6A $+P:',"',"# 22AU&# ,# 22}#A 6X@-@!F(©RIGHT (C) 1986 BY ANALOG COMPUTINGT-AX @j+AY}AR1A@P?-@"G%K X(>:A%,jAY@4J6 A-0(# OF PLAYERS } 6-T )!A^ -h, A@-%((#'S NAME,r!67$&<$&+&B:,,,.! }|$-@"$( ONE SECOND...& A& D:ATARZEE.DATA -68,-"367$&<$,.}7 A B' --68<,-6# ' T --68<,-)68<,-468<,-8 < B6-H6-}N6-T6-Y++6-F:A`,%AV$F:Aa,%;&@d%C%K%Y%A4KARA}'A 9A@"KAA$#-" A6%$ LL72,138,72,169,12,162,0,141,10,21}2,141,23,208,142,24,208,104,170,104,64-AA-BBA4 -4(& } --( 4 -4(& | |> - (->(&} 7 -(Ones----------`#-7(Twos----------`7 -(Threes--------`#-7(Fours-}--------`7 -(Fives---------`#-7(Sixes---------`&-@( SUBTOTAL:0E-@!$(3 of a kind-}---`0-@!E(4 of a kind----`:E-@!$(Full house-----`0-@!E(Small straight-`De-@!$(}Large straight-`0-@!E(Chance---------`Q-@!e(ATARZEE-------`N7 -(:-&(:,-}7(:X2 --%$$(7$&<$,( 2 A`b(67,. 67A,. (67,.l!! D:A}TARZEE.DATv: -68,-$(8,6(7$&<$,:  A D:ATARZEE.BAS! D:Al1300 REM 1310 REM 1670 GOTO 18901680 REM 1900 REM 1910 FOR X=N1 TO N10:RS(X)=0:NEXT X:GOTO 16901920 REM ! D:Ao1 REM **************************2 REM * *3 REM * BY *4 REM * R.I.MACDONALD } *5 REM **************************9 WRITE=2310:GO=58:DIM DRIVE$(3),FILE$(12),P$(1),F$(10),F1$(20):? "AUTORUN?":INPUT P$}:IF P$="Y" THEN 2000010 TRAP 20:? :? :? "NUMBER OF LEVELS":INPUT L:DIM R(L,1),H(L,1)24 TRAP 25:? :? "INITIAL DIAMETER":INPU}T WID25 TRAP 30:? :? " CONTRACTION RATIO OF DIAMETER":INPUT DIAM30 TRAP 40:? :? :? "LEFT ANGLE":INPUT H1:? :? :? "LEFT ANGL}E DECREMENT"40 TRAP 45:? :? :? "RIGHT ANGLE":INPUT H2:H2=H2:? :? :? "RIGHT ANGLE DECREMENT":INPUT DR45 TRAP 46:? :? :? "LEF}T RATIO":INPUT R1:? :? :? "RATIO INCREMENT (DECREMENT)":INPUT RD146 TRAP 47:? :? :? "RIGHT RATIO":INPUT R2:? :? :? "RATIO IN}CREMENT (DECREMENT)":INPUT RD247 TRAP 48:? :? :? "DIVERGENCE ANGLE?":INPUT DIV:IF (DIV<>0) AND ABS(H2)0) THEN DIVFLG=1130 H3=0:FOR JG=INT(F^(Q-3)+1.}001) TO INT(F^(Q-2)+1.0E-03):GP=JG-(F^(Q-3)+1)136 FOR P=0 TO 1:FOR C=0 TO 1140 J=INT(F^(Q-1)+1.001+C+2*P+4*GP):JP=INT(F^(Q-}2)+1.001+P+2*GP)145 LN(J,0)=JP:LN(J,1)=J:LN(J,2)=WID150 U=X(JP)-X(JG):V=Y(JP)-Y(JG):W=Z(JP)-Z(JG):T=(U*U+V*V+W*W)^0.5160 S}=(U*U+V*V)^0.5:IF S=0 THEN GOSUB 305:GOTO 215180 S=1/S181 HHH=H(Q,C):IF (C<>1) OR (DIV=0) THEN 190182 HHH=HHH*H4:IF H3=0 T}HEN HHH=ABS(HHH)190 X(J)=UDX+X(JP)+R(Q,C)*(U*COS(HHH)-S*T*V*SIN(HHH))200 Y(J)=UDY+Y(JP)+R(Q,C)*(V*COS(HHH)+S*T*U*SIN(HHH))}210 Z(J)=UDZ+Z(JP)+R(Q,C)*W*COS(HHH):GOSUB 220215 NEXT C:H3=1:NEXT P:NEXT JG:NEXT Q:GOTO 2310219 REM ****DIVERGENCE220 IF }(DIVFLG=0) OR (C=0) THEN 245225 OLDIV=OLDIV+DIV232 DEG :PH=180:DX=X(J)-X(JP):DY=Y(J)-Y(JP):R=(DX*DX+DY*DY)^0.5234 IF DX=0 }THEN PHI=PH/2+(SGN(DY)<>1)*PH:GOTO 240236 PHI=ATN(DY/DX):IF SGN(DX)=1 THEN PHI=2*PH*(SGN(DY)=-1)+PHI:GOTO 240238 PHI=PH+PHI}240 X(J)=X(JP)+R*COS(OLDIV+PHI):Y(J)=Y(JP)+R*SIN(OLDIV+PHI):DIVFLG=0241 REM ****C0NTROLLERS245 IF MM=0 THEN 280246 FOR M=}1 TO MM:QX=QX(M)-X(J):QY=QY(M)-Y(J):QZ=QZ(M)-Z(J):FX=FACTOR(M)247 LK=(QX*QX+QY*QY+QZ*QZ)^0.5:X(J)=FX*(QX/LK)+X(J):Y(J)=FX*(Q}Y/LK)+Y(J):Z(J)=FX*(QZ/LK)+Z(J)248 NEXT M280 RETURN 300 REM ***** VERTICAL BRANCH *****302 LN(J,0)=JP:LN(J,1)=J:LN(J,2)=W}ID305 HHH=H(Q,C):IF (C<>1) OR (DIV=0) THEN 310306 HHH=HHH*H4:IF H3=0 THEN HHH=ABS(HHH)310 Y(J)=UDY+Y(JP)+R(Q,C)*T*SIN(HHH)}:X(J)=UDX+X(JP):Z(J)=UDZ+Z(JP)+R(Q,C)*W*COS(HHH)320 GOSUB 220:RETURN 400 REM *** EXCHANGE VALUES401 TT=H2:H2=H1:H1=TT:TT=D}L:DL=DR:DR=TT:RETURN 2270 REM **********************2280 REM * CHAIN WRITE *2290 REM **********************2310 F$}=DRIVE$:F$(LEN(F$)+1)=FILE$:CLOSE #1:F1$=F$:F1$(LEN(F$)+1)=".PNT":OPEN #1,8,0,F1$2320 ? #1;PS2330 FOR X=1 TO PS:? #1;X(X):N}EXT X2340 FOR X=1 TO PS:? #1;Y(X):NEXT X2350 FOR X=1 TO PS:? #1;Z(X):NEXT X2360 CLOSE #1:TRAP 1210:F1$=F$:F1$(LEN(F$)+1)="}.LIN":OPEN #1,8,0,F1$:TRAP 11902370 ? #1;LS:FOR X=1 TO LS:? #1;LN(X,0):? #1;LN(X,1):? #1;LN(X,2):NEXT X2380 GRAPHICS 0:IF A}UTFLG THEN RETURN 2390 STOP 3000 ? "MATRICES DIMENSIONED TOO SMALL.":? "RERUN PROGRAMME-WAIT":FOR J=1 TO 500:NEXT J:STOP 1}9995 REM **********************19996 REM * YOUR TREE-MAKING *19997 REM * PROGRAMME GOES *19998 REM * HERE } *19999 REM **********************20000 AUTFLG=1MAKING *19997 REM * PROGRAMME GOES *19998 REM * HERE 620001 GOTO 2200020002 REM ****DATA LOGGING****20010 CLOSE #1:OPEN #1,8,0,"P:"20015 ? #1:? #1:? #1;" ";FILE$20020 ? } #1,"NUMBER OF LEVELS",L20030 ? #1;" INITIAL WIDTH",WID20040 ? #1;"CONTRACTION RATIO",DIAM20050 ? #1;"LEFT ANGLE ",H12006 }0 ? #1;"INCREMENT LEFT",DL20070 ? #1;"RIGHT ANGLE",H220080 ? #1;"INCREMENT RIGHT",DR20090 ? #1;"LEFT SHORTENING RATIO",R1 }20100 ? #1;"LEFT S. RATIO INCREMENT",RD120110 ? #1;"RIGHT SHORTENING RATIO",R220120 ? #1;"RIGHT S. RATIO INCREMENT",RD220 }130 ? #1;"DIVERGENCE",DIV20140 ? #1;"NO. CONTROLLERS",MM20170 ? #1;"STRENGTH","X","Y","Z"20180 FOR M=1 TO MM:? #1;FACTOR(M }),QX(M),QY(M),QZ(M):NEXT M20190 ? #1,"UNIFORM DEVIATIONS"," ",UDX,UDY,UDZ20195 ? #1;CHR$(12)20210 RETURN 20999 REM ***DAT }A READER ROUTINE ****21000 READ L,WID,DIAM,H1,H2,DL,DR,R1,R2,RD1,RD2,DIV,UDX,UDY,UDZ,MM:IF MM=0 THEN RETURN 21010 FOR J=1 T }O MM:READ FF,X,Y,Z:QX(J)=X:QY(J)=Y:QZ(J)=Z:FACTOR(J)=FF21020 RETURN 21999 REM ****MAIN PROG****22000 DIM FACTOR(10),QX(10) },QY(10),QZ(10):DRIVE$="D1:"22005 FOR JK=0 TO 922010 FILE$="NO":FILE$(LEN(FILE$)+1)=STR$(JK):RESTORE 23000+JK:GOSUB 21000:GO }SUB 20010:GOSUB GO:GOSUB WRITE22020 NEXT JK23000 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,0,023001 DATA 7,6,.7,0,25,0,0,.7,.9 },0,0,140,0,0,0,023002 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,140,0,0,0,023003 DATA 7,6,.7,20,25,2,2,.7,.9,0,0,0,0,0,0,023004 DATA } 7,6,.7,60,65,0,0,.5,.9,0,0,0,0,0,0,023005 DATA 7,6,.7,30,35,0,0,.7,.9,0,0,0,0,0,-.1,023006 DATA 7,6,.7,0,25,0,0,.7,.9,0,0, }140,0,0,0,1,.07,1,1,123007 DATA 7,6,.7,30,35,0,0,.7,.9,0,0, 0,0,0,.10,023008 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,0,0,.2,0,1,.0 }5,0,1,123009 DATA 7,6,.7,0,25,0,0,.7,.9,0,0,0,0,0,0,1,-.07,1,1,10,.10,023008 DATA 7,6,.7,10,35,0,0,.7,.9,0,0,0,0,.2,0,1,.0 B5 REM *************************10 REM * PERSPEC *20 REM * AUTOMATIC 3-D PLOT *30 REM * PROGRAMME $} *40 REM *************************70 REM 80 GOTO 20000440 REM ##########################441 REM # BEGIN $} #442 REM ##########################450 X(0)=VX:Y(0)=VY:Z(0)=VZ:D0=1490 DX=VX-OX:DY=VY-OY:DZ=VZ-OZ495 POKE 559,0500 U$}1=SQR(DX*DX+DY*DY+DZ*DZ):IF U1=0 THEN U1=1E-06510 CX=DX/U1:CY=DY/U1:CZ=DZ/U1520 S3=SQR(1-CZ*CZ):S2=SQR(1-CY*CY)530 QX=OX+D$}0*CX:QY=OY+D0*CY:QZ=OZ+D0*CZ540 XW=X(0):YW=Y(0):ZW=Z(0):GOSUB 610541 FOR I=1 TO PS:XW=X(I)*SCL+XS:YW=Y(I)*SCL+YS:ZW=Z(I)*SC$}L+ZS:GOSUB 610:NEXT I549 I=0:IF VIS(I)<>0 THEN XW=X(0):YW=Y(0):ZW=Z(0):GOSUB 610:GOSUB 670550 FOR I=1 TO PS:IF VIS(I)=0 THE$}N 570560 XW=X(I)*SCL+XS:YW=Y(I)*SCL+YS:ZW=Z(I)*SCL+ZS:GOSUB 610:GOSUB 670570 NEXT I:GOTO 740580 REM **********************$}*****590 REM * IS THE POINT VISIBLE? *600 REM ***************************610 VIS(I)=1:VCX=XW-OX:VCY=YW-OY:VCZ=ZW-OZ620 $}IF DX*VCX+DY*VCY+DZ*VCZ>0 THEN RETURN 630 VIS(I)=0:RETURN 640 REM ***************************650 REM * NOW CALC PLOT COOR$}DS *660 REM ***************************670 K=D0/(VCX*CX+VCY*CY+VCZ*CZ)680 AX=OX+K*VCX:AY=OY+K*VCY:AZ=OZ+K*VCZ690 IF S3=$}0 THEN 720700 P(I,1)=((AX-QX)*CY-(AY-QY)*CX)/S3710 P(I,2)=(AZ-QZ)/S3:RETURN 720 P(I,1)=((QX-AX)*CZ+(AZ-QZ)*CX)/S2730 P(I,$}2)=(AY-QY)/S2:RETURN 740 REM ***************************750 REM * SCALE THE IMAGE *760 REM ***********************$}****770 T=450*ZOOM:FOR I=0 TO PS780 P(I,1)=P(I,1)*T790 P(I,2)=P(I,2)*T800 NEXT I810 XAD=160-P(0,1):YAD=96-P(0,2):FOR I=1$} TO PS:P(I,1)=P(I,1)+XAD:P(I,2)=P(I,2)+YAD:NEXT I820 REM ***************************830 REM * NOW DRAW THE IMAGE! *840$} REM ***************************845 SETCOLOR 2,0,0:COLOR 1:TRAP OFF:GRAPHICS 56870 FOR I=1 TO LS:TV=VIS(LN(I,0))+VIS(LN(I,1$})):IF TV=0 THEN 1010880 IF TV=2 THEN 980890 QT=0:ISAVE=I:IF VIS(LN(I,0))=0 THEN I1=LN(I,0):I2=LN(I,1):I=LN(I,0):GOTO 91090$}0 I1=LN(I,1):I2=LN(I,0):I=LN(I,1)910 XT1=X(I1)*SCL+XS:YT1=Y(I1)*SCL+YS:ZT1=Z(I1)*SCL+ZS911 XT2=X(I2)*SCL+XS:YT2=Y(I2)*SCL+Y$}S:ZT2=Z(I2)*SCL+ZS:FV=0:FH=0920 XW=(XT1+XT2)/2:YW=(YT1+YT2)/2:ZW=(ZT1+ZT2)/2:GOSUB 610930 IF VIS(I)>0 THEN XT2=XW:YT2=YW:ZT$}2=ZW:GOTO 950940 XT1=XW:YT1=YW:ZT1=ZW950 QT=QT+1:IF QT<15 THEN 920960 XW=XT2:YW=YT2:ZW=ZT2:GOSUB 610970 GOSUB 670:P(I,1)=$}P(I,1)*T+XAD:P(I,2)=P(I,2)*T+YAD:VIS(I)=0:I=ISAVE980 X1=P(LN(I,0),1):Y1=191-P(LN(I,0),2):X2=P(LN(I,1),1):Y2=191-P(LN(I,1),2)$}981 W=LN(I,2):XC=X1:YC=Y1:X=X2:Y=Y2982 KK=((X(I1)+X(I2))/2+XS-OX)^2+((Y(I1)+Y(I2))/2+YS-OY)^2+((Z(I1)+Z(I2))/2+ZS-OZ)^2983%} W=6*W*KK^-0.5:GOSUB 30001010 NEXT I1011 IF O$="Y" THEN ? #3;"H"1030 FOR X=15 TO 0 STEP -1:SOUND 0,120,10,X:NEXT X1040 RE%}TURN 1190 ? :? "}I/O ERROR - ";PEEK(195):GOTO 12101210 ? :? "PRESS ":INPUT IN$:STOP 1550 REM ***********************%}****1560 REM * GRAPHICS CLIP ROUTINE *1570 REM ***************************1580 L1=0:L2=0:R1=0:G(10)=0:T1=0:T2=0:G(9)=0:G%}(8)=0:POK=01590 IF X1G(6) THEN R1=11610 IF Y1>G(5) THEN G(9)=1:GOTO 16301620 IF Y1G(6) THEN G(10)=11650 IF Y2>G(5) THEN G(8)=1:GOTO 16701660 IF Y2<%}YT THEN T2=11670 IF L1+L2=2 OR R1+G(10)=2 OR T1+T2=2 OR G(9)+G(8)=2 THEN RETURN 1680 G(4)=X1:G(3)=Y1:G(2)=X2:G(1)=Y2:GOSUB %}17301690 L1=L2:R1=G(10):T1=T2:G(9)=G(8)1700 X1=XW:Y1=YW:G(4)=X2:G(3)=Y2:G(2)=X1:G(1)=Y1:GOSUB 17301710 IF X1G(%}6) OR Y1G(5) OR XWG(6) OR YWG(5) THEN RETURN 1720 PLOT X1,SCY*Y1:DRAWTO XW,SCY*YW:POK=1:RETU%}RN 1730 IF L1+T1+G(9)+R1=0 THEN XW=G(4):YW=G(3):RETURN 1740 IF L1 THEN XW=G(7):YW=G(3)+(G(1)-G(3))*(G(7)-G(4))/(G(2)-G(4)):% }G(4)=XW:G(3)=YW1742 IF L1 AND G(3)>=YT AND G(3)<=G(5) THEN RETURN 1750 IF R1 THEN XW=G(6):YW=G(3)+(G(1)-G(3))*(G(6)-G(4))/(% }G(2)-G(4)):G(4)=XW:G(3)=YW1752 IF R1 AND G(3)>=YT AND G(3)<=G(5) THEN RETURN 1760 IF G(9) THEN YW=G(5):XW=G(4)+(G(2)-G(4))*% }(G(5)-G(3))/(G(1)-G(3)):G(4)=XW:G(3)=YW1762 IF G(9) AND G(4)>=G(6) AND G(4)<=G(7) THEN RETURN 1770 IF T1 THEN YW=YT:XW=G(4)% }+(G(2)-G(4))*(YT-G(3))/(G(1)-G(3)):G(4)=XW:G(3)=YW1780 RETURN 2000 REM ***********************2010 REM * GET FILE % } *2020 REM ***********************2025 F$=DRIVE$:F$(LEN(F$)+1)=FILE$:FF$=F$2060 F$(LEN(F$)+1)=".PNT":CLOSE #1:OPEN #1,4,%}0,F$:INPUT #1;PS2080 TRAP 2100:DIM X(PS),Y(PS),Z(PS),P(PS,2),VIS(PS)2100 FOR X=1 TO PS:INPUT #1,Q1:X(X)=Q1:NEXT X2110 FOR %}X=1 TO PS:INPUT #1,Q1:Y(X)=Q1:NEXT X2120 FOR X=1 TO PS:INPUT #1,Q1:Z(X)=Q1:NEXT X:CLOSE #12170 F$=FF$:F$(LEN(F$)+1)=".LIN":%}CLOSE #1:OPEN #1,4,0,F$:INPUT #1;LS2190 TRAP 2210:DIM LN(LS,2)2210 FOR X=1 TO LS:INPUT #1,Q1:LN(X,0)=Q1:INPUT #1,Q1:LN(X,1)%}=Q1:INPUT #1,Q1:LN(X,2)=Q1:NEXT X2240 CLOSE #1:TRAP OFF:RETURN 2250 ? :? "}CAN'T OPEN FILE!":GOTO 12102260 ? :? "}FILE FOR%}MAT ERROR - ";PEEK(195):GOTO 12102700 REM **********************2701 REM * ROTATE *2702 REM ******************%}****2705 POKE 559,0:XC=0:YC=02720 FOR J=1 TO PS:X=X(J):Y=Y(J):GOSUB 31002740 X(J)=XC+R*COS(THETA+PHI)2750 Y(J)=YC+R*SIN(T%}HETA+PHI)2760 NEXT J2770 RETURN 2996 REM **********************2997 REM * WIDE *2999 REM *****************%}*****3000 IF (X=XC) AND (Y=YC) THEN RETURN 3010 GOSUB 30703040 IF ABS(XS0)>ABS(YS0) THEN XS0=-SIN(PHI)/COS(PHI):YS0=1:GOTO%} 30603050 YS0=COS(PHI)/SIN(PHI):XS0=-13051 IF (W<0.4) OR (SD$="N") THEN GOSUB 1550:FOR J=1 TO 1:GOTO 30613060 FOR J=-W/2 T%}O W/2 STEP 0.4:X1=XC+J*XS0:Y1=YC+J*YS0:X2=XC+J*XS0+R*COS(PHI):Y2=YC+J*YS0+R*SIN(PHI):GOSUB 15503061 IF O$="N" OR POK=0 THEN %}NEXT J:RETURN 3062 IF SD$="Y" THEN 30643063 ? #3;"M";X1*1.5;",";(191-Y1)*1.5;"*D";XW*1.5;",";(191-YW)*1.5:PC=PC+1:RETURN 3%}064 ? #3;"M";2.5*(191-Y1);",";-2.5*X1;"*D";2.5*(191-YW);",";-2.5*XW:PC=PC+13065 NEXT J:RETURN 3070 REM ********************%}**3080 REM * ATAN *3090 REM **********************3100 DEG :XS0=X-XC:YS0=Y-YC:R=(XS0*XS0+YS0*YS0)^0.5:PH=180%}3110 IF XS0=0 THEN PHI=PH/2+(SGN(YS0)<>1)*PH:RETURN 3120 PHI=ATN(YS0/XS0):IF SGN(XS0)=1 THEN PHI=2*PH*(SGN(YS0)=-1)+PHI:RET%}URN 3130 PHI=PH+PHI:RETURN 3200 REM *************************3201 REM * PLOTTER CONTROL *3202 REM *****************%}********3210 O$="Y"3220 CLOSE #3:OPEN #3,8,0,"P:":? #3;EG$:PC=03240 RETURN 3245 O$="N":CLOSE #3:RETURN 3250 ? #3;"C1":RE%}TURN 3251 ? #3;"C2":RETURN 3253 ? #3;"C3":RETURN 3254 ? #3;"C0":RETURN 3260 IF O$<>"Y" THEN RETURN 3261 IF SD$="Y" THEN %}? #3;"H*M0,-900*I":RETURN 3262 ? #3;"H*M0,-480*I":RETURN 3271 IF O$="Y" AND SD$="Y" THEN ? #3;"M0,0*D480,0*D480,-800*D0,-80% }0*D0,0":RETURN 3280 IF O$="Y" THEN ? #3;"M0,0*D480,0*D480,288*D0,288*D0,0"3290 RETURN 4000 REM ******EPSON DUMP*********4%!}010 SCREEN=PEEK(88)+PEEK(89)*256:TRAP 4040:CLOSE #1:OPEN #1,8,0,"P:":? #1;"A";CHR$(8)4020 FOR I=SCREEN TO SCREEN+39:? #1;"%"}K";CHR$(192);CHR$(0);4030 FOR J=I+7640 TO I STEP -40:PUT #1,PEEK(J):NEXT J:? #1:NEXT I:CLOSE #14035 STOP 4040 RETURN 5000%#} F$=DRIVE$:F$(LEN(F$)+1)=FILE$:FF$=F$5010 CLOSE #1:OPEN #1,4,0,F$:INPUT #1;PS5020 TRAP 5030:DIM X(PS),Y(PS),Z(PS),P(PS,2),V%$}IS(PS)5030 FOR X=1 TO PS:INPUT #1,Q1:X(X)=Q1:NEXT X5040 FOR X=1 TO PS:INPUT #1,Q1:Y(X)=Q1:NEXT X5050 FOR X=1 TO PS:INPUT #%%}1,Q1:Z(X)=Q1:NEXT X:CLOSE #15060 INPUT #1;LS5070 TRAP 5080:DIM LN(LS,2)5080 FOR X=1 TO LS:INPUT #1,Q1:LN(X,0)=Q1:INPUT #1,%&}Q1:LN(X,1)=Q1:LN(X,2)=WIDTH:NEXT X5090 CLOSE #1:TRAP OFF:RETURN 5100 SD$="Y":GOSUB PLOTON:RETURN 5200 SD$="N":GOSUB PLOTON%'}:RETURN 20000 SCY=11/13:DIM O$(1),EG$(2),SD$(1),G(10):EG$=CHR$(27):EG$(2)=CHR$(7)20010 DIM DRIVE$(3),FILE$(8),FF$(20),F$(20%(}),IN$(1),F1$(20)20020 G(7)=0:G(6)=319:YT=0:G(5)=191:OFF=4000020030 LET GETFILE=2025:LET GO=450:ROTATE=2705:LET PLOTON=3210:%)}DUMP=4010:BIG=5100:SMALL=5200:LET PLOTOFF=324520031 OLDFILE=5000:RED=3253:BLUE=3250:GREEN=3251:BLACK=3254:PAGE=3260:FRAME=32%*}7129995 REM **********************29996 REM * YOUR DISPLAY *29997 REM * PROGRAMME GOES *29998 REM * HERE%+} *29999 REM **********************EM * YOUR DISPLAY *29997 REM * PROGRAMME GOES *29998 REM * HERE$+30000 ? "DRIVE?-IN THE FORM 'D1:' ":INPUT DRIVE$:? :? "FILENAME?":INPUT FILE$:TRAP 30010:DIM S$(6)30010 ? " OR PICT)-}URE,OR ONLY?":INPUT S$30020 IF S$="BIG" THEN GOSUB BIG:GOTO 3005030025 IF S$="SCREEN" THEN GOSUB PLOTOFF:GOTO 30085).}30030 IF S$="SMALL" THEN GOSUB SMALL:GOTO 3005030040 ? "INVALID INPUT-TRY AGAIN":GOTO 3001030050 ? "COLOUR?--BLACK=1":? :? )/}" BLUE=2":? :? " GREEN=3":? :? " RED=4":INPUT C30060 COLOUR=(BLACK*(C=1))+(BLUE*(C=2))+(GREEN*(C=3)))0}+(RED*(C=4))30080 GOSUB PAGE:GOSUB COLOUR:GOSUB FRAME30085 SCL=1:ZOOM=1:OX=0:OY=10:OZ=0:VX=0:VY=0:VZ=2.5:XS=0:YS=0:ZS=0300)1}90 GRAPHICS 24:TRAP 30100:GOSUB GETFILE:GOSUB GO:STOP 30100 ? "NO SUCH FILE":GOTO 30000:VX=0:VY=0:VZ=2.5:XS=0:YS=0:ZS=0300(Y30000 SCL=1:ZOOM=1:OX=0:OY=20:OZ=0:VX=0:VY=0:VZ=230006 GRAPHICS 24:GOSUB BIG:GOSUB BLACK:GOSUB FRAME30010 DRIVE$="D1:"3002-3}0 FOR JKK=1 TO 7:FILE$="NO":FILE$(3)=STR$(JKK):XS=-5+10*RND(0):YS=-5+10*RND(0):ZS=0:GOSUB GETFILE:GOSUB GO30030 NEXT JKK002,zrs4-4ATGMONESCCOSTACOSBCCMTEMPHEADLINNULINLENCENEABLNAMCHANFLANAMXCODECOERLER15}LNA AQ@BhAQ  A (  ( @@16}8 PP@  @A!eA!@A Q@ @ @@17}@ !Q "e #h $%A &@'@ //@@D:CHARACTR.DTA18}9@0<@,9@,;@,;@@,;@@,;@,;@1,9@,;@1,;Ae,;@ 19},;@,;@,6.QWE A @P(9-@B:,267<,.>:@:7<,,&A(,6 9$2g1:}@@(@E@@Y-@@0g-@<@68<,-1;}F:  @#@:6-8@"<@,P0 46. !67Ae,.067@,.Z6-8@<1<},"6-$AB@@P:(@; _______________________________________d/1=}6-@6-@ % A0/ A@nT6-P:'A,"6-$A-6-P:&,>6-P:'@,L6-$@T6-1>}&x-@,,($ LC(GP= SP= CP= ENC=P:%1?}'A ,F(I(L$G +A+A =AR@G AEB(GP= SP= 1@} CP= ENC=P:%'A ,E((#-@!"68,-!68,-(  1A}x#@@K:0)@;@G"@'`7@<@,0 x(@>:@,1B}"@' A "@B A## @e)!%@dA0I6-&8&@d," 56-%8&1C}@d,? AI A086-%@ A.6-%8&@d,8 A"r #%"67<,.(6-%@ 1D}66-%@ B!@`Z(@>:@,f6-@r6-@ ,"@ A06 A0@$J, 6.1E} 67@,.)67@,.,$T; +AR@1AA ; A^u AA 1F}1-@@; BM-@@u(#ԠՠhBB(GP= SP= CP=1G} ENC=P:%'A ,r`((A ARMOR'(B BLADED WEAPONS:(C HAND WEAPONSP(D MISSILE WEAPONS`( E POLE ARMS1H}|!!(F MISCELLANEOUS EQUIPMENTh"(G TACK & CAMPING EQUIPMENT8(H RELIGIOUS ITEMSH( I LIVESTOCKY( J PROVISIONSh(1I} K CLOTHING( L ADD MONEY(Q QUITQ#@@K:0)@;@G"@Q B 1J}!! @e)!@vAoo&@dAPAA`ApAAAAAA 1K}A@A06-6-AF'6-A N6. ǠZ6-@f6-A ep A01L}z A@ A@6-6-@'6-A!O6.!Ҡ[6-@g6-A!e1M}q A0{ A@ A@6-6-A'6-A)O6.!ĠӠ[6-@g61N}-A)eq A0{ A@ A@6-6-@X'6-A#P6."ŠӠ\6-1O}@h6-A#er A0| A@ A@6-6-@$'6-A$P6."ӠԠ1P}\6-@h6-A$er A0| A@ A@6-6-AH'6-A%P6."ˠǠ1Q}Ԡ\6-@h6-A%er A0| A@ A@6-6-@'6-A&Q6.#Ӡ1R}Ӡ]6-@i6-A&es A0} A@ A@6-6-@&'6-A'Q6.#1S}ˠ]6-@i6-A'es A0} A@ A@6-6-A'6-A(1T}Q6.#Ӡ]6-@ i6-A(es A0} A@ A@5-@@"#(PAS1U}SWORD'54A`k"( 8(WRONG PASSWORD!!L-@AP k( 1V} & A07 A-@@"7(GOLD PIECES TO ADD:1 A4)6-%+$A,16-%?1W}-@@ A0DH-@@">($ H AI!B6-B1X}J$N6-6-A'6-A"P6."ĠӠ\6-@h6-A"er A0|1Y} A@ A@X6-6-@"'6-A0P6."ŠӠ\6-@h6-A0er 1Z}A0| A@ A@b-@@!8(YOU DON'T HAVE ENOUGH MONEY!!P(DO YOU WANT TO ADD?p@@1[}K:})@@g,"@ A# A)0,$lV"@((GOLD PIECES TO ADD,1\}6 A<4N6-%+$A,V6-%q-@ A0vq-@@!n(T 1]} q$m-@@!m(S 1^} 0-@@"#(PASSWORD'-40$W( 1_}5(WRONG PASSWORD!I-@AM W A0 @$**A),Belt, 3 SP,30,0++1`}B),High hard boots, 2 GP,400,1++C),High soft boots, 1 GP,200,0++D),Low hard boots, 1 GP,200,01a}**E),Low soft boots, 1 SP,80,0**F),Cap, 1 SP,10,0**G),Cloak, 5 SP,50,01b}++H),Broad girdle, 2 GP,400,0++I),Normal girdle, 10 SP,100,0**J),Hat, 7 SP,701c},0**K),Robe, 6 SP,60,0,,L),Leather breeches, 20 GP,4000,0u//A),Banded armor, 90 G1d}P,18000,35v//B),Chain armor, 75 GP,15000,30w--C),Great helmet, 15 GP,3000,3x--D),Small helmet, 1e} 10 GP,2000,0y..E),Leather armor, 5 GP,1000,15z--F),Padded armor, 4 GP,800,10{//G),Pla1f}te armor, 400 GP,80000,45|..H),Ring armor, 30 GP,6000,25}..I),Scale armor, 45 GP,9000,1g}40~..J),Large shield, 15 GP,3000,10--K),Small shield, 10 GP,2000,5,,L),Small wooden shield, 1q}B%DOS SYSB*)DUP SYSBSALPHA1 BASB[ALPHA2 BASB`ALPHA3 LSTBFsATARZEE1BASBATARZEE2LSTB#BONSAI1 LSTBBONSAI2 LSTBABONSAI3 LSTB,BONSAI4 LSTB2BONSAI5 LSTBi4EQUIPMNTBASBGEMSET OBJBMLEDITORBASBPRINTUTLBASBSWITCH OBJ 1 GP,200,3//M),Splinted armor, 80 GP,16000,40..N),Studded armor, 15 GP,3000,20//O),Bronze Plat1r}e, 100 GP,20000,5500P),Field Plate, 2000 GP,400000,7511Q),Full Plate, 4000 GP,800000,1001s}--R),Buckler Shield, 5 GP,1000,3..A),Bastard sword, 25 GP,5000,10//B),Broad sword, 101t} GP,2000,7.5--C),Long sword, 15 GP,3000,6//D),Short sword, 8 GP,1600,3.5--E),Scimitar, 1u} 15 GP,3000,4..F),Falchion Sword, 10 GP,2000,1000G),Khopesh sword, 10 GP,2000,10.5//H1v}),Battle axe, 5 GP,1000,7.5,,I),Hand axe, 1 GP,200,5,,J),Dagger & Scabbard, 2 GP,401w}0,1--K),Knife & Scabbard, 2 GP,600,15= ..A),Composite short bow, 75 GP,15000,5> ..B),Composite long bow, 1x} 100 GP,20000,8? --C),Short bow, 15 GP,3000,5@ //D),Long bow, 60 GP,12000,10A --E),Light cro1y}ssbow, 12 GP,2400,5B --F),Heavy crossbow, 20 GP,4000,8C ,,G),Arrows (dozen), 1 GP,200,2D --H),1z}Quiver (24 capacity), 5 GP,1000,3E ,,I),Arrow (1 silver), 1 GP,200,0F ,,J),Quarrel (20), 2 GP,400,31{}G ,,K),Sling & Bullets(20), 10 SP,100,0H ++L),Dart, 5 SP,50,0 ,,A),Leather backpack, 2 GP,1|}400,2 ,,B),Large belt pouch, 1 GP,200,1 ,,C),Small belt pouch, 15 SP,150,5 --D),Bone map case, 1}} 5 GP,1000,5 ,,E),Leather map case, 15 SP,150,5 ++F),Large sack, 16 CP,16,2 ++G),Small sack, 1~} 10 CP,10,5 ,,H),Water(wine)skin, 15 SP,150,5 ++I),50' rope, 4 SP,40,2 ,,J),Tinderbox w1}/F&S, 1 GP,200,0 --K),Thieves' tools, 30 GP,6000,0 **L),Torch, 1 CP,1,6 --M),Hoode1}d lantern, 7 GP,1400,6 --N),Bullseye lantern, 12 GP,2400,6 ,,O),Flask of oil, 1 GP,200,2 **1}P),Iron spike, 1 CP,1,1 ++Q),10' Pole, 3 CP,3,10 //A),Small tent, 50 GP,10000,1}40 ++B),Blanket, 2 SP,20,1 ,,C),Cooking utensiles, 2 GP,400,3 ,,D),Mess kit, 1 1}GP,200,1 ,,E),Hunting knife, 15 SP,150,0 ,,F),Bit & bridle, 15 SP,150,0 --G),Saddle, 1} 10 GP,2000,0 ,,H),Saddle bags, 4 GP,800,0 ++I),Saddle blanket, 3 SP,30,0 ++J),Candle, 1} 1 SP,10,0 --K),Large wooden chest, 17 SP,170,50 ..L),Large iron box, 28 GP,5600,50 //M),Smal1}l iron box, 9 GP,1800,100 --N),Tarpaulin, 4 GP,800,10 --O),Hammock, 5 GP,1000,51}i ,,A),Prayer beads, 1 GP,200,0j ,,B),Incense stick, 1 GP,200,0k ++C),Wooden holy Symbol, 7 SP1},70,0l ,,D),Iron holy symbol, 2 GP,400,0m ..E),Silver holy symbol, 50 GP,10000,0n ..F),Gold holy symbol, 1} 200 GP,40000,0o --G),Holy water, 25 GP,5000,0p **H),Garlic bud, 5 CP,5,0q --I),Metal mirror,1} 10 GP,2000,0r --J),Silver mirror, 20 GP,4000,0 **A),Chicken, 3 CP,3,0 --B),Guard 1}dog, 25 GP,5000,0 --C),Hunting dog, 17 GP,3400,0 --D),Donkey, 8 GP,1600,0 --1}E),Large hawk, 40 GP,8000,0 --F),Small hawk, 18 GP,3600,0 ..G),Heavy war horse, 300 GP,61}0000,0 ..H),Medium war horse, 225 GP,45000,0 ..I),Light war horse, 150 GP,30000,0 --J),Riding horse, 1} 25 GP,5000,0 --K),Mule, 20 GP,4000,0 ))L),Pigeon, 2 CP,2,0 --M),Pony, 1} 15 GP,3000,0 ,,N),Sheep, 2 GP,400,0 **O),Songbird, 4 CP,4,01 ++A),Ale (p1}int), 1 SP,10,12 **B),Beer (pint), 5 CP,5,13 ++C),Merchant's meal, 3 SP,30,04 ,,D),Ric1}h meal, 1 GP,200,05 ++E),Grain (1 day), 1 SP,10,16 ,,F),Rations (1 week), 3 GP,600,57 --1}G),Iron Rations, 5 GP,1000,78 ,,H),Good wine, 10 SP,100,19 ++I),Watered wine, 5 SP,50,1}1 ,,A),Axe (hand or throwing), 1 GP,200,5 //B),Battle Axe, 5 GP,1000,7.5 --C),Bo Stick, 1} 2 SP,40,1.5 ++D),Club, 1 SP,20,3 ..E),Mace (Footman'S), 8 GP,1600,10 ,,F),Mace (Horseman'1}s), 4 GP,800,5 00G),Morning Star, 5 GP,1000,12.5 ,,H),Sap, 1 GP,200,1 ,,I),Quar1}ter Staff, 2 GP,400,2 ,,J),Lasso, 5 SP,100,1 --K),Whip, 5 GP,1000,2 --1}L),Military Pick, 8 GP,1600,6 ,,M),War hammer, 1 GP,200,5 ..N),Lucern hammer, 7 GP,141}00,15 ,,O),Trident & net, 4 GP,800,5 00A),Bardiche, 7 GP,1400,12.5 ..B),Bec de Corbin, 1} 6 GP,1200,10 ..C),Bill-Guisarme, 6 GP,1200,15 ,,D),Fauchard, 3 GP,600,6 --E),Fork Fou1}chard, 8 GP,1600,8 ..F),Military Fork, 4 GP,800,7.5 ..G),Glaive-Guisarme, 10 GP,2000,10 --1}H),Guisarme, 5 GP,1000,8 ..I),Guisarme-Voulge, 7 GP,1400,15 00J),Halberd, 9 GP,1}1800,17.5 --K),Hook Fauchard, 9 GP,1800,8 ..L),Lance, 6 GP,1200,10 ,,M),Awl Pike, 1} 3 GP,600,8 ,,N),Ranseur, 4 GP,800,5 ,,O),Spetum, 3 GP,600,5@4%6-F:A,1}%AV$F:A,46-F:A,JgF:A,"@*-@@"O( INPUT ERROR! TRY AGAIN. c-@1}APg O++(# T# A"Ap# A`^ A4!G6-F:@,1}!A',6-&A(8@DB7tG$(#|"@%(@>:@,/ @@G(@>:@,](1}@>:@ ,d6.p6-@|6-@ 2#6-%@$''$.J(@(@J(@TOTAL 1}ENCUMBRANCE = P:%'A ,.l!(@GOLD PIECES = A(@SILVER PIECES = l(@COPPER PIECES = 1}>:@,.> (}-@@>(SAVING DATA; PLEASE WAIT. . ..q/@@D:CHARACTR.DTA< 1}@I @T@q@@.%-@@0%-@. @8<,/ 1}  / @/J*("NOW RELOADING CHARACTER GENERATOR=(PLEASE WAIT...J%D:DDC9.2 D:EQUIPMNT8<,/ 0s44|D1:********.****&*$:%S:` B V 8`BCD4EKI J VR5}'S 8 8 8BJKL4D:*.*D4E VL7(4(4 8 e8(4BDEHI V005}ɛ 45 BDEHI V(4L4ɈL7 8 e89 78R BD4EHI VBD4EH5}I V 8BJKD4E VL7R?9 78H@BD@EHI Vh0L5 8K9 78 85}LF4 8B56JKL6P:D6E VL7B434 864 8LF694 8>4 80LY69 78 8L5!)4)4Ɂ5}L7(4` @ m(4ԩբ&@eՅբ4ԝ4H=4,4L6,4 I=44,4h 5}ѩ+44+467(4B4+44*L#74*L#7+44jL#74j(4͙4íB43-4 8L7)4 8+4 85}4 8L7L704 8L7)4*4)4 8+4 L7+4+4 84 8)4L^6L7 BD7EHI V 85} 89 7878}: 78`: 78 8 8LF4 B V` BD4EHI V`D֌EנHI 5}HI B V`Li8 BhD8EHI V`Ԡ: 78 e8`HDEhHI B V` 8; 78ˠ; 78 8125}; 78L8B4`B4`B89DEHI V`C-SET FILE TO DOWNLOAD?TYPE filename.ext & PRESS :WORKIN5}G...INVALID CHARACTER SET FILE!PRESS RETURN TO TRY AGAIN.PRINTER NOT READY.PUT IT ON LINE & PRESS ΛYOUR GEMINI/5}EPSON NOW HAS CUSTOM SETINSTALLED & R9:EADY TO USE.PRESS TO EXIT, OTHERWISEYOU MAY REBOOT SYSTEM WITH THEWORD PRO5}CESSOR OF YOUR CHOICE, BUTΧԠΠƠҠϠҠҡ}``` GEMSETS By Matthew Ratcliff ```I/O ERRORPRESS5} TO RESTART PROGRAM}ɯΠ:;ҠԠҠʮ׮栠̠Ԡˠ5}ȠدؠӪTurn off your printer, & set top ofform. Then power it up again andverify that it is on line.۱ GEMINI5} 10X/15X۲ EPSON FX/JX/LQTYPE THE APPROPRIATE ;<# KEYAND PRESS Π1 OR 2 ONLY!F4 is on line.۱ GEMINI4e34 3 BFNABFF1LINRETRBACKSCHKSUEDILBYTD@9}  GG9@,;@,;@,;9}@,;@,;@,?6-A6-AU'6-A&36-?6-I AP-@@9}8(tart or ontinue? B AI(>:,(?-@@#(FILENAME'9AR@?( 25B:, @$-9}@ @+( 5 @@<?7@<@,0D:&6.D:567@,.? @F 6.P>:,4SA 9}Z4 A0*@@4 Ad@-@@$)@( 66-%@@ An59}@+@@ 5 Apxr A`*@@4 A@F-@@`(FILE 9}ALREADY EXISTS!!rARH-@@%( ERASE IT? / AAAR@H(>:,,>:,4N)>:,9}4n"@, @0>:,0Y*>:,0yA0+@+@@? AP-@@9}3( נΠ: ?6-6-@#-@@W-@$+ @,%@$+!@ ,%@9}iAR|(BYTE #:  A$*"6-8,$ A 6-A:, -@"%@ ( 9} 0 68,-6-%$"!A06-&B) 6-%!A)6-&BO-@%@)AR9}9( CHECKSUM: E6-@O A*"Ap 6-A:,!-@"%@!( "9}A"/ A@6-@%6-/ A,O-@@'*@8,+ 96-%@E6-O 9}Ap66-@- A-"@:Q,*"@*(A J++**+ @H)!@W,A O%%"*"9}*!@APT&&++"*(,)",*"A ^$ "AR@!( $$hAr2!@9}(6.7@<&@,2 A| 6.# (>:,6-&@# A '6-%@!6-' AP9}!67,.>:,(>:,! A  +^ A@-@@1( NO SUCH FILE!E-@AI T@9}^ @0tA@H72A@@K-@@PO q29}t$U +@#@A1B7tACAYUA@U-6-F:A`,%AV$F:Aa9},%@A&@@pU%@@_-@@9@-%@1 M-@@@@9}[%_ W%@A@e.%@BF:A`,E%@CF:Aa,W@?-@9}*(analog ml editor<AY@4?$>#@@K:0)@;@>$D:MLEDITO9}R.BAS(analog ml editor<AY@4?$>#@@K:0)@;@>$D:MLEDITO8 > ABLNCNDKK'Br@# $$*** DOCUMENT PRINT UTILITY ***!!*** by J=}an Iverson 1985 ***;@u,;@9,(6-2! + B! A<.@.@@=}K:F-6-F:A`,%F:Aa,$AV%@A&@@fU%@@i%@@}%=}@@%@@K9AAD'AAD9AR@P'-@@'( documen=}tationZ"-@%@"(di-@@ (P% A`7-@@ =(RG A`Y-@ @ =}_(Ei A`nG-@@ (S% A`7-@@ =(SG A`xi-@'@(s% A`=}7-@(@=(tG A`Y-@)@_(ai A`G-@0@(r% A`7-@1@=}=(tG A`9-@@9(Ezuse Software Company (C) 1985 F:B2y,@APF +A=}R@F(" PRINT TO (S)SCREEN OR (P)PRINTER)@"@:P,A"@:S,Ap Ap=}c@@9@@P:c@@ D1:PRINT.PRT B A`=}@(@6-%@/"@f Ap%6-/ AU A0:F:Ad,"@3=}*AdAU0(}: A04F:Ad,"@(*AdAU4 @@ AU#@@=}# @@ B A P@8@@ D1:PRINT.SCRJAR@P(}"@=},-(66-%@@%"@!6-% A@J AT Ap^:F:Ad,"@=}3*AdAU0(}: Ah4F:Ad,"@(*AdAU4 @@r APAR@=}(}P-@@.(ΠΠҠB-@AF P @P ApG+F:Ad,"@3)F=}:Ad,"@(=AdAUG @@ A0d-@@";2%@E@@? a2=}d$C-@@"@(&Š寠àC$D:PRINTUTL.BAS2<{448 A5L4 4 5L54讼%4 5`)1 өj A5Lf4àƠV4 5L5A})өj A5L4àΠ4 5`JL4REV.B4 5L4ɠ4 5L4֮àؠ4 5L5A}L5RE45V.C4 5L5 5 5`DЌEѠHIH BLV` B V`BD5EKJ Vp5A}L5̯Šàˠͯ͠S:4 V`BD5EKJ Vp5@W