home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 051-075 / apd054 / readme.amos / readme.amosSourceCode
AMOS Source Code  |  1990-10-31  |  1KB  |  25 lines
  1. Get Rom Fonts : Colour Back 0 : Set Rainbow 0,1,290,"","","" : Screen Open 0,640,1000,2,Hires : Palette 0,0
  2. Flash Off : Curs Off : Change Mouse 3 : Cls 0 : Rainbow 0,0,40,290
  3. C1DAT:
  4. Data $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  5. Restore C1DAT : For F=0 To 31 Step 2 : Read CD : Rain(0,F)=CD : Rain(0,F+1)=CD : Next F : For F=31 To 261 : Rain(0,F)=$FFF : Next F
  6. Restore C1DAT : For F=230 To 261 Step 2 : Read CD : Rain(0,F)=$FFF-CD : Rain(0,F+1)=$FFF-CD : Next F
  7. Reserve As Chip Work 6,12000 : Bload "apd54:readme",6 : Q=Start(6) : Gosub GTXT
  8. For F=1 To Val(S$) : Gosub GTXT : Locate 0,F
  9. If Left$(S$,2)="$C" Then Centre Right$(S$,Len(S$)-2) : Goto NURK
  10. Print S$
  11. NURK: Next F : Hide : Auto View On : X=70 : For Z=400 To 70 Step -4 : Screen Display 0,,Z,, : Wait Vbl : Next Z
  12. VV:
  13. M=Mouse Key
  14. If M=2 Then Inc X : Inc X : Inc X : Inc X
  15. If M=1 Then Dec X : Dec X : Dec X : Dec X
  16. Screen Display 0,,X,, : Wait Vbl 
  17. If M=3 Then Goto KWIT
  18. Goto VV
  19. GTXT: S$=""
  20. JIMMY:
  21. If Peek(Q)=10 or Peek(Q)=0 Then Inc Q : Return 
  22. S$=S$+Chr$(Peek(Q)) : Inc Q : Goto JIMMY
  23. KWIT:
  24. Rainbow 0,0,40,0 : Erase 6 : Cls 0 : Change Mouse 1 : Show On 
  25. End