home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd257 / journal.amos / journal.amosSourceCode
AMOS Source Code  |  1991-07-03  |  5KB  |  208 lines
  1. Break Off 
  2. On Error Proc HELP3 : Load Iff "pic",0
  3. Paper 6
  4. Pen 12
  5. PASSWORD:
  6. On Error Proc HELP
  7. Open In 1,"pass"
  8. Input #1,P$
  9. Close 1
  10. Locate 10,12 : Input "Enter the Password : ";PASS$
  11. If PASS$=P$ Then Goto SUB1
  12. If PASS$<>P$ Then Goto SUB2
  13. SUB1:
  14. Locate 5,5 : Print "*** CORRECT PASSWORD GIVEN ***"
  15. Print ""
  16. Print ""
  17. Locate 5,5 : Print "                                "
  18. Locate 10,12 : Print "                                                       "
  19. Locate 0,8 : Input "      Do you want to change                   the password ? (Y/N) ";Q$
  20. Q$=Lower$(Q$) : If Q$="n" Then Goto JOURNAL
  21. If Q$="y" Then Goto CHANGE
  22. CHANGE:
  23. Open Out 1,"pass"
  24. Locate 0,8 : Print "                                                                           "
  25. Input "What would you like to change the           password to? ";P$ : If P$="" Then Goto CHANGE
  26. Print #1,P$
  27. Close 1
  28. Goto JOURNAL
  29. SUB2:
  30. Bell : Wait 40
  31. Print ""
  32. Print "          ***  FAILED  ENTRY  ***"
  33. Boom : Wait 40
  34. Goto SUB2
  35. JOURNAL:
  36. On Menu On 
  37. Menu$(1)=" Options  "
  38. Menu$(1,1)="Read a File"
  39. Menu$(1,2)="Write a File"
  40. Menu$(1,3)="Print a File"
  41. Menu$(1,4)="Disk Directory"
  42. Menu$(1,5)="Delete a File"
  43. Menu$(2)="Credits  "
  44. Menu$(2,1)="Programmed By"
  45. Menu$(2,1,1)="Ben Mitchell"
  46. Menu$(2,3)="Using"
  47. Menu$(2,3,1)="AMOS "
  48. Menu$(2,1,2)="4,St Clair Close"
  49. Menu$(2,1,3)="Reigate"
  50. Menu$(2,1,4)="Surrey"
  51. Menu$(2,2)="Password By "
  52. Menu$(2,2,1)="Dean Hartwell "
  53. Menu On 
  54. On Menu Proc ACTION
  55. Procedure ACTION
  56. If Choice(2)=1
  57. Goto NEW
  58. End If 
  59. If Choice(2)=2
  60. Goto TYPE
  61. End If 
  62. If Choice(2)=3
  63. Goto PRT
  64. End If 
  65. If Choice(2)=4
  66. Goto DISK
  67. End If 
  68. If Choice(2)=5
  69. Goto DELETE
  70. End If 
  71. End Proc
  72. TYPE:
  73. Load Iff "pic",0
  74. On Menu On 
  75. I$=""
  76. A$=""
  77. B$=""
  78. Paper 6
  79. Pen 12
  80. On Error Proc HELP2
  81. Locate 0,3 : Print "The bar menu only works when the words  `Press a key to start' are on the screen"
  82. Print ""
  83. Print "Press a key to start writing a file"
  84. Wait Key 
  85. Locate 0,3 : Print "                                                                                                                                                                                                                                "
  86. Locate 0,3 : Input "Name to save file as? ";I$; : If I$="" Then Goto TYPE
  87. Open Out 1,I$+".jrn"
  88. Print ""
  89. Locate 0,3 : Print "                                      "
  90. Locate 0,3 : Input " ";A$
  91. Print #1,A$
  92. Locate 0,16 : Input "";B$
  93. Print #1,B$
  94. Close 1
  95. Goto TYPE
  96. NEW:
  97. Load Iff "pic",0
  98. Paper 6
  99. Pen 12
  100. On Menu On 
  101. I$=""
  102. A$=""
  103. B$=""
  104. Print ""
  105. Print ""
  106. Print "Press a Key to load a file to read"
  107. Wait Key 
  108. On Error Proc HELP2
  109. Locate 0,2 : Print "                                            "
  110. Locate 0,3 : Input "File to Load? ";I$ : If I$="" Then Goto NEW
  111. Open In 1,I$+".jrn"
  112. Input #1,A$
  113. Input #1,B$
  114. Print ""
  115. Locate 0,3 : Print "                                    "
  116. Locate 0,3 : Print "";A$
  117. Locate 0,16 : Print "";B$
  118. Close 1
  119. Print ""
  120. Print "Press a key to load another file"
  121. Wait Key 
  122. Goto NEW
  123. PRT:
  124. Load Iff "pic",0
  125. On Menu On 
  126. Paper 6
  127. Pen 12
  128. I$=""
  129. A$=""
  130. B$=""
  131. R$=""
  132. Print ""
  133. Print ""
  134. Print "Press a key to load and print a file"
  135. Wait Key 
  136. Locate 0,2 : Print "                                                       "
  137. On Error Proc HELP2
  138. Locate 0,2 : Input "File to Print? ";I$ : If I$="" Then Goto PRT
  139. Open In 1,I$+".jrn"
  140. Input #1,A$
  141. Input #1,B$
  142. Locate 0,3 : Print "                                      "
  143. Locate 0,4 : Print "Please place paper in the printer!"
  144. Locate 0,3 : Print "" : Print "";A$
  145. Locate 0,16 : Print "";B$
  146. Input "       Are you sure you want to                 print this file? (Y/N)  ";R$
  147. R$=Lower$(R$) : If R$="n" Then Goto PRT
  148. Lprint A$
  149. Lprint B$
  150. Close 1
  151. Print "Press a key to load and print a new file"
  152. Wait Key 
  153. Goto PRT : 
  154. DISK:
  155. Load Iff "pic",0
  156. On Menu On 
  157. Paper 6
  158. Pen 12
  159. F$=""
  160. Locate 0,3 : Print "Press a key to load a directory of all      journal files, their length                   and all `drawers'                          on the disk"
  161. Wait Key 
  162. Locate 0,3 : Print "                                                                                                                                                 "
  163. On Error Proc HELP2
  164. F$=Dir First$("*.jrn")
  165. While F$<>""
  166. Print F$-".jrn" : Bell : Wait 30
  167. F$=Dir Next$
  168. Wend 
  169. Print ""
  170. Print "Press a key to load directory again"
  171. Wait Key 
  172. Goto DISK
  173. DELETE:
  174. Load Iff "pic",0
  175. On Menu On 
  176. Paper 6
  177. Pen 12
  178. K$=""
  179. R$=""
  180. Locate 0,3 : Print "Press a key to delete an address"
  181. Wait Key 
  182. Locate 0,3 : Print "                                "
  183. Locate 0,3 : Input "File to be deleted : ";K$ : If K$="" Then Goto DELETE
  184. R$=Lower$(R$) : If R$="n" Then Goto DELETE
  185. On Error Proc HELP2
  186. Kill K$+".jrn"
  187. Locate 0,10 : Print "Deleting ";K$
  188. Wait 100
  189. Goto DELETE
  190. Procedure HELP
  191. Locate 0,3 : Print "You have not copied the file `PASS'  to this disk!"
  192. Print "This program will not work without this  file!!!"
  193. Wait Key 
  194. Edit 
  195. Resume Next 
  196. End Proc
  197. Procedure HELP2
  198. Resume Next 
  199. End Proc
  200. Procedure HELP3
  201. Screen Open 0,320,200,16,Lowres
  202. Locate 0,4 : Print "You have not copied the file `PIC'  to this disk!"
  203. Print "This program will not work without this  file!!!"
  204. Print "Press a Key to exit"
  205. Wait Key 
  206. Edit 
  207. Resume Next 
  208. End Proc