home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / emulator / model1_b.zip / TRSLINK.BAS < prev   
BASIC Source File  |  1993-06-17  |  2KB  |  46 lines
  1. 10 DEFUSR=&H7800:PRINT"Initializing...":GOSUB 140
  2. 20 INPUT"Enter drive # of disk or 'R' to send ROM";X$
  3. 30 IF X$="R" OR X$="r"THEN 110
  4. 40 POKE 30723,2[VAL(X$):INPUT"Number of tracks";NT
  5. 50 LINE INPUT"Press ENTER to send. ";X$:PRINT"Sending..."
  6. 60 FOR T=0 TO NT-1:FOR S=0 TO 9
  7. 70 IF T=0 THEN POKE 30722,3 ELSE POKE 30722,19
  8. 80 POKE 30724,T:POKE 30725,S:U=USR(0)
  9. 90 NEXT S,T:POKE 30724,255:POKE 30725,255:U=USR(0)
  10. 100 PRINT"Done.":GOTO 20
  11. 110 LINE INPUT"Press ENTER to send. ";X$:PRINT"Sending..."
  12. 120 POKE 30725,255:FOR P=0 TO 47:POKE 30724,P:U=USR(0):NEXT P
  13. 130 POKE 30724,255:U=USR(0):PRINT"Done.":GOTO 20
  14. 140 FOR X=0 TO 215 STEP 8
  15. 150 T=0:FOR Y=0 TO 7:READ N:T=T+N:IF N<0 THEN PRINT"Data error in line";X*10/8+190:END
  16. 160 POKE X+Y+30720,N:NEXT Y
  17. 170 READ N:IF T+N THEN PRINT"Checksum error in line";X*10/8+190:END
  18. 180 NEXT X:RETURN
  19. 190 DATA 24 , 5 , 0 , 0 , 0 , 0 , 0 , 58 ,-87 
  20. 200 DATA 5 , 120 , 60 , 42 , 3 , 120 , 46 , 0 ,-396 
  21. 210 DATA 40 , 85 , 243 , 33 , 236 , 55 , 17 , 239 ,-948 
  22. 220 DATA 55 , 1 , 0 , 121 , 62 , 2 , 50 , 6 ,-297 
  23. 230 DATA 120 , 58 , 3 , 120 , 50 , 225 , 55 , 229 ,-860 
  24. 240 DATA 225 , 229 , 225 , 58 , 4 , 120 , 18 , 58 ,-937 
  25. 250 DATA 2 , 120 , 119 , 229 , 225 , 229 , 225 , 126 ,-1275 
  26. 260 DATA 203 , 71 , 32 , 251 , 230 , 152 , 32 , 34 ,-1005 
  27. 270 DATA 58 , 5 , 120 , 50 , 238 , 55 , 54 , 136 ,-716 
  28. 280 DATA 229 , 225 , 229 , 225 , 203 , 70 , 40 , 9 ,-1230 
  29. 290 DATA 203 , 78 , 40 , 248 , 26 , 2 , 3 , 24 ,-624 
  30. 300 DATA 243 , 126 , 230 , 156 , 251 , 33 , 0 , 121 ,-1160 
  31. 310 DATA 40 , 5 , 62 , 1 , 50 , 6 , 120 , 221 ,-505 
  32. 320 DATA 33 , 232 , 55 , 58 , 4 , 120 , 245 , 205 ,-952 
  33. 330 DATA 159 , 120 , 241 , 60 , 200 , 58 , 5 , 120 ,-963 
  34. 340 DATA 205 , 159 , 120 , 17 , 0 , 0 , 126 , 235 ,-862 
  35. 350 DATA 213 , 95 , 22 , 0 , 25 , 209 , 235 , 205 ,-1004 
  36. 360 DATA 159 , 120 , 44 , 32 , 241 , 62 , 3 , 50 ,-711 
  37. 370 DATA 6 , 120 , 122 , 205 , 159 , 120 , 123 , 205 ,-1060 
  38. 380 DATA 159 , 120 , 175 , 50 , 6 , 120 , 201 , 79 ,-910 
  39. 390 DATA 6 , 3 , 253 , 33 , 64 , 56 , 121 , 55 ,-591 
  40. 400 DATA 31 , 221 , 119 , 0 , 221 , 203 , 0 , 126 ,-921 
  41. 410 DATA 32 , 8 , 253 , 203 , 0 , 86 , 32 , 2 ,-616 
  42. 420 DATA 24 , 242 , 230 , 127 , 221 , 119 , 0 , 221 ,-1184 
  43. 430 DATA 203 , 0 , 126 , 40 , 8 , 253 , 203 , 0 ,-833 
  44. 440 DATA 86 , 32 , 2 , 24 , 242 , 121 , 7 , 7 ,-521 
  45. 450 DATA 7 , 79 , 16 , 210 , 201 , 0 , 0 , 0 ,-513 
  46.