AMOS PD CD/amospdcd.iso/totallyamos/issue4/programming/2.seq

Text File | 1992-04-27 | 14.8 KB | 339 lines

ddd00000ff00fe0080888000a3f
^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^2                         MY MISTAKE, SORRY!

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^2 Before we get onto the first load of program files, the following is
^2a correction to the March Issue of TA.

^6This is  a  correction to the Interlace_Paul program that appeared in
^6the last issue of TA.

^6 Paul  Faxed the listing to us and I (Anne) typed it in.  The program
^6ran fine, don't ask how, but one number managed to get itself changed
^6somehow between typing, testing and transferring to the TA disk.  The
^6instructions  should  have  read  `use  2  interlace pics' NOT `2 HAM
^6pics'.

^6Here is the listing for you either to type in again or correct in the
^6listing supplied in the last issue.

^1`Vertical Interlace Demo
^1`By Paul Townsend of Technical Fred Software
^1`Loads in 2 Hires pics
^1`Shrinks them to half size
^1`Uses  Vertical  Interlace (A bit like normal Interlace turned on its
^1`side)  The  interlace  effect  makes  up  the lost resolution due to
^1`shrinking  the  pics.   Is  the idea of use to anyone?  Feel free to
^1`adapt  it  for your own use.  Please let me know if you use it.  The
^1`contact address is in the Ads section of TA.

^2Dir$="df1:"
^2Load "robot",10
^2Unpack 10 to 0
^2Wait Vbl
^2Flash Off
^2Load "earth",10
^2Unpack 10 to 1
^2Wait Vbl
^2Flash Off
^2Erase 10
^2Screen Open 2,640,256,16,Hires
^2Flash Off
^2Get Palette 0
^2Screen Open 3,640,256,16,Hires
^2Flash Off
^2Get Palette 0
^2For F=0 To 640 Step 2
^2   Screen Copy 0,F,0,F+1,256 To 2, POS,0
^2   Screen Copy 0,F+1,0,F+2,256 To 3,POS,0:REM This line was wrong
^2   Inc POS
^2Next F
^2For F=0 To 640 Step 2
^2   Screen Copy 1,F,0,F+1,256 To 2, POS,0
^2   Screen Copy 1,F+1,0,F+2,256 To 3,POS,0
^2   Inc POS
^2Next F
^2Do
^2   Screen To Front 2
^2   Wait Vbl
^2   Screen To Front 3
^2   Wait Vbl
^2Loop

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^2                       PROGRAM FILES ON DISK I.

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^4 We  start  off  with  docs  files  supplied  by  the  authors of the
^4following  programs.   The  othe  files will be described in Files on
^4Disk II.

^4These are the docs supplied by Ken Kowalewki, from Michigan, USA, for
^4his Disk Utility program.

^2 *We  have  included  the  .AMOS  version  of this program on TA this
^2month,  due  to  limited  disk  space,  if  you  wish to use it as an
^2accessory, simply rename the file Disk_Utility.Acc.  As Ken says, the
^2two programs are the same except for the name.

^4                             Disk_Utility.Acc
^4                             DiskUtility.AMOS
^4                                    by
^4                              Ken Kowalewski

^6 These  two programs * are different only in their names.  Everything
^6else  about  them  is  identical.  The program has been written using
^6AMOS  -  The  Creator.   I  have written this program to be used from
^6within  AMOS  as  an  accessory.   If  you  copy the Disk_Utility.Acc
^6program  to your AMOS system disk, you will then be able to run it as
^6an accessory.

^4 Although  I  am an experienced programmer in BASIC, this is my first
^4program  written  using  AMOS.  This was written using AMOS1.3.  I am
^4sorry  for  the  coding.   It  is  not  very  efficient  and  I would
^4appreciate  suggestions  and  comments  on the coding or improvements
^4desired.

^6 I  have  tested this on an AMIGA 500 with one meg and two drives.  I
^6have  also  tested  it  on  an AMIGA 3000 with two internal drives in
^6addition to an internal hard drive.

^2WHAT IT DOES:

^4 This  program adds some useful options within the AMOS editor.  When
^4it  is  used  as an accessory, you may switch between the utility and
^4the  program  you  are  editing.   You can find out how much space is
^4available  on disks in all your drives.  You can also check the space
^4in  the  individual  partitions  of  your hard drive.  You can delete
^4files  from  disk.   You  can  rename  files.   You  can  create  new
^4directories.   You  can  get  a list of all devices mounted from your
^4boot  disk.   And,  of course, you can exit back to the editor.  This
^4program was not designed to be a stand alone program!

^2HOW TO USE:

^6 The  mouse  is  used  for  almost  everything  in  the  program.  On
^6start-up, there will be a menu screen presented for your options.  To
^6select  an  option,  move  the mouse pointer to the option desired an
^6click  either mouse button while over any part of the text.  You will
^6here a bell and the option will be activated.

^4 For  the  space  available and mounted devices option, a window will
^4open  and  display  the  information  requested.   Click either mouse
^4button, when you are done with the options.  For the delete option, a
^4file requestor will be displayed.  Locate the file you wish to delete
^4and  double-click  on it to continue (other normal ways to select are
^4also  active).   After you have selected the file, a window will open
^4notifying  you  of your selection and asking you if you are sure this
^4is correct.  If it is the correct file to be deleted, you can press Y
^4(upper  or  lower  case) or click the left mouse button to delete the
^4file.   Press any other key or click the right mouse button to change
^4your mind.  If you deleted a file, you will be told what was deleted.
^4You will be given the option to delete another.  Again, there will be
^4a  Yes/No request.  To create a new directory, the file selector will
^4appear.   Locate  the  level that you wish to place the new directory
^4in.   YOU DO NOT HAVE TO SELECT ANYTHING!  on the bottom line type in
^4the  name for the new directory and press return.  A window will open
^4showing  what  you  are about to do.  There will be a Yes/No request.
^4There  will  be  an  option to create another.  To rename a file, the
^4file   requestor   will  appear.   Select  the  file  to  rename  and
^4double-click  on it.  A window will open and you will have to type in
^4the  new filename.  You only have to type in the file's new name, not
^4the entire path.  As before, there are Yes/No options.  The return to
^4Amos option also brings up a Yes/No request.  There is information in
^4the program listing on naming your drive devices.

^6 I am placing this program into the Public Domain as of 29-8-91.  You
^6may use it as you see fit.  There really isn't anything special about
^6my  coding.   If  you  would like to send me a donation, I promise to
^6spend it in good health.  It is not, however, required to do so.

^4 I  have  a  number  of  projects in the works, including a diet/meal
^4planner,  a  complex  board game, a graphic adventure with a friendly
^4point-and-click  interface  and  an  educational  game.  I would also
^4consider  ideas  from others.  I would also like to try and form some
^4sort  of  AMOS  user  group  here  in  the USA.  Anyone that sends me
^4bribes,  notes  of  encouragement,  questions, answers, complaints or
^4anything  else that can be delivered in the mail will be placed on my
^4mailing  list  for  future  information.   I  have  written  and sold
^4programs  to  LOADSTAR  on the Commodore 64 and am now working toward
^4commercial products on the Amiga using Amos.

^2I can be contacted at:

^1Kenneth Kowalewski 5172 Westlake Dearborn Heights, MI 48125 U.S.A.

^1For those living in Michigan, my phone number is:  1-[phone]


^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^2Steven Bradley has sent us a program, we'll let him explain......

^5 I have submitted this program in the hope that it may be of interest
^5to  your  readers  and  to  share  my tiny amount of Amos programming
^5knowledge.  I aquired Amos at Christmas and this is my first project.
^5It's  a  computerised  version  of  a  Vignere  Table,  a  method  of
^5encryption  used in World War II.  A table of 26 alphabets, the first
^5starting  with`A'  going  to  `Z',  the  next starting with `B' going
^5through  to `Z' ending with `A'.This continues in the same fashion of
^5moving the first letter to the end, thus forming the table.

