home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9001a.d64 / bytechanger (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  296b  |  17 lines
  1. 110 OPEN15,8,15:REM
  2. 120 OPEN5,8,5,"#":REM
  3. 125 INPUT"SPURNUMMER";T:REM
  4. 127 INPUT"SEKTORNUMMER";S:REM
  5. 129 INPUT"WELCHES BYTE";B:REM
  6. 130 PRINT#15,"U1";5;0;T;S:REM
  7. 140 PRINT#15,"B-P";5;B:REM
  8. 150 GET#5,A$:REM
  9. 155 IFA$=""THENA$=CHR$(0):REM
  10. 160 PRINT"ALT:"ASC(A$);:REM
  11. 165 INPUT"NEU:";A:REM
  12. 170 PRINT#15,"B-P";5;B:REM
  13. 180 PRINT#5,CHR$(A);:REM
  14. 190 PRINT#15,"U2";5;0;T;S:REM
  15. 200 CLOSE5:REM
  16. 210 CLOSE15:REM
  17.