1 / 213

;*****************************************************************************

;*****************************************************************************. STRING KEY ' Keystroke text. INTEGER I,Count, Max_Areas, Loop, S, U. STRING ConfName$,FILENAME,CO1,CO2,CO3,CO4,CO5. DATE REGDATE. BOOLEAN EVENODD. CLS. PRINT "@NUMDIR@". KEY=SCRTEXT(1,1,4,FALSE).

vilmos
Download Presentation

;*****************************************************************************

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;*****************************************************************************;*****************************************************************************

  2. STRING KEY ' Keystroke text

  3. INTEGER I,Count, Max_Areas, Loop, S, U

  4. STRING ConfName$,FILENAME,CO1,CO2,CO3,CO4,CO5

  5. DATE REGDATE

  6. BOOLEAN EVENODD

  7. CLS

  8. PRINT "@NUMDIR@"

  9. KEY=SCRTEXT(1,1,4,FALSE)

  10. LET Max_Areas=S2I(KEY,10)

  11. LET REGDATE="09-09-94"

  12. CLS

  13. GETTOKEN FILENAME

  14. ;*****************************************************************************;*****************************************************************************

  15. :FILELISTMENU

  16. Count=0;

  17. EVENODD=FALSE

  18. IF (EXIST (FILENAME)) THEN

  19. FOPEN 1, FILENAME, O_RW, S_DB

  20. ELSE

  21. CLS

  22. PRINT "@BEEP@"

  23. ANSIPOS 1,10

  24. PRINT "@X8C "

  25. PRINTLN "Sorry .... i Can't Find Your Directory List ......."

  26. WAIT

  27. END

  28. ENDIF

  29. GOSUB SHOWLIST

  30. ;*****************************************************************************;*****************************************************************************

  31. :MAIN

  32. GOSUB PROMPT2

  33. IF (KEY=CHR(27)) THEN GOTO ALLDONE

  34. ELSEIF (KEY=CHR(13)) THEN GOTO NEXTSCREEN

  35. ELSEIF ((KEY="P") & (COUNT>0)) THEN GOTO PREVIOUSSCREEN

  36. ELSEIF (KEY="U") THEN GOTO LISTAREA

  37. ELSEIF (KEY="-") THEN

  38. KEY="P"

  39. GOTO LISTAREA

  40. ELSEIF (S2I(KEY,10)>0) THEN GOTO LISTAREA

  41. ENDIF

  42. GOTO MAIN

  43. ;*****************************************************************************;*****************************************************************************

  44. :LISTAREA

  45. IF (S2I(KEY,10)>MAX_AREAS) THEN

  46. PRINT "@BEEP@"

  47. ANSIPOS 22,19

  48. PRINT " "

  49. GOTO MAIN

  50. ENDIF

More Related