home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / standup / standup.bas < prev    next >
Encoding:
BASIC Source File  |  1996-11-19  |  2.2 KB  |  123 lines
  1.  
  2. ' Stand Up!
  3. ' November 1996
  4.  
  5. DEFINT a-z
  6.  
  7. REM $option !gy
  8. REM $option j30
  9.  
  10. REM $include standup.bh
  11.  
  12. REM $include acctbox.bas
  13. REM $include filesel.bas
  14.  
  15. REM $include dialog.bas
  16.  
  17.  
  18. SUB Checkdi
  19. STATIC button,fsmessage$,f$,file$,stext$,buf,buf$,texter$(1),info$(1)
  20. STATIC buf2$,fsname$,texty$,alert,a
  21. SHARED button,fsmessage$,file$,stext$,fsname$,info$(1)
  22.  
  23. IF button=load THEN
  24.     fsmessage$="Select Stand Up! file..."
  25.     f$=FileSelect$
  26.     IF f$<>"" THEN
  27.  
  28. IF FEXISTS(f$) THEN
  29.  
  30. Sette_ptext file,f$
  31. OPEN f$ FOR INPUT AS #1
  32. FOR a=1 TO 3
  33. LINE INPUT #1,info$(a)
  34. NEXT a
  35. CLOSE #1
  36.  
  37.         Sette_ptext info1,info$(1)
  38.         Sette_ptext info2,info$(2)
  39.         Sette_ptext info3,info$(3)
  40.         file$=f$
  41.  
  42.     END IF
  43.     END IF
  44. END IF
  45.  
  46. IF button=find THEN
  47.     IF file$="" THEN alert=form_alert (1,"[1][ Error: | No Stand Up! file selected ][ Ok ]") : END IF
  48.     IF stext$="" THEN alert=form_alert (1,"[1][ Error: | No search text selected! ][ Ok ]") : END IF
  49.         IF FEXISTS(file$) THEN
  50.  
  51. buf=0
  52. OPEN file$ FOR INPUT AS #1
  53. WHILE NOT EOF (1)
  54. LINE INPUT #1,buf$
  55. INCR buf
  56. WEND
  57. CLOSE #1
  58.  
  59. buf=buf-3
  60.  
  61. IF buf MOD 2<>0 THEN alert=form_alert (1,"[1][ Error: | Faulty Stand Up! file ][ Ok ]")
  62.  
  63. IF buf MOD 2=0 THEN
  64.  
  65. DIM texter$ (buf)
  66.  
  67. texty$=""
  68.  
  69. OPEN file$ FOR INPUT AS #1
  70.  
  71. FOR a=1 TO 3
  72. LINE INPUT #1,buf$
  73. NEXT a
  74.  
  75. FOR a=1 TO buf/2
  76. LINE INPUT #1,buf$
  77. LINE INPUT #1,buf2$
  78. IF UCASE$(buf$)=UCASE$(stext$) THEN texty$=buf2$
  79. IF UCASE$(buf2$)=UCASE$(stext$) THEN texty$=buf$
  80. NEXT a
  81.  
  82. CLOSE #1
  83.  
  84. IF texty$="" THEN alert=form_alert (1,"[1][ Text not found ][ Ok ]")
  85. IF texty$<>"" THEN alert=form_alert (1,"[1][ '"+stext$+"' | can be written as | '"+texty$+"' ][ Ok ]")
  86.  
  87. ERASE texter$
  88.  
  89. buf=0
  90.  
  91. END IF
  92. END IF
  93. END IF
  94.  
  95. END SUB
  96.  
  97. SUB AccOpened
  98. STATIC button,stext$
  99. SHARED button,stext$
  100.  
  101. DO
  102. SelectTree main
  103. button=HandleDialog (text)
  104. stext$=Gette_ptext$ (text)
  105. CALL Checkdi
  106. REM Exclob_state file,mask_selected
  107. LOOP UNTIL button=ok
  108.  
  109. END SUB
  110.  
  111. SUB WindowMessage
  112. END SUB
  113.  
  114. DIM info$(3)
  115. InitResourceFile "STANDUP.RSC"
  116. SelectTree main
  117. Sette_ptext text,""
  118. Sette_ptext info1,"No file loaded"
  119. Sette_ptext info2,"No file loaded"
  120. Sette_ptext info3,"No file loaded"
  121. Sette_ptext file,"No file loaded"
  122. StartAccessory("  Stand Up! v0.13")
  123.