^6 There are 2 main parts to the program:-

^2 Encypher:

^5 The  computer asks for a password, this can be any word.  In fact it
^5can  be any combination of letters as long as it does not contain any
^5numbers, spaces or punctuation marks.  You then type in your message.
^5The  computer  will  then compare your message with the password.  It
^5looks  at the first letter of the password and the same letter in the
^5top  row  of  the  table.   It  then looks at the first letter of the
^5message  and  the  same  letter  on  the left hand side of the table.
^5Where  the  two  lines (X and Y axis) intersect is the letter for the
^5code.   It  continues to do this with each letter of the password and
^5message  until  finished.  in most cases the password will be smaller
^5than the message, so when the computer reaches the last letter of the
^5password it starts at the beginning again and so on until the message
^5is coded.

^2 Decipher:

^6 This  part  of  the  program  is  similar to the encypher part.  The
^6password  is  entered  and then the code.  The password is taken from
^6the  top  row  of thetable but, and this is where it differs from the
^6encypher  part,  the  computer  looks down the column of the password
^6letter  to  find  the letter of the code.  It then goes across to the
^6left hand row to find the letter of the original message.

^2 Example:  Password:  DOG

^2 PASSWORD:    DOGDOGDOGDOGDOGDO
^2 MESSAGE:     MY NAME IS STEVEN
^2 CODE:        PM QOSH OV YWSBHB

^2 PASSWORD:    DOGDOGDOGDOGDOGDO
^2 CODE:        PM QOSH OV YWSBHB
^2 MESSAGE:     MY NAME IS STEVEN

^5 You  can  see that spaces in the message and code are also compared.
^5Try to follow the process on the table.

^6 If  a person gets hold of your code and has a copy of the program or
^6table,  it  would  be  very  hard  to  find  the  message without the
^6password.

^5 I  have included some form of error trapping of the inputs and would
^5appreciate any comments on the code.(Pogram)


^4TABLE:
^2                              P A S S W O R D

                        ^4ABCDEFGHIJKLMNOPQRSTUVWXYZ
          ^2M             ^4BCDEFGHIJKLMNOPQRSTUVWXYZA
                        ^4CDEFGHIJKLMNOPQRSTUVWXYZAB
          ^2E             ^4DEFGHIJKLMNOPQRSTUVWXYZABC
                        ^4EFGHIJKLMNOPQRSTUVWXYZABCD
          ^2S             ^4FGHIJKLMNOPQRSTUVWXYZABCDE
                        ^4GHIJKLMNOPQRSTUVWXYZABCDEF
          ^2S             ^4HIJKLMNOPQRSTUVWXYZABCDEFG
                        ^4IJKLMNOPQRSTUVWXYZABCDEFGH
          ^2A             ^4JKLMNOPQRSTUVWXYZABCDEFGHI
                        ^4KLMNOPQRSTUVWXYZABCDEFGHIJ
          ^2G             ^4LMNOPQRSTUVWXYZABCDEFGHIJK
                        ^4MNOPQRSTUVWXYZABCDEFGHIJKL
          ^2E             ^4NOPQRSTUVWXYZABCDEFGHIJKLM
                        ^4OPQRSTUVWXYZABCDEFGHIJKLMN
          ^2OR            ^4PQRSTUVWXYZABCDEFGHIJKLMNO
                        ^4QRSTUVWXYZABCDEFGHIJKLMNOP
          ^2C             ^4RSTUVWXYZABCDEFGHIJKLMNOPQ
                        ^4STUVWXYZABCDEFGHIJKLMNOPQR
          ^2O             ^4TUVWXYZABCDEFGHIJKLMNOPQRS
                        ^4UVWXYZABCDEFGHIJKLMNOPQRST
          ^2D             ^4VWXYZABCDEFGHIJKLMNOPQRSTU
                        ^4WXYZABCDEFGHIJKLMNOPQRSTUV
          ^2E             ^4XYZABCDEFGHIJKLMNOPQRSTUVW
                        ^4YZABCDEFGHIJKLMNOPQRSTUVWX
                        ^4ZABCDEFGHIJKLMNOPQRSTUVWXY

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^3                        New Fonts for your printer!

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><

