home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / einsteig / rdatdm_q.bas (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1990-07-15  |  16KB  |  173 lines
  1. PLIEFNR
  2.     PLIEFNAME
  3. PLETZTUMSATZ
  4. PGESAMTUMSATZ>
  5. PLKZ@
  6. OPTIONENL
  7. SCHLEIFE
  8. OPTNR
  9. VOPTION
  10. FERTIG~
  11. ZEILE
  12. SPALTEs
  13. LAENGE
  14. ERLAUBTu
  15. ZAHLEN
  16. VWORT
  17. LIEFNR
  18. DUMMY
  19. BUCHSTABEN&
  20. LIEFNAME>
  21. LETZTUMSATZ,
  22. VLIEFNR
  23. GESAMTUMSATZ
  24. GEFUNDEN
  25. CURSOR
  26. ANFANG|
  27.     NUMERISCH
  28. KOMMA
  29. VORZEICHEN
  30. EINGABESCHLEIFE\    
  31. ENDEl    
  32. STEUER
  33. LOESCH
  34.     ABSCHLUSS
  35. SONDER_
  36. DATEI.DATd
  37. ANLEGEN"d
  38. ZEIGENd    
  39. NDERNd
  40. SCHEN"d
  41. BEENDEN"d
  42. * RDATDEMO.BAS 
  43. * HAUPTPROGRAMM 
  44. Vorbereitungen,Initialisierungen
  45. Hauptschleifen
  46. Nachbereitungen
  47. * Ende des Hauptprogramms 
  48. * UP - Vorbereitung, Initialisierung ****
  49. RELDATEI.DATd
  50. ANLEGEN"d
  51. ZEIGENd    
  52. NDERNd
  53. SCHEN"d
  54. BEENDEN"d
  55. Programm zur Demonstration der relativen Datei
  56. (C)reated by Th. Frins  &  W.Kehr anno domini 1990
  57. Initialisierungen f
  58. r Eingaberoutine
  59. * Ende UP - Vorbereitung, Initialisierung
  60. * UP - Nachbereitungen 
  61. * Ende UP - Nachbereitungen 
  62. * UP - Hauptschleife 
  63. Datenbereich l
  64. schen
  65. Auswahlmaske
  66. Auswahlm
  67. UP's Anlegen, Zeigen, 
  68. ndern, L
  69. schen*
  70. * Ende UP - Hauptschleife 
  71. * UP - Auswahlmaske 
  72. Mit Cursortasten, Anfangsbuchstaben oder Ziffern 1-5 anw
  73. hlen"
  74. Mit <RETURN> ausf
  75. * Ende UP - Auswahlmaske 
  76. * UP - Auswahl 
  77.  IF WAHL$ = "" OR WAHL$ = CHR$(13) THEN 1790
  78. * Ende UP - Auswahl 
  79. * UP - ANLEGEN 
  80. Verarbeitungsmaske
  81. EINGABEROUTINE
  82. Falsche Lieferantennummer !   <TASTE>"
  83. EINGABEROUTINE
  84. EINGABEROUTINE
  85. Weiter = <TASTE>,  Ende = <ESC>"
  86. * Ende UP - Auswahl 
  87. * UP - Zeigen 
  88. Verarbeitungsmaske
  89. Lieferantennummer eingeben:"
  90. EINGABEROUTINE
  91. Falsche Lieferantennummer !   <TASTE>"
  92. Satz nicht vorhanden   <TASTE>
  93. Weiter = <TASTE>,  Ende = <ESC>"
  94. * Ende UP - Zeigen 
  95. * UP - 
  96. ndern 
  97. Verarbeitungsmaske
  98. ndern angew
  99. * Ende UP - 
  100. ndern 
  101. * UP - L
  102. schen 
  103. Verarbeitungsmaske
  104. schen angew
  105. * Ende UP - L
  106. schen 
  107. * UP - Verarbeitungsmaske 
  108. Lieferanten-Nummer :
  109. Lieferanten-Name   :
  110. Aktueller Umsatz   :
  111. Gesamtumsatz       :
  112. schkennzeichen   :
  113. * Ende UP - Verarbeitungsmaske 
  114.  EINGABEROUTINE 
  115. * SCHLEIFENVORLAUF 
  116. * VORBESETZUNGEN 
  117. CURSORGR
  118. SSE FESTLEGEN
  119. CURSOR-ANFANGSPOSITION
  120. UEBERSCHREIBMODUS EINN
  121. VORGABE ERSTELLEN
  122. INVERSE DARSTELLUNG EIN
  123. VORGABE AUSGEBEN
  124. * EINGABESCHLEIFE 
  125. RETURN
  126. LTIGE ZEICHEN
  127. LTIGE ZEICHEN
  128. ZEICHEN VERARBEITEN
  129. l    r    x    ~    
  130. * SCHLEIFENNACHLAUF 
  131. * LEERZEICHEN AM STRINGENDE ENTFERNEN 
  132. INVERSDARSTELLUNG AUS
  133. CKSPRUNG ZUM HAUPTPROGRAMM
  134. * ZEICHENEINGABE 
  135.  *** 
  136. BERSCHREIBMODUS TEXT 
  137. BERSCHREIBEN ZAHLEN
  138. ZEICHEN DURCH EINGABE ERSETZEN
  139.  *** EINF
  140. GEMODUS TEXT 
  141. GEN ZAHLEN
  142. ZEICHEN EINFUEGEN
  143.  *** CURSOR RECHTS TASTE 
  144.  *** CURSOR LINKS TASTE 
  145.  *** HOME TASTE ***
  146. CURSOR AN DEN ANFANG DER EINGABE
  147.  *** END TASTE 
  148. CURSOR AN ENDE DER EINGABE
  149.  *** DELETE TASTE 
  150. STRING KORRIGIEREN
  151. *BACKSPACE TASTE
  152. SCHON AM ANFANG
  153. STRING KORRIGIEREN
  154. ZEICHENPOSITION AKTUALISIEREN
  155. *INS TASTE
  156. EINF UMSCHALTEN 
  157.  *** 
  158. BERSCHREIBMODUS ZAHLEN ***
  159. ZEICHEN DURCH EINGABE ERSETZEN
  160.  *** EINF
  161. GEMODUS ZAHLEN 
  162. ZEICHEN EINFUEGEN
  163. *INITIALISIERUNG
  164. STEUERZEICHEN
  165. RETURN IST ABSCHLUSS DER EINGABE
  166. RETURN IST ABSCHLUSS DER EINGABE
  167. 1234567890+-.,
  168. ZEICHEN F
  169. R ZAHLENEINGABE
  170. abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ 
  171.  !$%&/()=?[]{}
  172. '`*,.-:;_<>\+-^
  173.