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

SQUEEZE.L

FILE INFORMATION

FILENAME(S): SQUEEZE.L

FILE TYPE(S): SEQ

FILE SIZE: 315b

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

APPEARS ON: 2 disk(s)

FILE HASH

210e84275400bb2e38552e2f0d65a8037fb5450d3280adf48e7a79ee0cda0337

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL SQUEEZE.L SEQ hedning, Mattias H00r 8 16 DOWNLOAD FILE
CCS COMAL SQUEEZE.L SEQ hedning, Mattias H00r 8 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 53 51 55 45 45 5A  |9000 PROC SQUEEZ|
00000010: 45 28 52 45 46 20 53 54  52 49 4E 47 24 29 20 43  |E(REF STRING$) C|
00000020: 4C 4F 53 45 44 0D 39 30  31 30 20 49 46 20 53 54  |LOSED.9010 IF ST|
00000030: 52 49 4E 47 24 3C 3E 22  22 20 54 48 45 4E 0D 39  |RING$<>"" THEN.9|
00000040: 30 32 30 20 53 54 41 52  54 3A 3D 31 0D 39 30 33  |020 START:=1.903|
00000050: 30 20 57 48 49 4C 45 20  28 28 53 54 52 49 4E 47  |0 WHILE ((STRING|
00000060: 24 28 53 54 41 52 54 29  3D 22 20 22 29 20 41 4E  |$(START)=" ") AN|
00000070: 44 20 28 53 54 41 52 54  3C 4C 45 4E 28 53 54 52  |D (START<LEN(STR|
00000080: 49 4E 47 24 29 29 29 20  44 4F 20 53 54 41 52 54  |ING$))) DO START|
00000090: 3A 2B 31 0D 39 30 34 30  20 45 4E 44 27 50 4F 53  |:+1.9040 END'POS|
000000A0: 3A 3D 4C 45 4E 28 53 54  52 49 4E 47 24 29 0D 39  |:=LEN(STRING$).9|
000000B0: 30 35 30 20 57 48 49 4C  45 20 28 28 53 54 52 49  |050 WHILE ((STRI|
000000C0: 4E 47 24 28 45 4E 44 27  50 4F 53 29 3D 22 20 22  |NG$(END'POS)=" "|
000000D0: 29 20 41 4E 44 20 28 45  4E 44 27 50 4F 53 3E 53  |) AND (END'POS>S|
000000E0: 54 41 52 54 29 29 20 44  4F 20 45 4E 44 27 50 4F  |TART)) DO END'PO|
000000F0: 53 3A 2D 31 0D 39 30 36  30 20 53 54 52 49 4E 47  |S:-1.9060 STRING|
00000100: 24 3A 3D 53 54 52 49 4E  47 24 28 53 54 41 52 54  |$:=STRING$(START|
00000110: 3A 45 4E 44 27 50 4F 53  29 0D 39 30 37 30 20 45  |:END'POS).9070 E|
00000120: 4E 44 49 46 20 0D 39 30  38 30 20 45 4E 44 50 52  |NDIF .9080 ENDPR|
00000130: 4F 43 20 53 51 55 45 45  5A 45 0D                 |OC SQUEEZE.     |

9000 PROC SQUEEZE(REF STRING$) CLOSED.90
10 IF STRING$<>"" THEN.9020 START:=1.903
0 WHILE ((STRING$(START)=" ") AND (START
<LEN(STRING$))) DO START:+1.9040 END'POS
:=LEN(STRING$).9050 WHILE ((STRING$(END'
POS)=" ") AND (END'POS>START)) DO END'PO
S:-1.9060 STRING$:=STRING$(START:END'POS
).9070 ENDIF .9080 ENDPROC SQUEEZE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL