BASIC WINDOWS

FILE INFORMATION

FILENAME(S): BASIC WINDOWS

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-10-19 22:48:38

APPEARS ON: 2 disk(s)

FILE HASH

6f983e37b87218686ed9407a06fb6e2abb0c75fe7c93ebd138d656cae82c8324

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE JAN 86	BASIC WINDOWS	PRG	Radd Maxx	22	5	DOWNLOAD FILE
COMPUTE GAZ 1 4	BASIC WINDOWS	PRG	Sailor, Ganheden	19	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2B 08 64 00 48 B2  36 3A 57 B2 31 38 3A 8F  |..+.d.H.6:W.18:.|
00000010: 20 48 45 49 47 48 54 20  41 4E 44 20 57 49 44 54  | HEIGHT AND WIDT|
00000020: 48 20 4F 46 20 57 49 4E  44 4F 57 00 53 08 6E 00  |H OF WINDOW.S.n.|
00000030: 52 B2 31 30 3A 43 B2 31  30 3A 8F 20 52 4F 57 20  |R.10:C.10:. ROW |
00000040: 41 4E 44 20 43 4F 4C 55  4D 4E 20 50 4F 53 49 54  |AND COLUMN POSIT|
00000050: 49 4F 4E 00 78 08 78 00  86 20 53 28 48 AB 31 2C  |ION.x.x.. S(H.1,|
00000060: 57 AB 31 29 3A 8F 20 53  43 52 45 45 4E 20 43 4F  |W.1):. SCREEN CO|
00000070: 44 45 20 41 52 52 41 59  00 8E 08 82 00 86 20 42  |DE ARRAY...... B|
00000080: 24 28 48 AB 31 29 2C 43  24 28 48 AB 31 29 00 AD  |$(H.1),C$(H.1)..|
00000090: 08 8C 00 42 24 28 30 29  B2 22 A6 A6 A6 A6 A6 A6  |...B$(0)."......|
000000A0: A6 A6 A6 A6 A6 A6 A6 A6  A6 A6 A6 A6 22 00 CC 08  |............"...|
000000B0: 96 00 42 24 28 31 29 B2  22 A6 44 45 4C 49 56 45  |..B$(1).".DELIVE|
000000C0: 52 20 4D 45 53 53 41 47  45 53 A6 22 00 EB 08 A0  |R MESSAGES."....|
000000D0: 00 42 24 28 32 29 B2 22  A6 49 4E 20 59 4F 55 52  |.B$(2).".IN YOUR|
000000E0: 20 50 52 4F 47 52 41 4D  53 A6 22 00 0A 09 AA 00  | PROGRAMS.".....|
000000F0: 42 24 28 33 29 B2 22 A6  20 20 57 49 54 48 20 57  |B$(3).".  WITH W|
00000100: 49 4E 44 4F 57 53 2E 20  A6 22 00 29 09 B4 00 42  |INDOWS. .".)...B|
00000110: 24 28 34 29 B2 22 A6 20  20 20 20 20 20 20 20 20  |$(4).".         |
00000120: 20 20 20 20 20 20 20 A6  22 00 48 09 BE 00 42 24  |       .".H...B$|
00000130: 28 35 29 B2 22 A6 A6 A6  20 46 31 20 54 4F 20 43  |(5)."... F1 TO C|
00000140: 4F 4E 54 2E A6 A6 A6 22  00 8F 09 C8 00 8F 20 2A  |ONT...."...... *|
00000150: 2A 2A 20 44 45 4D 4F 4E  53 54 52 41 54 49 4F 4E  |** DEMONSTRATION|
00000160: 20 2D 20 53 45 54 20 54  45 58 54 20 43 4F 4C 4F  | - SET TEXT COLO|
00000170: 52 20 26 20 46 49 4C 4C  20 53 43 52 45 45 4E 20  |R & FILL SCREEN |
00000180: 57 49 54 48 20 43 48 41  52 41 43 54 45 52 53 00  |WITH CHARACTERS.|
00000190: BE 09 D2 00 99 22 93 05  22 3B 3A 81 49 B2 34 38  |....."..";:.I.48|
000001A0: A4 38 36 3A 41 24 B2 41  24 AA C7 28 49 29 3A 82  |.86:A$.A$..(I):.|
000001B0: 3A 81 49 B2 31 A4 32 34  3A 99 41 24 3A 82 00 F8  |:.I.1.24:.A$:...|
000001C0: 09 DC 00 8F 20 2A 2A 2A  20 53 54 4F 52 45 20 4F  |.... *** STORE O|
000001D0: 52 49 47 49 4E 41 4C 20  53 43 52 45 45 4E 20 43  |RIGINAL SCREEN C|
000001E0: 4F 4E 54 45 4E 54 53 20  41 4E 44 20 50 52 49 4E  |ONTENTS AND PRIN|
000001F0: 54 20 57 49 4E 44 4F 57  00 27 0A E6 00 4D B2 39  |T WINDOW.'...M.9|
00000200: 38 33 AA 34 30 AC 52 AA  43 3A 8F 20 55 50 50 45  |83.40.R.C:. UPPE|
00000210: 52 20 4C 45 46 54 20 43  4F 52 4E 45 52 20 4F 46  |R LEFT CORNER OF|
00000220: 20 57 49 4E 44 4F 57 00  43 0A F0 00 99 22 9E 22  | WINDOW.C...."."|
00000230: 3A 8F 20 53 45 54 20 57  49 4E 44 4F 57 20 43 4F  |:. SET WINDOW CO|
00000240: 4C 4F 52 00 69 0A FA 00  97 32 31 34 2C 52 AB 31  |LOR.i....214,R.1|
00000250: 3A 99 3A 99 22 91 22 3B  3A 8F 20 53 45 54 20 52  |:.:.".";:. SET R|
00000260: 4F 57 20 4E 55 4D 42 45  52 00 7F 0A 04 01 81 49  |OW NUMBER......I|
00000270: B2 30 A4 48 AB 31 3A 81  4A B2 30 A4 57 AB 31 00  |.0.H.1:.J.0.W.1.|
00000280: AC 0A 0E 01 53 28 49 2C  4A 29 B2 C2 28 4D AA 4A  |....S(I,J)..(M.J|
00000290: 29 3A 82 3A 97 32 31 31  2C 43 AB 31 3A 99 42 24  |):.:.211,C.1:.B$|
000002A0: 28 49 29 3A 4D B2 4D AA  34 30 3A 82 00 E7 0A 18  |(I):M.M.40:.....|
000002B0: 01 8F 20 2A 2A 2A 20 43  4F 4E 56 45 52 54 20 53  |.. *** CONVERT S|
000002C0: 54 4F 52 45 44 20 53 43  52 45 45 4E 20 43 4F 44  |TORED SCREEN COD|
000002D0: 45 53 20 54 4F 20 50 52  49 4E 54 41 42 4C 45 20  |ES TO PRINTABLE |
000002E0: 53 54 52 49 4E 47 53 00  1D 0B 22 01 81 49 B2 30  |STRINGS..."..I.0|
000002F0: A4 48 AB 31 3A 81 4A B2  30 A4 57 AB 31 3A 41 B2  |.H.1:.J.0.W.1:A.|
00000300: 53 28 49 2C 4A 29 3A 8B  41 B3 33 32 B0 41 B1 39  |S(I,J):.A.32.A.9|
00000310: 35 A7 41 B2 41 AA 36 34  3A 89 33 31 30 00 34 0B  |5.A.A.64:.310.4.|
00000320: 2C 01 8B 41 B1 36 35 A7  8B 41 B3 39 36 A7 41 B2  |,..A.65..A.96.A.|
00000330: 41 AA 33 32 00 4D 0B 36  01 43 24 28 49 29 B2 43  |A.32.M.6.C$(I).C|
00000340: 24 28 49 29 AA C7 28 41  29 3A 82 3A 82 00 7B 0B  |$(I)..(A):.:..{.|
00000350: 40 01 8F 20 2A 2A 2A 20  50 52 45 53 53 20 27 46  |@.. *** PRESS 'F|
00000360: 31 27 20 54 4F 20 52 45  57 52 49 54 45 20 4F 52  |1' TO REWRITE OR|
00000370: 49 47 49 4E 41 4C 20 54  45 58 54 00 93 0B 4A 01  |IGINAL TEXT...J.|
00000380: A1 52 24 3A 8B 52 24 B3  B1 C7 28 31 33 33 29 A7  |.R$:.R$...(133).|
00000390: 33 33 30 00 BA 0B 54 01  99 22 05 22 3A 8F 20 52  |330...T..".":. R|
000003A0: 45 53 54 4F 52 45 20 4F  52 49 47 49 4E 41 4C 20  |ESTORE ORIGINAL |
000003B0: 54 45 58 54 20 43 4F 4C  4F 52 00 E0 0B 5E 01 97  |TEXT COLOR...^..|
000003C0: 32 31 34 2C 52 AB 31 3A  99 3A 99 22 91 22 3B 3A  |214,R.1:.:.".";:|
000003D0: 8F 20 53 45 54 20 52 4F  57 20 4E 55 4D 42 45 52  |. SET ROW NUMBER|
000003E0: 00 FF 0B 68 01 81 49 B2  30 A4 48 AB 31 3A 97 32  |...h..I.0.H.1:.2|
000003F0: 31 31 2C 43 AB 31 3A 99  43 24 28 49 29 3A 82 00  |11,C.1:.C$(I):..|
00000400: 1C 0C 72 01 8F 20 52 45  54 55 52 4E 20 54 4F 20  |..r.. RETURN TO |
00000410: 4D 41 49 4E 20 50 52 4F  47 52 41 4D 00 00 00     |MAIN PROGRAM... |

..+.D.H.6:W.18:. HEIGHT AND WIDTH OF WIN
DOW.S.N.R.10:C.10:. ROW AND COLUMN POSIT
ION.X.X.. S(H.1,W.1):. SCREEN CODE ARRAY
...... B$(H.1),C$(H.1).....B$(0)."......
............".L...B$(1).".DELIVER MESSAG
ES."... .B$(2).".IN YOUR PROGRAMS.".....
B$(3).".  WITH WINDOWS. .".)...B$(4).". 
               .".H...B$(5)."... F1 TO C
ONT...."...H.. *** DEMONSTRATION - SET T
EXT COLOR & FILL SCREEN WITH CHARACTERS.
..R.."..";:.I.48.86:A$.A$.G(I):.:.I.1.24
:.A$:....... *** STORE ORIGINAL SCREEN C
ONTENTS AND PRINT WINDOW.'...M.983.40.R.
C:. UPPER LEFT CORNER OF WINDOW.C...."."
:. SET WINDOW COLOR.I....214,R.1:.:.".";
:. SET ROW NUMBER.....I.0.H.1:.J.0.W.1.
....S(I,J).B(M.J):.:.211,C.1:.B$(I):M.M.
40:....... *** CONVERT STORED SCREEN COD
ES TO PRINTABLE STRINGS..."..I.0.H.1:.J.
0.W.1:A.S(I,J):.A.32.A.95.A.A.64:.310.4.
,..A.65..A.96.A.A.32.M.6.C$(I).C$(I).G(A
):.:..{.@.. *** PRESS 'F1' TO REWRITE OR
IGINAL TEXT...J..R$:.R$..G(133).330...T.
.".":. RESTORE ORIGINAL TEXT COLOR...^..
214,R.1:.:.".";:. SET ROW NUMBER...H..I.
0.H.1:.211,C.1:.C$(I):....R.. RETURN TO 
MAIN PROGRAM...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL