home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 July / 64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64 / erw-generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  694b  |  25 lines
  1. 1 rem tool-basic.obj
  2. 10 rem dieses programm  implementiert
  3. 20 rem die erweiterung zum tool-basic
  4. 30 rem tool. es  muss  sich das  alte
  5. 40 rem tool-basic  auf  der  diskette
  6. 50 rem befinden. nach  dem  programm-
  7. 60 rem start wird das alte tool-basic
  8. 70 rem umbenannt. der lader muss ent-
  9. 80 rem sprechend   geaendert   werden
  10. 90 rem (siehe text)
  11. 100 open1,8,15,"r:tool-basic.old=tool-basic.obj":close1
  12. 110 sys57812"tool-basic.old",8,1:poke780,0:sys65493
  13. 130 poke56,156:clr
  14. 140 poke49171,32:poke49172,0:poke49173,156
  15. 150 poke53244,15:poke53245,156
  16. 160 poke49224,32:poke49225,232:poke49226,156
  17. 170 poke50430,207:poke50431,158
  18. 180 poke49163,167:poke49164,157
  19. 190 poke193,0:poke194,192
  20. 200 poke174,0:poke175,208
  21. 210 poke187,7:poke188,8
  22. 220 poke183,14
  23. 230 poke186,8:poke185,0
  24. 240 sys62954
  25.