_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

LISTING1

FILE INFORMATION

FILENAME(S): LISTING1

FILE TYPE(S): PRG

FILE SIZE: 467b

FIRST SEEN: 2025-11-30 17:31:22

APPEARS ON: 1 disk(s)

FILE HASH

5313eef551338df09bca0f85ef51e46f7daa3837a3e3f40fa22302de705562ef

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CDU JULY 1990 LISTING1 PRG UK CD 13 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: AC 0D 0A 00 3B 4C 49 53  54 49 4E 47 31 00 14 00  |....;LISTING1...|
00000010: 3B 00 1E 00 3B 45 51 55  41 54 45 53 00 28 00 43  |;...;EQUATES.(.C|
00000020: 4C 45 41 52 BD 24 39 33  00 32 00 53 54 52 4F 55  |LEAR.$93.2.STROU|
00000030: 54 BD 24 41 42 31 45 00  3C 00 43 48 52 4F 55 54  |T.$AB1E.<.CHROUT|
00000040: BD 24 46 46 44 32 00 46  00 3B 00 50 00 3B 4C 4F  |.$FFD2.F.;.P.;LO|
00000050: 43 41 54 45 20 43 4F 44  45 20 41 54 20 53 54 41  |CATE CODE AT STA|
00000060: 52 54 20 4F 46 20 42 41  53 49 43 00 5A 00 BE 24  |RT OF BASIC.Z..$|
00000070: 30 38 30 31 00 64 00 3B  00 6E 00 3B 53 45 54 20  |0801.d.;.n.;SET |
00000080: 55 50 20 42 41 53 49 43  20 50 52 4F 47 52 41 4D  |UP BASIC PROGRAM|
00000090: 00 78 00 3B 20 27 31 30  20 53 59 53 20 32 30 36  |.x.; '10 SYS 206|
000000A0: 31 27 00 82 00 BA 4C 49  4E 4B 00 8C 00 B8 31 30  |1'....LINK....10|
000000B0: 2C 30 00 96 00 B8 24 39  45 2C 22 32 30 36 31 22  |,0....$9E,"2061"|
000000C0: 2C 30 00 A0 00 4C 49 4E  4B B8 30 2C 30 00 AA 00  |,0...LINK.0,0...|
000000D0: 3B 00 B4 00 3B 43 4C 45  41 52 20 53 43 52 45 45  |;...;CLEAR SCREE|
000000E0: 4E 20 41 4E 44 20 50 52  49 4E 54 20 4D 45 53 53  |N AND PRINT MESS|
000000F0: 41 47 45 00 BE 00 A8 23  3C 54 45 58 54 20 20 20  |AGE....#<TEXT   |
00000100: 3B 4C 4F 57 20 42 59 54  45 00 C8 00 B1 23 3E 54  |;LOW BYTE....#>T|
00000110: 45 58 54 20 20 20 3B 48  49 47 48 20 42 59 54 45  |EXT   ;HIGH BYTE|
00000120: 00 D2 00 99 53 54 52 4F  55 54 00 DC 00 3B 00 E6  |....STROUT...;..|
00000130: 00 3B 57 41 49 54 20 46  4F 52 20 41 20 57 48 49  |.;WAIT FOR A WHI|
00000140: 4C 45 00 F0 00 99 50 41  55 53 45 00 FA 00 3B 00  |LE....PAUSE...;.|
00000150: 04 01 3B 43 4C 45 41 52  20 53 43 52 45 45 4E 20  |..;CLEAR SCREEN |
00000160: 41 4E 44 20 46 49 4E 49  53 48 00 0E 01 A8 23 43  |AND FINISH....#C|
00000170: 4C 45 41 52 00 18 01 A2  43 48 52 4F 55 54 00 22  |LEAR....CHROUT."|
00000180: 01 3B 00 2C 01 54 45 58  54 B8 24 39 33 2C 22 48  |.;.,.TEXT.$93,"H|
00000190: 45 4C 4C 4F 20 57 4F 52  4C 44 22 2C 30 00 36 01  |ELLO WORLD",0.6.|
000001A0: 3B 00 40 01 50 41 55 53  45 B1 23 30 00 4A 01 B0  |;.@.PAUSE.#0.J..|
000001B0: 23 30 00 54 01 50 31 88  00 5E 01 89 00 68 01 9E  |#0.T.P1..^...h..|
000001C0: 50 31 00 72 01 87 00 7C  01 9E 50 31 00 86 01 8F  |P1.r...|..P1....|
000001D0: 00 00 00                                          |...             |

....;LISTING1...;...;EQUATES.(.CLEAR.$93
.2.STROUT.$AB1E.<.CHROUT.$FFD2.F.;.P.;LO
CATE CODE AT START OF BASIC.Z..$0801.D.;
.N.;SET UP BASIC PROGRAM.X.; '10 SYS 206
1'....LINK....10,0....$9E,"2061",0. .LIN
K.0,0...;...;CLEAR SCREEN AND PRINT MESS
AGE....#<TEXT   ;LOW BYTE.H..#>TEXT   ;H
IGH BYTE.R..STROUT...;...;WAIT FOR A WHI
LE....PAUSE...;...;CLEAR SCREEN AND FINI
SH....#CLEAR....CHROUT.".;.,.TEXT.$93,"H
ELLO WORLD",0.6.;.@.PAUSE.#0.J..#0.T.P1.
.^...H..P1.R...|..P1.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL