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

FUNC.MODEMGET2.0

FILE INFORMATION

FILENAME(S): FUNC.MODEMGET2.0

FILE TYPE(S): SEQ

FILE SIZE: 621b

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

APPEARS ON: 2 disk(s)

FILE HASH

8b132f14f9528918aebe263e205ce65dc0039775da30da9bbb7820c1c82e4c40

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMAL 2 FUNC.MODEMGET2.0 SEQ hedning, Mattias H00r 13 1 DOWNLOAD FILE
CCS COMAL 2 FUNC.MODEMGET2.0 SEQ hedning, Mattias H00r 13 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 20  44 45 4C 45 54 45 20 22  |0010 // DELETE "|
00000010: 30 3A 4D 4F 44 45 4D 27  47 45 54 2E 46 55 4E 43  |0:MODEM'GET.FUNC|
00000020: 22 0D 30 30 32 30 20 2F  2F 20 4C 49 53 54 20 20  |".0020 // LIST  |
00000030: 20 22 30 3A 4D 4F 44 45  4D 27 47 45 54 2E 46 55  | "0:MODEM'GET.FU|
00000040: 4E 43 22 0D 30 30 33 30  20 2F 2F 20 20 42 59 20  |NC".0030 //  BY |
00000050: 43 41 50 54 41 49 4E 20  43 4F 4D 41 4C 20 41 4E  |CAPTAIN COMAL AN|
00000060: 44 20 46 52 49 45 4E 44  53 0D 30 30 34 30 20 2F  |D FRIENDS.0040 /|
00000070: 2F 0D 30 30 35 30 20 C6  D5 CE C3 20 4D 4F 44 45  |/.0050 .... MODE|
00000080: 4D 27 47 45 54 24 28 46  27 4E 55 4D 29 20 C3 CC  |M'GET$(F'NUM) ..|
00000090: CF D3 C5 C4 0D 30 30 36  30 20 20 20 4F 4C 44 27  |.....0060   OLD'|
000000A0: 4C 4F 3A 3D D0 C5 C5 CB  28 24 30 33 32 34 29 0D  |LO:=....($0324).|
000000B0: 30 30 37 30 20 20 20 4F  4C 44 27 48 49 3A 3D D0  |0070   OLD'HI:=.|
000000C0: C5 C5 CB 28 24 30 33 32  35 29 0D 30 30 38 30 20  |...($0325).0080 |
000000D0: 20 20 C4 C9 CD 20 43 24  20 CF C6 20 31 0D 30 30  |  ... C$ .. 1.00|
000000E0: 39 30 20 20 20 D4 D2 C1  D0 20 0D 30 31 30 30 20  |90   .... .0100 |
000000F0: 20 20 20 20 D4 D2 C1 D0  20 C5 D3 C3 2D 0D 30 31  |    .... ...-.01|
00000100: 31 30 20 20 20 20 20 D0  CF CB C5 20 24 30 33 32  |10     .... $032|
00000110: 34 2C D0 C5 C5 CB 28 24  30 33 32 41 29 0D 30 31  |4,....($032A).01|
00000120: 32 30 20 20 20 20 20 D0  CF CB C5 20 24 30 33 32  |20     .... $032|
00000130: 35 2C D0 C5 C5 CB 28 24  30 33 32 42 29 0D 30 31  |5,....($032B).01|
00000140: 33 30 20 20 20 20 20 43  24 3A 3D C7 C5 D4 24 28  |30     C$:=...$(|
00000150: 46 27 4E 55 4D 2C 31 29  0D 30 31 34 30 20 20 20  |F'NUM,1).0140   |
00000160: 20 20 D0 CF CB C5 20 24  30 33 32 34 2C 4F 4C 44  |  .... $0324,OLD|
00000170: 27 4C 4F 0D 30 31 35 30  20 20 20 20 20 D0 CF CB  |'LO.0150     ...|
00000180: C5 20 24 30 33 32 35 2C  4F 4C 44 27 48 49 0D 30  |. $0325,OLD'HI.0|
00000190: 31 36 30 20 20 20 20 20  D4 D2 C1 D0 20 C5 D3 C3  |160     .... ...|
000001A0: 2B 0D 30 31 37 30 20 20  20 20 20 D2 C5 D4 D5 D2  |+.0170     .....|
000001B0: CE 20 43 24 0D 30 31 38  30 20 20 20 C8 C1 CE C4  |. C$.0180   ....|
000001C0: CC C5 D2 20 0D 30 31 39  30 20 20 20 20 20 D0 CF  |... .0190     ..|
000001D0: CB C5 20 24 30 33 32 34  2C 4F 4C 44 27 4C 4F 0D  |.. $0324,OLD'LO.|
000001E0: 30 32 30 30 20 20 20 20  20 D0 CF CB C5 20 24 30  |0200     .... $0|
000001F0: 33 32 35 2C 4F 4C 44 27  48 49 0D 30 32 31 30 20  |325,OLD'HI.0210 |
00000200: 20 20 20 20 D4 D2 C1 D0  20 C5 D3 C3 2B 0D 30 32  |    .... ...+.02|
00000210: 32 30 20 20 20 20 20 D2  C5 D0 CF D2 D4 20 2F 2F  |20     ...... //|
00000220: 20 50 41 53 53 20 45 52  52 4F 52 20 4F 55 54 53  | PASS ERROR OUTS|
00000230: 49 44 45 0D 30 32 33 30  20 20 20 C5 CE C4 D4 D2  |IDE.0230   .....|
00000240: C1 D0 20 2F 2F 20 4F 46  20 54 48 49 53 20 52 4F  |.. // OF THIS RO|
00000250: 55 54 49 4E 45 2E 0D 30  32 34 30 20 C5 CE C4 C6  |UTINE..0240 ....|
00000260: D5 CE C3 20 0D 30 32 35  30 20 2F 2F 0D           |... .0250 //.   |
0010 // DELETE "0:MODEM'GET.FUNC".0020 /
/ LIST   "0:MODEM'GET.FUNC".0030 //  BY 
CAPTAIN COMAL AND FRIENDS.0040 //.0050 F
UNC MODEM'GET$(F'NUM) CLOSED.0060   OLD'
LO:=PEEK($0324).0070   OLD'HI:=PEEK($032
5).0080   DIM C$ OF 1.0090   TRAP .0100 
    TRAP ESC-.0110     POKE $0324,PEEK($
032A).0120     POKE $0325,PEEK($032B).01
30     C$:=GET$(F'NUM,1).0140     POKE $
0324,OLD'LO.0150     POKE $0325,OLD'HI.0
160     TRAP ESC+.0170     RETURN C$.018
0   HANDLER .0190     POKE $0324,OLD'LO.
0200     POKE $0325,OLD'HI.0210     TRAP
 ESC+.0220     REPORT // PASS ERROR OUTS
IDE.0230   ENDTRAP // OF THIS ROUTINE..0
240 ENDFUNC .0250 //.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL