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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL