WINDOW
FILE INFORMATION
FILENAME(S): WINDOW
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:06:42
APPEARS ON: 1 disk(s)
FILE HASH
55a427200d3ce74bfa87807849cfae61783de221527a709a5c768aff5a30c3a4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP PROG 5A | WINDOW | PRG | DuncanTwain | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *| 00000030: 2A 2A 20 20 20 20 20 20 20 57 49 4E 44 4F 57 2D |** WINDOW-| 00000040: 44 49 53 50 4C 41 59 20 20 20 20 20 2A 2A 2A 00 |DISPLAY ***.| 00000050: 76 08 1E 00 8F 20 2A 2A 2A 20 20 55 49 54 3A 43 |v.... *** UIT:C| 00000060: 4F 4D 50 2E 47 41 5A 2E 31 2F 38 36 20 50 31 30 |OMP.GAZ.1/86 P10| 00000070: 36 20 20 2A 2A 2A 00 9D 08 28 00 8F 20 2A 2A 2A |6 ***...(.. ***| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 08 |*************...| 000000A0: 32 00 8F 20 2A 20 57 49 4E 44 4F 57 20 20 20 20 |2.. * WINDOW | 000000B0: 20 20 20 20 20 3A 56 41 52 49 41 42 2E 3A 52 45 | :VARIAB.:RE| 000000C0: 47 45 4C 2A 20 20 20 20 20 20 20 20 2A 2D 2D 2D |GEL* *---| 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 00 3B 09 3C |-----------*.;.<| 000000F0: 00 8F 20 2A 20 48 45 49 47 48 54 20 28 23 4C 49 |.. * HEIGHT (#LI| 00000100: 4E 45 53 29 20 20 20 3A 48 20 20 20 3A 31 30 30 |NES) :H :100| 00000110: 20 20 2A 20 20 20 20 20 20 20 20 2A 20 57 49 44 | * * WID| 00000120: 54 48 20 20 28 23 43 48 41 52 29 20 20 20 20 3A |TH (#CHAR) :| 00000130: 57 20 20 20 3A 31 30 30 20 20 2A 00 8A 09 46 00 |W :100 *...F.| 00000140: 8F 20 2A 20 52 4F 57 20 20 20 20 28 4C 46 54 20 |. * ROW (LFT | 00000150: 54 4F 50 29 20 20 3A 52 20 20 20 3A 31 31 30 20 |TOP) :R :110 | 00000160: 20 2A 20 20 20 20 20 20 20 20 2A 20 43 4F 4C 55 | * * COLU| 00000170: 4D 4E 20 28 4C 46 54 20 54 4F 50 29 20 20 3A 43 |MN (LFT TOP) :C| 00000180: 20 20 20 3A 31 31 30 20 20 2A 00 B1 09 50 00 8F | :110 *...P..| 00000190: 20 2A 20 54 45 58 54 20 20 20 28 23 43 48 41 52 | * TEXT (#CHAR| 000001A0: 3D 57 29 20 20 3A 42 24 20 20 3A 31 34 30 2D 20 |=W) :B$ :140- | 000001B0: 2A 00 D8 09 5A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...Z.. ********| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 00 02 0A 64 00 48 B2 37 |********...d.H.7| 000001E0: 3A 57 B2 31 38 3A 8F 20 48 45 49 47 48 54 20 41 |:W.18:. HEIGHT A| 000001F0: 4E 44 20 57 49 44 54 48 20 4F 46 20 57 49 4E 44 |ND WIDTH OF WIND| 00000200: 4F 57 00 41 0A 6E 00 52 B2 31 30 3A 43 B2 31 30 |OW.A.n.R.10:C.10| 00000210: 3A 8F 20 52 4F 57 20 41 4E 44 20 43 4F 4C 55 4D |:. ROW AND COLUM| 00000220: 4E 20 50 4F 53 49 54 49 4F 4E 20 4C 45 46 54 20 |N POSITION LEFT | 00000230: 54 4F 50 20 43 4F 52 4E 45 52 20 57 49 4E 44 4F |TOP CORNER WINDO| 00000240: 57 00 65 0A 78 00 86 53 28 48 AB 31 2C 57 AB 31 |W.e.x..S(H.1,W.1| 00000250: 29 3A 8F 20 53 43 52 45 45 4E 20 43 4F 44 45 20 |):. SCREEN CODE | 00000260: 41 52 52 41 59 00 7A 0A 82 00 86 42 24 28 48 AB |ARRAY.z....B$(H.| 00000270: 31 29 2C 43 24 28 48 AB 31 29 00 99 0A 8C 00 42 |1),C$(H.1).....B| 00000280: 24 28 30 29 B2 22 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 |$(0)."..........| 00000290: C3 C3 C3 C3 C3 C3 C3 C9 22 00 B8 0A 96 00 42 24 |........".....B$| 000002A0: 28 31 29 B2 22 C2 44 45 4C 49 56 45 52 20 4D 45 |(1).".DELIVER ME| 000002B0: 53 53 41 47 45 53 C2 22 00 D7 0A A0 00 42 24 28 |SSAGES.".....B$(| 000002C0: 32 29 B2 22 C2 49 4E 20 59 4F 55 52 20 50 52 4F |2).".IN YOUR PRO| 000002D0: 47 52 41 4D 53 C2 22 00 F6 0A AA 00 42 24 28 33 |GRAMS.".....B$(3| 000002E0: 29 B2 22 C2 20 20 57 49 54 48 20 57 49 4E 44 4F |).". WITH WINDO| 000002F0: 57 53 2E 20 C2 22 00 15 0B B4 00 42 24 28 34 29 |WS. .".....B$(4)| 00000300: B2 22 C2 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00000310: 20 20 20 C2 22 00 34 0B BE 00 42 24 28 35 29 B2 | .".4...B$(5).| 00000320: 22 C2 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |".ANY KEY TO CON| 00000330: 54 2E C2 22 00 53 0B C3 00 42 24 28 36 29 B2 22 |T..".S...B$(6)."| 00000340: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000350: C3 CB 22 00 9A 0B C8 00 8F 20 2A 2A 2A 20 44 45 |.."...... *** DE| 00000360: 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 2D 20 53 45 |MONSTRATION - SE| 00000370: 54 20 54 45 58 54 20 43 4F 4C 4F 52 20 26 20 46 |T TEXT COLOR & F| 00000380: 49 4C 4C 20 53 43 52 45 45 4E 20 57 49 54 48 20 |ILL SCREEN WITH | 00000390: 43 48 41 52 41 43 54 45 52 53 00 C9 0B D2 00 99 |CHARACTERS......| 000003A0: 22 93 05 22 3B 3A 81 49 B2 34 38 A4 38 36 3A 41 |"..";:.I.48.86:A| 000003B0: 24 B2 41 24 AA C7 28 49 29 3A 82 3A 81 49 B2 31 |$.A$..(I):.:.I.1| 000003C0: A4 32 34 3A 99 41 24 3A 82 00 03 0C DC 00 8F 20 |.24:.A$:....... | 000003D0: 2A 2A 2A 20 53 54 4F 52 45 20 4F 52 49 47 49 4E |*** STORE ORIGIN| 000003E0: 41 4C 20 53 43 52 45 45 4E 20 43 4F 4E 54 45 4E |AL SCREEN CONTEN| 000003F0: 54 53 20 41 4E 44 20 50 52 49 4E 54 20 57 49 4E |TS AND PRINT WIN| 00000400: 44 4F 57 00 32 0C E6 00 4D B2 39 38 33 AA 34 30 |DOW.2...M.983.40| 00000410: AC 52 AA 43 3A 8F 20 55 50 50 45 52 20 4C 45 46 |.R.C:. UPPER LEF| 00000420: 54 20 43 4F 52 4E 45 52 20 4F 46 20 57 49 4E 44 |T CORNER OF WIND| 00000430: 4F 57 00 4E 0C F0 00 99 22 9E 22 3A 8F 20 53 45 |OW.N....".":. SE| 00000440: 54 20 57 49 4E 44 4F 57 20 43 4F 4C 4F 52 00 74 |T WINDOW COLOR.t| 00000450: 0C FA 00 97 32 31 34 2C 52 AB 31 3A 99 3A 99 22 |....214,R.1:.:."| 00000460: 91 22 3B 3A 8F 20 53 45 54 20 52 4F 57 20 4E 55 |.";:. SET ROW NU| 00000470: 4D 42 45 52 00 8A 0C 04 01 81 49 B2 30 A4 48 AB |MBER......I.0.H.| 00000480: 31 3A 81 4A B2 30 A4 57 AB 31 00 B7 0C 0E 01 53 |1:.J.0.W.1.....S| 00000490: 28 49 2C 4A 29 B2 C2 28 4D AA 4A 29 3A 82 3A 97 |(I,J)..(M.J):.:.| 000004A0: 32 31 31 2C 43 AB 31 3A 99 42 24 28 49 29 3A 4D |211,C.1:.B$(I):M| 000004B0: B2 4D AA 34 30 3A 82 00 F2 0C 18 01 8F 20 2A 2A |.M.40:....... **| 000004C0: 2A 20 43 4F 4E 56 45 52 54 20 53 54 4F 52 45 44 |* CONVERT STORED| 000004D0: 20 53 43 52 45 45 4E 20 43 4F 44 45 53 20 54 4F | SCREEN CODES TO| 000004E0: 20 50 52 49 4E 54 41 42 4C 45 20 53 54 52 49 4E | PRINTABLE STRIN| 000004F0: 47 53 00 28 0D 22 01 81 49 B2 30 A4 48 AB 31 3A |GS.(."..I.0.H.1:| 00000500: 81 4A B2 30 A4 57 AB 31 3A 41 B2 53 28 49 2C 4A |.J.0.W.1:A.S(I,J| 00000510: 29 3A 8B 41 B3 33 32 B0 41 B1 39 35 A7 41 B2 41 |):.A.32.A.95.A.A| 00000520: AA 36 34 3A 89 33 31 30 00 3F 0D 2C 01 8B 41 B1 |.64:.310.?.,..A.| 00000530: 36 35 A7 8B 41 B3 39 36 A7 41 B2 41 AA 33 32 00 |65..A.96.A.A.32.| 00000540: 58 0D 36 01 43 24 28 49 29 B2 43 24 28 49 29 AA |X.6.C$(I).C$(I).| 00000550: C7 28 41 29 3A 82 3A 82 00 89 0D 40 01 8F 20 2A |.(A):.:....@.. *| 00000560: 2A 2A 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |** PRESS ANY KEY| 00000570: 20 54 4F 20 52 45 57 52 49 54 45 20 4F 52 49 47 | TO REWRITE ORIG| 00000580: 49 4E 41 4C 20 54 45 58 54 00 9C 0D 4A 01 A1 52 |INAL TEXT...J..R| 00000590: 24 3A 8B 52 24 B2 22 22 A7 33 33 30 00 C3 0D 54 |$:.R$."".330...T| 000005A0: 01 99 22 05 22 3A 8F 20 52 45 53 54 4F 52 45 20 |..".":. RESTORE | 000005B0: 4F 52 49 47 49 4E 41 4C 20 54 45 58 54 20 43 4F |ORIGINAL TEXT CO| 000005C0: 4C 4F 52 00 E9 0D 5E 01 97 32 31 34 2C 52 AB 31 |LOR...^..214,R.1| 000005D0: 3A 99 3A 99 22 91 22 3B 3A 8F 20 53 45 54 20 52 |:.:.".";:. SET R| 000005E0: 4F 57 20 4E 55 4D 42 45 52 00 08 0E 68 01 81 49 |OW NUMBER...h..I| 000005F0: B2 30 A4 48 AB 31 3A 97 32 31 31 2C 43 AB 31 3A |.0.H.1:.211,C.1:| 00000600: 99 43 24 28 49 29 3A 82 00 25 0E 72 01 8F 20 52 |.C$(I):..%.r.. R| 00000610: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 50 52 |ETURN TO MAIN PR| 00000620: 4F 47 52 41 4D 00 48 0E F4 01 99 22 11 9A 56 4F |OGRAM.H...."..VO| 00000630: 4F 52 54 5A 45 54 54 49 4E 47 20 4D 41 49 4E 20 |ORTZETTING MAIN | 00000640: 50 52 4F 47 52 41 4D 22 00 00 00 |PROGRAM"... |
..(.... ********************************
.O.... *** WINDOW-DISPLAY ***.
V.... *** UIT:COMP.GAZ.1/86 P106 ***..
.(.. ********************************...
2.. * WINDOW :VARIAB.:REGEL*
*------------------------------*.;.<
.. * HEIGHT (#LINES) :H :100 *
* WIDTH (#CHAR) :W :100 *...F.
. * ROW (LFT TOP) :R :110 *
* COLUMN (LFT TOP) :C :110 *...P..
* TEXT (#CHAR=W) :B$ :140- *.X.Z..
********************************...D.H.7
:W.18:. HEIGHT AND WIDTH OF WINDOW.A.N.R
.10:C.10:. ROW AND COLUMN POSITION LEFT
TOP CORNER WINDOW.E.X..S(H.1,W.1):. SCRE
EN CODE ARRAY.Z....B$(H.1),C$(H.1).....B
$(0)."UCCCCCCCCCCCCCCCCI".....B$(1)."BDE
LIVER MESSAGESB".W. .B$(2)."BIN YOUR PRO
GRAMSB".....B$(3)."B WITH WINDOWS. B"..
...B$(4)."B B".4...B$(5).
"BANY KEY TO CONT.B".S.C.B$(6)."JCCCCCCC
CCCCCCCCCK"...H.. *** DEMONSTRATION - SE
T TEXT COLOR & FILL SCREEN WITH CHARACTE
RS.I.R.."..";:.I.48.86:A$.A$.G(I):.:.I.1
.24:.A$:....... *** STORE ORIGINAL SCREE
N CONTENTS AND PRINT WINDOW.2...M.983.40
.R.C:. UPPER LEFT CORNER OF WINDOW.N....
".":. SET WINDOW COLOR.T....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
CODES TO PRINTABLE STRINGS.(."..I.0.H.1:
.J.0.W.1:A.S(I,J):.A.32.A.95.A.A.64:.310
.?.,..A.65..A.96.A.A.32.X.6.C$(I).C$(I).
G(A):.:....@.. *** PRESS ANY KEY TO REWR
ITE ORIGINAL TEXT...J..R$:.R$."".330.C.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.H...."..VOORTZETTING MAIN
PROGRAM"...
> CLICK IMAGE PREVIEW FOR FULL MODAL