REPLACE'STR.L
FILE INFORMATION
FILENAME(S): REPLACE'STR.L
FILE TYPE(S): SEQ
FILE SIZE: 289b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
0e639b84097638f7292f385bcc66e7168e747506e7cdb751b9b297645cda5cc6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | REPLACE'STR.L | SEQ | hedning, Mattias H00r | 9 | 16 | DOWNLOAD FILE |
| CCS COMAL | REPLACE'STR.L | SEQ | hedning, Mattias H00r | 9 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 50 52 4F 43 20 52 45 50 4C 41 43 |9000 PROC REPLAC| 00000010: 45 27 53 54 52 28 52 45 46 20 41 24 2C 42 24 2C |E'STR(REF A$,B$,| 00000020: 43 24 29 20 0D 39 30 31 30 20 44 49 4D 20 54 24 |C$) .9010 DIM T$| 00000030: 20 4F 46 20 4D 41 58 4C 45 4E 28 41 24 29 0D 39 | OF MAXLEN(A$).9| 00000040: 30 32 30 20 4E 3A 3D 4C 45 4E 28 42 24 29 0D 39 |020 N:=LEN(B$).9| 00000050: 30 33 30 20 57 48 49 4C 45 20 42 24 20 49 4E 20 |030 WHILE B$ IN | 00000060: 41 24 20 44 4F 0D 39 30 34 30 20 4B 3A 3D 4C 45 |A$ DO.9040 K:=LE| 00000070: 4E 28 41 24 29 0D 39 30 35 30 20 4D 3A 3D 42 24 |N(A$).9050 M:=B$| 00000080: 20 49 4E 20 41 24 0D 39 30 36 30 20 54 24 3A 3D | IN A$.9060 T$:=| 00000090: 54 24 2B 41 24 28 31 3A 4D 2D 31 29 2B 43 24 0D |T$+A$(1:M-1)+C$.| 000000A0: 39 30 37 30 20 49 46 20 4D 2B 4E 3C 3D 4B 20 54 |9070 IF M+N<=K T| 000000B0: 48 45 4E 0D 39 30 38 30 20 41 24 3A 3D 41 24 28 |HEN.9080 A$:=A$(| 000000C0: 4D 2B 4E 3A 4B 29 0D 39 30 39 30 20 45 4C 53 45 |M+N:K).9090 ELSE| 000000D0: 20 0D 39 31 30 30 20 41 24 3A 3D 22 22 0D 39 31 | .9100 A$:="".91| 000000E0: 31 30 20 45 4E 44 49 46 20 0D 39 31 32 30 20 45 |10 ENDIF .9120 E| 000000F0: 4E 44 57 48 49 4C 45 20 0D 39 31 33 30 20 41 24 |NDWHILE .9130 A$| 00000100: 3A 3D 54 24 2B 41 24 0D 39 31 34 30 20 45 4E 44 |:=T$+A$.9140 END| 00000110: 50 52 4F 43 20 52 45 50 4C 41 43 45 27 53 54 52 |PROC REPLACE'STR| 00000120: 0D |. |
9000 PROC REPLACE'STR(REF A$,B$,C$) .901 0 DIM T$ OF MAXLEN(A$).9020 N:=LEN(B$).9 030 WHILE B$ IN A$ DO.9040 K:=LEN(A$).90 50 M:=B$ IN A$.9060 T$:=T$+A$(1:M-1)+C$. 9070 IF M+N<=K THEN.9080 A$:=A$(M+N:K).9 090 ELSE .9100 A$:="".9110 ENDIF .9120 E NDWHILE .9130 A$:=T$+A$.9140 ENDPROC REP LACE'STR.
> CLICK IMAGE PREVIEW FOR FULL MODAL