home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / test (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  49 lines
  1. 15 REM----- SCHREIBEN DER RECORDS ----
  2. 20 \INIT
  3. 25 PRINT" [196]ATEN EINGEBEN [193]BBRUCH MIT *"
  4. 30 \RANDOM,2,"TEST1",30,50
  5. 40 INPUT"VORNAME";VO$:IFVO$="*"THEN120
  6. 50 INPUT"FAMILIENNAME";FA$
  7. 60 INPUT"RECORDNR";RN
  8. 70 \CLEAR
  9. 80 \WRITE,0,VO$,10,10,FA$,20
  10. 100 \PUT,2,RN,30
  11. 110 GOTO40
  12. 120 CLOSE2
  13. 130 REM------ LESEN DER RECORDS ------
  14. 135 PRINT" [196]ATEN LESEN ABBRUCH MIT 100"
  15. 140 \RANDOM,2,"TEST1",30,50
  16. 150 INPUT"RECORDNR";RN:IFRN>50THEN220
  17. 160 \CLEAR
  18. 170 \GET,2,RN,30
  19. 180 \READ,0,10,VO$,10,20,FA$
  20. 200 PRINT VO$,FA$
  21. 210 GOTO150
  22. 220 CLOSE2
  23. 300 REM------ NORMALE FILES ---------
  24. 310 PRINT" DEMONSTRATION VON TRANS UND FETCH"
  25. 320 \OPEN,3,"@:TEST2,S,W"
  26. 330 FORA=0TO100:PRINT#3,A:NEXT
  27. 340 CLOSE3
  28. 350 \OPEN,3,"TEST2,S,R"
  29. 360 OPEN1,3  :REM BILDSCHIRM
  30. 370 \TRANS,3,1
  31. 380 \CLALL
  32. 390 \OPEN,3,"TEST2,S,R"
  33. 400 \FETCH,3,150,A$
  34. 410 PRINT A$
  35. 420 CLOSE3
  36. 440 REM------ BINAER-FILES -----------
  37. 450 PRINT" SCHREIBEN VON 1000 ZUFALLSZAHLEN
  38. 460 \[159],3,"@:TEST3,S,W":TI$[178]"000000"
  39. 470 [129]A[178]1[164]1000
  40. 480 Z[178][187](1):\COMP,Z,Z$
  41. 490 [152]3,Z$;
  42. 500 [130]:[160]3:[153]TI$" SEC"
  43. 510 [153]" LESEN VON 1000 ZUFALLSZAHLEN
  44. 520 \OPEN,3,"TEST3,S,R":TI$="000000"
  45. 530 FORA=1TO1000
  46. 540 \FETCH,3,5,Z$ :REM  5=LAENGE EINES REAL-'STRINGS'
  47. 550 \RECOMP,Z$,Z
  48. 560 NEXT:CLOSE3:PRINTTI$" SEC"
  49.