home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #6 / CDD_6_95.ISO / cdd / direkt / dos / txtcom / txtcom.rsc (.txt) < prev   
Encoding:
GFA-BASIC MS-DOS  |  1995-02-04  |  2.9 KB  |  115 lines
  1. GFA-BASIC MS-DOS
  2. inkey
  3. ggSCREEN
  4. dssiges Schl
  5. startMP=C:\WIDT
  6.  TXT - COM Compiler       Sharewareversion b
  7.  Dies ist die Sharewareversion des TXT-COM Compilers   r
  8.  Dieses Programm kann aus Texten COM Dateien erstellen.e
  9.  Die Vollversion gibts f
  10. r 20 DM Schein bei mir.       r
  11.  Meine Adresse    Siegfried H
  12. bner                     r
  13.                   Obere Vorstadt 21                    r
  14.                   91575 Windsbach                      r
  15. Bitte eine Taste f
  16. r weiter dr
  17.  TXT - COM Compiler       Sharewareversion            
  18.  Vollversion gibt f
  19. r 20 DM Schein bei                
  20.  Siegfried H
  21. bner, Obere Vorstadt 21, 91575 Windsbach 
  22. Bitte w
  23. hlen Sie die Text Datei aus.
  24. *.TXTh
  25. DATEN.DAT
  26. SCREEN
  27. GRAPHMODE
  28. COLOR
  29. 0,0,459,239COLOR
  30. 2,2,457,237GRAPHMODE
  31. PRINT
  32. AT(2,2);"
  33. Compiler
  34. Sharewareversion
  35. COLOR
  36. PRINT
  37. AT(2,4);"
  38. Sharewareversion
  39. TXT-COM
  40. Compilers
  41. PRINT
  42. AT(2,6);"
  43. Dieses
  44. Programm
  45. Texten
  46. Dateien
  47. erstellen."
  48. PRINT
  49. AT(2,8);"
  50. Vollversion
  51. gibts
  52. Schein
  53. COLOR
  54. PRINT
  55. AT(2,10);"
  56. Meine
  57. Adresse
  58. Siegfried
  59. PRINT
  60. AT(2,11);"
  61. Obere
  62. Vorstadt
  63. "PRINT
  64. AT(2,12);"
  65. 91575
  66. Windsbach
  67. "COLOR
  68. =65+INT(RND*20)PRINT
  69. AT(2,14);"Bitte
  70. Taste
  71. weiter
  72. cken"KEYGET
  73. PRINT
  74. AT(13,2);"
  75. Compiler
  76. Sharewareversion
  77. "COLOR
  78. PRINT
  79. AT(13,3);"
  80. Vollversion
  81. Schein
  82. "COLOR
  83. PRINT
  84. AT(13,4);"
  85. Siegfried
  86. bner,
  87. Obere
  88. Vorstadt
  89. 91575
  90. Windsbach
  91. FILESELECT
  92. #"Bitte
  93. Datei
  94. aus.","*.TXT",
  95. "I",#1,"DATEN.DAT"
  96. "I",#2,
  97. =LEN(
  98. =LEFT$(
  99. )+"COM"OPEN
  100. "O",#3,
  101. GRAPHMODE
  102. COLOR
  103. 1,15REPEAT
  104. =INP(#1)
  105. UNTIL
  106. EOF(#1)
  107. CLOSE
  108. #1REPEAT
  109. =INP(#2)
  110. UNTIL
  111. EOF(#2)
  112. CLOSE
  113. #2OUT
  114. #3,0CLOSE
  115.