home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1991-03-24 | 2.7 KB | 59 lines |
- Screen Open 0,640,256,8,Hires
- Curs Off : Flash Off : Colour 2,$FF0
- VISUAL["MESSAGE1"]
- Pen 1 : Locate 20,28 : Print " Press Mouse Button for next page"
- Repeat
- Until Mouse Key<>0
- VISUAL["message2"]
- Pen 1 : Locate 20,28 : Print "Press Mouse Button to return to Menu"
- Repeat
- Until Mouse Key<>0
- Run "AutoExec.AMOS"
- ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- Procedure VISUAL[M$]
- Pen 2 : Paper 0 : Cls 0
- Restore M$
- Locate 27,1 : Print " PROGRAM INSTRUCTIONS "
- Locate 27,2 : Print " -------------------- "
- Locate 0,6
- Repeat
- Read A$
- If A$<>"zzzz" Then Print " ";A$
- Until A$="zzzz"
- End Proc
- ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- MESSAGE1:
- Data "1) CASSETTE LABEL MAKER - is a program that allows the user to enter"
- Data " and Print Cassette Labels of his/hers favourite Music Tapes."
- Data " Instructions are included in the program. An Example Label is also"
- Data " included on the disk (Example.lab)."
- Data " "
- Data "2) NOUGHTS & CROSSES - is a simple beatable OXO game. It's up to you"
- Data " To find how to beat it (if you can !!!)"
- Data " "
- Data "3) INTERLACE DEMO - up to the time of writing this utility, AMOS does"
- Data " not posses the ability to Interlace a Picture. These couple of"
- Data " Procedures will fix all that. Procedure LACEON[n] switches interlace"
- Data " on and Procedure LACEOFF[n] switches interlace off. [n] indicates"
- Data " to the number of screens in use. If using double buffer then use n=2."
- Data " "
- Data "4) KALEIDOSCOPE - is an AMOS version of an old BBC Micro program."
- Data " The program was called Carpet. It Still looks good."
- Data " "
- Data "5) RABBIE BURNS - watch the picture of the world famous poet, Rabbie"
- Data " Burns, being drawn in front of your eyes."
- Data "zzzz"
- MESSAGE2:
- Data "6) PALETTE SETTER - is utility program that can be used in two ways."
- Data " First, the user is welcome to use it in his/hers programs. Second,"
- Data " the utility can be used to work out the $RGB components number."
- Data " ie. Colour 1,$123. You can select the flashing colours by pressing"
- Data " the F/Range window. To induce the colours to flash point to the flash"
- Data " number window and hold down the left mouse button. You can increase"
- Data " or decrease the flash rate by pressing the arrows to the right and"
- Data " left of the flash rate numbers. The flashing can be made to flash up"
- Data " or down by pressing the U/P button."
- Data " Please note if you wish to copy this program to another disk, the"
- Data " font (Zfont) must be transfered with it for the program to work"
- Data " properly."
- Data "zzzz"