home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd244 / docs / readmeplease.doc / readmeplease.amosSourceCode
Encoding:
AMOS Source Code  |  1990-12-29  |  2.7 KB  |  92 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 : Cls 0 : Rainbow 0,0,40,290
  3. '
  4. '
  5. '
  6. DAT1:
  7. Data $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  8. Restore DAT1 : For F=0 To 31 Step 2 : Read D : Rain(0,F)=D : Rain(0,F+1)=D : Next F : For F=31 To 261 : Rain(0,F)=$FFF : Next F
  9. Restore DAT1 : For F=230 To 261 Step 2 : Read D : Rain(0,F)=$FFF-D : Rain(0,F+1)=$FFF-D : Next F
  10. Reserve As Chip Work 6,50000
  11. Bload "Df0:Docs/README.doc",6
  12. Q=Start(6) : Gosub GTEXT
  13. For F=1 To Val(S$) : Gosub GTEXT : Locate 0,F
  14. If Left$(S$,2)="$C" Then Centre Right$(S$,Len(S$)-2) : Goto N
  15. Print S$
  16. '
  17. '
  18. '
  19. N: Next F : Hide : Auto View On : X=70 : For Z=400 To 70 Step -4 : Screen Display 0,,Z,, : Wait Vbl : Next Z
  20. '
  21. '
  22. '
  23. V2:
  24. M=Mouse Key
  25. If Key State(69) Then Goto QUIT
  26. If Key State(95) Then Gosub HELP
  27. If M=2 Then Inc X : Inc X : Inc X : Inc X
  28. If Key State(76) Then Inc X : Inc X : Inc X : Inc X
  29. If M=1 Then Dec X : Dec X : Dec X : Dec X
  30. If Key State(77) Then Dec X : Dec X : Dec X : Dec X
  31. If Key State(68) Then Gosub BUILDHELP
  32. Screen Display 0,,X,, : Wait Vbl 
  33. Goto V2
  34. '
  35. '
  36. '
  37. GTEXT: S$=""
  38. '
  39. '
  40. '
  41. PNT:
  42. If Peek(Q)=10 or Peek(Q)=0 Then Inc Q : Return 
  43. S$=S$+Chr$(Peek(Q)) : Inc Q : Goto PNT
  44. '
  45. '
  46. '
  47. QUIT:
  48. Rainbow 0,0,40,0 : Erase 6 : Cls 0 : Change Mouse 1 : Show On : End 
  49. '
  50. '
  51. '
  52. HELP:
  53. Screen Open 5,320,256,4,Lowres
  54. Paper 0 : Pen 2
  55. Cls 
  56. Screen To Front 5
  57. Locate 0,0 : Centre "HURSTY TEXT BY C HURST. HELP SCREEN."
  58. Locate 0,1 : Centre "MODIFIED FROM AMOS PD SOURCE"
  59. Locate 0,5 : Print "LEFT MOUSE BUTTON = SCROLL DOWN"
  60. Locate 0,6 : Print "DOWN ARROW = SCROLL DOWN"
  61. Locate 0,7 : Print "LEFT MOUSE BUTTON = SCROLL DOWN"
  62. Locate 0,8 : Print "DOWN ARROW = SCROLL DOWN"
  63. Locate 0,9 : Print "ESC = QUIT"
  64. Locate 0,11 : Print "RETURN = BUILD A DOC HELP SHEET"
  65. Locate 0,15 : Print "CHRIS HURST"
  66. Locate 0,16 : Print "123 VIVIAN RD"
  67. Locate 0,17 : Print "FENTON"
  68. Locate 0,18 : Print "S-O-T"
  69. Locate 0,19 : Print "STAFFS"
  70. Locate 0,20 : Print "ST4 3JG"
  71. Locate 0,21 : Print "ENGLAND"
  72. Locate 0,23 : Centre "SEND ME A DONATION IF USED"
  73. Locate 0,24 : Centre "PRESS A KEY TO RETURN TO DOC" : Curs Off 
  74. Clear Key : Wait 10 : Wait Key : Clear Key : Screen Close 5
  75. Return 
  76. '
  77. '
  78. '
  79. BUILDHELP:
  80. Screen Open 5,320,256,4,Lowres
  81. Paper 0 : Pen 2
  82. Cls 
  83. Screen To Front 5
  84. Locate 0,0 : Centre "HURSTY TEXT BY C HURST. DOC SCREEN."
  85. Locate 0,7 : Print "FOR YOUR FILE TO WORK WITH THE READER"
  86. Locate 0,8 : Print "A SIMPLE LITTLE CONTROL CODE MUST BE"
  87. Locate 0,9 : Print "INSERTED AT THE START OF YOUR FILE"
  88. Locate 0,11 : Print "SIMPLY ON A BLANK LINE AT THE TOP"
  89. Locate 0,12 : Print "OF THE SCREEN TYPE 65. SIMPLE EH?"
  90. Locate 0,24 : Centre "PRESS A KEY TO RETURN TO DOC" : Curs Off 
  91. Clear Key : Wait 10 : Wait Key : Clear Key : Screen Close 5
  92. Return