home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd567 / instructions.amos / instructions.amosSourceCode
AMOS Source Code  |  1990-11-28  |  3KB  |  95 lines
  1. MAIN
  2. Procedure MAIN
  3.    Load "ss:wine.abk"
  4.    Music 1
  5.    Screen Open 0,640,256,8,Hires : Curs Off : Cls 0 : Paper 0
  6.    Pen 5 : Centre "INSTRUCTIONS FOR CHECK THIS OUT #2" : Print 
  7.    Pen 3 : Centre "��������������������������������׻" : Print 
  8.    Pen 6 : Print : Centre "1 >>>> TOME UPDATER V 3.2     "
  9.    Pen 7 : Print : Centre "2 >>>> SINGLE SAMPLE CONVERTER"
  10.    Pen 5 : Print : Centre "3 >>>> UNPACK PACKED PICTURE  "
  11.    Pen 4 : Print : Centre "4 >>>> AUDIOS INCLUDED ON DISK"
  12.    Pen 1 : Print : Centre "5 >>>> DODGE IT!              " : 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$="q" Then FF : Edit 
  22.    Loop 
  23. End Proc
  24. Procedure R
  25.    Screen Open 1,640,256,8,Hires : Curs Off : Cls 0 : Paper 0 : Pen 6
  26. End Proc
  27. Procedure FF
  28.    Home : Print : Centre "                                           "
  29.    Fade 9
  30.    For I=63 To 0 Step -1
  31.       Volume I : Wait 5
  32.    Next 
  33. End Proc
  34. Procedure R1
  35.    Data "TOME UPDATER V 3.2","------------------"
  36.    Data "THIS WILL ALLOW ONLY REGISTERED TOME USERS TO INSTALL THE NEW VERSION"
  37.    Data "","BEFORE YOU PROCEED IN INSTALLING THE NEWER VERSION OF TOME : -"
  38.    Data "","1 >> USE A BACKUP OF YOUR AMOS DISK        ","2 >> FORMAT A DATA DISK FOR INSTALLING TOME"
  39.    Data "","JUST CLICK ON INSTALL AND THEN FOLLOW THE PROMPTS",""
  40.    Data "WHAT SHOULD BE INSTALLED IS THE FOLLOWING : -"
  41.    Data "","TILE MAKER V2.0","TOME V3.2"
  42.    For I=1 To 15
  43.       If I=3 Then Pen 3
  44.       If I>3 Then Pen 2
  45.       Read A$ : Centre A$ : Print 
  46.    Next 
  47.    Wait Key : Screen Close 1
  48. End Proc
  49. Procedure R2
  50.    Data "SINGLE SAMPLE CONVERTER","-----------------------"
  51.    Data "THIS WILL ALLOW YOU TO CONVERTER A SINGLE SAMPLE TO AN AMOS BANK"
  52.    Data "","JUST CLICK ON THE FUNCTIONS AND THEN FOLLOW THE PROMPTS"
  53.    For I=1 To 5
  54.       If I=3 Then Pen 3
  55.       If I>3 Then Pen 2
  56.       Read A$ : Centre A$ : Print 
  57.    Next 
  58.    Wait Key : Screen Close 1
  59. End Proc
  60. Procedure R3
  61.    Data "UNPACK PACKED PICTURE","---------------------"
  62.    Data "THIS WILL ALLOW YOU TO UNPACK AN AMOS PACKED PICTURE THEN SAVE IT AS AN IFF"
  63.    Data "","JUST CLICK ON THE FUNCTIONS ! EXTREMELY EASY TO USE"
  64.    For I=1 To 5
  65.       If I=3 Then Pen 3
  66.       If I>3 Then Pen 2
  67.       Read A$ : Centre A$ : Print 
  68.    Next 
  69.    Wait Key : Screen Close 1
  70. End Proc
  71. Procedure R4
  72.    Data "AUDIOS INCLUDED ON DISK","-----------------------"
  73.    Data "ON THE DISK THERE ARE TWO AMOS MUSIC BANKS"
  74.    Data "","USE THESE IN GAMES, UTILITIES, ETC"
  75.    For I=1 To 5
  76.       If I=3 Then Pen 3
  77.       If I>3 Then Pen 2
  78.       Read A$ : Centre A$ : Print 
  79.    Next 
  80.    Wait Key : Screen Close 1
  81. End Proc
  82. Procedure R5
  83.    Data "DODGE IT!","---------"
  84.    Data "MY FIRST COMPLETE GAME !!"
  85.    Data "","OBJECTIVE OF GAME : TO DODGE AND SHOOT AS MANY PLANES AS POSSIBLE"
  86.    Data "CONTROLS : UP TO GO UP, DOWN TO GO DOWN, FIRE TO SHOOT, RIGHT TO GO FORWARD"
  87.    Data "SCORING : GO MAXIMUM UP THEN MAXIMUM DOWN, MAXIMUM UP, MAXIMUM DOWN, ETC..."
  88.    Data "FIVE STARS=EXTRA AMMO   LIFE=EXTRA LIFE"
  89.    For I=1 To 8
  90.       If I=3 Then Pen 3
  91.       If I>3 Then Pen 2
  92.       Read A$ : Centre A$ : Print 
  93.    Next 
  94.    Wait Key : Screen Close 1
  95. End Proc