home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24b.d64 / ram-floppy (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.