00000000: 80 2A 4C 4D 35 3A 52 4D 37 35 0D 80 2A 43 4E 31 |.*LM5:RM75..*CN1|
00000010: 0D BC CB CF D2 D4 20 CF D6 C5 D2 DA C9 C3 C8 D4 |...... .........|
00000020: 20 CD C5 D4 C1 C2 C1 D3 C9 C3 BE 0D 80 2A 43 4E | ............*CN|
00000030: 30 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.**************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 0D 0D CC CF C1 C4 22 CD C5 |*******......"..|
00000080: D4 C1 C2 C1 D3 C9 C3 22 2C 38 2C 31 20 20 2D 20 |.......",8,1 - |
00000090: C7 45 45 46 20 CE C5 D7 20 2D 20 D3 D9 D3 20 33 |.EEF ... - ... 3|
000000A0: 36 38 36 34 0D 0D C1 D5 D4 CF 20 20 20 20 20 53 |6864...... S|
000000B0: 54 41 52 54 4E 52 2C 49 4E 54 45 52 56 41 4C 20 |TARTNR,INTERVAL |
000000C0: 28 55 49 54 3A D2 D5 CE 2F D3 D4 CF D0 29 0D C2 |(UIT:.../....)..|
000000D0: D3 C1 D6 C5 20 20 20 20 22 46 49 4C 45 4E 41 41 |.... "FILENAA|
000000E0: 4D 22 2C 53 54 41 52 54 41 44 52 45 53 2C 45 49 |M",STARTADRES,EI|
000000F0: 4E 44 41 44 52 45 53 2B 31 28 44 45 43 49 4D 41 |NDADRES+1(DECIMA|
00000100: 41 4C 29 0D C3 C1 D4 20 20 20 20 20 20 44 49 52 |AL).... DIR|
00000110: 45 43 54 4F 52 59 0D C3 C8 C1 CE C7 C5 20 20 20 |ECTORY....... |
00000120: 40 CF CC C4 40 CE C5 D7 28 2C 53 54 41 52 54 4E |@...@...(,STARTN|
00000130: 52 2C 45 49 4E 44 4E 52 29 0D 20 20 20 20 20 20 |R,EINDNR). |
00000140: 20 20 20 40 22 CF CC C4 22 40 22 CE C5 D7 22 2A | @"..."@"..."*|
00000150: 28 2C 53 54 41 52 54 4E 52 2C 45 49 4E 44 4E 52 |(,STARTNR,EINDNR|
00000160: 29 0D C4 C5 C6 C1 D5 CC D4 20 20 42 4F 52 44 45 |)........ BORDE|
00000170: 52 2C 41 43 48 54 45 52 47 52 4F 4E 44 2C 54 45 |R,ACHTERGROND,TE|
00000180: 4B 53 54 2C 44 45 56 49 43 45 23 0D C4 C5 CC C5 |KST,DEVICE#.....|
00000190: D4 C5 20 20 20 53 54 41 52 54 4E 52 20 2D 20 45 |.. STARTNR - E|
000001A0: 49 4E 44 4E 52 0D C4 CC C9 D3 D4 20 20 20 20 22 |INDNR...... "|
000001B0: 46 49 4C 45 4E 41 41 4D 22 0D C4 D5 CD D0 20 20 |FILENAAM"..... |
000001C0: 20 20 20 4E 41 20 D2 D5 CE 2F D3 D4 CF D0 20 56 | NA .../.... V|
000001D0: 45 52 56 4F 4C 47 20 4D 45 54 20 C3 CF CE D4 0D |ERVOLG MET .....|
000001E0: C5 D2 D2 20 20 20 20 20 20 4C 45 45 53 54 20 46 |... LEEST F|
000001F0: 4F 55 54 4B 41 4E 41 41 4C 0D C6 C9 CE C4 20 20 |OUTKANAAL..... |
00000200: 20 20 20 40 53 54 52 49 4E 47 40 28 2C 53 54 41 | @STRING@(,STA|
00000210: 52 54 4E 52 2C 45 49 4E 44 4E 52 29 0D 20 20 20 |RTNR,EINDNR). |
00000220: 20 20 20 20 20 20 40 22 53 54 52 49 4E 47 22 40 | @"STRING"@|
00000230: 28 2C 53 54 41 52 54 4E 52 2C 45 49 4E 44 4E 52 |(,STARTNR,EINDNR|
00000240: 29 0D C8 C5 CC D0 20 20 20 20 20 41 4C 4C 45 20 |)..... ALLE |
00000250: CD 45 54 41 42 41 53 49 43 20 43 4F 4D 4D 41 4E |.ETABASIC COMMAN|
00000260: 44 4F 27 53 0D C9 CE D4 20 20 20 20 20 20 5A 45 |DO'S.... ZE|
00000270: 54 20 49 4E 54 45 52 52 55 50 53 20 45 52 55 47 |T INTERRUPS ERUG|
00000280: 20 4E 41 20 CD CF CE C9 D4 CF D2 0D CB C5 D9 20 | NA ........... |
00000290: 20 20 20 20 20 46 55 4E 43 54 49 45 23 2C 22 43 | FUNCTIE#,"C|
000002A0: 4F 4D 4D 41 4E 44 4F 20 4F 46 20 53 54 52 49 4E |OMMANDO OF STRIN|
000002B0: 47 22 0D 20 20 20 20 20 20 20 20 20 CC 45 54 20 |G". .ET |
000002C0: 4F 50 20 50 49 4A 4C 20 4E 41 41 52 20 4C 49 4E |OP PIJL NAAR LIN|
000002D0: 4B 53 20 45 4E 20 53 48 49 46 54 2D 37 0D CC CC |KS EN SHIFT-7...|
000002E0: C9 D3 D4 20 20 20 20 28 53 54 41 52 54 4E 52 20 |... (STARTNR |
000002F0: 2D 20 45 49 4E 44 4E 52 29 20 56 4F 4F 52 20 50 |- EINDNR) VOOR P|
00000300: 52 49 4E 54 45 52 2E 0D CD C5 CD CF D2 D9 20 20 |RINTER........ |
00000310: 20 53 54 41 52 54 41 44 52 45 53 20 28 2D 45 49 | STARTADRES (-EI|
00000320: 4E 44 41 44 52 45 53 29 0D CD C5 D2 C7 C5 20 20 |NDADRES)...... |
00000330: 20 20 22 50 52 4F 47 52 41 4D 4D 41 4E 41 41 4D | "PROGRAMMANAAM|
00000340: 22 0D CD CF CE C9 D4 CF D2 0D CE D5 CD C2 C5 D2 |"...............|
00000350: 20 20 20 24 48 45 58 4E 52 20 20 4F 46 20 20 44 | $HEXNR OF D|
00000360: 45 43 4E 52 0D D1 D5 C9 D4 20 20 20 20 20 56 45 |ECNR..... VE|
00000370: 52 4C 41 41 54 20 CD 45 54 41 42 41 53 49 43 2E |RLAAT .ETABASIC.|
00000380: 20 C8 45 52 53 54 45 4C 20 D3 D9 D3 20 33 36 38 | .ERSTEL ... 368|
00000390: 36 34 2E 0D D2 C5 C1 C4 20 20 20 20 20 22 53 45 |64...... "SE|
000003A0: 51 20 46 49 4C 45 4E 41 41 4D 22 0D D2 C5 CE D5 |Q FILENAAM".....|
000003B0: CD 20 20 20 20 28 53 54 41 52 54 4E 52 29 28 2C |. (STARTNR)(,|
000003C0: 49 4E 54 45 52 56 41 4C 29 0D D2 C5 D3 C1 D6 C5 |INTERVAL).......|
000003D0: 20 20 20 22 46 49 4C 45 4E 41 41 4D 22 0D D3 C3 | "FILENAAM"...|
000003E0: D2 C1 D4 C3 C8 20 20 22 46 49 4C 45 4E 41 41 4D |..... "FILENAAM|
000003F0: 22 0D D3 C5 CE C4 20 20 20 20 20 22 44 49 53 4B |"..... "DISK|
00000400: 20 43 4F 4D 4D 41 4E 44 4F 22 0D D3 D0 C5 C5 C4 | COMMANDO"......|
00000410: 20 20 20 20 4E 55 4D 4D 45 52 20 30 20 54 4F 54 | NUMMER 0 TOT|
00000420: 20 32 35 35 20 28 30 20 3D 20 4E 4F 52 4D 41 41 | 255 (0 = NORMAA|
00000430: 4C 29 0D D3 D4 C1 D2 D4 20 20 20 20 22 46 49 4C |L)...... "FIL|
00000440: 45 4E 41 41 4D 22 0D D4 C5 D2 CD C9 CE C1 CC 0D |ENAAM"..........|
00000450: D4 D2 C1 C3 C5 20 20 20 20 47 45 56 4F 4C 47 44 |..... GEVOLGD|
00000460: 20 44 4F 4F 52 20 D2 D5 CE 0D D4 D2 CF C6 C6 20 | DOOR ......... |
00000470: 20 20 20 53 43 48 41 4B 45 4C 54 20 D4 D2 C1 C3 | SCHAKELT ....|
00000480: C5 20 55 49 54 2E 0D D5 CE CE C5 D7 0D D6 C3 C8 |. UIT...........|
00000490: C1 CE C7 C5 20 20 40 CF CC C4 40 CE C5 D7 40 28 |.... @...@...@(|
000004A0: 2C 53 54 41 52 54 4E 52 2C 45 49 4E 44 4E 52 29 |,STARTNR,EINDNR)|
000004B0: 0D 20 20 20 20 20 20 20 20 20 40 22 CF CC C4 22 |. @"..."|
000004C0: 40 22 CE C5 D7 22 40 28 2C 53 54 41 52 54 4E 52 |@"..."@(,STARTNR|
000004D0: 2C 45 49 4E 44 4E 52 29 0D 40 20 20 20 20 20 20 |,EINDNR).@ |
000004E0: 20 20 53 54 41 52 54 41 44 52 45 53 2C 4E 55 4D | STARTADRES,NUM|
000004F0: 4D 45 52 2C 4E 55 4D 4D 45 52 2C 2E 2E 2E 2E 0D |MER,NUMMER,.....|
00000500: 24 17 |$. |
.*LM5:RM75..*CN1..KORT OVERZICHT METABAS
IC...*CN0.******************************
***************************************.
.LOAD"METABASIC",8,1 - GEEF NEW - SYS 3
6864..AUTO STARTNR,INTERVAL (UIT:RUN
/STOP).BSAVE "FILENAAM",STARTADRES,EI
NDADRES+1(DECIMAAL).CAT DIRECTORY.C
HANGE @OLD@NEW(,STARTNR,EINDNR).
@"OLD"@"NEW"*(,STARTNR,EINDNR).DEFAUL
T BORDER,ACHTERGROND,TEKST,DEVICE#.DELE
TE STARTNR - EINDNR.DLIST "FILENAAM
".DUMP NA RUN/STOP VERVOLG MET CONT.
ERR LEEST FOUTKANAAL.FIND @STRI
NG@(,STARTNR,EINDNR). @"STRING"@
(,STARTNR,EINDNR).HELP ALLE METABASI
C COMMANDO'S.INT ZET INTERRUPS ERUG
NA MONITOR.KEY FUNCTIE#,"COMMANDO
OF STRING". LET OP PIJL NAAR LIN
KS EN SHIFT-7.LLIST (STARTNR - EINDNR
) VOOR PRINTER..MEMORY STARTADRES (-EI
NDADRES).MERGE "PROGRAMMANAAM".MONITO
R.NUMBER $HEXNR OF DECNR.QUIT VE
RLAAT METABASIC. HERSTEL SYS 36864..READ
"SEQ FILENAAM".RENUM (STARTNR)(,
INTERVAL).RESAVE "FILENAAM".SCRATCH "
FILENAAM".SEND "DISK COMMANDO".SPEED
NUMMER 0 TOT 255 (0 = NORMAAL).START
"FILENAAM".TERMINAL.TRACE GEVOLGD
DOOR RUN.TROFF SCHAKELT TRACE UIT..U
NNEW.VCHANGE @OLD@NEW@(,STARTNR,EINDNR)
. @"OLD"@"NEW"@(,STARTNR,EINDNR)
.@ STARTADRES,NUMMER,NUMMER,.....
$.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL