home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Letter_Burst.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  1.7 KB  |  96 lines
  1. '--------------------------------------------------------------------------
  2. '              LETTERBURST ROUTINE BY JOHN HARDIE (JOK/NFA)  
  3. '--------------------------------------------------------------------------
  4. '
  5.  
  6. Load "Letter_Burst.abk"
  7.  
  8. Screen Open 0,320,256,4,0
  9. Flash Off : Curs Off : Hide : Cls 0
  10. Double Buffer 
  11. Palette $0,$FFF,$22F,$9
  12. '
  13. Dim A$(13),TXT$(10)
  14. Shared A$(),ID,TXT$()
  15. '
  16. AD=1 : X=20 : ID=1
  17. '
  18. _TEXT
  19. _MOVE
  20. '
  21. Do 
  22.    Amal Off : Bob Off 
  23.    '
  24.    TXT$(ID)=Upper$(TXT$(ID))
  25.    D$=Mid$(TXT$(ID),AD,1)
  26.    A=Asc(D$)-64
  27.    '
  28.    If A=-32 : A=27 : End If 
  29.    '
  30.    Paste Bob X,100,A
  31.    Inc AD : Add X,25
  32.    '
  33.    If ID>=10 : X=20 : ID=1 : AD=1 : End If 
  34.    '
  35.    If AD>Len(TXT$(ID)) : AD=1 : X=0 : Inc ID
  36.       _GET_BITS
  37.       X=20
  38.       Wait 50
  39.    End If 
  40.    '
  41.    Wait Vbl 
  42. Loop 
  43. '
  44. '
  45. Procedure _TEXT
  46.    For A=1 To 10 : Read TXT$(A) : Next A
  47.    Data "  frentic  "
  48.    Data "  presents "
  49.    Data "letterburst"
  50.    Data "           "
  51.    Data " a routine "
  52.    Data "created by "
  53.    Data "john hardie"
  54.    Data "  hello to "
  55.    Data "   e s p   "
  56.    Data "           "
  57. End Proc
  58. Procedure _MOVE
  59.    A$(1)="L:M-240,0,50;JL"
  60.    A$(2)="L:M220,40,25;JL"
  61.    A$(3)="L:M-200,80,50;JL"
  62.    A$(4)="L:M-180,-120,25;JL"
  63.    A$(5)="L:M300,160,50;JL"
  64.    A$(6)="L:M-140,200,25;JL"
  65.    A$(7)="L:M-220,-120,50;JL"
  66.    A$(8)="L:M140,-300,75;JL"
  67.    A$(9)="L:M160,80,50;JL"
  68.    A$(10)="L:M-180,260,25;JL"
  69.    A$(11)="L:M200,40,50;JL"
  70.    A$(12)="L:M0,-120,25;JL"
  71.    A$(13)="L:M240,0,75;JL"
  72. End Proc
  73. Procedure _GET_BITS
  74.    Wait 50
  75.    X=20 : Y=100
  76.    '
  77.    For A=50 To 61 : Get Bob A,X,Y To X+25,Y+24
  78.       Add X,25
  79.    Next A
  80.    X=20
  81.    '
  82.    For A=1 To 11
  83.       Channel A To Bob A
  84.       Add X,25
  85.       Bob A,X,100,A+50
  86.       Amal A,A$(A)
  87.    Next A
  88.    Amal On 
  89.    Cls 0
  90. End Proc
  91.  
  92.  
  93.  
  94.  
  95.  
  96.