' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/$>:(+02&<#)#0:Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ ０LꢭɛL8`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(mPy0\޼e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV% [l^ eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZL?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRMAXFILEFINBSAVBLOABRUTYPū!pppp p p p p`" t""#x"p0p@p@@@p@p@!y q q 0@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKEDOS ERROR NO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` F d Ġz# u`K1I1NL$(I)%L(I),IBD$;"CLOSE "F$"@"TD$;"OPEN "F$gD$;"WRITE "F$nKD$;"CLOSE "F$D$;"OPEN "F$"@"D$;"READ "F$"@"NKK1I1NL$(I)L(I)ID$;"CLOSE "FvE(N)B(N)L(N)1FxA$" ":TY(N)0:(L$(N),1)"="TY(N)1:A$"N"z11N:24:B(N)10);B(N)100);B(N);" ";E(N)10);E(N)100);E(N);" ";A$~K1(LN)101683N101612D$;"OPEN "F$"@"D$;"WRITE "F$"@"NK;c11N:35:K1(LN)11d11N:16:">";L$GfL$""L$(L(N))ShA(L$)jA1(AK1(LN)1)AK1(LN)1:9:30:A10);A100);A;" ";:1632lL(N)(L$)np11N:17:L(N)10);L(N)100);L(N);rLLL(N)tN1B(N)E(N1)2XL$""16309YA$"":(L$,1)"="L$(L$,2):A$"="VZ(L$,1)"/"NN1:1685\L$(N)L$" ":L$(N)(L$(N),10)]A$"="L$(N)(L$(N),9)A$^L(N)0L(N)K1(LN)1`11N:4:">";L$(N);b11N:17:L(N)10);L(N)100);L(N):"------------- FIELD INPUT -------------"WD7:"/ ENDS INPUT. (R=";K;"; L=";K1;")"cHN0:L0mLNN1N11N:1:N10);N;P11N:4:">";L$R(L$)01614TA$"":L$""L$(N)""N10A$" "VL$""L$(N)""L$"FIELD "A$(N)" ",4000,5000,6000,6600,8000,9000,9200- 12109  INPUTP ERR0:ERRČ54572_ B512751n (B)0Ăy IN$"" (131)256(132)1,0 (131)256(132)2,2 (131)256(132),B512 IN$(IN$,1)  @ HEADER INPUT+B1:1H NUMBER? (1-9) > ";A$:1955A dA$"Q"ĺ:"END OF PROGRAM.": nA$"D"N1:K10:K18:L$(1)"ITEM ":L(1)8:F$"DUMMY":1685:1210 xA$"C"İ9100:1210 A$"M"Ģ1:35:((X)A9100);"%":1220 (A$)9(A$)11350# (A$)2000,3000 ON THE FILE."8 " 7. CHANGE FILENAME OR PARAMETERS."S " 8. RUN A NEW FILE."t (" 9. SEARCH FOR A PATTERN." 3" D. CREATE DUMMY FILE." 4" M. SHOW AVAILABLE MEMORY." 5" C. CATALOG DISK." 7" Q. QUIT." < F P19:1 Z"WHICILENAME: ";F$;:24:"(L=";K1;" R=";K;")". M " 1. READ THE DISK FILE."s " 2. INPUT/EDIT FILE IN MEMORY." " 3. SORT THE FILE IN MEMORY." " 4. PRINT THE FILE TO SCREEN/PRINTER." " 5. SAVE THE FILE TO DISK." " 6. SHOW STATISTICS" LD$(4)3 VI1127:BL$BL$" ":C$C$".":IN `3:"FILENAME? > ";F0$~ j3:"FILENAME? > ";F1$:F1$""F$F0$:1150 tF$F1$:Z01210 ~ 1745 LK100:ZL A$(L)  :" ------------ CENTRAL MENU ----------- "( 3:"F0 FILE EDITOR PROGRAM> COPYRIGHT 1985 MARC W MILLERM GAMESOFT\ BOX 1646x BLOOMINGTON, IL 61701~$ REVISED 01 MAR 1986.A9(X)0ER02F0$"SPECIAL"398008: B" ------------ CENTRAL MENU -----------                 "AHANKS" " "MARC W. MILLER"( " * BEASTIARY IS SELF-INSTRUCTING; * EDITOR ALLOWS EDITING OF DISK FILES CREATED BY BEASTIARY." "HIT RETURN TO RUN BEASTIARY (Q QUITS).";A$ (A$"R",1)"Q"Ā (4);"RUN BEASTIARY "THIS DISK IS"1"COPYRIGHT 1985"Q"GAME DESIGNERS' WORKSHOP"d("PO BOX 1646"2"BLOOMINGTON, IL 61702"<F"TRAVELLER IS A REGISTERED TRADEMARK OF"P"GDW, INC."Zd"PLEASE DON'T PIRATE THIS DISK."n x"T  :D(CK)()+AD:6500:36,39(A$):A$^),PRNTR1A(MX(I)MN(I))1:6500:36,48(A$):A$)-PRNTR1AMN(I):6500:36,57(A$):A$).PRNTR1AMN(I):6500:36,66(A$):A$)/PRNTR1AD(SM(I)K)100:6500:36,74(A$):A$;"%")3)4*9G.... STD DEV.";E(PRNTR1ĺ" RANGE... MIN..... MAX..... CRV....."T(PRNTR0ĺ_(I1Ny( (L$(I),1)"="5940(%I10);I;". ";L$(I);" ";((ASM(I):6500:36,22(A$):A$()ASM(I)K:6500:36,30(A$):A$ )*ASS(I):BSM(I)2K:C(AB)(Q),L(Q)))#'I1MN(Q)A:MX(Q)A='FR1MN(Q)A:MX(Q)Ad'(A$(I))B(Q)SM(Q)SM(Q)0:5830v'SM(Q)SM(Q)A'SS(Q)SS(Q)(A2)'AMX(Q)MX(Q)A'AMN(Q)MN(Q)A'Q'' ' :"COLUMN SUMS: "("NO FIELD = SUM.... AV&0A210);A2100);A2;" ";6&:A3((132(A15))A1)K&DA3K15A3K15^&X(A$(A2),A3);y&bA3((A$(A2),A3)));&lB&m&n(LL60)LL60ĺ(140);&qA&wI1K&x5800&yI&{5900&0&&&Q1N 'A((A$(I),B(9);"132N";S%"LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L="K1"; R="K")."Y%s%A1((130K1).99999)%(A1(K15))130A1A11:5622%LL0%TT((KA1).999999)%A1TT% LLLL1%B1A1%A2(BTTTTA)%&A2K5740;$" ";$V1N>$"L(V)10ĺL$(V);:L(V)9);" ";W$,L(V)10ĺL$(V);" ";x$6L(V)10ĺ(L$(V),L(V));" ";$@V$J$TI$^" ";$ $K45ĺ(140);$5900$(140);$0$$ PRINT-OUT $1$(15);%L(I)10ĺL$(I);:L(I)9);4#L(I)10ĺL$(I);" ";U#L(I)10ĺ(L$(I),L(I));" ";\#Ib#m#I1Kw#5800#I100);I10);I;". ";#(A$(I),L1)#K1132ĺ(A$(I),L11):I30(I30)ĺ(140);:5460#I60(I60)5460$(140)1 " K180ĺ(18);(9);"80N";?"K179ĺ(15);(9);"132N";""LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L= "K1"; R="K").";"(L0:L10"2"<I1N"FLLL(I)1:L131L1132N1I1:IN:5210"PL1L"ZI"d" ";"nI1N#xI1K!LL/!I100);I10);I;". ";A$(I)9!5800E!LLLL1m!LL21ĺ:"NEXT PAGE? > ";A$:LL1:!(A$"Q",1)"Q"IK!I!!"RETURN TO MENU? (Y/N/S) > ";A$:1955!A$"S"İ5900!A$"N"5050!1210! PRINT-OUT"I " IF PRINTER IS CHOSEN, DEFAULT IS A MULTI-COLUMN PRINT-OUT."O s " S= ONE COLUMN HARD-COPY.": " DO YOU WANT HARD COPY? (N/Y/S) > ";A$:1955:B$A$:B$"Y"PRNTR1 B$"S"PRNTR1:5110 PRNTR15570  LL1!0^A$(Y)A$(A):A$(A)LOW$#hA1rK24230R|A10);A100);A;". ";A$(A)Xr"SORT FINISHED. ";A$x:3:" ----------- PRINT OUT FILE ---------- ":Q1N:SS(Q)0:SM(Q)0:QPRNTR0" DEFAULT IS SCREEN DISPLAY." ( 1-";K110);K1100);K11000);K1;") >";:" ";A$:(A$)1(A$)K1K2(A$)UbAMP1zA$(A)""A$(A)" ""LOW$A$(A),Y06BA1P@(A$(B),K2)(LOW$,K2)LOW$A$(B):YBJBTA10);A100);A;". ";LOW$:LOW$A$(A)42011000);K1;") >";:" ";A$:(A$)K1(A$)0M(A$)GMK14080" HIGHEST ITEM? (";M110);M1100);M11000);M1;"-";K10);K100);K1000);K;") >";:" ";A$:(A$)K(A$)MP(A$)FF1:1745:FF0O" FIELD SORT POSITION?  3020 * J:3:" ------------ FILE SORTER ------------ "]:M1:PK:K21kK24120"SPECIAL SORT PARAMETERS? (N/Y) > ";A$:1955:A$"Y"41206" LOWEST ITEM? (";M10);M100);M1000);M;"-";K110);K1100);K):M$(I)(A$,B(I),L(I)):32709 (IN$,1)"/"IN:3350 TY(I)1IN$(BL$,20)IN$:IN$(IN$,L(I)):I6:13:IN$:M$(I)IN$:3270 M$(I)IN$BL$ M$(I)(M$(I),L(I)) I A$(A)"" I1N A$(A)A$(A)M$(I)" " I  AA1I)) b Il I1N(v 12:I6:">";2 1500X (IN$,1)"#"A((IN$,2)):3050 (IN$,1)"*"A$(A)(93)(BL$,K11):3320 (IN$,1)";"N1((IN$,2)):I6:13:(A$,B(I),L(I)):N10N1N1IN1:3190 IN$""ĢI6:13:(A$,B(I),L(I) A13135.< B12:(A$(A1))BB(A$(A1))P> 22:1:"PREV: ";(A$(A1),B)^? AK3140@ A$(A1)""A$(A1)(C$,K1)A B12:(A$(A1))BB(A$(A1))C 22:20:"NEXT: ";(A$(A1),B)D A$A$(A)N I1NX 6I:L$(I);": ";(A$,B(I),L(O MENU." AKİ73302 K1ĺ"NO FILE.":3350D A1AK3010O A(A)d A(0.9K)ĺ"";o AKĞv 5& "RECORD NO. ";A100);A10);A;"."0 1 2 A$(A)""A$(A)(C$,K1)3 A131354 A$(A1)""A$(A1)(C$,K1): ;D$;"CLOSE "F$#(4);"NOMONICO".216,04j :3:" -------------- EDIT FILE ------------ ":r A1 A$(1)""A$(1)(C$,K1) A$(K)""A$(K)(C$,K1) 18:"#N GOTO THAT RECORD; * KILL RECORD; ;N GOTO THAT FIELD; / RETURN TD "F$" FROM DISK"+D$;"OPEN "F$",L"K113 I1A*IK2200X4D$;"READ "F$",R"Ic>2150mH1505MIN$""IN$(BL$,K1)RERR2170\2180fERR(222):ERR5Ħp"ERROR ";ERR:zKI1:2200A$(I)IN$II1:2090EAD FILE ----------------" l" READ FROM DISK. NEW DATA IS READ FROM THE DISK UNDER FILENAME: ";F$" THE DATA CURRENTLY IN MEMORY IS LOST.":" READ FROM DISK? (N/Y) > ";A$1955A$"Y"ı(4);"MONICO" 15 "REAY(I)0:(L$(I),1)"="TY(I)19 A$" ":TY(I)1A$"N"!" ";B(I)100);B(I)10);B(I);" ";E(I)100);E(I)10);E(I);" ";A$0I5FF119507:"RETURN TO MENU? > ";A$:A$A$" ":A$(A$,1):"----------- R$"@"@10:1:998:"----------- FIELD PARAMETERS ----------"K B(1)1x"NO FIELD LEN BEGIN END TYPE"I1N11I:I10);I;" ";L$(I);" ";L(I)100);L(I)10);L(I);" ";I1B(I)E(I1)2E(I)B(I)L(I)1TK1I1NL$(I)%L(I),IBD$;"CLOSE "F$"@"TD$;"OPEN "F$gD$;"WRITE "F$nKD$;"CLOSE "F$D$;"OPEN "F$"@"D$;"READ "F$"@"NKK1I1NL$(I)L(I)ID$;"CLOSE "FvE(N)B(N)L(N)1FxA$" ":TY(N)0:(L$(N),1)"="TY(N)1:A$"N"z11N:24:B(N)10);B(N)100);B(N);" ";E(N)10);E(N)100);E(N);" ";A$~K1(LN)101683N101612D$;"OPEN "F$"@"D$;"WRITE "F$"@"NK;c11N:35:K1(LN)11d11N:16:">";L$GfL$""L$(L(N))ShA(L$)jA1(AK1(LN)1)AK1(LN)1:9:30:A10);A100);A;" ";:1632lL(N)(L$)np11N:17:L(N)10);L(N)100);L(N);rLLL(N)tN1B(N)E(N1)2XL$""16309YA$"":(L$,1)"="L$(L$,2):A$"="VZ(L$,1)"/"NN1:1685\L$(N)L$" ":L$(N)(L$(N),10)]A$"="L$(N)(L$(N),9)A$^L(N)0L(N)K1(LN)1`11N:4:">";L$(N);b11N:17:L(N)10);L(N)100);L(N):"------------- FIELD INPUT -------------"WD7:"/ ENDS INPUT. (R=";K;"; L=";K1;")"cHN0:L0mLNN1N11N:1:N10);N;P11N:4:">";L$R(L$)01614TA$"":L$""L$(N)""N10A$" "VL$""L$(N)""L$"FIELD "A$(N)" ",4000,5000,6000,6600,8000,9000,9200- 12109  INPUTP ERR0:ERRČ54572_ B512751n (B)0Ăy IN$"" (131)256(132)1,0 (131)256(132)2,2 (131)256(132),B512 IN$(IN$,1)  @ HEADER INPUT+B1:1H NUMBER? (1-9) > ";A$:1955A dA$"Q"ĺ:"END OF PROGRAM.": nA$"D"N1:K10:K18:L$(1)"ITEM ":L(1)8:F$"DUMMY":1685:1210 xA$"C"İ9100:1210 A$"M"Ģ1:35:((X)A9100);"%":1220 (A$)9(A$)11350# (A$)2000,3000 ON THE FILE."8 " 7. CHANGE FILENAME OR PARAMETERS."S " 8. RUN A NEW FILE."t (" 9. SEARCH FOR A PATTERN." 3" D. CREATE DUMMY FILE." 4" M. SHOW AVAILABLE MEMORY." 5" C. CATALOG DISK." 7" Q. QUIT." < F P19:1 Z"WHICILENAME: ";F$;:24:"(L=";K1;" R=";K;")". M " 1. READ THE DISK FILE."s " 2. INPUT/EDIT FILE IN MEMORY." " 3. SORT THE FILE IN MEMORY." " 4. PRINT THE FILE TO SCREEN/PRINTER." " 5. SAVE THE FILE TO DISK." " 6. SHOW STATISTICS" LD$(4)3 VI1127:BL$BL$" ":C$C$".":IN `3:"FILENAME? > ";F0$~ j3:"FILENAME? > ";F1$:F1$""F$F0$:1150 tF$F1$:Z01210 ~ 1745 LK100:ZL A$(L)  :" ------------ CENTRAL MENU ----------- "( 3:"F0 FILE EDITOR PROGRAM> COPYRIGHT 1985 MARC W MILLERM GAMESOFT\ BOX 1646x BLOOMINGTON, IL 61701~$ REVISED 01 MAR 1986.A9(X)0ER02F0$"SPECIAL"398008: B" ------------ CENTRAL MENU -----------                @"ALLEG "J2'T"TRAVEL ZO".^1?h"GAS GIANT"Fr1W|"TRADEWRLD"^1o"EXPLORED?"v1(4);"CLOSE"H SAVE FILE PARAMETERS3"NAME THIS FILE? > ";FI$R(4);"RENAME SECTOR,";FI$l(4);"OPEN ";FI$;"@"(4);"WRITE ";FI$;"@"9R49"HEX "4"UPP "9"BASES ""1,"TRADE CLA"614A$A$"R "D TZ0A$A$" "4N GG0A$A$" "IX GG1A$A$"G "\ SAVE TO DISKf RR1 (4);"WRITE SECTOR, R";R A$ (4) A$ Y X SAVE FILE LENGTH (4);"WRITE SECTOR, R0" R (4);"CLOSE" Y10A$A$"0"# A$A$(Y)" "[ A$A$ST$(HX$,SI1,1)(HX$,AM1,1)(HX$,HY1,1) A$A$(HX$,PO1,1)(HX$,GO1,1)(HX$,LA1,1)"-" A$A$(HX$,TL1,1)" " A$A$B$" " A$A$TC$& A$A$AL$" "0 TZ1A$A$"A " : TZ2" HY10TC$TC$"WA "7 HY0AM1TC$TC$"DE "O SI0TC$TC$"AS "m AM0SI0TC$TC$"VA " PO0GO0LA0TC$TC$"BA " TC$(TC$" ",15) CREATE WORLD DATA STRING A$"" X10A$"0" A$A$(X)TC$""> (AM3AM10)(HY3HY9)(PO4PO8)TC$TC$"AG "` AM4HY4PO5TC$TC$"NA " (AM3AM4AM7A9)PO8TC$TC$"IN " PO7TC$TC$"NI " (AM6AM8)(PO5PO9)(GO3GO10)TC$TC$"RI " (AM1AM6)HY4TC$TC$"PO 1 GENERATE BASES DM08 B20:ST$"A"DM3K  ST$"B"DM2^  ST$"C"DM3p ( ST$"D"2620 2 (B(4)DM)6B21 < B$" " F B11B20B$"N" P B10B21B$"S" Z B11B21B$"A" d TC$"" TRADE CLASSIFICATIONS $ PO8TLTL2:PO9TLTL27 . GO0GO5TLTL1J 8 GO13TLTL2Y B TL0TL0b L GG0{ ` GENERATE GAS GIANT j B(4)10GG1 GENERATE TRAVEL ZONES TZ0:ST$"X"TZ2 TZ0B(4)10TZ1 B10:ST$"B"2560 B(4)7B1:GO0GO0( LAB(4)7GO:LA0LA01 TL0F ST$"A"TLTL6[ ST$"B"TLTL4p ST$"C"TLTL2 ST$"X"TLTL4 SI5TLTL1:SI2TLTL1 AM4TLTL1  AM9TLTL1  HY8TLTL1:HY9TLTL1  PO0PO6TLTL1OCCURRENCE >A(4)43260/ C GENERATE UPP< HSTB(4)P RST$(SP$,ST,1)_ \SIB(4)2| fAMB(2)7SI:SI0AM0 pAM0AM0 zHYB(2)7SI:SI2HY0 AM2AM9HYHY4 HY0HY0 HY10HY10 POB(3)2 GOB(3)7POET VARIABLES, VHX$"0123456789ABCDEFGHJKL"C `SP$"AAAABBCCDEEX"f jBA$"ABCDEFGHJKLMNPQRSTUVWXYZ"} tA(X)((4)6)1 ~B(X)A(X)A(X) AL$"IM"   PRODUCE SECTOR (4);"OPEN SECTOR, L50" X132 Y140 4 WORLD \::"TRAVELLER SECTOR GENERATOR ---------------------------------------"" THIS PROGRAM GENERATES WORLD UPP DATA FOR TRAVELLER. COPYRIGHT 1986 GDW."" THIS PROGRAM ORIGINALLY APPEARED IN CHALLENGE MAGAZINE NO. 25." L S     ARCH FOR WORDS OR PATTERNS, AND SAVE THE FILE TO DISK. THE PROGRAM SUPPORTS A PRINTER AND SCREEN OUTPUT."!." THIS PROGRAM IS ESPECIALLY USEFUL IN CREATING COMPUTER INVENTORIES, BIBLIO- GRAPHIES, NAME AND ADDRESS LISTS, AND EVEN A LIST OF CHECKS WARMSTARTS THE PROG.185u.:"INTRODUCTION 0 --------------------------------------".:" ENTER EDIT SORT PRINT SEARCH".k ." FILE 3.1 ALLOWS YOU TO CREATE DISK FILES, ENTER DATA, EDIT THAT DATA, SORT,SE Q ---------------------------------------"*" QUIT BY TYPING Q. UNLESS THE CURRENT FILE WAS SAVED, IT WILL BE LOST AFTER YOU QUIT. YOU CAN, HOWEVER, RECAPTURE THE FILE DATA BY IMMEDIATELY TYPING"::"GOTO 1200"::"(WHICHINSERT A NEW DISK INTO A DRIVE AFTER YOU ALREADY HAVE A FILE IN MEMORY."8':" M = MEMORY FREE. THE UPPER RIGHT HAND CORNER OF THE SCREEN (WHEN AT CENTRAL MENU) SHOWS THE PERCENTAGE MEMORY RE- MAINING AVAILABLE."*185C*:"QUIT 85Z':"SPECIAL FUNCTIONS (C,D,M) S --------------------------------------"'" THERE ARE THREE SPECIAL FUNCTIONS:"$':" C = CATALOG. THE CURRENT DISK CATALOG IS SHOWN."M.':" D = CREATES A DUMMY FILE. THIS IS USEFUL IF YOU ORY IS SEARCHED, AND MATCHES ARE SHOWN TO SCREEN OR PRINTER."<#" IF COLUMN SUMS ARE SPECIFIED, EACH MATCHING FIELD IS SUMMED DURING THE PROCESS. IN SUCH A CASE, SOME DATA WILL BE GARBAGE (THE SUM OF ZIP CODES, FOR EXAMPLE)."'1 FILE IS RUN."-T" ALL OLD DATA IS LOST."6'#185(#:"WORD SEARCH 9 --------------------------------------"H2#" WORD SEARCH ALLOWS A PATTERN OF LETTERS AND NUMBERS TO BE SPECIFIED; THE ENTIRE DATA FILE IN MEM YOU MAY LOSE DATA."?185u@:"RUN NEW FILE 8 --------------------------------------"J" SELECTING OPTION 8 DISPLAYS THE CATALOG. IF THE QUESTION IS ANSWERED YES, THEN A NEW FILENAME IS REQUISTED, AND THAT NEWN BE CHANGED (NAME, FILE LENGTH, NUMBER OF RECORDS, AND FIELD NAMES AND LENGTHS)."l" USUALLY, ONLY NUMBER OF RECORDS AND FILE NAMES ARE CHANGED ONCE DATA IS IN A RECORD."v" DO NOT CHANGE FIELDS OR FILE LENGTH AFTER DATA IS IN A RECORD;DATA.":"RETYPING: "" USE THE RE-TYPE (RIGHT ARROW) KEY TO TRACE OVER EXISTING TEXT, MAKING ONLY NECESSARY CHANGES."W185X:"CHANGE FILE PARAMETERS 7 --------------------------------------"Vb" FILE PARAMETERS CAATA"::10:"]GOTO 1200":9!9&'9 N :DA0 LY1X(2)29# X112I (TA)X(X)MOX:DATA:X12:170X TATAX(X)_ Xk X(2)28q w "THE CORRESPONDING TERRAN DATE IS:" " "; (DA);" "; X$(MO);" "; (TY);" " 90d((IY$,Y1))! jIY((IY$,Y1))4 nIY(IY365)IDE xTRIY365.25R TYTETRb TDTY(TY)k LY0 TA365TD:((TY)4)(TY)4TA366TD:((TY)400)(TY)400TA365TD (TY)4((TY)4)LY1 (TY)400((TY)400)LY0 MO0,30,31,31,30,31,30,31 X( X1123 X$(X)i  JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECp X 2IM0:TE4521.05 Z10 d"IMPERIAL DATE? > ";IY$:(IY$" ",1)"Q"Ā eX14 f(IY$,X,1)"-"YX:X4 gX hIL$IY$ iID^"DATE CONVERTER ---------------------------------------""THIS PROGRAM CONVERTS IMPERIAL DATES TO TERRAN DATES.""VERSION: 156--2537 (18 MAR 1986)"X(12),X$(12) X112 X(X)  31,28,31,30,31   (A$"N",1)"Y"ı9"8100'9"X(X$)C9"X$"0"X0X(X$)55I9"C(X$)n9*X$"0"X0X(X$)55t9*)3GO10)ĺ"RICH. ";48L"(AM1AM6)HY4ĺ"POOR. ";:8V"W8`"HY10ĺ"WATER WORLD. ";y8j"HY0AM1ĺ"DESERT WORLD. ";8t"HY0AM2ĺ"ICE-CAPPED. ";8~"SI0ĺ"ASTEROID BELT. ";8"AM0ĺ"VACUUM WORLD. ";8"9""IS THIS CORRECT? (N/Y) > ";A$:$" ^"7!R$R$" "$7"5:15:R$,7"20b7"AM3AM10HY3HY9PO4PO8ĺ"AGRICULTURAL.";7$"AM4HY4PO5ĺ"NON-AGRICULTURAL.";7."((AM3AM5)AM7AM9)PO8ĺ"INDUSTRIAL. ";78"PO7ĺ"NON-INDUSTRIAL. "8B"(AM6AM8)(PO5PO9)(GO9)(HY8)(HY9)&6!GO0GO5XX176!GO13XX2L6!PO6PO0XX1\6!PO9XX2m6!PO10XX46!ST$"A"XX66!ST$"B"XX46!ST$"C"XX26!ST$"X"XX47!TLX1TLX6Ģ16:30:"WRONG.":17:30:"(";1X;"-"6X;").":R$RR$R$" "?5R!PO22PO212Ģ13:30:"WRONG.":R$R$"^":8550M5\!R$R$" "5f!GO7PO2GO7PO12Ģ14:30:"WRONG.":R$R$"^":85705p!R$R$" "5z!LA7GO2PO7GO12Ģ15:30:"WRONG.":R$R$"^":85905!R$R$" "6!X(SI2)(SI5)(AM4)(AM14 !SI0SI10Ģ10:30:"WRONG.":R$" ^":8480@4!R$R$" "4 !((AMSI)72(AMSI)712)(SI0AM0)Ģ11:30:"WRONG.":R$R$"^":85004*!R$R$" "44!XHY7SI:AM2AM9XX44>!(X2X12)(SI2HY0)Ģ12:30:"WRONG.":R$R$"^":8530 5H!";HY10;"% ";&3 AM9ĺ"FLUID":8410I3 "WATER ";:AM2HY0ĺ"(ICE)"O3 z3 13:1:"POPULATION: ";PO$;" ";PO$(PO)3 14:1:"GOVERNMENT: ";GO$;" ";GO$(GO)3 15:1:"LAW LEVEL : ";LA$;" ";LA$(LA)3 16:1:"TECH LEVEL: ";TL$;" ";TL$(TL)4!LA$:X0:8880:LAX&2 TL$(UPP$,9,1)@2 X$TL$:X0:8880:TLXy2 SI1Ģ10:1:"SIZE: : ";SI$;" ASTEROIDS.":83602 10:1:"SIZE: : ";SI$;" ";SI1600;" KM DIAMETER"2 11:1:"ATMOSPHERE: ";AM$;" ";AM$(AM) 3 12:1:"HYDRO: : ";HY$;" 1X$SI$:X0:8880:SIX"1 PSSI61 AM$(UPP$,3,1)P1 X$AM$:X0:8880:AMXZ1& PAAMn10 HY$(UPP$,4,1)1: X$HY$:X0:8880:HYX1D PO$(UPP$,5,1)1N X$PO$:X0:8880:POX1X GO$(UPP$,6,1)1b X$GO$:X0:8880:GOX1l LA$(UPP$,7,1)2v X$^X 0h0r REACTIONS#0|R1020R2A(1)280>0\04:" WORLD UPP? > ";UPP$0(UPP$)9UPP$UPP$"0":81100UPP$(UPP$,9)0UPP$(UPP$,7)" "(UPP$,1)04:15:UPP$0R$""09580ST$(UPP$,1)0SI$(UPP$,2,1)AK$(2)"AMPHIB"$/AK$(3)"TRIPHIB"8/AK$(4)"FLYING">/"Q/, ANIMAL TYPES^/6AN$(15)j/@X115v/JAN$(X)/T FILTER,INTERMITTENT,GRAZER,GATHERER,EATER,HUNTER,SIREN,POUNCER,KILLER,TRAPPER,CHASER,CARRION-EATER,REDUCER,HIJACKER,INTIMIDATOR0nAW$(X)AW$(X)" "8.xAW$(X)(AW$(X),16)?.XE.T. WOUNDING`.WO(24)l.X124w.WO(X). 1,2,2,2,2,3,2,2,2,4,3,3,2,2,2,2,2,2,2,2,2,2,2,2.X.. ATTRIBUTES.AK$(4).AK$(0)"".AK$(1)"SWIMMING"/AW$(X)-Z TEETH-d HANDS,CLAWS,TEETH,HORNS,HOOVES,STINGER,THRASHER,AS CLUB,AS BLADE,AS BROADSWORD,AS PIKE,AS BODY PISTOL,HORNS & HOOVES,HOOVES & TEETH, CLAWS & TEETH,CLAWS+1,CLAWS+1 & TEETH+1,TEETH+1,HORNS & TEETH,WEAPON,WEAPON,WEAPON,WEAPON,WEA .1,JACK-1,JACK,JACK+1,MESH-1,MESH,MESH+1,CLOTH-1,CLOTH,CLOTH+1,REFLEC-1,REFLEC,REFLEC+1,ABLAT-1,ABLAT,ABLAT+1,COMBAT-1,COMBAT,COMBAT+1,COMBAT+2,COMBAT+3,COMBAT+4,AR$(X)AR$(X)" ",(AR$(X)(AR$(X),10),2X,<AW$(24),FX024-P) +X12+Y120%+AW(X,Y)^+ 13,4,14,5,19,7,15,3,2,2,7,15,16,6,17,18,9,11,10,12+ 0,0,0,5,0,0,0,0,0,5,0,0,9,12,8,11,24,14,17,20+Y+X++ ARMOR TYPES+AR$(24)+X024+AR$(X)+  NONE, NONE-1,NONE,NONE+.Y120*8AS(X,Y)p*B 1,3,6,12,25,50,100,200,400,800,1600,3200,0,6000,12000,24000,30000,36000,40000,44000*L 1,1,1,2,3,4,5,5,6,7,8,8,0,9,10,12,14,15,16,17*V 0,1,2,2,2,2,2,3,3,3,3,4,0,4,5,6,7,7,8,9*`Y*jX*t*~ ARMOR+AW(2,20-4.6,-4.5') 0,0,0,0,0,0,0,0,0,0,0 D) 0,0,0,0,0,0,0,0,0,0,0 `) 0,0,0,0,0,0,0,0,0,0,0|) 0,0,0,0,0,0,0,0,0,0,0) 0,0,0,0,0,0,0,0,0,0,0) 0,0,0,0,0,0,0,0,0,0,0)Y)X)) ANIMAL SIZES AND HITS)AS(3,20))$X13 *2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 c( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 ( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 ) 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,0,0,0,0,0,0,0,-4.6,-4.5@'R -1.3,2.1,2.1,0,0,0,0,0,0,-4.6,-4.5i'\ -1.6,2.2,2.1,0,0,0,0,0,0,-4.6,-4.5'f 0,0,0,0,0,0,0,0,0,0,0'p 1.1,2.2,2.2,0, 0,0, 0,0,0,-4.6,-4.5'z 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5+( 1.2,1.0,0, -4 .6,-4.5,-4.3T&  0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 &* 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3&4 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 &> 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3'H 1.1,2.1,14,12,15,13,12,13,14,15,13,14,15'%Y.%X4%M% SPECIAL ATTRIBUTES\%AA(24,12)h%X124t%Y212%AA(X,Y)% 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 %  0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 & 0,0,0,0,0,0,$"N",1)"Q"Ā$T124ĂT)$T124Ā3$30009$R$X ANIMAL TYPES TABLE`$bTY(4,13)k$lX14w$vY013$TY(X,Y)$ 1,1,1,2,2,2,2,3,3,3,3,3,3,3$ 4,4,5,4,5,4,6,6,6,4,5,6,4,4$ 7,8,7,8,9,10,8,11,11,11,9,11,7,11 % 12,12,13,#F"TYPE ":17+#P"WEIGHT ":4@#Z"HITS ":5V#d"ARMOR ":11k#n"REACTIONS ":8}#x(4);"CLOSE"#T1246580#PRNTR16580#"SAVE THIS FILE? (N/D/P/Q) > ";A$:(A$"N",1)"D"6330#(A$" ",1)"P"6010$(A(4);"OPEN ";FI$;", L60"7"(4);"WRITE ";FI$;",R0"?"11K"X111j"(4);"WRITE ";FI$;", R";Xw"A$(X1)~"X" (4);"CLOSE""(4);"OPEN ";FI$;"@""(4);"WRITE ";FI$;"@""("27:11:59:"DIE ":2#<"QTY ":2(D,3)4A$(D)A$(D)" F"(A(D,11))" A"(A(D,10))" S"(A(D,12)):6260!jA$(D)A$(D)" A"(A(D,10))" F"(A(D,11))" S"(A(D,12))!t!~!D!!(T4)T4ĺ(140);!(4);"PR#0"!PRNTR16530!FI$UPP$" "(T$(T),3)"12); 8Z BD10A$(D)"10 EVENT ":6260 LA$(D)("0"(D),2)" "("0"(A(D,1)),2)" "M$(" "(A(D,4)),5)" " VA$(D)A$(D)("0"(A(D,5)),2)"/"("0"(A(D,6)),2)" "AR$(A(D,9))" "I!`A);Q10);Q;"KG ";-QA(D,5):Q10);Q;"/";IQA(D,6):Q10);Q;" ";[AR$(A(D,7));QA(D,8):Q100);Q10);Q;" ";AW$(A(D,9));" ";$A(D,3)4ĺ" F";A(D,11);" A";A(D,10);" S";A(D,12);:6200 ."A";A(D,10);" F";A(D,11);" S";A(D,HT HITS ARMOR WOUNDS & WEAPONS REACTIONS"=D212G" ";ZD10);D;" ";wA(D,1)10);A(D,1);" ";M$AN$(A(D,3)):A(D,2)0M$AK$(A(D,2))" "M$M$M$" ":M$(M$,17)M$;QA(D,4):Q10000);Q1000);Q1001R13:R2R22:R3R33:R31R31NQ13R1R13:R2R22:R3R34:R31R31]A(D,10)R1lA(D,11)R2{A(D,12)R3DpPRNTR1Ċ1:(18);zT$(T);" TERRAIN";30);"SIZE= ";PS;" ATMOSPHERE= ";PA1"DIE QTY ANIMAL TYPE WEIG:R2R23:R3R32:R32R32EFQ10R10:R2R22:R3R35:R30R30nPQ7R10:R2R23:R3R34:R30R30ZQ9R1R10:R2R23:R3R33:R31R31dQ14R1R11:R2R22:R3R34:R31R31nQ15R1R12:R2R21:R3R34:R31R31!xQ12R:R2R23:R3R34:R31R31G Q3R1R12:R2R21:R3R32:R32R32sQ4R1R13:R2R22:R3R33:R31R31Q6R1R10:R2R22:R3R34:R31R31(Q5R1R10:R2R23:R3R33:R31R312Q8R10:R20:R3R34:R31R31<Q11R1015QQ2SI16QQ3+SI17QQ4<SI18QQ4MSI19QQ5^SI20QQ6kQ1Q1|Q999Q999A(D,8)Q REACTIONSR1A(1):R2A(1):R3RNA(1)QA(D,3)Q1R10:R2R22:R3R35:R30R30Q2R1R13Q1Q1Q20Q20)A(D,9)AW(1,Q):QWO(A(D,9))FQA(Q)Z$SI3QQA(2)n.SI3QQA(1)8SI8QQA(1)BSI9QQA(2)LSI10QQA(3)VSI11QQA(4)`SI12QQA(5)jSI13ĺ"":tSI14QQ2 ~SI1\A(D,6)E2f ARMOR;pQA(2):Q12Q1QA(2)6KzCA1QQ2[CA3QQ1kCA4QQ1xQ1Q1Q20Q20A(D,7)AW(2,Q)A(D,2)2A(D,7)0 WEAPONQA(2)CA3QQ8CA2QQ4CA1QQ31T2PS8QQ1$PS4QQ11Q1Q1QQ13QA(2)Q1T26:4550`Q20Q20sA(D,4)AS(1,Q)D1AS(2,Q) D2AS(3,Q)SIQ E10:E20*X1D1:E1E1A(1):X4D204680>X1D2:E2E2A(1):XHRA(D,5)E QA(2)&PS8QQ110PS5PS4QQ1A:PS4QQ2QDPA7QQ2aNPA6QQ1pXQ12Q12}bQ1Q1lQ1AA(T,Q)vA(D,2)((Q1))Q21Q104540Q10Q21Q1Q1(Q1)Q1Q110Q1Q1Q2QA(2)Q11QA(2)"CA3TT13QA(1)9CA4TT0QA(1)PCA4TT1QA(2)gCA4TT2QA(1)~CA4TT3QA(1)CA4TT4QA(2)CA4TT5QA(1)CA4TT7QA(1)CA4TT10QA(2)CA4TT13QA(1)A(D,1)QCA1TT9QA(2)*JCA1TT10QA(3)HTCA1TT12QA(2)A(2)f^CA1TT13QA(3)A(2)}hCA2TT4QA(2)rCA2TT7QA(1)|CA2TT10QA(1)CA2TT11QA(1)CA3TT4QA(1)CA3TT8QA(3) CA3TT12 ".";CA0(D2D4CA4:D3D5CA2PD6D7D8CA1hD9D11D12CA3xTTA(2)T1TT0TT0TT13TT13A(D,3)TY(CA,TT)Q1"CA1TT0QA(1),CA1TT8QA(1)6CA1TT11QA(4)@1ĺ"ANIMALS REQUIRE AN ATMOSPHERE. > ";A$:31405b dl "P= PRINTER. D= DISK. DEFAULT IS SCREEN."jv  "OUTPUT? (S/D/P) > ";A$:(A$"N",1)"P"PRNTR1 (A$"N",1)"D"PRNTR1 T04000 T124 T124 PRODUCE TABLED2ES."  2 "TERRAIN TYPE? (1-24,SET,Q) > ";T$@ T$"Q"Āc& (T$" ",3)"SET"T0:31400 (T$)1(T$)24ĺ"":3000: T(T$)D :"BEASTIARY ---------------------------------------"N 8080/X PA1PSSTIARY ---------------------------------------"S _ T112 T2:1:T10);T;". ";T$(T);:20:T1210);T12;".";T$(T12) T  "ENTER TERRAIN TYPE BY NUMBER; 'SET' PRODUCES A COMPLETE SET OF 24 TABL,-4,-2 P*RUINS,-3,0,CAVE,-4,1,CHASM,-1,-3,CRATER,0,-1,ARCTIC,-1,-1,BOG,-5,-5Z4".";d>7000nH".";xR7120\".";f7440p".";z7550".";7650".";7830".";7900".";7980 M "BEAT)  T CLEAR,3,0,PRAIRIE,4,0,ROUGH,0,0,BROKEN,-3,-3,MOUNTAIN,0,0,FOREST,-4,-4,JUNGLE,-3,-2,RIVER,1,1,SWAMP,-2,4,MARSH,0,-1  DESERT,3,-3,BEACH,3,2,SURFACE OCEAN,2,3,SHALLOWS OCEAN,2,2,DEPTHS OCEAN,2,4,BOTTOM OCEAN,-4,0,SEA CAVE,-2,0,SARGASSO :" THIS PROGRAM PRODUCES A TRAVELLER ENCOUNTER TABLE FOR A GIVEN TERRAIN TYPE ON A WORLD WITH SPECIFIED SIZE AND ATMOSPHERE." :" THE STANDARD TRAVELLER RULES ARE USED." :" WORKING..." T124T$(T),T1(T),T2(ERIAL,ABOVE AVERAGE,ABOVE AVERAGE,TECH MAX,MAGIC,MAGIC,MAGICC Xp  T$=TERRAIN TYPE T1=TYPE DM, T2=SIZE DM  T=TERRAIN TYPE NO.  U=TABLE TYPE (1 TO 4) ::"BEASTIARY ---------------------------------------"ONS,TEN BILLIONS,HUNDRED BILLIONS,TRILLIONS,TEN TRILLIONS,HUNDRED TRILLIONSR X^ X018j TL$(X)<  STONE AGE,BRONZE AGE,1400-1700,1700-1860,1860-1900,1900-1939,1940-1969,1970-1979,1980-1989,1990-2000,INTERSTELLAR,AVERAGE IMPERIAL,AVERAGE IMPIZED,CIVIL SVC BUREAU,IMPERS BUREAU,CHARISMATIC DICT,NON CHARISMATIC LDR,CHARISMATIC OLIG,RELIGIOUS DICT,E,Fs jX tX015 ~PO$(X)K  NONE,ONES,TENS,HUNDREDS,THOUSANDS,TEN THOUSANDS,HUNDRED THOUSANDS,MILLIONS,TEN MILLIONS,HUNDRED MILLIONS,BILLI NONE,TRACE,VERY THIN TAINTED,VERY THIN,THIN TAINTED,THIN,STANDARD,STANDARD TAINTED,DENSE,DENSE TAINTED,EXOTIC,CORROSIVE,INSIDIOUS,D,E,F BX LX015 VGO$(X)l ` NONE,COMPANY,PARTICIP DEMO,SEL-PERPET OLIGARC,REP DEMO,FEUDAL TECHNO,COLONY,BALKANJ1 VERSION OF 1 JAN 1986JAM$(15),GO$(15),TL$(30),PO$(15),LA$(21)PsA(13,12),T$(24),T1(24),T2(24)A$(12)A(X)((((4)6)1)(X0))((((4)6)1)(X1))((((4)6)1)(X2))((((4)6)1)(X3))$X015.AM$(X) 8                               (TA)X(X)MOX:DATA:X12:1700 TATAX(X)7 XC X(2)28I O x "THE CORRESPONDING TERRAN DATE IS:"~ " "; (DA);" "; X$(MO);" "; (TY);" " 90dC(IY365)ID xTRIY365.25* TYTETR: TDTY(TY)C LY0 TA365TD:((TY)4)(TY)4TA366TD:((TY)400)(TY)400TA365TD (TY)4((TY)4)LY1 (TY)400((TY)400)LY0 MO0:DA0 LY1X(2)29 X112! X$(X)A  JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECH X\ 2IM0:TE4521.05d Z10 d"IMPERIAL DATE? > ";IY$:(IY$" ",1)"Q"Ā eX14 f(IY$,X,1)"-"YX:X4 gX hIL$IY$ iID((IY$,Y1)) jIY((IY$,Y1)) nIY^"DATE CONVERTER ---------------------------------------""THIS PROGRAM CONVERTS IMPERIAL DATES TO TERRAN DATES."X(12),X$(12) X112 X(X) 31,28,31,30,31,30,31,31,30,31,30,31X X112  Š٠ŠԠӠҠӠ ŠưӱԠҠ˫ƹӲҠȫưӱŠƵӱҠԭƲӲǠŠԭƵӱҠȭƱӲҠǠέԭƷӱҠ˫ƳӱҠȭƶӱҠ   T  TFROM YOUR CHECK- BOOK."g!." SAMPLE DATA FILES FOR VARIOUS USES AREON THE DISK. CHECK THE CATALOG."p!2185ARCH FOR WORDS OR PATTERNS, AND SAVE THE FILE TO DISK. THE PROGRAM SUPPORTS A PRINTER AND SCREEN OUTPUT."!." THIS PROGRAM IS ESPECIALLY USEFUL IN CREATING COMPUTER INVENTORIES, BIBLIO- GRAPHIES, NAME AND ADDRESS LISTS, AND EVEN A LIST OF CHECKS WARMSTARTS THE PROG.185u.:"INTRODUCTION 0 --------------------------------------".:" ENTER EDIT SORT PRINT SEARCH".k ." FILE 3.1 ALLOWS YOU TO CREATE DISK FILES, ENTER DATA, EDIT THAT DATA, SORT,SE Q ---------------------------------------"*" QUIT BY TYPING Q. UNLESS THE CURRENT FILE WAS SAVED, IT WILL BE LOST AFTER YOU QUIT. YOU CAN, HOWEVER, RECAPTURE THE FILE DATA BY IMMEDIATELY TYPING"::"GOTO 1200"::"(WHICHINSERT A NEW DISK INTO A DRIVE AFTER YOU ALREADY HAVE A FILE IN MEMORY."8':" M = MEMORY FREE. THE UPPER RIGHT HAND CORNER OF THE SCREEN (WHEN AT CENTRAL MENU) SHOWS THE PERCENTAGE MEMORY RE- MAINING AVAILABLE."*185C*:"QUIT 85Z':"SPECIAL FUNCTIONS (C,D,M) S --------------------------------------"'" THERE ARE THREE SPECIAL FUNCTIONS:"$':" C = CATALOG. THE CURRENT DISK CATALOG IS SHOWN."M.':" D = CREATES A DUMMY FILE. THIS IS USEFUL IF YOU ORY IS SEARCHED, AND MATCHES ARE SHOWN TO SCREEN OR PRINTER."<#" IF COLUMN SUMS ARE SPECIFIED, EACH MATCHING FIELD IS SUMMED DURING THE PROCESS. IN SUCH A CASE, SOME DATA WILL BE GARBAGE (THE SUM OF ZIP CODES, FOR EXAMPLE)."'1 FILE IS RUN."-T" ALL OLD DATA IS LOST."6'#185(#:"WORD SEARCH 9 --------------------------------------"H2#" WORD SEARCH ALLOWS A PATTERN OF LETTERS AND NUMBERS TO BE SPECIFIED; THE ENTIRE DATA FILE IN MEM YOU MAY LOSE DATA."?185u@:"RUN NEW FILE 8 --------------------------------------"J" SELECTING OPTION 8 DISPLAYS THE CATALOG. IF THE QUESTION IS ANSWERED YES, THEN A NEW FILENAME IS REQUISTED, AND THAT NEWN BE CHANGED (NAME, FILE LENGTH, NUMBER OF RECORDS, AND FIELD NAMES AND LENGTHS)."l" USUALLY, ONLY NUMBER OF RECORDS AND FILE NAMES ARE CHANGED ONCE DATA IS IN A RECORD."v" DO NOT CHANGE FIELDS OR FILE LENGTH AFTER DATA IS IN A RECORD;DATA.":"RETYPING: "" USE THE RE-TYPE (RIGHT ARROW) KEY TO TRACE OVER EXISTING TEXT, MAKING ONLY NECESSARY CHANGES."W185X:"CHANGE FILE PARAMETERS 7 --------------------------------------"Vb" FILE PARAMETERS CAS USEFUL WHEN ENTERING LONG ";Y"REPETITIVE LISTS OF DATA. / EXITS TO THEMAIN MENU."" DURING INPUT, THE CURRENT CONTENTS OF A FIELD ARE SHOWN. RETAINS THAT DATA. ENTERING ANYTHING ELSE DESTROYS THAT DATA AND REPLACES IT WITH THE NEW 6 --------------------------------------"z" FILE INPUT TAKES NEW DATA BY FIELDS, WITH COMMAS AND COLONS ACCEPTED. AS WITHEDITING, #NN TAKES YOU TO A SPECIFIC RECORD. @ DUPLICATES THE PREVIOUS RECORDIN THE CURRENT RECORD, WHICH I--------------------------------"" FILES SHOULD BE SAVED TO DISK AFTER BEING EDITED. SAVING TO DISK OVER-WRITESTHE CURRENT DATA WITH NEW DATA. IF THERE IS NO CURRENT DATA FILE, ONE IS CREATED."" o185;p:"INPUT DATA TENTS CAN BE PRINTED OUT TO SCREEN AND PRINTER. THIS PROGRAM IS CONFIGURED FOR THE EPSON MX-80 FOR HARD-COPY.":" THIS PROGRAM IS CONFIGURED FOR THE EPSON MX-80 FOR HARD-COPY."185!:"SAVE FILE TO DISK 5 ------ (WITHOUT CHANGING THE OTHERS) AND A BYTE OTHER THAN THE FIRST. THE FIELD POSITIONS ARE DISPLAYED TO HELP DECIDE ON SORT POSITIONS."185:"PRINT TO SCREEN OR PRINTER 4 --------------------------------------"t" FILE CON------------------------" " FILES MAY BE SORTED. DEFAULT SORTS HANDLE ALL RECORDS IN THE FILE, AND SORTALPHABETICALLY BEGINNING WITH THE FIRST BYTE OF THE RECORD." " SPECIAL PARAMETERS ALLOW YOU TO SPECIFY A RANGE OF RECORDS TO SORT XAMPLE, IF ON RECORD 3, AND YOU TYPE #3, YOU RETURN TO THE FIRST FIELD OF RECORD 3 WITHOUT CHANGES."" * CURRENT RECORD AND FILLS IT WITH BLANKS. / EXITS TO THE MAIN MENU." 185 :"FILE SORT 3 --------------CORD BY TYPING #N (WHERE N IS A RECORD NUMBER). FOR EXAMPLE, TYPING #34 TAKES YOU TO RECORD 34 TO EDIT IT. ANY CHANGES YOU MADE TO THE CURRENT RECORD ARE LOST; ";"BY GOING TO THE CURRENT"g"RECORD, YOU CAN ELIMINATE ANY MISTAKEN INPUT (FOR E 2 --------------------------------------"" A FILE IN MEMORY CAN BE EDITED TO CHANGE, RE-ENTER, OR DELETE DATA. NO CHANGES ARE PERMANENT UNTIL SAVED TO DISK."" WHEN EDITING A FILE, YOU CAN GO TO A NEW REE IS DATA IN THE FILE ON THE DISK, OPTION 1 READS THE DATA INTO MEMORY. THE DATA ON DISK REMAINS UN- CHANGED UNTIL THE FILE IS SAVED WITH OPTION 5." :" THERE IS A SINGLE BLANK BETWEEN EACH FIELD IN A RECORD." 185F:"FILE EDIT------------------" " THIS PROGRAM SAVES THE FILE DATA TO DISK AS A RANDOM ACCESS TEXT FILE, AND SAVES PARAMETERS FOR THE FILE (LENGTH, NUMBER OF RECORDS, FIELD NAMES AND LENGTHS) IN A SEQUENTIAL TEXT FILE WITH THE SUFFIX @." " IF THERz#?      Π   ½ ҠϠ ٠3Ա Ҡ2 Ӡ ҮҠŠԠ1 " K180ĺ(18);(9);"80N";?"K179ĺ(15);(9);"132N";""LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L= "K1"; R="K").";"(L0:L10"2"<I1N"FLLL(I)1:L131L1132N1I1:IN:5210"PL1L"ZI"d" ";"nI1N#xI1K!LL/!I100);I10);I;". ";A$(I)9!5800E!LLLL1m!LL21ĺ:"NEXT PAGE? > ";A$:LL1:!(A$"Q",1)"Q"IK!I!!"RETURN TO MENU? (Y/N/S) > ";A$:1955!A$"S"İ5900!A$"N"5050!1210! PRINT-OUT"I " IF PRINTER IS CHOSEN, DEFAULT IS A MULTI-COLUMN PRINT-OUT."O s " S= ONE COLUMN HARD-COPY.": " DO YOU WANT HARD COPY? (N/Y/S) > ";A$:1955:B$A$:B$"Y"PRNTR1 B$"S"PRNTR1:5110 PRNTR15570  LL1!0^A$(Y)A$(A):A$(A)LOW$#hA1rK24230R|A10);A100);A;". ";A$(A)Xr"SORT FINISHED. ";A$x:3:" ----------- PRINT OUT FILE ---------- ":Q1N:SS(Q)0:SM(Q)0:QPRNTR0" DEFAULT IS SCREEN DISPLAY." ( 1-";K110);K1100);K11000);K1;") >";:" ";A$:(A$)1(A$)K1K2(A$)UbAMP1zA$(A)""A$(A)" ""LOW$A$(A),Y06BA1P@(A$(B),K2)(LOW$,K2)LOW$A$(B):YBJBTA10);A100);A;". ";LOW$:LOW$A$(A)42011000);K1;") >";:" ";A$:(A$)K1(A$)0M(A$)GMK14080" HIGHEST ITEM? (";M110);M1100);M11000);M1;"-";K10);K100);K1000);K;") >";:" ";A$:(A$)K(A$)MP(A$)FF1:1745:FF0O" FIELD SORT POSITION?  3020 * J:3:" ------------ FILE SORTER ------------ "]:M1:PK:K21kK24120"SPECIAL SORT PARAMETERS? (N/Y) > ";A$:1955:A$"Y"41206" LOWEST ITEM? (";M10);M100);M1000);M;"-";K110);K1100);K):M$(I)(A$,B(I),L(I)):32709 (IN$,1)"/"IN:3350 TY(I)1IN$(BL$,20)IN$:IN$(IN$,L(I)):I6:13:IN$:M$(I)IN$:3270 M$(I)IN$BL$ M$(I)(M$(I),L(I)) I A$(A)"" I1N A$(A)A$(A)M$(I)" " I  AA1I)) b Il I1N(v 12:I6:">";2 1500X (IN$,1)"#"A((IN$,2)):3050 (IN$,1)"*"A$(A)(93)(BL$,K11):3320 (IN$,1)";"N1((IN$,2)):I6:13:(A$,B(I),L(I)):N10N1N1IN1:3190 IN$""ĢI6:13:(A$,B(I),L(I) A13135.< B12:(A$(A1))BB(A$(A1))P> 22:1:"PREV: ";(A$(A1),B)^? AK3140@ A$(A1)""A$(A1)(C$,K1)A B12:(A$(A1))BB(A$(A1))C 22:20:"NEXT: ";(A$(A1),B)D A$A$(A)N I1NX 6I:L$(I);": ";(A$,B(I),L(O MENU." AKİ73302 K1ĺ"NO FILE.":3350D A1AK3010O A(A)d A(0.9K)ĺ"";o AKĞv 5& "RECORD NO. ";A100);A10);A;"."0 1 2 A$(A)""A$(A)(C$,K1)3 A131354 A$(A1)""A$(A1)(C$,K1): ;D$;"CLOSE "F$#(4);"NOMONICO".216,04j :3:" -------------- EDIT FILE ------------ ":r A1 A$(1)""A$(1)(C$,K1) A$(K)""A$(K)(C$,K1) 18:"#N GOTO THAT RECORD; * KILL RECORD; ;N GOTO THAT FIELD; / RETURN TD "F$" FROM DISK"+D$;"OPEN "F$",L"K113 I1A*IK2200X4D$;"READ "F$",R"Ic>2150mH1505MIN$""IN$(BL$,K1)RERR2170\2180fERR(222):ERR5Ħp"ERROR ";ERR:zKI1:2200A$(I)IN$II1:2090EAD FILE ----------------" l" READ FROM DISK. NEW DATA IS READ FROM THE DISK UNDER FILENAME: ";F$" THE DATA CURRENTLY IN MEMORY IS LOST.":" READ FROM DISK? (N/Y) > ";A$1955A$"Y"ı(4);"MONICO" 15 "REAY(I)0:(L$(I),1)"="TY(I)19 A$" ":TY(I)1A$"N"!" ";B(I)100);B(I)10);B(I);" ";E(I)100);E(I)10);E(I);" ";A$0I5FF119507:"RETURN TO MENU? > ";A$:A$A$" ":A$(A$,1):"----------- R$"@"@10:1:998:"----------- FIELD PARAMETERS ----------"K B(1)1x"NO FIELD LEN BEGIN END TYPE"I1N11I:I10);I;" ";L$(I);" ";L(I)100);L(I)10);L(I);" ";I1B(I)E(I1)2E(I)B(I)L(I)1T);K110);K1O26:"CREATE NEW HEADERS? (N/Y)> ";A$:1950:A$"Y"İ1600:8000c2FF1:1685:FF0i2o2(#22#" ------------ RUN NEW FILE ----------- "2<#2F#(4);"/"2P#2Z#"READY TO RUN NEW FILE? ";A$2d#A$"Y"12102n#"3#:" ----GE NO. OF RECORDS? > ";K100);K10);Kc15:" ";K1100);K110);K115:"CHANGE FILE LENGTH? > ";K2$:K2$""81401(K2$)1(K2$)250K1(K2$)1K1(K2$)8120 25:"CHANGE FILE LENGTH? > ";K1100E? > ";F1$:F1$""806010iF1$"/"8170<0rF$F1$e0|3:"CHANGE FILENAME? > ";F$04:" ";K100);K10);K04:"CHANGE NO. OF RECORDS? > ";F1$:F1$""81000A(F1$):AZ80700KA)14:"CHAN3:"END-OF-FILE: LAST RECORD= ";Zf/23:"END-OF-FILE: LAST RECORD= ";A$:R(A$):RKRZKR:1685t/23:958z//@/J:"---------- CHANGE PARAMETERS ---------"/TFF1:1745/^3:" ";F$0h3:"CHANGE FILENAMA0A100B$"-."A1$2.A100A0A$"."A1$b.(A)100A2$(A$,(A$)2):A$A2$"."A1$t.A0A$".00".A100A$"-"A$..:"---------- STATISTICAL DATA ----------"..I1K.5800.I.5900.X.!/2(13)-A$(A)-A)-D$;"CLOSE "F$?-FL1FL0:F$F2$T-(4);"NOMONICO"Z-`-d{-eA1E7A$(A):6595-fA$""-nA(A100.05)100:AA100-x((A10)(A0))((A10)(A0))A$"0"((A)):6540-A$((A))-A1$(A$,2).WHAT FILE? > ";F1$:F1$""60191,~F1$F$6019D,F2$F1$:F$F1$S,1685:FL1_,D$(4)p,D$;"MONICO"x,15,D$;"OPEN "F$", L"K11,AK0K,D$;"WRITE "F$", R"A,(A$(A))K1A$(A)(A$(A),K1)-(A$(A),1)(13)A$(A)A$(A)TA TO AN NEW (DIFFERENT) FILENAME AS A BACKUP. THE NEW FILENAME CANNOT BE AN EXISTING FILE AS THE CURRENT CONTENTS OF THE FILE ARE LOST.":+y:" SAVE TO DISK? (N/Y/S) > ";A$::1955:K01+zA$"S"6013+{A$"Y"6019+|6100 ,}FL0:"I *:*;PRNTR5960#*>1850)*H_*p:3:" ------------ SAVE TO DISK ----------- ":*u" SAVE TO DISK. CURRENT DATA IS SAVED TOTHE DISK UNDER FILENAME: ";F$*w" PREVIOUS DATA UNDER THAT NAME IS DESTROYED."+x" S ALLOWS SAVING DA:D(CK)()+AD:6500:36,39(A$):A$^),PRNTR1A(MX(I)MN(I))1:6500:36,48(A$):A$)-PRNTR1AMN(I):6500:36,57(A$):A$).PRNTR1AMN(I):6500:36,66(A$):A$)/PRNTR1AD(SM(I)K)100:6500:36,74(A$):A$;"%")3)4*9G.... STD DEV.";E(PRNTR1ĺ" RANGE... MIN..... MAX..... CRV....."T(PRNTR0ĺ_(I1Ny( (L$(I),1)"="5940(%I10);I;". ";L$(I);" ";((ASM(I):6500:36,22(A$):A$()ASM(I)K:6500:36,30(A$):A$ )*ASS(I):BSM(I)2K:C(AB)(Q),L(Q)))#'I1MN(Q)A:MX(Q)A='FR1MN(Q)A:MX(Q)Ad'(A$(I))B(Q)SM(Q)SM(Q)0:5830v'SM(Q)SM(Q)A'SS(Q)SS(Q)(A2)'AMX(Q)MX(Q)A'AMN(Q)MN(Q)A'Q'' ' :"COLUMN SUMS: "("NO FIELD = SUM.... AV&0A210);A2100);A2;" ";6&:A3((132(A15))A1)K&DA3K15A3K15^&X(A$(A2),A3);y&bA3((A$(A2),A3)));&lB&m&n(LL60)LL60ĺ(140);&qA&wI1K&x5800&yI&{5900&0&&&Q1N 'A((A$(I),B(9);"132N";S%"LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L="K1"; R="K")."Y%s%A1((130K1).99999)%(A1(K15))130A1A11:5622%LL0%TT((KA1).999999)%A1TT% LLLL1%B1A1%A2(BTTTTA)%&A2K5740;$" ";$V1N>$"L(V)10ĺL$(V);:L(V)9);" ";W$,L(V)10ĺL$(V);" ";x$6L(V)10ĺ(L$(V),L(V));" ";$@V$J$TI$^" ";$ $K45ĺ(140);$5900$(140);$0$$ PRINT-OUT $1$(15);%L(I)10ĺL$(I);:L(I)9);4#L(I)10ĺL$(I);" ";U#L(I)10ĺ(L$(I),L(I));" ";\#Ib#m#I1Kw#5800#I100);I10);I;". ";#(A$(I),L1)#K1132ĺ(A$(I),L11):I30(I30)ĺ(140);:5460#I60(I60)5460$(140)------------------------"" SYSTEM SURVEY PROVIDES PROGRAMS TO HELP IN THE PRODUCTION AND ANALYSIS OF WORLDS AND STAR SYSTEMS."" ";::"UPP ANALYSIS:";::" ALLOWS INPUT OF A UPP AND TELLS IF IT CONFORMS TO TRAVELLER RULES."q" ";DROYNE VARGR "  " IN ADDITION, A WORD ANALYZER ALLOWS A LANGUAGE SAMPLE TO BE INPUT, AND THEN PRODUCES WORDS USING THE SAME LETTER FREQUENCIES AS THE SAMPLE."185:"SYSTEM SURVEY ---------------5Z :"LANGUAGE ---------------------------------------" " LANGUAGE PROVIDES A WORD GENERATOR WHICH PRODUCES WORDS IN THE FOLLOWING LANGUAGES:"  " ASLAN K'KREE ZHODANI VILANI FOR ALL DEFINED TERRAIN TYPES ON ALL POSSIBLE WORLDS IN TRAVELLER."j " TWENTY-FOUR TERRAIN TYPES." " SPECIFIC TABLES FOR ANY WORLD (MINIMUMSIZE 1+, ATMOS 1+)." " ANIMAL ENCOUNTER TABLES CAN BE SAVED TO DISK OR SENT TO PRINTER." 18T- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO CARRY MESSAGES THROUGH IT."q 185 :"BEASTIARY ---------------------------------------"F " BEASTIARY PROVIDES ANIMAL ENCOUNTER TABLES ALL THE ROUTINE WORK OF INTERSTELLAR EXPLORATION, TRAVEL, TRADE AND COMMERCE TO BE HANDLED BY COMPUTER." " TRADER SHOWS WHAT WORLDS CAN BE REACHEDAND WHAT THEY WILL PROBABLY PROVIDE IN THE WAY OF PROFITS."h " TRADER PRESENTS A CHALLENGE TO PROFI(A$) BB1:A$" "AB) A0BA7 A$"/"ĀF B012000X A$"0"12000x A1000,2000,3000,4000,5000 A$"Q"11000 20 :"TRADER --------------------------------------"i " TRADER ALLOWS GRAMS ARE OFFERRED." A- F" 1. TRADER."C P" 2. BEASTIARY."X Z" 3. LANGUAGE."r d" 4. SYSTEM SURVEY." n" 5. ORDERING." B1 20 :"MORE DATA ON WHICH DISK? (/END, 0=INTRO) > ";A$ A$A$" ":A$(A$,1) AW  ADVERTISEMENTS:<"GDW TRAVELLER PROGRAMS"\(:"COPYRIGHT 1985 GDW INC"2:" GDW OFFERS FOUR DISK-BASED PROGRAM SETS FOR TRAVELLER. ALL ARE INTENDED AS REFEREE-AIDS AND FOLLOW THE TRAVELLERRULES." <:" THE FOLLOWING PRO   S PARAMETERS AND CONTINUE."B8\&"YOU MUST DEFINE THE FILE FIRST."8f&N1:K10:K110:L$(1)"ITEM ":L(1)8:1685:8000:118085:8000:1180:98&8 N7%SU$"Y"97307%5900"7&0E7 &"RETURN TO MENU? (Y/N) > ";A$\7&1955:A$"N"9200b7 &w7H& ERROR TRAPPING7M&ER0(222)5ER1:98157R&"ERROR #";(222);" AT LINE ";(218)(219)256:7W&"FILE: ";F$;" IS BEING CREATED."8Y&"CHECK IT;". ";6X%(A$(I),L1)Q6b%K1132ĺ(A$(I),L11):I130(I130)ĺ(140);:9610k6l%I160(I160)9610x6v%(140);6%" ";6%I6%" ";6% 6%:6%FR0ĺ"NO RECORDS FOUND WITH ";B$6%FR0ĺFR;" RECORDS FOUND WITH ";B$6%:I1N-5$LLL(I)1:L131L1132IN:938065$L1L=5$IC5$L5$FR0W5$I1Kg5$N2(A$(I))5%FL0FRFR1:FL05%FL05%N41N2N35&%(A$(I),N4,N3)B$FL1:N4N2N350%N45:%FL096105D%I1I115I%58006N%I100);I10);I$"COLUMNS SUMMED? (N/Y) > ";A$:1955:A$"Y"SU$"Y"l46$"HARDCOPY? (N/Y) > ";A$:1955:A$"Y"9320r4@$y4J$14T$K180ĺ(18);(9);"80N";4^$K179ĺ(15);(9);"132N";4h$:"STANDARD FILE: ";F$4r$"ENTRIES WITH: ";B$4|$L0:L10:5$-------- CATALOG ----------------"(3#63#(4);"/"@3#1850p3#:"------------ WORD SEARCH -------------"~3#FR0:FL03$:"SEARCH FOR WHAT WORD? > ";B$3$B$""92003$B$"/"ı3"$N3(B$)3'$Q1N:SS(Q)0:SM(Q)0:MN(Q)0:MX(Q)0:Q54,------------------------" " FILES MAY BE SORTED. DEFAULT SORTS HANDLE ALL RECORDS IN THE FILE, AND SORTALPHABETICALLY BEGINNING WITH THE FIRST BYTE OF THE RECORD." " SPECIAL PARAMETERS ALLOW YOU TO SPECIFY A RANGE OF RECORDS TO SORT XAMPLE, IF ON RECORD 3, AND YOU TYPE #3, YOU RETURN TO THE FIRST FIELD OF RECORD 3 WITHOUT CHANGES."" * CURRENT RECORD AND FILLS IT WITH BLANKS. / EXITS TO THE MAIN MENU." 185 :"FILE SORT 3 --------------CORD BY TYPING #N (WHERE N IS A RECORD NUMBER). FOR EXAMPLE, TYPING #34 TAKES YOU TO RECORD 34 TO EDIT IT. ANY CHANGES YOU MADE TO THE CURRENT RECORD ARE LOST; ";"BY GOING TO THE CURRENT"g"RECORD, YOU CAN ELIMINATE ANY MISTAKEN INPUT (FOR E 2 --------------------------------------"" A FILE IN MEMORY CAN BE EDITED TO CHANGE, RE-ENTER, OR DELETE DATA. NO CHANGES ARE PERMANENT UNTIL SAVED TO DISK."" WHEN EDITING A FILE, YOU CAN GO TO A NEW REE IS DATA IN THE FILE ON THE DISK, OPTION 1 READS THE DATA INTO MEMORY. THE DATA ON DISK REMAINS UN- CHANGED UNTIL THE FILE IS SAVED WITH OPTION 5." :" THERE IS A SINGLE BLANK BETWEEN EACH FIELD IN A RECORD." 185F:"FILE EDIT------------------" " THIS PROGRAM SAVES THE FILE DATA TO DISK AS A RANDOM ACCESS TEXT FILE, AND SAVES PARAMETERS FOR THE FILE (LENGTH, NUMBER OF RECORDS, FIELD NAMES AND LENGTHS) IN A SEQUENTIAL TEXT FILE WITH THE SUFFIX @." " IF THER"10000* A$"R"ĺ(4);"RUN FILE 2.1.1"9 B012000K A$"0"12000 A1000,2000,3000,4000,5000,6000,7000,8000,9000 A9260 A910000,11000 A$"Q"11000 20 :"DISK READ 1 --------------------UN NEW FILE."% " 9. WORD SEARCH."C " S. SPECIAL FUNCTIONS."L B1T 20 :"INSTRUCTIONS FOR WHICH FUNCTION? (/=END, R=RUN FILE 3.1, 0=INTRO) > ";A$ A$A$" ":A$(A$,1) A(A$) BB1:A$" "AB A$"/"Ā A$"STIONS: " F. P" 1. READ DATA FROM DISK."L Z" 2. EDIT DATA IN FILE."j d" 3. SORT DATA IN FILE." n" 4. PRINT DATA TO SCREEN OR PRINTER" x" 5. SAVE DATA TO DISK." " 6. INPUT DATA." " 7. CHANGE FILENAME OR PARAMETERS." " 8. Rq$ INSTRUCTIONS FOR FILE EDITOR,:C"FILE EDITOR 3.1"i(:"COPYRIGHT 1985 MARC W MILLER"2:" THIS PROGRAM ALLOWS THE CREATION OF BASIC INFORMATION FILES AND THE MANIPU- LATION OF THE DATA IN THOSE FILES." <" THERE ARE NINE FUNC      N THE COMPUTER-- LETTING YOU SPEND MORE TIME IN PLAYING TRAVELLER."V2185BOSH, OR ATARI VERSIONS, WRITE FOR AVAILABILITY."<o185B*.:"INTRODUCTION 0--------------------------------------"M." TRAVELLER COMPUTER PROGRAMS MAKE IT POSSIBLE TO HANDLE LARGE AMOUNTS OF BASIC DETAIL OING AND HANDLING."5" ORDER DIRECT BY MAIL FROM":" GAME DESIGNERS' WORKSHOP":" PO BOX 1646,":" BLOOMINGTON, IL 61761":" DISKS ARE FORMATTED FOR APPLE II+ WITH48K ON DOS 3.3."3" IF YOU ARE INTERESTED IN COMMODORE, MACKINTEN:";::" PRODUCES ONE STAR SYSTEM IN ACCORDANCE WITH THE GENERATION SYSTEMFROM SCOUTS."c185:"PRICES AND ORDERING ---------------------------------------"" EACH TRAVELLER DISK IS AVAILABLE FOR $17.50 PLUS $1. SHIPP::"SECTOR GEN: ";::" PRODUCES A TRAVELLER SECTOR SUITABLE FOR USE WITH TRADER; CANBE EDITED WITH EDITOR."" ";::"SECTOR GEN.EXP:";::" PRODUCES AN EXPANDED SECTOR WHICH INCLUDES STELLAR DATA AS STATED IN SCOUTS."Z" ";::"SYSTEM GFROM YOUR CHECK- BOOK."g!." SAMPLE DATA FILES FOR VARIOUS USES AREON THE DISK. CHECK THE CATALOG."p!2185ARCH FOR WORDS OR PATTERNS, AND SAVE THE FILE TO DISK. THE PROGRAM SUPPORTS A PRINTER AND SCREEN OUTPUT."!." THIS PROGRAM IS ESPECIALLY USEFUL IN CREATING COMPUTER INVENTORIES, BIBLIO- GRAPHIES, NAME AND ADDRESS LISTS, AND EVEN A LIST OF CHECKS WARMSTARTS THE PROG.185u.:"INTRODUCTION 0 --------------------------------------".:" ENTER EDIT SORT PRINT SEARCH".k ." FILE 3.1 ALLOWS YOU TO CREATE DISK FILES, ENTER DATA, EDIT THAT DATA, SORT,SE Q ---------------------------------------"*" QUIT BY TYPING Q. UNLESS THE CURRENT FILE WAS SAVED, IT WILL BE LOST AFTER YOU QUIT. YOU CAN, HOWEVER, RECAPTURE THE FILE DATA BY IMMEDIATELY TYPING"::"GOTO 1200"::"(WHICHINSERT A NEW DISK INTO A DRIVE AFTER YOU ALREADY HAVE A FILE IN MEMORY."8':" M = MEMORY FREE. THE UPPER RIGHT HAND CORNER OF THE SCREEN (WHEN AT CENTRAL MENU) SHOWS THE PERCENTAGE MEMORY RE- MAINING AVAILABLE."*185C*:"QUIT 85Z':"SPECIAL FUNCTIONS (C,D,M) S --------------------------------------"'" THERE ARE THREE SPECIAL FUNCTIONS:"$':" C = CATALOG. THE CURRENT DISK CATALOG IS SHOWN."M.':" D = CREATES A DUMMY FILE. THIS IS USEFUL IF YOU ORY IS SEARCHED, AND MATCHES ARE SHOWN TO SCREEN OR PRINTER."<#" IF COLUMN SUMS ARE SPECIFIED, EACH MATCHING FIELD IS SUMMED DURING THE PROCESS. IN SUCH A CASE, SOME DATA WILL BE GARBAGE (THE SUM OF ZIP CODES, FOR EXAMPLE)."'1 FILE IS RUN."-T" ALL OLD DATA IS LOST."6'#185(#:"WORD SEARCH 9 --------------------------------------"H2#" WORD SEARCH ALLOWS A PATTERN OF LETTERS AND NUMBERS TO BE SPECIFIED; THE ENTIRE DATA FILE IN MEM YOU MAY LOSE DATA."?185u@:"RUN NEW FILE 8 --------------------------------------"J" SELECTING OPTION 8 DISPLAYS THE CATALOG. IF THE QUESTION IS ANSWERED YES, THEN A NEW FILENAME IS REQUISTED, AND THAT NEWN BE CHANGED (NAME, FILE LENGTH, NUMBER OF RECORDS, AND FIELD NAMES AND LENGTHS)."l" USUALLY, ONLY NUMBER OF RECORDS AND FILE NAMES ARE CHANGED ONCE DATA IS IN A RECORD."v" DO NOT CHANGE FIELDS OR FILE LENGTH AFTER DATA IS IN A RECORD;DATA.":"RETYPING: "" USE THE RE-TYPE (RIGHT ARROW) KEY TO TRACE OVER EXISTING TEXT, MAKING ONLY NECESSARY CHANGES."W185X:"CHANGE FILE PARAMETERS 7 --------------------------------------"Vb" FILE PARAMETERS CAS USEFUL WHEN ENTERING LONG ";Y"REPETITIVE LISTS OF DATA. / EXITS TO THEMAIN MENU."" DURING INPUT, THE CURRENT CONTENTS OF A FIELD ARE SHOWN. RETAINS THAT DATA. ENTERING ANYTHING ELSE DESTROYS THAT DATA AND REPLACES IT WITH THE NEW 6 --------------------------------------"z" FILE INPUT TAKES NEW DATA BY FIELDS, WITH COMMAS AND COLONS ACCEPTED. AS WITHEDITING, #NN TAKES YOU TO A SPECIFIC RECORD. @ DUPLICATES THE PREVIOUS RECORDIN THE CURRENT RECORD, WHICH I--------------------------------"" FILES SHOULD BE SAVED TO DISK AFTER BEING EDITED. SAVING TO DISK OVER-WRITESTHE CURRENT DATA WITH NEW DATA. IF THERE IS NO CURRENT DATA FILE, ONE IS CREATED."" o185;p:"INPUT DATA TENTS CAN BE PRINTED OUT TO SCREEN AND PRINTER. THIS PROGRAM IS CONFIGURED FOR THE EPSON MX-80 FOR HARD-COPY.":" THIS PROGRAM IS CONFIGURED FOR THE EPSON MX-80 FOR HARD-COPY."185!:"SAVE FILE TO DISK 5 ------ (WITHOUT CHANGING THE OTHERS) AND A BYTE OTHER THAN THE FIRST. THE FIELD POSITIONS ARE DISPLAYED TO HELP DECIDE ON SORT POSITIONS."185:"PRINT TO SCREEN OR PRINTER 4 --------------------------------------"t" FILE CONA$A$"R "D TZ0A$A$" "4N GG0A$A$" "IX GG1A$A$"G "\ SAVE TO DISKf RR1 (4);"WRITE SECTOR, R";R A$ (4) A$ Y X SAVE FILE LENGTH (4);"WRITE SECTOR, R0" R (4);"CLOSE" Y10A$A$"0"# A$A$(Y)" "[ A$A$ST$(HX$,SI1,1)(HX$,AM1,1)(HX$,HY1,1) A$A$(HX$,PO1,1)(HX$,GO1,1)(HX$,LA1,1)"-" A$A$(HX$,TL1,1)" " A$A$B$" " A$A$TC$& A$A$AL$" "0 TZ1A$A$"A " : TZ2" HY10TC$TC$"WA "7 HY0AM1TC$TC$"DE "O SI0TC$TC$"AS "m AM0SI0TC$TC$"VA " PO0GO0LA0TC$TC$"BA " TC$(TC$" ",15) CREATE WORLD DATA STRING A$"" X10A$"0" A$A$(X)TC$""> (AM3AM10)(HY3HY9)(PO4PO8)TC$TC$"AG "` AM4HY4PO5TC$TC$"NA " (AM3AM4AM7A9)PO8TC$TC$"IN " PO7TC$TC$"NI " (AM6AM8)(PO5PO9)(GO3GO10)TC$TC$"RI " (AM1AM6)HY4TC$TC$"PO 1 GENERATE BASES DM08 B20:ST$"A"DM3K  ST$"B"DM2^  ST$"C"DM3p ( ST$"D"2620 2 (B(4)DM)6B21 < B$" " F B11B20B$"N" P B10B21B$"S" Z B11B21B$"A" d TC$"" TRADE CLASSIFICATIONS $ PO8TLTL2:PO9TLTL27 . GO0GO5TLTL1J 8 GO13TLTL2Y B TL0TL0b L GG0{ ` GENERATE GAS GIANT j B(4)10GG1 GENERATE TRAVEL ZONES TZ0:ST$"X"TZ2 TZ0B(4)10TZ1 B10:ST$"B"2560 B(4)7B1:GO0GO0( LAB(4)7GO:LA0LA01 TL0F ST$"A"TLTL6[ ST$"B"TLTL4p ST$"C"TLTL2 ST$"X"TLTL4 SI5TLTL1:SI2TLTL1 AM4TLTL1  AM9TLTL1  HY8TLTL1:HY9TLTL1  PO0PO6TLTL1OCCURRENCE >A(4)43260/ C GENERATE UPP< HSTB(4)P RST$(SP$,ST,1)_ \SIB(4)2| fAMB(2)7SI:SI0AM0 pAM0AM0 zHYB(2)7SI:SI2HY0 AM2AM9HYHY4 HY0HY0 HY10HY10 POB(3)2 GOB(3)7POET VARIABLES, VHX$"0123456789ABCDEFGHJKL"C `SP$"AAAABBCCDEEX"f jBA$"ABCDEFGHJKLMNPQRSTUVWXYZ"} tA(X)((4)6)1 ~B(X)A(X)A(X) AL$"IM"   PRODUCE SECTOR (4);"OPEN SECTOR, L50" X132 Y140 4 WORLD \::"TRAVELLER SECTOR GENERATOR ---------------------------------------"" THIS PROGRAM GENERATES WORLD UPP DATA FOR TRAVELLER. COPYRIGHT 1986 GDW."" THIS PROGRAM ORIGINALLY APPEARED IN CHALLENGE MAGAZINE NO. 25." L S :DA0 LY1X(2)29# X112I (TA)X(X)MOX:DATA:X12:170X TATAX(X)_ Xk X(2)28q w "THE CORRESPONDING TERRAN DATE IS:" " "; (DA);" "; X$(MO);" "; (TY);" " 90d((IY$,Y1))! jIY((IY$,Y1))4 nIY(IY365)IDE xTRIY365.25R TYTETRb TDTY(TY)k LY0 TA365TD:((TY)4)(TY)4TA366TD:((TY)400)(TY)400TA365TD (TY)4((TY)4)LY1 (TY)400((TY)400)LY0 MO0,30,31,31,30,31,30,31 X( X1123 X$(X)i  JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECp X 2IM0:TE4521.05 Z10 d"IMPERIAL DATE? > ";IY$:(IY$" ",1)"Q"Ā eX14 f(IY$,X,1)"-"YX:X4 gX hIL$IY$ iID^"DATE CONVERTER ---------------------------------------""THIS PROGRAM CONVERTS IMPERIAL DATES TO TERRAN DATES.""VERSION: 156--2537 (18 MAR 1986)"X(12),X$(12) X112 X(X)  31,28,31,30,31   Š٠ŠԠӠҠӠŠưӱԠҠ˫ƹӲҠȫưӱŠƵӱҠԭƲӲǠŠԭƵӱҠȭƱӲҠǠέԭƷӱҠ˫ƳӱҠȭƶӱҠ  T  T @"ALLEG "J2'T"TRAVEL ZO".^1?h"GAS GIANT"Fr1W|"TRADEWRLD"^1o"EXPLORED?"v1(4);"CLOSE"H SAVE FILE PARAMETERS3"NAME THIS FILE? > ";FI$R(4);"RENAME SECTOR,";FI$l(4);"OPEN ";FI$;"@"(4);"WRITE ";FI$;"@"9R49"HEX "4"UPP "9"BASES ""1,"TRADE CLA"614  T"ACA1TT11QA(4)-CA1TT9QA(2)ECA1TT10QA(3)cCA1TT12QA(2)A(2)CA1TT13QA(3)A(2)CA2TT4QA(2) CA2TT7QA(1)CA2TT10QA(1) CA2TT11QA(1)*CA3TT4QA(1) 4CA3: PRODUCE TABLEDD212(N".";1XCA0CbD2D4CA4UlD3D5CA2kvD6D7D8CA1D9D11D12CA3TTA(2)T1TT0TT0TT13TT13A(D,3)TY(CA,TT)Q1CA1TT0QA(1)CA1TT8QA(1)---"10000KPA1PS1ĺ"ANIMALS REQUIRE AN ATMOSPHERE. > ";A$:461Q"P= PRINTER. D= DISK. DEFAULT IS SCREEN.""OUTPUT? (S/D/P) > ";A$:(A$"N",1)"P"PRNTR1(A$"N",1)"D"PRNTR1T0570&T1240T124UCES A COMPLETE SET OF 24 TABLES."(P"TERRAIN TYPE? (1-24,SET,Q) > ";T$^T$"Q"Ā(T$" ",3)"SET"T0:461(T$)1(T$)24ĺ"":350T(T$):"BEASTIARY ------------------------------------".";T3450^kh"BEASTIARY ---------------------------------------"qr}|T112T2:1:T10);T;". ";T$(T);:20:T1210);T12;".";T$(T12)T""ENTER TERRAIN TYPE BY NUMBER; 'SET' PRODAN,-4,0,SEA CAVE,-2,0,SARGASSO,-4,-2 nRUINS,-3,0,CAVE,-4,1,CHASM,-1,-3,CRATER,0,-1,ARCTIC,-1,-1,BOG,-5,-5x".";2470".";2590".";2910".";3020".";3120"".";,33006".";@3370JT124 T$(T),T1(T),T2(T)'T CLEAR,3,0,PRAIRIE,4,0,ROUGH,0,0,BROKEN,-3,-3,MOUNTAIN,0,0,FOREST,-4,-4,JUNGLE,-3,-2,RIVER,1,1,SWAMP,-2,4,MARSH,0,-1% DESERT,3,-3,BEACH,3,2,SURFACE OCEAN,2,3,SHALLOWS OCEAN,2,2,DEPTHS OCEAN,2,4,BOTTOM OCE-----------------------------" d:" THIS PROGRAM PRODUCES A TRAVELLER ENCOUNTER TABLE FOR A GIVEN TERRAIN TYPE ON A WORLD WITH SPECIFIED SIZE AND ATMOSPHERE." n:" THE STANDARD TRAVELLER RULES ARE USED." x:" WORKING..." R,AVERAGE IMPERIAL,AVERAGE IMPERIAL,ABOVE AVERAGE,ABOVE AVERAGE,TECH MAX,MAGIC,MAGIC,MAGICa )X F T$=TERRAIN TYPE T1=TYPE DM, T2=SIZE DM H T=TERRAIN TYPE NO. J U=TABLE TYPE (1 TO 4) Z::"BEASTIARY ----------ILLIONS,HUNDRED MILLIONS,BILLIONS,TEN BILLIONS,HUNDRED BILLIONS,TRILLIONS,TEN TRILLIONS,HUNDRED TRILLIONSp !X| #X018 %TL$(X)Z ' STONE AGE,BRONZE AGE,1400-1700,1700-1860,1860-1900,1900-1939,1940-1969,1970-1979,1980-1989,1990-2000,INTERSTELLAMO,FEUDAL TECHNO,COLONY,BALKANIZED,CIVIL SVC BUREAU,IMPERS BUREAU,CHARISMATIC DICT,NON CHARISMATIC LDR,CHARISMATIC OLIG,RELIGIOUS DICT,E,F X X015 PO$(X)i  NONE,ONES,TENS,HUNDREDS,THOUSANDS,TEN THOUSANDS,HUNDRED THOUSANDS,MILLIONS,TEN M X015 AM$(X)  NONE,TRACE,VERY THIN TAINTED,VERY THIN,THIN TAINTED,THIN,STANDARD,STANDARD TAINTED,DENSE,DENSE TAINTED,EXOTIC,CORROSIVE,INSIDIOUS,D,E,F X X015 GO$(X)  NONE,COMPANY,PARTICIP DEMO,SEL-PERPET OLIGARC,REP DEu1 VERSION OF 1 JAN 1986JAM$(15),GO$(15),TL$(30),PO$(15),LA$(21)Pn ANIMAL ENCOUNTER TABLESA(13,12),T$(24),T1(24),T2(24)A$(12) A(X)((((4)6)1)(X0))((((4)6)1)(X1))((((4)6)1)(X2))((((4)6)1)(X3))                 \ ::"BEASTIARY -----------------------------31 JUL 85-"n(4);"/"::" HIT RETURN ";A$((4);"RUN COPYRIGHT1985" OA$" ",1)"P"1880)$y (A$"N",1)"Q"Ā7$~ T124ĂTD$ T124ĀM$ 350S$ l$ ANIMAL TYPES TABLEz$ TY(4,13)$ X14$ Y013$ TY(X,Y)$ 1,1,1,2,2,2,2,3,3,3,3,3,3,3$ 4,4,5,4,5,4,6,6,6,4,5,6,4,4 % 7,8,7,8,9,10,8,11,11,11 ":2# "QTY ":21#$ "TYPE ":17F#. "WEIGHT ":4[#8 "HITS ":5q#B "ARMOR ":11#L "REACTIONS ":8#V (4);"CLOSE"#` T1242430#a PRNTR12430#j "SAVE THIS FILE? (N/D/P/Q) > ";A$:(A$"N",1)"D"2200$t (FI$UPP$" "(T$(T),3)5"(4);"OPEN ";FI$;", L60"R"(4);"WRITE ";FI$;",R0"Z"11f"X111"(4);"WRITE ";FI$;", R";X"A$(X1)"X"(4);"CLOSE""(4);"OPEN ";FI$;"@""(4);"WRITE ";FI$;"@"" # 7:11:59:"DIE " "AR$(A(D,9))" "d!>A(D,3)4A$(D)A$(D)" F"(A(D,11))" A"(A(D,10))" S"(A(D,12)):2130!HA$(D)A$(D)" A"(A(D,10))" F"(A(D,11))" S"(A(D,12))!R!\!fD!p!z(T4)T4ĺ(140);!(4);"PR#0"!PRNTR12400",10);" F";A(D,11);" S";A(D,12);% u D10A$(D)"10 EVENT ":2130 *A$(D)("0"(D),2)" "("0"(A(D,1)),2)" "M$(" "(A(D,4)),5)" "!4A$(D)A$(D)("0"(A(D,5)),2)"/"("0"(A(D,6)),2):Q10000);Q1000);Q100);Q10);Q;"KG ";HQA(D,5):Q10);Q;"/";dQA(D,6):Q10);Q;" ";vAR$(A(D,7));QA(D,8):Q100);Q10);Q;" ";AW$(A(D,9));" ";A(D,3)4ĺ" F";A(D,11);" A";A(D,10);" S";A(D,12);:2070 "A";A(DE QTY ANIMAL TYPE WEIGHT HITS ARMOR WOUNDS & WEAPONS REACTIONS"XvD212b" ";uD10);D;" ";A(D,1)10);A(D,1);" ";M$AN$(A(D,3)):A(D,2)0M$AK$(A(D,2))" "M$M$M$" ":M$(M$,17)M$;,QA(D,4)R34:R31R31<Q12R1R13:R2R22:R3R33:R31R31iQ13R1R13:R2R22:R3R34:R31R31x&A(D,10)R10A(D,11)R2:A(D,12)R3DDNPRNTR1Ċ1:(18);XT$(T);" TERRAIN";30);b"SIZE= ";PS;" ATMOSPHERE= ";PALl"DI4:R31R316Q11R10:R2R23:R3R32:R32R32`Q10R10:R2R22:R3R35:R30R30Q7R10:R2R23:R3R34:R30R30Q9R1R10:R2R23:R3R33:R31R31Q14R1R11:R2R22:R3R34:R31R31Q15R1R12:R2R21:R3ЭR30R306Q2R1R13:R2R23:R3R34:R31R31bQ3R1R12:R2R21:R3R32:R32R32Q4R1R13:R2R22:R3R33:R31R31Q6R1R10:R2R22:R3R34:R31R31Q5R1R10:R2R23:R3R33:R31R31 Q8R10:R20:R3R3:SI14QQ2$SI15QQ25"SI16QQ3F,SI17QQ4W6SI18QQ4h@SI19QQ5yJSI20QQ6TQ1Q1^Q999Q999hA(D,8)Qr REACTIONS|R1A(1):R2A(1):R3RNA(1)QA(D,3) Q1R10:R2R22:R3R35:QQ4CA1QQ3"Q1Q11Q20Q20DA(D,9)AW(1,Q)UQWO(A(D,9))aQA(Q)uSI3QQA(2)SI3QQA(1)SI8QQA(1)SI9QQA(2)SI10QQA(3)SI11QQA(4)SI12QQA(5)SI13ĺ""A(1):XA(D,5)E1*A(D,6)E26 ARMORV QA(2):Q12Q1QA(2)6fCA1QQ2vCA3QQ1(CA4QQ12Q1Q1<Q20Q20FA(D,7)AW(2,Q)PA(D,2)2A(D,7)0Z WEAPONdQA(2)nCA3QQ8xCA2 LQ1Q1Q2VQA(2)Q1T2/`PS8QQ1?jPS4QQ1LtQ1Q1l~Q13QA(2)Q1T26:1120{Q20Q20A(D,4)AS(1,Q)D1AS(2,Q)D2AS(3,Q)SIQE10:E20X1D1:E1E1A(1):XD201250X1D2:E2E2TT13QA(1)A(D,1)Q'QA(2)7PS8QQ1LPS5PS4QQ1\PS4QQ2lPA7QQ2|PA6QQ1Q12Q12Q1Q1Q1AA(T,Q)A(D,2)((Q1))Q21$Q101110.Q10Q218Q1Q1(Q1)BQ1Q110TT8QA(3)%>CA3TT11QA(2)=HCA3TT13QA(1)TRCA4TT0QA(1)k\CA4TT1QA(2)fCA4TT2QA(1)pCA4TT3QA(1)zCA4TT4QA(2)CA4TT5QA(1)CA4TT7QA(1)CA4TT10QA(2)CA4"TECH LEVEL: ";TL$;" ";TL$(TL)%4,)V46)SI0SI10Ģ10:30:"WRONG.":R$" ^":10570e4@)R$R$" "4J)((AMSI)72(AMSI)712)(SI0AM0)Ģ11:30:"WRONG.":R$R$"^":105904T)R$R$" "4^)XHY7SI:AM2AM9XX4"5h)(X2X12)(SI2HY0))03(12:1:"HYDRO: : ";HY$;" ";HY10;"% ";J3(AM9ĺ"FLUID":10500m3("WATER ";:AM2HY0ĺ"(ICE)"s3(3)13:1:"POPULATION: ";PO$;" ";PO$(PO)3)14:1:"GOVERNMENT: ";GO$;" ";GO$(GO)3)15:1:"LAW LEVEL : ";LA$;" ";LA$(LA)4")16:1:GOX2(LA$(UPP$,7,1)32(X$LA$:X0:10960:LAXG2(TL$(UPP$,9,1)b2(X$TL$:X0:10960:TLX2(SI1Ģ10:1:"SIZE: : ";SI$;" ASTEROIDS.":104502(10:1:"SIZE: : ";SI$;" ";SI1600;" KM DIAMETER"3(11:1:"ATMOSPHERE: ";AM$;" ";AM$(AMP$,1)12(SI$(UPP$,2,1)41<(X$SI$:X0:10960:SIX>1A(PSSIR1F(AM$(UPP$,3,1)m1P(X$AM$:X0:10960:AMXw1U(PAAM1Z(HY$(UPP$,4,1)1d(X$HY$:X0:10960:HYX1n(PO$(UPP$,5,1)1x(X$PO$:X0:10960:POX1(GO$(UPP$,6,1)2(X$GO$:X0:10960:ER,HIJACKER,INTIMIDATOR0 X$0 40 REACTIONS=0 R10L0 R2A(1)2R0'X0'v0'4:" WORLD UPP? > ";UPP$0'(UPP$)9UPP$UPP$"0":102200'UPP$(UPP$,9)0(UPP$(UPP$,7)" "(UPP$,1)0 (4:15:UPP$0(R$""0(9581((ST$(UP/H AK$(1)"SWIMMING")/R AK$(2)"AMPHIB">/\ AK$(3)"TRIPHIB"R/f AK$(4)"FLYING"X/p k/z ANIMAL TYPESx/ AN$(15)/ X115/ AN$(X)0 FILTER,INTERMITTENT,GRAZER,GATHERER,EATER,HUNTER,SIREN,POUNCER,KILLER,TRAPPER,CHASER,CARRION-EATER,REDUCEAPON,WEAPON,WEAPON,WEA:. AW$(X)AW$(X)" "R. AW$(X)(AW$(X),16)Y. X_. n. WOUNDINGz. WO(24). X124. WO(X). 1,2,2,2,2,3,2,2,2,4,3,3,2,2,2,2,2,2,2,2,2,2,2,2. X. .* ATTRIBUTES.4 AK$(4).> AK$(0)"" AW$(24)- X024!- AW$(X)-- TEETH. HANDS,CLAWS,TEETH,HORNS,HOOVES,STINGER,THRASHER,AS CLUB,AS BLADE,AS BROADSWORD,AS PIKE,AS BODY PISTOL,HORNS & HOOVES,HOOVES & TEETH, CLAWS & TEETH,CLAWS+1,CLAWS+1 & TEETH+1,TEETH+1,HORNS & TEETH,WEAPON,WNE,b NONE-1,NONE,NONE+1,JACK-1,JACK,JACK+1,MESH-1,MESH,MESH+1,CLOTH-1,CLOTH,CLOTH+1,REFLEC-1,REFLEC,REFLEC+1,ABLAT-1,ABLAT,ABLAT+1,COMBAT-1,COMBAT,COMBAT+1,COMBAT+2,COMBAT+3,COMBAT+4,l AR$(X)AR$(X)" ",v AR$(X)(AR$(X),10), X - + ARMOR+ AW(2,20)&+ X122+ Y120?+ AW(X,Y)x+ 13,4,14,5,19,7,15,3,2,2,7,15,16,6,17,18,9,11,10,12+ 0,0,0,5,0,0,0,0,0,5,0,0,9,12,8,11,24,14,17,20+ Y+ X+& +0 ARMOR TYPES+: AR$(24)+D X024+N AR$(X),X NO*h AS(3,20)*r X13#*| Y1200* AS(X,Y)* 1,3,6,12,25,50,100,200,400,800,1600,3200,0,6000,12000,24000,30000,36000,40000,44000* 1,1,1,2,3,4,5,5,6,7,8,8,0,9,10,12,14,15,16,17* 0,1,2,2,2,2,2,3,3,3,3,4,0,4,5,6,7,7,8,9* Y* X+ .2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5A) 0,0,0,0,0,0,0,0,0,0,0 ^) 0,0,0,0,0,0,0,0,0,0,0 z) 0,0,0,0,0,0,0,0,0,0,0)" 0,0,0,0,0,0,0,0,0,0,0), 0,0,0,0,0,0,0,0,0,0,0)6 0,0,0,0,0,0,0,0,0,0,0)@ Y)J X)T )^ ANIMAL SIZES AND HITS 3.6,-4.6,-4.5E( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 }( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 ( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,-3.6,-4.6,-4.5 #) 1.2,1.2,1.2,26,-4.5,-4.31' 1.1,2.1,0,0,0,0,0,0,0,-4.6,-4.5Z' -1.3,2.1,2.1,0,0,0,0,0,0,-4.6,-4.5' -1.6,2.2,2.1,0,0,0,0,0,0,-4.6,-4.5' 0,0,0,0,0,0,0,0,0,0,0' 1.1,2.2,2.2,0, 0,0, 0,0,0,-4.6,-4.5 ( 1.2,1.2,1.2,2.2,2.0,1.1,-1.1,-3.7,--4.3 9&d 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3n&n 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 &x 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3& 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 ' 0,0,0,0,0,0,0,0, -4 .,9,11,7,11:% 12,12,13,14,12,15,13,12,13,14,15,13,14,15A% YH% XN% g% SPECIAL ATTRIBUTESv%( AA(24,12)%2 X124%< Y212%F AA(X,Y)%P 0,0,0,0,0,0,0,0, -4 .6,-4.5,-4.3 &Z 0,0,0,0,0,0,0,0, -4 .6,-4.5,8000,9000,9200 1210$  INPUT; ERR0:ERRČ54572J B512751Y (B)0Ăd IN$"" (131)256(132)1,0 (131)256(132)2,2 (131)256(132),B512 IN$(IN$,1)  @ HEADER INPUTB1:1:"------------- FIELH NUMBER? (1-9) > ";A$:1955, dA$"Q"Āw nA$"D"N1:K10:K18:L$(1)"ITEM ":L(1)8:F$"DUMMY":1685:1210 xA$"C"İ9100:1210 A$"M"Ģ1:35:((X)A9100);"%":1220 (A$)9(A$)11350 (A$)2000,3000,4000,5000,6000,6600, ON THE FILE."8 " 7. CHANGE FILENAME OR PARAMETERS."S " 8. RUN A NEW FILE."t (" 9. SEARCH FOR A PATTERN." 3" D. CREATE DUMMY FILE." 4" M. SHOW AVAILABLE MEMORY." 5" C. CATALOG DISK." 7" Q. QUIT." < F P19:1 Z"WHICILENAME: ";F$;:24:"(L=";K1;" R=";K;")". M " 1. READ THE DISK FILE."s " 2. INPUT/EDIT FILE IN MEMORY." " 3. SORT THE FILE IN MEMORY." " 4. PRINT THE FILE TO SCREEN/PRINTER." " 5. SAVE THE FILE TO DISK." " 6. SHOW STATISTICS" LD$(4)3 VI1127:BL$BL$" ":C$C$".":IN `3:"FILENAME? > ";F0$~ j3:"FILENAME? > ";F1$:F1$""F$F0$:1150 tF$F1$:Z01210 ~ 1745 LK100:ZL A$(L)  :" ------------ CENTRAL MENU ----------- "( 3:"F(1 FILE EDITOR PROGRAM> COPYRIGHT 1985 MARC W MILLERM GAMESOFT\ BOX 1646x BLOOMINGTON, IL 61701~$ REVISED 8 APR 1985.A9(X)0ER02F0$"SPECIAL"398008: B" ------------ CENTRAL MENU -----------                 !!! ! ! ! ! !!!!!"AHANKS" " "MARC W. MILLER"( " * BEASTIARY IS SELF-INSTRUCTING; * EDITOR ALLOWS EDITING OF DISK FILES CREATED BY BEASTIARY." "HIT RETURN TO RUN BEASTIARY (Q QUITS).";A$ (A$"R",1)"Q"Ā (4);"RUN BEASTIARY "THIS DISK IS"1"COPYRIGHT 1985"Q"GAME DESIGNERS' WORKSHOP"d("PO BOX 1646"2"BLOOMINGTON, IL 61702"<F"TRAVELLER IS A REGISTERED TRADEMARK OF"P"GDW, INC."Zd"PLEASE DON'T PIRATE THIS DISK."n x"T 9*;9*"IS THIS CORRECT? (N/Y) > ";A$:(A$"N",1)"Y"ıF9*10210R9*X(X$)n9*X$"0"X0X(X$)55t9*)"IS THIS CORRECT? (N/Y) > ";A$:(A$"N",1)"Y"ı9*102109*X(X$)9*X$"0"X0X(X$)559*ITRIAL. "=8l*(AM6AM8)(PO5PO9)(GO3GO10)ĺ"RICH. ";^8v*(AM1AM6)HY4ĺ"POOR. ";d8*8*HY10ĺ"WATER WORLD. ";8*HY0AM1ĺ"DESERT WORLD. ";8*HY0AM2ĺ"ICE-CAPPED. ";8*SI0ĺ"ASTEROID BELT. ";8*AM0ĺ"VACUUM WORLD. ";"WRONG.":17:30:"(";1X;"-"6X;").":R$R$" ^"?7&*R$R$" "N70*5:15:R$V7:*207D*AM3AM10HY3HY9PO4PO8ĺ"AGRICULTURAL.";7N*AM4HY4PO5ĺ"NON-AGRICULTURAL.";7X*((AM3AM5)AM7AM9)PO8ĺ"INDUSTRIAL. ";8b*PO7ĺ"NON-INDUS)R$R$" ";6)X(SI2)(SI5)(AM4)(AM9)(HY8)(HY9)P6)GO0GO5XX1a6)GO13XX2v6)PO6PO0XX16)PO9XX26)PO10XX46)ST$"A"XX66)ST$"B"XX46*ST$"C"XX26*ST$"X"XX407*TLX1TLX6Ģ16:30:12:30:"WRONG.":R$R$"^":1062005r)R$R$" "g5|)PO22PO212Ģ13:30:"WRONG.":R$R$"^":10640u5)R$R$" "5)GO7PO2GO7PO12Ģ14:30:"WRONG.":R$R$"^":106605)R$R$" "5)LA7GO2PO7GO12Ģ15:30:"WRONG.":R$R$"^":10680 6K14080" HIGHEST ITEM? (";M110);M1100);M11000);M1;"-";K10);K100);K1000);K;") >";:" ";A$:(A$)K(A$)MP(A$)FF1:1745:FF0" FIELD SORT POSITION? ( 1-";K110);K1100);K11000);K1;") >";:" ";A$:(A$)1--------- ":M1:PK:K21,K24120l"SPECIAL SORT PARAMETERS? (N/Y) > ";A$:1955:A$"Y"4120r" LOWEST ITEM? (";M10);M100);M1000);M;"-";K110);K1100);K11000);K1;") >";:" ";A$:(A$)K1(A$)0M(A$)MTY(I)1IN$(BL$,20)IN$:IN$(IN$,L(I)):I6:13:IN$:M$(I)IN$:3270Y M$(I)IN$BL$q M$(I)(M$(I),L(I))x I A$(A)"" I1N A$(A)A$(A)M$(I)" " I  AA1 3020 * :3:" ------------ FILE SORTER ---)"#"A((IN$,2)):3050I (IN$,1)"*"A$(A)(93)(BL$,K11):3320 (IN$,1)";"N1((IN$,2)):I6:13:(A$,B(I),L(I)):N10N1N1IN1:3190 IN$""ĢI6:13:(A$,B(I),L(I)):M$(I)(A$,B(I),L(I)):3270 (IN$,1)"/"IN:3350G V: ";(A$(A1),B)? AK3140@@ A$(A1)""A$(A1)(C$,K1)dA B12:(A$(A1))BB(A$(A1))C 22:20:"NEXT: ";(A$(A1),B)D A$A$(A)N I1NX 6I:L$(I);": ";(A$,B(I),L(I))b Il I1Nv 12:I6:">"; 1500 (IN$,13010 A(A)% A(0.9K)ĺ"";0 AKĞ7 5_& "RECORD NO. ";A100);A10);A;"."e0 k1 2 A$(A)""A$(A)(C$,K1)3 A131354 A$(A1)""A$(A1)(C$,K1): ; A13135< B12:(A$(A1))BB(A$(A1))> 22:1:"PRE" -------------- EDIT FILE ------------ ":3 A1P A$(1)""A$(1)(C$,K1)m A$(K)""A$(K)(C$,K1) 18:"#N GOTO THAT RECORD; * KILL RECORD; ;N GOTO THAT FIELD; / RETURN TO MENU." AKİ7330 K1ĺ"NO FILE.":3350 A1AK1  I1*IK2200.4D$;"READ "F$",R"I9>2150CH1505]MIN$""IN$(BL$,K1)kRERR2170u\2180fERR(222):ERR5Ħp"ERROR ";ERR:zKI1:2200A$(I)IN$II1:2090D$;"CLOSE "F$216,0+ :3:----------"]" READ FROM DISK. NEW DATA IS READ FROM THE DISK UNDER FILENAME: ";F$" THE DATA CURRENTLY IN MEMORY IS LOST.":" READ FROM DISK? (N/Y) > ";A$1955A$"Y"ı "READ "F$" FROM DISK"D$;"OPEN "F$",L"K1,1)"="TY(I)1* A$" ":TY(I)1A$"N"u!" ";B(I)100);B(I)10);B(I);" ";E(I)100);E(I)10);E(I);" ";A$|0I5FF119507:"RETURN TO MENU? > ";A$:A$A$" ":A$(A$,1) :"----------- READ FILE ------:998:"----------- FIELD PARAMETERS ----------"< B(1)1i"NO FIELD LEN BEGIN END TYPE"tI1N11I:I10);I;" ";L$(I);" ";L(I)100);L(I)10);L(I);" ";I1B(I)E(I1)2E(I)B(I)L(I)1TY(I)0:(L$(I)L$(I)L(I)I-D$;"CLOSE "F$"@"?D$;"OPEN "F$RD$;"WRITE "F$YKlD$;"CLOSE "F$rxD$;"OPEN "F$"@"D$;"READ "F$"@"NKK1I1NL$(I)L(I)ID$;"CLOSE "F$"@"110:11xA$" ":TY(N)0:(L$(N),1)"="TY(N)1:A$"N"z11N:24:B(N)10);B(N)100);B(N);" ";E(N)10);E(N)100);E(N);" ";A$~K1(LN)101683N101612D$;"OPEN "F$"@"D$;"WRITE "F$"@"NKK1I1NLN)1d11N:16:">";L$2fL$""L$(L(N))>hA(L$)jA1(AK1(LN)1)AK1(LN)1:9:30:A10);A100);A;" ";:1632lL(N)(L$)np11N:17:L(N)10);L(N)100);L(N);rLLL(N)tN1B(N)E(N1)2vE(N)B(N)L(N)1A$"":(L$,1)"="L$(L$,2):A$"="AZ(L$,1)"/"NN1:1685m\L$(N)L$" ":L$(N)(L$(N),10)]A$"="L$(N)(L$(N),9)A$^L(N)0L(N)K1(LN)1`11N:4:">";L$(N);b11N:17:L(N)10);L(N)100);L(N);c11N:35:K1(D INPUT -------------"BD7:"/ ENDS INPUT. (R=";K;"; L=";K1;")"NHN0:L0XLNN1pN11N:1:N10);N;P11N:4:">";L$R(L$)01614TA$"":L$""L$(N)""N10A$" "VL$""L$(N)""L$"FIELD "A$(N)" "XL$""1630$YA),K1)/-(A$(A),1)(13)A$(A)A$(A)(13):-A$(A)A-AT-D$;"CLOSE "F$j-FL1FL0:F$F2$p-v-d-eA1E7A$(A):6595-fA$""-nA(A100.05)100:AA100-x((A10)(A0))((A10)(A0))A$"0"((A)):6540.A$((A:1955:K01,zA$"S"6013.,{A$"Y"60198,|6100d,}FL0:"WHAT FILE? > ";F1$:F1$""6019u,~F1$F$6019,F2$F1$:F$F1$,1685:FL1,D$(4),D$;"OPEN "F$", L"K11,AK0K,D$;"WRITE "F$", R"A-(A$(A))K1A$(A)(A$( DATA UNDER THAT NAME IS DESTROYED."+x" S ALLOWS SAVING DATA TO AN NEW (DIFFERENT) FILENAME AS A BACKUP. THE NEW FILENAME CANNOT BE AN EXISTING FILE AS THE CURRENT CONTENTS OF THE FILE ARE LOST.": ,y:" SAVE TO DISK? (N/Y/S) > ";A$:PRNTR1AD(SM(I)K)100:6500:36,74(A$):A$;"%":*3@*4G*9IM*:]*;PRNTR5960g*>1850m*H*p:3:" ------------ SAVE TO DISK ----------- ":*u" SAVE TO DISK. CURRENT DATA IS SAVED TOTHE DISK UNDER FILENAME: ";F$)+w" PREVIOUS))ASM(I)K:6500:36,30(A$):A$M)*ASS(I):BSM(I)2K:C(AB):D(CK)l)+AD:6500:36,39(A$):A$),PRNTR1A(MX(I)MN(I))1:6500:36,48(A$):A$)-PRNTR1AMN(I):6500:36,57(A$):A$).PRNTR1AMN(I):6500:36,66(A$):A$4*/Q( ( $( :"COLUMN SUMS: "T("NO FIELD = SUM.... AVG.... STD DEV.";(PRNTR1ĺ" RANGE... MIN..... MAX..... CRV....."(PRNTR0ĺ(I1N( (L$(I),1)"="5940(%I10);I;". ";L$(I);" ";((ASM(I):6500:36,22(A$):A$#800 'yI'{5900'0!'''2'Q1NN'A((A$(I),B(Q),L(Q)))g'I1MN(Q)A:MX(Q)A'FR1MN(Q)A:MX(Q)A'(A$(I))B(Q)SM(Q)SM(Q)0:5830'SM(Q)SM(Q)A'SS(Q)SS(Q)(A2)'AMX(Q)MX(Q)A'AMN(Q)MN(Q)A(A1TT& LLLL1 &B1A13&A2(BTTTTA)B&&A2K5740`&0A210);A2100);A2;" ";z&:A3((132(A15))A1)&DA3K15A3K15&X(A$(A2),A3);&bA3((A$(A2),A3)));&lB&m&n(LL60)LL60ĺ(140);&qA&wI1K'x5 %(140);%0%-% PRINT-OUT 4%1@%(15);R%(9);"132N";%"LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L="K1"; R="K")."%%A1((130K1).99999)%(A1(K15))130A1A11:5622%LL0%TT((KA1).999999)&1):I30(I30)ĺ(140);:54608$I60(I60)5460E$(140);S$" ";^$V1N$"L(V)10ĺL$(V);:L(V)9);" ";$,L(V)10ĺL$(V);" ";$6L(V)10ĺ(L$(V),L(V));" ";$@V$J$TI$^" ";$ $K45ĺ(140);$59001132N1I1:IN:5210#PL1L&#ZI4#d" ";?#nI1N_#xL(I)10ĺL$(I);:L(I)9);x#L(I)10ĺL$(I);" ";#L(I)10ĺ(L$(I),L(I));" ";#I##I1K#5800#I100);I10);I;". ";#(A$(I),L1) $K1132ĺ(A$(I),L155"A$"S"İ5900%"A$"N"5050/"1210?" PRINT-OUTF"1d" K180ĺ(18);(9);"80N";"K179ĺ(15);(9);"132N";""LIST OF CONTENTS OF STANDARD FILE: ";F$;" (L= "K1"; R="K").";"(L0:L10"2"<I1N#FLLL(I)1:L131L$:1955:B$A$:B$"Y"PRNTR17!B$"S"PRNTR1:5110I!PRNTR15570O!X!LL1c!I1Kk!LL!I100);I10);I;". ";A$(I)!5800!LLLL1!LL21ĺ:"NEXT PAGE? > ";A$:LL1:!I!""RETURN TO MENU? (Y/N/S) > ";A$:19------- ":) Q1N:SS(Q)0:SM(Q)0:Q5 PRNTR0Y " DEFAULT IS SCREEN DISPLAY."_  " IF PRINTER IS CHOSEN, DEFAULT IS A MULTI-COLUMN PRINT-OUT."  " S= ONE COLUMN HARD-COPY.":!" DO YOU WANT HARD COPY? (N/Y/S) > ";A(A$(B),K2)(LOW$,K2)LOW$A$(B):YB-JB^TA10);A100);A;". ";LOW$:LOW$A$(A)4200y^A$(Y)A$(A):A$(A)LOW$hArK24230|A10);A100);A;". ";A$(A)"SORT FINISHED. ";A$ :3:" ----------- PRINT OUT FILE ---(A$)K1K2(A$)#AMP1;A$(A)""A$(A)" "J"LOW$A$(A)R,Y0_6BA1P8((A$(B),K2))((LOW$,K2))41709((A$(B),K2))((LOW$,K2))LOW$A$(B):YB:4170;(A$(B),K2,1)" "(LOW$,K2,1)" "LOW$A$(B):YB:4170&@(A$) BB1:A$" "AB) A0BA7 A$"/"ĀF B012000X A$"0"12000x A1000,2000,3000,4000,5000 A$"Q"11000 20 :"TRADER --------------------------------------"i " TRADER ALLOWS GRAMS ARE OFFERRED." A- F" 1. TRADER."C P" 2. BEASTIARY."X Z" 3. LANGUAGE."r d" 4. SYSTEM SURVEY." n" 5. ORDERING." B1 20 :"MORE DATA ON WHICH DISK? (/END, 0=INTRO) > ";A$ A$A$" ":A$(A$,1) AW  ADVERTISEMENTS:<"GDW TRAVELLER PROGRAMS"\(:"COPYRIGHT 1985 GDW INC"2:" GDW OFFERS FOUR DISK-BASED PROGRAM SETS FOR TRAVELLER. ALL ARE INTENDED AS REFEREE-AIDS AND FOLLOW THE TRAVELLERRULES." <:" THE FOLLOWING PRO!!!""" " " " " """"ATA"::10:"]GOTO 1200":9!9&'9 N ING CREATED."78Y&"CHECK ITS PARAMETERS AND CONTINUE."^8\&"YOU MUST DEFINE THE FILE FIRST."8f&N1:K10:K110:L$(1)"ITEM ":L(1)8:1685:8000:11808p&8&:" ------------ END PROGRAM ------------- "8&9&"TO WARM START WITHOUT LOSING DDS FOUND WITH ";B$7%:-7%SU$"Y"973077%5900>7&0a7 &"RETURN TO MENU? (Y/N) > ";A$x7&1955:A$"N"9200~7 &7H& ERROR TRAPPING7M&ER0(222)5ER1:98157R&"ERROR #";(222);" AT LINE ";(218)(219)256: 8W&"FILE: ";F$;" IS BE%5800"6N%I100);I10);I;". ";36X%(A$(I),L1)m6b%K1132ĺ(A$(I),L11):I130(I130)ĺ(140);:96106l%I160(I160)96106v%(140);6%" ";6%I6%" ";6% 6%:6%FR0ĺ"NO RECORDS FOUND WITH ";B$7%FR0ĺFR;" RECORH: ";B$5|$L0:L10:"5$I1NI5$LLL(I)1:L131L1132IN:9380R5$L1LY5$I_5$h5$FR0s5$I1K5$N2(A$(I))5%FL0FRFR1:FL05%FL05%N41N2N35&%(A$(I),N4,N3)B$FL1:N4N2N350%N45:%FL096105D%I1I116I(Q)0:MN(Q)0:MX(Q)0:QQ4,$"COLUMNS SUMMED? (N/Y) > ";A$:1955:A$"Y"SU$"Y"46$"HARDCOPY? (N/Y) > ";A$:1955:A$"Y"93204@$4J$14T$K180ĺ(18);(9);"80N";4^$K179ĺ(15);(9);"132N";4h$:"STANDARD FILE: ";F$5r$"ENTRIES WIT"Y"12103n#>3#:" ------------ CATALOG ----------------"D3#R3#(4);"/"\3#18503#:"------------ WORD SEARCH -------------"3#FR0:FL03$:"SEARCH FOR WHAT WORD? > ";B$3$B$""92003$B$"/"ı3"$N3(B$)4'$Q1N:SS(Q)0:SMILE LENGTH? > ";K1100);K110);K1k26:"CREATE NEW HEADERS? (N/Y)> ";A$:1950:A$"Y"İ1600:80002FF1:1685:FF022(#22#" ------------ RUN NEW FILE ----------- "2<#2F#(4);"/"2P#2Z#"READY TO RUN NEW FILE? ";A$3d#A$Z80701KAE14:"CHANGE NO. OF RECORDS? > ";K100);K10);K15:" ";K1100);K110);K115:"CHANGE FILE LENGTH? > ";K2$:K2$""81401(K2$)1(K2$)250K1(K2$)1K1(K2$)8120(25:"CHANGE F";F$;0h3:"CHANGE FILENAME? > ";F1$:F1$""8060M0iF1$"/"8170X0rF$F1$0|3:"CHANGE FILENAME? > ";F$04:" ";K100);K10);K04:"CHANGE NO. OF RECORDS? > ";F1$:F1$""81001A(F1$):A900 //X/=/23:"END-OF-FILE: LAST RECORD= ";Z/23:"END-OF-FILE: LAST RECORD= ";A$:R(A$):RKRZKR:1685/23:958//@/J:"---------- CHANGE PARAMETERS ---------"/TFF1:17450^3:" )).A1$(A$,2)..A0A100B$"-."A1$H.A100A0A$"."A1$x.(A)100A2$(A$,(A$)2):A$A2$"."A1$.A0A$".00".A100A$"-"A$..:"---------- STATISTICAL DATA ----------"..I1K.5800.I/5"10000* A$"R"ĺ(4);"RUN FILE 2.1.1"9 B012000K A$"0"12000 A1000,2000,3000,4000,5000,6000,7000,8000,9000 A9260 A910000,11000 A$"Q"11000 20 :"DISK READ 1 --------------------UN NEW FILE."% " 9. WORD SEARCH."C " S. SPECIAL FUNCTIONS."L B1T 20 :"INSTRUCTIONS FOR WHICH FUNCTION? (/=END, R=RUN FILE 3.1, 0=INTRO) > ";A$ A$A$" ":A$(A$,1) A(A$) BB1:A$" "AB A$"/"Ā A$"STIONS: " F. P" 1. READ DATA FROM DISK."L Z" 2. EDIT DATA IN FILE."j d" 3. SORT DATA IN FILE." n" 4. PRINT DATA TO SCREEN OR PRINTER" x" 5. SAVE DATA TO DISK." " 6. INPUT DATA." " 7. CHANGE FILENAME OR PARAMETERS." " 8. Rq$ INSTRUCTIONS FOR FILE EDITOR,:C"FILE EDITOR 3.1"i(:"COPYRIGHT 1985 MARC W MILLER"2:" THIS PROGRAM ALLOWS THE CREATION OF BASIC INFORMATION FILES AND THE MANIPU- LATION OF THE DATA IN THOSE FILES." <" THERE ARE NINE FUNC""""         N THE COMPUTER-- LETTING YOU SPEND MORE TIME IN PLAYING TRAVELLER."V2185BOSH, OR ATARI VERSIONS, WRITE FOR AVAILABILITY."<o185B*.:"INTRODUCTION 0--------------------------------------"M." TRAVELLER COMPUTER PROGRAMS MAKE IT POSSIBLE TO HANDLE LARGE AMOUNTS OF BASIC DETAIL OING AND HANDLING."5" ORDER DIRECT BY MAIL FROM":" GAME DESIGNERS' WORKSHOP":" PO BOX 1646,":" BLOOMINGTON, IL 61761":" DISKS ARE FORMATTED FOR APPLE II+ WITH48K ON DOS 3.3."3" IF YOU ARE INTERESTED IN COMMODORE, MACKINTEN:";::" PRODUCES ONE STAR SYSTEM IN ACCORDANCE WITH THE GENERATION SYSTEMFROM SCOUTS."c185:"PRICES AND ORDERING ---------------------------------------"" EACH TRAVELLER DISK IS AVAILABLE FOR $17.50 PLUS $1. SHIPP::"SECTOR GEN: ";::" PRODUCES A TRAVELLER SECTOR SUITABLE FOR USE WITH TRADER; CANBE EDITED WITH EDITOR."" ";::"SECTOR GEN.EXP:";::" PRODUCES AN EXPANDED SECTOR WHICH INCLUDES STELLAR DATA AS STATED IN SCOUTS."Z" ";::"SYSTEM G------------------------"" SYSTEM SURVEY PROVIDES PROGRAMS TO HELP IN THE PRODUCTION AND ANALYSIS OF WORLDS AND STAR SYSTEMS."" ";::"UPP ANALYSIS:";::" ALLOWS INPUT OF A UPP AND TELLS IF IT CONFORMS TO TRAVELLER RULES."q" ";DROYNE VARGR "  " IN ADDITION, A WORD ANALYZER ALLOWS A LANGUAGE SAMPLE TO BE INPUT, AND THEN PRODUCES WORDS USING THE SAME LETTER FREQUENCIES AS THE SAMPLE."185:"SYSTEM SURVEY ---------------5Z :"LANGUAGE ---------------------------------------" " LANGUAGE PROVIDES A WORD GENERATOR WHICH PRODUCES WORDS IN THE FOLLOWING LANGUAGES:"  " ASLAN K'KREE ZHODANI VILANI FOR ALL DEFINED TERRAIN TYPES ON ALL POSSIBLE WORLDS IN TRAVELLER."j " TWENTY-FOUR TERRAIN TYPES." " SPECIFIC TABLES FOR ANY WORLD (MINIMUMSIZE 1+, ATMOS 1+)." " ANIMAL ENCOUNTER TABLES CAN BE SAVED TO DISK OR SENT TO PRINTER." 18T- ABLY TRAVEL THROUGH A SECTOR; OR TO SUCCESSFULLY SURVEY IT; OR TO CARRY MESSAGES THROUGH IT."q 185 :"BEASTIARY ---------------------------------------"F " BEASTIARY PROVIDES ANIMAL ENCOUNTER TABLES ALL THE ROUTINE WORK OF INTERSTELLAR EXPLORATION, TRAVEL, TRADE AND COMMERCE TO BE HANDLED BY COMPUTER." " TRADER SHOWS WHAT WORLDS CAN BE REACHEDAND WHAT THEY WILL PROBABLY PROVIDE IN THE WAY OF PROFITS."h " TRADER PRESENTS A CHALLENGE TO PROFI