home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / FID.CONVERTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  61 lines
  1. 1  REM  **********************
  2. 2  REM  * FID.CONVERTER      *
  3. 3  REM  * BY DONALD MILLER   *
  4. 4  REM  * COPYRIGHT (C) 1985 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 10  REM  FID -> FID.RC CONVERTER
  9. 20  GOTO 260
  10. 30 M = M +1:F = 0: IF M >8983  THEN 140
  11. 40 V =  PEEK(M)
  12. 50  FOR I = 1 TO 10: IF V = S(I)  THEN F = I:I = 10: GOTO 60
  13. 60  NEXT : IF F  THEN M = M +1: GOTO 30
  14. 70  FOR I = 1 TO 26: IF V = O(I)  THEN F = 1:I = 26: GOTO 80
  15. 80  NEXT 
  16. 90  IF   NOT F  THEN 30
  17. 100 M = M +2:Z =  PEEK(M)
  18. 110  IF Z <8  OR Z >30  THEN 30
  19. 120  IF Z >25  AND Z <30  THEN  POKE M,Z -17: GOTO 30
  20. 130  POKE M,Z +200: GOTO 30
  21. 140  FOR I = 9163 TO 9179  STEP 2: POKE I, PEEK(I) +200: NEXT : REM  SUBROUTINE TABLE
  22. 150  POKE 9181,225: POKE 9183,10: POKE 9185,11: POKE 9187,9: POKE 9189,12: POKE 9191,225: REM  BUFFER TABLE
  23. 160  FOR I = 9193 TO 9289  STEP 2: POKE I, PEEK(I) +200: NEXT : REM  OFFSET TABLE
  24. 170 K =  PEEK(8822) = 250: POKE 10498 +K,219: POKE 10502 +K,225: POKE 10504 +K,10: POKE 10506 +K,12: REM  FILE MANAGER PARM LIST
  25. 180  POKE 10563 +K,225: REM  IOB POKE
  26. 190  POKE 6239,96: POKE 7637,96: REM  CHANGE JMP $3D3 TO RTS
  27. 200  POKE 6840,12: REM  OMIT IF FID PLUS NOT INSTALLED
  28. 210 N = 1: FOR I = 9994 TO 10016: POKE I +128, ASC( MID$ (S$,N,1)):N = N +1: NEXT : REM  POKE IN TITLE
  29. 220  PRINT  CHR$(4)"BSAVE FID.RC,A$1803,L4700"
  30. 230  POKE 49281,0: POKE 49281,0: REM  WRITE TO RAM
  31. 240  PRINT  CHR$(4)"BLOAD FID.RC,A$D003"
  32. 250  END 
  33. 260  DIM O(26),S(10): HOME : PRINT : PRINT "** COPYRIGHT 1985 MICROSPARC, INC.**": VTAB 9: PRINT "PLACE DISK WITH FID IN DRIVE": PRINT : PRINT "THEN HIT ANY KEY";: GET A$
  34. 270  HOME : VTAB 9: PRINT "PLEASE WAIT (APPROX 4 MINUTES)...."
  35. 280  FOR I = 1 TO 26: READ O(I): NEXT 
  36. 290  FOR I = 1 TO 10: READ S(I): NEXT 
  37. 300  DATA  141,142,173,76,32,189,157,185,205,204,221,172,13,140,29,153,174,44,217,236,57,109,238,25,206,62
  38. 310  DATA  133,162,201,240,144,105,160,208,169,176
  39. 320 S$ = "FID.RC BY D W MILLER JR": REM  23 PLACES YOUR TITLE HERE
  40. 330 M = 6146
  41. 340  PRINT  CHR$(4)"BLOAD FID,A$1803"
  42. 350  GOSUB 380: REM  FID PLUS ENHANCEMENTS
  43. 360  PRINT : PRINT "INSERT DISK TO RECEIVE FID.RC"
  44. 370  GOTO 30
  45. 380  REM  FID PLUS
  46. 390 K =  PEEK(10373) = 0: FOR I = 10373 TO 10376: READ N: POKE I +K,N: NEXT 
  47. 400  DATA  205,207,214,197
  48. 410  FOR I = 9135 TO 9161: READ N: POKE I,N: NEXT 
  49. 420  DATA  205,195,211,213,204,196,210,214,209,0,210,209,0,196,195,204,211,213,214,0,205,00,195,210,211,209,0
  50. 430  FOR I = 6343 TO 6347: READ N: POKE I,N: NEXT 
  51. 440  DATA  12,253,32,237,253
  52. 450  FOR I = 6833 TO 6860: READ N: POKE I,N: NEXT 
  53. 460  DATA  76,193,251,162,11,44,162,12,32,205,10,32,12,253,141,0,2,170,32,237,253,32,142,253,138,162,1,96
  54. 470  FOR I = 1 TO 7: READ P: POKE P,188: POKE P +1,10: NEXT 
  55. 480  DATA  6465,6501,6541,6577,6771,7198,8101
  56. 490  POKE 6982,180: POKE 6983,10: POKE 7019,180: POKE 7020,10: POKE 7794,183: POKE 7795,10
  57. 500  POKE 7808,180: POKE 7809,10
  58. 510  POKE 7819,183: POKE 7820,10
  59. 520  FOR I = 1 TO 5: READ P: POKE P,170: NEXT 
  60. 530  DATA  6712,6736,7393,7424,7465
  61. 540  RETURN