home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / diary_source.amos / diary_source.amosSourceCode
AMOS Source Code  |  1993-01-08  |  3KB  |  112 lines
  1. ' -----------------------------------------------------  
  2. ' HERE IS THE SOURCE CODE FOR THE AMOS DIARY PROGRAM !!  
  3. ' -----------------------------------------------------  
  4. '                  DATED: 19th Dec 1991
  5. '
  6. ' NOTE : Some Strings Have Been Changed. 
  7. '
  8. ' GO FOR IT AND LEARN SOMETHING !!!!!
  9. '
  10. ' FROM,
  11. '
  12. '              JASON CHAN
  13. '
  14. Dim S$(15)
  15. Global S$(),SWT,FILN$
  16. SWT=0
  17. Do 
  18.    NEW
  19. Loop 
  20. '
  21. ' >>>>>>>>>>>>>>>>>>>>>>  SETS UP SCREEN <<<<<<<<<<<<<<<<<<<<<<<<<<< 
  22. '
  23. Procedure NEW
  24.    Screen Open 0,640,256,2,Hires : Curs Off 
  25.    Centre "<<< AMOS-DIARY  - SOURCE CODE VERSION >>>" : Print 
  26.    Centre "-----------------------------------------" : Print 
  27.    Centre "Written By Jason Chan Of Bamboo Software 1991" : Print 
  28.    Print 
  29.    Centre "1 > Create New File" : Print 
  30.    Centre "2 > Read Old File  " : Print 
  31.    Centre "3 > Add To Old File" : Print 
  32.    SEL
  33. End Proc
  34. '
  35. ' >>>>>>>>>>>>>>>>>>>>>>>>  SELECTIONS <<<<<<<<<<<<<<<<<<<<<<<<<<
  36. '
  37. Procedure SEL
  38.    Do 
  39.       A$=Inkey$
  40.       If A$="1" Then WPWD : WENT : Exit 
  41.       If A$="2" Then RPWD : RENT : Exit 
  42.       If A$="3" Then SWT=3 : RPWD : WENT : Exit 
  43.    Loop 
  44. End Proc
  45. '
  46. ' >>>>>>>>>>>>>>>>>>>>> WRITE SEQ. PASSWORD <<<<<<<<<<<<<<<<<<<< 
  47. '
  48. Procedure WPWD
  49.    S:
  50.    FILN$=Fsel$("*.Secret","","Enter New File Name")
  51.    If Exist(FILN$)=-1 Then MS["FILE ALREADY EXIST"] : Goto S
  52.    Open Out 1,FILN$+".Secret"
  53.    Cls : Input "Enter Password : ";SEC$
  54.    Print #1,SEC$
  55.    Close 1
  56. End Proc
  57. '
  58. ' >>>>>>>>>>>>>>>>>>> READ SEQ. PASSWORD <<<<<<<<<<<<<<<<<<<<<<  
  59. '
  60. Procedure RPWD
  61.    FILN$=Fsel$("*.Secret","","Choose File To Load")
  62.    If FILN$="" Then Edit 
  63.    Open In 1,FILN$
  64.    Input "Enter Password : ";USEC$
  65.    Input #1,SEC$
  66.    If USEC$=SEC$ Then Print "ACCEPTED !!" : Curs Off : Close 1 : Pop Proc
  67.    Print "NOT ACCEPTED !!!!!!!!"
  68.    Edit 
  69.    Close 1
  70. End Proc
  71. '
  72. ' >>>>>>>>>>>>>>>>>>>>> WRITE DIARY ENTRY <<<<<<<<<<<<<<<<<<<<<<<<<
  73. '
  74. Procedure WENT
  75.    N=1 : PN=1
  76.    Open Random 1,FILN$-".Secret"+".Ent"
  77.    Field 1,30 As DATS$,80 As S$(1),80 As S$(2),80 As S$(3),80 As S$(4),80 As S$(5),80 As S$(6),80 As S$(7),80 As S$(8),80 As S$(9),80 As S$(10),80 As S$(11),80 As S$(12),80 As S$(13),80 As S$(14),80 As S$(15)
  78.    If SWT=3 Then SWT=0 : Input "Page No. : ";PN : Curs Off 
  79.    Cls : Input "DATE : ";DATS$ : Cls 
  80.    Repeat 
  81.       Input "";S$(N) : Inc N
  82.    Until N=15
  83.    Put 1,PN
  84.    Close 1
  85. End Proc
  86. '
  87. ' >>>>>>>>>>>>>>>>>>>>>>>> READ DIARY ENTRY <<<<<<<<<<<<<<<<<<<<<<<<<< 
  88. '
  89. Procedure RENT
  90.    N=1 : RN=1
  91.    Open Random 1,FILN$-".Secret"+".Ent"
  92.    Field 1,30 As DATS$,80 As S$(1),80 As S$(2),80 As S$(3),80 As S$(4),80 As S$(5),80 As S$(6),80 As S$(7),80 As S$(8),80 As S$(9),80 As S$(10),80 As S$(11),80 As S$(12),80 As S$(13),80 As S$(14),80 As S$(15)
  93.    On Error Proc E0F
  94.    Cls : Input "Page No. : ";PN : Curs Off : Get 1,PN : Cls : Print DATS$ : Print 
  95.    Repeat 
  96.       Print S$(N) : Inc N : Cup 
  97.    Until N=15
  98.    Curs Off : Close 1 : Wait Key 
  99. End Proc
  100. '
  101. ' >>>>>>>>>>>>>>>>>>>>> END OF FILE <<<<<<<<<<<<<<<<<<<<<<<<<
  102. '
  103. Procedure E0F
  104.    SWT=1 : Resume Next 
  105. End Proc
  106. '
  107. ' >>>>>>>>>>>>>>>>>>>>> MESSAGE <<<<<<<<<<<<<<<<<< 
  108. '
  109. Procedure MS[MS$]
  110.    Cls : Centre "<< "+MS$+" >>" : Print 
  111.    Wait Key : Cls 
  112. End Proc