_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

RPAD.L

FILE INFORMATION

FILENAME(S): RPAD.L

FILE TYPE(S): SEQ

FILE SIZE: 110b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

db04dbea373d2effad62f8ae60053f30cd4a260d739827a0a7d410bb3f89f8c3

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL RPAD.L SEQ hedning, Mattias H00r 9 19 DOWNLOAD FILE
CCS COMAL RPAD.L SEQ hedning, Mattias H00r 9 19 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 52 50 41 44 28 52  |9000 PROC RPAD(R|
00000010: 45 46 20 41 24 2C 4D 29  20 43 4C 4F 53 45 44 0D  |EF A$,M) CLOSED.|
00000020: 39 30 31 30 20 46 4F 52  20 49 3A 3D 31 20 54 4F  |9010 FOR I:=1 TO|
00000030: 20 4D 2D 4C 45 4E 28 41  24 29 20 44 4F 0D 39 30  | M-LEN(A$) DO.90|
00000040: 32 30 20 41 24 3A 3D 41  24 2B 22 20 22 0D 39 30  |20 A$:=A$+" ".90|
00000050: 33 30 20 45 4E 44 46 4F  52 20 49 0D 39 30 34 30  |30 ENDFOR I.9040|
00000060: 20 45 4E 44 50 52 4F 43  20 52 50 41 44 0D        | ENDPROC RPAD.  |

9000 PROC RPAD(REF A$,M) CLOSED.9010 FOR
 I:=1 TO M-LEN(A$) DO.9020 A$:=A$+" ".90
30 ENDFOR I.9040 ENDPROC RPAD.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL