home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh65b.d64 / auto-save (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  48 lines
  1. 1 REM  ********************************
  2. 2 REM  *                              *
  3. 3 REM  *          AUTO - SAVE         *
  4. 4 REM  *                              *
  5. 5 REM  *      1985 BY MANFRED LINS    *
  6. 6 REM  *              REITACKER 1     *
  7. 7 REM  *         6492 ZUENTERSBACH    *
  8. 8 REM  *                              *
  9. 9 REM  ********************************
  10. 10 :
  11. 11 :
  12. 12 REM  MASCHINEN-PROGRAMM NACHLADEN
  13. 13 IF R=0 THEN R=1:LOAD"SAVE-OBJ",8,1
  14. 14 :
  15. 16 PRINT CHR$(147)CHR$(18)"             AUTO - SAVE                "
  16. 19 PRINT:PRINT:PRINT
  17. 21 :
  18. 22 REM  NAME EINGEBEN
  19. 23 PRINT"  PROGRAMMNAMEN (MAX. 16 ZEICHEN) EIN-"
  20. 24 PRINT"  GEBEN :"
  21. 25 :
  22. 26 S=10:Z=6:GOSUB 62
  23. 27 IF A$="" OR LEFT$(A$,1)=" " THEN 26
  24. 28 :
  25. 29 REM  NAMEN UND LAENGE ABSPEICHERN
  26. 30 N$="S:"+LEFT$(A$,16):L=LEN(N$)
  27. 31 POKE 49365,L-2:POKE 49366,L
  28. 32 :
  29. 33 FOR I=1 TO L:POKE 49366+I,ASC(MID$(N$,I,1)):NEXT I
  30. 36 PRINT:PRINT
  31. 39 REM  INTERVALL EINGEBEN
  32. 40 PRINT"  ABSPEICHER-INTERVALL (256 BYTE = 1)"
  33. 41 PRINT"  EINGEBEN :"
  34. 43 S=13:Z=10:GOSUB 62
  35. 46 REM  INTERVALL ABSPEICHERN
  36. 47 I=VAL(A$):IF I<1 THEN I=1
  37. 48 POKE 49363,8+I:POKE 49364,I
  38. 51 REM MASCHINENPROGRAMM INITIALISIEREN
  39. 52 SYS 49152
  40. 53 :
  41. 54 REM  LADEPROGRAMM LOESCHEN
  42. 55 NEW:END
  43. 60 REM  UNTERPROGRAMM STRINGEINGABE
  44. 62 PRINT CHR$(144):OPEN 1,0
  45. 63 POKE 214,Z:POKE 211,S:SYS 58640
  46. 64 INPUT#1,A$
  47. 65 CLOSE 1:PRINT CHR$(154):RETURN
  48.