BASIC WINDOWS

FILE INFORMATION

FILENAME(S): BASIC WINDOWS

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-12-01 01:02:25

APPEARS ON: 1 disk(s)

FILE HASH

fc8d56e1fa359de918782eb7a0165cdcb95d8d2665db2a20b5b1e2d6c76edf3d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ARBETSDISK NR1	BASIC WINDOWS	PRG	hedning, German ebay	11	1	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 52 08 6E 00  |H OF WINDOW.R.n.|
00000030: 52 B2 31 30 3A 43 B2 31  30 3A 8F 52 4F 57 20 41  |R.10:C.10:.ROW A|
00000040: 4E 44 20 43 4F 4C 55 4D  4E 20 50 4F 53 49 54 49  |ND COLUMN POSITI|
00000050: 4F 4E 00 75 08 78 00 86  53 28 48 AB 31 2C 57 AB  |ON.u.x..S(H.1,W.|
00000060: 31 29 3A 8F 53 43 52 45  45 4E 20 43 4F 44 45 20  |1):.SCREEN CODE |
00000070: 41 52 52 41 59 00 8A 08  82 00 86 42 24 28 48 AB  |ARRAY......B$(H.|
00000080: 31 29 2C 43 24 28 48 AB  31 29 00 A9 08 8C 00 42  |1),C$(H.1).....B|
00000090: 24 28 30 29 B2 22 A6 A6  A6 A6 A6 A6 A6 A6 A6 A6  |$(0)."..........|
000000A0: A6 A6 A6 A6 A6 A6 A6 A6  22 00 C8 08 96 00 42 24  |........".....B$|
000000B0: 28 31 29 B2 22 A6 44 45  4C 49 56 45 52 20 4D 45  |(1).".DELIVER ME|
000000C0: 53 53 41 47 45 53 A6 22  00 E7 08 A0 00 42 24 28  |SSAGES.".....B$(|
000000D0: 32 29 B2 22 A6 49 4E 20  59 4F 55 52 20 50 52 4F  |2).".IN YOUR PRO|
000000E0: 47 52 41 4D 53 A6 22 00  06 09 AA 00 42 24 28 33  |GRAMS.".....B$(3|
000000F0: 29 B2 22 A6 20 20 57 49  54 48 20 57 49 4E 44 4F  |).".  WITH WINDO|
00000100: 57 53 2E 20 A6 22 00 25  09 B4 00 42 24 28 34 29  |WS. .".%...B$(4)|
00000110: B2 22 A6 20 20 20 20 20  20 20 20 20 20 20 20 20  |.".             |
00000120: 20 20 20 A6 22 00 44 09  BE 00 42 24 28 35 29 B2  |   .".D...B$(5).|
00000130: 22 A6 A6 A6 20 46 31 20  54 4F 20 43 4F 4E 54 2E  |"... F1 TO CONT.|
00000140: A6 A6 A6 22 00 8B 09 C8  00 8F 20 2A 2A 2A 20 44  |..."...... *** D|
00000150: 45 4D 4F 4E 53 54 52 41  54 49 4F 4E 20 2D 20 53  |EMONSTRATION - S|
00000160: 45 54 20 54 45 58 54 20  43 4F 4C 4F 52 20 24 20  |ET TEXT COLOR $ |
00000170: 46 49 4C 4C 20 53 43 52  45 45 4E 20 57 49 54 48  |FILL SCREEN WITH|
00000180: 20 43 48 41 52 41 43 54  45 52 53 00 BA 09 D2 00  | CHARACTERS.....|
00000190: 99 22 93 05 22 3B 3A 81  49 B2 34 38 A4 38 36 3A  |."..";:.I.48.86:|
000001A0: 41 24 B2 41 24 AA C7 28  49 29 3A 82 3A 81 49 B2  |A$.A$..(I):.:.I.|
000001B0: 31 A4 32 34 3A 99 41 24  3A 82 00 F4 09 DC 00 8F  |1.24:.A$:.......|
000001C0: 20 2A 2A 2A 20 53 54 4F  52 45 20 4F 52 49 47 49  | *** STORE ORIGI|
000001D0: 4E 41 4C 20 53 43 52 45  45 4E 20 43 4F 4E 54 45  |NAL SCREEN CONTE|
000001E0: 4E 54 53 20 41 4E 44 20  50 52 49 4E 54 20 57 49  |NTS AND PRINT WI|
000001F0: 4E 44 4F 57 00 23 0A E6  00 4D B2 39 38 33 AA 34  |NDOW.#...M.983.4|
00000200: 30 AC 52 AA 43 3A 8F 20  55 50 50 45 52 20 4C 45  |0.R.C:. UPPER LE|
00000210: 46 54 20 43 4F 52 4E 45  52 20 4F 46 20 57 49 4E  |FT CORNER OF WIN|
00000220: 44 4F 57 00 3F 0A F0 00  99 22 9E 22 3A 8F 20 53  |DOW.?....".":. S|
00000230: 45 54 20 57 49 4E 44 4F  57 20 43 4F 4C 4F 52 00  |ET WINDOW COLOR.|
00000240: 65 0A FA 00 97 32 31 34  2C 52 AB 31 3A 99 3A 99  |e....214,R.1:.:.|
00000250: 20 22 91 22 3B 3A 8F 53  45 54 20 52 4F 57 20 4E  | ".";:.SET ROW N|
00000260: 55 4D 42 45 52 00 7B 0A  04 01 81 49 B2 30 A4 48  |UMBER.{....I.0.H|
00000270: AB 31 3A 81 4A B2 30 A4  57 AB 31 00 A8 0A 0E 01  |.1:.J.0.W.1.....|
00000280: 53 28 49 2C 4A 29 B2 C2  28 4D AA 4A 29 3A 82 3A  |S(I,J)..(M.J):.:|
00000290: 97 32 31 31 2C 43 AB 31  3A 99 42 24 28 49 29 3A  |.211,C.1:.B$(I):|
000002A0: 4D B2 4D AA 34 30 3A 82  00 E3 0A 18 01 8F 20 2A  |M.M.40:....... *|
000002B0: 2A 2A 20 43 4F 4E 56 45  52 54 20 53 54 4F 52 45  |** CONVERT STORE|
000002C0: 44 20 53 43 52 45 45 4E  20 43 4F 44 45 53 20 54  |D SCREEN CODES T|
000002D0: 4F 20 50 52 49 4E 54 41  42 4C 45 20 53 54 52 49  |O PRINTABLE STRI|
000002E0: 4E 47 53 00 19 0B 22 01  81 49 B2 30 A4 48 AB 31  |NGS..."..I.0.H.1|
000002F0: 3A 81 4A B2 30 A4 57 AB  31 3A 41 B2 53 28 49 2C  |:.J.0.W.1:A.S(I,|
00000300: 4A 29 3A 8B 41 B3 33 32  B0 41 B1 39 35 A7 41 B2  |J):.A.32.A.95.A.|
00000310: 41 AA 36 34 3A 89 33 31  30 00 30 0B 2C 01 8B 41  |A.64:.310.0.,..A|
00000320: B1 36 35 A7 8B 41 B3 39  36 A7 41 B2 41 AA 33 32  |.65..A.96.A.A.32|
00000330: 00 49 0B 36 01 43 24 28  49 29 B2 43 24 28 49 29  |.I.6.C$(I).C$(I)|
00000340: AA C7 28 41 29 3A 82 3A  82 00 76 0B 40 01 8F 2A  |..(A):.:..v.@..*|
00000350: 2A 2A 20 50 52 45 53 53  20 27 46 31 27 20 54 4F  |** PRESS 'F1' TO|
00000360: 20 52 45 57 52 49 54 45  20 4F 52 49 47 49 4E 41  | REWRITE ORIGINA|
00000370: 4C 20 54 45 58 54 00 8E  0B 4A 01 A1 52 24 3A 8B  |L TEXT...J..R$:.|
00000380: 52 24 B3 B1 C7 28 31 33  33 29 A7 33 33 30 00 B5  |R$...(133).330..|
00000390: 0B 54 01 99 22 05 22 3A  8F 20 52 45 53 54 4F 52  |.T..".":. RESTOR|
000003A0: 45 20 4F 52 49 47 49 4E  41 4C 20 54 45 58 54 20  |E ORIGINAL TEXT |
000003B0: 43 4F 4C 4F 52 00 DB 0B  5E 01 97 32 31 34 2C 52  |COLOR...^..214,R|
000003C0: AB 31 3A 99 3A 99 22 91  22 3B 3A 8F 20 53 45 54  |.1:.:.".";:. SET|
000003D0: 20 52 4F 57 20 4E 55 4D  42 45 52 00 FA 0B 68 01  | ROW NUMBER...h.|
000003E0: 81 49 B2 30 A4 48 AB 31  3A 97 32 31 31 2C 43 AB  |.I.0.H.1:.211,C.|
000003F0: 31 3A 99 43 24 28 49 29  3A 82 00 17 0C 72 01 8F  |1:.C$(I):....r..|
00000400: 20 52 45 54 55 52 4E 20  54 4F 20 4D 41 49 4E 20  | RETURN TO MAIN |
00000410: 50 52 4F 47 52 41 4D 00  00 00                    |PROGRAM...      |

..+.D.H.6:W.18:. HEIGHT AND WIDTH OF WIN
DOW.R.N.R.10:C.10:.ROW AND COLUMN POSITI
ON.U.X..S(H.1,W.1):.SCREEN CODE ARRAY...
...B$(H.1),C$(H.1).....B$(0)."..........
........".H...B$(1).".DELIVER MESSAGES."
... .B$(2).".IN YOUR PROGRAMS.".....B$(3
).".  WITH WINDOWS. .".%...B$(4).".     
           .".D...B$(5)."... F1 TO CONT.
..."...H.. *** DEMONSTRATION - SET TEXT 
COLOR $ FILL SCREEN WITH CHARACTERS...R.
."..";:.I.48.86:A$.A$.G(I):.:.I.1.24:.A$
:....... *** STORE ORIGINAL SCREEN CONTE
NTS AND PRINT WINDOW.#...M.983.40.R.C:. 
UPPER LEFT CORNER OF WINDOW.?....".":. S
ET WINDOW COLOR.E....214,R.1:.:. ".";:.S
ET 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 CODES T
O PRINTABLE STRINGS..."..I.0.H.1:.J.0.W.
1:A.S(I,J):.A.32.A.95.A.A.64:.310.0.,..A
.65..A.96.A.A.32.I.6.C$(I).C$(I).G(A):.:
..V.@..*** PRESS 'F1' TO REWRITE ORIGINA
L 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