home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / ram-floppy (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  57 lines
  1. 0 rem**********************************
  2. 1 rem*          ram-floppy            *
  3. 2 rem**********************************
  4. 3 rem*  uwe klatt                     *
  5. 4 rem*  billerbecker str. 27          *
  6. 5 rem*  4939 steinheim                *
  7. 6 rem*  tel. 05233/5672               *
  8. 7 rem**********************************
  9. 8 poke53280,0:poke53281,11
  10. 9 poke646,8
  11. 10 print"bitte warten"
  12. 11 rem *****************************
  13. 12 rem *** datas  lesen          ***
  14. 13 rem *****************************
  15. 14 fori=40704to40768:reada:pokei,a:s=s+a:next
  16. 15 ifs<>6567thenend
  17. 16 fori=40784to40849:reada:pokei,a:s=s+a:next
  18. 17 ifs<>14392thenend
  19. 18 fori=40853to40902:reada:pokei,a:s=s+a:next
  20. 19 ifs<>20412thenend
  21. 20 rem *****************************
  22. 21 rem ***        menue          ***
  23. 22 rem *****************************
  24. 23 printchr$(147)
  25. 24 print"                                        ";
  26. 25 print" ram-floppy 25.5 kbyte                  ";
  27. 26 print"                                        "
  28. 27 print"'@v'  verschiebt programm in  ram-floppy"
  29. 28 print"'@t'  vertauscht programm mit ram-floppy"
  30. 29 rem *****************************
  31. 30 rem *** mc programm starten   ***
  32. 31 rem *****************************
  33. 32 sys40704:new
  34. 33 rem *****************************
  35. 34 rem *** datas fuer 1. mc teil ***
  36. 35 rem *****************************
  37. 36 data169,159,133,56,133,52,169,0,133,55,169,21,141,8,3,169
  38. 37 data159,141,9,3,96,32,115,0,240,4,201,64,240,3,76,231
  39. 38 data167,32,115,0,201,84,240,7,201,86,240,12,76,8,175,32
  40. 39 data115,0,32,80,159,76,174,167,32,115,0,32,149,159,76,174
  41. 40 data167
  42. 41 rem *****************************
  43. 42 rem *** datas fuer 2. mc teil ***
  44. 43 rem *****************************
  45. 44 data169,0,133,45,169,104,133,46,120,165,1,41,252,133,1,169
  46. 45 data0,133,98,133,100,141,0,160,169,160,133,101,169,8,133,99
  47. 46 data162,96,160,0,177,98,133,102,177,100,145,98,165,102,145,100
  48. 47 data200,208,241,230,99,230,101,202,208,232,165,1,9,3,133,1
  49. 48 data88,96
  50. 49 rem *****************************
  51. 50 rem *** datas fuer 3. mc teil ***
  52. 51 rem *****************************
  53. 52 data120,165,1,41,252,133,1,169,0,133,98,133,100,141,0,160
  54. 53 data169,160,133,101,169,8,133,99,162,96,160,0,177,98,145,100
  55. 54 data200,208,249,230,99,230,101,202,208,240,165,1,9,3,133,1
  56. 55 data88,96
  57.