WINDOWING 128
FILE INFORMATION
FILENAME(S): WINDOWING 128
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 18:12:16
APPEARS ON: 1 disk(s)
FILE HASH
5a6ab72e5f81f6ae6a74eb9cf403716c3963f1684d92403de6f60ac47e1002f2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 48 S 2 | WINDOWING 128 | PRG | Sailor, Ganheden | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 26 40 B4 00 52 24 B2 C7 28 32 38 29 20 3A |.@&@..R$..(28) :|
00000010: 20 59 24 B2 C7 28 31 35 38 29 20 3A 20 53 50 24 | Y$..(158) : SP$|
00000020: B2 C7 28 33 32 29 00 4C 40 BE 00 52 56 24 B2 C7 |..(32).L@..RV$..|
00000030: 28 31 38 29 20 3A 20 52 4F 24 B2 C7 28 31 34 36 |(18) : RO$..(146|
00000040: 29 20 3A 20 47 24 B2 C7 28 33 30 29 00 71 40 C8 |) : G$..(30).q@.|
00000050: 00 81 20 58 20 B2 20 31 20 A4 20 32 31 20 3A 20 |.. X . 1 . 21 : |
00000060: 45 53 24 20 B2 20 45 53 24 AA 53 50 24 20 3A 20 |ES$ . ES$.SP$ : |
00000070: 82 00 8B 40 D2 00 8D 20 32 30 38 30 20 3A 20 8F |...@... 2080 : .|
00000080: 20 50 4F 4B 45 20 49 4E 20 4D 4C 00 9F 40 DC 00 | POKE IN ML..@..|
00000090: 99 20 47 24 3B 20 3A 20 8F 20 47 52 45 45 4E 00 |. G$; : . GREEN.|
000000A0: B9 40 E6 00 E7 20 30 2C 31 20 3A 20 E7 20 34 2C |.@... 0,1 : . 4,|
000000B0: 31 20 3A 20 E7 20 36 2C 31 00 D7 40 FA 00 8F 20 |1 : . 6,1..@... |
000000C0: 38 30 2D 43 4F 4C 55 4D 4E 20 44 45 4D 4F 4E 53 |80-COLUMN DEMONS|
000000D0: 54 52 41 54 49 4F 4E 00 0E 41 04 01 8B 20 CC 28 |TRATION..A... .(|
000000E0: 58 29 B2 30 20 A7 20 99 20 22 53 57 49 54 43 48 |X).0 . . "SWITCH|
000000F0: 20 54 4F 20 38 30 2D 43 4F 4C 55 4D 4E 53 21 22 | TO 80-COLUMNS!"|
00000100: 20 AA 20 C7 28 37 29 20 3A 20 FE 0B 20 33 00 20 | . .(7) : .. 3. |
00000110: 41 0E 01 DE 20 31 2C 31 20 3A 20 DE 20 30 2C 31 |A... 1,1 : . 0,1|
00000120: 00 38 41 18 01 96 20 A5 52 28 58 29 B2 B5 28 BB |.8A... .R(X)..(.|
00000130: 28 31 29 AC 58 29 AA 31 00 59 41 22 01 DE 20 35 |(1).X).1.YA".. 5|
00000140: 2C 31 20 3A 20 43 57 B2 38 30 20 3A 20 8F 20 38 |,1 : CW.80 : . 8|
00000150: 30 2D 43 4F 4C 55 4D 4E 53 00 88 41 2C 01 FE 02 |0-COLUMNS..A,...|
00000160: 31 35 20 3A 20 9E 20 36 35 33 37 38 20 3A 20 8F |15 : . 65378 : .|
00000170: 20 45 4E 53 55 52 45 53 20 38 30 2D 43 4F 4C 55 | ENSURES 80-COLU|
00000180: 4D 4E 20 43 48 41 52 53 00 AE 41 36 01 8D 20 31 |MN CHARS..A6.. 1|
00000190: 34 30 30 20 3A 20 8F 20 46 49 4C 4C 20 53 43 52 |400 : . FILL SCR|
000001A0: 45 45 4E 20 57 49 54 48 20 57 4F 52 44 53 00 CC |EEN WITH WORDS..|
000001B0: 41 40 01 8D 20 31 39 30 30 20 3A 20 8F 20 57 41 |A@.. 1900 : . WA|
000001C0: 49 54 20 46 4F 52 20 41 20 4B 45 59 00 F3 41 4A |IT FOR A KEY..AJ|
000001D0: 01 9E 20 33 30 37 32 2C 30 20 3A 20 8F 20 53 41 |.. 3072,0 : . SA|
000001E0: 56 45 20 38 30 2D 43 4F 4C 55 4D 4E 20 53 43 52 |VE 80-COLUMN SCR|
000001F0: 45 45 4E 00 16 42 54 01 8D 20 31 35 37 30 20 3A |EEN..BT.. 1570 :|
00000200: 20 8F 20 50 52 49 4E 54 20 22 57 49 4E 44 4F 57 | . PRINT "WINDOW|
00000210: 22 20 49 4E 46 4F 00 49 42 5E 01 9E 20 33 30 37 |" INFO.IB^.. 307|
00000220: 32 2C 31 20 3A 20 8F 20 52 45 53 54 4F 52 45 20 |2,1 : . RESTORE |
00000230: 4F 52 49 47 49 4E 41 4C 20 38 30 2D 43 4F 4C 55 |ORIGINAL 80-COLU|
00000240: 4D 4E 20 53 43 52 45 45 4E 00 5E 42 68 01 8D 20 |MN SCREEN.^Bh.. |
00000250: 32 30 30 30 20 3A 20 8F 20 50 41 55 53 45 00 7C |2000 : . PAUSE.||
00000260: 42 7C 01 8F 20 34 30 2D 43 4F 4C 55 4D 4E 20 44 |B|.. 40-COLUMN D|
00000270: 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 00 A1 42 86 |EMONSTRATION..B.|
00000280: 01 DE 20 35 2C 31 20 3A 20 99 22 53 57 49 54 43 |.. 5,1 : ."SWITC|
00000290: 48 20 54 4F 20 34 30 20 43 4F 4C 55 4D 4E 53 21 |H TO 40 COLUMNS!|
000002A0: 22 00 C2 42 90 01 DE 20 30 2C 31 20 3A 20 43 57 |"..B... 0,1 : CW|
000002B0: B2 34 30 20 3A 20 8F 20 34 30 2D 43 4F 4C 55 4D |.40 : . 40-COLUM|
000002C0: 4E 53 00 E8 42 9A 01 8D 20 31 34 30 30 20 3A 20 |NS..B... 1400 : |
000002D0: 8F 20 46 49 4C 4C 20 53 43 52 45 45 4E 20 57 49 |. FILL SCREEN WI|
000002E0: 54 48 20 57 4F 52 44 53 00 06 43 A4 01 8D 20 31 |TH WORDS..C... 1|
000002F0: 39 30 30 20 3A 20 8F 20 57 41 49 54 20 46 4F 52 |900 : . WAIT FOR|
00000300: 20 41 20 4B 45 59 00 2D 43 AE 01 9E 20 33 30 37 | A KEY.-C... 307|
00000310: 32 2C 32 20 3A 20 8F 20 53 41 56 45 20 34 30 2D |2,2 : . SAVE 40-|
00000320: 43 4F 4C 55 4D 4E 20 53 43 52 45 45 4E 00 50 43 |COLUMN SCREEN.PC|
00000330: B8 01 8D 20 31 35 37 30 20 3A 20 8F 20 50 52 49 |... 1570 : . PRI|
00000340: 4E 54 20 22 57 49 4E 44 4F 57 22 20 49 4E 46 4F |NT "WINDOW" INFO|
00000350: 00 85 43 C2 01 9E 20 33 30 37 32 2C 33 20 3A 20 |..C... 3072,3 : |
00000360: 8F 20 20 20 52 45 53 54 4F 52 45 20 4F 52 49 47 |. RESTORE ORIG|
00000370: 49 4E 41 4C 20 34 30 2D 43 4F 4C 55 4D 4E 20 53 |INAL 40-COLUMN S|
00000380: 43 52 45 45 4E 00 9A 43 CC 01 8D 20 32 30 30 30 |CREEN..C... 2000|
00000390: 20 3A 20 8F 20 50 41 55 53 45 00 C0 43 E0 01 8F | : . PAUSE..C...|
000003A0: 20 47 52 41 50 48 49 43 20 53 43 52 45 45 4E 20 | GRAPHIC SCREEN |
000003B0: 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 23 31 |DEMONSTRATION #1|
000003C0: 00 DA 43 EA 01 E7 20 31 2C 38 20 3A 20 E7 20 30 |..C... 1,8 : . 0|
000003D0: 2C 31 20 3A 20 E7 20 34 2C 31 00 E3 43 F4 01 FE |,1 : . 4,1..C...|
000003E0: 1C 20 31 00 03 44 FE 01 DE 20 31 2C 31 20 3A 20 |. 1..D... 1,1 : |
000003F0: 8F 20 48 49 47 48 2D 52 45 53 20 47 52 41 50 48 |. HIGH-RES GRAPH|
00000400: 49 43 53 00 17 44 08 02 E1 20 31 2C 30 2C 30 2C |ICS..D... 1,0,0,|
00000410: 33 31 39 2C 31 30 30 00 2D 44 12 02 E1 20 31 2C |319,100.-D... 1,|
00000420: 30 2C 31 30 33 2C 33 31 39 2C 31 36 38 00 45 44 |0,103,319,168.ED|
00000430: 1C 02 E1 20 31 2C 31 30 30 2C 31 33 30 2C 32 31 |... 1,100,130,21|
00000440: 39 2C 31 34 32 00 5D 44 26 02 81 20 58 20 B2 20 |9,142.]D&.. X . |
00000450: 31 31 30 20 A4 20 32 31 39 20 A9 20 37 00 77 44 |110 . 219 . 7.wD|
00000460: 30 02 E5 20 31 2C 20 58 AB 31 30 2C 31 34 32 20 |0.. 1, X.10,142 |
00000470: A4 20 58 2C 31 33 30 00 7D 44 3A 02 82 00 8E 44 |. X,130.}D:....D|
00000480: 44 02 81 20 58 20 B2 20 31 20 A4 20 35 30 00 B4 |D.. X . 1 . 50..|
00000490: 44 4E 02 E0 20 31 2C 31 30 2C 31 33 2C 22 53 54 |DN.. 1,10,13,"ST|
000004A0: 41 52 53 48 49 50 20 47 4F 4F 46 59 50 52 49 5A |ARSHIP GOOFYPRIZ|
000004B0: 45 22 2C 31 00 CB 44 58 02 E0 20 31 2C 20 34 2C |E",1..DX.. 1, 4,|
000004C0: 31 35 2C 22 57 41 52 50 22 2C 31 00 E5 44 62 02 |15,"WARP",1..Db.|
000004D0: E0 20 31 2C 33 30 2C 31 35 2C 22 53 48 49 45 4C |. 1,30,15,"SHIEL|
000004E0: 44 53 22 2C 31 00 EF 44 6C 02 E7 20 31 2C 32 00 |DS",1..Dl.. 1,2.|
000004F0: 01 45 76 02 E0 20 31 2C 20 35 2C 31 36 2C 22 37 |.Ev.. 1, 5,16,"7|
00000500: 22 00 15 45 80 02 E0 20 31 2C 33 32 2C 31 36 2C |"..E... 1,32,16,|
00000510: 22 32 39 25 22 00 1F 45 8A 02 E7 20 31 2C 32 00 |"29%"..E... 1,2.|
00000520: 30 45 94 02 81 20 58 20 B2 20 31 20 A4 20 35 30 |0E... X . 1 . 50|
00000530: 00 45 45 9E 02 48 20 B2 20 A5 52 28 33 30 30 29 |.EE..H . .R(300)|
00000540: 20 AA 20 31 30 00 59 45 A8 02 56 20 B2 20 A5 52 | . 10.YE..V . .R|
00000550: 28 38 30 29 20 AA 20 31 30 00 69 45 B2 02 E5 20 |(80) . 10.iE... |
00000560: 31 2C 48 2C 56 20 3A 20 82 00 74 45 BC 02 E7 20 |1,H,V : ..tE... |
00000570: 31 2C 31 34 00 90 45 C6 02 8D 20 31 39 30 30 20 |1,14..E... 1900 |
00000580: 3A 20 8F 20 57 41 49 54 20 46 4F 52 20 4B 45 59 |: . WAIT FOR KEY|
00000590: 00 AE 45 DA 02 8F 20 44 52 41 57 20 57 49 4E 44 |..E... DRAW WIND|
000005A0: 4F 57 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 00 D3 |OW INFORMATION..|
000005B0: 45 E4 02 9E 20 33 30 37 32 2C 34 20 3A 20 8F 20 |E... 3072,4 : . |
000005C0: 53 41 56 45 20 47 52 41 50 48 49 43 20 53 43 52 |SAVE GRAPHIC SCR|
000005D0: 45 45 4E 00 EE 45 EE 02 E7 20 31 2C 32 20 3A 20 |EEN..E... 1,2 : |
000005E0: E0 20 31 2C 31 30 2C 32 2C 45 53 24 2C 31 00 F9 |. 1,10,2,ES$,1..|
000005F0: 45 F8 02 E7 20 31 2C 31 35 00 0A 46 02 03 81 20 |E... 1,15..F... |
00000600: 58 20 B2 20 32 20 A4 20 31 33 00 1C 46 0C 03 E0 |X . 2 . 13..F...|
00000610: 31 2C 31 30 2C 58 2C 45 53 24 2C 31 00 22 46 16 |1,10,X,ES$,1."F.|
00000620: 03 82 00 33 46 20 03 E7 20 31 2C 37 20 3A 20 FE |...3F .. 1,7 : .|
00000630: 1C 20 32 00 49 46 2A 03 E1 20 31 2C 38 34 2C 31 |. 2.IF*.. 1,84,1|
00000640: 39 2C 32 34 34 2C 31 30 36 00 53 46 34 03 8C 20 |9,244,106.SF4.. |
00000650: 39 33 30 00 7A 46 3E 03 E7 20 31 2C 32 20 3A 20 |930.zF>.. 1,2 : |
00000660: E0 20 31 2C 31 34 2C 32 2C 22 53 54 41 54 55 53 |. 1,14,2,"STATUS|
00000670: 20 52 45 50 4F 52 54 22 2C 31 00 85 46 48 03 E7 | REPORT",1..FH..|
00000680: 20 31 2C 31 35 00 9C 46 52 03 81 20 58 20 B2 20 | 1,15..FR.. X . |
00000690: 32 20 A4 20 31 30 3A 20 87 20 41 24 00 B0 46 5C |2 . 10: . A$..F\|
000006A0: 03 E0 20 31 2C 31 32 2C 58 AA 32 2C 41 24 2C 31 |.. 1,12,X.2,A$,1|
000006B0: 00 B6 46 66 03 82 00 C9 46 7A 03 A1 F9 20 41 24 |..Ff....Fz... A$|
000006C0: 20 3A 20 8F 20 57 41 49 54 00 FA 46 84 03 9E 20 | : . WAIT..F... |
000006D0: 33 30 37 32 2C 35 20 3A 20 8F 20 52 45 53 54 4F |3072,5 : . RESTO|
000006E0: 52 45 20 4F 52 49 47 49 4E 41 4C 20 47 52 41 50 |RE ORIGINAL GRAP|
000006F0: 48 49 43 20 53 43 52 45 45 4E 00 1B 47 8E 03 8D |HIC SCREEN..G...|
00000700: 20 31 39 30 30 20 3A 20 8F 20 4E 45 58 54 20 44 | 1900 : . NEXT D|
00000710: 45 4D 4F 20 4D 45 53 53 41 47 45 00 35 47 A2 03 |EMO MESSAGE.5G..|
00000720: 83 20 22 54 48 49 53 20 49 53 20 41 20 54 45 53 |. "THIS IS A TES|
00000730: 54 20 4F 46 22 00 4D 47 AC 03 83 20 22 53 49 4D |T OF".MG... "SIM|
00000740: 50 4C 45 20 47 52 41 50 48 49 43 2D 22 00 66 47 |PLE GRAPHIC-".fG|
00000750: B6 03 83 20 22 53 43 52 45 45 4E 20 57 49 4E 44 |... "SCREEN WIND|
00000760: 4F 57 49 4E 47 22 00 7F 47 C0 03 83 20 22 4F 4E |OWING"..G... "ON|
00000770: 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 22 00 | THE COMMODORE".|
00000780: 8C 47 CA 03 83 20 22 31 32 38 2E 22 00 9C 47 D4 |.G... "128."..G.|
00000790: 03 83 20 22 20 22 20 2C 20 22 20 22 00 B4 47 DE |.. " " , " "..G.|
000007A0: 03 83 20 22 20 20 50 52 45 53 53 20 41 4E 59 20 |.. " PRESS ANY |
000007B0: 4B 45 59 22 00 CB 47 E8 03 83 20 22 20 20 20 54 |KEY"..G... " T|
000007C0: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 F1 47 FC 03 |O CONTINUE"..G..|
000007D0: 8F 20 47 52 41 50 48 49 43 20 53 43 52 45 45 4E |. GRAPHIC SCREEN|
000007E0: 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 23 | DEMONSTRATION #|
000007F0: 32 00 04 48 06 04 E7 20 30 2C 32 20 3A 20 E7 20 |2..H... 0,2 : . |
00000800: 34 2C 31 33 00 25 48 10 04 DE 33 2C 31 20 3A 20 |4,13.%H...3,1 : |
00000810: 8F 20 4D 55 4C 54 49 43 4F 4C 4F 52 20 47 52 41 |. MULTICOLOR GRA|
00000820: 50 48 49 43 53 00 36 48 1A 04 81 20 58 20 B2 20 |PHICS.6H... X . |
00000830: 31 20 A4 20 31 35 00 46 48 24 04 43 31 20 B2 20 |1 . 15.FH$.C1 . |
00000840: A5 52 28 31 36 29 00 56 48 2E 04 43 32 20 B2 20 |.R(16).VH..C2 . |
00000850: A5 52 28 31 36 29 00 6F 48 38 04 8B 20 43 31 B2 |.R(16).oH8.. C1.|
00000860: 32 20 B0 20 43 32 B2 32 20 A7 20 31 30 36 30 00 |2 . C2.2 . 1060.|
00000870: 83 48 42 04 E7 20 31 2C 43 31 20 3A 20 E7 20 32 |.HB.. 1,C1 : . 2|
00000880: 2C 43 32 00 A2 48 4C 04 43 20 B2 20 A5 52 28 32 |,C2..HL.C . .R(2|
00000890: 29 20 3A 20 8F 20 43 4F 4C 4F 52 20 53 4F 55 52 |) : . COLOR SOUR|
000008A0: 43 45 00 C3 48 56 04 48 20 B2 20 A5 52 28 31 36 |CE..HV.H . .R(16|
000008B0: 30 29 20 3A 20 8F 20 58 20 43 4F 4F 52 44 49 4E |0) : . X COORDIN|
000008C0: 41 54 45 00 E4 48 60 04 56 20 B2 20 A5 52 28 32 |ATE..H`.V . .R(2|
000008D0: 30 30 29 20 3A 20 8F 20 59 20 43 4F 4F 52 44 49 |00) : . Y COORDI|
000008E0: 4E 41 54 45 00 0A 49 6A 04 57 20 B2 20 A5 52 28 |NATE..Ij.W . .R(|
000008F0: 32 30 29 AA 31 30 20 3A 20 8F 20 57 49 44 54 48 |20).10 : . WIDTH|
00000900: 20 4F 46 20 43 49 52 43 4C 45 00 31 49 74 04 55 | OF CIRCLE.1It.U|
00000910: 20 B2 20 A5 52 28 33 30 29 AA 32 30 20 3A 20 8F | . .R(30).20 : .|
00000920: 20 48 45 49 47 48 54 20 4F 46 20 43 49 52 43 4C | HEIGHT OF CIRCL|
00000930: 45 00 41 49 7E 04 E2 20 43 2C 48 2C 56 2C 57 2C |E.AI~.. C,H,V,W,|
00000940: 55 00 47 49 88 04 82 00 60 49 92 04 8F 20 41 20 |U.GI....`I... A |
00000950: 46 45 57 20 52 41 4E 44 4F 4D 20 4C 49 4E 45 53 |FEW RANDOM LINES|
00000960: 00 77 49 9C 04 81 20 58 20 B2 20 31 20 A4 20 A5 |.wI... X . 1 . .|
00000970: 52 28 31 30 29 AA 35 00 97 49 A6 04 43 31 20 B2 |R(10).5..I..C1 .|
00000980: 20 A5 52 28 31 36 29 20 3A 20 8B 20 43 31 B2 32 | .R(16) : . C1.2|
00000990: 20 A7 20 31 31 39 30 00 A2 49 B0 04 E7 20 31 2C | . 1190..I... 1,|
000009A0: 43 31 00 CD 49 BA 04 E5 20 31 2C 20 A5 52 28 31 |C1..I... 1, .R(1|
000009B0: 36 30 29 2C A5 52 28 32 30 30 29 20 A4 20 A5 52 |60),.R(200) . .R|
000009C0: 28 31 36 30 29 2C A5 52 28 32 30 30 29 00 D3 49 |(160),.R(200)..I|
000009D0: C4 04 82 00 F7 49 CE 04 E7 20 31 2C 31 20 3A 20 |.....I... 1,1 : |
000009E0: 8D 20 31 39 30 30 20 3A 20 8F 20 57 41 49 54 20 |. 1900 : . WAIT |
000009F0: 46 4F 52 20 4B 45 59 00 15 4A D8 04 9E 20 33 30 |FOR KEY..J... 30|
00000A00: 37 32 2C 34 20 3A 20 8F 20 53 41 56 45 20 47 52 |72,4 : . SAVE GR|
00000A10: 41 50 48 49 43 00 30 4A E2 04 8F 20 50 52 49 4E |APHIC.0J... PRIN|
00000A20: 54 20 57 49 4E 44 4F 57 20 4D 45 53 53 41 47 45 |T WINDOW MESSAGE|
00000A30: 00 42 4A EC 04 8C 20 39 33 30 20 3A 20 E7 20 31 |.BJ... 930 : . 1|
00000A40: 2C 31 00 52 4A F6 04 81 20 58 20 B2 20 31 20 A4 |,1.RJ... X . 1 .|
00000A50: 20 39 00 6F 4A 00 05 87 20 41 24 20 3A 20 41 24 | 9.oJ... A$ : A$|
00000A60: 20 B2 20 C8 28 41 24 AA 45 53 24 2C 31 37 29 00 | . .(A$.ES$,17).|
00000A70: 80 4A 0A 05 E0 20 31 2C 33 2C 58 2C 41 24 2C 31 |.J... 1,3,X,A$,1|
00000A80: 00 86 4A 14 05 82 00 90 4A 1E 05 A1 F9 20 41 24 |..J.....J.... A$|
00000A90: 00 C1 4A 28 05 9E 20 33 30 37 32 2C 35 20 3A 20 |..J(.. 3072,5 : |
00000AA0: 8F 20 52 45 53 54 4F 52 45 20 4F 52 49 47 49 4E |. RESTORE ORIGIN|
00000AB0: 41 4C 20 47 52 41 50 48 49 43 20 53 43 52 45 45 |AL GRAPHIC SCREE|
00000AC0: 4E 00 E2 4A 32 05 8D 20 31 39 30 30 20 3A 20 8F |N..J2.. 1900 : .|
00000AD0: 20 57 41 49 54 20 46 4F 52 20 4B 45 59 50 52 45 | WAIT FOR KEYPRE|
00000AE0: 53 53 00 F4 4A 3C 05 E7 20 30 2C 31 20 3A 20 E7 |SS..J<.. 0,1 : .|
00000AF0: 20 34 2C 31 00 06 4B 46 05 DE 20 35 2C 31 20 3A | 4,1..KF.. 5,1 :|
00000B00: 20 DE 20 30 2C 31 00 3F 4B 50 05 9E 20 36 35 33 | . 0,1.?KP.. 653|
00000B10: 37 38 20 3A 20 8F 20 45 4E 53 55 52 45 20 38 30 |78 : . ENSURE 80|
00000B20: 2D 43 4F 4C 55 4D 4E 20 43 48 41 52 41 43 54 45 |-COLUMN CHARACTE|
00000B30: 52 53 20 41 52 45 20 52 45 53 54 4F 52 45 44 00 |RS ARE RESTORED.|
00000B40: 45 4B 5A 05 80 00 66 4B 78 05 8F 20 57 52 49 54 |EKZ...fKx.. WRIT|
00000B50: 45 20 57 4F 52 44 53 20 54 4F 20 46 49 4C 4C 20 |E WORDS TO FILL |
00000B60: 53 43 52 45 45 4E 00 7E 4B 82 05 8B 20 43 57 B2 |SCREEN.~K... CW.|
00000B70: 38 30 20 A7 20 FE 25 20 3A 20 D5 20 FE 26 00 89 |80 . .% : . .&..|
00000B80: 4B 8C 05 8C 20 31 35 33 30 00 A6 4B 96 05 81 20 |K... 1530..K... |
00000B90: 58 B2 31 20 A4 20 31 30 20 3A 20 87 20 57 24 28 |X.1 . 10 : . W$(|
00000BA0: 58 29 20 3A 20 82 00 AE 4B A0 05 43 B2 30 00 BB |X) : ...K..C.0..|
00000BB0: 4B AA 05 EB 20 FC 20 43 B1 32 33 00 CE 4B B4 05 |K... . C.23..K..|
00000BC0: 57 B2 B5 28 BB 28 31 29 AC 31 30 29 AA 31 00 DB |W..(.(1).10).1..|
00000BD0: 4B BE 05 57 24 B2 57 24 28 57 29 00 FE 4B C8 05 |K..W$.W$(W)..K..|
00000BE0: 53 53 24 B2 47 24 AA 53 50 24 20 3A 20 8B 20 B9 |SS$.G$.SP$ : . .|
00000BF0: 28 30 29 B2 30 20 A7 20 53 53 24 B2 47 24 00 30 |(0).0 . SS$.G$.0|
00000C00: 4C D2 05 8B 20 B9 28 30 29 AA C3 28 57 24 29 AA |L... .(0)..(W$).|
00000C10: 31 20 B3 43 57 20 20 A7 20 99 20 53 53 24 3B 57 |1 .CW . . SS$;W|
00000C20: 24 3B 20 3A 20 D5 20 99 20 3A 20 43 B2 43 AA 31 |$; : . . : C.C.1|
00000C30: 00 36 4C DC 05 EC 00 3C 4C E6 05 8E 00 4C 4C FA |.6L....<L....LL.|
00000C40: 05 8F 20 57 4F 52 44 20 44 41 54 41 00 7B 4C 04 |.. WORD DATA.{L.|
00000C50: 06 83 20 43 4F 4D 4D 4F 44 4F 52 45 2C 20 57 49 |.. COMMODORE, WI|
00000C60: 4E 44 4F 57 2C 20 54 45 53 54 49 4E 47 2C 20 53 |NDOW, TESTING, S|
00000C70: 43 52 45 45 4E 2C 20 53 57 41 50 00 9A 4C 0E 06 |CREEN, SWAP..L..|
00000C80: 83 20 31 32 38 2C 20 59 45 53 2C 20 4E 4F 2C 20 |. 128, YES, NO, |
00000C90: 42 4C 41 48 2C 20 42 4C 41 48 00 B5 4C 22 06 8F |BLAH, BLAH..L"..|
00000CA0: 20 50 52 49 4E 54 20 22 57 49 4E 44 4F 57 22 20 | PRINT "WINDOW" |
00000CB0: 53 54 55 46 46 00 C0 4C 2C 06 8C 20 31 38 33 30 |STUFF..L,.. 1830|
00000CC0: 00 DA 4C 36 06 42 24 B2 20 52 24 AA 52 56 24 AA |..L6.B$. R$.RV$.|
00000CD0: 53 50 24 AA 52 4F 24 AA 59 24 00 E5 4C 40 06 8C |SP$.RO$.Y$..L@..|
00000CE0: 20 31 38 33 30 00 FB 4C 4A 06 48 31 B2 20 38 3A | 1830..LJ.H1. 8:|
00000CF0: 48 32 B2 32 39 3A 56 31 B2 31 34 00 1B 4D 54 06 |H2.29:V1.14..MT.|
00000D00: 8B 20 43 57 B2 38 30 20 A7 20 48 31 B2 31 38 3A |. CW.80 . H1.18:|
00000D10: 48 32 B2 36 30 3A 56 31 B2 31 30 00 31 4D 5E 06 |H2.60:V1.10.1M^.|
00000D20: 4D 41 58 20 B2 20 48 32 AB 48 31 20 3A 20 45 B2 |MAX . H2.H1 : E.|
00000D30: 30 00 4B 4D 68 06 FE 1A 20 48 31 AB 31 2C 34 2C |0.KMh... H1.1,4,|
00000D40: 48 32 AA 31 2C 56 31 AA 31 2C 31 00 61 4D 72 06 |H2.1,V1.1,1.aMr.|
00000D50: FE 1A 20 48 31 20 20 2C 35 2C 48 32 AA 32 2C 32 |.. H1 ,5,H2.2,2|
00000D60: 34 00 83 4D 7C 06 81 20 58 20 B2 20 31 20 A4 20 |4..M|.. X . 1 . |
00000D70: 4D 41 58 AA 31 20 3A 20 99 42 24 3B 3A 20 82 20 |MAX.1 : .B$;: . |
00000D80: 3A 20 99 00 A0 4D 86 06 87 20 41 24 20 3A 20 8B |: ...M... A$ : .|
00000D90: 20 41 24 B2 22 45 4F 44 22 20 A7 20 31 37 32 30 | A$."EOD" . 1720|
00000DA0: 00 AE 4D 90 06 99 42 24 53 50 24 41 24 3B 00 CC |..M...B$SP$A$;..|
00000DB0: 4D 9A 06 8B 20 43 57 B2 38 30 20 A7 20 87 20 41 |M... CW.80 . . A|
00000DC0: 24 20 3A 20 99 53 50 24 3B 41 24 3B 00 DA 4D A4 |$ : .SP$;A$;..M.|
00000DD0: 06 99 A3 4D 41 58 29 20 42 24 00 E5 4D AE 06 89 |...MAX) B$..M...|
00000DE0: 20 31 36 37 30 00 03 4E B8 06 81 20 58 20 B2 20 | 1670..N... X . |
00000DF0: 31 20 A4 20 4D 41 58 AA 31 20 3A 20 99 42 24 3B |1 . MAX.1 : .B$;|
00000E00: 3A 20 82 00 09 4E C2 06 99 00 1C 4E CC 06 8B 20 |: ...N.....N... |
00000E10: 43 57 B2 38 30 20 A7 20 31 37 36 30 00 51 4E D6 |CW.80 . 1760.QN.|
00000E20: 06 99 20 A3 35 29 20 C7 28 31 34 35 29 3B 52 24 |.. .5) .(145);R$|
00000E30: 3B 52 56 24 3B 22 50 52 45 53 53 20 41 4E 59 20 |;RV$;"PRESS ANY |
00000E40: 4B 45 59 22 3B C7 28 31 39 29 3B 3A 89 31 37 38 |KEY";.(19);:.178|
00000E50: 30 00 8B 4E E0 06 99 20 A3 39 29 20 C7 28 31 34 |0..N... .9) .(14|
00000E60: 35 29 3B 52 24 3B 52 56 24 3B 22 50 52 45 53 53 |5);R$;RV$;"PRESS|
00000E70: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000E80: 49 4E 55 45 22 3B C7 28 31 39 29 00 97 4E EA 06 |INUE";.(19)..N..|
00000E90: 99 C7 28 31 39 29 3B 00 A1 4E F4 06 A1 F9 20 41 |..(19);..N.... A|
00000EA0: 24 00 B4 4E FE 06 FE 1A 20 30 2C 30 2C 43 57 AB |$..N.... 0,0,CW.|
00000EB0: 31 2C 32 34 00 CA 4E 08 07 99 C7 28 33 30 29 3B |1,24..N....(30);|
00000EC0: 20 3A 20 8F 20 47 52 45 45 4E 00 D0 4E 12 07 8E | : . GREEN..N...|
00000ED0: 00 ED 4E 26 07 8F 20 53 41 4D 50 4C 45 20 54 45 |..N&.. SAMPLE TE|
00000EE0: 58 54 20 46 4F 52 20 57 49 4E 44 4F 57 00 1D 4F |XT FOR WINDOW..O|
00000EF0: 30 07 83 20 22 20 54 48 49 53 20 49 53 20 4A 55 |0.. " THIS IS JU|
00000F00: 53 54 20 53 4F 4D 45 22 2C 22 53 41 4D 50 4C 45 |ST SOME","SAMPLE|
00000F10: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 00 4D 4F | INFORMATION".MO|
00000F20: 3A 07 83 20 22 54 4F 20 44 45 4D 4F 4E 53 54 52 |:.. "TO DEMONSTR|
00000F30: 41 54 45 20 48 4F 57 22 2C 22 45 41 53 59 20 49 |ATE HOW","EASY I|
00000F40: 54 20 57 49 4C 4C 20 42 45 20 54 4F 22 00 7B 4F |T WILL BE TO".{O|
00000F50: 44 07 83 20 22 41 44 44 20 41 20 53 49 4D 50 4C |D.. "ADD A SIMPL|
00000F60: 45 20 46 4F 52 4D 22 2C 22 4F 46 20 27 57 49 4E |E FORM","OF 'WIN|
00000F70: 44 4F 57 49 4E 47 27 20 54 4F 22 00 A2 4F 4E 07 |DOWING' TO"..ON.|
00000F80: 83 20 22 59 4F 55 52 20 43 4F 4D 4D 4F 44 4F 52 |. "YOUR COMMODOR|
00000F90: 45 20 31 32 38 22 2C 22 50 52 4F 47 52 41 4D 53 |E 128","PROGRAMS|
00000FA0: 2E 22 00 AE 4F 58 07 83 20 22 45 4F 44 22 00 C3 |."..OX.. "EOD"..|
00000FB0: 4F 6C 07 8F 20 57 41 49 54 20 46 4F 52 20 41 20 |Ol.. WAIT FOR A |
00000FC0: 4B 45 59 00 DD 4F 76 07 54 B2 31 33 20 3A 20 8B |KEY..Ov.T.13 : .|
00000FD0: 20 43 57 B2 38 30 20 A7 20 54 B2 33 32 00 F1 4F | CW.80 . T.32..O|
00000FE0: 80 07 99 C7 28 35 29 3B 3A 20 8F 20 57 48 49 54 |....(5);: . WHIT|
00000FF0: 45 00 0F 50 8A 07 E0 31 2C 54 2C 32 34 2C 22 50 |E..P...1,T,24,"P|
00001000: 52 45 53 53 20 41 4E 59 20 4B 45 59 22 2C 31 00 |RESS ANY KEY",1.|
00001010: 1E 50 94 07 DA 20 31 2C 34 30 30 30 2C 34 00 28 |.P... 1,4000,4.(|
00001020: 50 9E 07 A1 F9 20 41 24 00 44 50 A8 07 E0 31 2C |P.... A$.DP...1,|
00001030: 54 2C 32 34 2C 22 20 20 20 20 20 20 20 20 20 20 |T,24," |
00001040: 20 20 20 22 00 59 50 B2 07 99 C7 28 33 30 29 3B | ".YP....(30);|
00001050: 3A 20 8F 20 47 52 45 45 4E 00 5F 50 BC 07 8E 00 |: . GREEN._P....|
00001060: 7A 50 D0 07 8F 20 50 52 4F 4D 50 54 20 46 4F 52 |zP... PROMPT FOR|
00001070: 20 4E 45 58 54 20 44 45 4D 4F 00 93 50 DA 07 54 | NEXT DEMO..P..T|
00001080: B2 36 20 3A 20 8B 20 43 57 B2 38 30 20 A7 20 54 |.6 : . CW.80 . T|
00001090: B2 32 36 00 9E 50 E4 07 99 C7 28 35 29 3B 00 CB |.26..P....(5);..|
000010A0: 50 EE 07 E0 20 31 2C 54 2C 32 34 2C 22 50 52 45 |P... 1,T,24,"PRE|
000010B0: 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 4E |SS ANY KEY FOR N|
000010C0: 45 58 54 20 44 45 4D 4F 22 2C 31 00 DB 50 F8 07 |EXT DEMO",1..P..|
000010D0: DA 20 31 2C 33 33 30 30 30 2C 34 00 E5 50 02 08 |. 1,33000,4..P..|
000010E0: A1 F9 20 41 24 00 EB 50 0C 08 8E 00 1F 51 20 08 |.. A$..P.....Q .|
000010F0: 8F 41 52 4B 3A 20 20 50 4F 4B 45 20 4D 41 43 48 |.ARK: POKE MACH|
00001100: 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 49 4E 54 |INE LANGUAGE INT|
00001110: 4F 20 52 53 2D 32 33 32 20 42 55 46 46 45 52 00 |O RS-232 BUFFER.|
00001120: 3F 51 2A 08 8F 20 54 45 53 54 20 46 4F 52 20 41 |?Q*.. TEST FOR A|
00001130: 4C 52 45 41 44 59 20 50 4F 4B 45 44 20 49 4E 00 |LREADY POKED IN.|
00001140: 6B 51 34 08 8B 20 C2 28 33 30 37 32 29 B2 D1 28 |kQ4.. .(3072)..(|
00001150: 22 38 44 22 29 20 AF 20 C2 28 33 30 37 33 29 B2 |"8D") . .(3073).|
00001160: D1 28 22 33 45 22 29 20 A7 20 8E 00 8E 51 3E 08 |.("3E") . ...Q>.|
00001170: 8C 20 32 30 38 30 20 3A 20 99 22 13 13 93 50 4F |. 2080 : ."...PO|
00001180: 4B 49 4E 47 20 49 4E 20 4D 4C 2E 2E 2E 22 00 A4 |KING IN ML..."..|
00001190: 51 48 08 81 20 4A 20 B2 20 33 30 37 32 20 A4 20 |QH.. J . 3072 . |
000011A0: 33 33 39 30 00 BA 51 52 08 87 20 41 24 20 3A 20 |3390..QR.. A$ : |
000011B0: 97 20 4A 2C 20 D1 28 41 24 29 00 C9 51 5C 08 82 |. J, .(A$)..Q\..|
000011C0: 20 3A 20 FE 26 20 3A 20 8E 00 ED 51 66 08 83 20 | : .& : ...Qf.. |
000011D0: 38 44 2C 33 45 2C 30 44 2C 41 39 2C 30 30 2C 38 |8D,3E,0D,A9,00,8|
000011E0: 44 2C 30 30 2C 46 46 2C 32 30 2C 31 44 00 11 52 |D,00,FF,20,1D..R|
000011F0: 70 08 83 20 30 44 2C 41 44 2C 33 45 2C 30 44 2C |p.. 0D,AD,3E,0D,|
00001200: 43 39 2C 30 30 2C 44 30 2C 30 33 2C 34 43 2C 33 |C9,00,D0,03,4C,3|
00001210: 39 00 35 52 7A 08 83 20 30 43 2C 43 39 2C 30 31 |9.5Rz.. 0C,C9,01|
00001220: 2C 44 30 2C 30 33 2C 34 43 2C 33 46 2C 30 43 2C |,D0,03,4C,3F,0C,|
00001230: 43 39 2C 30 32 00 59 52 84 08 83 20 44 30 2C 30 |C9,02.YR... D0,0|
00001240: 33 2C 34 43 2C 34 35 2C 30 43 2C 43 39 2C 30 33 |3,4C,45,0C,C9,03|
00001250: 2C 44 30 2C 30 33 2C 34 43 00 7D 52 8E 08 83 20 |,D0,03,4C.}R... |
00001260: 35 31 2C 30 43 2C 43 39 2C 30 34 2C 44 30 2C 30 |51,0C,C9,04,D0,0|
00001270: 33 2C 34 43 2C 35 44 2C 30 43 2C 43 39 00 A1 52 |3,4C,5D,0C,C9..R|
00001280: 98 08 83 20 30 35 2C 44 30 2C 30 33 2C 34 43 2C |... 05,D0,03,4C,|
00001290: 37 38 2C 30 43 2C 36 30 2C 32 30 2C 44 37 2C 30 |78,0C,60,20,D7,0|
000012A0: 43 00 C5 52 A2 08 83 20 34 43 2C 41 42 2C 30 43 |C..R... 4C,AB,0C|
000012B0: 2C 32 30 2C 44 37 2C 30 43 2C 34 43 2C 39 33 2C |,20,D7,0C,4C,93,|
000012C0: 30 43 2C 32 30 00 E9 52 AC 08 83 20 45 35 2C 30 |0C,20..R... E5,0|
000012D0: 43 2C 32 30 2C 39 33 2C 30 43 2C 32 30 2C 46 33 |C,20,93,0C,20,F3|
000012E0: 2C 30 43 2C 34 43 2C 39 33 00 0D 53 B6 08 83 20 |,0C,4C,93..S... |
000012F0: 30 43 2C 32 30 2C 45 35 2C 30 43 2C 32 30 2C 41 |0C,20,E5,0C,20,A|
00001300: 42 2C 30 43 2C 32 30 2C 46 33 2C 30 43 00 31 53 |B,0C,20,F3,0C.1S|
00001310: C0 08 83 20 34 43 2C 41 42 2C 30 43 2C 32 30 2C |... 4C,AB,0C,20,|
00001320: 30 31 2C 30 44 2C 32 30 2C 39 33 2C 30 43 2C 32 |01,0D,20,93,0C,2|
00001330: 30 00 55 53 CA 08 83 20 30 46 2C 30 44 2C 37 38 |0.US... 0F,0D,78|
00001340: 2C 41 35 2C 30 31 2C 32 39 2C 46 45 2C 38 35 2C |,A5,01,29,FE,85,|
00001350: 30 31 2C 32 30 00 79 53 D4 08 83 20 39 33 2C 30 |01,20.yS... 93,0|
00001360: 43 2C 41 35 2C 30 31 2C 30 39 2C 30 31 2C 38 35 |C,A5,01,09,01,85|
00001370: 2C 30 31 2C 35 38 2C 36 30 00 9D 53 DE 08 83 20 |,01,58,60..S... |
00001380: 32 30 2C 30 31 2C 30 44 2C 32 30 2C 41 42 2C 30 |20,01,0D,20,AB,0|
00001390: 43 2C 32 30 2C 30 46 2C 30 44 2C 37 38 00 C1 53 |C,20,0F,0D,78..S|
000013A0: E8 08 83 20 41 35 2C 30 31 2C 32 39 2C 46 45 2C |... A5,01,29,FE,|
000013B0: 38 35 2C 30 31 2C 32 30 2C 41 42 2C 30 43 2C 41 |85,01,20,AB,0C,A|
000013C0: 35 00 E5 53 F2 08 83 20 30 31 2C 30 39 2C 30 31 |5..S... 01,09,01|
000013D0: 2C 38 35 2C 30 31 2C 35 38 2C 36 30 2C 41 30 2C |,85,01,58,60,A0,|
000013E0: 30 30 2C 42 31 00 09 54 FC 08 83 20 46 42 2C 41 |00,B1..T... FB,A|
000013F0: 41 2C 41 39 2C 31 46 2C 38 44 2C 30 30 2C 44 36 |A,A9,1F,8D,00,D6|
00001400: 2C 32 43 2C 30 30 2C 44 36 00 2D 54 06 09 83 20 |,2C,00,D6.-T... |
00001410: 31 30 2C 46 42 2C 38 45 2C 30 31 2C 44 36 2C 32 |10,FB,8E,01,D6,2|
00001420: 30 2C 43 32 2C 30 43 2C 46 30 2C 45 42 00 51 54 |0,C2,0C,F0,EB.QT|
00001430: 10 09 83 20 36 30 2C 41 30 2C 30 30 2C 41 39 2C |... 60,A0,00,A9,|
00001440: 31 46 2C 38 44 2C 30 30 2C 44 36 2C 32 43 2C 30 |1F,8D,00,D6,2C,0|
00001450: 30 00 75 54 1A 09 83 20 44 36 2C 31 30 2C 46 42 |0.uT... D6,10,FB|
00001460: 2C 41 44 2C 30 31 2C 44 36 2C 39 31 2C 46 42 2C |,AD,01,D6,91,FB,|
00001470: 32 30 2C 43 32 00 99 54 24 09 83 20 30 43 2C 46 |20,C2..T$.. 0C,F|
00001480: 30 2C 45 43 2C 36 30 2C 45 36 2C 46 42 2C 41 35 |0,EC,60,E6,FB,A5|
00001490: 2C 46 42 2C 44 30 2C 30 32 00 BD 54 2E 09 83 20 |,FB,D0,02..T... |
000014A0: 45 36 2C 46 43 2C 41 35 2C 46 43 2C 43 44 2C 33 |E6,FC,A5,FC,CD,3|
000014B0: 44 2C 30 44 2C 44 30 2C 30 33 2C 41 39 00 E1 54 |D,0D,D0,03,A9..T|
000014C0: 38 09 83 20 30 31 2C 36 30 2C 41 39 2C 30 30 2C |8.. 01,60,A9,00,|
000014D0: 36 30 2C 41 39 2C 33 30 2C 38 35 2C 46 43 2C 41 |60,A9,30,85,FC,A|
000014E0: 39 00 05 55 42 09 83 20 30 30 2C 38 35 2C 46 42 |9..UB.. 00,85,FB|
000014F0: 2C 41 39 2C 34 30 2C 38 44 2C 33 44 2C 30 44 2C |,A9,40,8D,3D,0D,|
00001500: 36 30 2C 41 39 00 29 55 4C 09 83 20 30 34 2C 38 |60,A9.)UL.. 04,8|
00001510: 35 2C 46 43 2C 41 39 2C 30 30 2C 38 35 2C 46 42 |5,FC,A9,00,85,FB|
00001520: 2C 41 39 2C 30 38 2C 38 44 00 4D 55 56 09 83 20 |,A9,08,8D.MUV.. |
00001530: 33 44 2C 30 44 2C 36 30 2C 41 39 2C 44 38 2C 38 |3D,0D,60,A9,D8,8|
00001540: 35 2C 46 43 2C 41 39 2C 30 30 2C 38 35 00 71 55 |5,FC,A9,00,85.qU|
00001550: 60 09 83 20 46 42 2C 41 39 2C 44 43 2C 38 44 2C |`.. FB,A9,DC,8D,|
00001560: 33 44 2C 30 44 2C 36 30 2C 41 39 2C 31 43 2C 38 |3D,0D,60,A9,1C,8|
00001570: 35 00 95 55 6A 09 83 20 46 43 2C 41 39 2C 30 30 |5..Uj.. FC,A9,00|
00001580: 2C 38 35 2C 46 42 2C 41 39 2C 34 30 2C 38 44 2C |,85,FB,A9,40,8D,|
00001590: 33 44 2C 30 44 00 B9 55 74 09 83 20 36 30 2C 41 |3D,0D..Ut.. 60,A|
000015A0: 39 2C 44 38 2C 38 35 2C 46 43 2C 41 39 2C 30 30 |9,D8,85,FC,A9,00|
000015B0: 2C 38 35 2C 46 42 2C 41 39 00 DD 55 7E 09 83 20 |,85,FB,A9..U~.. |
000015C0: 44 43 2C 38 44 2C 33 44 2C 30 44 2C 36 30 2C 41 |DC,8D,3D,0D,60,A|
000015D0: 32 2C 30 30 2C 41 39 2C 31 32 2C 38 44 00 01 56 |2,00,A9,12,8D..V|
000015E0: 88 09 83 20 30 30 2C 44 36 2C 32 43 2C 30 30 2C |... 00,D6,2C,00,|
000015F0: 44 36 2C 31 30 2C 46 42 2C 38 45 2C 30 31 2C 44 |D6,10,FB,8E,01,D|
00001600: 36 00 25 56 92 09 83 20 41 39 2C 31 33 2C 38 44 |6.%V... A9,13,8D|
00001610: 2C 30 30 2C 44 36 2C 32 43 2C 30 30 2C 44 36 2C |,00,D6,2C,00,D6,|
00001620: 31 30 2C 46 42 00 46 56 9C 09 83 20 38 45 2C 30 |10,FB.FV... 8E,0|
00001630: 31 2C 44 36 2C 36 30 2C 30 30 2C 30 30 2C 30 30 |1,D6,60,00,00,00|
00001640: 2C 30 30 2C 30 30 00 00 00 |,00,00... |
.@&@..R$.G(28) : Y$.G(158) : SP$.G(32).L
@..RV$.G(18) : RO$.G(146) : G$.G(30).Q@H
.. X . 1 . 21 : ES$ . ES$.SP$ : ...@R..
2080 : . POKE IN ML..@... G$; : . GREEN.
.@... 0,1 : . 4,1 : . 6,1.W@... 80-COLUM
N DEMONSTRATION..A... L(X).0 . . "SWITCH
TO 80-COLUMNS!" . G(7) : .. 3. A... 1,1
: . 0,1.8A... .R(X)..(.(1).X).1.YA".. 5
,1 : CW.80 : . 80-COLUMNS..A,...15 : . 6
5378 : . ENSURES 80-COLUMN CHARS..A6.. 1
400 : . FILL SCREEN WITH WORDS.LA@.. 190
0 : . WAIT FOR A KEY..AJ.. 3072,0 : . SA
VE 80-COLUMN SCREEN..BT.. 1570 : . PRINT
"WINDOW" INFO.IB^.. 3072,1 : . RESTORE
ORIGINAL 80-COLUMN SCREEN.^BH.. 2000 : .
PAUSE.|B|.. 40-COLUMN DEMONSTRATION..B.
.. 5,1 : ."SWITCH TO 40 COLUMNS!".BB...
0,1 : CW.40 : . 40-COLUMNS..B... 1400 :
. FILL SCREEN WITH WORDS..C... 1900 : .
WAIT FOR A KEY.-C... 3072,2 : . SAVE 40-
COLUMN SCREEN.PC... 1570 : . PRINT "WIND
OW" INFO..CB.. 3072,3 : . RESTORE ORIG
INAL 40-COLUMN SCREEN..CL.. 2000 : . PAU
SE..C... GRAPHIC SCREEN DEMONSTRATION #1
.ZC... 1,8 : . 0,1 : . 4,1..C.... 1..D..
. 1,1 : . HIGH-RES GRAPHICS..D... 1,0,0,
319,100.-D... 1,0,103,319,168.ED... 1,10
0,130,219,142.]D&.. X . 110 . 219 . 7.WD
0.. 1, X.10,142 . X,130.}D:....DD.. X .
1 . 50..DN.. 1,10,13,"STARSHIP GOOFYPRIZ
E",1.KDX.. 1, 4,15,"WARP",1..DB.. 1,30,1
5,"SHIELDS",1..DL.. 1,2..EV.. 1, 5,16,"7
"..E... 1,32,16,"29%"..E... 1,2.0E... X
. 1 . 50.EE..H . .R(300) . 10.YE..V . .R
(80) . 10.IE... 1,H,V : ..TE... 1,14..EF
.. 1900 : . WAIT FOR KEY..EZ.. DRAW WIND
OW INFORMATION.SE... 3072,4 : . SAVE GRA
PHIC SCREEN..E... 1,2 : . 1,10,2,ES$,1..
E... 1,15..F... X . 2 . 13..F...1,10,X,E
S$,1."F....3F .. 1,7 : .. 2.IF*.. 1,84,1
9,244,106.SF4.. 930.ZF>.. 1,2 : . 1,14,2
,"STATUS REPORT",1..FH.. 1,15..FR.. X .
2 . 10: . A$..F\.. 1,12,X.2,A$,1..FF...I
FZ... A$ : . WAIT..F... 3072,5 : . RESTO
RE ORIGINAL GRAPHIC SCREEN..G... 1900 :
. NEXT DEMO MESSAGE.5G... "THIS IS A TES
T OF".MG... "SIMPLE GRAPHIC-".FG... "SCR
EEN WINDOWING".G... "ON THE COMMODORE".
.GJ.. "128."..GT.. " " , " "..G... " PR
ESS ANY KEY".KG... " TO CONTINUE"..G..
. GRAPHIC SCREEN DEMONSTRATION #2..H...
0,2 : . 4,13.%H...3,1 : . MULTICOLOR GRA
PHICS.6H... X . 1 . 15.FH$.C1 . .R(16).V
H..C2 . .R(16).OH8.. C1.2 . C2.2 . 1060.
.HB.. 1,C1 : . 2,C2..HL.C . .R(2) : . CO
LOR SOURCE.CHV.H . .R(160) : . X COORDIN
ATE..H`.V . .R(200) : . Y COORDINATE..IJ
.W . .R(20).10 : . WIDTH OF CIRCLE.1IT.U
. .R(30).20 : . HEIGHT OF CIRCLE.AI~..
C,H,V,W,U.GI....`I... A FEW RANDOM LINES
.WI... X . 1 . .R(10).5..I..C1 . .R(16)
: . C1.2 . 1190..I... 1,C1.MI... 1, .R(1
60),.R(200) . .R(160),.R(200).SID....IN.
. 1,1 : . 1900 : . WAIT FOR KEY..JX.. 30
72,4 : . SAVE GRAPHIC.0J... PRINT WINDOW
MESSAGE.BJ... 930 : . 1,1.RJ... X . 1 .
9.OJ... A$ : A$ . H(A$.ES$,17)..J... 1,
3,X,A$,1..J.....J.... A$.AJ(.. 3072,5 :
. RESTORE ORIGINAL GRAPHIC SCREEN..J2..
1900 : . WAIT FOR KEYPRESS..J<.. 0,1 : .
4,1..KF.. 5,1 : . 0,1.?KP.. 65378 : . E
NSURE 80-COLUMN CHARACTERS ARE RESTORED.
EKZ...FKX.. WRITE WORDS TO FILL SCREEN.~
K... CW.80 . .% : U .&..K... 1530..K...
X.1 . 10 : . W$(X) : ...K .C.0..K... . C
.23.NK..W..(.(1).10).1..K..W$.W$(W)..KH.
SS$.G$.SP$ : . .(0).0 . SS$.G$.0LR.. .(0
).C(W$).1 .CW . . SS$;W$; : U . : C.C.1
.6L....<L....LL... WORD DATA.{L... COMMO
DORE, WINDOW, TESTING, SCREEN, SWAP..L..
. 128, YES, NO, BLAH, BLAH..L".. PRINT "
WINDOW" STUFF..L,.. 1830.ZL6.B$. R$.RV$.
SP$.RO$.Y$..L@.. 1830..LJ.H1. 8:H2.29:V1
.14..MT.. CW.80 . H1.18:H2.60:V1.10.1M^.
MAX . H2.H1 : E.0.KMH... H1.1,4,H2.1,V1.
1,1.AMR... H1 ,5,H2.2,24..M|.. X . 1 .
MAX.1 : .B$;: . : .. M... A$ : . A$."EOD
" . 1720..M...B$SP$A$;.LM... CW.80 . . A
$ : .SP$;A$;.ZM....MAX) B$..M... 1670..N
... X . 1 . MAX.1 : .B$;: ...NB....NL..
CW.80 . 1760.QNV.. .5) G(145);R$;RV$;"PR
ESS ANY KEY";G(19);:.1780..N... .9) G(14
5);R$;RV$;"PRESS ANY KEY TO CONTINUE";G(
19)..N...G(19);..N.... A$..N.... 0,0,CW.
1,24.JN...G(30); : . GREEN.PN.....N&.. S
AMPLE TEXT FOR WINDOW..O0.. " THIS IS JU
ST SOME","SAMPLE INFORMATION".MO:.. "TO
DEMONSTRATE HOW","EASY IT WILL BE TO".{O
D.. "ADD A SIMPLE FORM","OF 'WINDOWING'
TO"..ON.. "YOUR COMMODORE 128","PROGRAMS
."..OX.. "EOD".COL.. WAIT FOR A KEY..OV.
T.13 : . CW.80 . T.32..O...G(5);: . WHIT
E..P...1,T,24,"PRESS ANY KEY",1..P..Z 1,
4000,4.(P.... A$.DP...1,T,24,"
".YP...G(30);: . GREEN._P....ZPP.. PR
OMPT FOR NEXT DEMO..PZ.T.6 : . CW.80 . T
.26..P...G(5);.KP... 1,T,24,"PRESS ANY K
EY FOR NEXT DEMO",1..P..Z 1,33000,4..P..
.. A$..P.....Q ..ARK: POKE MACHINE LANG
UAGE INTO RS-232 BUFFER.?Q*.. TEST FOR A
LREADY POKED IN.KQ4.. B(3072).Q("8D") .
B(3073).Q("3E") . ...Q>.. 2080 : ."...PO
KING IN ML..."..QH.. J . 3072 . 3390..QR
.. A$ : . J, Q(A$).IQ\.. : .& : ...QF..
8D,3E,0D,A9,00,8D,00,FF,20,1D..RP.. 0D,A
D,3E,0D,C9,00,D0,03,4C,39.5RZ.. 0C,C9,01
,D0,03,4C,3F,0C,C9,02.YR... D0,03,4C,45,
0C,C9,03,D0,03,4C.}R... 51,0C,C9,04,D0,0
3,4C,5D,0C,C9..R... 05,D0,03,4C,78,0C,60
,20,D7,0C.ER... 4C,AB,0C,20,D7,0C,4C,93,
0C,20..R... E5,0C,20,93,0C,20,F3,0C,4C,9
3..S... 0C,20,E5,0C,20,AB,0C,20,F3,0C.1S
... 4C,AB,0C,20,01,0D,20,93,0C,20.USJ..
0F,0D,78,A5,01,29,FE,85,01,20.YST.. 93,0
C,A5,01,09,01,85,01,58,60..S... 20,01,0D
,20,AB,0C,20,0F,0D,78.AS... A5,01,29,FE,
85,01,20,AB,0C,A5..S... 01,09,01,85,01,5
8,60,A0,00,B1..T... FB,AA,A9,1F,8D,00,D6
,2C,00,D6.-T... 10,FB,8E,01,D6,20,C2,0C,
F0,EB.QT... 60,A0,00,A9,1F,8D,00,D6,2C,0
0.UT... D6,10,FB,AD,01,D6,91,FB,20,C2..T
$.. 0C,F0,EC,60,E6,FB,A5,FB,D0,02..T...
E6,FC,A5,FC,CD,3D,0D,D0,03,A9..T8.. 01,6
0,A9,00,60,A9,30,85,FC,A9..UB.. 00,85,FB
,A9,40,8D,3D,0D,60,A9.)UL.. 04,85,FC,A9,
00,85,FB,A9,08,8D.MUV.. 3D,0D,60,A9,D8,8
5,FC,A9,00,85.QU`.. FB,A9,DC,8D,3D,0D,60
,A9,1C,85..UJ.. FC,A9,00,85,FB,A9,40,8D,
3D,0D..UT.. 60,A9,D8,85,FC,A9,00,85,FB,A
9..U~.. DC,8D,3D,0D,60,A2,00,A9,12,8D..V
... 00,D6,2C,00,D6,10,FB,8E,01,D6.%V...
A9,13,8D,00,D6,2C,00,D6,10,FB.FV... 8E,0
1,D6,60,00,00,00,00,00...
> CLICK IMAGE PREVIEW FOR FULL MODAL