home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos3.d64 / basicpatch (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  797b  |  33 lines
  1. 10 IF A=0 THEN A=1:LOAD"GEOS BOOT",8,1
  2. 20 OPEN 5,8,15,"I0:"
  3. 30 PRINT#5,"R:GEOS BOOT ALT=GEOS BOOT"
  4. 40 INPUT#5,A,B$,C,D
  5. 50 PRINTA,B$,C,D
  6. 60 CLOSE 5
  7. 100 IF PEEK(25759)<> 76THEN END:REM JMP
  8. 120 POKE 25759,96 :REM RTS
  9. 122 POKE 25748,44 :REM STA $0100,Y=>BIT
  10. 130 SYS 25730     :REM DECODIERE
  11. 132 POKE 25748,153:REM STA $0100
  12. 140 POKE 25759,76 :REM WIEDER JMP
  13. 150 IF PEEK(25745)<>201THEN END:REM EOR
  14. 160 POKE 25745,0:REM EOR #$00
  15. 170 REM $63F1 = JSR $F510 PATCHEN
  16. 180 IF PEEK(25585)<>245 THEN END
  17. 190 POKE 25585,4
  18. 200 POKE 25586,200
  19. 210 POKE 25587,76
  20. 220 REM NUN JSR $F510 -> JMP 04C8
  21. 230 REM $63C3 STA $0413 -> BIT $0413
  22. 240 IF PEEK(25541)<>141 THEN END
  23. 250 POKE 25541,44
  24. 260 REM ***************************
  25. 270 REM * NUN GEOS BOOT SPEICHERN *
  26. 280 REM ***************************
  27. 300 POKE 43,0  :POKE44,96:REM ANF
  28. 310 POKE 45,168:POKE46,100:REM ENDE
  29. 320 SAVE "GEOS BOOT",8
  30. 990 PRINT "ALLES KLAR"
  31. 995 END
  32. 998 REM ***************************
  33.