home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / &-konverter (.txt) next >
Commodore BASIC  |  1995-03-30  |  862b  |  38 lines
  1. 0 REM &-KONVERTER    64'ER 1991 MARKT & TECHNIK VERLAG
  2. 1 REM NIKOLAUS HEUSLER, ZWENGAUERWEG 18, 8 MUENCHEN 71      ARR 2.91
  3. 5 DIMA%(999)
  4. 10 PRINT"[147]KONVERTER FILE -> &FILE   NH 02.91
  5. 20 [133]"FILENAME ";N$
  6. 30 [159]2,8,2,N$[170]",P,R
  7. 40 GET#2,A$,B$:IFSTTHENPRINT"FILE NICHT ZU LADEN!":END
  8. 50 P=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256
  9. 60 PRINT"FILE-STARTADRESSE:"P
  10. 70 INPUT"LADEADRESSE   1280[157][157][157][157][157][157]";D
  11. 80 OPEN3,8,3,"&"+N$+",U,W
  12. 90 [161]#2,A$
  13. 100 C[178]C[170]1:A%(C)[178][198](A$[170][199](0))
  14. 110 [139]ST[178]0[137]90
  15. 120 [153]"FILELAENGE:"C"BYTES
  16. 130 A=1
  17. 140 IFC<1THEN280
  18. 190 DH=INT(D/256):DL=D-DH*256
  19. 200 CK=DH+DL:GOSUB300
  20. 210 PRINT#3,CHR$(DL)CHR$(DH);
  21. 220 IFC<256THEN400
  22. 230 PRINT#3,CHR$(255);:CK=CK+255:GOSUB300
  23. 240 FORI=ATOA+254
  24. 250 CK=CK+A%(I):GOSUB300
  25. 260 PRINT#3,CHR$(A%(I));
  26. 270 NEXT:PRINT#3,CHR$(CK);
  27. 275 C=C-255:D=D+255:A=A+255:GOTO140
  28. 280 CLOSE3:CLOSE2:PRINT"FERTIG
  29. 290 [128]
  30. 300 [139]CK[177]255[167]CK[178]CK[171]255:[137]300
  31. 310 [142]
  32. 400 [152]3,[199](C);:CK[178]CK[170]C:[141]300
  33. 410 [129]I[178]A[164]A[170]C[171]1
  34. 420 CK[178]CK[170]A%(I):[141]300
  35. 430 [152]3,[199](A%(I));
  36. 440 [130]
  37. 450 [152]3,[199](CK);:[137]280
  38.