home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / prodatei.sav (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  985b  |  51 lines
  1. 10 REM ***************************
  2. 20 REM **  LAUFWERKE  ANPASSEN  **
  3. 30 REM **  FUER   PRODATEI 128  **
  4. 40 REM ** - - - - - - - - - - - **
  5. 50 REM **  GESCHRIEBEN     VON  **
  6. 60 REM **  CHRISTOPHER PRENZEL  **
  7. 70 REM **  (C) 1989  BY  64'ER  **
  8. 80 REM ***************************
  9. 90 (null)%
  10. 100 :
  11. 110 REM *** DATEN AUS FILE HOLEN
  12. 120 :
  13. 130 FI$="V.DEFAULT       "
  14. 140 VO$="":G$="":D$="":P$=""
  15. 150 OPEN2,8,2,FI$
  16. 160 FORI=1TO30
  17. 170 GET#2,A$
  18. 180 VO$=VO$+CHR$(ASC(A$))
  19. 190 NEXT I
  20. 200 CLOSE2
  21. 210 :
  22. 220 REM *** DATEN AENDERN
  23. 230 :
  24. 240 FOR I=1TO4
  25. 250 G=0:D=0:P=0
  26. 260 PRINT"";I;". ";
  27. 270 INPUT"LAUFWERK NUMMER (8-11,0=KEIN) : ";G
  28. 280 IFG=0THEN350
  29. 290 IFG<8ORG>11THEN260
  30. 300 INPUT"DRIVE (0/1)                  : ";D
  31. 310 IFD<>0ANDD<>1THEN300
  32. 320 INPUT"PARALLEL (J=1,N=0)           : ";P
  33. 330 IFP<>0ANDP<>1THEN320
  34. 340 IFP=1THENP=128
  35. 350 G$=G$+CHR$(G)
  36. 360 D$=D$+CHR$(48+D)
  37. 370 P$=P$+CHR$(P)
  38. 380 NEXTI
  39. 390 G$=G$+D$+P$
  40. 400 G$=LEFT$(VO$,10)+G$
  41. 410 VO$=G$+RIGHT$(VO$,8)
  42. 420 :
  43. 430 REM *** DATEN IN FILE SCHREIBEN
  44. 440 :
  45. 450 (null)(FI$)
  46. 460 OPEN2,8,2,(FI$)+",P,W"
  47. 470 FORI=1TO30
  48. 480 PRINT#2,MID$(VO$,I,1);
  49. 490 NEXT I
  50. 500 CLOSE2
  51.