home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / filemaker.amos / filemaker.amosSourceCode < prev    next >
AMOS Source Code  |  1978-06-06  |  6KB  |  321 lines
  1. Rem**File maker**
  2. Rem**Written By Simon Walklate** 
  3. Screen Open 0,320,256,16,Lowres
  4. Unpack 1 To 0
  5. Curs Off : Flash Off 
  6. Pen 1 : Paper 0
  7. Cls 0,70,135 To 225,206
  8. Locate 9,18 : Print "Type of printer:"
  9. Locate 9,19 : Print "(P)arallel  (S)erial"
  10. Locate 9,20 : Print "(N)one"
  11. Do 
  12. C$=Inkey$
  13. C$=Upper$(C$)
  14. If C$="P"
  15. Open Out 2,"PAR:"
  16. Exit 
  17. End If 
  18. If C$="S"
  19. Open Out 2,"SER:"
  20. Exit 
  21. End If 
  22. If C$="N"
  23. Exit 
  24. End If 
  25. Loop 
  26. Global C$
  27. STA:
  28. Cls 
  29. Unpack 1 To 0
  30. Curs Off : Flash Off 
  31. Pen 1 : Paper 0
  32. Reserve Zone 4
  33. Set Zone 1,160,77 To 200,113
  34. Set Zone 2,224,77 To 266,113
  35. Set Zone 3,288,77 To 329,113
  36. Set Zone 4,356,77 To 396,113
  37. Do 
  38. X=X Mouse : Y=Y Mouse
  39. If Zone(0,X,Y)=1 and Mouse Key=1 Then Proc CREATE
  40. If Zone(0,X,Y)=2 and Mouse Key=1 Then Proc AD
  41. If Zone(0,X,Y)=3 and Mouse Key=1 Then Proc COUNT
  42. If Zone(0,X,Y)=4 and Mouse Key=1 Then Proc PRIN
  43. Loop 
  44. Procedure CREATE
  45. If Exist("Df0:")
  46. Else 
  47. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  48. Wait 200
  49. Goto STA
  50. End If 
  51. Cls 0,70,135 To 225,206
  52. Locate 9,18 : Print "Enter Filename"
  53. Locate 9,19 : Print "To Create:"
  54. Locate 3,14 : Input A$
  55. Cls 0,21,102 To 280,124
  56. If Exist("Df0:")
  57. Else 
  58. Cls 0,70,135 To 225,206
  59. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  60. Wait 200
  61. Goto STA
  62. End If 
  63. If Exist(A$)
  64. Cls 0,70,135 To 225,206
  65. Locate 9,18 : Print "File exists " : Locate 9,19 : Print "Replace(Y/N)?"
  66. Do 
  67. S$=Inkey$
  68. S$=Upper$(S$)
  69. If S$="Y"
  70. Exit 
  71. End If 
  72. If S$="N"
  73. Goto STA
  74. End If 
  75. Loop 
  76. End If 
  77. Locate 6,29 : Print A$
  78. If Exist("Df0:")
  79. Else 
  80. Cls 0,70,135 To 225,206
  81. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  82. Wait 200
  83. Goto STA
  84. End If 
  85. Open Out 1,A$
  86. STAR:
  87. Do 
  88. Cls 0,70,135 To 225,206
  89. Locate 9,18 : Print "Enter record:"
  90. If Exist("Df0:")
  91. Else 
  92. Cls 0,70,135 To 225,206
  93. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  94. Wait 200
  95. Goto STAR
  96. End If 
  97. Locate 3,14 : Input B$
  98. Cls 0,21,102 To 280,124
  99. If B$="-1" Then Goto CLOS
  100. B$=Upper$(B$)
  101. If Len(B$)>30
  102. Cls 0,70,135 To 225,206
  103. Locate 9,18 : Print "No more than" : Locate 9,19 : Print "30 characters!!"
  104. Wait 200
  105. Goto STAR
  106. End If 
  107. Cls 0,70,135 To 225,206
  108. Locate 9,18 : Print B$ : Locate 9,19 : Print "is this O.K.?(Y/N)"
  109. Do 
  110. S$=Inkey$
  111. S$=Upper$(S$)
  112. If S$="Y" Then Exit 
  113. If S$="N" Then Goto STAR
  114. Loop 
  115. Print #1,B$
  116. Loop 
  117. CLOS:
  118. Close 1
  119. Goto STA
  120. End Proc
  121. Procedure AD
  122. If Exist("Df0:")
  123. Else 
  124. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  125. Wait 200
  126. Goto STA
  127. End If 
  128. Z$=Dir$
  129. Locate 9,18 : Print "Enter Filename"
  130. Locate 9,19 : Print "To Add To:"
  131. Locate 3,14 : Input A$
  132. Cls 0,21,102 To 280,124
  133. If Exist("Df0:")
  134. Else 
  135. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  136. Wait 200
  137. Goto STA
  138. End If 
  139. If Exist(A$)
  140. Cls 0,70,135 To 225,206
  141. Locate 9,18 : Print "File exists " : Locate 9,19 : Print "Add(Y/N)?"
  142. Do 
  143. S$=Inkey$
  144. S$=Upper$(S$)
  145. If S$="Y"
  146. Exit 
  147. End If 
  148. If S$="N"
  149. Goto STA
  150. End If 
  151. Loop 
  152. Else 
  153. Cls 0,70,135 To 225,206
  154. Locate 9,18 : Print "File does"
  155. Locate 9,19 : Print "not exist!!"
  156. Wait 200
  157. Goto STA
  158. End If 
  159. Locate 6,29 : Print A$
  160. Append 1,A$
  161. STAR2:
  162. Do 
  163. Cls 0,70,135 To 225,206
  164. Locate 9,18 : Print "Enter record:"
  165. Locate 3,14 : Input B$
  166. If Exist("Df0:")
  167. Else 
  168. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  169. Wait 200
  170. Goto STAR2
  171. End If 
  172. Cls 0,21,102 To 280,124
  173. If B$="-1" Then Goto CLOS2
  174. B$=Upper$(B$)
  175. If Len(B$)>30
  176. Cls 0,70,135 To 225,206
  177. Locate 9,18 : Print "No more than" : Locate 9,19 : Print "30 characters!!"
  178. Wait 200
  179. Goto STAR2
  180. End If 
  181. Cls 0,70,135 To 225,206
  182. Locate 9,18 : Print B$ : Locate 9,19 : Print "is this O.K.?(Y/N)"
  183. Do 
  184. S$=Inkey$
  185. S$=Upper$(S$)
  186. If S$="Y" Then Exit 
  187. If S$="N" Then Goto STAR2
  188. Loop 
  189. Print #1,B$
  190. Loop 
  191. CLOS2:
  192. Close 1
  193. Goto STA
  194. End Proc
  195. Procedure COUNT
  196. If Exist("Df0:")
  197. Else 
  198. Cls 0,70,135 To 225,206
  199. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  200. Wait 200
  201. Goto STA
  202. End If 
  203. Locate 9,18 : Print "Enter filename"
  204. Locate 9,19 : Print "To Count:"
  205. Locate 3,14 : Input F$
  206. If Exist("Df0:")
  207. Else 
  208. Cls 0,70,135 To 225,206
  209. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  210. Wait 200
  211. Goto STA
  212. End If 
  213. If Exist(F$)
  214. Cls 0,70,135 To 225,206
  215. Locate 9,18 : Print "File exists " : Locate 9,19 : Print "Count(Y/N)?"
  216. Else 
  217. Cls 0,70,135 To 225,206
  218. Locate 9,18 : Print "File does" : Locate 9,19 : Print "not exist!"
  219. Wait 200
  220. Goto STA
  221. End If 
  222. Do 
  223. S$=Inkey$
  224. S$=Upper$(S$)
  225. If S$="Y"
  226. Exit 
  227. End If 
  228. If S$="N"
  229. Goto STA
  230. End If 
  231. Loop 
  232. If Exist("Df0:")
  233. Else 
  234. Cls 0,70,135 To 225,206
  235. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  236. Wait 200
  237. Goto STA
  238. End If 
  239. Cls 0,21,102 To 280,124
  240. Locate 6,29 : Print F$
  241. Cls 0,70,135 To 225,206
  242. Locate 9,18 : Print "Counting" : Locate 9,19 : Print F$
  243. Open In 1,F$
  244. Do 
  245. Exit If Eof(1)
  246. A=A+1
  247. Input #1,A$
  248. Loop 
  249. Close 1
  250. Cls 0,70,135 To 225,206
  251. Locate 9,18 : Print A;" records" : Locate 9,19 : Print "counted in file"
  252. Wait 200
  253. Goto STA
  254. End Proc
  255. Procedure PRIN
  256. If C$="N"
  257. Locate 9,18 : Print "No printer" : Locate 9,19 : Print "Selected!!"
  258. Wait 200
  259. Goto STA
  260. Else 
  261. If Exist("Df0:")
  262. Else 
  263. Cls 0,70,135 To 225,206
  264. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  265. Wait 200
  266. Goto STA
  267. End If 
  268. Locate 9,18 : Print "Enter filename"
  269. Locate 9,19 : Print "To Print:"
  270. Locate 3,14 : Input F$
  271. If Exist("Df0:")
  272. Else 
  273. Cls 0,70,135 To 225,206
  274. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  275. Wait 200
  276. Goto STA
  277. End If 
  278. If Exist(F$)
  279. Cls 0,70,135 To 225,206
  280. Locate 9,18 : Print "File exists " : Locate 9,19 : Print "Print(Y/N)?"
  281. Else 
  282. Cls 0,70,135 To 225,206
  283. Locate 9,18 : Print "File does" : Locate 9,19 : Print "not exist!"
  284. Wait 200
  285. Goto STA
  286. End If 
  287. Do 
  288. S$=Inkey$
  289. S$=Upper$(S$)
  290. If S$="Y"
  291. Exit 
  292. End If 
  293. If S$="N"
  294. Goto STA
  295. End If 
  296. Loop 
  297. If Exist("Df0:")
  298. Else 
  299. Cls 0,70,135 To 225,206
  300. Locate 9,18 : Print "No disk in" : Locate 9,19 : Print "Drive 0"
  301. Wait 200
  302. Goto STA
  303. End If 
  304. Locate 6,29 : Print F$
  305. Cls 0,70,135 To 225,206
  306. Locate 9,18 : Print "Printing" : Locate 9,19 : Print F$
  307. Open In 1,F$
  308. Do 
  309. Exit If Eof(1)
  310. A=A+1
  311. Input #1,A$
  312. Print #2,A,A$
  313. Loop 
  314. Close 1
  315. Cls 0,70,135 To 225,206
  316. Locate 9,18 : Print A;" records printed"
  317. Print #2,A;" records printed"
  318. Wait 100
  319. Goto STA
  320. End If 
  321. End Proc