;***************************************************************************** - PowerPoint PPT Presentation

slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
;***************************************************************************** PowerPoint Presentation
Download Presentation
;*****************************************************************************

play fullscreen
1 / 215
;*****************************************************************************
105 Views
Download Presentation
zoltan
Download Presentation

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

- - - - - - - - - - - - - - - - - - - - - - - - - - - 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