home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / emulator / model1_b.zip / TRANSMIT.BAS < prev    next >
BASIC Source File  |  1993-07-02  |  1KB  |  34 lines
  1. 10 ST=&H7900:EN=&H79FF
  2. 20 INPUT"Enter 'R' to transmit ROM, or just ENTER to send disk";TR$
  3. 30 H$="0123456789ABCDEF"
  4. 40 IF TR$="R"OR TR$="r"THEN ST=0:EN=&H2FFF:PRINT"*-:GOSUB 290:PRINT"*---CUT HERE---*":END
  5. 50 INPUT"Drive";D:POKE &H7803,2[D
  6. 60 POKE &H7802,3:POKE &H7805,0
  7. 70 FOR X=&H7807 TO &H7855:READ N:POKE X,N:C=C+N:NEXT X
  8. 80 IF C<>9457 THEN PRINT"Error in data statements.":STOP
  9. 90 INPUT"Number of tracks";NT
  10. 100 DEFUSR=&H7807:U=USR(0):POKE &H7802,19
  11. 110 PRINT "*---CUT HERE---*"
  12. 120 POKE &H7806,0:FOR T=0 TO NT-1:FOR S=0 TO 9
  13. 130 PRINT "* Track";T;"sector";S;
  14. 140 POKE &H37E1,2[D:POKE &H7804,T:POKE &H7805,S:U=USR(0)
  15. 150 IF PEEK(&H7806)<>0 THEN PRINT" read error!"ELSE PRINT
  16. 160 GOSUB 290:NEXT S,T
  17. 170 PRINT"*---CUT HERE---*"
  18. 180 END
  19. 190 DATA  243 , 33 , 236 , 55 , 17 , 239 , 55 , 1 
  20. 200 DATA  0 , 121 , 175 , 50 , 6 , 120 , 58 , 3 
  21. 210 DATA  120 , 50 , 225 , 55 , 229 , 225 , 229 , 225 
  22. 220 DATA  58 , 4 , 120 , 18 , 58 , 2 , 120 , 119 
  23. 230 DATA  229 , 225 , 229 , 225 , 126 , 203 , 71 , 32 
  24. 240 DATA  251 , 230 , 152 , 32 , 30 , 58 , 5 , 120 
  25. 250 DATA  50 , 238 , 55 , 54 , 136 , 229 , 225 , 229 
  26. 260 DATA  225 , 203 , 70 , 40 , 9 , 203 , 78 , 40 
  27. 270 DATA  248 , 26 , 2 , 3 , 24 , 243 , 126 , 230 
  28. 280 DATA  156 , 251 , 200 , 50 , 6 , 120 , 201
  29. 290 FOR X=ST TO EN STEP 16
  30. 300 PRINT":1234567:";
  31. 310 FOR Y=0 TO 15:N=PEEK(X+Y)
  32. 320 PRINT MID$(H$,INT(N/16)+1,1);MID$(H$,(N AND 15)+1,1);
  33. 330 NEXT Y:PRINT:NEXT X:RETURN
  34.