home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd273 / text.amos / text.amosSourceCode < prev   
AMOS Source Code  |  1990-09-06  |  2KB  |  73 lines
  1. Procedure IRO
  2.    Break Off 
  3.    Screen Open 0,320,256,4,0
  4.    Flash Off 
  5.    Curs Off 
  6.    Cls 0
  7.    Hide 
  8.    Colour 1,$0
  9.    Ink 3
  10.    Update Off 
  11.    Colour 3,$FFF
  12.       N=1
  13.       A$="    the     bladerunners  present               ------------ beer mania ------------                                     "
  14.       T$=" abcdefghijklmnopqrstuvwxyz1234567890.,:;[]!?#-/"
  15.       For Y=10 To 230 Step 26
  16.          For X=10 To 300 Step 25
  17.             E$=Mid$(A$,N,1)
  18.             POS=Instr(T$,E$)
  19.             Paste Bob X,Y,POS
  20.             Inc N
  21.          Next X
  22.       Next Y
  23.    Set Rainbow 0,1,26,"","(1,1,13)(1,-1,13)","(1,1,13)(1,-1,13)"
  24.    Rainbow 0,0,50,220
  25.    Screen Open 1,640,16,2,Hires
  26.    Screen Display 1,128,40+240,640,16
  27.    Curs Off 
  28.    Cls 0
  29.    Colour 1,$FFF
  30.    Print "CODE:- WASTER   GFX:- WASTER                            PRESS LEFT MOUSE BUTTON"
  31.    Screen 0
  32.    Double Buffer 
  33.    Colour 1,$F00
  34.    Synchro Off 
  35.    For N=1 To 40
  36.       Channel N-1 To Bob N
  37.       Bob N,Rnd(319),Rnd(240),$34
  38.    Next N
  39.    A$="Loop:P;Let Y=Y+2;Let X=X+2;If Y>240 Jump Kop;If X>320 Jump Mj;Jump Loop;Kop:Let Y=Y-240;Jump Loop;Mj:Let X=X-320;Jump Loop"
  40.    B$="Loop:P;Let Y=Y+4;Let X=X+4;If Y>240 Jump Kop;If X>320 Jump Mj;Jump Loop;Kop:Let Y=Y-240;Jump Loop;Mj:Let X=X-320;Jump Loop"
  41.    C$="Loop:P;Let Y=Y+8;Let X=X+8;If Y>240 Jump Kop;If X>320 Jump Mj;Jump Loop;Kop:Let Y=Y-240;Jump Loop;Mj:Let X=X-320;Jump Loop"
  42.    D$="Loop:P;Let Y=Y+12;Let X=X+12;If Y>240 Jump Kop;If X>320 Jump Mj;Jump Loop;Kop:Let Y=Y-240;Jump Loop;Mj:Let X=X-320;Jump Loop"
  43.    For N=1 To 10
  44.       Amal N-1,A$
  45.    Next N
  46.    For N=11 To 20
  47.       Amal N-1,B$
  48.    Next N
  49.    For N=21 To 30
  50.       Amal N-1,C$
  51.    Next N
  52.    For N=31 To 40
  53.       Amal N-1,D$
  54.    Next N
  55.    Amal On 
  56.    Music 1
  57.    Do 
  58.       Wait Vbl 
  59.       Synchro 
  60.       Update 
  61.       If Mouse Click=1 Then Goto FRED
  62.    Loop 
  63.    FRED:
  64.       Update On 
  65.       Music Off 
  66.       Rainbow Del 
  67.       Screen Close 1
  68.       Screen Close 0
  69.       Synchro On 
  70.       Show 
  71.       Run "mania1:autoexec.amos"
  72. End Proc
  73. IRO