home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / simple_scroll.amos / simple_scroll.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-09  |  4KB  |  47 lines

  1. '
  2. ' PIC INTRO
  3. '
  4. ' J Banks - June 1991  
  5. '
  6. Unpack 5 To 0 : Screen Hide 0
  7. Screen Open 1,354,256,32,Lowres : Curs Off : Flash Off : Pen 1 : Paper 0 : Cls 0
  8. Screen Display 1,134,43,319,326
  9. Get Sprite Palette 
  10. Set Rainbow 0,0,64,"(8,2,8)","",""
  11. Rainbow 0,56,1,255
  12. Bob 1,60,70,1
  13. Def Scroll 1,1,220 To 353,255,-5,0 : C=0 : PS=1
  14. Gosub GTXT : Auto View On 
  15. LP:
  16.    Wait Vbl 
  17.    Scroll 1
  18.    C=C+1
  19.    If C>5 Then Gosub NCHAR : C=0 : Inc PS : If PS>Len(T$) Then PS=1
  20.    If Mouse Key=1 Then Direct 
  21. Goto LP
  22. NCHAR:
  23.    E$=Mid$(T$,PS,1) : E=Instr(SC$,E$) : XX=E mod 10 : YY=E/10 : XX=20+XX*20 : YY=20+YY*20 : Screen Copy 0,XX,YY,XX+20,YY+20 To 1,300,220
  24. Return 
  25. GTXT:
  26.    T$="          "
  27.    T$=T$+"PARTners in crime         Scrolly thingy-mi      "
  28.    T$=T$+"Hi there, this is Jason of P.I.C. , and this is the first time I've every managed to get a scroll that looked"
  29.    T$=T$+"even half way decent! Admittedly I've borrowed most of the routines from other people - then again , who doesn't"
  30.    T$=T$+" borrow every now and again! (Come on now, can any one of you out there sincerely say that you've never ever borrowed"
  31.    T$=T$+" even a few bits of some one else's code? ?????...)  If in doubt   ------   Cheat!...... "
  32.    T$=T$+" as we at P.I.C. say - well, who the hell are we ? Well Partners in Crime is a Play-by-mail firm i run - sometimes at least"
  33.    T$=T$+" and me and the 'partners' - say hi everybody - moderate a game called conquest. As it happens, the other's don't know I'm"
  34.    T$=T$+" writing this - they think I'm doing the coding for our next project!......"
  35.    T$=T$+" So without further ado - I'd like to quickly do a couple of Hellos - to the other partners - Sean 'Surfer' Parsons & Gail 'Ace' Walsh -------====----"
  36.    T$=T$+"    Other Hi's to Elf , Imp / T.I.M.I.T.D. (Don't ask!....), Fuzzy, and all the remaining Hacker's anon - if there is any of you left ?.... All nice original and wholesome pseudo names huh?!?"
  37.    T$=T$+" Well, like I say - they don't know I'm writting this, so I can say basically anything I like - oh the freedom of it all - sort of leaves me with a problem don't it!...."
  38.    T$=T$+" So, I suppose I'd better plug Partners in Crime - What do you think this whole thing is about - it's a public service announcement! - Did you know that a Play-by-mail"
  39.    T$=T$+" firm is a 'service industry' - I didn't! - You learn something new every day! Still, I hope you enjoy the programs with this - so saying i don't quite know what the system is at APD - if they"
  40.    T$=T$+" split the programs across disks as they see fit or What - any answers on that count ?        In the future ? Well, I hope to be able to bring you a chopped down version of conquest - although"
  41.    T$=T$+" I don't mind if you decide you'd like to join the full game - send an SAE to the address below for more details, and a role-playing-game called 'labyrinth' as well as - and wait for it - the long"
  42.    T$=T$+" asked for Bibble part 3. If you're luckier I'll persuade the elf to convert slip tide to the amiga - then theres none of us will sleep again."
  43.    T$=T$+" So, I'd quite like to hear from anyone out there, on subjects ranging from Play-by-mail, role-playing to computers in general + anything else ! I would like to find out more about the sort of people"
  44.    T$=T$+" who actually read crap like this. Ok, I'll spare you further drivvelling. The address is - J Banks,  Partners In Crime, 96 Valley View, Lemington, Newcastle-upon-Tyne,ne158bg  - write if you like,"
  45.    T$=T$+" but if you want a reply - please , please , please , send an SAE or you'll bankrupt me !.....    Bye for now......."
  46.    T$=Upper$(T$) : SC$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYXZ',.<>/?;:!@#$%^&*()_-+=\| "
  47. Return