home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh09a.d64 / load_save.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.2 KB  |  38 lines
  1. 100 REM *******************************
  2. 110 REM * LOAD MIT STARTADRESSE       *
  3. 120 REM * SAVE MIT START-/ENDADRESSE  *
  4. 130 REM * WRITTEN BY MICHAEL MOELLER  *
  5. 140 REM *******************************
  6. 150 :
  7. 160 REM * EINLESEN *
  8. 170 FORI=694TO767
  9. 180 : READA:POKEI,A:S=S+A
  10. 190 NEXT
  11. 200 :
  12. 210 REM * PRUEFEN *
  13. 220 P=8494
  14. 230 IFS=PTHEN270
  15. 240 PRINT" DATAFEHLER!":PRINT" SUMME IST: "S:PRINT" SUMME SOLL:"P:END
  16. 250 :
  17. 260 REM *INITIALISIEREN *
  18. 270 SYS694
  19. 280 :
  20. 290 REM * PROGRAMM SPEICHERN *
  21. 300 SAVE"LOAD/SAVE.OBJ",8,0,694,768
  22. 310 :
  23. 320 REM * ERKLAERUNGEN *
  24. 330 PRINT:PRINT"FOLGENDE BEFEHLE STEHEN ZUR VERFUEGUNG:":PRINT
  25. 340 PRINT"SAVE"CHR$(34)"NAME"CHR$(34)",8"TAB(27)"- BASIC-SAVE"
  26. 350 PRINT"SAVE"CHR$(34)"NAME"CHR$(34)",8,0,START,ENDE  - SAVE FREI"
  27. 360 PRINT:PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8"TAB(27)"- BASIC-LOAD"
  28. 370 PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8,1"TAB(27)"- LOAD ABS."
  29. 380 PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8,1,START"TAB(27)"- LOAD FREI"
  30. 390 PRINT:PRINT"FUER >START< UND >ENDE< KOENNEN AUCH"
  31. 400 PRINT"VARIABLEN STEHEN.":END
  32. 410 :
  33. 420 REM * DATAS *
  34. 430 DATA169,213,162,2,141,48,3,142,49,3,169,234,162,2,141,50,3,142,51,3,96
  35. 440 DATA32,253,174,32,138,173,32,247,183,96,32,121,0,240,11,32,203,2,132,195
  36. 450 DATA133,196,169,0,133,185,165,10,76,165,244,32,121,0,240,14,32,203,2,132
  37. 460 DATA193,133,194,32,203,2,132,174,133,175,76,237,245
  38.