home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd621 / steven_mortimer / anotherintro.amos / anotherintro.amosSourceCode next >
AMOS Source Code  |  1986-08-03  |  7KB  |  288 lines
  1. Dim A$(20),L(10)
  2. Global A$(),NO,L()
  3. Hide : Amos Lock : Break Off 
  4. A$="by quackers/alpha/1993"
  5.  
  6. Procedure _SETUP
  7.    Screen Open 5,320,300,2,Lowres
  8.    Screen Display 5,130,10,,
  9.    Paper 0
  10.    Curs Off 
  11.    Wait Vbl 
  12.    Fade 5,$75
  13.    Wait 50
  14.    Colour Back $75
  15.  
  16.    Wait Vbl 
  17.    Auto View Off 
  18.    Unpack 10 To 1
  19.    Screen Display 1,130,0,,0
  20.    Palette $75
  21.    Colour Back $75
  22.    Screen Open 0,330,156,2,Lowres
  23.    Screen Display 0,130,161,,
  24.    Palette $75,$2AA
  25.    Paper 0
  26.    Curs Off 
  27.    Flash Off 
  28.    Cls 
  29.    Screen To Front 1
  30.    Screen Open 4,330,130,2,Lowres
  31.    Paper 0
  32.    Curs Off 
  33.    Cls 
  34.    Screen Hide 4
  35.    View 
  36.    Auto View On 
  37.    Screen Close 5
  38. End Proc
  39. Procedure _TEXTY
  40.    Degree 
  41.    ST=Start(9)
  42.    'pop on the logo 
  43.    For F=0 To 56
  44.       Screen Display 1,170,100-F,,F*2
  45.       Wait Vbl 
  46.    Next F
  47.    
  48.    Screen Open 2,320,20,2,Lowres
  49.    Screen Display 2,130,160,,1
  50.    Palette $86
  51.    
  52.    'bouncy bar! 
  53.    S=182
  54.    Mvolume 0
  55.    Music 1
  56.    Repeat 
  57.       Add F,5
  58.       Dec S
  59.       Screen Display 2,130,158+Peek(ST),,
  60.       Inc ST
  61.       Wait Vbl 
  62.       If(200-S)/2<63
  63.          Mvolume(200-S)/2
  64.       End If 
  65.    Until S=0
  66.    
  67.    _DO
  68. End Proc
  69. Procedure _MESSAGES
  70.    
  71.    A$(1)=""
  72.    '      01234567890123456789012345678901  
  73.    A$(1)=A$(1)+"%"
  74.    A$(1)=A$(1)+"  alpha back with a new cool    "
  75.    A$(1)=A$(1)+"intro advertising our new bbs   "
  76.    A$(1)=A$(1)+"      the tower of power        "
  77.    A$(1)=A$(1)+"%"
  78.    A$(1)=A$(1)+"  try reaching it by dialing    "
  79.    A$(1)=A$(1)+"%"
  80.    A$(1)=A$(1)+"     vxswrxbxnvvncvnvbnvn       "
  81.    A$(1)=A$(1)+"%"
  82.    A$(1)=A$(1)+"  credits and greets follow     "
  83.    
  84.    A$(2)=""
  85.    '      01234567890123456789012345678901  
  86.    A$(2)=A$(2)+"%"
  87.    A$(2)=A$(2)+"      coding by quackers        "
  88.    A$(2)=A$(2)+"        gfx by oddjob           "
  89.    A$(2)=A$(2)+"   cool sounds by mixmaster     "
  90.    A$(2)=A$(2)+"       design by digit          "
  91.    A$(2)=A$(2)+"  --------------------------    "
  92.    A$(2)=A$(2)+"  special greetings will be     "
  93.    A$(2)=A$(2)+" shown on the following page    "
  94.    A$(2)=A$(2)+"%"
  95.    A$(2)=A$(2)+"         #follow me#            "
  96.    
  97.    A$(3)=""
  98.    '      01234567890123456789012345678901  
  99.    A$(3)=A$(3)+" alpha sends their regards to   "
  100.    A$(3)=A$(3)+"%"
  101.    A$(3)=A$(3)+" kefrens trsi crystal exodus    "
  102.    A$(3)=A$(3)+"dimension x nvx fine skid row   "
  103.    A$(3)=A$(3)+"   lsd spaceballs pheonix       "
  104.    A$(3)=A$(3)+"%"
  105.    A$(3)=A$(3)+"and to all the others we know   "
  106.    A$(3)=A$(3)+"          and love              "
  107.    A$(3)=A$(3)+"%"
  108.    A$(3)=A$(3)+"   personal regards follow      "
  109.    
  110.    A$(4)=""
  111.    '      01234567890123456789012345678901  
  112.    A$(4)=A$(4)+"   alpha send their personal    "
  113.    A$(4)=A$(4)+"         regards to             "
  114.    A$(4)=A$(4)+"%"
  115.    A$(4)=A$(4)+"  jade keep those cool tunes    "
  116.    A$(4)=A$(4)+"           coming               "
  117.    A$(4)=A$(4)+"%"
  118.    A$(4)=A$(4)+"cylon nice coding and when is   "
  119.    A$(4)=A$(4)+"     your mag coming out        "
  120.    A$(4)=A$(4)+"%"
  121.    A$(4)=A$(4)+"    quattra whats happened      "
  122.    
  123.    A$(5)=""
  124.    '      01234567890123456789012345678901  
  125.    A$(5)=A$(5)+"  abh hows the modem trading    "
  126.    A$(5)=A$(5)+"       going these days         "
  127.    A$(5)=A$(5)+"%"
  128.    A$(5)=A$(5)+" ammo i hope to see your board  "
  129.    A$(5)=A$(5)+"     up and running soon        "
  130.    A$(5)=A$(5)+"%"
  131.    A$(5)=A$(5)+"widdy give me a bell some time  "
  132.    A$(5)=A$(5)+"      soon in the future        "
  133.    A$(5)=A$(5)+"%"
  134.    A$(5)=A$(5)+"         and on we go           "
  135.    
  136.    A$(6)=""
  137.    '      01234567890123456789012345678901  
  138.    A$(6)=A$(6)+" well times run out but watch   "
  139.    A$(6)=A$(6)+"     for us in the future       "
  140.    A$(6)=A$(6)+"%"
  141.    A$(6)=A$(6)+"            alpha               "
  142.    A$(6)=A$(6)+"   they took our computers      "
  143.    A$(6)=A$(6)+"    they stole our disks        "
  144.    A$(6)=A$(6)+" and then they hid the fuses    "
  145.    A$(6)=A$(6)+"%"
  146.    A$(6)=A$(6)+" we are back bigger and better  "
  147.    A$(6)=A$(6)+"         than before            "
  148.    
  149.    A$(7)=""
  150.    '      01234567890123456789012345678901  
  151.    A$(7)=A$(7)+"  for joining in anyway from    "
  152.    A$(7)=A$(7)+"ascii writers to modem traders  "
  153.    A$(7)=A$(7)+"    coders etc we want you      "
  154.    A$(7)=A$(7)+"%"
  155.    A$(7)=A$(7)+"           alpha hq             "
  156.    A$(7)=A$(7)+"        2 bideford ave          "
  157.    A$(7)=A$(7)+"          blackpool             "
  158.    A$(7)=A$(7)+"            lancs               "
  159.    A$(7)=A$(7)+"           fy3 8pu              "
  160.    A$(7)=A$(7)+"           england              "
  161.    
  162.    A$(8)=""
  163.    '      01234567890123456789012345678901  
  164.    A$(8)=A$(8)+"%"
  165.    A$(8)=A$(8)+" leave a message on any of our  "
  166.    A$(8)=A$(8)+"  boards or you can phone me    "
  167.    A$(8)=A$(8)+"         directly on            "
  168.    A$(8)=A$(8)+"%"
  169.    A$(8)=A$(8)+"       44 o253 392812           "
  170.    A$(8)=A$(8)+"  note that this is no board    "
  171.    A$(8)=A$(8)+"%"
  172.    A$(8)=A$(8)+"   pc contacts also wanted      "
  173.    A$(8)=A$(8)+" send disks for total response  "
  174.    
  175.       A$(9)=""
  176.    '      01234567890123456789012345678901  
  177.    A$(9)=A$(9)+"%"
  178.    A$(9)=A$(9)+"%"
  179.    A$(9)=A$(9)+"%"
  180.    A$(9)=A$(9)+"%"
  181.    A$(9)=A$(9)+"%"
  182.    A$(9)=A$(9)+"    -    -    ---- -  -    -    "
  183.    A$(9)=A$(9)+"   ---   -    -  - -  -   ---   "
  184.    A$(9)=A$(9)+"  -----  -    ---- ----  -----  "
  185.    A$(9)=A$(9)+" --   -- -    -    -  - --   -- "
  186.    A$(9)=A$(9)+" --   -- ---- -    -  - --   -- "
  187. End Proc
  188. Procedure _DO
  189.    Do 
  190.       For T=1 To 9
  191.          _TEXT[A$(T)]
  192.          For F=0 To 9
  193.             If L(F)=1
  194.                For G=-320 To 0 Step 5
  195.                   Screen Copy 4,0,F*11,330,(F*11)+11 To 0,G,F*11
  196.                   If Mouse Key
  197.                      Pop Proc
  198.                   End If 
  199.                   Wait Vbl 
  200.                Next G
  201.             End If 
  202.          Next F
  203.          'wait!!
  204.          TI=Timer+150
  205.          Repeat 
  206.             If Mouse Key Then Pop Proc
  207.          Until Timer>TI
  208.          'clear 
  209.          For F=0 To 9
  210.             If L(F)=1
  211.                For G=0 To 320 Step 5
  212.                   Screen Copy 0,0,F*11,320,(F*11)+11 To 0,5,F*11
  213.                   Wait Vbl 
  214.                   If Mouse Key
  215.                      Pop Proc
  216.                   End If 
  217.                Next G
  218.             End If 
  219.          Next F
  220.       Next T
  221.    Loop 
  222. End Proc
  223. Procedure _TEXT[A$]
  224.    Ink 0
  225.    Bar 0,0 To 320,256
  226.    Screen 4
  227.    For G=0 To 9
  228.       B=Asc(Mid$(A$,PO+1,1))
  229.       If B<>37
  230.          L(G)=1
  231.          For F=0 To 31
  232.             Inc PO
  233.             B=Asc(Mid$(A$,PO,1))
  234.             If B>48 and B<58
  235.                B=27+(B-48)+95
  236.             End If 
  237.             If B=33
  238.                B=37+96
  239.             End If 
  240.             If B=45
  241.                B=40+97
  242.             End If 
  243.             If B=35
  244.                B=41+97
  245.             End If 
  246.             If B=63
  247.                B=38+96
  248.             End If 
  249.             If B<>32
  250.                Paste Icon 10+(F*10),G*11,B-96
  251.             End If 
  252.          Next F
  253.       Else 
  254.          Inc PO
  255.          L(G)=0
  256.       End If 
  257.       
  258.    Next G
  259. End Proc
  260. Procedure _FADEIT
  261.    For G=1 To 30
  262.       F=F+D
  263.       Inc D
  264.       Wait Vbl 
  265.       Screen Display 0,130,161+F,,
  266.       Screen Display 1,170,F+44,,
  267.       Screen Display 2,130,158+F,,
  268.       Mvolume 64-(G*2)
  269.    Next G
  270.    Music Off 
  271.    Screen Open 5,320,300,2,Lowres
  272.    Screen Display 5,130,10,,
  273.    Palette $75
  274.    Colour Back 0
  275.    Paper 0
  276.    Curs Off 
  277.    Cls 
  278.    Wait Vbl 
  279.    Fade 5
  280.    Wait 50
  281.    Wait Vbl 
  282.    Screen Close 5
  283. End Proc
  284.  
  285. _SETUP
  286. _MESSAGES
  287. _TEXTY
  288. _FADEIT