home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #6 / CDD_6_95.ISO / cdd / direkt / dos / blz / blz.rsc (.txt) < prev    next >
Encoding:
GFA-BASIC MS-DOS  |  1995-01-08  |  4.4 KB  |  150 lines
  1. GFA-BASIC MS-DOS
  2. AND.COM
  3. PATNG
  4. start
  5. weiter
  6. ;C:\DCCPRO;DT
  7.  Unregistrierte Shareware Version 
  8.  BLZ V1.0      
  9. 15.1.1995
  10.  Vollversion ohne Registriereinblendungen und     
  11.  Passwort gibts f
  12. r 20 DM Schein/Scheck bei       
  13.  (c) 1994 by Siegfried H
  14. bner                     
  15.              Obere Vorstadt 21                    
  16.              91575 Windsbach                      
  17. Bitte Passwort >Testversion< eingeben
  18. TESTVERSION 
  19. Testversionn
  20. testversion
  21. Falsches Passwort 
  22. Alles in Ordnung Shareware Passwort OK
  23. cke irgend eine Taste zum Programmstart.
  24. BLZ.dat
  25. Datei BLZ.DAT fehlt
  26. BLZ.DAT
  27. Bitte Bankleitzahl oder Ort eingeben N
  28. ---------------------------------------------------------------------------
  29. BLZ       Ort                      Bank
  30. ----------------------------------------------------------------------------
  31. -> Bitte eine Taste dr
  32. cken (Abbruch rechte Maustaste+Return Taste) <-
  33. Nicht vorhanden 
  34. ---> Weitere Bankleitzahlen oder Orte suchen (J/N) <---
  35. PRINT
  36. AT(1,1);"
  37. "PRINT
  38. AT(1,2);"
  39. Unregistrierte
  40. Shareware
  41. Version
  42. 15.1.1995"PRINT
  43. AT(1,3);"
  44. "PRINT
  45. AT(1,4);"
  46. Vollversion
  47. Registriereinblendungen
  48. "PRINT
  49. AT(1,5);"
  50. Passwort
  51. gibts
  52. Schein/Scheck
  53. "PRINT
  54. AT(1,6);"
  55. "PRINT
  56. AT(1,7);"
  57. Siegfried
  58. "PRINT
  59. AT(1,8);"
  60. Obere
  61. Vorstadt
  62. PRINT
  63. AT(1,9);"
  64. 91575
  65. Windsbach
  66. PRINT
  67. AT(1,10);"
  68. :PRINT
  69. AT(1,12);"Bitte
  70. Passwort
  71. >Testversion<
  72. eingeben"FORM
  73. INPUT
  74. ="TESTVERSION"
  75. ="Testversion"
  76. ="testversion"GOTO
  77. ELSEPRINT
  78. "Falsches
  79. Passwort"
  80. ENDIF
  81. :PRINT
  82. "Alles
  83. Ordnung
  84. Shareware
  85. Passwort
  86. OK"PRINT
  87. irgend
  88. Taste
  89. Programmstart."
  90. CLOSE
  91. #1KEYGET
  92. =""CLEAR
  93. =""CLEAR
  94. PRINT
  95. CLOSE
  96. #1CLOSE
  97. EXIST("BLZ.dat")=0
  98. PRINT
  99. "Datei
  100. BLZ.DAT
  101. fehlt"
  102. ENDIF
  103. "I",#1,"BLZ.DAT"
  104. PRINT
  105. "Bitte
  106. Bankleitzahl
  107. eingeben
  108. ";FORM
  109. INPUT
  110. PRINT
  111. "---------------------------------------------------------------------------"
  112. =UPPER$(
  113. PRINT
  114. Bank"PRINT
  115. "---------------------------------------------------------------------------"
  116. REPEAT
  117. INPUT
  118. =UPPER$(
  119. INSTR(
  120. PRINT
  121. PRINT
  122. Bitte
  123. Taste
  124. (Abbruch
  125. rechte
  126. Maustaste+Return
  127. Taste)
  128. <-"KEYGET
  129. ENDIF
  130. ENDIF
  131. UNTIL
  132. EOF(#1)
  133. MOUSEK=2
  134. =0PRINT
  135. "Nicht
  136. vorhanden"
  137. ENDIF
  138. PRINT
  139. "--->
  140. Weitere
  141. Bankleitzahlen
  142. suchen
  143. (J/N)
  144. <---";
  145. =""FORM
  146. INPUT
  147. WHILE
  148. ="n"CLS
  149. WENDGOTO
  150.