home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / einstieg / comp_mod.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1991-03-08  |  18.9 KB  |  316 lines
  1. Warten
  2. zeilennr
  3. JaNeint
  4. zeile
  5. spalte
  6. Eingabemaske
  7. positionj
  8. satz&
  9. IndexSuche
  10. eintrag
  11. suchbegriff
  12. aufgabe;
  13. aendern-
  14. @    Speichern
  15. satznummerL
  16. neuereintrag
  17. Normal
  18. Invers
  19. InputNeu'
  20. vorgabeQ
  21. gueltigk
  22. laenge8
  23.     nachkomma|
  24. taste
  25. BildLoeschen
  26. zeilelinksoben
  27. spaltelinksobenH
  28. zeilerechtsunten
  29. spalterechtsunten
  30. loeschzeichen
  31. BearbeiteIndex
  32. datsatza
  33. speichersatz
  34. @    Einfuegen
  35. EinzelDruck
  36.     Drucksatz
  37. @    JaNeinESC)
  38. Druck
  39. Speicherindizes
  40. ErstelleIndizes
  41. ArtikelEingabe
  42. Meldung
  43. BinSuch
  44. leeru
  45. falschN
  46. Artikelsatz%
  47. Zeitschrift5
  48.     AusgabeNr
  49. Jahrgang
  50. ArtikeltypQ
  51. HauptstichwortD
  52. UnterStichwort1
  53. Unterstichwort2
  54. Kurzbeschreibung
  55. Loeschkennung
  56. ZeitindextypS
  57. Jahrindextyp
  58. Artikelindextyp
  59. Stichindextyp
  60.     Stichwort
  61. CompMod
  62. groesse^
  63. Suchoptionen
  64.     Zeitindex
  65.     Jahrindex
  66. Stichindex
  67. Artikelindex4
  68. Loeschliste
  69.     AnzSaetzeb
  70. AnzLoeschSatzq
  71. AnzZeitSatz
  72. AnzJahrSatz
  73. AnzArtikelSatz
  74. AnzStichSatz
  75. eingabeposition
  76.     Datenfeld
  77. Start
  78. Mitte
  79. @    DosBefehl
  80. check
  81. DosShell
  82. Findsatz
  83. Gefunden
  84.     Erstdruck
  85. Satz.Zeitschrift
  86. zeichen
  87. antwort
  88. Findsatz.Loeschkennung
  89. Satz.Jahrgang
  90. Satz.Artikeltyp
  91. Satz.Hauptstichwort
  92. Loeschen
  93. EintragNeu4
  94. EintragNeu.Zeitschrifto
  95. EintragNeu.AusgabeNr
  96. EintragNeu.Jahrgang
  97. EintragNeu.Artikeltyp
  98. EintragNeu.Hauptstichwort
  99. EintragNeu.UnterStichwort1
  100. EintragNeu.Unterstichwort2
  101. EintragNeu.Kurzbeschreibung
  102. EintragNeu.Loeschkennung
  103. Suchen
  104. Eingabelaenge
  105.  COMP_MOD.BAS
  106.  Modul f
  107. r COMP_ART.BAS (Quick-Basic V. 4.XX)
  108.  (C) 1991 Th.Frins, W.Kehr & TOOLBOX
  109. - Definitionen und Deklarationen 
  110. * Prozedur-Deklarationen:l
  111. * Funktionsdeklarationen:
  112. * Konstantendefinitionen:
  113.                                                                               
  114. * Datensatzdefinitionen:
  115. * Variablendefinitionen:
  116.  Ende von COMP_MOD.BAS
  117. Eingabemaske
  118. d%d    d
  119. Zeitschrift:         "
  120. Nummer der Ausgabe:  "
  121. Jahrgang:            "
  122. Artikeltyp:          "
  123. Stichwort 1:         "
  124. Stichwort 2:         "
  125. Stichwort 3:         "
  126. Kurzbeschreibung:    "
  127. IndexSuche
  128. Suchen=
  129. EinzelDrucken";
  130. EinzelDrucken"
  131. Diesen Satz drucken (J/N) ?                 ESC - Abbruch"
  132. Einzel7
  133. Weitersuchen  (J/N)"
  134. Aendern"=
  135. Diesen Satz 
  136. ndern (J/N)   "m
  137.    ESC - Abbruch
  138. Loeschen=
  139. Diesen Satz l
  140. schen m
  141. (J/N)      ESC - Abbruch
  142. ListDrucken"=
  143. Alle S
  144. tze mit Zeitschrift "
  145.  drucken  (J/N) ?"
  146. ESC - Abbruch"
  147. Erster7
  148. NichtErster"7
  149. Suchen=
  150. EinzelDrucken";
  151. EinzelDrucken"
  152. Diesen Satz drucken"m
  153.  (J/N) ?                 ESC - Abbruch
  154. Einzel7
  155. Weitersuchen  (J/N)"
  156. Aendern"=
  157. Diesen Satz 
  158. ndern "m
  159. (J/N)      ESC - Abbruch
  160. Loeschen=
  161. Diesen Satz l
  162. schen"m
  163.  (J/N)      ESC - Abbruch"
  164. ListDrucken"=
  165. Alle S
  166. tze mit Jahrgang m
  167.  drucken  (J/N) ?"
  168. ESC - Abbruch"
  169. Erster7
  170. NichtErster"7
  171. Suchen=
  172. EinzelDrucken";
  173. EinzelDrucken"
  174. Diesen Satz drucken"m
  175.  (J/N) ?                 ESC - Abbruch
  176. Einzel7
  177. Weitersuchen  (J/N)"
  178. Aendern"=
  179. Diesen Satz 
  180. ndern (J/N)      ESC - Abbruch"
  181. Loeschen=
  182. Diesen Satz l
  183. schen"m
  184.  (J/N)      ESC - Abbruch"
  185. ListDrucken"=
  186. Alle S
  187. tze mit Artikeltyp m
  188.  drucken  (J/N) ?"
  189. ESC - Abbruch"
  190. Erster7
  191. NichtErster"7
  192. Suchen=
  193. EinzelDrucken";
  194. EinzelDrucken"
  195. Diesen Satz druck"m
  196. en (J/N) ?                 ESC - Abbr"
  197. Einzel7
  198. Weitersuchen  (J/N)"
  199. Aendern"=
  200. Diesen Satz 
  201. ndern "m
  202. (J/N)      ESC - Abbruch
  203. Loeschen=
  204. Diesen Satz l
  205. schen m
  206. (J/N)      ESC - Abbruch
  207. ListDrucken"=
  208. Alle S
  209. tze mit Stichwort "m
  210.  drucken  (J/N) ?"
  211. ESC - Abbruch"
  212. Erster7
  213. NichtErster"7
  214. ] ist nicht vorhanden !"
  215. Kein weiterer Satz mit "
  216. ] gefunden !
  217. Speichern
  218. Aendern"q
  219. BearbeiteIndex
  220. Einfuegen
  221. EinzelDruck
  222. Einzel
  223. Erster
  224. Ist ihr Drucker eingeschaltet ?"7
  225. LPT1:"e
  226. Zeitschrift: "
  227.  Ausgabe: ##
  228. Typ: "
  229. Stichworte: 
  230. Text: 
  231. LPT1:"e
  232. Druck
  233. Es sind 
  234.  Datens
  235. tze vorhanden"
  236. Druck in Schmalschrift(J/N)                        ESC - Abbruch
  237. ESC"q
  238. Ist ihr Drucker eingeschaltet ?"7
  239. LPT1:"e
  240. Nummer: ###"
  241.  Zeitschrift: 
  242.  Ausgabe: ##
  243. Typ: "
  244. Stichworte: 
  245. Text: 
  246. LPT1:"e
  247. Normaldruck ist NICHT aktiv"7
  248. ErstelleIndizes
  249. ArtikelEingabe
  250. Aendern"
  251.           F1 - Speichern des Artikels       
  252. ESC - Abbruch"
  253. 0123456789
  254. CURHOCH";
  255. CURRUNTER";
  256. ENTER";
  257. Aendern"
  258. Ohne Eintrag im Feld [Zeitschrift] kann"
  259.  nicht gespeichert werden !"
  260.           F1 - Speichern des Artikels"
  261.        ESC - Abbruch
  262. BinSuch
  263. DosBefehl
  264. \BSchirm.sikd
  265. Geben Sie einen g
  266. ltigen DOS-Befehl ein: "7
  267. pause"
  268. \BSchirm.sik
  269. del \BSchirm.sik > nul
  270. DosShell
  271. \BSchirm.sikd
  272. PROMPT
  273. PROMPT=Zur
  274. ck EXIT>"
  275. PROMPT="
  276. \BSchirm.sik
  277. del \BSchirm.sik >nul"
  278. Loeschen
  279. d)d)m
  280. Datens
  281. tze L 
  282.  S C H E N "7
  283. Markierte Datens
  284. tze l
  285. schen(J)"m
  286. schmarken aufheben (N)"
  287. Ihre Wahl (J/N)"
  288. Ich l
  289. sche die markierten"m
  290.  Datens
  291. Copy Comp_art.dat Comp_art.bak > nul
  292. Del Comp_art.dat > nul
  293. Comp_art.datd
  294. Comp_art.bakd    
  295. Ich hebe die gesetzten "m
  296. schmarken auf"
  297. Comp_Art.DATd
  298. Comp_Art.datd
  299. Suchen
  300. die gesuchte Zeitschrift "
  301. den gesuchten Jahrgang "
  302. 0123456789
  303. den gesuchten Artikeltyp "
  304. das gesuchte Stichwort "
  305. Bitte geben Sie 
  306. ein: "
  307.               Eingabe mit 
  308.  abschlie
  309. en     "
  310.      ESC - Abbruch
  311. ENTER"
  312. Bitte einen Suchbegriff eingeben "
  313. oder mit ESC abbrechen !
  314. ENTER"
  315. ENTER"
  316.