100 REM *******************************
110 REM * LOAD MIT STARTADRESSE       *
120 REM * SAVE MIT START-/ENDADRESSE  *
130 REM * WRITTEN BY MICHAEL MOELLER  *
140 REM *******************************
150 :
160 REM * EINLESEN *
170 FORI=694TO767
180 : READA:POKEI,A:S=S+A
190 NEXT
200 :
210 REM * PRUEFEN *
220 P=8494
230 IFS=PTHEN270
240 PRINT" DATAFEHLER!":PRINT" SUMME IST: "S:PRINT" SUMME SOLL:"P:END
250 :
260 REM *INITIALISIEREN *
270 SYS694
280 :
290 REM * PROGRAMM SPEICHERN *
300 SAVE"LOAD/SAVE.OBJ",8,0,694,768
310 :
320 REM * ERKLAERUNGEN *
330 PRINT:PRINT"FOLGENDE BEFEHLE STEHEN ZUR VERFUEGUNG:":PRINT
340 PRINT"SAVE"CHR$(34)"NAME"CHR$(34)",8"TAB(27)"- BASIC-SAVE"
350 PRINT"SAVE"CHR$(34)"NAME"CHR$(34)",8,0,START,ENDE  - SAVE FREI"
360 PRINT:PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8"TAB(27)"- BASIC-LOAD"
370 PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8,1"TAB(27)"- LOAD ABS."
380 PRINT"LOAD"CHR$(34)"NAME"CHR$(34)",8,1,START"TAB(27)"- LOAD FREI"
390 PRINT:PRINT"FUER >START< UND >ENDE< KOENNEN AUCH"
400 PRINT"VARIABLEN STEHEN.":END
410 :
420 REM * DATAS *
430 DATA169,213,162,2,141,48,3,142,49,3,169,234,162,2,141,50,3,142,51,3,96
440 DATA32,253,174,32,138,173,32,247,183,96,32,121,0,240,11,32,203,2,132,195
450 DATA133,196,169,0,133,185,165,10,76,165,244,32,121,0,240,14,32,203,2,132
460 DATA193,133,194,32,203,2,132,174,133,175,76,237,245