home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / IABOOK.ZIP / IABOOK.SCR < prev   
Text File  |  1997-09-08  |  8KB  |  263 lines
  1. VARIABLE COUNT1     INTEGER
  2. VARIABLE COUNT2     INTEGER
  3. VARIABLE PAGENUM    INTEGER
  4. VARIABLE ISTR1      STRING
  5. VARIABLE ISTR2      STRING
  6. VARIABLE ROWCOL     STRING
  7. VARIABLE SUBJECT    STRING
  8. VARIABLE TEMPFILE   STRING
  9. VARIABLE MSGFILE    STRING
  10. VARIABLE SCRFILE    STRING
  11. VARIABLE TEXTPATH   STRING
  12. VARIABLE TMPCLR     STRING
  13. VARIABLE DSPCLR     STRING
  14. VARIABLE CH1        CHAR
  15. VARIABLE CH2        STRING
  16. VARIABLE CH3        CHAR
  17. VARIABLE P1         CHAR
  18. VARIABLE PUBLIC     BOOLEAN
  19. VARIABLE YN         BOOLEAN
  20. VARIABLE IFYES      BOOLEAN "YES"
  21. VARIABLE MESGBOARD  INTEGER
  22.  
  23. :INIT
  24. ;--------- CHANGE THE FOLLOWING TWO LINES TO SUIT YOUR OWN SETUP
  25. TEXTPATH "C:\TG\TEXT\"
  26. MESGBOARD "2"
  27. ;---------------------------------------------------------------
  28. MENU MA$MESGBOARD$
  29. PUBLIC "YES"
  30. TMPCLR "9"
  31. DSPCLR "03"
  32. PAGENUM "0"
  33. CLS
  34. CALL MAINMENU
  35. JUMP MAIN
  36.  
  37.  
  38.  
  39. :MAIN
  40.     CALL LISTEM
  41.     PUT "1H1H      "
  42.     PUT "0-9, [)Prev Page, "
  43.     PUT "])Next Page A)dd, "
  44.     PUT "D)elete, P)"
  45.     IFNOT "$PUBLIC$" "$IFYES$"
  46.         PUT "ublic Pages, "
  47.     ELSE
  48.         PUT "rivate Pages, "
  49.     ENDIF
  50.     GET CH1 "Q)uit:" "ADPQ1234567890#[]"
  51.     JE "$CH1$" "A" NEWINPUT
  52.     JE "$CH1$" "D" DELETIT
  53.     JE "$CH1$" "P" PUBPRIV
  54.     JE "$CH1$" "Q" END
  55.     JE "$CH1$" "]" PAGEUP
  56.     JE "$CH1$" "[" PAGEDOWN
  57.     JE "$CH1$" "#" TRYAGAIN
  58.     CALL SELECTIT
  59.     JUMP MAIN
  60.  
  61. :PUBPRIV
  62.     IF "$PUBLIC$" "$IFYES$"
  63.         PUBLIC "NO"
  64.         TMPCLR "C"
  65.     ELSE
  66.         PUBLIC "YES"
  67.         TMPCLR "9"
  68.     ENDIF
  69.     CALL MAINMENU
  70. JUMP MAIN
  71.  
  72.  
  73. :TRYAGAIN
  74.     NL
  75.     PUTNL "    Enter the number of your selection (0-9):"
  76.     GOTO PAUSE
  77. JUMP MAIN
  78.  
  79. :PAGEUP
  80.     INCREMENT PAGENUM 1
  81.     IF "$PAGENUM$" "10"
  82.         PAGENUM "0"
  83.     ENDIF
  84.     CALL MAINMENU
  85. JUMP MAIN
  86.  
  87. :PAGEDOWN
  88.     DECREMENT PAGENUM 1
  89.     IF "$PAGENUM$" "-1"
  90.         PAGENUM "9"
  91.     ENDIF
  92.     CALL MAINMENU
  93. JUMP MAIN
  94.  
  95. :DELETIT
  96.         GET CH1 "1H7HDelete which entry? " "0123456789"
  97.         COUNT1 "$CH1$"
  98.         CALL BUILDFILES
  99.         FILEEXIST $TEXTPATH$$MSGFILE$ JUMP DELFILE
  100.         PUTNL "1H7HUnable to find this entry. *ANY KEY*"
  101.         CALL PAUSE
  102.         JUMP MAIN
  103.  
  104. :DELFILE
  105.     DSPCLR "1E"
  106.     CALL SHOWEM
  107.     NOYES YN "1H7HAre you sure you wish to delete this entry? (y/N): "
  108.     IF "$YN$" "$IFYES$"
  109.         FILEERASE $TEXTPATH$$MSGFILE$
  110.         FILEERASE $TEXTPATH$$SCRFILE$
  111.     ENDIF
  112.     CALL MAINMENU
  113.     DSPCLR "03"
  114. JUMP MAIN
  115.  
  116. :NEWINPUT
  117. CALL PORP
  118. IFNOT "$CH1$" "Q"
  119.     JUMP FINDSLOT
  120. ENDIF
  121. JUMP MAIN
  122.  
  123. :PORP
  124.     GET CH1 "1H1H      `09Add to (`0FP`09)ublic or p(`0FR`09)ivate Address Book, or (`0FQ`09)uit? `0F(p/R/q): " "PRQ"
  125.     IF "$CH1$" "P"
  126.         PUBLIC "YES"
  127.         TMPCLR "9"
  128.     ENDIF
  129.     IF "$CH1$" "R"
  130.         PUBLIC "NO"
  131.         TMPCLR "C"
  132.     ENDIF
  133.     IF "$CH1$" "Q"
  134.     ENDIF
  135. RETURN
  136.  
  137.  
  138.  
  139. :FINDSLOT
  140.     COUNT1 0
  141. :FINDSLOT1
  142.     CALL BUILDFILES
  143.     FILEEXIST $TEXTPATH$$MSGFILE$ INCREMENT COUNT1
  144.     FILEEXIST $TEXTPATH$$MSGFILE$ JUMP FINDSLOT1
  145.  
  146.     IFNOT "$COUNT1$" "10"
  147.         put "2H┌────────────────────────────────────────────────────┐
  148.         put "2H│ Display Name :                                     │
  149.         put "2H│ Email Address:                                     │
  150.         put "12H└────────────────────────────────────────────────────┘
  151.         ISTR1 ""
  152.         ISTR2 ""
  153.         GET ISTR1 "9H" 25
  154.         GET ISTR2 "9H" 35
  155.         FILECREATE $TEXTPATH$$MSGFILE$
  156.         FILEPUT "$ISTR1$CD$ISTR2$"
  157.         FILECLOSE
  158.         FILECREATE $TEXTPATH$$SCRFILE$
  159.         FILEPUT "MENU -;$ISTR2$"
  160.         FILEPUT "MENU MP"
  161.         FILECLOSE
  162.      ENDIF
  163.      CALL MAINMENU
  164. JUMP MAIN
  165.  
  166. :LISTEM
  167. CALL PAGEUPDATE
  168. COUNT1 "0"
  169. :LISTEM1
  170.     CALL BUILDFILES
  171.     FILEEXIST $TEXTPATH$$MSGFILE$ CALL SHOWEM
  172.     INCREMENT COUNT1
  173.     IFNOT "$COUNT1$" "10"
  174.         JUMP LISTEM1
  175.     ENDIF
  176. RETURN
  177.  
  178. :SHOWEM
  179.     COUNT2 "$COUNT1$"
  180.     INCREMENT COUNT2
  181.     ROWCOL "$COUNT2$;1HBC`$DSPCLR$"
  182.     PUT "$ROWCOL$"
  183.     FILEDISPLAY $TEXTPATH$$MSGFILE$
  184. RETURN
  185.  
  186. :PAUSE
  187.     GET P1 "" "^M^_^["
  188. RETURN
  189.  
  190. :SELECTIT
  191.     COUNT1 "$CH1$"
  192.     CALL BUILDFILES
  193.     CLS
  194.     FILEEXIST $TEXTPATH$$SCRFILE$ SCRIPT "$TEXTPATH$$SCRFILE$"
  195.     CLS
  196.     CALL MAINMENU
  197. RETURN
  198.  
  199. :BUILDFILES
  200. IF "$PUBLIC$" "$IFYES$"
  201.     SCRFILE "PBLC$PAGENUM$-$COUNT1$.SCR"
  202.     MSGFILE "PBLC$PAGENUM$-$COUNT1$.MSG"
  203. ELSE
  204.     IF "$PAGENUM$" "0"
  205.         TRANSLATE TEMPFILE "~UU" "-" "0"
  206.     ENDIF
  207.     IF "$PAGENUM$" "1"
  208.         TRANSLATE TEMPFILE "~UU" "-" "1"
  209.     ENDIF
  210.     IF "$PAGENUM$" "2"
  211.         TRANSLATE TEMPFILE "~UU" "-" "2"
  212.     ENDIF
  213.     IF "$PAGENUM$" "3"
  214.         TRANSLATE TEMPFILE "~UU" "-" "3"
  215.     ENDIF
  216.     IF "$PAGENUM$" "4"
  217.         TRANSLATE TEMPFILE "~UU" "-" "4"
  218.     ENDIF
  219.     IF "$PAGENUM$" "5"
  220.         TRANSLATE TEMPFILE "~UU" "-" "5"
  221.     ENDIF
  222.     IF "$PAGENUM$" "6"
  223.         TRANSLATE TEMPFILE "~UU" "-" "6"
  224.     ENDIF
  225.     IF "$PAGENUM$" "7"
  226.         TRANSLATE TEMPFILE "~UU" "-" "7"
  227.     ENDIF
  228.     IF "$PAGENUM$" "8"
  229.         TRANSLATE TEMPFILE "~UU" "-" "8"
  230.     ENDIF
  231.     IF "$PAGENUM$" "9"
  232.         TRANSLATE TEMPFILE "~UU" "-" "9"
  233.     ENDIF
  234.     SCRFILE "$TEMPFILE$$COUNT1$.SCR"
  235.     MSGFILE "$TEMPFILE$$COUNT1$.MSG"
  236. ENDIF
  237. RETURN
  238.  
  239. :PAGEUPDATE
  240. IF "$PUBLIC$" "$IFYES$"
  241.     PUT "6H Public Addresses"
  242. ELSE
  243.     PUT "6HPrivate Addresses"
  244. ENDIF
  245. PUT "HPage #$PAGENUM$"
  246. RETURN
  247.  
  248. :MAINMENU
  249. PUTNL "H`0F┌`09─────────────────────────────────────────────────────────────────────────────`0F┐H`09│`0F                   `02I`01∙`02N`01∙`02T`01∙`02E`01∙`02R`01∙`02N`01∙`02E`01∙`02T  A`01∙`02D`01∙`02D`01∙`02R`01∙`02E`01∙`02S`01∙`02S  s"
  250. PUTNL "uB`01∙`02O`01∙`02O`01∙`02K`0F                   `09│H`0F└`09─────────────────────────────────────────────────────────────────────────────`0F┘H      ┌`0$TMPCLR$────────────────────────────────────────────────────────────────`0F┐"
  251. PUTNL "H      `0$TMPCLR$│`0F0`07.`08............................................................. `0$TMPCLR$│`0FH      `0$TMPCLR$│`0F1`07.`08............................................................. `0$TMPCLR$│`0F"
  252. PUTNL "H      `0$TMPCLR$│`0F2`07.`08............................................................. `0$TMPCLR$│`0FH      `0$TMPCLR$│`0F3`07.`08.............................................................`0F `0$TMPCLR$│`0F"
  253. PUTNL "1H      `0$TMPCLR$│`0F4`07.`08.............................................................`0F `0$TMPCLR$│`0F1H      `0$TMPCLR$│`0F5`07.`08.............................................................`0F `0$TMPCLR$│`0F"
  254. PUTNL "1H      `0$TMPCLR$│`0F6`07.`08.............................................................`0F `0$TMPCLR$│`0F1H      `0$TMPCLR$│`0F7`07.`08.............................................................`0F `0$TMPCLR$│`0F"
  255. PUTNL "1H      `0$TMPCLR$│`0F8`07.`08.............................................................`0F `0$TMPCLR$│`0F1H      `0$TMPCLR$│`0F9`07.`08.............................................................`0F `0$TMPCLR$│`0F"
  256. PUTNL "1H      └`0$TMPCLR$────────────────────────────────────────────────────────────────`0F┘"
  257. RETURN
  258.  
  259. :END
  260. ENDSCRIPT
  261.  
  262.  
  263.