17-6
FILE INFORMATION
FILENAME(S): 17-6
FILE TYPE(S): PRG
FILE SIZE: 821b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
547009431c2265078b1ed6f203d67553a523f55ac23c91e33c4d09d025b4c7ea
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 17-6 | PRG | DuncanTwain | 29 | 6 | DOWNLOAD FILE |
| PROG 64 WEST | 17-6 | PRG | DuncanTwain | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 8F 20 2A 20 20 20 20 50 52 4F |....... * PRO|
00000010: 47 52 41 4D 20 31 37 2D 36 20 20 20 20 20 2A 00 |GRAM 17-6 *.|
00000020: 25 08 01 00 3A 00 61 08 64 00 9F 20 32 2C 32 2C |%...:.a.d.. 2,2,|
00000030: 30 2C C7 28 36 29 3A 8F 20 4F 50 45 4E 53 20 46 |0,.(6):. OPENS F|
00000040: 49 4C 45 20 32 3B 20 33 30 30 20 42 41 55 44 2C |ILE 2; 300 BAUD,|
00000050: 20 38 20 42 49 54 2C 20 4E 4F 20 50 41 52 49 54 | 8 BIT, NO PARIT|
00000060: 59 00 A3 08 65 00 8F 20 4F 50 45 4E 20 32 2C 32 |Y...e.. OPEN 2,2|
00000070: 2C 30 2C 43 48 52 24 28 33 38 29 2B 43 48 52 24 |,0,CHR$(38)+CHR$|
00000080: 28 39 36 29 20 46 4F 52 20 41 53 43 49 49 20 37 |(96) FOR ASCII 7|
00000090: 20 42 49 54 53 20 2B 20 45 56 45 4E 20 50 41 52 | BITS + EVEN PAR|
000000A0: 49 54 59 00 BA 08 C8 00 86 20 46 25 28 32 35 35 |ITY...... F%(255|
000000B0: 29 2C 20 54 25 28 32 35 35 29 00 D6 08 D2 00 81 |), T%(255)......|
000000C0: 20 4A B2 33 32 20 A4 20 36 34 3A 20 54 25 28 4A | J.32 . 64: T%(J|
000000D0: 29 B2 4A 3A 20 82 00 03 09 DC 00 81 20 4A B2 36 |).J: ....... J.6|
000000E0: 35 20 A4 20 39 30 3A 20 54 25 28 4A 29 B2 4A AA |5 . 90: T%(J).J.|
000000F0: 33 32 3A 20 82 20 3A 8F 20 4C 4F 57 45 52 2D 43 |32: . :. LOWER-C|
00000100: 41 53 45 00 1F 09 E6 00 81 20 4A B2 39 31 20 A4 |ASE...... J.91 .|
00000110: 20 39 35 3A 20 54 25 28 4A 29 B2 4A 3A 20 82 00 | 95: T%(J).J: ..|
00000120: 53 09 F0 00 81 20 4A B2 31 39 33 20 A4 20 32 31 |S.... J.193 . 21|
00000130: 38 3A 20 54 25 28 4A 29 B2 4A AB 31 32 38 3A 20 |8: T%(J).J.128: |
00000140: 82 20 3A 8F 20 56 49 43 20 55 50 50 45 52 2D 43 |. :. VIC UPPER-C|
00000150: 41 53 45 00 86 09 FA 00 54 25 28 31 33 33 29 B2 |ASE.....T%(133).|
00000160: 32 37 3A 20 54 25 28 31 33 34 29 B2 31 32 37 3A |27: T%(134).127:|
00000170: 20 54 25 28 31 33 35 29 B2 33 3A 20 54 25 28 31 | T%(135).3: T%(1|
00000180: 33 36 29 B2 31 37 00 C4 09 FB 00 8F 20 54 48 45 |36).17...... THE|
00000190: 53 45 20 41 52 45 20 54 52 55 45 20 41 53 43 49 |SE ARE TRUE ASCI|
000001A0: 49 3A 20 49 45 20 45 53 43 2C 20 44 45 4C 2C 20 |I: IE ESC, DEL, |
000001B0: 43 54 52 4C 2D 43 20 42 52 45 41 4B 2C 20 43 54 |CTRL-C BREAK, CT|
000001C0: 52 4C 2D 51 00 E0 09 04 01 54 25 28 31 33 37 29 |RL-Q.....T%(137)|
000001D0: B2 31 37 3A 20 54 25 28 31 33 38 29 B2 31 34 34 |.17: T%(138).144|
000001E0: 00 08 0A 05 01 8F 20 54 48 45 53 45 20 41 52 45 |...... THESE ARE|
000001F0: 20 41 4C 4C 20 56 49 43 3A 20 49 45 20 48 4F 4D | ALL VIC: IE HOM|
00000200: 45 2C 20 42 4C 41 43 4B 00 18 0A 2C 01 81 20 4A |E, BLACK...,.. J|
00000210: B2 30 20 A4 20 32 35 35 00 34 0A 36 01 8B 20 54 |.0 . 255.4.6.. T|
00000220: 25 28 4A 29 B1 30 20 A7 20 46 25 28 54 25 28 4A |%(J).0 . F%(T%(J|
00000230: 29 29 B2 4A 00 3A 0A 40 01 82 00 61 0A 90 01 99 |)).J.:.@...a....|
00000240: 20 C7 28 31 34 37 29 20 C7 28 31 34 29 3A 8F 20 | .(147) .(14):. |
00000250: 43 4C 45 41 52 3B 20 4C 4F 57 45 52 2D 43 41 53 |CLEAR; LOWER-CAS|
00000260: 45 00 7B 0A F4 01 8B 20 C2 28 36 36 39 29 B3 C2 |E.{.... .(669)..|
00000270: 28 36 37 30 29 20 A7 20 35 30 30 00 A5 0A F5 01 |(670) . 500.....|
00000280: 8F 20 49 46 20 28 50 45 45 4B 28 33 37 31 35 31 |. IF (PEEK(37151|
00000290: 29 20 41 4E 44 20 36 34 29 3D 36 34 20 54 48 45 |) AND 64)=64 THE|
000002A0: 4E 20 35 30 31 00 D9 0A FE 01 A1 20 4F 55 54 24 |N 501...... OUT$|
000002B0: 3A 20 8B 20 4F 55 54 24 B1 22 22 20 A7 20 98 32 |: . OUT$."" . .2|
000002C0: 2C C7 28 54 25 28 C6 28 4F 55 54 24 29 29 29 3B |,.(T%(.(OUT$)));|
000002D0: 3A 20 99 20 4F 55 54 24 3B 00 02 0B 08 02 A1 23 |: . OUT$;......#|
000002E0: 32 2C 49 4E 24 3A 20 8B 20 49 4E 24 B1 22 22 20 |2,IN$: . IN$."" |
000002F0: A7 20 99 20 C7 28 46 25 28 C6 28 49 4E 24 29 29 |. . .(F%(.(IN$))|
00000300: 29 3B 00 28 0B 09 02 8F 20 49 4E 24 3D 49 4E 24 |);.(.... IN$=IN$|
00000310: 20 41 4E 44 20 31 32 37 20 46 4F 52 20 37 20 42 | AND 127 FOR 7 B|
00000320: 49 54 20 43 4F 44 45 2E 00 32 0B 12 02 89 20 35 |IT CODE..2.... 5|
00000330: 30 30 00 00 00 |00... |
....... * PROGRAM 17-6 *.%...:.A.
D.. 2,2,0,G(6):. OPENS FILE 2; 300 BAUD,
8 BIT, NO PARITY...E.. OPEN 2,2,0,CHR$(
38)+CHR$(96) FOR ASCII 7 BITS + EVEN PAR
ITY...H.. F%(255), T%(255).V.R.. J.32 .
64: T%(J).J: ....... J.65 . 90: T%(J).J.
32: . :. LOWER-CASE...... J.91 . 95: T%(
J).J: ..S.... J.193 . 218: T%(J).J.128:
. :. VIC UPPER-CASE.....T%(133).27: T%(1
34).127: T%(135).3: T%(136).17.D.... THE
SE ARE TRUE ASCII: IE ESC, DEL, CTRL-C B
REAK, CTRL-Q.....T%(137).17: T%(138).144
...... THESE ARE ALL VIC: IE HOME, BLACK
...,.. J.0 . 255.4.6.. T%(J).0 . F%(T%(J
)).J.:.@...A.... G(147) G(14):. CLEAR; L
OWER-CASE.{.... B(669).B(670) . 500.....
. IF (PEEK(37151) AND 64)=64 THEN 501.Y.
... OUT$: . OUT$."" . .2,G(T%(F(OUT$)));
: . OUT$;......#2,IN$: . IN$."" . . G(F%
(F(IN$)));.(.... IN$=IN$ AND 127 FOR 7 B
IT CODE..2.... 500...
> CLICK IMAGE PREVIEW FOR FULL MODAL