LISTER TEXT

FILE INFORMATION

FILENAME(S): LISTER TEXT

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-10-19 22:49:33

APPEARS ON: 1 disk(s)

FILE HASH

317083856c2a7c68f9a8928c6f6a01978a166b6fe28d62519f54fcf050dd0d82

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GOLD DISK 9	LISTER TEXT	PRG	Radd Maxx	8	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 22 08 0A 00 97 35  33 32 38 31 2C 30 3A 97  |.."....53281,0:.|
00000010: 35 33 32 38 30 2C 30 3A  99 C7 28 38 29 C7 28 31  |53280,0:..(8).(1|
00000020: 34 29 00 4C 08 14 00 99  22 05 93 20 20 20 20 20  |4).L...."..     |
00000030: 20 20 20 20 D4 48 45 20  C7 4F 4C 44 20 C4 49 53  |    .HE .OLD .IS|
00000040: 4B 20 C6 4F 52 4D 41 54  54 45 52 22 00 74 08 1E  |K .ORMATTER".t..|
00000050: 00 99 22 20 20 20 20 20  20 20 20 20 A3 A3 A3 A3  |.."         ....|
00000060: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
00000070: A3 A3 A3 22 00 A3 08 28  00 99 22 20 20 D4 48 45  |..."...(.."  .HE|
00000080: 20 C7 4F 4C 44 20 C4 49  53 4B 20 C6 4F 52 4D 41  | .OLD .ISK .ORMA|
00000090: 54 54 45 52 20 41 4C 4C  4F 57 53 20 4F 4E 45 20  |TTER ALLOWS ONE |
000000A0: 54 4F 22 00 D2 08 32 00  99 22 4C 49 53 54 20 54  |TO"...2.."LIST T|
000000B0: 48 45 49 52 20 C2 C1 D3  C9 C3 20 50 52 4F 47 52  |HEIR ..... PROGR|
000000C0: 41 4D 53 20 49 4E 20 41  20 52 45 41 44 41 42 4C  |AMS IN A READABL|
000000D0: 45 22 00 FE 08 3C 00 99  22 46 4F 52 4D 41 54 2E  |E"...<.."FORMAT.|
000000E0: 20 20 C6 4F 52 20 45 58  41 4D 50 4C 45 20 41 20  |  .OR EXAMPLE A |
000000F0: 50 52 4F 47 52 41 4D 20  4C 49 4B 45 3A 22 00 18  |PROGRAM LIKE:"..|
00000100: 09 46 00 99 22 11 20 20  20 20 20 31 30 20 46 4F  |.F..".     10 FO|
00000110: 52 49 3D 31 54 4F 31 30  00 42 09 50 00 99 22 20  |RI=1TO10.B.P.." |
00000120: 20 20 20 20 32 30 20 49  4E 50 55 54 42 3A 49 46  |    20 INPUTB:IF|
00000130: 42 3E 30 54 48 45 4E 41  3D 41 2B 42 3A 4B 3D 4B  |B>0THENA=A+B:K=K|
00000140: 2B 31 00 78 09 5A 00 99  22 20 20 20 20 20 33 30  |+1.x.Z.."     30|
00000150: 20 4E 45 58 54 3A 50 52  49 4E 54 22 C7 28 33 34  | NEXT:PRINT".(34|
00000160: 29 22 41 56 45 52 41 47  45 20 20 49 53 22 C7 28  |)"AVERAGE  IS".(|
00000170: 33 34 29 22 3B 42 2F 4B  00 92 09 64 00 99 22 11  |34)";B/K...d..".|
00000180: 57 49 4C 4C 20 42 45 20  4C 49 53 54 45 44 20 41  |WILL BE LISTED A|
00000190: 53 3A 00 B2 09 82 00 99  22 11 20 20 20 20 20 31  |S:......".     1|
000001A0: 30 20 20 20 20 46 4F 52  20 49 3D 31 20 54 4F 20  |0    FOR I=1 TO |
000001B0: 31 30 00 CD 09 A0 00 99  22 20 20 20 20 20 32 30  |10......"     20|
000001C0: 20 20 20 20 20 20 49 4E  50 55 54 20 42 00 EC 09  |      INPUT B...|
000001D0: AA 00 99 22 20 20 20 20  20 20 20 20 20 20 20 20  |..."            |
000001E0: 20 49 46 20 42 3E 30 20  54 48 45 4E 00 07 0A B4  | IF B>0 THEN....|
000001F0: 00 99 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |.."             |
00000200: 20 20 41 3D 41 2B 42 00  22 0A BE 00 99 22 20 20  |  A=A+B."...."  |
00000210: 20 20 20 20 20 20 20 20  20 20 20 20 20 4B 3D 4B  |             K=K|
00000220: 2B 31 00 38 0A C3 00 99  22 20 20 20 20 20 33 30  |+1.8...."     30|
00000230: 20 20 20 20 4E 45 58 54  00 6D 0A C8 00 99 22 20  |    NEXT.m...." |
00000240: 20 20 20 20 20 20 20 20  20 20 50 52 49 4E 54 20  |          PRINT |
00000250: 22 C7 28 33 34 29 22 41  56 45 52 41 47 45 20 20  |".(34)"AVERAGE  |
00000260: 49 53 22 C7 28 33 34 29  22 3B 42 2F 4B 00 9D 0A  |IS".(34)";B/K...|
00000270: D2 00 99 22 11 C1 53 20  59 4F 55 20 43 41 4E 20  |..."..S YOU CAN |
00000280: 53 45 45 2C 20 4D 55 4C  54 49 50 4C 45 20 53 54  |SEE, MULTIPLE ST|
00000290: 41 54 45 4D 45 4E 54 53  20 41 52 45 22 00 CE 0A  |ATEMENTS ARE"...|
000002A0: DC 00 99 22 50 52 49 4E  54 45 44 20 4F 4E 20 53  |..."PRINTED ON S|
000002B0: 45 50 41 52 41 54 45 20  4C 49 4E 45 53 20 41 4E  |EPARATE LINES AN|
000002C0: 44 20 54 48 45 20 42 4F  44 49 45 53 22 3B 00 FF  |D THE BODIES";..|
000002D0: 0A E6 00 99 22 4F 46 20  C6 CF D2 20 4C 4F 4F 50  |...."OF ... LOOP|
000002E0: 53 20 41 4E 44 20 C9 C6  2D D4 C8 C5 CE 27 53 20  |S AND ..-....'S |
000002F0: 41 52 45 20 49 4E 44 45  4E 54 45 44 2E 22 3B 00  |ARE INDENTED.";.|
00000300: 28 0B F0 00 99 22 11 20  20 20 20 20 20 20 20 C8  |(....".        .|
00000310: 49 54 20 41 4E 59 20 4B  45 59 20 54 4F 20 43 4F  |IT ANY KEY TO CO|
00000320: 4E 54 49 4E 55 45 22 3B  00 3A 0B FA 00 97 31 39  |NTINUE";.:....19|
00000330: 38 2C 30 3A 92 31 39 38  2C 31 00 69 0B 04 01 99  |8,0:.198,1.i....|
00000340: 22 93 D4 4F 20 55 53 45  20 54 48 45 20 50 52 4F  |"..O USE THE PRO|
00000350: 47 52 41 4D 20 46 4F 4C  4C 4F 57 20 54 48 45 53  |GRAM FOLLOW THES|
00000360: 45 20 53 54 45 50 53 3A  22 00 98 0B 18 01 99 22  |E STEPS:"......"|
00000370: 11 20 20 31 2E 20 C9 4E  53 45 52 54 20 C7 4F 4C  |.  1. .NSERT .OL|
00000380: 44 20 44 49 53 4B 20 D6  4F 4C 2E 20 39 20 49 4E  |D DISK .OL. 9 IN|
00000390: 20 44 52 49 56 45 2E 22  00 CA 0B 22 01 99 22 20  | DRIVE."...".." |
000003A0: 20 32 2E 20 D4 59 50 45  3A 12 20 CC CF C1 C4 20  | 2. .YPE:. .... |
000003B0: 22 C7 28 33 34 29 22 CC  C9 D3 D4 C5 D2 22 C7 28  |".(34)"......".(|
000003C0: 33 34 29 22 2C 38 2C 31  20 92 00 E2 0B 2C 01 99  |34)",8,1 ....,..|
000003D0: 22 20 20 20 20 20 20 20  20 20 20 12 20 CE C5 D7  |"          . ...|
000003E0: 20 92 00 0E 0C 36 01 99  22 20 20 20 20 20 20 D4  | ....6.."      .|
000003F0: 48 45 20 50 52 4F 47 52  41 4D 20 49 53 20 4E 4F  |HE PROGRAM IS NO|
00000400: 57 20 4C 4F 41 44 45 44  20 49 4E 54 4F 22 00 3A  |W LOADED INTO".:|
00000410: 0C 40 01 99 22 20 20 20  20 20 20 4D 45 4D 4F 52  |.@.."      MEMOR|
00000420: 59 20 41 54 20 24 C3 30  30 30 20 28 34 39 31 35  |Y AT $.000 (4915|
00000430: 32 29 20 41 4E 44 20 43  41 4E 00 64 0C 4A 01 99  |2) AND CAN.d.J..|
00000440: 22 20 20 20 20 20 20 42  45 20 4C 45 46 54 20 54  |"      BE LEFT T|
00000450: 48 45 52 45 20 46 4F 52  20 4C 41 54 45 52 20 55  |HERE FOR LATER U|
00000460: 53 45 2E 22 00 92 0C 54  01 99 22 20 20 20 33 2E  |SE."...T.."   3.|
00000470: 20 CE 4F 57 20 4C 4F 41  44 20 49 4E 20 54 48 45  | .OW LOAD IN THE|
00000480: 20 50 52 4F 47 52 41 4D  20 59 4F 55 20 57 41 4E  | PROGRAM YOU WAN|
00000490: 54 22 00 B0 0C 5E 01 99  22 20 20 20 20 20 20 54  |T"...^.."      T|
000004A0: 4F 20 4C 49 53 54 20 41  4E 44 20 54 59 50 45 3A  |O LIST AND TYPE:|
000004B0: 00 D2 0C 68 01 99 22 20  20 20 20 20 20 20 20 20  |...h.."         |
000004C0: 20 20 20 20 20 12 20 D3  D9 D3 20 34 39 31 35 32  |     . ... 49152|
000004D0: 20 92 00 03 0D 72 01 99  22 D4 48 45 20 50 52 4F  | ....r..".HE PRO|
000004E0: 47 52 41 4D 20 57 49 4C  4C 20 42 45 20 4C 49 53  |GRAM WILL BE LIS|
000004F0: 54 45 44 20 49 4E 20 53  54 52 55 43 54 55 52 45  |TED IN STRUCTURE|
00000500: 44 22 3B 00 34 0D 7C 01  99 22 46 4F 52 4D 20 4F  |D";.4.|.."FORM O|
00000510: 4E 20 54 48 45 20 53 43  52 45 45 4E 2E 20 20 C9  |N THE SCREEN.  .|
00000520: 46 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 4C 49  |F YOU WANT TO LI|
00000530: 53 54 22 3B 00 63 0D 86  01 99 22 54 4F 20 54 48  |ST";.c...."TO TH|
00000540: 45 20 50 52 49 4E 54 45  52 20 4A 55 53 54 20 54  |E PRINTER JUST T|
00000550: 59 50 45 20 54 48 45 20  46 4F 4C 4C 4F 57 49 4E  |YPE THE FOLLOWIN|
00000560: 47 3A 22 00 8E 0D 90 01  99 22 20 20 20 20 20 12  |G:"......"     .|
00000570: 20 CF D0 C5 CE 20 34 2C  34 20 3A 20 C3 CD C4 20  | .... 4,4 : ... |
00000580: 34 20 3A 20 53 59 53 34  39 31 35 32 20 92 00 BF  |4 : SYS49152 ...|
00000590: 0D A4 01 99 22 D4 48 45  20 4E 55 4D 42 45 52 20  |....".HE NUMBER |
000005A0: 4F 46 20 53 50 41 43 45  53 20 4F 46 20 49 4E 44  |OF SPACES OF IND|
000005B0: 45 4E 54 41 54 49 4F 4E  20 28 46 4F 52 22 3B 00  |ENTATION (FOR";.|
000005C0: ED 0D AE 01 99 22 54 48  45 20 4C 4F 4F 50 53 20  |....."THE LOOPS |
000005D0: 41 4E 44 20 49 46 2D 54  48 45 4E 53 29 20 43 41  |AND IF-THENS) CA|
000005E0: 4E 20 42 45 20 43 48 41  4E 47 45 44 22 00 1E 0E  |N BE CHANGED"...|
000005F0: B8 01 99 22 42 59 20 54  59 50 49 4E 47 3A 12 20  |..."BY TYPING:. |
00000600: D0 CF CB C5 20 34 39 31  35 35 2C 4E 20 92 20 57  |.... 49155,N . W|
00000610: 48 45 52 45 20 4E 20 49  53 20 54 48 45 22 00 46  |HERE N IS THE".F|
00000620: 0E CC 01 99 22 56 41 4C  55 45 20 44 45 53 49 52  |...."VALUE DESIR|
00000630: 45 44 2E 20 20 D4 48 45  20 44 45 46 41 55 4C 54  |ED.  .HE DEFAULT|
00000640: 20 49 53 20 32 22 00 73  0E D6 01 99 22 11 CC 49  | IS 2".s...."..I|
00000650: 53 54 49 4E 47 20 43 41  4E 20 42 45 20 48 41 4C  |STING CAN BE HAL|
00000660: 54 45 44 20 41 54 20 41  4E 59 20 54 49 4D 45 20  |TED AT ANY TIME |
00000670: 42 59 22 00 95 0E E0 01  99 22 50 52 45 53 53 49  |BY"......"PRESSI|
00000680: 4E 47 20 54 48 45 20 D2  D5 CE 2D D3 D4 CF D0 A0  |NG THE ...-.....|
00000690: 4B 45 59 2E 22 00 C0 0E  EA 01 99 22 11 20 20 20  |KEY."......".   |
000006A0: 20 C8 49 54 20 41 4E 59  20 4B 45 59 20 46 4F 52  | .IT ANY KEY FOR|
000006B0: 20 C7 CF CC C4 20 C4 C9  D3 CB 20 4D 45 4E 55 22  | .... .... MENU"|
000006C0: 00 DE 0E F4 01 97 31 39  38 2C 30 3A 92 31 39 38  |......198,0:.198|
000006D0: 2C 31 3A 99 22 93 22 3A  9E 34 39 31 35 32 00 00  |,1:.".":.49152..|
000006E0: 00                                                |.               |

