home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / floppy-lader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  44 lines
  1. 10 REM  ***************************
  2. 20 REM  *                         *
  3. 30 REM  *     FLOPPY - LADER      *
  4. 40 REM  *                         *
  5. 50 REM  *     VON UWE GERLACH     *
  6. 60 REM  *     RIEDESELSTR. 64     *
  7. 70 REM  *     6100  DARMSTADT     *
  8. 80 REM  *                         *
  9. 90 REM  ***************************
  10. 100 :
  11. 110 REM  LAEDT EIN NORMALES FILE AB
  12. 120 REM  DER DORT ANGEGEBENEN ADRESSE
  13. 130 REM  IN DEN FLOPPY-SPEICHER.
  14. 140 REM  BELEGT PUFFER 1 IN DER FLOPPY
  15. 150 REM  ($0400 BIS $04FF).
  16. 160 :
  17. 200 OPEN 1,8,15: REM BEFEHLSKANAL FLOPPY
  18. 400 PRINT: PRINT "MOMENT BITTE": PRINT: PRINT
  19. 510 FOR I=0 TO 217: REM ALLE DATAS
  20. 520 READ D: S=S+D
  21. 530 PRINT#1,"M-W";CHR$(I);CHR$(4);CHR$(1);CHR$(D): REM IN PUFFER 1
  22. 540 NEXT I
  23. 550 IF S<>21797 THEN PRINT"FALSCH! NUR MUT - NOCHEINMAL TIPPEN": END
  24. 700 INPUT "FILENAME";N$
  25. 710 FOR I=1 TO 16: REM AUFFUELLEN
  26. 720 N$=N$+CHR$(160): REM SHIFT SPACE
  27. 730 NEXT I
  28. 740 N$=LEFT$(N$,16)
  29. 750 PRINT#1,"M-W";CHR$(240);CHR$(4);CHR$(16);N$: REM FILENAME NACH $04F0
  30. 800 PRINT#1,"M-E";CHR$(0);CHR$(4): REM HILSPROGRAMM IM PUFFER 1 STARTEN
  31. 850 CLOSE 1: REM BEFEHLSKANAL SCHLIESSEN
  32. 900 :
  33. 901 DATA173,0,28,9,8,141,0,28,32,29,4,173,0,28,41,247,141,0,28,138,240,6
  34. 902 DATA32,199,230,32,44,193,96,32,177,4,160,2,132,55,162,0,185,0,3,240,44
  35. 903 DATA200,200,200,189,240,4,201,42,240,15,201,63,240,5,217,0,3,208,25,200
  36. 904 DATA232,224,16,208,234,164,55,200,185,0,3,141,178,4,200,185,0,3,141,182
  37. 905 DATA4,76,117,4,165,55,24,105,32,168,132,55,144,195,173,0,3,208,3,162
  38. 906 DATA57,96,141,178,4,173,1,3,141,182,4,76,29,4,32,177,4,169,0,133,167
  39. 907 DATA173,3,3,133,168,172,2,3,162,4,169,0,133,53,173,0,3,208,12,173,1,3
  40. 908 DATA24,105,1,133,53,32,194,4,96,141,178,4,173,1,3,141,182,4,32,194,4
  41. 909 DATA208,241,32,177,4,162,2,76,134,4,169,18,133,6,169,1,133,7,169,128
  42. 910 DATA133,0,165,0,48,252,96,189,0,3,145,167,200,208,4,230,168,240,8,232
  43. 911 DATA228,53,208,239,162,0,96,162,82,96,200
  44.