00000000: C1 01 DA 01 F0 01 24 54 1A 00 44 45 4D 4F 20 4F |......$T..DEMO O|
00000010: 46 20 56 41 4C 55 45 20 46 55 4E 43 54 49 4F 4E |F VALUE FUNCTION|
00000020: 24 56 34 00 20 54 41 4B 45 53 20 41 20 53 54 52 |$V4. TAKES A STR|
00000030: 49 4E 47 20 41 4E 44 20 43 4F 4E 56 45 52 54 53 |ING AND CONVERTS|
00000040: 20 54 4F 20 41 20 4E 55 4D 42 45 52 49 43 20 56 | TO A NUMBERIC V|
00000050: 41 4C 55 45 24 58 1A 00 20 4F 4E 4C 59 20 46 4F |ALUE$X.. ONLY FO|
00000060: 52 20 49 4E 54 45 47 45 52 53 20 21 21 21 24 5A |R INTEGERS !!!$Z|
00000070: 0C 8C 8F 01 00 02 00 0A 93 C5 24 5C 18 5F 03 01 |..........$\._..|
00000080: 93 65 60 61 00 20 43 4C 45 41 52 20 53 43 52 45 |.e`a. CLEAR SCRE|
00000090: 45 4E 24 5E 04 95 24 60 26 B5 03 1B 4E 55 4D 42 |EN$^..$`&...NUMB|
000000A0: 45 52 20 50 4C 45 41 53 45 20 28 30 20 54 4F 20 |ER PLEASE (0 TO |
000000B0: 53 54 4F 50 29 3A 20 B7 09 01 BA BB 24 62 26 5F |STOP): .....$b&_|
000000C0: 03 0C 54 48 45 20 56 41 4C 55 45 20 4F 46 65 67 |..THE VALUE OFeg|
000000D0: 06 01 65 67 03 02 49 53 65 67 0A 02 09 01 18 64 |..eg..ISeg.....d|
000000E0: 60 61 24 64 0D DA 06 01 03 01 30 2D 96 00 00 24 |`a$d......0-...$|
000000F0: 66 04 00 24 68 0B E9 02 00 00 01 74 03 7C 24 6A |f..$h......t.|$j|
00000100: 15 00 56 45 52 53 49 4F 4E 20 30 2E 31 32 20 4F |..VERSION 0.12 O|
00000110: 4E 4C 59 24 6C 33 00 20 56 45 52 53 49 4F 4E 53 |NLY$l3. VERSIONS|
00000120: 20 31 2E 30 32 20 41 4E 44 20 32 2E 30 30 20 55 | 1.02 AND 2.00 U|
00000130: 53 45 20 4B 45 59 57 4F 52 44 20 56 41 4C 20 49 |SE KEYWORD VAL I|
00000140: 4E 53 54 45 41 44 24 6E 18 00 20 49 4E 54 45 47 |NSTEAD$n.. INTEG|
00000150: 45 52 20 56 41 4C 55 45 53 20 4F 4E 4C 59 24 70 |ER VALUES ONLY$p|
00000160: 09 07 04 09 03 51 3A 24 72 11 07 05 0C 03 07 04 |.....Q:$r.......|
00000170: 16 49 03 01 30 49 29 3A 24 74 0D 68 04 04 02 00 |.I..0I):$t.h....|
00000180: 01 2C 69 00 00 24 76 07 EF 04 05 F2 24 78 06 6E |.,i..$v.....$x.n|
00000190: 00 00 24 7A 2C EF 04 05 0A 02 0C 03 02 00 01 1F |..$z,...........|
000001A0: 04 04 02 00 01 29 19 18 02 00 0A 24 27 F2 00 20 |.....).....$'.. |
000001B0: 52 45 43 55 52 53 49 56 45 20 43 41 4C 4C 24 7C |RECURSIVE CALL$||
000001C0: 04 6F 24 7E 05 EC 02 00 00 00 00 00 00 00 00 00 |.o$~............|
000001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001E0: 05 52 45 50 4C 59 05 56 41 4C 55 45 01 53 01 4C |.REPLY.VALUE.S.L|
000001F0: 04 4F 4E 45 53 00 00 50 |.ONES..P |
A.Z...$T..DEMO OF VALUE FUNCTION$V4. TAK
ES A STRING AND CONVERTS TO A NUMBERIC V
ALUE$X.. ONLY FOR INTEGERS !!!$Z........
.E$\._...E`A. CLEAR SCREEN$^..$`&...NUMB
ER PLEASE (0 TO STOP): .....$B&_..THE VA
LUE OFEG..EG..ISEG.....D`A$D.Z....0-...$
F..$H......T.|$J..VERSION 0.12 ONLY$L3.
VERSIONS 1.02 AND 2.00 USE KEYWORD VAL I
NSTEAD$N.. INTEGER VALUES ONLY$P.....Q:$
R........I..0I):$T.H.....,I..$V.....$X.N
..$Z,................).....$'.. RECURSIV
E CALL$|.O$~............................
.REPLY.VALUE.S.L.ONES..P
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL