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

REVERSE.L

FILE INFORMATION

FILENAME(S): REVERSE.L

FILE TYPE(S): SEQ

FILE SIZE: 172b

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

APPEARS ON: 2 disk(s)

FILE HASH

52eeba70b8487d09db46693ff3b1a0b1a68d476b907bb1e022f843bfeae02649

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 52 45 56 45 52 53  |9000 PROC REVERS|
00000010: 45 28 4D 24 2C 52 45 46  20 4E 24 29 20 43 4C 4F  |E(M$,REF N$) CLO|
00000020: 53 45 44 0D 39 30 31 30  20 58 3A 3D 4C 45 4E 28  |SED.9010 X:=LEN(|
00000030: 4D 24 29 0D 39 30 32 30  20 49 46 20 58 3E 30 20  |M$).9020 IF X>0 |
00000040: 54 48 45 4E 0D 39 30 33  30 20 4E 24 3A 3D 4E 24  |THEN.9030 N$:=N$|
00000050: 2B 4D 24 28 58 29 0D 39  30 34 30 20 52 45 56 45  |+M$(X).9040 REVE|
00000060: 52 53 45 28 4D 24 28 31  3A 58 2D 31 29 2C 4E 24  |RSE(M$(1:X-1),N$|
00000070: 29 0D 39 30 35 30 20 45  4C 53 45 20 0D 39 30 36  |).9050 ELSE .906|
00000080: 30 20 50 52 49 4E 54 20  4E 24 0D 39 30 37 30 20  |0 PRINT N$.9070 |
00000090: 45 4E 44 49 46 20 0D 39  30 38 30 20 45 4E 44 50  |ENDIF .9080 ENDP|
000000A0: 52 4F 43 20 52 45 56 45  52 53 45 0D              |ROC REVERSE.    |

9000 PROC REVERSE(M$,REF N$) CLOSED.9010
 X:=LEN(M$).9020 IF X>0 THEN.9030 N$:=N$
+M$(X).9040 REVERSE(M$(1:X-1),N$).9050 E
LSE .9060 PRINT N$.9070 ENDIF .9080 ENDP
ROC REVERSE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL