home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / utility / overscn3 / overrom.lst < prev    next >
Encoding:
File List  |  1989-07-04  |  1.4 KB  |  61 lines
  1. ' OVERROM.BAS   Version 1.0   Karsten Isakovic, Berlin 25.05.89
  2. ' GFA-Basic
  3. '
  4. Print Chr$(244);" ROM-TOS Source Patch ";Chr$(244)
  5. Print Chr$(245);"  by K.Isakovic       ";Chr$(245)
  6. Print
  7. Input "Filename ->  ",Name$
  8. Print
  9. If Name$=""
  10.   Print "ERROR : No Filename "
  11. Else
  12.   If Exist(Name$)
  13.     Open "U",#1,Name$
  14.     Flag=0
  15.     @Test_old(&H1263E)
  16.     @Test_old(&H12682)
  17.     If Flag=0
  18.       @Write_new(&H1263E)
  19.       @Write_new(&H12682)
  20.       Print "OK , TOS now modified !"
  21.     Else
  22.       Flag=0
  23.       @Test_new(&H1263E)
  24.       @Test_new(&H12682)
  25.       If Flag=0
  26.         Print "OK , TOS already modified !"
  27.       Else
  28.         Print "ERROR : No correct German ROM-TOS 1.4 Source-File"
  29.       Endif
  30.     Endif
  31.     Close #1
  32.   Else
  33.     Print "ERROR : ";Name$;" not found !"
  34.   Endif
  35. Endif
  36. Print
  37. Print "Goodbye"
  38. Input Ende$
  39. Edit
  40. Procedure Write_new(Off) ! Write $CEC0E84F
  41.   Seek #1,Off
  42.   Out #1,&HCE
  43.   Out #1,&HC0
  44.   Out #1,&HE8
  45.   Out #1,&H4F
  46. Return
  47. Procedure Test_old(Off)  ! Test  $E848CEC0
  48.   Seek #1,Off
  49.   Flag=Flag+(&HE8<>Inp(#1)) ! GFA : True = -1 , False = 0
  50.   Flag=Flag+(&H48<>Inp(#1))
  51.   Flag=Flag+(&HCE<>Inp(#1))
  52.   Flag=Flag+(&HC0<>Inp(#1))
  53. Return
  54. Procedure Test_new(Off)  ! Test  $CEC0E84F
  55.   Seek #1,Off
  56.   Flag=Flag+(&HCE<>Inp(#1)) ! GFA : True = -1 , False = 0
  57.   Flag=Flag+(&HC0<>Inp(#1))
  58.   Flag=Flag+(&HE8<>Inp(#1))
  59.   Flag=Flag+(&H4F<>Inp(#1))
  60. Return
  61.