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