Amstrad Action January 1988 Type-Ins

The following listings were published in the Christmas 1987/January 1988 issue of Amstrad Action:

Type-Ins

• Loan Amortization Table (R Woodfield)
• Streamer (Jan-Mirko Maczewski and Martin Schroeder) NB two versions for 464 and 664/6128
• 1988 (TH Spence)
• RSXSort (Lawrence Pozzani)
• Discutil (Tristan McDonald)

* Streamer: The main menu offers four options - Catalogue, Disk onto Tape, Tape onto Disk, and Speed (choose tape save speed of 1000, 2000 or 3500 baud)

* 1988: prints any calendar between the years 1000 and 9999 AD

* RSXSort: supplies a new command |SORT: usage |SORT, first array element, last array element, direction

e.g. 464 |SORT,@a$(0),@a$(100),0 or |SORT,@b$(0,0),@b$(9,9),-1

664/6128 |SORT,a$(0),a$(100),0 or |SORT,b$(0,0),b$(9,9),-1

The first and last elements may be reversed, it does not matter to the program

The last parameter specifies direction of the sort. A zero results in the largest element sorted first, non-zero gives smallest first.

* Discutil: it adds five RSXs to Basic:

|CHECK,@a$,@e% - checks that a file (contained within a$) is on the disk. If the file is present e% will equal zero, otherwise 255 is returned. For example:

a$="program.bas":e%-0:|CHECK,@a$,@e%

|TYPE,@a$ - emulates the CPM TYPE command; it allows you to view the Ascii contents of a file. The string variable holds the name of the file to view. For example:

a$="program.bas":|TYPE,@a$

|PRINTER.ON - echos text written on the screen to the printer. |PRINTER.OFF - switches off the above function.

|LOAD,@f$,a,@e% - this loads any file (held in f$) into any memory address (a). The variable e% will contain the status byte - 0 if all went according to plan; 255 if there was an error. For example:

f$="program.bin":e%=0:|LOAD,@f$,16384,@e%

• DSK file