@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr 1H=_=BRWFONTSC71C70CASPLPLNZNZNZNZZZZZSWAPHEADDBYTEFONTADSIGNTYPEFWIDTFHEIGHTEMB}TXTDUMPGRAFMOESIGRTBWIBINSTIKEEXLINE1WDECFROSETEMPFNFOPLINE2LINVMALINE3HYYFLALINKEYS} }} !"#$%&'()*+,-./ }0123456789:;<=> }?@ABCDEFGH ANTIC PUBLISHERBY NADAV GUR }(c)1987, ANTIC PUBLISHING(96-F:B2y,@/AF:A@,9 B 26-/6-(T: },3 6$d=@w+@A=B7tAn$]A+@V9@@ }K:EAQA ]6-'6-@6-!6-@'6- A  AK ,},%@#1,%@5K,%@%@K ,,%@#1,%@5K,%@}%@$ R:,@A.4(T:,6-6-($6-*6-4 AP8&6-F:B2y,&@A}Bd6-F:Ad,"A*6-?:C:,,96-F:A,H6-F:A ,ZAdAUd API"AUAP}LU A6-&@d% A36-&@d= AK6-&@dU AV A8"@9)"@`}'.AfAU8 AP$6-F:A2,6-%@$++"@)"@)"@,* A,&@$++}"@)"@ )"@,*!,qq6-%@$++"@)"@ )"@,* A,&@$++"@)"}@)"@,*!, A  Ap9"@@,%/-136-96-B"@}#A&@2.@8+B B("@6-(2"@6-(F F:B2y,@A0}P APxj)@ 6-%$@2j+ @8)!A",*+ @()!@2,*&@2$AUAP}!!}&$@2"@2A~!!&$@2"AUAG-&@2$!@'*&@2$ @2=6-&@2$G }AP)6-&@86-$%)!AP!!6-?:C:,<<'@<<<,C'6-&@$$%&%$+",=!}* AC6- A  APbb6-%+%@,$+"@1*%%@ A,&+%@,$+"@0*&}&@!6@,bb6-%+%@,$+"@)*%%@ A,&+%@,$+"@(*&&@!6@, A}  AP%&!AAP!!%%@!AAP; -%%@%,-/%1 }; A0@E%% A&!6-@16-%%@; A E APJ APC 11%@+1%}@C1%@%@" 6-(6-(6-(6-("$.=A+@V%A1A =6-}.f B @-@@P:56. F67A@,. U67@,.f(@3. F:A,}B .;%6-F:@,%F:@,$AV/ B Q;6-@.M-A@:6-?:C:,6-?:C:,,PAY@4"}S$6C B@-@@C(CURRENT BIT SPACING: NEW:62O:,!A(( RANGE ERROR2 B6#} 6- B:> BP-@@1( EDIT SIGN #:5>6-P:,:K !)(ERROR:SIGN DOES NOT EXIST!=-@$}AA K B:o (}'6-@ &'@&@76-%%@C6-Q6-%@]6-@oA%}R@:9 6.-@567B:,%@,. 9 :C-&@?6-?:C:,:%@8,N(:((( OMPUTE ILL XIT EXT AST'} OVE:[6-%@6-@/AR@71C6-O"A`[6-@: -(-(>:,(}; F:Ad,AUBR;8(T:,6-(.6-$A(%@28 BS; R:,"@BQ;N)}6-R:,N6-&@$++"@)"@)"@ ,*!%@,$;??6-%@$++"@)"@)"@,**} &@,.;kk6-&@$++"@)"@)"@,*!@,%@$++"@)"@)"@ ,* ,8;/ 1+}6-#"A`/6-@B; BQ`;$6-F:Ad,$AdAUj;"@BUo;"@7,}BVt;"@BB~;K"@1-%$%+%@,$&@=A K BP@;1"*-}!'6-&@1 BP@;!!@5)"@BQ;6-%@;I !6-%@9-%$%+%@.},$&@EI ; BP@;(T:,BS;$(:,E <-6-?:C:, BV-@@-(FROM:1:(TO:4}>AA+@$-A&@27+A B>F-@@*(Enter a filenameB((8 char6}. or less)F>B:,!@Ba>A 6.D:(67@<@%B:,,.A67B:,%@,..PIC?5@ 7}Bap5@@?A+@V ?++6-?:C:h RXYXTYU`,,?*6-?:C:hhhLV,8}<@,*@ ?+A&@2!++ B*?+A&@2!++ BH?2 B2@9}@D:*.PICR?n6-@6.6. /67@H,. >67@,.J6-@V6-@b6-@:}n6-@\?1@17@<@,0 Bdf?cA67+&@,$@%@<$@,.7@<@;},O6-%@c @Bb p?C#67@A<@H,. OTHER /6-@9 BC B`z?#"@ <}Bp# Bb?x 6.D:J67@<@,.7+&@,$@%@<$@,^-@@k7<,4 n=}'x Bbe? 6-@?67<%@,..PIC?c@A$+@V0A<A F Bc>}c@@?++6-?:C:hRXYXTYU`,,?*6-?:C:hhhLV,<@,*@?+A?}&@2!++ B?=A&@2!+3A= B?%-@A % @}D c @"@""@B@k967+&@,$@%@<$@,. EXIT I6-%%@S BA}] B`k"B$@ Bb`hB~AR@ B+6-@76-@C6-@O6-@ [6-@B}~@@D:*.*rB>6-@6.6. /67A6,. >67@,.B1@17@C}<@,0 Bp`BR067+&@,$@%@<$@,.>6-%@R @Bp0B! B @PD}! BpB6"@@,AR6 BBf BpL67+&@,$@%@<$@,.E}END OF DIRECTORY \6-%%@f BB4 @PAR*@4 BB@ B-@@F}<(ENTER CURRENT FILENAME:@B#(ENTER TARGET FILENAME:#BQ37@<@,0:*7@<@,0:96G}.B6.D:Q67@,.B07@<@,4:06.7@67@,.J6-@V6-@b6-@n6-@K1@17@<@,0 BR}KcA67+&@,$@%@<$@,.7@<@,O6-%@c @B (KC#67@A<@H,.S} OTHER /6-@9 BC B`2K#"@ Bp# B6-?:C:hhhX}LV,<@,I@S BK"@""@BKk967+&@,$@%@<$@,. EXIT Y}I6-%%@S B] B`k"BK B`,Ls6-@6-@'6-@36-@?6-@Z}_6.8x8 8x16 16x1624x16EXIT i Bs B`6L"@B@Lc6-@6-@'!@36-@[}?!@K6-@W"@c6-@$JLE6-'@$5-$AV$AV%&@AE TL6\}- BL6-@6-@'6-@36-@?6-@a6.SIGNS: WIDTH: HEIGHT: s67@]},.=:,67@,.=:,L567@&,.=:,$B:, @'567@',. L=AR@ B) @P3 ^}Bp= B NzAfD6.(ԠӠӠԠJ(}\AnA _}z6-@%N+AR@ B+6-*N@ B6.4N886-?:C:,N,-(,A AHNE A(T:,--1(E $A%Ba}RN33R:,@*R:,@B@\N>R:,"@&6-%@2"@>6-@fN>Rb}:,"@&6-&@2">6-@pN#-(# BuN\-@@4(Antic Pubc}lishing presents:F-@@\(àzN)-@@!&( by Nadav Gur)$Nd6-@6-@d}'6-@36-@d6.* EDIT EXTEND LOAD SAVE CREATESTATUS EXIT N B B`N??BPBTBe}BBBBLOk6-@6-@'6-@36-@k6.1 EDIT ERASE LOAD SAVE PRINf}T SPACE EXIT VO B B``O??AB`BbBaB B@BPg6-@!6-@1g}'6-@36-@g6.-DIRECTORY RENAME UNPROTECT PROTECT EXIT PC B B`CBpBqh}BrBsBPl6-@6-@'6-@036-@9J6.CONTINUE STOP l6-F:@,%F:@,$Ai}VP66-?:6.W67@<@,.|t67%@<%@,.|tm6-&&@r}~m(Bm&6-P:+%,'@,&6-%@m - (-(m]6-!6-&' B56-&@s};-?(M-%@Q(]6-@mQ  6-& B)6-%@/-3(A-&@E(Q6-@t}mB`m$m-&@m=6-&%@ B#-'(5-%@9(= m$SoToFC67@u}<@%,.7+&@,$%@<+&@,$%,F$tffWINDOWS: 28000 OPEN - PARAMETERS: WIN:1=WINDOW 0=MENU,LX- LEFv}T X,TY-TOP Y,RX - RIGHT X,BY-BOT. Ytt|}ss;@,;A@,;@$,;@@,;@@,;@@,w};@,;@,;@4,;A,}%;@,%6.h` }m AF:A,&@/6-F:Ax},9+@$KAm6-F:@,%AV$F:@,}^ AF:A,&@2^6-C:4hhhhhhhhy}hѠEё`,})6-$AV6-@)6-}J6-@6-@'6-@J6-?:<Bz}s<<Ad<,(}..6-?:<B<%Ad<A<,2}K6-@';A,;@,36.*?6-{}@K640 COLS.d}dd6.Zhhhhhhhhhhhϭ)NnNNXmͩeYΩi(ͩe΅n}uu6|}7@<A,.Z˙N(~(i(ͩe΅Π͑m˩ex}))67A}},.̅e`}ZZ6.Phhhhh˥Xe˅˥Ye̩̅(ѠРұˤ &(&ϥi(ɠҨϑȑͩeͅ}4467~}@<A,.e΅Х ж`}<;@7,<6.%hhh̩˩Π ΅F`},,6."hhhhh}͐˰ `}""6.hhhhh Iˈ`} BD1:ANTICPUB.BASF`},,6."hhhhh^ANTIC PUBLISHERSUPER DISK BONUS MANUALBY NADAV GUR Antic Publisher is all thesoftware you need for creatingpersonal}ized newsletters, ads,flyers, greeting cards in a multitudeof print styles that you designyourself. Add graphics and then}print the page just as it appears onyour screen.XXX It's all done nearly effortlesslywith pull-down menus and a joys}tick.Antic Publisher is both a font editorand a page designer. Severalinteresting fonts are included withAntic Publisher} -- including a Hebrewalphabet designed by this software'sIsraeli author. At the top of the screen you'llsee a menu ba}r with four choices --Font, Graphics, DOS and Quit. Moveyour cursor with the joystick. Whenyou press the trigger, the me}nu youchose drops down and another cursorXXXappears on the top menu option.Again, use the joystick and triggerto selec}t an option. At the bottomof each one of the first three menusis the Exit option. Clicking on Exitreturns the cursor to }the Menu Bar. Many of the windows must also beclosed by pressing the joystickbutton. The Disk Directory displayis a go}od example of this.XXX Let's see a quick example of justwhat ANTIC PUBLISHER can do byloading a sample screen. Click} onGRAPHICS, turn your disk over so thatSide 'A' is facing up (we didn't haveenough room for these files on Side'B') and }click on LOAD. Next, choose either HOWDY or NADAVPress [CONTROL][SHIFT] [I] to changescreen colors, if necessary. Pre}ss [SELECT] to return to theMain Menu.XXXFONT MENU A Character code in AnticPublisher is a number assigned toeach }specific character. Each fonthas a maximum of 85 characters, sothe codes range from 0 to 84.XXX Each character in An}tic Publisheris assigned a keystroke too -- thekey you must press to get thatcharacter onscreen. For instance,the standa}rd Antic Publishercharacter coded 27 is "A" and you putit on the graphic screen by pressingthe "A" key. It's a good idea }tomake sure that your character codesmatch the keystrokes.XXX After choosing the EDIT selectionin the font menu, ent}er the code ofthe character to be edited. Thischaracter must be present in memory. The EXTEND selection lets you addc}haracters to the font in memorywithout editing them. For example,if you want to create an "A" and haveit correspond to th}e [A] key (code27), but don't want to createcharacters 0-26, you can EXTEND yourXXXfont to 27 and start working on the}[A] immediately. After selectingEXTEND, the computer will ask you forthe code (maximum 84) of thecharacter you want to st}art with. When you select LOAD, the computerwill look for .FNT files. Selectinga font erases the one currently inmemo}ry.XXX If you choose SAVE, enter afilename at the prompt -- only thefilename, no extender or devicespecification. } Use the CREATE selection to createa new font. A window shows the sizes8 X 8, 8 X 16, 16 X 16 and 24 X 16.Again, this o}ption erases the fontcurrently in memory. The STATUS selection opens awindow showing the last symbol inmemory, as well} as the height andwidth of the font.XXXGRAPHICS MENU You can load and print 62-sectorgraphic files such as uncompre}ssedMicro Illustrator and Micro-Painterpictures. Make sure each file has a.PIC extender before you load itthrough the gr}aphics menu. The first option of the GraphicsMenu is EDIT, which switches you tothe graphics editor. ERASE simplyeras}es the graphics screen.XXX LOAD and SAVE work like those onthe Font Menu, except that theextender for the filename wi}ll be.PIC instead of .FNT, and the fileloaded or saved will be a 62-sectorgraphics file. (Try using yourfavorite GRAPHIC}S 8 microscreensand ComputerEyes images here!) The PRINT option is a screen dumpfor Epson-compatible printers withgrap}hics capability. Printouts aretwice as big as what you see on thescreen display.XXX The SPACE option can change the}number of pixels moved by the cursoreach time a character is printed onthe graphics screen. The number youenter is actuall}y offset from thefont's width. For example , Idesigned a small font -- only fourpixels wide -- using the 8 X 8setting fr}om the Create menu. Thespacing I used was -4. Font width 8plus the offset of -4 moves thecursor four pixels each time I }type acharacter.XXX In Hebrew, you write from right toleft, so when I designed the 8 x 8Hebrew font included on this} disk, Imade the bit spacing -17. A fontwidth of 8 plus the offset of -17makes the cursor move backwards. The DOS men}u contains the optionsDirectory, Rename, Unprotect andProtect, which all work just as theydo with standard DOS.XXXFONT} EDITOR When you enter the Font Editor,the sign you chose to edit is seenenlarged. Below are its code andkeypress, al}ong with the six editorcommands. Edit the enlarged image of thecharacter with the joystick.Pressing the joystick butto}n togglesthe selected pixel on or off. Entera command by typing its first letteron the keyboard:XXX COMPUTE places }the characteryou're editing into memory. If youexit without computing it, you'lllose it. EXIT returns you to themain sc}reen. KILL clears only the character youare editing, erasing it from memorywhether you compute it or not. NEXT move}s you to the nextcharacter. If there isn't one, theprogram extends the font to it andclears it.XXX The LAST command} moves you to theprevious character. You cannot editcharacters with a code less than 0 orgreater than 84. MOVE lets y}ou copy characters.You'll be prompted for the the sourceand destination characters.XXXGRAPHICS EDITOR The graphics }editor is where youedit the page to be printed. All theediting is done on a GRAPHICS 8screen. The graphics cursor at t}he top ofthe screen can be moved with thejoystick or [ARROW] keys. The[RETURN] key moves the cursor to thestart of the n}ext line. Pressing thejoystick button paints a pixelonscreen. Pressing the button againpixel erases it. Pressing [START}]XXXdraws a line between the pixelunderneath the cursor and the lastpixel plotted. Use [OPTION] to exitthe Graphics E}ditor. To invert your screen colorssimultaneously press [CONTROL][SHIFT] [I]. Pressing a key puts thecorresponding} character on thescreen. A character which doesn'texist yet will not appear. PressingXXX[SELECT] toggles between uppe}rcaseand lowercase letters. You can load pictures created withother programs , add text and printthem. You can use unc}ompressed MicroIllustrator pictures, Micro-Painterfiles, and any other pictureoccupying 62 sectors on the disk.All you ha}ve to do is rename thepicture to have a '.PIC' extender andthan load it through the graphicsmenu.XXXSCREEN DUMP The} screen dump is 1.5 bigger thana normal Epson dump. Since thecontrol codes are stored in separatestrings, it should be ea}silyadaptable to other printers whichhave 640-column graphics capability.It is very easy to modify it toprinters which ha}ve an upside-downpin configuration (top pin = 1). (You may have to adjust oneor more of your printer'sconfiguration (or} DIP) switchesbefore the screen dump will workproperly.)XXX Public domain and commercialscreen dumps offer variable }sizeswhich can make Antic Publisher aneven more useful and creativeprogram. Since Antic Publisher savesits screens as sta}ndard 62-sectorGraphics 8 screens, almost all screendump software will be able to use it.blisher savesits screens as sta]%% ) ) %) %)Ѕ % `%%)G& & .`&&&&&'L&) }l JJJJ0W!ʎ)))+))"@* ) 6)) ) A)0 )(` 6)@} A)`)Hԝ))ԭ)h)@+)֩)8ɛL]') n)J) i@`8  &׈ׅ֭נ)֬)}IJHjhΦ))ɛԈi)Ԑ)))k))cԌ)).))@L )JJJJʽ))ک)} 6)ڙɛ)(i(ڐ A)) ))(`) &Q)X؍))Yٍ))")@2))})خ) &))( O)έ)L&* )! )0 )@))))))ح)٢؝))) O})*0 [))) &)) &*)) &))))(Ѝ)m))))m)))))Ͷ)Li(})L&)*+,-)))))`'` )LYi(ؐ`)))JH*~)~)~)(hΧ)}`))@W(NLLKK &&<(Px@NMA%}0.KCA/KK00L0M0N0 5 ?J000© M< 7L4J0˜ 1 ?000 M<0}0 $5L40 0 M< H7ƅ0 0 M< H7 17 4`RUNTIME ERROR AT LINE 00L46 6L0}` 11 0L0PROGRAM STOPPED00Ńł ȱ`iL 1HH Z4L9 4 8 M< 5 Q8 8} @8 M< @8 1 M< 5 @8 1hhL@8ʥ`HHhh`8L1u}`Huh` L4L1 L4L1 3 .8 2 .8 1 4 @8L}4 3 .8 1 :6 2 .8 1 5 1 4 1 5 M< :6 @8 4L4 3 1 1 :6 2 .8 1 5 1 4 }1 5 M< :6 .8 /2 @8 4L4 1 Z4 Q8L9` 3 4 .8L.8 3 8 .8 5 1 .8 1 :6L1 3 }1 :6 1 .8 5 1L1K0L0M0 3 M< M<,M0eK0iL0`M08LV0 .8 }Q8M0`ʔȱȱȱ Z4Șe惠 惨@54@64 L4jem#@m$@ .8вH}Hhh```L4ʱ` 5⅄4 0JL0J 4HHl }JLw TO BOOT FOR DOS TO RERUNp B V86` 35ȱL4008#@$@8凅刐S}Jj)ee`ффiiLL58LL5 LV0uuuL48}` 6L4iL4豂Hȱh`p 6L46H6 BHI6 ? ?7N0h`8`} :6L6 :6#` :60 :60L6 :60` :60L6L6`޵` `Ȕ`}ʔ惥u`6 BHI DEH ? ?7HyN0N0hL4 6 ?7N0`6JJJJ`7}67 5- 70 7L4 t7L4` 7H t7h 0 7`L68 0ƅ`66&L7HH` B VhH)Kh})0 IJD7EB ?hL4S:6L4TUVL4 7`66L6 ?7N08ɰɅ 6`ʱȱȱ`ȵ}ȵL4L4 Q8 @8 @8ʥ @8 .8 Q8 @8L= Q8 .8 8 8 Z4uȱuȱu 4 Z4 .8}0 j6L= ȱL4 ~6L8ʵ`eeLV0HHhh`ؐHH Z4L}9 4HH 8 86 5i i 8i i @8hh @8 @8 1hh @8`HH Z4% 4}HH `B=C= 8A=B=A=B=C= LV0ȥC=iA=B= >`L$5=B=} =`LV0C=8A=ƅ= ȱC=A=B=` =L==L=H > G=h`1+ %  }88L > 4 4` 4 4`  4 4` >$' >"0 >0 >L6 {>L6 t>L6L}M<LM<? M< Q8 8????`H6? 66HI?D??E?B ?H?h` VLV0?` }>? M<??? M?LV0??, ??? M<?8e??? M<K>>>{>t>:0K1G2m22303]3?5??$;??};g;}?=%@3@0@@@; CCDdEDntD"D,D@DJET}EEEEEF2FJFbFfFFFFF&F0$GX2GbI}GlRGVG'WGt'bG'{G<(G(G)Gh)G)G)G0*H*H* H\+1H+5H$,9H,AH:BH:BH:[H:_H:H:H:H:H:H:H:H;H;H};H8JH=JHBJILJIVJ*I`J>IjJBItJFI NGI*NGI+N^I,NzI-NI.NI0NI1NI2NI3NI4NI>NIHNIRNIWNJ\NJaN(JfN3JkN7JpN>JuNBJRCJ}RLJR[J&RpJ0RJUJUJ}J }J}J<}Jx}J}J}J}J}J}J}J} K}K}K}!K})K,~-K.K} M(&Z(dCgC}jC@mC@pC@,sC& vC@yC@|C@ C@ C@C ACXY@ 33 R|Ch S}`A@?}"PLEASE PUT Ԡ PICTURE DISKIN DRIVE #1 AND PRESS yCGAI} }ŠĠ٠%WHILE I LOAD THE Ԡ DIRECTORY$ MAKE YOUR PRINTER IS READY!!nEC}bE$bE%:*} THERE ARE <  > PICTURES ON DISK PICTURE to start on: 1 -  >CHIEC}EC"}ENTER HEIGHT> ()ingle, ()ouble jCGAIjCDS=JFjCG1:AjCDD=bFjCG3:A"}ENTE}R WIDTH> ()ingle, ()ouble mCGAImCDS=FCmCDD=FC&} PROGRAM WRITTEN BY Ġ}Π  any Key when READY!! 2G0AGC5G$M'*5G%CCqGC}eG$GC~G$CsC(sC(}*C3bE$GC G$ }(CG%bE%C1HC'CC$,~G%eG%8J*U*+CCjCC}*}bE$ HC + G$C pC -BG%CsC( sC( C}bE%C:+C bE$ G$CC9N>I N*CG%bE%+vCpC   FA}mICvCD/aI$vCF =I.NaI%C C  I4NCCDACvCDBvCCDACC(}ICvCD/I$yCvCFAR*CJCJ$(J%CI%+CyCD5[JC} `pJC + JC@+@jCD7  33+CRC}-G$}C C   C C C|CD.JC~G%+0RC}-G$`"01 *< N`ppppOvpOv`OvPOv@Ov0Ov OvOvOvpBppppOvOvOv Ov@OvPOv`OvpOvA" }3pectrum3ystems""30resents4(%$25--!#().%#all  formore }digitalhfiles4hatcanbeusedwiththisprogram N`eMM`` }@ } @ }P <0 }@PUPP }TDT }@P }  @ } P<0 }00 } } }  } <00 }<>0?<ˬ30"> }0Ϫ0#>2꫰0˪ }0#.2ꪰ#3ꪼ0 }: ## T } 3꯻.U@<3UUU02#. }0Ϻð?0<#UUUϫ.?U@ }#T/ # }?? ?  } }<*+*ʲ? }* ʲ//"Ϻ }#."2ꪪϺ#."2ꪪ }Ϻ#."2ꪪϺ }#."2ꪪ Ϻ#.?"2ꪪ }Ϻ#.*0*"€ ʲ }#. ?+*ʲ#. }#.:+ 0ꪈ*<#. * },*<<#..0: }#.#ϊ ,#.슫/ !}ꊬ <#.ꊰ,(< "}#.:(,+:(<#.,(, #},(<#.,,< $}#.,<#. %}ȋ#.ʋ>ʃ03/ &}<< ꫼<?ꫬ 0 ? '}꫼<0?0.?<0. / (}.?0. /?.?< )}<. <  0 #: 0< :  *} << ꪻ<0<< ꪰ 000 ꪬ< +}ꪫ :ꪫ,  0 ,} **;0 <"< 03"  -}** 0ꊢ** 3: 0<3 .}((<0 +< /} € * * 0}0 1} 2} ҍԩ?ԩXԩȍЩЩtЭ)) 9YLppppB@pN(@ 3}NPp 4}BWA?X ` 5} 6} 7} 8} 9} :} ;} <} =} >} ?} @}CHIPSLD4QCONSOLM> HPSONG WIPE !SETCH A}IPS ESONG$>'LDQDATAF9PINTSCRP(90ILD PRINTSONG: PRINTSONG SYNC CHECK Q>4DL PDV B}EC Q>5DL PDVECQ> PTEMP4Q> PCOUNTQ>4INTSCR C}s0Pz [t #DTD2  $$y˺wxɇ1#EVgwU D}R#!5VܻwvffUUUVffgwڼE6q3"#4UfwwvfET5DEfw̻wwfffffffffww E}ۺd2"4EVwwwww˼xxvvfeeVUeUeUUUUVewfwvgwwwxw F}wwwwwxyx G} H} I} J} K}1#Vx˩we7CC@Eg˩veUDD0@4g빘 L}wV%T #epg}_6Ф @@`@c%FwovvtURD` uUG˼mˏvfUC% M9˶[F M}C 7"`fi?߯u<*4Y(`[dIo/aJ5xpU6efdlܜ뜿\{ג)geUx+tXһٞ썉f5uufe N}K7WיګȕuJg5exWw;u*{_wʩjfWwfvvZhŸ{jxjYvhwwwhXvzɌ{|Ywgxxi{ O}zhyzykxx P} Q} R} S}oA|Oˤ1Tň^Ts@5m T}ˢ:SF04VfT@X@4Vg@dT $%gyݻU2 3d#W홙vT##!WfUwʗVe1$EUCDh U}ݾuf24B Uvegܺ˩u"#"5D2$Wx˼ۈ̹TC5xvf˼ʩvfU2!3!4y˪wwfC"ES#F̺UUE V}Fe3$VUEg̺S2#EVeUfeUgܻwvd2"3DUVxܺeVfdT4DDEVx˙eDUUUEUUUVg̺˼̺fC3EUUUVg W}ffy˪vS##EeVVx˪uD34UUUg˺wwwweTDEUUVxwefffefUUUUfx̻˺veUUUffff X}fffw˻weUUUUefgwww̻˻vfeUUVfVVgx˻vfvffVfUfffgx˻eUUffffffwwwx Y}vTUEVfVffwx Z} [} \}C4YDz}zߺGg樫\Žݛr0524W٩Ƚ̞UBE C4VgˉuCBU!&QEgy˪Eie ]}dFTFFgvdD2 #7eUfۧwiwTC2#3!1E̻˩CDTB!"4UfwffhycD32EC""Fgx ^}˘T!"#EVTDEg˩WeD!!DUVxxܺvgvfUDDDC334UTEVx˺wffeUUUTD434Uwvegx _}˻dCD3DEVffSUgxwx̻wfT12"4Fhxxwxx˩wvfVfgvfUCDDEVgwʪvffeUTDD `}UVfefffgfww˻˻veTC44DUVfvwwxx̻wvDT"33DVgwxw̻wwxgeS3434E a}g˼vwwwwwffVgwwfUEUEUVg̻wvggfeUUUffgwwwvvvfwwx b} c}@  _0_ `- d}%;;`6HpB9Pg!!5iڃ3!6e""i e}S5ܻ yB#G3EgUDDiUDVʘuT6TEyeEhegxfvhgwvywgwwgwwxwww f}wwwx g} q}B|ANTICPUBBASB=ANTICPUBTXTBAPRINTSHPUTLBAUTORUN SYSBBLUES SNGBSTPNSTONSNGBBUSSSTOPSNGBCINNGIRLSNGBBBJ SNGBDREAM SNGBWILDTHNGSNGBSMPLMAN SNGBNTSALOVESNGBSFDBLUESSNGBEGG SNGBCADENCE SNGBIARISTED BASBIARISTED LSTB2]ARISTED DOCBARIST FILB%DOS SYSDUP SYS r} s} t} u}WyK9XQDkʫwFW&Olca&TZ6_DSI85+JD٨zʸhzJU֗u؋VwkymfEzLw{ɗ v}IvWkm|[leIUjx{hIyxiwXyiYxzxhHyxij{Xxxjwhwvy w}hxxxxyxxy x} y} z} {} |} }}ylZW9f1CnTrVtaBaܝFW6noj+d=gmij>h)\wv\yDGyzNRDs ~}Rbk#z]OZsYi\zyګ,T{ujhxiyhd6J*y(6[ev4uv]p٧y-eXcxYR[|꽉 }fDy{~uBڙTi{iwb7p:ZK T뼛8Gڨvw5z闈WZHL¸HXxW,dgnV7Z,V[zjhvic }uv֗[9}t֦ƦQ\ţh;\y[Dmſvdy:ȪAgxZz(\{Ψ(U[WY}gd艔uvtzFiG}{$Mfzi}3X }ZJt؇Leՙ)S芈u7W6RxۚyTWwzYVDeɪwVyh׉VxiƚWif{WwxǼvW9mx'KLNJ }yeDZl̜3XwʚvSeiZEyvxTt}[IgkffW7{ܪYHD9 } } }vZ@k  O  }?op  [P-/`} }V(;E!m݀i͆yt:EڸCnFW@ϰ)!jvț0iwvd7vz57EeF } ~cW#DRɆYۚxzSEjͻ#'byBjي͕VuzTBFhlhCjhuUfwxuywy̅ib%iwwUxx }wwwyVvwwwvfwyvgfwxxywxxxxwxw }x } } } e" ϔ ѭҩ ΅ۍԅ…Ѕ !/ҩ }ԩԩЍfЍۍЍЍЍ  ւLppppFpB0ppB02A!4!2 })$)') $25-ppppppH@pppppppppppppppppp B02AUUUUUUUUUU0!44%2. }0,!9%$)44%-0/ }3/.'&),% }`ddhlphlpttxx||ƪʘHb ȱȱȱҋ *h`ȱȱ!ȱ *h`f } ) )9 `欥  eJ()`)LL LLL }Lk` J) ) ` 橥 JLm`H L 橥 J` ʃIʃ`"!33$25- } ʃ0 }0ꃝ01 @1h1*1:1`ɩ/0g1`)ŭ ` h` L3%,%#40!44%2. } 0Ʉ*0لR0 ) :)) `) Х L } L 넝0 ) `)'ƙLɏ)+晥L݅ }ɚL_` ))Lj0,!90!44%2. 040 )I) `) }ĥ)L ԩ LdL2%!,4)-%LL 0) ` ) }=ƒȅLΝɏΜɏΚ)=撥LIɚɚ }L,/!$0!44%2.3 Q0aC0 }qk0000 ) `) ܍暥 ܍) B`LLLLө@ԩ }թ֩PLAMTN - `ө@ԩթ֩PLAMTNLөԩLթ֩SLNMGN -𐍜񐍝` }өԩLթ֩SLNMGN𐭝L } } e02(` ԩ J ̥ K nj  } F?68Lp7i K  njL1)? `)   }) ) ̥ )) 6)L1fЩ@i@L?б) } i ) 8 ` ) ԩԩ `ީfLҩҍҋҍҩ }ҩҩ`Ϡҩҍ ҥū&JJJJ ҩҋ 櫩ҋ&JJJJ ҩ  }Ϥ@`ҩ 0 ҩ`@ȩ0ɦi@L]i ʥiˠ?ŞŞT }Vȩȑi(Ȑ枥 `ʽ挝000`QWWWWWWWWWWWWWWWWWWWWWWWWWWWWEEƆƦȅi(Ȑ }i0eɅ̱I` @ K ` FLb@i@LP`橥̱EũƩ`i EũƩ`@ }ABCDEFGH`@i@L?` QIQ` I`ҍԍЍЍ }Ѝ҅ש@ҩ`QWWWWWWEQWWWWWWEQWWWWWWEQWWWWWWE%$)4 c0gD0)cIc })) C L)Я L';x0 ю` ԩԩܩ٩0 ; Pi(i }3٥ ֩87L nLHJJJJih)i` ;̐ ;`Hqȩ0hH)i(ȐɈhJJJ }i ȐɈIȈ` צ𼪏I )k)p)?s?<) }L!6*>)L𼪏L `)Ȧ۠8 ȱ)8 ȱ) }̐ nۥۥ ۥ nL @ҩԩ } ҩԩԩ" ҍҍҍ ` !ԩԍ0ԍ1 ⑩D?D )? }s?!hhL< DLc*⑽DLc.⑭L㑭M䑭N呩`D: ppppppppp }ppBppppppB02ALJ???K??O? }PU*I??V?C??BXZ4?36!521???N?M??R?EY?TWQ9?07<8??FHD??GSA,*+/05 )6#"8:.-2%9471&($'3!M }ҥэҍҩ@` 7 ԩZ F R L 7 Z FR L[RTU V0` hh } R VLӍTԍUՍX֍Y V0` R VLHҭ } )?ש@h@ ԩԥ)D̐ |ʊL |̐ |  ƲL" `  } L^` )ť) ` G`Z@ }`@? Li@` ЍfЍۍЍЍЍ!/L " } #! `pppppppppB(pBA~!Ԣ( ~ԍ0ԍ1RTUZ  VT U }R٩PXY V0k OF٠ i`( i`(iкPXY V0% O )  )  }) R VLD:*. SNGLPATL } } }X +'()@L'()   @L&()@L() %@L'()@ L()  @$L)@(L'''%)""" @,L()  @0L'()#@4L$)#'#@8L)))@<Ldej$$CTHTCTLPTPTLCKPKKWYCIPACAFGDRXZETNAAMKHSCLMHLKGFDPQCTETDE7A}/A7A # #: 2Al x7x  A $A 0<AZAfA}Ar~A:TU%%@@'@@@'@'@H A}!@V"@'#@G$@%@&@V'@H(@)A*Ad*** ARISTEDnxby David A. PA}eterson6/17/1987Encipher/DecipherARISTOCRATPATRISTOCRAT CAESAR*** DimensA}ion Variables&&;A,;A,9@,11;A,9@,;@5,;@5,&&;@P,9@A},;A ,11;@&,;@&,9@,9@,11;@0,9@,9@,9@,&&;@&A},9@&,;@&,;@,6. $$6.ABCDEFGHIJKLMNOPQRSTUVWXYZ 6;@7,6. '67@7,.6A}67@,. 6.6. 6.*6." BUx*** View file(>:A%,(( Plaintext- (A}( Ciphertext- "("(Ԡ F:B2y,"@A Ap*** Keyword Menu A}>:A%, ((((1. Menu 6. Print*(*(2. Key PA$ 7. Key CA$,(,(A}!3. Shift PA$ 8. Shift CA$.(.(#4. Reverse PA$ 9. Reverse CA$-(-("5. Reset PA$ 10. Reset CA$A})-@@((!(%()(Q-@@!(PK$- -(CK$- 0(?(Plain- B(Q(Cipher- A}*** Input command)6-!-@@!%()( 0-@@!,( 0"@A} A WWAA#A(A%PA'A"A$A)A%A'P* A @4*** Input A}keywordH-@@!((R=-@@!9( =\$f--@@&A}&68,-* -$pJ-@@!9(堼J( z$*** Print key + A}Alphabets$3 3$3Plain Alphabet Key -"3"3Cipher Alphabet Key - 3 3 3Plain Alphabet -33CipA}her Alphabet -$*** Key PA$ # A!6-@# A!P 6. -@B:, 6-@:7<,,&@dA} E8,"(67<,.>:%@d,66-%@E68,-@  . -@@&3 68,"(67A}<,.>:%@d,66-%@8  V $` *** Key CA$j # A!6-@# A!Po 6.t -@B:,A}y 6-@:7<,,&@d~ E8,"(67<,.>:%@d,66-%@E68,-@   -@@&A} 68,"(67<,.>:%@d,66-%@   $ *** Reverse CA$ 6-@' -@@&A} 6-&@ 67<,.7<,   $ *** Reverse PA$ 6-@' -@@& 6-&@A} 67<,.7<,  # $ *** Restore alphabets  6.6.*$  6.6.*$ *** Roll PA$ 6-A}@ A!` G6-/@@K:<)@G@ 8"@`6-&@) A}56-8 "@G A(P 5"@b6-%@)!@&56-@& <-@7@( A}.-@7@2(< A( " -@@&' % 6-%!@&%6-&@&1 67<,.7<,;  @ 6A}.O A @T *** Roll CA$Y 6-@ A!`h G6-/@@K:<)@G@A}r 8"@`6-&@) 56-8w "@G A)P| 5"@b6-%@)!@&A}56-@& <-@7@( .-@7@2(< A)  -@@& % 6-%!@&%6-A}&@& 67<,.7<,   6. A @*** Input Ciphertext(>:A%,((A} ( 67B:,%@,.$($(  (Menu Input CT$ clear&F:B2y,"@A} & A@0 F:B2y,"@A*F:B2y,"@ 6. * A@P A@e*** Input PlaintA}ext(>:A%,((" ( ,67B:,%@,.6$($( @ (MA}enu Input PT$ clearE&F:B2y,"@ & AA0J F:B2y,"@AO*F:B2y,"@ 6. A}* AAPc AAe*** Encipher B@I 6.4'(Alphabets not keyed;-@A? I A A}J +@A1-@@J @ ENCIPHERING-@B:,AAH-A}@@&/7<,47<,#67<,.7<,/6-@& A  + ApA}*** Decipheru B@zI 6.4'(Alphabets not keyed;-@A? I A J +@AA}1-@@J @ DECIPHERING-@B:,AAH-@@&#7:A%,bA}( l((1. Menuq(( 2. Plaintextv(( 3. Ciphertext{"("(4. Keywords + Alphabets(A}(5. Complete file((6. Patristocrat*** Input command3 B@6-+-@@!/(3(0-A}@@!,( 0"@ A77AAtAtPA"AsAuA} ApP!!*** Print CT$, Patristocrat\#@@P:/6-@:(@S(@ CiphertextA}-\6-B:,6-@ @6-@ !@$2 @7<,$6-%@26-%@A}!!"@*"@Aq5"@ @+6-%@5 Aq  Aq%*** Print complete fiA}le33 Plaintext- 33 Ciphertext- A"$*** Print PT$33 Plaintext- $*A}** Print CT$.33 Ciphertext-8$L*** Set up Patristocrat`6-@6-@jG)@:7<,,!@d*@:A}7<,, @967<,.7<,G6-%@t6-%@~ !B:, Aup Au0 6. Aq ApA}@*** File MenuE(>:A%,J(( T((1. Save to DiskY((2. Load from Disk^((A}3. Directory readerr(( 4. Main Menuw+-@@ !6-+ B@|( ''B}AAB A AU--@@ D1:ARIST.FIL--@B:,)*@@:7B}<,,- *@@B--@B:,)*@@:7<,,- *@@BE-@@&,*B}@@:7<,,A*@@:7<,,E @ A --@@ D1:ARIST.FIL 6-@B} &)@"@B& A  )67<,.>:,6-%@) A 6-@& &)@"@B& B}AP+ )67<,.>:,6-%@) A0: D Q-@@&$)@1)@?67<,.>:,M67:,Q X @ A(#*** Main Menu-#(>:A%,2#))(! <#((1. IB}nput PlaintextF#((2. Input CiphertextK#((3. Key functionsP#(( 4. EncipherU#(( 5. DecipherZ#((B}6. File functions_#((7. Print functionsd#(( 8. View file##: B@-@@!6(B} :#GGAAA@A APA`AApA# A.*** Directory.((DrB }ive 1(. B@.2@2@@D1:*.*. B `.@( B %/ BB }@&/(( +/(Menu D:1 D:2(0/ F:B2y,"@A5/ F:B2y,"@B }B :/ F:B2y,"@B!?/ B D/*** DirectoryN/((Drive 2(S/ B@X/2@B }2@@D2:*.*]/ B!`b/@( B!%/" B@" B p6*** ErrB }or traps76-F:A,7 B(7(>:A%,27$@@$@x7-@@7$"A8B}$(TURN ON DEVICE !7$"Ap$(File not on disk7"Ag( File locked7("AD((insert disk in B}Drive7"@( Input error7/F:A,"@)( INPUT TEXT !,'/'7-@A J8 AB}<*** Title< +@A<$ @ @$ @<$$ @ ******************<$$ @B} * *<$$ @ * ARISTED *<$$ @ * *<$$ @ ********B}**********<$ @ @$ @<$ @ @$ @<$$ @ BY <$$ B}@ D A PETERSON <-@A < + AD1:ARISTED.BAS BY <$$ @f100 REM *** ARISTED110 REM 120 REM by David A. Peterson130 REM 140 REM 6/17/1987150 REM 160 REM Encipher/Decipher165 RF}EM ARISTOCRAT170 REM PATRISTOCRAT175 REM CAESAR180 REM 200 REM *** Dimension Variables205 DIM CT$(500),HT$(500),CTL(1)2F}10 DIM PT$(500),PTL(1),CK$(35),PK$(35)215 DIM KW$(50),Y(1),CI$(120)220 DIM PA$(26),CA$(26),F(1),G(1)225 DIM DR$(30),X(1),ZF}(1),ET(1)245 DIM NA$(26),AM(26),KH$(26)250 DIM S$(1):S$=" "260 NA$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"265 DIM CL$(37):CL$=" ":CLF}$(37)=CL$:CL$(2)=CL$270 PA$=NA$:CA$=NA$280 PK$="*":CK$=PK$290 GOTO 155001400 REM *** View file1410 ? CHR$(125)1420 ? :?F} "Plaintext- ";PT$1430 ? :? "Ciphertext- ";CT$1460 ? :? ,"Ԡ"1470 IF PEEK(53279)=6 THEN 90001490 GOTF}O 14702000 REM *** Keyword Menu2005 PRINT CHR$(125)2010 PRINT ,""2015 ? :? "1. Menu 6. Print"F}2020 ? :? "2. Key PA$ 7. Key CA$"2025 ? :? "3. Shift PA$ 8. Shift CA$"2030 ? :? "4. Reverse PA$ 9. F}Reverse CA$"2035 ? :? "5. Reset PA$ 10. Reset CA$"2040 POSITION 2,14:? CL$:? CL$:? CL$:? CL$:? CL$2045 POSITION 2,F}14:? "PK$- ";PK$:? "CK$- ";CK$:? :? "Plain- ";PA$:? :? "Cipher- ";CA$2050 REM *** Input command2055 X=0:POSITION 2,21:? CLF}$:? CL$2060 POSITION 2,21:? " ";:INPUT X2070 IF X=1 THEN GOTO 90002080 ON X GOSUB 9000,2300,2800,2550,2700F},2200,2400,2900,2500,27502090 GOTO 20402100 REM *** Input keyword2120 POSITION 2,21:? CL$:? CL$2130 POSITION 2,21:? "F } ":INPUT KW$2140 RETURN 2150 FOR MM=1 TO 26:AM(MM)=0:NEXT MM:RETURN 2160 POSITION 2,21:? "堼F!}":? ""2170 RETURN 2200 REM *** Print key + Alphabets2210 LPRINT :LPRINT :LPRINT "PlaiF"}n Alphabet Key -",PK$2215 LPRINT :LPRINT "Cipher Alphabet Key -",CK$2220 LPRINT :LPRINT :LPRINT "Plain Alphabet -",PA$2230F#} LPRINT :LPRINT "Cipher Alphabet -",CA$2240 RETURN 2300 REM *** Key PA$2310 GOSUB 2100:Z=1:GOSUB 21502315 PK$=KW$2320 FOF$}R HH=1 TO LEN(KW$)2325 X=ASC(KW$(HH,HH))-642330 IF AM(X)=0 THEN PA$(Z,Z)=CHR$(X+64):Z=Z+1:AM(X)=12335 NEXT HH2350 FOR MM=F%}1 TO 262355 IF AM(MM)=0 THEN PA$(Z,Z)=CHR$(MM+64):Z=Z+12360 NEXT MM2390 RETURN 2400 REM *** Key CA$2410 GOSUB 2100:LL=1:F&}GOSUB 21502415 CK$=KW$2420 FOR HH=1 TO LEN(KW$)2425 KK=ASC(KW$(HH,HH))-642430 IF AM(KK)=0 THEN CA$(LL,LL)=CHR$(KK+64):LL=F'}LL+1:AM(KK)=12435 NEXT HH2450 FOR MM=1 TO 262455 IF AM(MM)=0 THEN CA$(LL,LL)=CHR$(MM+64):LL=LL+12460 NEXT MM2490 RETURN F(}2500 REM *** Reverse CA$2505 GG=272510 FOR FF=1 TO 262520 GG=GG-12530 CA$(FF,FF)=NA$(GG,GG)2540 NEXT FF2545 RETURN 25F)}50 REM *** Reverse PA$2555 GG=272560 FOR FF=1 TO 262570 GG=GG-12575 PA$(FF,FF)=NA$(GG,GG)2580 NEXT FF2595 RETURN 2700 F*}REM *** Restore alphabets2720 PA$=NA$:PK$="*":RETURN 2750 CA$=NA$:CK$="*":RETURN 2800 REM *** Roll PA$2805 Y=1:GOSUB 2160F+}2820 X=0:OPEN #4,4,0,"K:":GET #4,X:CLOSE #42830 IF X=60 THEN Y=Y-1:IF Y<0 THEN Y=0:REM 2835 IF X=47 THEN GOTO 28502840 IFF,} X=62 THEN Y=Y+1:IF Y>26 THEN Y=262845 POSITION 37,17:? " ":POSITION 37,17:? Y:GOTO 28202850 FOR KK=1 TO 262855 Z=KK+Y:IFF-} Z>26 THEN Z=Z-262865 KH$(Z,Z)=PA$(KK,KK)2875 NEXT KK2880 PA$=KH$2895 GOTO 20402900 REM *** Roll CA$2905 Y=1:GOSUB 2160F.}2920 X=0:OPEN #4,4,0,"K:":GET #4,X:CLOSE #42930 IF X=60 THEN Y=Y-1:IF Y<0 THEN Y=0:REM 2935 IF X=47 THEN GOTO 29502940 IFF/} X=62 THEN Y=Y+1:IF Y>26 THEN Y=262945 POSITION 37,19:? " ":POSITION 37,19:? Y:GOTO 29202950 FOR KK=1 TO 262955 Z=KK+Y:IFF0} Z>26 THEN Z=Z-262965 KH$(Z,Z)=CA$(KK,KK)2975 NEXT KK2980 CA$=KH$2995 GOTO 20404000 REM *** Input Ciphertext4010 ? CHR$F1}(125)4020 ? :? ""4030 ? :INPUT CI$4040 CT$(LEN(CT$)+1)=CI$4050 ? :? " "4060 ? F2}"Menu Input CT$ clear"4065 IF PEEK(53279)=5 THEN PRINT CT$:GOTO 40304070 IF PEEK(53279)=6 THEN 90004075 IF PEEK(53279)F3}=3 THEN CT$=" ":GOTO 40504095 GOTO 40654100 REM *** Input Plaintext4110 ? CHR$(125)4120 ? :? ""4130 ? :F4}INPUT CI$4140 PT$(LEN(PT$)+1)=CI$4150 ? :? " "4160 ? "Menu Input PT$ clear"4165 IF PEEK(53279F5})=5 THEN PRINT PT$:GOTO 41304170 IF PEEK(53279)=6 THEN 90004175 IF PEEK(53279)=3 THEN PT$=" ":GOTO 41504195 GOTO 41655000F6} REM *** Encipher5005 TRAP 140005010 CT$=PT$:IF PA$=CA$ THEN ? "Alphabets not keyed":FOR DE=1 TO 100:NEXT DE:GOTO 20005015F7} GRAPHICS 2:POKE 710,0:POSITION 4,5:PRINT #6;"ENCIPHERING"5020 FOR PP=1 TO LEN(PT$)5025 POKE 708,1485030 FOR QQ=1 TO 2650F8}40 IF PT$(PP,PP)=PA$(QQ,QQ) THEN CT$(PP,PP)=CA$(QQ,QQ):QQ=265050 NEXT QQ5055 POKE 708,05060 NEXT PP5080 GRAPHICS 05090 GF9}OTO 14006000 REM *** Decipher6005 TRAP 140006010 PT$=CT$:IF PA$=CA$ THEN ? "Alphabets not keyed":FOR DE=1 TO 100:NEXT DE:GF:}OTO 20006020 GRAPHICS 2:POKE 710,0:POSITION 4,5:PRINT #6;"DECIPHERING"6040 FOR PP=1 TO LEN(PT$)6045 POKE 708,1486050 FOR F;}QQ=1 TO 266060 IF CT$(PP,PP)=CA$(QQ,QQ) THEN PT$(PP,PP)=PA$(QQ,QQ)6070 NEXT QQ6075 POKE 708,06080 NEXT PP6085 GRAPHICS 0F<}6090 GOTO 14007000 REM *** Print Menu7005 ? CHR$(125)7010 ? ,""7020 ? :? "1. Menu"7025 ? :? "2. Plaintext"F=}7030 ? :? "3. Ciphertext"7035 ? :? "4. Keywords + Alphabets"7040 ? :? "5. Complete file"7045 ? :? "6. Patristocrat"7050 RF>}EM *** Input command7055 TRAP 14000:X=0:POSITION 2,21:? CL$:? CL$7060 POSITION 2,21:? " ";:INPUT X7070 IF F?}X=1 THEN GOTO 90007080 ON X GOSUB 9000,7400,7450,2200,7300,75007090 GOTO 70507100 REM *** Print CT$, Patristocrat7105 OPEF@}N #3,8,0,"P:":X=1:? #3:? #3;"Ciphertext-":CTL=LEN(CT$)7110 F=1:PRINT #37120 G=17125 IF X>CTL THEN CLOSE #3:RETURN 7130 PRFA}INT #3;CT$(X,X);:X=X+1:G=G+17140 IF G=6 AND F=11 THEN 71107150 IF G=6 THEN PRINT #3;S$;:F=F+1:GOTO 71207160 GOTO 71257300FB} REM *** Print complete file7310 LPRINT :LPRINT "Plaintext- ",PT$7320 LPRINT :LPRINT "Ciphertext-",CT$7330 GOSUB 22007340FC} RETURN 7400 REM *** Print PT$7410 LPRINT :LPRINT "Plaintext- ",PT$7440 RETURN 7450 REM *** Print CT$7470 LPRINT :LPRINTFD} "Ciphertext-",CT$7480 RETURN 7500 REM *** Set up Patristocrat7520 X=1:Y=17530 IF ASC(CT$(X,X))>64 AND ASC(CT$(X,X))<91 TFE}HEN HT$(Y,Y)=CT$(X,X):Y=Y+17540 X=X+17550 IF X>LEN(CT$) THEN GOTO 75707560 GOTO 75307570 CT$=HT$7580 GOSUB 7100:GOTO 700FF}08000 REM *** File Menu8005 ? CHR$(125)8010 ? :? ,""8020 ? :? "1. Save to Disk"8025 ? :? "2. Load from Disk"FG}8030 ? :? "3. Directory reader"8050 ? :? "4. Main Menu"8055 POSITION 2,20:X=0:TRAP 140008060 ? " ";:INPUT FH}X8070 ON X GOTO 8100,8200,12000,90008090 GOTO 80558100 OPEN #1,8,0,"D1:ARIST.FIL"8110 FOR M=1 TO LEN(PT$):PUT #1,ASC(PT$(FI}M,M)):NEXT M8115 PUT #1,428120 FOR N=1 TO LEN(CT$):PUT #1,ASC(CT$(N,N)):NEXT N8125 PUT #1,428130 FOR KK=1 TO 26:PUT #1,ASFJ}C(PA$(KK,KK)):PUT #1,ASC(CA$(KK,KK)):NEXT KK8140 CLOSE #1:GOTO 80008200 OPEN #1,4,0,"D1:ARIST.FIL"8205 M=18210 GET #1,X:IFK}F X=42 THEN GOTO 82208215 PT$(M,M)=CHR$(X):M=M+1:GOTO 82108220 M=18230 GET #1,X:IF X=42 THEN GOTO 82508235 CT$(M,M)=CHR$(FL}X):M=M+1:GOTO 82308250 REM 8260 FOR KK=1 TO 26:GET #1,X:GET #1,Y:PA$(KK,KK)=CHR$(X):CA$(KK,KK)=CHR$(Y):NEXT KK8280 CLOSE #FM}1:GOTO 14009000 REM *** Main Menu9005 ? CHR$(125)9010 ? " "9020 ? :? "1. Input Plaintext"FN}9030 ? :? "2. Input Ciphertext"9035 ? :? "3. Key functions"9040 ? :? "4. Encipher"9045 ? :? "5. Decipher"9050 ? :? "6. FFO}ile functions"9055 ? :? "7. Print functions"9060 ? :? "8. View file"9100 REM 9110 TRAP 14000:POSITION 2,21:? "FP} ";:INPUT X9120 ON X GOTO 4100,4000,2000,5000,6000,8000,7000,14009180 GOTO 911012000 REM *** Directory12010 ? :? "DrFQ}ive 1":? 12015 TRAP 1400012020 CLOSE #1:OPEN #1,6,0,"D1:*.*"12025 TRAP 1206012030 INPUT #1;DR$:? DR$:GOTO 1202512060 TRAFR}P 40000:CLOSE #112070 ? :? ," "12075 ? ,"Menu D:1 D:2":? 12080 IF PEEK(53279)=6 THEN 900012085 IF FS}PEEK(53279)=5 THEN 1200012090 IF PEEK(53279)=3 THEN 1210012095 GOTO 1208012100 REM *** Directory12110 ? :? "Drive 2":? 1FT}2115 TRAP 1400012120 CLOSE #2:OPEN #2,6,0,"D2:*.*"12125 TRAP 1216012130 INPUT #2;DR$:? DR$:GOTO 1212512160 TRAP 40000:CLOFU}SE #2:GOTO 1207014000 REM *** Error traps14100 ET=PEEK(195)14110 TRAP 4000014120 ? CHR$(125)14130 CLOSE #1:CLOSE #2:CLOSFV}E #314200 POSITION 10,1014210 IF ET=138 THEN ? "TURN ON DEVICE !"14220 IF ET=170 THEN ? "File not on disk"14230 IF ET=167FW} THEN ? "File locked"14235 IF ET=144 THEN ? "insert disk in Drive"14240 IF ET=8 THEN ? "Input error"14245 IF PEEK(195)=5 TFX}HEN ? "INPUT TEXT !":POP :POP 14310 FOR TM=1 TO 100:NEXT TM14410 GOTO 900015500 REM *** Title15505 GRAPHICS 1:POKE 710,0FY}15510 PRINT #6:PRINT #6:PRINT #615530 PRINT #6;" ******************"15535 PRINT #6;" * *"15540 PRINT #6;" *FZ} ARISTED *"15545 PRINT #6;" * *"15550 PRINT #6;" ******************"15560 PRINT #6:PRINT #6:PRINT #6F[}15565 PRINT #6:PRINT #6:PRINT #615580 PRINT #6;" BY "15585 PRINT #6;" D A PETERSON "15600 FOR DEL=1 TF\}O 500:NEXT DEL15605 GRAPHICS 0:GOTO 9000INT #6;" BY "15585 PRINT #6;" D A PETERSON "15600 FOR DEL=1 TD*12 2 1 5 0 10 70 2 12 1322David A. Peterson ATARI7858 Dutch Lane J^} 16KJohnstown, Ohio 43031614-967-0268June 19,19874ARISTED/Peterson/@ARISTED1Did youJ_} ever want to read or write a secret message or just learn a little about cryptography? If you have then this program is a goJ`}od place to start. With ARISTED you can encipher and decipher aristocrats, patristocrats and caesar ciphers. All of these areJa} monoalphabetic substitution ciphers, that is each letter of the message is replaced by one other letter of the alphabet.ThJb}e program is written for the ATARI in BASIC. ARISTED with DOS requires a little over 16K of memory, a disk drive and a 80 colJc}umn printer. A second disk drive is optional. If you only have 16k of memory, shorten the CT$, PT$ and HT$ variables to (200)Jd} and it should fit.Before enciphering any messages let me explain a little bit about these ciphers.The aristocrat is theJe} type of puzzle cipher found in local newspapers. Each letter is replaced with another letter from the alphabet according to Jf}plain and cipher alphabets that are arranged by various methods. The original word divisions and punctuation are retained aftJg}er encipherment.A patristocrat cipher is the same as the aristocrat except that all of the word divisions and punctuation aJh}re removed. The message is then divided into five letter groups, and is transmitted in these groups. The removal of the word Ji}divisions and punctuation gives the cipher more strength. This is also the standard way to transmit other types of ciphers. WJj}ith this in mind it not only makes it harder to decipher but harder for the unwanted viewer to figure out what type of cipherJk} it is.The caesar cipher is the simplist of the three. It is a cipher that shifts the ciphertext alphabet a specified numbeJl}r of positions relative to the plaintext alphabet. Both alphabets remain in alphabetical order.Using ARISTED is easy. AfterJm} typing in the listing SAVE it to disk. You can then set up a autorun file or load and run. The title will display and a few Jn}seconds later the main menu will display a list of options. Input a number then press RETURN. RETURN is used after all inputsJo}, except when shifting the alphabet. The special function keys are used for some commands. Just follow the instructions as thJp}ey appear. The program has many error traps. When activated a message will be displayed and you will be returned to the main Jq}menu.To encipher or decipher a message the first thing to do is to enter the proper text. Input plaintext if you want to enJr}cipher a message, ciphertext if you want to decipher a message. When entering the text, use capital letters only. More text cJs}an be added if needed, up to 500 characters. Each input of text adds to the message string. Use the clear function to delete Jt}the previous message before entering a new message. Capital letters only will be changed, numbers and punctuation will not beJu} changed. The next step is to go to the Key functions menu.The key functions menu deserves special attention. The way the aJv}lphabets are set up will make a difference in how well the alphabets are mixed up. All of the key functions are available to Jw}both the plain and cipher alphabet.The keyword option uses the letters of a word or phrase to place the first letters of a Jx}alphabet and the balance of the letters to finish the alphabet. One or both alphabets can be keyed. You can use the same key Jy}or a different key. The keyed alphabets can also be shifted if needed.The shift alphabet function is used to move the alphaJz}bet letters to the right or left relative to the other alphabet. This is sometimes necessary because the keyword might not miJ{}x the ending letters of the alphabets sufficiently.A alphabet can be reversed giving a backwards alphabet. A reversed alphaJ|}bet can be shifted, but it cannot be keyed.Any one or all of the key functions can be used to mix up the alphabets. Keying J}}is paramount to the success of the cipher system.After entering the text and key use encipher or decipher to do the encipheJ~}r or decipher. The word will lightly flash to indicate that the message is being changed. After the run the message will be dJ}isplayed. Press START to return to the main menu.Shifting the alphabet is only key function used to encipher a caesar cipheJ}r. A patristocrat is produced by enciphering a aristocrat and then using the print patristocrat.The file functions that theJ} program offers allows the user to read the directory,save or load a file. When the file is saved, the plaintext, ciphertext,J} and both alphabets are stored.The available print functions will allow you to print anything that the program enciphers orJ} deciphers. They also provide a good way to study how the different keying methods mix the alphabets.I hope this program haJ}s informed you about some aspects of cryptography. If you find it interesting then I recommend that you read some of the bookJ}s listed. The American Cryptogram Association is also a good place to expand your knowledge. The ACA publishes a bi-monthly pJ}eriodical that has a computer column each issue and a computer supplement twice a year. Cryptography plays an important part J}of our world today. If you like a challange, it can be a very interesting hobby.Glossary of terms1. plaintext- the readJ}able, plain text2. ciphertext- the text after it has been altered3. keyword- the word or phrase used to arrange the alphabeJ}t(s), agreed upon by sender and reciever4. encipher- change the text from plain to cipher5. decipher- change the text from J}cipher to plainImportant variables-PT$- plaintextCT$- ciphertextPA$- plain alphabetCA$- cipher alphabetPK$- plain keJ}ywordCK$- cipher keywordRecommended reading-CRYPTANALYSIS,Helen Fouche GainesDover Publications Inc., New YorkCRYPJ}YANALYSIS for MICROCUMPUTERSCaxton C. FosterHayden Book Company, Inc. Rochelle Park, New JerseyTHE CODE BREAKERSDavid KaJ}hnMacmillan Publishing Co., Inc., New YorkELEMENTARY CRYPTANAYLYSISAbraham SinkovMathamatical Association of AmericaAmJ}erican Cryptogram Association-ACA TreasurerP.O. Box 6454Silver Spring, MD 20906vMathamatical Association of AmericaAmHT I INVITE YOU TO PLAY WITH THIS PROGRAM FOR A WHILE.?THIS CIPHER IS ABOUT AS BASIC AS A CIPHER CAN GET. HAVE YOU EVER TRIED TN}O SOLVE A NEWSPAPER CRYPTOGRAM?* E EOLECR QVZ CV XJTQ MECD CDEP XYVBYTW HVY T MDEJR.?CDEP UEXDRY EP TAVZC TP ATPEU TP T UEXDRN}Y UTO BRC. DTLR QVZ RLRY CYERG CV PVJLR T ORMPXTXRY UYQXCVBYTW?*CUOVMWPXUZTCERRYSPATNODGBAFHGBHDIEJFKILJQKVLWMXNYQZSP T UEXDRLtd M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%R} DD˙`  }J)Lr J  ((  p L ()   JR}L= ( L 0q A    IB JC;? D W R} LL  ` W )LA!  ߰")-݆ p" R} $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`R}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H R}p h  hyhy D L> L JJ    ! LA*` BFR}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!LR}EE !E^ ^ E E7EȩEdE/EȩE  DR} .L }  ;F d  ;?F7F? ( .   Z D LL d R} . D  L    p  E` , d)  D L) 0BM݊L݉R} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ GR} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >GR} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISKR}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU R} L ? .  t`GBJ ~DEHI B V0dVR}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhR}DEL8HI4 0 HI,0 0  9 .G VLOR},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHIR} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHIR} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO R}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -R}LLu ÝDEHILV 9 .l 9 .l  `` s$B BHR}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu P} 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGV}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESV}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N'V}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx V}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECTV} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DLV}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BDV}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.V}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPECV}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#V}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SYV}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E V}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT AV}LLOWED IN DESTINATION 0 <.|K