home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28b.d64 / write_read (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  233b  |  16 lines
  1. 100 OPEN 1,8,15
  2. 110 OPEN 2,8,2,"#"
  3. 112 FOR I=0 TO 21
  4. 115 : PRINT#1,"B-P:";2;1
  5. 120 : PRINT#2,"SEKTOR"+STR$(I)
  6. 130 : PRINT#1,"U2:";2;0;1;I
  7. 132 NEXT I
  8. 140 :
  9. 145 FOR I=0 TO 21
  10. 150 : PRINT#1,"U1:";2;0;1;I
  11. 155 : PRINT#1,"B-P:";2;1
  12. 160 : INPUT#2,A$
  13. 170 : PRINT A$
  14. 175 NEXT I
  15. 180 CLOSE 1:CLOSE 2
  16.