00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 20 20 20 20 |..^U:ZERO. |
00000010: 20 20 20 20 20 DA C5 D2 CF 20 D0 C1 C7 C5 3A 20 | .... ....: |
00000020: C2 49 54 53 0D 20 20 20 20 20 20 C1 20 C2 45 54 |.ITS. . .ET|
00000030: 54 45 52 20 C4 49 53 4B 20 C4 52 49 56 45 20 C9 |TER .ISK .RIVE .|
00000040: CE D0 D5 D4 0D 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000050: 42 59 20 CD 49 4B 45 20 CD 41 59 4E 41 52 44 0D |BY .IKE .AYNARD.|
00000060: 0D 20 20 20 20 C8 4F 57 20 4D 41 4E 59 20 54 49 |. .OW MANY TI|
00000070: 4D 45 53 20 48 41 56 45 20 59 4F 55 20 52 45 41 |MES HAVE YOU REA|
00000080: 44 20 41 0D 54 45 58 54 20 46 49 4C 45 20 54 48 |D A.TEXT FILE TH|
00000090: 41 54 20 53 54 41 52 54 45 44 20 57 49 54 48 20 |AT STARTED WITH |
000000A0: 54 48 45 0D 46 41 4D 49 4C 49 41 52 20 53 41 59 |THE.FAMILIAR SAY|
000000B0: 49 4E 47 20 22 C8 4F 57 20 4D 41 4E 59 20 54 49 |ING ".OW MANY TI|
000000C0: 4D 45 53 20 48 41 56 45 0D 59 4F 55 20 2E 2E 2E |MES HAVE.YOU ...|
000000D0: 22 3F 20 20 D7 45 4C 4C 2C 20 41 44 44 20 41 4E |"? .ELL, ADD AN|
000000E0: 4F 54 48 45 52 20 54 4F 20 4C 49 53 54 21 0D 0D |OTHER TO LIST!..|
000000F0: 20 20 20 20 C8 4F 57 20 4D 41 4E 59 20 54 49 4D | .OW MANY TIM|
00000100: 45 53 20 48 41 56 45 20 59 4F 55 20 57 49 53 48 |ES HAVE YOU WISH|
00000110: 45 44 0D 54 48 41 54 20 C2 C1 D3 C9 C3 27 53 20 |ED.THAT .....'S |
00000120: C9 CE D0 D5 D4 20 52 4F 55 54 49 4E 45 20 57 4F |..... ROUTINE WO|
00000130: 55 4C 44 4E 27 54 0D 53 54 4F 50 20 49 4E 50 55 |ULDN'T.STOP INPU|
00000140: 54 54 49 4E 47 20 57 48 45 4E 20 41 20 43 4F 4D |TTING WHEN A COM|
00000150: 4D 41 20 57 41 53 0D 52 45 41 43 48 45 44 20 49 |MA WAS.REACHED I|
00000160: 4E 20 41 20 44 41 54 41 20 46 49 4C 45 3F 20 20 |N A DATA FILE? |
00000170: D7 49 53 48 20 4E 4F 20 4D 4F 52 45 21 0D D4 48 |.ISH NO MORE!..H|
00000180: 49 53 20 4D 4F 4E 54 48 27 53 20 C2 C9 D4 D3 20 |IS MONTH'S .... |
00000190: 44 45 53 43 52 49 42 45 53 20 41 4E 20 CD CC 0D |DESCRIBES AN ...|
000001A0: 52 4F 55 54 49 4E 45 20 54 48 41 54 20 52 45 41 |ROUTINE THAT REA|
000001B0: 44 53 20 44 41 54 41 20 46 52 4F 4D 20 54 48 45 |DS DATA FROM THE|
000001C0: 20 44 49 53 4B 0D 44 52 49 56 45 20 41 4E 44 20 | DISK.DRIVE AND |
000001D0: 53 54 4F 52 45 53 20 49 54 20 49 4E 20 54 48 45 |STORES IT IN THE|
000001E0: 20 46 49 52 53 54 2D 0D 44 45 46 49 4E 45 44 20 | FIRST-.DEFINED |
000001F0: 53 54 52 49 4E 47 2E 0D 0D 0D 20 20 20 20 D4 48 |STRING.... .H|
00000200: 45 20 52 4F 55 54 49 4E 45 2C 20 C9 CE D0 D5 D4 |E ROUTINE, .....|
00000210: 20 C1 CE D9 2C 20 57 41 53 0D 57 52 49 54 54 45 | ..., WAS.WRITTE|
00000220: 4E 20 41 20 46 45 57 20 59 45 41 52 53 20 41 47 |N A FEW YEARS AG|
00000230: 4F 20 42 59 20 41 20 50 52 45 56 49 4F 55 53 0D |O BY A PREVIOUS.|
00000240: CC CF C1 C4 D3 D4 C1 D2 20 45 4D 50 4C 4F 59 45 |........ EMPLOYE|
00000250: 45 20 41 4E 44 20 48 41 53 20 42 45 45 4E 20 55 |E AND HAS BEEN U|
00000260: 53 45 44 0D 49 4E 20 4D 41 4E 59 20 44 49 46 46 |SED.IN MANY DIFF|
00000270: 45 52 45 4E 54 20 50 52 4F 47 52 41 4D 53 2E 20 |ERENT PROGRAMS. |
00000280: 20 C9 54 27 53 20 56 45 52 59 0D 55 53 45 46 55 | .T'S VERY.USEFU|
00000290: 4C 20 46 4F 52 20 49 4E 50 55 54 54 49 4E 47 20 |L FOR INPUTTING |
000002A0: 44 41 54 41 20 46 52 4F 4D 20 41 20 54 45 58 54 |DATA FROM A TEXT|
000002B0: 0D 46 49 4C 45 2E 20 20 C1 53 20 59 4F 55 20 4B |.FILE. .S YOU K|
000002C0: 4E 4F 57 2C 20 C2 C1 D3 C9 C3 27 53 20 C9 CE D0 |NOW, .....'S ...|
000002D0: D5 D4 23 0D 43 4F 4D 4D 41 4E 44 20 43 4F 4E 53 |..#.COMMAND CONS|
000002E0: 49 44 45 52 53 20 54 48 45 20 45 4E 44 20 4F 46 |IDERS THE END OF|
000002F0: 20 41 20 4C 49 4E 45 0D 54 4F 19 31 53 0F 0F 0F | A LINE.TO.1S...|
00000300: 0F 0F 0F 0F 0F FF FF FF FF FF AF AE 07 71 30 07 |.............q0.|
00000310: 07 07 07 07 07 07 07 07 FF FF FF FF 71 32 16 FF |............q2..|
00000320: FF 36 FF FF 3B 32 13 FF 37 12 B6 17 FF FF 3F 1B |.6..;2..7.....?.|
00000330: BB 36 17 33 FF 3B 32 12 BB 27 FF 33 B2 B3 FF FF |.6.3.;2..'.3....|
00000340: 32 FF FF B2 12 FF 32 FF BB 33 FF FF 3F FF 3F 17 |2.....2..3..?.?.|
00000350: FF 3B 32 13 FF 3F 36 13 13 FF 32 B7 33 27 FF BB |.;2..?6...2.3'..|
00000360: 3F FF 33 FF FF 36 1B FF 36 17 3B 3F FF 3B 32 13 |?.3..6..6.;?.;2.|
00000370: FF FF FF FF 34 15 3C FF 33 33 BF 36 17 36 1B 36 |....4.<.33.6.6.6|
00000380: 1F 17 27 12 FF 33 B2 FF FF FF 71 32 13 FF 70 FF |..'..3....q2..p.|
00000390: FF 33 BF B6 FF BB 33 FF FF 36 FF FF 3B FF B3 B3 |.3....3..6..;...|
000003A0: FF 32 FF FF 32 B7 27 16 17 33 33 BA FF 3B 3F FF |.2..2.'..33..;?.|
000003B0: 3B 32 13 FF FF BB FF FF 33 B7 3B FF FF B2 12 FF |;2......3.;.....|
000003C0: 32 FF BB 33 FF 27 1A 3F FF B6 1B 36 1F 17 FF 32 |2..3.'.?...6...2|
000003D0: B7 33 FF 36 FF FF 36 17 36 1B 36 12 B3 16 1E 33 |.3.6..6.6.6....3|
000003E0: B3 FF 3B 3F FF 3E 33 FF 3F 07 FF 33 BF 3F FF 33 |..;?.>3.?..3.?.3|
000003F0: FF 33 B7 3B 33 FF 36 17 |.3.;3.6. |
..^U:ZERO. ZERO PAGE: BITS.
A BETTER DISK DRIVE INPUT.
BY MIKE MAYNARD.. HOW MANY TIMES HAVE
YOU READ A.TEXT FILE THAT STARTED WITH
THE.FAMILIAR SAYING "HOW MANY TIMES HAVE
.YOU ..."? WELL, ADD ANOTHER TO LIST!..
HOW MANY TIMES HAVE YOU WISHED.THAT
BASIC'S INPUT ROUTINE WOULDN'T.STOP INPU
TTING WHEN A COMMA WAS.REACHED IN A DATA
FILE? WISH NO MORE!.THIS MONTH'S BITS
DESCRIBES AN ML.ROUTINE THAT READS DATA
FROM THE DISK.DRIVE AND STORES IT IN THE
FIRST-.DEFINED STRING.... THE ROUTIN
E, INPUT ANY, WAS.WRITTEN A FEW YEARS AG
O BY A PREVIOUS.LOADSTAR EMPLOYEE AND HA
S BEEN USED.IN MANY DIFFERENT PROGRAMS.
IT'S VERY.USEFUL FOR INPUTTING DATA FRO
M A TEXT.FILE. AS YOU KNOW, BASIC'S INP
UT#.COMMAND CONSIDERS THE END OF A LINE.
TO.1S................Q0.............Q2..
.6..;2..7.....?..6.3.;2..'.3....2.....2.
.3..?.?..;2..?6...2.3'..?.3..6..6.;?.;2.
....4.<.33.6.6.6..'..3....Q2..P..3....3.
.6..;....2..2.'..33..;?.;2......3.;.....
2..3.'.?...6...2.3.6..6.6.6....3..;?.>3.
?..3.?.3.3.;3.6.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL