home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / anwendg / dbwindow.bas next >
Encoding:
BASIC Source File  |  1988-11-26  |  1.5 KB  |  39 lines
  1. 100 ' Programm zum Window - Handling unter dBase III PLUS
  2. 105 ' Mit freundlicher Genehmigung des SYBEX - Verlages.
  3. 108 ' QUELLE: Das dBASE III Plus Profibuch.
  4. 110 OPEN "SCRNSAVE.BIN" AS #1 LEN = 1
  5. 120 FIELD #1, 1 AS A$
  6. 130 CHECKSUM = 0
  7. 140 FOR I = 1 TO 13
  8. 150     LINESUM = 0
  9. 160     FOR J = 1 TO 8
  10. 170         READ BYTE
  11. 180         CHECKSUM = CHECKSUM + BYTE
  12. 190         LINESUM = LINESUM + BYTE
  13. 200         IF ( BYTE < 256) THEN LSET A$ = CHR$ ( BYTE )
  14. 210         PUT #1
  15. 220     NEXT J
  16. 230     READ LINECHECK
  17. 240 IF LINECHECK <> LINESUM THEN PRINT "Fehler in Zeile : ";280 + 10 * I
  18. 250 NEXT I
  19. 260 IF CHECKSUM <> 11393 THEN CLOSE:PRINT "BIN-Datei nicht gültig!":END
  20. 270 FOR I = 1 TO 4000
  21. 271   PUT #1
  22. 272 NEXT I
  23. 273 CLOSE
  24. 280 PRINT "Programm erfolgreich beendet !" : END
  25. 290 DATA 139, 251, 140, 216, 142, 192,  38, 128, 1246
  26. 300 DATA  61,  83, 116,   9,  38, 128,  61,  82,  578
  27. 310 DATA 116,  48, 235,  76, 144, 140, 200, 142, 1101
  28. 320 DATA 192, 142, 216, 128,  14,  99,   0, 128,  919
  29. 330 DATA 144, 180,  15, 205,  16,  60,   7, 117,  744
  30. 340 DATA   6, 199,   6,  97,   0, 176,   0, 142,  626
  31. 350 DATA  30,  97,   0, 185, 160,  15,  43, 246,  776
  32. 360 DATA 141,  62, 100,   0, 252, 243, 164, 235, 1197
  33. 370 DATA  31, 144, 140, 200, 142, 192, 142, 216, 1207
  34. 380 DATA 246,   6,  99,   0, 128, 144, 116,  16,  755
  35. 390 DATA 142,   6,  97,   0,  43, 255, 141,  54,  738
  36. 400 DATA 100,   0, 185, 160,  15, 252, 243, 164, 1119
  37. 410 DATA 203,   0, 184,   0,   0,   0,   0,   0,  387
  38.  
  39.