.."....53281,0:.53280,0:.G(8)G(14).L....
"..         THE GOLD DISK FORMATTER".T..
.."         ......................."...(
.."  THE GOLD DISK FORMATTER ALLOWS ONE 
TO".R.2.."LIST THEIR BASIC PROGRAMS IN A
 READABLE"...<.."FORMAT.  FOR EXAMPLE A 
PROGRAM LIKE:"...F..".     10 FORI=1TO10
.B.P.."     20 INPUTB:IFB>0THENA=A+B:K=K
+1.X.Z.."     30 NEXT:PRINT"G(34)"AVERAG
E  IS"G(34)";B/K...D..".WILL BE LISTED A
S:......".     10    FOR I=1 TO 10.M. ..
"     20      INPUT B......"            
 IF B>0 THEN......"               A=A+B.
"...."               K=K+1.8.C.."     30
    NEXT.M.H.."           PRINT "G(34)"A
VERAGE  IS"G(34)";B/K...R..".AS YOU CAN 
SEE, MULTIPLE STATEMENTS ARE".N...."PRIN
TED ON SEPARATE LINES AND THE BODIES";..
...."OF FOR LOOPS AND IF-THEN'S ARE INDE
NTED.";.(....".        HIT ANY KEY TO CO
NTINUE";.:....198,0:.198,1.I....".TO USE
 THE PROGRAM FOLLOW THESE STEPS:"......"
.  1. INSERT GOLD DISK VOL. 9 IN DRIVE."
.J.".."  2. TYPE:. LOAD "G(34)"LISTER"G(
34)",8,1 ....,.."          . NEW ....6..
"      THE PROGRAM IS NOW LOADED INTO".:
.@.."      MEMORY AT $C000 (49152) AND C
AN.D.J.."      BE LEFT THERE FOR LATER U
SE."...T.."   3. NOW LOAD IN THE PROGRAM
 YOU WANT"...^.."      TO LIST AND TYPE:
.R.H.."              . SYS 49152 ....R..
"THE PROGRAM WILL BE LISTED IN STRUCTURE
D";.4.|.."FORM ON THE SCREEN.  IF YOU WA
NT TO LIST";.C...."TO THE PRINTER JUST T
YPE THE FOLLOWING:"......"     . OPEN 4,
4 : CMD 4 : SYS49152 ......."THE NUMBER 
OF SPACES OF INDENTATION (FOR";......"TH
E LOOPS AND IF-THENS) CAN BE CHANGED"...
..."BY TYPING:. POKE 49155,N . WHERE N I
S THE".F.L.."VALUE DESIRED.  THE DEFAULT
 IS 2".S.V..".LISTING CAN BE HALTED AT A
NY TIME BY"......"PRESSING THE RUN-STOP 
KEY."......".    HIT ANY KEY FOR GOLD DI
SK MENU"......198,0:.198,1:.".":.49152..
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL