home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser02.arj / stoser02.msa / SOURCE.4U / VDUMP1.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  8KB  |  137 lines
  1. 1 REM LLLLLLPPP (line,pos)
  2. 10 VARNAME
  3. 10000 VARNAME
  4. 10010 ON ERROR
  5. 10020 LPRINT
  6. 10030 ON ERROR
  7. 10040 RETURN
  8. 10050 WINDOPEN
  9. 10060 VARNAME
  10. 10070 WINDEL
  11. 125 REM  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  12. 130 REM S=instr(A$," ") : if S=0 then 500 else N$=left$(A$,S-1) : if len(N$)<6 then N$=space$(7-S)+N$
  13. 131 VARNAME
  14. 132 VARNAME
  15. 133 IF
  16. 134 IF
  17. 135 REM  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  18. 140 VARNAME
  19. 150 REPEAT
  20. 151 IF
  21. 153 IF
  22. 155 INC
  23. 160 VARNAME
  24. 170 VARNAME
  25. 180 VARNAME
  26. 190 INC
  27. 1997 REM 
  28. 1998 REM *** READ IN FILE ***
  29. 1999 REM 
  30. 2 KEY
  31. 20 DIM
  32. 200 VARNAME
  33. 2000 VARNAME
  34. 2005 IF
  35. 2006 CURS
  36. 2010 OPEN IN
  37. 2020 REPEAT
  38. 2030 LINE INPUT
  39. 2040 INC
  40. 2050 UNTIL
  41. 2060 CLOSE
  42. 2070 VARNAME
  43. 210 INC
  44. 220 GOSUB
  45. 225 REM  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  46. 230 INC
  47. 2997 REM 
  48. 2998 REM *** SORT OUT WHICH TYPE ***
  49. 2999 REM 
  50. 3 INVERSE
  51. 30 FOR
  52. 3000 IF
  53. 3010 VARNAME
  54. 3030 VARNAME
  55. 3035 INC
  56. 4 LOCATE
  57. 40 VARNAME
  58. 4000 DATA
  59. 45 REM ===================================================================
  60. 495 REM  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  61. 5 VARNAME
  62. 50 GOSUB
  63. 500 VARNAME
  64. 503 INC
  65. 504 WINDEL
  66. 505 VARNAME
  67. 506 VARNAME
  68. 510 VARNAME
  69. 511 GOSUB
  70. 512 GOSUB
  71. 513 GOSUB
  72. 514 VARNAME
  73. 515 GOSUB
  74. 516 VARNAME
  75. 520 VARNAME
  76. 530 VARNAME
  77. 535 GOSUB
  78. 540 VARNAME
  79. 55 REM ===================================================================
  80. 550 VARNAME
  81. 555 VARNAME
  82. 560 VARNAME
  83. 570 VARNAME
  84. 6 CLEAR KEY
  85. 60 VARNAME
  86. 600 IF
  87. 601 VARNAME
  88. 602 VARNAME
  89. 603 VARNAME
  90. 605 IF
  91. 606 VARNAME
  92. 610 VARNAME
  93. 612 IF
  94. 615 VARNAME
  95. 620 VARNAME
  96. 625 VARNAME
  97. 630 GOSUB
  98. 640 INC
  99. 645 INC
  100. 65 REM -------------------------------------------------------------------
  101. 650 INC
  102. 660 PRINT
  103. 670 END
  104. 70 REPEAT
  105. 8997 REM 
  106. 8998 REM *** PRINT ROUTINE ***
  107. 8999 REM 
  108. 9 CLS
  109. 9000 IF
  110. 9010 IF
  111. 9020 RETURN
  112. 9500 IF
  113. 9505 IF
  114. 9510 IF
  115. 9511 VARNAME
  116. 9512 VARNAME
  117. 9513 VARNAME
  118. 9515 IF
  119. 9520 RETURN
  120. 9600 IF
  121. 9610 IF
  122. 9620 RETURN
  123. 9700 IF
  124. 9710 LOCATE
  125. 9720 CLS
  126. 9800 IF
  127. 9810 IF
  128. 9820 RETURN
  129. 9900 VARNAME
  130. 9910 ON ERROR
  131. 9920 LPRINT
  132. 9930 ON ERROR
  133. 9940 RETURN
  134. 9950 WINDOPEN
  135. 9960 VARNAME
  136. 9970 WINDEL
  137.