home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 March / 64er_Magazin_85-03_1985_Markt__Technik_de.d64 / saver (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  27 lines
  1. 1 rem******      saver      ******
  2. 2 rem
  3. 3 rem     von: hans haberl
  4. 4 rem          bahnhofstr. 3
  5. 5 rem          8018 grafing
  6. 6 rem
  7. 10 data198,1,169,96,141,123,129,162,2,32,201,255,162,97,160,0,185,159,127
  8. 20 data32,210,255,200,202,208,246,169,0,133,253,169,128,133,254,162,64,160
  9. 30 data0,177,253,32,210,255,200,208,248,230,254,202,208,243,185,77,198,32
  10. 40 data210,255,200,208,247,32,204,255,230,1,96,1,8,13,8,191,7,158,40,50
  11. 50 data48,54,51,41,0,0,0,120,169,96,133,252,169,8,133,253,169,0,133,254
  12. 60 data169,128,133,255,162,64,32,69,8,32,10,128,169,169,141,123,129,169
  13. 70 data96,133,252,169,72,133,253,169,77,133,254,169,198,133,255,162,1,32
  14. 80 data69,8,76,123,129,160,0,177,252,145,254,136,208,249,230,253,230,255
  15. 90 data202,208,242,96,0,0,0,0,0,0,0,0,0,0
  16. 100 poke56,112:clr
  17. 110 fori=32605to32767:reada:s=s+a
  18. 120 pokei,a:nexti
  19. 130 ifs<>21569thenprint"fehler in datas":goto200
  20. 140 input"name der neuen version";n$
  21. 150 open15,8,15:open2,8,2,n$+",p,w"
  22. 160 gosub170:sys32605:close2:gosub170:close15:goto200
  23. 170 input#15,a,b$,c,d:printa;b$;c;d
  24. 180 ifa>0thenclose2:close15:goto200
  25. 190 return
  26. 200 poke56,128:clr:end
  27.