^2(Printer Fonts Directory)

^4 As  a magnanimous, kind, warmhearted gesture, I have agreed that Len
^4and  Anne  could  give  you  FREE  with  this issue of T.A.  a sample
^4printer font for each of the LC10, LC200, and 24-pin printers.

^4 No,  thats  a bit of a fib.  The free fonts are here, but its just a
^4cheap  plug  so  that you can try them, think:  'Gosh!  Thats good!',
^4and  then  rush  out  and  buy  the full licenceware version for your
^4printer  for  only  £3.50  from  any  Amos licenceware stockist.  The
^4occassion  is  the  release of the new disc for the LC200 only, as it
^4had  previously had to make do with a dodgy conversion program on the
^4LC10  disc.  The new release sings, dances, makes toast, solves world
^4famine,  and  -  TA  DA!   even works in EPSON mode.  (This will be a
^4great relief to anyone who used the old version)

^4The  instructions  given here are painfully brief, but should get you
^4going.   Whichever  printer you own, you need to set the Dip switches
^4up to let you use the printer RAM as storage for Downloaded Fonts.

^2LC10: Set dipswitch 2-1 to OFF
^2LC200: Set EDS  A-2 to OFF
^2LC24 & other 24 pin printers.. please read your manual.

^4For all cases, the printer should be in STANDARD or EPSON mode.

^6To use the fonts:

^2Copy the font for your machine to your work disc.

^4At a Shell or CLI prompt , type the following, using the filename for
^4your machine:
^4          either;
^2                  TYPE Gothic.LC10 TO PAR:
^2          or;     TYPE Gothic.LC200 TO PAR:
^2          or;     TYPE Gothic.LC24 TO PAR:

^4This  sends  the  stream  of control codes which redefine the letters
^4down  to your printer.  After this has been done, the printer is left
^4in NLQ download mode.  Any text you send to the printer should appear
^4in the new font.

^4There  can  be  problems  with  some WP programs, as one of the first
^4things  they  do before printing is to reset the printer.  This loses
^4the  font.   I  have  included on this disc a modified printer driver
^4which  combats  this.   The driver is called MODIFIED_DRIVER.  If you
^4want  to  try  it,  copy it to your DEVS/PRINTERS directory, then use
^4Preferences  to  select  it.   It is for the LC10, but will drive the
^4LC200,  and  the  24 pins in text mode.  The alteration I made was to
^4replace the escape code sequence <ESC> 40 with 00,00 so that no reset
^4occurs.  You can do the same to your favourite driver using a program
^4like  ZAP.   (Back  up  the  original  first) I made one other useful
^4twiddle  to  the driver.  Most Amiga printer drivers assume that BOLD
^4means  EMPHASISED  print.   You  may not know the difference, but may
^4have  wondered why setting text to BOLD in a WP made no difference to
^4the output in NLQ mode.  I have changed this driver to send <ESC> G ,
^4instead of <ESC> E, and this makes BOLD really print BOLD.

^4Again, I could go on for pages, but I must be brief.

^4Have fun with the fonts, and don't forget :  there are 19 more on the
^4LC10  &  LC200  licenceware  discs,  and 11 more on the LC24 version.
^4Only £3.50, get them while they're hot!

^2Jeff Tullin April 1992.

^7<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><
\