' +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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠ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<(-Py0\|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  ȟ QlV 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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( e @Ҡ@跻~!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 ~(`# d ֠z# u`."/"PRESS ";::"RETURN";::" FOR MENU.";;24:39SA$:A$(13)1450a::34,0q"RUNMENU" ZWRITE"F$",R"RC$& "CLOSE"F$/170?"CLOSE"F$[(:C$" ALREADY EXISTS."2:"PRESS ";::"RETURN";::" TO CONTINUE."<23:40FA$:A$(13)1350P540x21:31::"N":"REMOVE WORK DISK.""INSERT MASTER DISK"RETURN";::" TO SAVE THIS ON DISK."[~"PRESS ";::"ESC";::" TO CANCEL THIS ENTRY.";g24:39}A$:A$(27)540A$(13)1170F0::"OPEN"F$",L18"L135"READ"F$",R"LA$:A$C$F1F11310""A$"Z"1030.$A$","A$":"A$(34)1030J.(C$)17ĺA$;:C$C$A$T81030f:(8)" "(8);<(C$)1C$"":1030>C$(C$,(C$)1):1030L::"CLASSIFICATION ";VR27ĺ(R64);`R26ĺ(R22);j" = "C$%t:"PRESS ";::A$"*"850"CLOSE"F$,R361000W"ALL NUMBER CLASSIFICATIONS DEFINED."`730"ENTER CLASSIFICATION: ";23:23::" ";23:23:C$""A$:A$(8)(C$)01082A$(13)C$""C$"*"1100 A$" *"650 "CLOSE"F$% R271000P "ALL LETTER CLASSIFICATIONS DEFINED." "PRESS ";::"RETURN";::" TO CONTINUE."; 24:39 A$:A$(13)750 540 >:"OPEN"F$",L18" HR26 RRR1:R35900 f"READ"F$",R"R pA$ z"560 D21:29::"Y";:H N:"ENTER LETTER OR NUMBER? (L/N) ";e XA$:A$"L"A$"N"600 bA$"L"Ģ22:29::"L";: lA$"N"Ģ22:31::"N";::830 v:"OPEN"F$",L18" R0 RR1:R26700 "READ"F$",R"R A$ A$"D"F$",R"V12 A$$ A$"*"4609 V:3:A$;:22:? L V1518c "READ"F$",R"V17k A${ A$"*"520 V:24:A$;:22:  "CLOSE"F$ 34,20: &"ENTER NEW CLASSIFICATION? (Y/N) "; 0A$:A$"N"1400 :A$"YN,N "CLOSE"F$" 19:35) N> "OPEN"F$",L18"J "V113^ ,"READ"F$",R"Vf 6A$v @A$"*"340 JV:3:A$;:22: T ^V113 h"READ"F$",R"V13 rA$ |A$"*"400 V:24:A$;:22:  V1519 "REAOK"" :" CLASSIFICATIONS.". 12:39E A$:A$(13)160s :V113:V:1:(64V);:22:(77V);: V1519:V:1:(34V);:22:(39V);: 19:22 "LONG/SHORT =" F$"FF CLASSES" "OPEN"F$",L18" "READ"F$",R0" s  FICTION FINDER CLASSES4 BY VARON FUGMANM (C) COPYRIGHT 1983id:14:"FICTION FINDER"n:9:"CLASSIFICATION SUBSYSTEM"x: "REMOVE MASTER DISK."::"INSERT WORK DISK."::"PRESS ";::"RETURN";::" FOR A CURRENT LIST OF BO       360,420,500,555,565,590,630,690,740,755,765,775,795,860,925,945,955,965,975,985,995 ,21,27 -`' 28,27,27,27,26,27,25 ,27,24,27,24,28,24,29,27,30,26,30,25,30,24,30,24,31,24,32,24,33,25,33,26,33,27,33,28,33,30,33,30,32,30,31,30,30,30,29,30,28,30,27,31,27,32,27,33,27,33,28,33,29,33,30,32,30,31,30,32,31,33,32,34,33S.t' 20,90,185,275,325,,30,11,29,11,28,10,27,11,27,12,27-V' 14,33,14,32,14,31,14,30,14,29,14,28,14,27,15,27,16,27,16,28,16,29,16,30,16,31,16,32,16,33,17,33,18,33,18,32,18,31,18,30,18,29,18,28,18,27,20,27,20,28,20,29,20,30,20,31,20,32,20,33,21,33,22,32,22,31,22,30,22,29,22,28,26,19,26,18+B' 31,23,31,22,31,21,31,20,31,19,31,18,31,17,32,17,33,17,33,18,33,19,33,20,33,21,33,22,33,23,34,23,35,23,35,22,35,21,35,20,35,19,35,18,35,17!,L' 8,27,7,27,6,27,5,27,5,28,5,29,7,30,6,30,5,30,5,31,5,32,5,33,10,33,11,33,12,33,11,32,11,31,11,21,13,22,13,23,14,23,15,23,16,23,18,17,19,17,20,17,19,18,19,19,19,20,19,21,19,22,19,23 +8' 22,23,23,23,24,23,23,22,23,21,23,20,23,19,23,18,22,17,23,17,24,17,26,17,27,17,28,17,29,17,29,18,29,19,29,20,29,21,29,22,29,23,28,23,27,23,26,23,26,22,26,21,26,209,29,6,30,6,30,7,34,6,33,6,32,6,32,7,32,8,33,8,34,8,34,9,34,10,33,10,32,10)$' 7,17,6,17,5,17,4,17,4,18,4,19,6,20,5,20,4,20,4,21,4,22,4,23,9,23,10,23,11,23,10,22,10,21,10,20,10,19,10,18,9,17,10,17,11,17X*.' 16,17,15,17,14,17,13,17,13,18,13,19,13,20,1310,9,9,9,8,9,7,9,6,10,8,10,6,11,6,11,7,11,8,11,9,11,10,13,6,13,7,13,8,13,9,13,10,14,10,15,10,17,10,18,10,19,10,18,9,18,8,18,7,17,6,18,6,19,6J)' 23,6,22,6,21,6,21,7,21,8,21,9,21,10,22,10,23,10,25,10,26,10,27,10,27,9,27,8,27,7,27,6,26,6,25,6,25,7,25,8,25,;'#A$:A$"Y"ĺ:1000+'#A$"N"91105'#::V'#"FICTION FINDER TERMINATED"q'#:"APPLESOFT BASIC":w'#'#RRR:F1'#R:RRR9210'$"READ"F$",R"R'$W$:W$"*"RRR:9210'$RRR:(' 7,6,6,6,5,6,5,7,5,8,5,9,5,10,6,10,7,10,9,z#???     Ġ!ΠҠ(ƠӠӠ ҠϠ"Š"ՠԭРӠ%Ԡ Y8183:273,Y279,Y:8 X27802:X,176X,183:S Y17601:0,Y6,Y:c "RUNMENU" e FICTION FINDER+ INITIAL LOADERA BY VARON FUGMANZ( COPYRIGHT (C) 1983d::::6:0,0:62454::16300,0:16302,0:16297,0:16304,0n"BLOAD LOGO""BLOAD TITLE"16299,0:7:L14000:X02782:X,0X,7:  *T*T*@@Gb@ *"<0"T*|G0` pf` ~3?T*T*T*T*rAp!|C x80T* T8>GcqssNGBGT*T*T*T*T*T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*T*xOqgx`?f?|~s?T*T*@@HH"D  """DDT* @0` 0f` 0pT*T*T*T*@!DD0` DDT* DD$DD $$$ $A"$T*T*T*T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*pADD"@GcAps ::10:"1. SET-UP"c :10:"2. ADD CLASSIFICATIONS" :10:"3. ADD/DELETE BOOKS" :10:"4. MASTER LIST" :10:"5. BOOK SEARCH" :10:"6. EXIT TO BASIC" ::4:"PRESS THE NUMBER BY  FICTION FINDER& MAIN MENU< BY VARON FUGMANU( COPYRIGHT (C) 1983[dn:" ";x23:" ";V222:V:1:" ";:40:" ";: :14:3:"FIC   3:40XA$:A$(13)600(b:34,08l"RUNMENU" "OPEN"F$",L100" L09993 "WRITE"F$",R"L< "*"B R "CLOSE"F$ :"NEW DATA FILES HAVE NOW BEEN CREATED." &T02000: 0::"REMOVE WORK DISK." ::"INSERT MASTER DISK." D:"PRESS ";::"RETURN";::" FOR MENU."N2ING NEW DATA FILES."= |"THIS WILL TAKE ABOUT TWO MINUTES."Q F$"FF CLASSES"` "OPEN"F$q "DELETE"F$ "OPEN"F$",L18" "WRITE"F$",R0" 0:N L135 "WRITE"F$",R"L "*"  "CLOSE"F$ F$"FF BOOK DATA" TINUE." "18:93 ,A$:A$(27)ĺ:"RUN MENU"F 6A$(13)300R @24::m J"REMOVE MASTER DISK." T:"INSERT INITIALIZED WORK DISK." ^:"PRESS ";::"RETURN";::" AFTER SWITCHING DISKS. "; hA$:A$(13)360 r:::"NOW CREATE"- "WHETHER A BOOK IS SHORT OR LONG: ";7 "";NS N10N999N(N)210 :::"WARNING:";::" ANY EXISTING FICTION FINDER" "DATA FILES WILL BE ERASED!!! PRESS" :"ESC";::" TO ABORT. PRESS ";::"RETURN";::" TO CON WILL";H :"BE ERASED. PRESS ";::"ESC";::" TO RETURN TO THE"; :"MENU. PRESS ";::"RETURN";::" TO CONTINUE." 12:40 A$:A$(27)ĺ:"RUN MENU" A$(13)190 34,5::: "ENTER THE NUMBER OF PAGES THAT DETERMIN: FICTION FINDER. SET-UP DATA FILESD BY VARON FUGMAN]( COPYRIGHT (C) 1983cd}n14:"FICTION FINDER"x:13:"SET-UP SUBSYSTEM":"THIS SUBSYSTEM SETS UP NEW FICTION"; :"FINDER DATA FILES. EXISTING DATA       THIS BOOK.";p:"PRESS ";::"RETURN";::" WHEN DONE."Gz20:40dA$:A$(13)C$""990{A$"A"A$"Z"900C$((A$)64)""900(C$((A$)64),1)"Y"900C$((A$)64)"Y"(C$((A$)64),(C$((A$)64))1):1:V(A$)64:OSE"F$*:V113?4V:1:C$(V)""ĺ(C$(V),(C$(V))1);p>22:C$(V13)""ĺ(C$(V13),(C$(V13))1)H:15:1:L8:C$""R"ENTER UP TO 8 SUBJECT CATEGORIES."\:"PRESS THE LETTERS BY THE BOOK CATEGORIES"; f"YOU WANT TO SELECT FOR"CLOSE"F$B999ė:"YOU CANNOT ENTER ANY MORE BOOKS. THE":"BOOK DATA FILE IS FULL. 1000 BOOKS HAVE":"BEEN ENTERED."::9800"OPEN"F$",L18"V126"READ"F$",R"VA$:A$"*"790 C$(V)"N"(V64)" "A$ "CL34,00l"HOW MANY PAGES LONG IS THE BOOK? ";Rv"";P:P1P9999P(P)610x:"CHANGE THE LENGTH? (Y/N) ";A$:A$"Y"610A$"N"650D1ĺ:::9000:F$"FF CLASSES":"OPEN"F$",L18""READ"F$",R0"B,O 0A$" "A$"Z"5101A$":"A$(34)510HA$","İ9300:510c&(C$)LĺA$;:C$C$A$l0510:N$C$:::::"DO YOU WANT TO MAKE ANY CHANGES TO THE"D:"ABOVE INFORMATION? (Y/N) ";NA$:A$"Y"240XA$"N"590b34,5:: A$":"A$(34)420. A$","İ9300:420I (C$)LĺA$;:C$C$A$R 420y L$C$:L85(L$)(TT$):L39L39 :15:1:"ENTER AUTHOR'S FIRST NAME:" :17:L) 17:1:C$"" A$:A$(13)C$""570A$(8)(C$)0İ9200:51. |(TT$)2ĭ(TT$,2)"A "T$(T$,(TT$)2)I L83(TT$):L39L39q 11:1:"ENTER AUTHOR'S LAST NAME:" :13:L) 13:1:C$"" A$:A$(13)C$""470 A$(8)(C$)0İ9200:420 A$" "A$"Z"420 (C$)1ĭA$"A"420 ,A$(8)(C$)0İ9200:2906 6A$" "A$"Z"290O @A$":"A$(34)290f BA$","İ9300:290 J(C$)60ĺA$;:C$C$A$ T290 ^:T$C$:TT$C$ h(TT$)4ĭ(TT$,4)"THE "T$(T$,(TT$)4) r(TT$)3ĭ(TT$,3)"AN "T$(T$,(TT$)3)ER BY YOUR SELECTION";0 K(49152):K128200N 49168,0:K193K195200^ K1959700n K1944000 :14:"FICTION FINDER" :15:"ADD NEW BOOK" ::"ENTER TITLE:":: 8:60) 8:1:C$"":L60 "A$:A$(13)C$""3502:V:1:" ";:40:" ";::8 3:14:"FICTION FINDER"d :5:"BOOK ADDITION/DELETION SUBSYTEM" 8:14:"SUBSYSTEM MENU"; ::10:"A. ADD NEW BOOK" :10:"B. DELETE BOOK" :10:"C. RETURN TO MAIN MENU" ::4:"PRESS THE LETT# FICTION FINDER- ADD/DELETE BOOKSC BY VARON FUGMAN\( COPYRIGHT (C) 1983hPC$(35)pZD1d:L135:C$(L)""::L(A$)::" ";n23:" "; xV22               F14260"RR1:F1+"R0R99942605"4240C"F15000W"RR1:R04990k""READ"F$",R"R"A$::A$"*"4990""READ"F$",R"R"W$,X$"X$L$4510"~RR1""READ"F$",R"R"W$,X$,Y$,Z$":14:"FICITON FINDER"#ATA"!"OPEN"F$",L100".!"READ"F$",R"RF!A$::A$"*"4280V!"CLOSE"F$!::"THERE ARE NO BOOKS BY THIS AUTHOR.":::9800!"READ"F$",R"R!W$,X$!X$L$4330!X$L$4350!4500!F14260!RR1:F1:4370 "4000 ,A$"N"4130! .::0 0D1İ9000O 6:"SEARCHING FOR AUTHOR."m @9100:F0:F$"FF CLASSES" J"OPEN"F$",L18" T"READ"F$",R0" ^B,O h"CLOSE"F$ rB0ĺ::"THERE ARE NO BOOKS IN THE DATA FILE.":::9800!|F$"FF BOOK D:L39:C$"":F0-A$:A$(13)C$""4110MA$(8)C$""İ9200:4040eA$" "A$"Z"4040}A$","İ9300:4040A$":"A$(34)4040(C$)LĺA$;:C$C$A$4040:::L$C$"CHANGE THE AUTHOR? (Y/N) "; "A$:A$"Y" F$"FF CLASSES"( "OPEN"F$",L18"= "WRITE"F$",R0"I B1:OY "CLOSE"F${ :"THE BOOK HAS BEEN SAVED."& ::9800:14:"FICTION FINDER":15:"DELETE BOOK"::"ENTER AUTHOR'S LAST NAME:":::8:1:39):8:1RA$::A$"*"21105W"MAKING ROOM FOR BOOK."C\LRRR1Yf"READ"F$",R"L1jpW$,X$,Y$,Z$z"WRITE"F$",R"LW$:X$:Y$:Z$ :"READ"F$",R"R :"SAVING BOOK." "WRITE"F$",R"R C$:L$:N$:TT$ "CLOSE"F$RR1:RR9992100'"READ"F$",R"RR?A$::A$"*"2010^:"MAKING ROOM FOR BOOK."oLRR1R1"READ"F$",R"L W$,X$,Y$,Z$"WRITE"F$",R"L1 W$:X$:Y$:Z$*:30004RRR>RRRR1:RR02008H"READ"F$",R"RRSE"F$':"THE BOOK ALREADY EXISTS."3:9800AF12000_F1:RR1:R0R0:2000i1660RR1:R999R999:2000F12000&F1:1660RRR:LL$L$:(LL$)2LL$LL$" "(LL$,2,1)"N"RR1:2100RRRRR$Z$:(Z$)4ĭ(Z$,4)"THE "Z$(ZZ$,(ZZ$)4):1730n(Z$)2ĭ(Z$,2)"A "Z$(ZZ$,(ZZ$)2):1730(Z$)3ĭ(Z$,3)"AN "Z$(ZZ$,(ZZ$)3)X$" "Y$" "Z$L$" "N$" "T$1780X$" "Y$" "Z$L$" "N$" "T$1810"CLO@"PRESS ";::"ESC";::" TO CANCEL ENTRY.";:39IJA$:A$(27)100]TA$(13)1610^:"SEARCHING FOR ALPHABETIC LOCATION."h9100:F0:F$"FF BOOK DATA"r"OPEN"F$",L100"|"READ"F$",R"RA$:A$"*"3000W$,X$,Y$,Z$ZZ SHORTER THAN "O" PAGES."\"C$C$CC$:V1(C$):V11:A$(C$,V,1):A$"A"A$((A$)42),(C$((A$)64),(C$((A$)64))3):.(C$)10C$C$" ":15820POC$C$"!"2POC$C$"."623:"PRESS ";::"RETURN";::" TO SAVE BOOK."330A$"N"1470&:"TITLE:":SV1(TT$):A$(TT$,V,1):A$"]"A$","^A$;:u6:1:"AUTHOR:":V1(N$L$)1:A$(N$" "L$,V,1):A$"]"A$","A$;::10:1:POĺ"LENGTH: LONGER THAN "O" PAGES."POĺ"LENGTH: "(C$((A$)22),(C$((A$)22))1)6:1:(A$)48^(C$((A$)22),(C$((A$)22))1);:CC$CC$A$:LLLL1:11:13:LL;LL0137020:1:"DO YOU WANT TO CHANGE ANY RESTRICTIVE CLASSIFICATIONS ABOVE? (Y/N) ";A$:A$"Y"ĺ:12ESS THE NUMBERS BY THE BOOK CATEGORIESYOU WANT TO SELECT FOR THIS BOOK."wP:"PRESS ";::"RETURN";::" WHEN DONE."Z16:40dA$:A$(13)1460iA$"1"A$"9"1380nC$((A$)22)""1380x(C$((A$)22),1)"Y"1380#C$((A$)22)"Y"V2735""READ"F$",R"V7A$:A$"*"1290TC$(V)"N"(V22)" "A$Z j"CLOSE"F$w:V19(V:1:C$(V26)""ĺ(C$(V26),(C$(V26))1)2:11:1:LLL2:CC$""<"ENTER UP TO "LL" RESTRICTIVE CATEGORIES."HF:"PRV13VV13:22<V:(C$((A$)64),(C$((A$)64))1);:dC$C$A$:LL1:15:13:L;:L089022:1:"DO YOU WANT TO CHANGE ANY SUBJECT CLASSIFICATIONS ABOVE? (Y/N) ";A$:A$"Y"ĺ:740A$"N"1000:"OPEN"F$",L18G MAIN MENU "%+%D1ė:9050++%;+&"RUNMENU"y+H&"PRESS ";::"RETURN";::" FOR MENU. ";+R&A$:A$(13)9810+\&100+&D1Ģ17:4:" NOW LOADING MAIN MENU "+&D1ė:9050+&:"RUNMENU" *# 20,90,185,275,325,360:*#420,500,555,565,590,630W*#690,740,755,765,775,795|*#860,925,945,955,965,975,985,995*#(8)" "(8);*#(C$)1C$"":*$C$(C$,(C$)1):*T$(C$)Lĺ",";:C$C$"]"*^$+%D1Ģ17:4:" NOW LOADIN00)(#:"REMOVE MASTER DISK.":)2#:"INSERT WORK DISK."z)<#:"PRESS ";::"RETURN";::" AFTER SWITCHING DISKS. ";)F#A$:A$(13)1030)P#DD1:)Z#:"REMOVE WORK DISK.")d#:"INSERT MASTER DISK.")n#9020*#L1((L$,1))64:R:::1(W$,X$,Y$,Z$'("WRITE"F$",R"L;(W$:X$:Y$:Z$A(V(9100:RRR6500l(X"WRITE"F$",R"RRu(b"*"(l"CLOSE"F$(vF$"FF CLASSES"("OPEN"F$",L18"("WRITE"F$",R0"(B1:O("CLOSE"F$("BOOK DELETED.")::98'jW$:X$:Y$:Z$'t"'~70005'dRRR:R07000K'n"READ"F$",R"R1`'xW$:W$"*"7000w'A$::A$P$7000'RRRR1:RR06600'"READ"F$",R"RR'W$:W$"*"6600'A$::A$P$6540'RRRR1'LRRR11("READ"F$",R"LR:R9997000#&"READ"F$",R"R18&W$:W$"*"6900O&A$::A$P$6900h&RRRR1:RR9996200}&"READ"F$",R"RR&W$:W$"*"6200&A$::A$P$6070&8RRRR1&BLRRR1&L"READ"F$",R"L1&VW$,X$,Y$,Z$&`"WRITE"F$",R"LITION"F$",R0"?%"PRESS ";::"RETURN";::" TO DELETE BOOK."}%"PRESS ";::"ESC";::" TO ABORT. ";%A$:A$(13)ĺ:6000%A$(27)5530%5125%pRRR::"DELETING BOOK.":%zP$(L$,1):9100%RRR6500 &RR$:A$"Y"ĺ:5500#$A$"N"5110)$@$ RR1:R10005160P$"CLOSE"F$$::"THERE ARE NO MORE BOOKS BY"::L$".":::9800$("READ"F$",R"R$2A$::A$"*"5140$<"READ"F$",R"R$FW$,X$$PX$L$5000$Z5140$|: %"POS:15:"DELETE BOOK"::*#"TITLE:":U#L1(Z$):A$(Z$,L,1):A$"]"A$","d#A$;:::u#"AUTHOR:":#W$Y$" "X$:L1(W$):A$(W$,L,1):A$"]"A$","#A$;::::#"POSITION"F$",R0"#"DELETE THIS BOOK? (Y/N) ";$A2010"READ"F$",R"R3W$:W$"*"RRR:2010ARRR:595^4 20,90,185,275,325,360|> 420,500,555,565,590,630H 690,740,755,765,775,795R 860,925,945,955,965,975,985,995 :37)"NO BOOKS"::%"PR#0"235,24:K"REMOVE WORK DISK."h$:"INSERT MASTER DISK.".:"PRESS ";::"RETURN";::" AFTER SWITCHING DISKS."810:40BA$:A$(13)1090L:34,0:V"RUNMENU"RRR:F1R:RRRĂ::" ";:L1(T$):A$(T$,L,1):A$"]"A$","GA$;::g:UU3:U50U0:(12);:t"PR#0"K(49152):K12871049168,0:K155ĺ:"CLOSE"F$:1040RR1:F0:"CLOSE"F$"PR#"P1020"PR#"PEAD"F$",R"R$ XC$:C$"*"F02000; ]C$"*"RR1:595I bL$,N$,T$V l"PR#"Ph vB1000ĺ" ";y B100ĺ" "; B10ĺ" "; B". ";:L1(L$):A$(L$,L,1):A$"]"A$"," A$;::", ";:L1(N$):A$(N$,L,1):A$"]"A$","A$;::: "PR#"P- 34)"FICTION FINDER":M 33)"MASTER BOOK LIST"::Z "PR#0"r F$"FF CLASSES":U5 "OPEN"F$",L18" "READ"F$",R0" &M 0"CLOSE"F$ 5M01000 :F$"FF BOOK DATA" D"OPEN"F$",L100" NB1M S"R:" AFTER SWITCHING DISKS."' 17:40> A$:A$(13)410 ::"POSITION PAPER.":"PRESS ";::"RETURN";::" WHEN READY." 20:40 A$:A$(13)410 24:1 "PRESS ";::"ESC";::" AT ANY TIME TO ABORT PRINTING"; 34,5:35,22SLOT 1? (Y/N) ";+ A$:A$"Y"P1:260< A$"N"210T 15:1:39):15:1} "WHAT SLOT IS YOUR PRINTER IN? ";P P1P7P(P)230 15:1:39):15:1 r"REMOVE MASTER DISK." |"INSERT WORK DISK." "PRESS ";::"RETURN";:;" "BY AUTHORS' LAST NAMES.":o "IF YOU DON'T HAVE A PRINTER, PRESS ";::"ESC"::"TO RETURN TO MENU." :"PRESS ";::"RETURN";::" TO CONTINUE." 13:40 A$:A$(27)ĺ:"RUNMENU" A$(13)180 15:1:"IS YOUR PRINTER IN  FICTION FINDER- MASTER BOOK LISTC BY VARON FUGMAN\( COPYRIGHT (C) 1983xd:14:"FICTION FINDER"n:10:"MASTER LIST SUBSYSTEM"x::"THIS SUBSYTEM PRINTS A COMPLETE LIST OF"; "ALL BOOKS. THE LIST WILL BE ALPHABETIZED"     "ESC";::" AT ANY TIME TO ABORT SEARCH.";:20::35,21ES02400R"PR#"Sp34)"FICTION FINDER"::"SUBJECT: "(C$((S$)64),(C$((S$)64))2):"RESTRICTIONS: ";R$""2320V1(R$)C$(((R$,V,1))26) f21:1:60):21:1Ip"PRESS ";::"RETURN";::" TO BEGIN SEARCH."z"PRESS ";::"ESC";::" TO ABORT. ";A$:A$(27)ė:9090A$(13)218034,5:S0Ĺ34,0:20:L19:39)::34,167:24:1:"PRESS ";::A$:A$"V"S0:2150* A$"P"2050B21:1:60):21:1n "IS YOUR PRINTER IN SLOT 1? (Y/N) ";*A$:A$"Y"S1:21504A$"N"2090>21:1:60):21:1H"WHAT SLOT IS YOUR PRINTER IN? ";R"";S\S(S)S1S72110S")P$"L"Ė16:"MORE THAN "O" PAGES"9L$""2040O16:"AUTHOR: ";zL1(L$):A$(L$,L,1):A$"]"A$","A$;:::R$""P$"A"L$""Ė16::"NONE";21:1:"OUTPUT LIST OF BOOKS TO VIDEO DISPLAY ORPRINTER? (V/P) ";$)64),(C$((S$)64))2)3D:"RESTRICTIONS: ";CNR$""1980IP^X"OPEN"F$",L18"kbV2735l"READ"F$",R"VvC$(V)"CLOSE"F$V1(R$)V7:16C$(((R$,V,1))26)P$"S"Ė16:"LESS THAN "O" PAGEA$","(L$)39L$L$"]":",";:1720BA$":"A$(34)1720U(L$)381720mL$L$A$:A$;:1720z15:1:"CHANGE AUTHOR? (Y/N) ";A$:A$"Y"Ģ15:1:40):1710&A$"N"1820034,5::34,0:"SUBJECT: "(C$((S$"Y"1670#10:1:40):10:1D"ENTER AUTHOR'S LAST NAME:"d12:1::39):12:1:L$""A$:A$(13)L$""1800A$(8)L$""ĺ(8)" "(8);:(L$)1L$"":1720A$(8)(L$)1L$(L$,(L$)1):1720A$" "A$"Z"1720(70,A$"S"Ģ7:30(6A$"L"Ģ7:32;@A$"A"Ģ7:34NJ:A$;::P$A$uT10:1:"CHANGE LENGTH? (Y/N) ";^A$:A$"Y"1520hA$"N"1630r10:1:40):10:1|"RESTRICT SEARCH TO ONE AUTHOR? (Y/N) ";A$:A$"N"1840 A"":1265A$"N"15009::14:"FICTION FINDER"T3:15:"BOOK SEARCH"[6"DO YOU WANT SHORT BOOKS ONLY, LONG BOOKSONLY, OR ANY LENGTH BOOKS? (S/L/A) (CUT-OFF POINT IS "O" PAGES.)";7:38"A$:A$"S"A$"L"A$"A"150 A$:A$(13)14900 A$"1"A$"9"1410J C$((A$)22)""1410W R$R$A$h (A$)48:1| :C$((A$)22) C$((A$)22)"": LL1:11:13:L;:L01400 20:1:"CHANGE RESTRICTIVE CATEGORIES? (Y/N) "; A$:A$"Y"ĺ::R$19& FV:1:C$(V26)""ĺC$(V26)= P:11:1:L9:C$""l Z"ENTER UP TO "L" RESTRICTIVE CATEGORIES." d::"PRESS THE NUMBERS BY THE RESTRICTIVE CATEGORIES YOU WANT FOR THIS SEARCH." n::"PRESS ";::"RETURN";::" WHEN DONE." x15:44)""1190 :A$;::S$A$K 18:"CHANGE SUBJECT CATEGORY? (Y/N) ";e A$:A$"Y"ĺ::1140w A$"N"1240 : "OPEN"F$",L18" V2735 "READ"F$",R"V A$:A$"*"1310 C$(V)(V22)" "A$  ("CLOSE"F$ <VAD"F$",R"V LA$:A$"*"11208 VC$(V)(V64)" "A$> `N j"CLOSE"F$Z tV113w ~V:1:C$(V)""ĺC$(V); 22:C$(V13)""ĺC$(V13) :15:1 "ENTER SUBJECT CATEGORY TO SEARCH FOR: "; A$:A$"A"A$"Z"1190 C$((A$)6WITCHING DISKS. ";* A$:A$(13)1603 " "C ::C$(35)W F$"FF CLASSES"l "OPEN"F$",L18" "READ"F$",R0" B,O "CLOSE"F$ $B0ĺ"THERE ARE NO BOOKS. DATA FILE EMPTY.":::9100 ."OPEN"F$",L18" 8V126 B"RE FICTION FINDER0 BOOK FIND SUBSYSTEMF BY VARON FUGMAN_( COPYRIGHT (C) 1983{d:14:"FICTION FINDER"n:15:"BOOK SEARCH"x::"REMOVE MASTER DISK.":"INSERT WORK DISK.": "PRESS ";::"RETURN";::" AFTER S               9170%#" "%#"RUN MENU",%#RRR:F1>%#R:RRR9210R%$"READ"F$",R"Rm%$W$:W$"*"RRR:9210x%$RRR:%' 20,90,185,275,325,360,420,500,555,565,590,630,690,740,755,765,775,795,860,925,945,955,965,975,985,995 ER"::15:"BOOK SEARCH"::E$#"SEARCH FOR MORE BOOKS? (Y/N) ";]$#A$:A$"Y"ĺ:1000o$#A$"N"9110y$#::$#"REMOVE WORK DISK.":$#"INSERT MASTER DISK.":$#"PRESS ";::"RETURN";::" AFTER SWITCHING DISKS. ";%#A$:A$(13)$):A$(N$,F,1):A$"]"A$","+#A$;::b#" ";:F1(T$):A$(T$,F,1):A$"]"A$","q#A$;:::#UU3:U50U0:(12);:# "PR#0"#4480#(#CC1:C72C1:#2#X,Y:((1)15)1:X,Y:$#34,0:35,24::14:"FICTION FIND"OPEN"F$",L100""'"BF14520m"35,24:23:1:"NOW SEARCHING FOR NEXT BOOK. ":19:35,20z""PR#"S"BF1000ĺ" ";"BF100ĺ" ";"BF10ĺ" ";"BF". ";:F1(L$):A$(L$,F,1):A$"]"A$","#A$;::", ";:F1(N(T$,F,1):A$"]"A$","X!HTTTT1:TT8(T$)2A$" "(T$)34TT34A$(13):TT100!NA$;:::19:N$N$" "L$:F1(N$):A$(N$,F,1):A$"]"A$","!XA$;::32,0:33,40!b35,24:23:1:"NOW SEARCHING FOR NEXT BOOK. ":18:35,20"(27)ġ:9090" A$(13)4350/ 35,20:9 4410z &34,13::35,23:"........................................"; 021:"........................................";:34,15:16:35,20 ::BF". ":33,34:32,6:!DTT0:F1(T$):A$SL(R$)4300A,CR$(R$,SL,1):F1(SR$):(SR$,F,1)CR$RF1O6:RF0ı^@RF0:4130lL$,N$,T$|"CLOSE"F$BFBF1S04500BF2439035,23:23:1"PRESS ";::"RETURN";::" FOR NEXT BOOK. "; A$:A$(SR$,1)"!"4060!SL0HSLSL1:ST$(SR$,SL,1):ST$"A"ıZST$S$4070jR$""4300SLSL1:(SR$,SL,1)"@"4090SR$(SR$,SL,11SL) (SR$,1)" "ı(SR$,1)" "SR$(SR$,(SR$)1):4110SL0:RF0 "SLSL1:  W$,X$ X$L$3210$ RR1. 4000D RR1:R9992520X "READ"F$",R"Ro A$::A$"*"2520 "READ"F$",R"R W$,X$ X$L$3300* 2520"READ"F$",R"RSR$P$"A"4060P$"S"(SR$,1)"."4060P$"L"EAD"F$",R"R W$,X$& X$L$31306& X$L$3150@0 3200N: F12520cD RR1:F1:3170rN F12520X RR1:F1b R0R9992520l 3060 F13300 RR1:R03270 "READ"F$",R"R A$::A$"*"3270 "READ"F$",R"RSS ";::"RETURN";::" TO CONTINUE. ";=d 2570O 35,23:23:1~ "SEARCHING FOR AUTHOR. "; 21:35,21:" " F0 L1((L$,1))64:R: "OPEN"F$",L100" "READ"F$",R"R A$::A$"*"2520  "R TO CONTINUE. ";5 A$:A$(13)2570? 9090L "PR#"S( :" THERE ARE NO BOOKS THAT FIT THIS LIST."2 ::< "PR#0"F 9090P S090903Z 35,24:23:1:"THERE ARE NO MORE BOOKS ON THIS LIST. PRE C$"*"RR1:24603 K(49152):K1282500[ 49168,0:K155ĺ:"CLOSE"F$:9090i 4000:F0w RR1:: "CLOSE"F$ BF02640 S02590 35,24::"THERE ARE NO BOOKS THAT FIT THIS LIST." ::"PRESS ";::"RETURN";::""; N ::&P U8:R$""UU(R$)3V "PR#0"V` F$"FF BOOK DATA":L$""3000hj 35,23:23:1t "NOW SEARCHING FOR FIRST BOOK. ";~ 21:35,21:" " "OPEN"F$",L100" L1B "READ"F$",R"R C$:C$"*"F0İ9200:2460" ";:N P$"S"ĺ"SHORTER THAN "O" PAGES":" "; P$"L"ĺ"LONGER THAN "O" PAGES":" ";$ L$""2380. "AUTHOR: ";8 L1(L$):A$(L$,L,1):A$"]"A$","B A$;::L R$""P$"A"L$""ĺ"NONEAUTHOR: ";6L1(L$):A$(L$,L,1):A$"]"A$","EA$;:::kR$""P$"A"L$""Ė16::"NONE";q21:1:"OUTPUT LIST OF BOOKS TO VIDEO DISPLAY ORPRINTER? (V/P) ";A$:A$"V"S0:2150 A$"P"205021:1:60):21:1*PX"OPEN"F$",L18"'bV2735;l"READ"F$",R"VFvC$(V)L\"CLOSE"F$kV1(R$)xV7:16C$(((R$,V,1))26)P$"S"Ė16:"LESS THAN "O" PAGES"P$"L"Ė16:"MORE THAN "O" PAGES"L$""2040 16:"(L$)381720)L$L$A$:A$;:1720615:1:V"CHANGE AUTHOR? (Y/N) ";yA$:A$"Y"Ģ15:1:40):1710&A$"N"1820034,5::34,0:"SUBJECT: "(C$((S$)64),(C$((S$)64))2)D:"RESTRICTIONS: ";NR$""1980 12:1::39):12:1:L$"">A$:A$(13)L$""1800uA$(8)L$""ĺ(8)" "(8);:(L$)1L$"":1720A$(8)(L$)1L$(L$,(L$)1):1720A$" "A$"Z"1720A$","(L$)39L$L$"]":",";:1720A$":"A$(34)1720$;::P$A$1T10:1:"CHANGE LENGTH? (Y/N) ";F^A$:A$"Y"1520XhA$"N"1630pr10:1:40):10:1|"RESTRICT SEARCH TO ONE AUTHOR? (Y/N) ";A$:A$"N"1840A$"Y"167010:1:40):10:1"ENTER AUTHOR'S LAST NAME:":"BOOK SEARCH"6"DO YOU WANT SHORT BOOKS ONLY, LONG BOOKSONLY, OR ANY LENGTH BOOKS? (S/L/A) (CUT-OFF POINT IS "O" PAGES.)";7:38"A$:A$"S"A$"L"A$"A"1570,A$"S"Ģ7:306A$"L"Ģ7:32@A$"A"Ģ7:34 J:A"1410R$R$A$$(A$)48:18:C$((A$)22)NC$((A$)22)"":nLL1:11:13:L;:L0140020:1:"CHANGE RESTRICTIVE CATEGORIES? (Y/N) ";A$:A$"Y"ĺ::R$"":1265A$"N"1500::14:"FICTION FINDER"3:15ENTER UP TO "L" RESTRICTIVE CATEGORIES."d::"PRESS THE NUMBERS BY THE RESTRICTIVE CATEGORIES YOU WANT FOR THIS SEARCH."n::"PRESS ";::"RETURN";::" WHEN DONE."x15:40A$:A$(13)1490A$"1"A$"9"1410C$((A$)22)"/N) ";!A$:A$"Y"ĺ::11403A$"N"1240;:P"OPEN"F$",L18"]V2735q"READ"F$",R"V A$:A$"*"1310C$(V)(V22)" "A$("CLOSE"F$<V19FV:1:C$(V26)""ĺC$(V26)P:11:1:L9:C$""(Z""CLOSE"F$ tV1133 ~V:1:C$(V)""ĺC$(V);S 22:C$(V13)""ĺC$(V13)` :15:1 "ENTER SUBJECT CATEGORY TO SEARCH FOR: "; A$:A$"A"A$"Z"1190 C$((A$)64)""1190 :A$;::S$A$18:"CHANGE SUBJECT CATEGORY? (Y F$"FF CLASSES"( "OPEN"F$",L18"< "READ"F$",R0"E B,OU "CLOSE"F$ $B0ĺ"THERE ARE NO BOOKS. DATA FILE EMPTY.":::9100 ."OPEN"F$",L18" 8V126 B"READ"F$",R"V LA$:A$"*"1120 VC$(V)(V64)" "A$ ` j LIBRARY"- h8:"INSTRUCTION COMPANY, INC."` r16:3:"P.O. BOX 15916, ST. LOUIS, MO 63114" |20:9:"PRESS ";::"RETURN";::" TO CONTINUE" P(49152):P128390 49168,0 P141390 ::C$(35) L153:X,X,X,X,X,X,X,X,X,X:279:X,8X,182:3 "16297,0:16299,0:34,0::d ,40):V222:V:1:" ";:40:" ";::40); 6::3:14:"FICTION FINDER" @5:15:"BOOK SEARCH" J8:13:"BY VARON FUGMAN" T10:12:"COPYRIGHT (C) 1983" ^13:8:"COMPUTER ASSISTED,Y:X,Y:" C73:L144:9000:A L039:15:0,1L:9000:_ L045:15:39,L:9000: L3901:15:44,45L:9000: L4501:15:0,L:9000: L1300: 7:Y07:0,Y279,Y::Y176183:0,Y279,Y::X06:X,8X,182::X274U& FICTION FINDER0 BOOK FIND SUBSYSTEMF BY VARON FUGMAN_( COPYRIGHT (C) 1983ud::::16302,0nL41472:0,39L:x12:0,390:0,3910,450:0,45390,3944:0,39456:L172:X,Y:X,Y: 12:L1193:X!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     $):A$(T$,F,1):A$"]"A$","-&A$;:::K&UU3:U50U0:(12);:X& "PR#0"b&4480x&(#CC1:C72C1:&2#X,Y:((1)15)1:X,Y:",0:35,24::14:"FICTION FINDER"::15:"BOOK SEARCH"::'#"SEARCH FOR MORE BOOKS? (Y/N) "CHING FOR NEXT BOOK. ":19:35,206%"PR#"SI%BF1000ĺ" ";[%BF100ĺ" ";l%BF10ĺ" ";%BF". ";:F1(L$):A$(L$,F,1):A$"]"A$","%A$;::", ";:F1(N$):A$(N$,F,1):A$"]"A$","%A$;::&" ";:F1(T34A$(13):TT100Y$NA$;:::19:N$N$" "L$:F1(N$):A$(N$,F,1):A$"]"A$","q$XA$;::32,0:33,40$b35,24:23:1:"NOW SEARCHING FOR NEXT BOOK. ":18:35,20$"OPEN"F$",L100"$$BF14520)%35,24:23:1:"NOW SEAR::35,23:"........................................";}#021:"........................................";:34,15:16:35,20#::BF". ":33,34:32,6:#DTT0:F1(T$):A$(T$,F,1):A$"]"A$","$HTTTT1:TT8(T$)2A$" "(T$)34TT6:RF0ı"@RF0:4130("L$,N$,T$8""CLOSE"F$D"BFBF1R"S04500a"BF24390s"35,23:23:1""PRESS ";::"RETURN";::" FOR NEXT BOOK. ";"A$:A$(27)ġ:9090"A$(13)4350"35,20:"44106#&34,13A"ı!ST$S$4070&!R$""4300H!SLSL1:(SR$,SL,1)"@"4090`!SR$(SR$,SL,11SL)t! (SR$,1)" "ı!(SR$,1)" "SR$(SR$,(SR$)1):4110!SL0:RF0!"SLSL1:SL(R$)4300!,CR$(R$,SL,1):F1(SR$):(SR$,F,1)CR$RF1 " "READ"F$",R"R+  A$::A$"*"2520? "READ"F$",R"RJ  W$,X$Z X$L$3300d * 2520x "READ"F$",R"R SR$ P$"A"4060 P$"S"(SR$,1)"."4060 P$"L"(SR$,1)"!"4060  SL0!SLSL1:ST$(SR$,SL,1):ST$" F12520D RR1:F1:3170.N F12520<X RR1:F1Pb R0R9992520Zl 3060h F13300| RR1:R03270 "READ"F$",R"R A$::A$"*"3270 "READ"F$",R"R W$,X$ X$L$3210 RR1 4000 RR1:R99925205,23:23:1: "SEARCHING FOR AUTHOR. ";N 21:35,21:" "V F0r L1((L$,1))64:R: "OPEN"F$",L100" "READ"F$",R"R A$::A$"*"2520 "READ"F$",R"R W$,X$ X$L$3130& X$L$31500 3200 :"PR#"SM( :" THERE ARE NO BOOKS THAT FIT THIS LIST."W2 ::d< "PR#0"nF 9090|P S09090Z 35,24:23:1:"THERE ARE NO MORE BOOKS ON THIS LIST. PRESS ";::"RETURN";::" TO CONTINUE. ";d 2570  3155ĺ:"CLOSE"F$:9090% 4000:F03 RR1::C "CLOSE"F$R BF02640` S02590 35,24::"THERE ARE NO BOOKS THAT FIT THIS LIST." ::"PRESS ";::"RETURN";::" TO CONTINUE. "; A$:A$(13)2570 9090 DATA":L$""3000$j 35,23:23:1St "NOW SEARCHING FOR FIRST BOOK. ";g~ 21:35,21:" "} "OPEN"F$",L100" L1B "READ"F$",R"R C$:C$"*"F0İ9200:2460 C$"*"RR1:2460 K(49152):K1282500 49168,0:K ";C P$"L"ĺ"LONGER THAN "O" PAGES":" ";S$ L$""2380e. "AUTHOR: ";8 L1(L$):A$(L$,L,1):A$"]"A$","B A$;::L R$""P$"A"L$""ĺ"NONE";N ::P U8:R$""UU(R$)V "PR#0"` F$"FF BOOK 0"PR#"S,34)"FICTION FINDER"::d"SUBJECT: "(C$((S$)64),(C$((S$)64))2)~:"RESTRICTIONS: ";R$""2320V1(R$)C$(((R$,V,1))26) " ";:  P$"S"ĺ"SHORTER THAN "O" PAGES":" RCH."Cz"PRESS ";::"ESC";::" TO ABORT. ";]A$:A$(27)ė:9090qA$(13)218034,5:S0Ĺ34,0:20:L19:39)::34,16:24:1:"PRESS ";::"ESC";::" AT ANY TIME TO ABORT SEARCH.";:20::35,21S0240 "IS YOUR PRINTER IN SLOT 1? (Y/N) ";D*A$:A$"Y"S1:2150V4A$"N"2090n>21:1:60):21:1H"WHAT SLOT IS YOUR PRINTER IN? ";R"";S\S(S)S1S72110f21:1:60):21:1p"PRESS ";::"RETURN";::" TO BEGIN SEA