home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / SPE.ZIP / BAS-EXAM.BAS next >
Encoding:
BASIC Source File  |  1987-06-14  |  2.8 KB  |  104 lines
  1. 00005  REM Basic Program                                   : bas-exam.spe 
  2. 00007  REM Date written                                    : 19.3.86
  3. 00009  REM Author                                          : vom Bovert 
  4. 00011  REM Structogram saved on disk                       : 35
  5. 00013  REM Basicsource saved on disk                       : 35
  6. 00015  REM
  7. 00017  REM main program 
  8. 00019  REM
  9. 00025  REM assignments 
  10. 00027  t1$ = "Program Name: bas-exam"
  11. 00029  t2$ = "Create file (1), display file (2)?"
  12. 00035  PRINT t1$
  13. 00037  REM an unconditioned loop is following   
  14. 00043 rem 
  15. 00055  PRINT t2$
  16. 00057  INPUT zchen$
  17. 00065  REM case              
  18. 00071 rem 
  19. 00075   IF zchen$   = "1"  goto 00079 else goto 00091 
  20. 00079 rem 
  21. 00081  REM case 1
  22. 00083  REM create file     
  23. 00085 gosub 00279
  24. 00087  goto 00119
  25. 00091 rem 
  26. 00095   IF zchen$   = "2"  goto 00099 else goto 00111 
  27. 00099 rem 
  28. 00101  REM case 2
  29. 00103  REM display file  
  30. 00105 gosub 00139
  31. 00107  goto 00119
  32. 00111 rem 
  33. 00113  REM else-case
  34. 00115  REM end     
  35. 00117  goto 00124
  36. 00119 rem 
  37. 00123  goto 00043
  38. 00124 rem 
  39. 00129  REM end of program
  40. 00131  END
  41. 00138  end
  42. 00139 rem 
  43. 00141 rem  zweite         subroutine       
  44. 00143 rem  
  45. 00145 rem  s u b r o u t i n e   display file
  46. 00147 rem  
  47. 00159  REM assignment
  48. 00161  t3$ = "Display another record (y/n)?"
  49. 00167  REM open file      
  50. 00169  OPEN "basbsp1.dat" FOR INPUT AS 1
  51. 00171  a = 1 :                                    REM initiate 
  52. 00173                                             REM condition     
  53. 00181  REM conditioned loop      
  54. 00183  WHILE a = 1
  55. 00197  REM reading sucessful ?
  56. 00199   IF eof(1) goto 00203 else goto 00211 
  57. 00203 rem 
  58. 00205  REM End of file 
  59. 00207  goto 00256
  60. 00210  goto 00251
  61. 00211 rem 
  62. 00215  LINE INPUT #1,eins$ :  REM input line  
  63. 00217  PRINT eins$ :          REM display line   
  64. 00219  PRINT t3$
  65. 00227  REM another record ?
  66. 00229  INPUT zchen$
  67. 00231   IF zchen$ = "y"  goto 00235 else goto 00241 
  68. 00235 rem 
  69. 00237  REM yes 
  70. 00240  goto 00247
  71. 00241 rem 
  72. 00243  REM no
  73. 00245  a = 0
  74. 00247 rem 
  75. 00251 rem 
  76. 00255 wend
  77. 00256 rem 
  78. 00261  REM close file
  79. 00263  CLOSE 1
  80. 00271 return
  81. 00278  end
  82. 00279 rem 
  83. 00281 rem  basbsp         subroutine        
  84. 00283 rem 
  85. 00285 rem  s u b r o u t i n e  write file             
  86. 00287 rem 
  87. 00299  REM assignment
  88. 00301  t4$ = "How many records are to be written?"
  89. 00307  REM create file
  90. 00309  OPEN "basbsp1.dat" FOR OUTPUT AS 1
  91. 00311  PRINT t4$
  92. 00313  INPUT anzahl :                  REM input number of records 
  93. 00321  REM indexed loop
  94. 00323  REM
  95. 00325  FOR zaehl = 1 TO anzahl
  96. 00335  INPUT auss$ :                REM input record
  97. 00337  PRINT auss$ :                REM display record 
  98. 00339  PRINT #1,auss$ :             REM write record     
  99. 00341 next
  100. 00342 rem 
  101. 00347  REM close file
  102. 00349  CLOSE 1
  103. 00357 return
  104.