BASIC WINDOWS
FILE INFORMATION
FILENAME(S): BASIC WINDOWS
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-12-01 19:06:57
APPEARS ON: 1 disk(s)
FILE HASH
03e0ba076a908561770c3d935f413ae9046a306cd852c8d860e277305dd12bab
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE | BASIC WINDOWS | PRG | Icebreaker | 30 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 20 2D 2D 20 54 48 49 53 20 |..&.... -- THIS | 00000010: 52 4F 55 54 49 4E 45 20 57 41 53 20 57 52 49 54 |ROUTINE WAS WRIT| 00000020: 54 45 4E 20 42 59 00 49 08 02 00 8F 20 2D 2D 20 |TEN BY.I.... -- | 00000030: 4D 49 4B 45 20 50 45 52 52 59 20 28 53 54 41 52 |MIKE PERRY (STAR| 00000040: 4B 4E 41 4B 45 44 20 4F 4E 00 71 08 03 00 8F 20 |KNAKED ON.q.... | 00000050: 2D 2D 20 4F 4E 20 51 4C 49 4E 4B 2E 29 20 4C 49 |-- ON QLINK.) LI| 00000060: 4E 45 53 20 31 30 2D 33 30 20 4D 55 53 54 20 42 |NES 10-30 MUST B| 00000070: 45 00 98 08 04 00 8F 20 2D 2D 20 49 4E 43 4C 55 |E...... -- INCLU| 00000080: 44 45 44 20 57 49 54 48 20 59 4F 55 52 20 50 52 |DED WITH YOUR PR| 00000090: 4F 47 52 41 4D 20 54 4F 00 BA 08 05 00 8F 20 2D |OGRAM TO...... -| 000000A0: 2D 20 55 53 45 20 54 48 45 20 57 49 4E 44 4F 57 |- USE THE WINDOW| 000000B0: 20 52 4F 55 54 49 4E 45 53 2E 00 E1 08 06 00 8F | ROUTINES.......| 000000C0: 20 2D 2D 20 58 3D 54 52 4F 57 2C 59 3D 54 43 4F | -- X=TROW,Y=TCO| 000000D0: 4C 2C 58 58 3D 42 52 4F 57 2C 59 59 3D 42 43 4F |L,XX=BROW,YY=BCO| 000000E0: 4C 00 05 09 07 00 8F 20 2D 2D 20 54 48 45 20 43 |L...... -- THE C| 000000F0: 4C 4F 53 49 4E 47 20 52 4F 55 54 49 4E 45 20 53 |LOSING ROUTINE S| 00000100: 49 4D 50 4C 59 00 29 09 08 00 8F 20 2D 2D 20 43 |IMPLY.).... -- C| 00000110: 4C 4F 53 45 53 20 54 48 45 20 4C 41 53 54 20 57 |LOSES THE LAST W| 00000120: 49 4E 44 4F 57 20 59 4F 55 00 3A 09 09 00 8F 20 |INDOW YOU.:.... | 00000130: 2D 2D 20 4F 50 45 4E 45 44 2E 00 59 09 0A 00 86 |-- OPENED..Y....| 00000140: 53 43 28 32 35 35 29 2C 57 4E 28 32 30 2C 32 35 |SC(255),WN(20,25| 00000150: 35 29 2C 57 43 28 38 30 29 00 62 09 14 00 57 57 |5),WC(80).b...WW| 00000160: B2 30 00 6C 09 1E 00 8D 35 30 30 30 00 77 09 28 |.0.l....5000.w.(| 00000170: 00 8D 31 30 30 30 30 00 82 09 2D 00 8D 32 30 30 |..10000...-..200| 00000180: 30 30 00 99 09 32 00 58 B2 30 3A 59 B2 32 3A 58 |00...2.X.0:Y.2:X| 00000190: 58 B2 37 3A 59 59 B2 31 32 00 A3 09 3C 00 8D 31 |X.7:YY.12...<..1| 000001A0: 30 30 30 00 BA 09 46 00 58 B2 31 3A 59 B2 34 3A |000...F.X.1:Y.4:| 000001B0: 58 58 B2 38 3A 59 59 B2 31 34 00 C4 09 50 00 8D |XX.8:YY.14...P..| 000001C0: 31 30 30 30 00 D6 09 5A 00 A1 41 24 3A 8B 41 24 |1000...Z..A$:.A$| 000001D0: B2 22 22 A7 39 30 00 E0 09 64 00 8D 33 30 30 30 |."".90...d..3000| 000001E0: 00 F3 09 6E 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...n..A$:.A$."".| 000001F0: 31 31 30 00 FD 09 78 00 8D 33 30 30 30 00 03 0A |110...x..3000...| 00000200: 82 00 90 00 24 0A E7 03 8F 20 2D 2D 2D 2D 20 4F |....$.... ---- O| 00000210: 50 45 4E 20 57 49 4E 44 4F 57 20 58 2C 59 2C 58 |PEN WINDOW X,Y,X| 00000220: 58 2C 59 59 00 4F 0A E8 03 57 B2 34 30 AB 28 59 |X,YY.O...W.40.(Y| 00000230: 59 AB 59 29 3A 54 58 B2 59 AA 31 30 32 34 3A 54 |Y.Y):TX.Y.1024:T| 00000240: 54 B2 58 AC 34 30 3A 54 58 B2 54 58 AA 54 54 00 |T.X.40:TX.TX.TT.| 00000250: 6A 0A F2 03 42 B2 59 59 AB 59 3A 43 B2 58 58 AB |j...B.YY.Y:C.XX.| 00000260: 58 3A 44 B2 54 58 3A 45 B2 31 00 7D 0A F7 03 4C |X:D.TX:E.1.}...L| 00000270: 45 B2 C3 28 53 53 24 29 3A 4C 4C B2 31 00 88 0A |E..(SS$):LL.1...| 00000280: FC 03 81 41 B2 31 A4 43 00 94 0A 06 04 81 41 41 |...A.1.C......AA| 00000290: B2 31 A4 42 00 A6 0A 10 04 57 4E 28 57 57 2C 45 |.1.B.....WN(WW,E| 000002A0: 29 B2 C2 28 44 29 00 BF 0A 15 04 8B 4C 4C B1 4C |)..(D)......LL.L| 000002B0: 45 20 A7 20 97 44 2C 33 32 3A 89 31 30 35 35 00 |E . .D,32:.1055.| 000002C0: D9 0A 1A 04 97 44 2C 53 43 28 C6 28 CA 28 53 53 |.....D,SC(.(.(SS| 000002D0: 24 2C 4C 4C 2C 31 29 29 29 00 F1 0A 1F 04 44 B2 |$,LL,1))).....D.| 000002E0: 44 AA 31 3A 4C 4C B2 4C 4C AA 31 3A 45 B2 45 AA |D.1:LL.LL.1:E.E.| 000002F0: 31 00 F9 0A 24 04 82 41 41 00 03 0B 2E 04 44 B2 |1...$..AA.....D.| 00000300: 44 AA 57 00 10 0B 38 04 82 41 3A 45 B2 45 AB 31 |D.W...8..A:E.E.1| 00000310: 00 1F 0B 42 04 57 43 28 57 57 AC 34 29 B2 58 00 |...B.WC(WW.4).X.| 00000320: 32 0B 4C 04 57 43 28 28 57 57 AC 34 29 AA 31 29 |2.L.WC((WW.4).1)| 00000330: B2 59 00 46 0B 56 04 57 43 28 28 57 57 AC 34 29 |.Y.F.V.WC((WW.4)| 00000340: AA 32 29 B2 58 58 00 5A 0B 60 04 57 43 28 28 57 |.2).XX.Z.`.WC((W| 00000350: 57 AC 34 29 AA 33 29 B2 59 59 00 66 0B 6A 04 57 |W.4).3).YY.f.j.W| 00000360: 57 B2 57 57 AA 31 00 6C 0B 74 04 8E 00 84 0B B7 |W.WW.1.l.t......| 00000370: 0B 8F 20 2D 2D 2D 2D 20 43 4C 4F 53 45 20 57 49 |.. ---- CLOSE WI| 00000380: 4E 44 4F 57 00 90 0B B8 0B 57 57 B2 57 57 AB 31 |NDOW.....WW.WW.1| 00000390: 00 9F 0B C2 0B 58 B2 57 43 28 57 57 AC 34 29 00 |.....X.WC(WW.4).| 000003A0: B2 0B CC 0B 59 B2 57 43 28 28 57 57 AC 34 29 AA |....Y.WC((WW.4).| 000003B0: 31 29 00 C6 0B D6 0B 58 58 B2 57 43 28 28 57 57 |1).....XX.WC((WW| 000003C0: AC 34 29 AA 32 29 00 DA 0B E0 0B 59 59 B2 57 43 |.4).2).....YY.WC| 000003D0: 28 28 57 57 AC 34 29 AA 33 29 00 05 0C 1C 0C 57 |((WW.4).3).....W| 000003E0: B2 34 30 AB 28 59 59 AB 59 29 3A 54 58 B2 59 AA |.40.(YY.Y):TX.Y.| 000003F0: 31 30 32 34 3A 54 54 B2 58 AC 34 30 3A 54 58 B2 |1024:TT.X.40:TX.| 00000400: 54 58 AA 54 54 00 20 0C 26 0C 42 B2 59 59 AB 59 |TX.TT. .&.B.YY.Y| 00000410: 3A 43 B2 58 58 AB 58 3A 44 B2 54 58 3A 45 B2 31 |:C.XX.X:D.TX:E.1| 00000420: 00 2B 0C 30 0C 81 41 B2 31 A4 43 00 37 0C 3A 0C |.+.0..A.1.C.7.:.| 00000430: 81 41 41 B2 31 A4 42 00 47 0C 44 0C 97 44 2C 57 |.AA.1.B.G.D..D,W| 00000440: 4E 28 57 57 2C 45 29 00 57 0C 4E 0C 44 B2 44 AA |N(WW,E).W.N.D.D.| 00000450: 31 3A 45 B2 45 AA 31 00 5F 0C 58 0C 82 41 41 00 |1:E.E.1._.X..AA.| 00000460: 69 0C 62 0C 44 B2 44 AA 57 00 70 0C 6C 0C 82 41 |i.b.D.D.W.p.l..A| 00000470: 00 76 0C 80 0C 8E 00 95 0C 83 13 8F 20 2D 2D 20 |.v.......... -- | 00000480: 54 48 49 53 20 52 4F 55 54 49 4E 45 20 43 4F 4E |THIS ROUTINE CON| 00000490: 56 45 52 54 53 00 B6 0C 84 13 8F 20 2D 2D 20 50 |VERTS...... -- P| 000004A0: 45 54 53 43 49 49 20 43 48 41 52 41 43 54 45 52 |ETSCII CHARACTER| 000004B0: 53 20 49 4E 54 4F 00 D6 0C 85 13 8F 20 2D 2D 20 |S INTO...... -- | 000004C0: 53 43 52 45 45 4E 2D 43 4F 44 45 20 43 48 41 52 |SCREEN-CODE CHAR| 000004D0: 41 43 54 45 52 53 00 F5 0C 86 13 8F 20 2D 2D 20 |ACTERS...... -- | 000004E0: 42 45 43 41 55 53 45 20 54 48 45 20 57 49 4E 44 |BECAUSE THE WIND| 000004F0: 4F 57 20 49 53 00 16 0D 87 13 8F 20 2D 2D 20 50 |OW IS...... -- P| 00000500: 4F 4B 45 27 44 20 4F 4E 20 54 4F 20 54 48 45 20 |OKE'D ON TO THE | 00000510: 53 43 52 45 45 4E 00 30 0D 88 13 81 41 B2 30 A4 |SCREEN.0....A.0.| 00000520: 33 31 3A 53 43 28 41 AA 36 34 29 B2 41 3A 82 41 |31:SC(A.64).A:.A| 00000530: 00 48 0D 92 13 81 41 B2 33 32 A4 36 33 3A 53 43 |.H....A.32.63:SC| 00000540: 28 41 29 B2 41 3A 82 41 00 64 0D 9C 13 81 41 B2 |(A).A:.A.d....A.| 00000550: 36 34 A4 39 35 3A 53 43 28 41 AA 31 32 38 29 B2 |64.95:SC(A.128).| 00000560: 41 3A 82 41 00 80 0D A6 13 81 41 B2 39 37 A4 31 |A:.A......A.97.1| 00000570: 32 37 3A 53 43 28 41 AA 36 34 29 B2 41 3A 82 41 |27:SC(A.64).A:.A| 00000580: 00 86 0D B0 13 8E 00 A6 0D 0F 27 8F 20 2D 2D 2D |..........'. ---| 00000590: 2D 20 44 45 46 49 4E 45 20 57 49 4E 44 4F 57 20 |- DEFINE WINDOW | 000005A0: 53 54 52 49 4E 47 00 BF 0D 10 27 3A 20 20 20 53 |STRING....': S| 000005B0: 53 24 B2 22 B0 C3 C3 C3 C3 C3 C3 C3 C3 AE 22 00 |S$."..........".| 000005C0: D8 0D 1A 27 53 53 24 B2 53 53 24 AA 22 C2 20 20 |...'SS$.SS$.". | 000005D0: 4D 45 4E 55 20 20 C2 22 00 F1 0D 24 27 53 53 24 |MENU ."...$'SS$| 000005E0: B2 53 53 24 AA 22 AB C3 C3 C3 C3 C3 C3 C3 C3 B3 |.SS$."..........| 000005F0: 22 00 0A 0E 2E 27 53 53 24 B2 53 53 24 AA 22 C2 |"....'SS$.SS$.".| 00000600: 50 52 45 53 53 20 41 20 C2 22 00 23 0E 38 27 53 |PRESS A .".#.8'S| 00000610: 53 24 B2 53 53 24 AA 22 C2 4B 45 59 20 54 4F 20 |S$.SS$.".KEY TO | 00000620: 20 C2 22 00 3C 0E 42 27 53 53 24 B2 53 53 24 AA | .".<.B'SS$.SS$.| 00000630: 22 C2 43 4F 4E 54 49 4E 55 45 C2 22 00 55 0E 4C |".CONTINUE.".U.L| 00000640: 27 53 53 24 B2 53 53 24 AA 22 AD C0 C0 C0 C0 C0 |'SS$.SS$."......| 00000650: C0 C0 C0 BD 22 00 5B 0E 56 27 8E 00 74 0E 1F 4E |....".[.V'..t..N| 00000660: 8F 20 2D 2D 20 46 49 4C 4C 20 54 48 45 20 53 43 |. -- FILL THE SC| 00000670: 52 45 45 4E 00 85 0E 20 4E 99 22 13 97 22 AA C7 |REEN... N.".."..| 00000680: 28 31 34 32 29 00 9C 0E 25 4E 97 35 33 32 38 31 |(142)...%N.53281| 00000690: 2C 31 35 3A 97 35 33 32 38 30 2C 32 00 AA 0E 2A |,15:.53280,2...*| 000006A0: 4E 81 20 41 B2 31 A4 39 36 30 00 B4 0E 34 4E 99 |N. A.1.960...4N.| 000006B0: 22 DA 22 3B 00 BB 0E 3E 4E 82 41 00 EC 0E 48 4E |".";...>N.A...HN| 000006C0: 99 22 13 11 11 11 1D 1D 1D 20 54 4F 20 4F 50 45 |."....... TO OPE| 000006D0: 4E 20 41 20 57 49 4E 44 4F 57 20 49 4E 20 59 4F |N A WINDOW IN YO| 000006E0: 55 52 20 50 52 4F 47 52 41 4D 20 22 00 1D 0F 52 |UR PROGRAM "...R| 000006F0: 4E 99 22 13 11 11 11 11 1D 1D 1D 1D 20 53 45 54 |N."......... SET| 00000700: 20 54 48 45 20 43 4F 4F 52 44 49 4E 41 54 45 53 | THE COORDINATES| 00000710: 20 4C 49 4B 45 20 54 48 49 53 3A 20 22 00 4D 0F | LIKE THIS: ".M.| 00000720: 5C 4E 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D |\N."............| 00000730: 1D 1D 20 58 3D 30 20 3A 20 59 3D 33 20 3A 20 58 |.. X=0 : Y=3 : X| 00000740: 58 3D 38 20 3A 20 59 59 3D 31 30 20 22 00 78 0F |X=8 : YY=10 ".x.| 00000750: 66 4E 99 22 13 11 11 11 11 11 11 11 11 1D 1D 1D |fN."............| 00000760: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 47 4F 53 55 |........... GOSU| 00000770: 42 20 31 30 30 30 20 22 00 AC 0F 70 4E 99 22 13 |B 1000 "...pN.".| 00000780: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................| 00000790: 1D 1D 1D 20 54 4F 20 43 4C 4F 53 45 20 54 48 45 |... TO CLOSE THE| 000007A0: 20 57 49 4E 44 4F 57 2E 2E 2E 20 22 00 DB 0F 7A | WINDOW... "...z| 000007B0: 4E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |N.".............| 000007C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 47 |.............. G| 000007D0: 4F 53 55 42 20 33 30 30 30 20 22 00 13 10 84 4E |OSUB 3000 "....N| 000007E0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............| 000007F0: 11 1D 1D 1D 1D 1D 1D 1D 20 50 52 45 53 53 20 52 |........ PRESS R| 00000800: 45 54 55 52 4E 20 54 4F 20 53 45 45 20 44 45 4D |ETURN TO SEE DEM| 00000810: 4F 20 22 00 2C 10 8E 4E A1 41 24 3A 8B 41 24 B3 |O ".,..N.A$:.A$.| 00000820: B1 C7 28 31 33 29 A7 32 30 31 31 30 00 5D 10 98 |..(13).20110.]..| 00000830: 4E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |N.".............| 00000840: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000850: 1D 1D 1D 1D 20 4F 4B 2E 2E 2E 2E 20 22 00 63 10 |.... OK.... ".c.| 00000860: A2 4E 8E 00 00 00 |.N.... |
..&.... -- THIS ROUTINE WAS WRITTEN BY.I .... -- MIKE PERRY (STARKNAKED ON.Q.... -- ON QLINK.) LINES 10-30 MUST BE...... -- INCLUDED WITH YOUR PROGRAM TO...... - - USE THE WINDOW ROUTINES....... -- X=TR OW,Y=TCOL,XX=BROW,YY=BCOL...... -- THE C LOSING ROUTINE SIMPLY.).... -- CLOSES TH E LAST WINDOW YOU.:.... -- OPENED..Y.... SC(255),WN(20,255),WC(80).B...WW.0.L.... 5000.W.(..10000...-..20000...2.X.0:Y.2:X X.7:YY.12...<..1000...F.X.1:Y.4:XX.8:YY. 14.D.P..1000.V.Z..A$:.A$."".90...D..3000 ...N..A$:.A$."".110...X..3000.......$... . ---- OPEN WINDOW X,Y,XX,YY.O...W.40.(Y Y.Y):TX.Y.1024:TT.X.40:TX.TX.TT.J...B.YY .Y:C.XX.X:D.TX:E.1.}...LE.C(SS$):LL.1... ...A.1.C......AA.1.B.....WN(WW,E).B(D).. ....LL.LE . .D,32:.1055.Y....D,SC(F(J(SS $,LL,1))).....D.D.1:LL.LL.1:E.E.1...$..A A.....D.D.W...8..A:E.E.1...B.WC(WW.4).X. 2.L.WC((WW.4).1).Y.F.V.WC((WW.4).2).XX.Z .`.WC((WW.4).3).YY.F.J.WW.WW.1.L.T...... .. ---- CLOSE WINDOW.....WW.WW.1...B.X.W C(WW.4)...L.Y.WC((WW.4).1).F.V.XX.WC((WW .4).2).Z...YY.WC((WW.4).3).....W.40.(YY. Y):TX.Y.1024:TT.X.40:TX.TX.TT. .&.B.YY.Y :C.XX.X:D.TX:E.1.+.0..A.1.C.7.:..AA.1.B. G.D..D,WN(WW,E).W.N.D.D.1:E.E.1._.X..AA. I.B.D.D.W.P.L..A.V.......... -- THIS ROU TINE CONVERTS...... -- PETSCII CHARACTER S INTO.V.... -- SCREEN-CODE CHARACTERS.. .... -- BECAUSE THE WINDOW IS...... -- P OKE'D ON TO THE SCREEN.0....A.0.31:SC(A. 64).A:.A.H....A.32.63:SC(A).A:.A.D....A. 64.95:SC(A.128).A:.A......A.97.127:SC(A. 64).A:.A..........'. ---- DEFINE WINDOW STRING....': SS$.".CCCCCCCC.".X..'SS$. SS$."B MENU B"...$'SS$.SS$.".CCCCCCCC. "....'SS$.SS$."BPRESS A B".#.8'SS$.SS$." BKEY TO B".<.B'SS$.SS$."BCONTINUEB".U.L 'SS$.SS$."..........".[.V'..T..N. -- FIL L THE SCREEN... N."..".G(142)...%N.53281 ,15:.53280,2...*N. A.1.960...4N."Z";...> N.A...HN."....... TO OPEN A WINDOW IN YO UR PROGRAM "...RN."......... SET THE COO RDINATES LIKE THIS: ".M.\N."............ .. X=0 : Y=3 : XX=8 : YY=10 ".X.FN.".... ................... GOSUB 1000 "...PN.". ................... TO CLOSE THE WINDOW. .. "...ZN."........................... G OSUB 3000 "....N."...................... PRESS RETURN TO SEE DEMO ".,..N.A$:.A$. .G(13).20110.]..N."..................... ............ OK.... ".C..N....
> CLICK IMAGE PREVIEW FOR FULL MODAL