1 / 215

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

;*****************************************************************************. STRING KEY ' Keystroke text. INTEGER I,Max_Areas,floo,S,U,Count. INT RECSIZE. STRING ConfName$,FILENAME,CO1,CO2,CO3,CO4,CO5. DATE REGDATE. BOOLEAN EVENODD. CLS. PRINT "@NUMCONF@".

zoltan
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,Max_Areas,floo,S,U,Count

  4. INT RECSIZE

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

  6. DATE REGDATE

  7. BOOLEAN EVENODD

  8. CLS

  9. PRINT "@NUMCONF@"

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

  11. LET Max_Areas=S2I(KEY,10)

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

  13. CLS

  14. GETTOKEN FILENAME

  15. ;*****************************************************************************;*****************************************************************************

  16. :FILELISTMENU

  17. Count=0;

  18. EVENODD=FALSE

  19. IF (EXIST (FILENAME)) THEN

  20. FOPEN 1, FILENAME, O_RD, S_DN

  21. ELSE

  22. CLS

  23. PRINT "@BEEP@"

  24. ANSIPOS 1,10

  25. PRINT "@X8C "

  26. PRINTLN "Sorry .... i Can't Find Your CNAMES.@@@ File ......."

  27. WAIT

  28. END

  29. ENDIF

  30. FREAD 1,RECSIZE,2

  31. GOSUB SHOWLIST

  32. ;*****************************************************************************;*****************************************************************************

  33. :MAIN

  34. GOSUB PROMPT2

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

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

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

  38. ELSEIF (KEY="A") THEN

  39. KEY="0"

  40. GOTO LISTAREA

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

  42. ENDIF

  43. GOTO MAIN

  44. ;*****************************************************************************;*****************************************************************************

  45. :LISTAREA

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

  47. PRINT "@BEEP@"

  48. ANSIPOS 22,19

  49. PRINT " "

  50. GOTO MAIN

More Related