home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd568 / instructions.amos / instructions.amosSourceCode
AMOS Source Code  |  1992-06-29  |  4KB  |  111 lines
  1. MAIN
  2. Procedure MAIN
  3.    Load "TN:BLUES_SCALES.abk" : Music 1
  4.    Screen Open 0,640,256,8,Hires : Curs Off : Cls 0 : Paper 0
  5.    Pen 5 : Centre "INSTRUCTIONS FOR CHECK THIS OUT #3" : Print 
  6.    Pen 3 : Centre "��������������������������������׻" : Print 
  7.    Pen 6 : Print : Centre "1 >>>> HEPETITIS-B INFORMATION"
  8.    Pen 7 : Print : Centre "2 >>>> AMOS IMPROVEMENT IDEAS "
  9.    Pen 5 : Print : Centre "3 >>>> CLOWNS                 "
  10.    Pen 4 : Print : Centre "4 >>>> SCENES INCLUDED ON DISK"
  11.    Pen 1 : Print : Centre "5 >>>> PEPSI ANIMATION DEMO   "
  12.    Pen 6 : Print : Centre "6 >>>> R.A.A.P.               " : Print 
  13.    Pen 2 : Centre "Q >>>> QUIT !!                " : Print 
  14.    Do 
  15.       A$=Inkey$
  16.       If A$="1" Then R : R1
  17.       If A$="2" Then R : R2
  18.       If A$="3" Then R : R3
  19.       If A$="4" Then R : R4
  20.       If A$="5" Then R : R5
  21.       If A$="6" Then R : R6
  22.       If A$="q" Then FF : Edit 
  23.    Loop 
  24. End Proc
  25. Procedure R
  26.    Screen Open 1,640,256,8,Hires : Curs Off : Cls 0 : Paper 0 : Pen 6
  27. End Proc
  28. Procedure FF
  29.    Home : Print : Centre "                                           "
  30.    Fade 9
  31.    For I=63 To 0 Step -1
  32.       Volume I : Wait 5
  33.    Next 
  34. End Proc
  35. Procedure R1
  36.    Data "HEPETITIS B INFORMATION","-----------------------"
  37.    Data "THIS IS JUST SOME INFORMATION ON HEPETITIS. HAVE A LOOK !"
  38.    Data "","JUST CLICK ON THE GADGETS TO VIEW THE INFORMATION"
  39.    For I=1 To 5
  40.       If I=3 Then Pen 3
  41.       If I=4 Then Pen 2
  42.       Read A$ : Centre A$ : Print 
  43.    Next 
  44.    Wait Key : Screen Close 1
  45. End Proc
  46. Procedure R2
  47.    Data "AMOS IMPROVEMENT IDEAS","----------------------"
  48.    Data "THIS IS SOMETHING YOU CAN NOT MISS ! LOAD IT UP NOW !!"
  49.    Data "","JUST CLICK THE MOUSE BUTTON TO PAGE THE INFORMATION"
  50.    For I=1 To 5
  51.       If I=3 Then Pen 3
  52.       If I>3 Then Pen 2
  53.       Read A$ : Centre A$ : Print 
  54.    Next 
  55.    Wait Key : Screen Close 1
  56. End Proc
  57. Procedure R3
  58.    Data "CLOWNS","------"
  59.    Data "THIS IS A VARIETY OF BOBS & ETC BASED ON THE TOPIC CLOWNS"
  60.    Data "","THERE IS THREE FILES INCLUDED ON THIS DISK"
  61.    Data "","CLOWNS_BOBS  - SCREEN OF BOBS READY TO BE CAPTURED"
  62.    Data "CLOWNS_B.ABK - CLOWNS BOBS                        "
  63.    Data "CLOWNS.AMOS  - EXAMPLE SOURCE CODE                "
  64.    Data "","HAVE FUN !! AND IF YOU DO USE THEM PLEASE GIVE SOME CREDIT"
  65.    For I=1 To 11
  66.       If I=3 Then Pen 3
  67.       If I=5 Then Pen 2
  68.       If I>5 Then Pen 4
  69.       If I=11 Then Pen 3
  70.       Read A$ : Centre A$ : Print 
  71.    Next 
  72.    Wait Key : Screen Close 1
  73. End Proc
  74. Procedure R4
  75.    Data "SCENES INCLUDED ON THE DISK","---------------------------"
  76.    Data "USE THESE IN GAMES, UTILITIES, ETC","","THE SCENERIES ARE ALL IN THE AMOS PACKED PICTURE FORMAT"
  77.    For I=1 To 5
  78.       If I=3 : Pen 3 : End If 
  79.       If I>4 Then Pen 4
  80.       Read A$ : Centre A$ : Print 
  81.    Next 
  82.    Wait Key : Screen Close 1
  83. End Proc
  84. Procedure R5
  85.    Data "PEPSI ANIMATION DEMO","--------------------"
  86.    Data "ANOTHER SUPER SHORT DEMO !"
  87.    Data "","JUST WATCH IT !"
  88.    For I=1 To 5
  89.       If I=3 Then Pen 3
  90.       If I>3 Then Pen 2
  91.       Read A$ : Centre A$ : Print 
  92.    Next 
  93.    Wait Key : Screen Close 1
  94. End Proc
  95. Procedure R6
  96.    Data "R.A.A.P.","--------"
  97.    Data "RUN ALL AMOS PROGRAMS"
  98.    Data "","THIS PROGRAM WILL ALLOW YOU TO AUTOBOOT ALMOST ANY AMOS PROGRAM !"
  99.    Data "IT WILL AUTOBOOT ALMOST ANY 3D,DOS/PRINTER,TOME,COMPILER EXTENSION PROGRAM"
  100.    Data "","HERE IS A LIST OF STEPS TO FOLLOW :","","1.INSERT DISK IN YOUR BOOT DRIVE"
  101.    Data "2.NOW THE PROGRAM SHOULD LOAD   ","3.CLICK LOAD                    "
  102.    Data "4.SELECT A FILE                 ","5.THE PROGRAM WILL LOAD & RUN   "
  103.    For I=1 To 14
  104.       If I=3 Then Pen 3
  105.       If I>3 Then Pen 2
  106.       If I=8 Then Pen 3
  107.       If I>8 Then Pen 5
  108.       Read A$ : Centre A$ : Print 
  109.    Next 
  110.    Wait Key : Screen Close 1
  111. End Proc