' +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- ( q  Ϡ@跻~!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` (4)"CATALOG" toknowexactlywhereaparagraphstartsonthediskandfrequentlyanamefromthemainbodyofthetextiscalledratherthanfromthelistofcommonlyusedwordsutitisstillprettygoodǠĬ٠roughlyɠholddownreturnandrepeatoscaninamannerthatwillmissnothingholddownΠandrepeatfyoukeepseeingthesametextoverandoveragainhitreturnheprogramstillisntidealitfindsitdifficultbytheprogramheseappearontracksonwardsfyoustartscanningthetextattrackthedefaulttrackthenbepatienttmaytakeafewtracksforinterestingstufftoappearaybetrackwouldbeabetterchoiceoscanetcergranduneellɠhavelearnedafewthingssinceɠwrotethisandnowhaveabetterversionɠhavecalledȠfor͠Үoucannowlistthecommonlyusedwordsandthecommandwordsthatarerecognisedr͠programsŬӬetcaswellheprogramassumessectorformatomeversionsofˠɠmaybesectorfyoususpectthisisthecasethenchangelinefromϠtoϠseordinaryӠnotquirementsstillfurtherhesewordsarestoredinalistinmemoryheaboveunderstandinghasbeenusedtodevisetheˠcheaterprogramonthediskrackscanbeexaminedtoseewhatisencodedthereheprogramworkswithotheslongomefivebitbinarycodestohavenotbeenaccountedfortoindicatethatthenextitemisnottobetranslatedasaletterofthealphabetbutistobeusedtolocateacommonlyusedwordhiscanreducethediskspacerezeroatthebeginningandyouhavebitswhichareeasilydividedintotwobyteshewholephrasebecomesƠĠàŠ ōwhichisonlybyteslongtwothirdsthelengthoftheoriginalpassagewhichwasbyte àĠŠà Šōhesecondstepistotaketheseingroupsofthreeandcreatepairsofbyteshefirstthreeinourexample writtenoutinfivebitbinarybecomeutanɠthiswouldbecodedasƠĶõIJķøõàĠùŠ÷öõIJƠóùĴĹnsteadofusingɬusethefollowingcode½andsoonuptoڽƮžnlyfivebitsareemployedhisyieldssusednprincipleonebytecouldstorecharactersnpracticehowevertheauthorsofˠusetwobytestostorethreecharactershatischaractersperbytetworkslikethisupposethetextisǠٍˠԠ΍hetextadventureˠusesasimpleformoftextcompressiontomakemoreeconomicaluseofdiskspacensteadofusingɠtoencodeeachletterofthealphabetintoeightbitsafivebitcodei        T788,0:789,32:790,54:791,254D 792,32:793,63:794,255:795,96y 60,0:61,16:62,0:63,(TLTF2)16:66,0:67,80 784 AADDR(D1)64TT16S BASE2,D:BASE3,0:BASE4,T:BASE5,S:BASE8,0:BASE9,A:BASE12,1:BASE13,0MUM OF 4 TRACKS "::120$ ADDR163 BASE47080Z :"INSERT DISKS AND PRESS A KEY "b K$h v D211 TTFTL TTTTF S015 1000 768 :: USE MONITOR VERIFY ROUTINE 784,32:785,74:786,255:787,160: Z:8d"COMPARE RANGE OF TRACKS ON DRIVES 1 & 2"Qe FERG BRAND JUNE 87f768,32:769,227:770,3:771,32:772,217:773,3:774,96n:"FIRST TRACK? ";TFoTF0TF35110x"LAST TRACK? ";TLyTF0TF35TLTF120 zTLTF3ĺ"MAXI   prstuvwxyz{|}~?  ` DAT  DAT ! DAT"#$%&'()*+,-./01 DAT23456789:;<=>?@A DATBCDEFGHIJKLMNOPQ DATRSTUVWXYZ[\]^_`a DATbcdefghijklmnopq DAT     , BUF4,T:BUF5,S:BUF8,ALO:BUF9,AHI: BUF12,1D RWTSJ ] L WRITE SECTORj QBUF2,2 VBUF4,T:BUF5,S:BUF8,ALO:BUF9,AHI `BUF12,2 eRWTS jt x I" TRANSLATE DISK. J334: I015S J34SEC(I)16300[ TJc SIp T" "S ALO0:AHI64 1000 TJ(SEC(I)16) SSEC(I)(SEC(I)16)16 "1100 , 6I @J J  READ SECTOR BUF2,1(11)8:SEC(12)22:SEC(13)2:SEC(14)16:SEC(15)21U U:"PUT SOURCE DISK IN DRIVE 1"| V" DESTINATION DISK IN DRIVE 2" W:"PRESS ANY KEY TO CONTINUE "; XK$ Z WRITE DIRECTORY dI07 oT3 pSSDC(I) qALO0 rAHI64S s1100BUF47080 (BUF3,0& 2RWTS16368: <SDC(7),SEC(15) ASDC(0)0:SDC(1)3:SDC(2)6:SDC(3)9:SDC(4)12:SDC(5)15:SDC(6)2:SDC(7)5 FSEC(0)11:SEC(1)1:SEC(2)30:SEC(3)10:SEC(4)31:SEC(5)4:SEC(6)25:SEC(7)131 PSEC(8)19:SEC(9)7:SEC(10)28:SEC! TRANSLATE INFOCOM TO CP/M< FERG BRAND 30 MAR 87D:n"TRANSLATE INFOCOM INTO CP/M FORMAT":(4)"BLOAD TRANS/BIN":"CPM/FILENAME ";A$K06L1(A$)A((A$,L,1))16384K32L,A"L#K$: &    z #??    ӯΠ  Ӡ ӯŠ"ӯΠ Š Ϡ  !ԲӠ !ԳӠ ԠР٠Ҡ Ƞ ͠ԠΠ ȯΠ Š" ԱԲ ԳԠР٠Ҡ үΠůΠ"ԱӠүΠàҠàҠӠàүΠԠЯ͠٠ЯΠүΠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    37;?PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/`p`@~` `@`@a`)8m`i~``((((((((((((((((((((((((((((((((  Y=>"(16412)20)"BUFFER=>"((16565)85)31;\16302W2,W2:16304W1,W1:16297W1,W1:o EXIT PROGRAMy:: PRINTOUT HI-RES SCREEN":"->=MOVE GRAPHIC TO BUFFER"I:"D=DISK ACCESS":"R=REVERSE BUFFER":"I=JUMP TO NEXT GRAPHIC POSITION":"?=SWITCH BETWEEN THIS SCREEN AND HI-RES" PRINT PARAMETERSW:22:"XSCALE=>"(1)20)"YSCALE=>"(2):,"SENSITIVIT3.0"4)"BY RAY DARRAH III"Qf4:"P=JUMP TO NEW POSITION":"1-2=GRAPHIC BUFFER"p:"X=CHANGE XSCALE"25)"C=CLEAR SCREEN":"Y=CHANGE YSCALE";z25)"ESC=EXIT"::"S=LIT DOT SENSITIVITY":"=TOGGLE PARAMETERS":"<-=MOVE GRAPHIC TO SCREEN768:(A)F$F$((A)):`F$""(F$,W)","ė:(4)"CATALOG"F$::"PRESS A KEY ";:F$:740f {* ON ERR HANDLER416773:ERR(222):ERR254Ħ>::12:"ERROR #"ERR(7)HF$ESC$:A11500:R PRINT COMMANDS\:"GRAPHIC GRABBER 01(4)"BSAVE"F$",A"256(16565)",L$240":660EGET A FILENAME~::20(A$)2:A$:6:8)"RETURN DOES A DIRECTORY"12:"FILENAME=>";::" "(8);:16384,128:(16384)155ľF$:"";F$:(512(F$))Ģ(37):64578 A512(F$):8607A$"SAVE HI-RES SCREEN":740:F$ESC$660_(4)"BSAVE"F$",A$2000,L$2000":660A$"LOAD BUFFER "(((16565)85)31):740:F$ESC$660(4)"BLOAD"F$",A"256(16565):660A$"SAVE BUFFER "(((16565)85)31):740:F$ESC$66REEN":gX" 3) LOAD GRAPHIC BUFFER "((16565)85)31::" 4) SAVE GRAPHIC BUFFER "((16565)85)31~b::"WHICH?"(8);lA$:A$"1"A$"4"660v(A$)640,670,690,710A$"LOAD HI-RES SCREEN":740:F$ESC$660(4)"BLOAD"F$",A$2000" "NEW POSITION (X,Y)=>";I:" "(8);::16384,128:(16384)155560|"";A,B:A(A):B(B):A0A192B0B140560&XA:YB0::: DISK ACCESSD:34,2::4:14)"DISK ACCESS":7N" 1) LOAD HI-RES SCREEN"::" 2) SAVE HI-RES SCET NEW SENSITIVITYC23:15::"(1-"(W)(2)")"::10:16301,0w14:A$:23:15:15):A$"1"A$((W)(2))ı16412,(A$): JUMP TO NEW POSITION34,20::22:"CURRENT POSITION=>"X","Y:25);::"(0-192,0-140)":16301,0:24:"4F00<5500.5A40M":290:16499:A$"5500<4F00.5440M":290S  PUT GRAPHIC IN BUFFER` 16384:y CLEAR HI-RES SCREEN 34,20::16301,0::"OK TO CLEAR HI-RES SCREEN? N"(8);:A$:A$:A$"Y"Č62450 :  REVERSE BUFFER 16785: G INCREMENT XSCALE- @W,(W)W:(W)4ĹW,Wl J16702,(W)8845:16723,(W)8845:16412,1(W)(2)2: T INCREMENT YSCALE ^2,(2)W:(2)4Ĺ2,W h16737,(2)521:16716,(2)521:16412,1(W)(2)2: r PUT GRAPHIC ON SCREEN 7 |A$0,450,510,240,420,990,1010:180/ 16565,85:? 16565,88:M W2WW2:h TAB TO NEXT POSITION XX92:X192X4:YY61:Y140Y9   DO MONITOR COMMAND "A$A$" N D9C6G":AW(A$):511A,((A$,A,W))128 ,:72,0:144: 6(27):K$(9)(8)(21)"DXY12SRP C"ESC$(16)@ 860:820P GET A KEY} 950:225,X256:224,X(225)256:226,Y 16611:X(224)(225)256:Y(226):A$ AW(K$):A$(K$,A,W)Ă:W1WW1:180 A260,380,400,580,320,350,220,230,47&&&&&&&&&&&&&&&&&&&&&&&& d9 n INITIALIZE VARIABLES x(16384)(16385)208ĺ(4)"BLOAD GRAPHIC GRABBER/BIN,A$4000" 8191:251,0:W11:W21:230,32:16723,43:16702,43 1,1:2,1:X96:Y70:W1:16716,51:16737,51:16412,W1 A$"":ESC$  &&&&&&&&&&&&&&&&&&&&&&&&? & &^ & GRAPHIC GRABBER 3.0 &}( & FOR &2 & THE PRINT SHOP &< & BY &F & RAY DARRAH &P & & Z      @ @ @  @@ @@@ @ INSERT SAVE DISK AND TYPE NEW FILENAME"/ :F "BOOT PRINT SHOP"P 1000n "TYPED IN BY FERG BRAND" :(4)"RUN HELLO,D1" :"ANY KEY TO CONTINUE "; K$ : L"+ s"TYPE XXYY TO CHANGE SIZE OF FRAME"3 w:L x"TO SAVE THAT PART"e y"-----------------" z"TYPE -> TO PUT IT IN THE GRAPHIC BUFFER" {"TYPE C TO CLEAR SCREEN" |"TYPE <- TO SEE CONTENTS OF BUFFER" :"TYPE D" "TYPE 4"' " i:"TYPE ? TO SEE PICTURE"G k:"(TYPE ? AT ANY TIME TO SEE MENU)"Q m1000w n"TO FRAME A PART OF THE PICTURE" o"------------------------------" p"TYPE P TO RELOCATE UPPER LH CORNER" q"TYPE 10,10" r"TYPE I,J,K AND M FOR FINE CONTRO  : "GRAPHIC GRABBER"<"A PRINT SHOP UTILITY"a:"FROM HARDCORE COMPUTIST #20"{(:"A SAMPLE SESSION"2:d"TO GET A PICTURE"e"----------------"f"TYPE D"g"TYPE 1"h"INSERT DISK WITH PICTURE, TYPE FILENAME"    @ @  @@@@   @ @ @@    @@@  @  :A L@ L@ з=ɌЩ wA+ nA, nA3 nA+ nA, nA30 nAI`碏AL] `hhߚHH`@I`  H`@ @ @0)1& B@>X @ :@`e` ( wA8e wA8`` @ @ @(0I1&,&& B@( :@`X @`X@@4`X wA` :APP,0      @@@@  @ @@  @  @  @  @@ @  @@ @ @@  < PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:("PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------":2B1$(91):B2$(93)<B1$"1"B2$" ONE DRIVE"              REVERSE,4099,198:4103,198T(4147,9:4149,10:4152,24:4153,101u24159,170:4160,164:4161,10<4227,198:4231,198F4275,9:4277,10:4280,24:4281,101P4287,170:4288,164:4289,10U4157,256R:4285,256RZ00jREV1İ1300t700* FORWARDB4099,230:4103,230j4147,8:4149,11:4152,56:4153,2294159,168:4160,166:4161,114227,230:4231,2304275,8:4277,11:4280,56:4281,2294287,168:4288,166:4289,114157,R:4285,R HEADING *: 4"CHAOS"? >:"FERG BRAND, JANUARY 1987"p H:"---------------------------------------"v R  LOOK AT FRAME Y0Ĺ49236,0 Y1Ĺ49237,0 49232,0 K$ 510 L CHANGE DIRECTION VREV1REV`REV0İ12N " g:(91)"Q] QUIT "6 l:" TO CONTINUE "< vD K$U K$"L"1000f K$"C"1100t K$"Q"Ā K$(13)700 640  RESUME TRANSFORMATIONS 49232,0 Y0Ĺ49236,0 Y1Ĺ49237,0 4111(Y1)128 500 "NO. OF TRANSFORMATIONS ";N( :X(253)X DYX(X2)2: IF Y=0,PAGE 1; IF Y=1,PAGE 2 N:"---------------------------------------" X:(91)"L] LOOK AT FRAME (ANY KEY TO RETURN TO THIS MENU) " b:(91)"C] CHANGE DIRECTIO3,1:254,0:1300,  START TRANSFORMATIONS9 49232,0F 49234,0S 49239,0] 4096f 500  RETURN FROM GRAPHICS ROUTINES PAUSE12000: 800 49168,0  N(253)(254)256 !N65280N0 &N32767NN65536 0"350 ::"FILENAME? ";F$5 :(4);"BLOAD";F$] INPUT "ROTATION? (-127,+127) ";R y "REVERSE? (Y/N) ";:K$ K$"Y"400 REV1 360 ^:(4);"BLOAD CHAOS/TITLE" hR0R256R rREV0Ĺ253,255:254,255:1200 |REV1Ĺ25md HI-RES PICTURE TRANSFORMATIONS INSPIRED BY ARTICLE ON CHAOS IN SCIENTIFIC AMERICAN, DEC 1986, PAGE 39~n FERG BRANDx JAN 87}24576:REV0R32800:(4);"BLOAD CHAOS/BIN""OPTIONS? (Y/N) ";:K$ K$"Y |}~|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{37;?0PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/` PWR8@@~``@@`@@`@a`m`i~``((((((((((((((((((((((((((((((((  @  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{#$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?T`   }L=L 8  }LLLI1 ЭХLU`   }L=L 8  }LLLI1 ЭХL  hԪ`h|_תhժ`h|_תh@hnwתxh@hl_תh8ժ<h^תph8ժ hֲh8ժph8_תh8ժ0h0_תhԪ0h0ުhժ8hpުՆ`-B@C=@ʊ<8m@>@m@? ,`@<m@>@m@? ,``h`hxު.ގhdph8ު384)8.j :(4)"BSAVE "F1$",A$4000,L"L",D2"9t 10000]' ERROR HANDLER AND MENU RETURNw':(4)"RUN PART1,D1" N A FERG BRAND PROGRAMBROGRAM 00#$ :(4)"BLOAD NRTONR/BIN,D1".. 24576=8 F1$F$"*"B ::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";L K$V ::"FILE IS BEING SAVED AS "F1$;` L(16385)256(160000 }::"DO YOU WANT TO CONVERT THIS TO A NEWSROOM FILE THAT DOES NOT NEED CLIP ART DISKS? (Y/N) ";K$K$"N"10000 K$"Y"2330 2290 (16391)255ĺ:::"FILE IS ALREADY IN THIS FORM ":PAUSE12000::100(F$)3))$F1$G2$"."G1$"NRPIC"::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";K$::"FILE IS BEING SAVED AS "F1$;:(4)"BSAVE "F1$",A$2000,L$2000,D2"1ĺ:(4)"CATALOG,D2"::207064:(4)"BLOAD "F$",D2A>24576UHPAUSE12000:bR49235,0\22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";fK$pK$"N"2270zK$"Y"21902150G1$(F$,3)G2$(F$,("PUT NEWSROOM DISK WITH PHOTOS/BANNERS IN DRIVE 2 AND"C FLAG0"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""FLAG0ĺ:"PHOTOS HAVE PREFIX PH. BANNERS HAVE PREFIX BN.":FLAG1:PAUSE12000:*F$""S BEING SAVED AS "F1$;QF:(4)"BSAVE "F1$",A$2000,L$2000,D2"\P10000| NEWSROOM TO GRAPHICS PAGE:"NEWSROOM TO GRAPHICS PAGE":"---------------------------------------"::(4)"BLOAD NRTOGP/BIN":8:AVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";7K$IK$"N"10000Z K$"Y"1310d1270xF1$F$".PSPIC"(::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";2K$'<::"FILE IRIVE 2 AND"N ~"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$u F$""ĺ:(4)"CATALOG,D2"::1150{  :(4)"BLOAD "F$",A$5800,D2" 1,1:2,1 224,0 225,0 226,0 16565,88 16499/22:"DO YOU WANT TO S:0 $" TO GO BACK TO MENU ";8 .K$K 8K$(13)1120 BK$"L"ĺ:(4)"RUN PRINT SHOP LIBRARY DISPLAYER" LK$(27)10 V1070 `:(4)"BLOAD GRAPHIC GRABBER/BIN" j: t:"PUT PRINT SHOP PICTURE DISK IN DT3" K$"Q"ĺ: 150>  PRINT SHOP TO GRAPHICS PAGEF : "PRINT SHOP TO GRAPHICS PAGE":"---------------------------------------": "PRESS TO FETCH SINGLE PICTURE": " "B1$"L"B2$" TO SCAN A LIBRARY DISK": B1$"Q"B2$" QUIT":::9 "PRESS KEY TO CONTINUE ";A K$R K$"A"1000c K$"B"2000 K$"C"Ĺ255,195::(4)"RUN PART2" K$"D"Ĺ255,196::(4)"RUN PART2" K$"E"Ĺ255,197::(4)"RUN PART3" K$"F"Ĺ255,198::(4)"RUN PARRINT SHOP TO GRAPHICS PAGE":J PB1$"B"B2$" NEWSROOM TO GRAPHICS PAGE":t ZB1$"C"B2$" PRINT SHOP TO NEWSROOM": dB1$"D"B2$" NEWSROOM TO PRINT SHOP": nB1$"E"B2$" GRAPHICS PAGE TO PRINT SHOP": xB1$"F"B2$" GRAPHICS PAGE TO NEWSROOM"::: < PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(100002"PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------":<B1$(91):B2$(93) FB1$"A"B2$" P     hժh~ުՎ@`hժ h_Վhժh`ުՆhժh`}ުՎhԪh`}[՜hDժh@[՜h8hp٪#׺h8h`}[՜hժh~{՚v0hժ hպh@ժh@{՜h@ժhw{՚ERROR HANDLER AND MENU RETURN7':(4)"RUN PART1,D1"R N A FERG BRAND PROGRAMROGRAM"----------------------------":_"DO THIS IN TWO STEPS"::"1. NEWSROOM TO GRAPHICS PAGE":"2. GRAPHICS PAGE TO PRINT SHOP":"I.E. OPTION "B1$"B"B2$" FOLLOWED BY OPTION "B1$"E"B2$22:"PRESS KEY TO CONTINUE ";K$10000' N DRIVE 2 AND PRESS ANY KEY ";C K${ ::"FILE WILL BE SAVED AS "F1$; :(4)"BSAVE "F1$",A$4000,L$2E0,D2" 10000 NEWSROOM TO PRINT SHOP:"NEWSROOM TO PRINT SHOP":"----------- f L$"1"L$"9"3420/ p K$"B"L$"3"34207 z L$C L(L$)l X(L1((L1)3)3)(67(K$"B")6) Y((L1)3)55:K$"B"Y55 24690,Y:24691,Y56 24692,X7:24693,X97 24576; ::"PUT DISK TO SAVE PICTURE TO IEEN DO YOU WANT THIS PICTURE TO APPEAR?":? " ---------"Q " ! !"c  " ! 1 2 3 !"t K$"B"3390  " ! !" " ! 4 5 6 !" * " ! !" 4 " ! 7 8 9 !" > " ! !" H " ---------" R :"TYPE NUMBER "; \ L$3220 3180 :i :::"DO YOU WANT TO SAVE IT AS A PHOTO OR A BANNER? (P/B) ";q K$y K$ K$"P"F1$"PH."F$:3290 K$"B"F1$"BN."F$:3290 3240 :(4)"BLOAD PSTONR/BIN,D1"- :"WHERE ON NEWSROOM SCR2"::3060  /  :(4)"BRUN WHITE/BIN,D1"Q  :(4)"BLOAD "F$",A$5800,D2"_ & 1,1:2,1j 0 224,0u : 225,0 D 226,0 N 16565,88 X 16499 b 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) "; l K$ v K$"N"10000 K$"Y"OOM":"---------------------------------------":X :(4)"BLOAD GRAPHIC GRABBER/BIN"` : :"PUT PRINT SHOP PICTURE DISK IN DRIVE 2 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,DS< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(10000<B1$(91):B2$(93)FK(255)K1953000: K$="C"K1964000: K$="D" PRINT SHOP TO NEWSROOM :1 "PRINT SHOP TO NEWSR     hԪhwhtժhvhh@!`x hh``h~o\h` hhpժ@h~oh`@h|oh@h|h\`h\hh~; 8x@h~hx8h~phxղ8hhXphXhxph|0%' ERROR HANDLER AND MENU RETURN?':(4)"RUN PART1,D1"Z N A FERG BRAND PROGRAMF1$"PH."F$y $::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY "; .K$ 8::"FILE WILL BE SAVED AS THE PHOTO FILE "F1$ BPAUSE12000: L:(4)"BSAVE "F1$",A$4000,L$2000,D2"V1000" 49235,0X 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) ";` K$r K$"N"10000 K$"Y"6140 6100 ::"YOU CAN SELECT BITS LATER FROM INSIDE NEWSROOM " :(4)"BLOAD GPTONR/BIN,D1" 24576 OOM":"---------------------------------------":o "PUT GRAPHICS DISK IN DRIVE 2 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D2"::6040  :(4)"BLOAD "F$",A$2000,D2K$g K$(13)ĺ::"GRAPHICS GRABBER USES DRIVE 1 ONLY ":PAUSE12000::(4)"RUN GRAPHIC GRABBER" K$"I"ĺ:(4)"RUN GRAPHIC GRABBER INSTRUCTIONS" K$(27)10000 5080 p GRAPHICS PAGE TO NEWSROOM z:1 "GRAPHICS PAGE TO NEWSRTO PRINT SHOP":"---------------------------------------":b "USE THE GRAPHIC GRABBER PROGRAM"h  "PRESS TO RUN GRAPHIC GRABBER": " "B1$"I"B2$" TO READ INSTRUCTIONS"::: " TO GO BACK TO MENU "; [< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(10000<B1$(91):B2$(93)FK(255)K1975000: K$="E"K1986000: K$="F" GRAPHICS PAGE TO PRINT SHOP:; "GRAPHICS PAGE      hphxժhԪ8hp~ժh`h\Վ ժH`phxժhު՚ hժ@hܪ՜hժhުղhp~ժhުպhdժhԺh`ժhԪ՜ h@ժh8hת xժ?hv0h`~ժhתՎh?ժhתDh>ժII14604' ERROR HANDLER AND MENU RETURNN':(4)"RUN PART1,D1"i N A FERG BRAND PROGRAMT5),S:(IOB8),CLO:(IOB9),CHI*X168160b9l640]v:(4);"BLOAD";F$;",A$5800,D2"n DISPLAY ITX(I(I3)3)90Y((I3)(I9)3)541,1:2,1224,X225,0226,Y16565,8816499(49152)15550000008 22:(F$" ",30)L  FETCH PICTURE FFLAG0ī630: THE FAST OPTION ASSUMES FILE SECTORS ARE CONTIGUOUS &TS(P)16(P1) 0J13 :T((TSJ)16):STSJT16 DCLO252:CHI86JN(IOB4),T:(IOB"":NS0:PNP3 F(PN)- F160NSNS1> F160NS0M NS2ī520\ F$F$(F)m PNPN1:400 PP35:PPHI256255ī345 G(0):PHIPHI1:PHIBHIī340  END "END OF CATALOG" :"PRESS KEY TO CONTINUE "; K$ 1@ READ CATALOG" JPLO11:PHI964 TPPHI256PLOm YP0((P)255): CHECK WHETHER FILE HAS BEEN DELETED ^P1(((P2)4)((P2)132)): CHECK WHETHER FILE IS BINARY OF LENGTH 4 hP2(((P33)4)((P34)0)) r(P0P1P2)ī390 |460 F$G TRACK AND SECTOR. BEGINNING OF CATALOG STORAGE AREAN (IOB2),2: DRIVE 2j (IOB3),0: ANY VOLUME (IOB4),T:(IOB5),S:(IOB8),BLO:(IOB9),BHI 16816: $41B0 RWTS HANDLER "A(BHI25611) ,A0S1ī320 6SS1:BHIBHI1:270 NY KEY "- :" WILL END DISPLAY":5 K$Q FFLAG0:K$"F"FFLAG1x :(4)"BLOAD GRAPHIC GRABBER/BIN"~ I0 GET CATALOG IOB(43714)256(43713): BEGINNING OF PARAMETER LIST 5 T17:S15:BLO0:BHI96: FIRST CATALOj$d PRINT SHOP LIBRARY DISPLAYER4n 23 MAY 86<x:`"PRINT SHOP LIBRARY DISPLAYER""----------------------------------------"10000 :"PUT PRINT SHOP PICTURE DISK IN DRIVE 2 AND PRESS A     h@ת՜h@{?ժh@תՎh{?ժL L?!   p# !/ L0#L!" P"L"H 8ei0h8`h/ ` ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõ?` " "``jj G"&&&&&& G"jjj G"`) `Hh`i `hi `h" `ݍ " " #" ` " " " #"`?` ! !``jj G!&&&&&& G!jjj G!`) `Hh`i `hL!hi L!hi@L!hi `h" ` "`   `L"L L L ! ! !LE ! #! Pи` ! ! ! #!  P` ! ! ! ! #! P`hԎhwժhԪՆhwժx h`ժ Hh_h@{wժ`h`ժ`h|ժh`ժdh~ժ hpժ@h~ժh`ժ@hnժ        37;? PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/`p`@8~` `@`@a`)8m`i~``8a((((((((((((((((((((((((((((((((  14100:START : CONTINUE(:K$6;TRKTRK1<;W N A FERG BRAND PROGRAM000 READ SECTOR607 READ ONE MORE SECTORc7BUF4,TRK(TRK34)1:BUF5,0:BUF9,ADDR16m(78192s27: READ AND INTERPRET TRACK:::"TRACK ";TRK:"-------";:TRK10ĺ"-";:::14000:SECSEC1:SECSU15040:4 LOAD AUXILIARY WORD TABLE+4TRK3:SL0:4A31SL8F4SUSL2U4SECSLSUd4ADDR29SLo414000u4{46 READ TRACK/SECTOR6BUF470806BUF3,0:BUF4,TRK:BUF5,SEC:BUF8,0:BUF9,ADDRSEC:BUF12,1:BUF13,068192: $29089,11:49090,14:49091,1:49092,4:49093,7:49094,10:49095,13F@3\3 DOS 3.3 SKEWING349080,0:49081,13:49082,11:49083,9:49084,7:49085,5:49086,3:49087,1:49088,14:49089,12:49090,10:49091,8:49092,6:49093,4:49094,2:49095,1530:49081,4:49082,8:49083,12:49084,1:49085,5:49086,9:49087,13:49088,2:49089,6:49090,10:49091,14:49092,3:49093,7:49094,11:49095,152,3 CPM SKEWING@6349080,0:49081,3:49082,6:49083,9:49084,12:49085,15:49086,2:49087,5:49088,8:4-------------------"+a. PROTECTED DISKS USE DATA MARKERS D5 AA BC INSTEAD OF D5 AA AD p.47356,188. DISPENSE WITH CHECKSUMS TOO.47045,234:47046,234:47497,234:47498,234/2 INFOCOM SKEWING2 ASSUMES DOS 3.3249080,00' DISPLAY OBJECTS AND LOCATIONS 2 13500O TL3:TU5:SU15(A11)3f START8209: $2011r ADDR64} TRKTL SEC0 15000 TRKTU3040' AGAIN':(12)'177* HEADING+"INFOCOM CHEATER PROGRAMS" +"-----L3TL341170ADDR64%TRKTL/SEC0:15000LTRKTU1210W10000s DISPLAY ALLOWED WORDSK$"2"3000TL6:TU8:SU15(A11)3START8206: $200EADDR64TRKTLSEC0 15000TRKTU2050 100L$"N"ĺ"N":1120 L"Y"8 V DISPLAY AUXILIARY WORDSJ X8200: $2008Z ` READ TEXTx jTL9:TU34:SU15(A11)3 oSTART8203: $200B t::"STARTS AT TRACK 9, OK? (Y/N) "; ~L$ L$"N"ĺ"Y":1190 "N":"START AT TRACK? ";TLTA30İ13000 A31İ13100F :"INSERT DISK AND PRESS ANY KEY ";N L$q ::"WHEN PROGRAM IS RUNNING" "PRESS ANY KEY TO CONTINUE"   DISPLAY TEXT K$"1"2000 13500 .:"DISPLAY AUXILIARY WORDS? (Y/N) "; 8L$ B:A21 L$"Y"ĺ"N"% A11900 &:"DOS SKEWING ("(91)"I]NFOCOM, "(91)"C]PM, "(91)"D]OS 3.3 DEFAULT IS "(91)"I] ) "; 0L$ :L$"C"A31 DL$"D"A32 NL$"C"L$"D"ĺL$ XL$"C"L$"D"ĺ"I"  COMMOM A21İ12000  "OPTIONS? (Y/N) "; L$/ L$"Y"ĺ"Y"F L$"Y"ĺ"N":900L s  13 SECTOR OPTION NOT IMPLEMENTED| 500 "13-SECTOR? (Y/N) "; L$ L$"Y"ĺ"Y":A11 L$"Y"ĺ"N" :"PROTECTED DISK? (Y/N) "; L$ L$"Y"ĺ"Y"37;?PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/B9 B@C`((((((((((((((((((((((((((((((((  AD INCH/BIN":BF1/ :(91)"1] DISPLAY TEXT"T (91)"2] DISPLAY ALLOWED WORDS" (91)"3] DISPLAY OBJECTS AND LOCATIONS " :" TO END "; K$ K$(27)ĺ"REBOOT SYSTEM ": K$"1"K$"3"210 :(12) A10:A20:A30X d INFOCOM CHEATER PROGRAMS9n FERG BRAND FEB 87 Lx20736: $5100T:_11000:"DO YOU HAVE 80 COLUMNS? (Y/N) ";K$K$"Y"ĺ:(4)"PR#3":(12):11000K$"Y"ĺBF0: BINARY FILE LOADED FLAG BF0ĺ:(4)"BLO      FB1$"2"B2$" TWO DRIVES" P> U"PRESS KEY TO CONTINUE ";F ZK$i dK$"1"ĺ"1":(4)"RUN PART1S" nK$"2"ĺ"2":(4)"RUN PART1" x90 $5,8816499%(49152)155500/II18460\' ERROR HANDLER AND MENU RETURN':"REPLACE PRINT SHOP/NEWSROOM DISK PRESS ANY KEY ";:K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAMDCLO252:CHI86JGN(IOB4),T:(IOB5),S:(IOB8),CLO:(IOB9),CHIRX16816Xbal640v:(4);"BLOAD";F$;",A$5800,D1" DISPLAY ITX(I(I3)3)90Y((I3)(I9)3)541,1:2,1224,X225,0226,Y1656"PRESS KEY TO CONTINUE ";! K$, 10000` 22:(F$" ",30)t  FETCH PICTURE FFLAG0ī630: THE FAST OPTION ASSUMES FILE SECTORS ARE CONTIGUOUS &TS(P)16(P1) 0J13 :T((TSJ)16):STSJT16)) r(P0P1P2)ī390 |4606 F$"":NS0:PNP3B F(PN)U F160NSNS1f F160NS0u NS2ī520 F$F$(F) PNPN1:400 PP35:PPHI256255ī345 G(0):PHIPHI1:PHIBHIī340  END "END OF CATALOG" :A0S1ī320% 6SS1:BHIBHI1:2708 @ READ CATALOGJ JPLO11:PHI96\ TPPHI256PLO YP0((P)255): CHECK WHETHER FILE HAS BEEN DELETED ^P1(((P2)4)((P2)132)): CHECK WHETHER FILE IS BINARY OF LENGTH 4 hP2(((P33)4)((P34)0T17:S15:BLO0:BHI96: FIRST CATALOG TRACK AND SECTOR. BEGINNING OF CATALOG STORAGE AREAv (IOB2),1: DRIVE 1 (IOB3),0: ANY VOLUME (IOB4),T:(IOB5),S:(IOB8),BLO:(IOB9),BHI 16816: $41B0 RWTS HANDLER "A(BHI25611) ,P PICTURE DISK IN DRIVE 1 AND PRESS ANY KEY "{ :" WILL END DISPLAY": K$ FFLAG0:K$"F"FFLAG1 I0 GET CATALOG IOB(43714)256(43713): BEGINNING OF PARAMETER LIST \ $d PRINT SHOP LIBRARY DISPLAYER4n 23 MAY 86Os SINGLE DRIVE VERSIONWx:{"PRINT SHOP LIBRARY DISPLAYER""----------------------------------------"10000:(4)"BLOAD GRAPHIC GRABBER/BIN"V :"PUT PRINT SHO     BPAUSE12000:<L:(4)"BSAVE "F1$",A$4000,L$2000,D1"GV10000k' ERROR HANDLER AND MENU RETURNq'':"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";'K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAM INSIDE NEWSROOM "8 :(4)"BLOAD GPTONR/BIN,D1"C 24576T F1$"PH."F$ $::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY "; .K$ 8::"FILE WILL BE SAVED AS THE PHOTO FILE "F1$22:"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";T K$ ::"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) "; K$ K$"N"10000 K$"Y"6140 6100 ::"YOU CAN SELECT BITS LATER FROM -----------------------------":^ "PUT GRAPHICS DISK IN DRIVE 1 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D1"::6040  :(4)"BLOAD "F$",A$2000,D1" 49235,0L TO GO BACK TO MENU ";+ K$V K$(13)ĺ:(4)"RUN GRAPHIC GRABBER" K$"I"ĺ:(4)"RUN GRAPHIC GRABBER INSTRUCTIONS" K$(27)10000 5080 p GRAPHICS PAGE TO NEWSROOM z: "GRAPHICS PAGE TO NEWSROOM":"---------- PRINT SHOP :c "GRAPHICS PAGE TO PRINT SHOP":"---------------------------------------": "USE THE GRAPHIC GRABBER PROGRAM"  "PRESS TO RUN GRAPHIC GRABBER": " "B1$"I"B2$" TO READ INSTRUCTIONS":::# " < PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986c PART3S~ SINGLE DRIVE VERSION:(10000<B1$(91):B2$(93)FK(255)K1975000: K$="E"K1986000: K$="F"  GRAPHICS PAGE TO!!!!!   HOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";A'K$\':(4)"RUN PART1S,D1"w N A FERG BRAND PROGRAMKEY TO CONTINUE ";K$%10000I' ERROR HANDLER AND MENU RETURNO'':"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";'K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAM ND MENU RETURN9':"PUT PRINT S"NEWSROOM TO PRINT SHOP":"---------------------------------------":"DO THIS IN TWO STEPS"::"1. NEWSROOM TO GRAPHICS PAGE":"2. GRAPHICS PAGE TO PRINT SHOP":"I.E. OPTION "B1$"B"B2$" FOLLOWED BY OPTION "B1$"E"B2$22:"PRESS ANY UT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY ";k K$ ::"FILE WILL BE SAVED AS "F1$; :(4)"BSAVE "F1$",A$4000,L$2E0,D1" 10000 NEWSROOM TO PRINT SHOP:G-------" R :"TYPE NUMBER ";' \ L$? f L$"1"L$"9"3420W p K$"B"L$"3"3420_ z L$k L(L$) X(L1((L1)3)3)(67(K$"B")6) Y((L1)3)55:K$"B"Y55 24690,Y:24691,Y56 24692,X7:24693,X97 24576c ::"PNR/BIN,D1"U :"WHERE ON NEWSROOM SCREEN DO YOU WANT THIS PICTURE TO APPEAR?":g " ---------"y " ! !"  " ! 1 2 3 !" K$"B"3390  " ! !" " ! 4 5 6 !" * " ! !" 4 " ! 7 8 9 !" > " ! !" H " --"; l K$ v K$"N"10000- K$"Y"32207 3180? : :::"DO YOU WANT TO SAVE IT AS A PHOTO OR A BANNER? (P/B) "; K$ K$ K$"P"F1$"PH."F$:3290 K$"B"F1$"BN."F$:3290 3240 :(4)"BLOAD PSTO "::"";F$2 F$""ĺ:(4)"CATALOG,D1"::30608  W  :(4)"BRUN WHITE/BIN,D1"y  :(4)"BLOAD "F$",A$5800,D1" & 1,1:2,1 0 224,0 : 225,0 D 226,0 N 16565,88 X 16499 b 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) WSROOM :Y "PRINT SHOP TO NEWSROOM":"---------------------------------------": :(4)"BLOAD GRAPHIC GRABBER/BIN" : :"PUT PRINT SHOP PICTURE DISK IN DRIVE 1 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986c PART2S~ SINGLE DRIVE VERSION:(10000<B1$(91):B2$(93)FK(255)K1953000: K$="C"K1964000: K$="D" PRINT SHOP TO NE!!! ! ! ! ! !!!!IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";/'K$J':(4)"RUN PART1S,D1"e N A FERG BRAND PROGRAM PRESS ANY KEY ";'L K$_V ::"FILE IS BEING SAVED AS "F1$;}` L(16385)256(16384)8j :(4)"BSAVE "F1$",A$4000,L"L",D1"t 10000' ERROR HANDLER AND MENU RETURN''':"PUT PRINT SHOP/NEWSROOM DISK K$"N"10000 K$"Y"2330) 2290y (16391)255ĺ:::"FILE IS ALREADY IN THIS FORM ":PAUSE12000::10000$ :(4)"BLOAD NRTONR/BIN,D1". 245768 F1$F$"*"B ::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND VE "F1$",A$2000,L$2000,D1"%10000+y:"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ":K$::"DO YOU WANT TO CONVERT THIS TO A NEWSROOM FILE THAT DOES NOT NEED CLIP ART DISKS? (Y/N) ";K$0G1$(F$,3))G2$(F$,((F$)3))EF1$G2$"."G1$"NRPIC"::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY ";K$::"FILE IS BEING SAVED AS "F1$;:(4)"BSAFLAG1:PAUSE12000:=*F$""ĺ:(4)"CATALOG,D1"::2070W4:(4)"BLOAD "F$",D1b>24576vHPAUSE12000:R49235,0\22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";fK$pK$"N"2270zK$"Y"2190215BLOAD NRTOGP/BIN":Y:"PUT NEWSROOM DISK WITH PHOTOS/BANNERS IN DRIVE 1 AND"d FLAG0"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""FLAG0ĺ:"PHOTOS HAVE PREFIX PH. BANNERS HAVE PREFIX BN.":Y KEY ";2K$H<::"FILE IS BEING SAVED AS "F1$;rF:(4)"BSAVE "F1$",A$2000,L$2000,D1"}P10000 NEWSROOM TO GRAPHICS PAGE:"NEWSROOM TO GRAPHICS PAGE":"---------------------------------------"::(4)"16499P22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";XK$jK$"N"10000{ K$"Y"13101270F1$F$".PSPIC"(::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANHOP PICTURE DISK IN DRIVE 1 AND"o ~"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D1"::1150  :(4)"BLOAD "F$",A$5800,D1" 1,1:2,1 224,0 225,0 226,0 16565,88$" TO SCAN A LIBRARY DISK":$ :O $" TO GO BACK TO MENU ";W .K$j 8K$(13)1120 BK$"L"ĺ:(4)"RUN PRINT SHOP LIBRARY DISPLAYER S" LK$(27)10 V1070 `:(4)"BLOAD GRAPHIC GRABBER/BIN" j:, t:"PUT PRINT S$"F"Ĺ255,198::(4)"RUN PART3S"2 K$"Q"ĺ:; 150]  PRINT SHOP TO GRAPHICS PAGEe : "PRINT SHOP TO GRAPHICS PAGE":"---------------------------------------": "PRESS TO FETCH SINGLE PICTURE": " "B1$"L"B2S PAGE TO NEWSROOM":::5 B1$"Q"B2$" QUIT":::T "PRESS KEY TO CONTINUE ";\ K$m K$"A"1000~ K$"B"2000 K$"C"Ĺ255,195::(4)"RUN PART2S" K$"D"Ĺ255,196::(4)"RUN PART2S" K$"E"Ĺ255,197::(4)"RUN PART3S"" KB2$(93)8 FB1$"A"B2$" PRINT SHOP TO GRAPHICS PAGE":e PB1$"B"B2$" NEWSROOM TO GRAPHICS PAGE": ZB1$"C"B2$" PRINT SHOP TO NEWSROOM": dB1$"D"B2$" NEWSROOM TO PRINT SHOP": nB1$"E"B2$" GRAPHICS PAGE TO PRINT SHOP": xB1$"F"B2$" GRAPHICf< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986q SINGLE DRIVE VERSIONy:(100002"PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------": <B1$(91):""" " " " " """""""""