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