GRAPHICS DEMO
FILE INFORMATION
FILENAME(S): GRAPHICS DEMO
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-11-30 17:31:20
APPEARS ON: 1 disk(s)
FILE HASH
3c533bdb82ba0b577717eba7f525668cc0b35f61b0a62bcd027513f2943dcf58
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMM DISK USER 9 | GRAPHICS DEMO | PRG | UK CD | 33 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 43 40 E8 03 8F 20 20 2D 2D 2D 2D 2D 2D 2D |.@C@... -------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 2D 2D 00 80 40 F2 03 8F 20 20 20 20 20 20 20 |---..@... |
00000050: 20 47 52 41 50 48 49 43 53 20 50 52 49 4D 45 52 | GRAPHICS PRIMER|
00000060: 20 20 43 42 4D 20 31 32 38 20 20 44 45 4D 4F 4E | CBM 128 DEMON|
00000070: 53 54 52 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D |STRATION PROGRAM|
00000080: 00 B0 40 FC 03 8F 20 20 20 20 20 20 20 20 20 20 |..@... |
00000090: 20 20 20 20 20 20 20 20 20 20 20 4E 49 43 4B 20 | NICK |
000000A0: 20 47 52 45 47 4F 52 59 20 20 20 20 31 39 38 38 | GREGORY 1988|
000000B0: 00 F2 40 06 04 8F 20 20 2D 2D 2D 2D 2D 2D 2D 2D |..@... --------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
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 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 00 F8 40 10 04 3A 00 FE 40 1A 04 E8 00 3A |--..@..:..@....:|
00000100: 41 24 04 8B 20 C2 28 32 31 35 29 B2 30 20 A7 20 |A$.. .(215).0 . |
00000110: FE 18 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 |..:. |
00000120: 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4B 20 | CHECK |
00000130: 38 30 20 43 4F 4C 55 4D 4E 53 00 68 41 2E 04 3A |80 COLUMNS.hA..:|
00000140: E0 20 31 2C 34 2C 35 2C 22 54 48 49 53 20 50 52 |. 1,4,5,"THIS PR|
00000150: 4F 47 52 41 4D 20 53 48 4F 55 4C 44 20 42 45 20 |OGRAM SHOULD BE |
00000160: 55 53 45 44 20 49 4E 22 00 91 41 38 04 3A 99 3A |USED IN"..A8.:.:|
00000170: 99 20 A3 34 29 20 22 38 30 20 43 4F 4C 55 4D 4E |. .4) "80 COLUMN|
00000180: 20 4D 4F 44 45 20 4F 4E 4C 59 20 21 21 21 21 21 | MODE ONLY !!!!!|
00000190: 22 00 B2 41 42 04 3A DA 20 31 2C 31 38 39 30 30 |"..AB.:. 1,18900|
000001A0: 2C 31 35 30 2C 30 2C 39 30 30 30 2C 31 30 30 30 |,150,0,9000,1000|
000001B0: 2C 30 00 B9 41 4C 04 3A 9C 00 F9 41 56 04 3A 80 |,0..AL.:...AV.:.|
000001C0: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4F | STO|
000001F0: 50 20 50 52 4F 47 52 41 4D 00 05 42 60 04 FE 19 |P PROGRAM..B`...|
00000200: 3A D5 20 FE 18 00 0D 42 6A 04 3A FE 25 00 40 42 |:. ....Bj.:.%.@B|
00000210: 74 04 3A DE 20 31 3A DE 20 30 3A DE 20 35 3A 8F |t.:. 1:. 0:. 5:.|
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 52 45 53 45 52 56 45 20 4D 45 4D 4F 52 59 | RESERVE MEMORY|
00000240: 00 83 42 7E 04 3A FE 02 20 31 35 3A 8F 20 20 20 |..B~.:.. 15:. |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 41 4C 57 41 59 53 20 42 41 4E 4B | ALWAYS BANK|
00000280: 20 31 35 00 A0 42 88 04 3A FE 11 20 22 47 52 41 | 15..B..:.. "GRA|
00000290: 50 48 49 43 53 20 50 52 49 4D 45 52 22 2C 42 30 |PHICS PRIMER",B0|
000002A0: 00 AD 42 92 04 3A 99 3A 99 3A 99 3A 99 00 F6 42 |..B..:.:.:.:...B|
000002B0: 9C 04 3A 99 20 A3 38 29 20 22 42 45 46 4F 52 45 |..:. .8) "BEFORE|
000002C0: 20 57 45 20 53 54 41 52 54 20 54 48 45 20 44 45 | WE START THE DE|
000002D0: 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 43 41 4E 20 |MONSTRATION CAN |
000002E0: 59 4F 55 20 50 55 54 20 41 20 44 49 53 4B 20 49 |YOU PUT A DISK I|
000002F0: 4E 20 54 48 45 22 00 32 43 A6 04 3A 99 20 A3 31 |N THE".2C..:. .1|
00000300: 34 29 20 22 44 52 49 56 45 20 57 48 49 43 48 20 |4) "DRIVE WHICH |
00000310: 48 41 53 20 41 54 20 4C 45 41 53 54 20 36 35 20 |HAS AT LEAST 65 |
00000320: 42 4C 4F 43 4B 53 20 46 52 45 45 20 4F 4E 20 49 |BLOCKS FREE ON I|
00000330: 54 22 00 5D 43 B0 04 3A 99 3A 99 3A 99 20 A3 32 |T".]C..:.:.:. .2|
00000340: 35 29 20 22 50 52 45 53 53 20 3C 52 45 54 55 52 |5) "PRESS <RETUR|
00000350: 4E 3E 20 57 48 45 4E 20 44 4F 4E 45 22 00 77 43 |N> WHEN DONE".wC|
00000360: BA 04 3A EB 3A A1 F9 20 4B 24 3A EC 20 FC 20 4B |..:.:.. K$:. . K|
00000370: 24 B2 C7 28 31 33 29 00 7E 43 C4 04 FE 19 00 C5 |$..(13).~C......|
00000380: 43 CE 04 96 20 A5 20 4C 42 59 54 45 20 28 58 29 |C... . LBYTE (X)|
00000390: B2 58 20 AF 20 32 35 35 3A 8F 20 20 20 20 20 20 |.X . 255:. |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F | LO|
000003B0: 57 2F 48 49 47 48 20 42 59 54 45 20 46 55 4E 43 |W/HIGH BYTE FUNC|
000003C0: 54 49 4F 4E 53 00 E0 43 D8 04 96 20 A5 20 48 42 |TIONS..C... . HB|
000003D0: 59 54 45 20 28 58 29 B2 B5 28 58 AD 32 35 36 29 |YTE (X)..(X.256)|
000003E0: 00 E6 43 E2 04 3A 00 26 44 EC 04 86 20 57 54 28 |..C..:.&D... WT(|
000003F0: 36 AC 37 29 3A 8F 20 20 20 20 20 20 20 20 20 20 |6.7):. |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 57 49 4E 44 4F 57 | WINDOW|
00000420: 20 54 41 42 4C 45 00 6B 44 F6 04 57 54 28 30 29 | TABLE.kD..WT(0)|
00000430: B2 C2 28 34 36 32 34 29 AA C2 28 34 36 32 35 29 |..(4624)..(4625)|
00000440: AC 32 35 36 3A 8F 20 20 20 20 20 20 20 20 20 20 |.256:. |
00000450: 20 20 20 20 20 20 53 54 20 41 44 52 53 20 4F 46 | ST ADRS OF|
00000460: 20 31 53 54 20 57 49 4E 44 4F 57 00 AE 44 00 05 | 1ST WINDOW..D..|
00000470: 57 49 4E B2 30 3A 8F 20 20 20 20 20 20 20 20 20 |WIN.0:. |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 41 43 54 49 56 45 20 57 49 4E 44 4F 57 00 F4 | ACTIVE WINDOW..|
000004B0: 44 0A 05 57 4D 41 58 B2 36 3A 8F 20 20 20 20 20 |D..WMAX.6:. |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 4D 41 58 20 4E 55 4D 42 20 57 49 4E | MAX NUMB WIN|
000004F0: 44 4F 57 53 00 3D 45 14 05 42 4E 4B B2 30 3A 8F |DOWS.=E..BNK.0:.|
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 44 45 46 41 55 4C | DEFAUL|
00000530: 54 20 42 41 4E 4B 20 4E 55 4D 42 45 52 00 84 45 |T BANK NUMBER..E|
00000540: 1E 05 5A 50 B2 D1 28 22 46 41 22 29 3A 8F 20 20 |..ZP..("FA"):. |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 4D 55 43 48 20 55 53 45 44 20 5A 45 52 4F 20 | MUCH USED ZERO |
00000580: 50 41 47 45 00 AF 45 28 05 42 55 46 46 45 52 20 |PAGE..E(.BUFFER |
00000590: B2 20 C2 28 D1 28 22 31 43 30 32 22 29 29 AA C2 |. .(.("1C02"))..|
000005A0: 28 D1 28 22 31 43 30 33 22 29 29 AC 32 35 36 00 |(.("1C03")).256.|
000005B0: F0 45 32 05 9E 20 D1 28 22 31 43 34 36 22 29 2C |.E2.. .("1C46"),|
000005C0: 30 2C D1 28 22 31 33 22 29 2C 30 3A 8F 20 20 20 |0,.("13"),0:. |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 | U|
000005E0: 50 50 45 52 2D 43 41 53 45 20 54 4F 20 52 41 4D |PPER-CASE TO RAM|
000005F0: 00 2D 46 3C 05 9E 20 D1 28 22 31 43 32 32 22 29 |.-F<.. .("1C22")|
00000600: 2C 30 2C D1 28 22 31 33 22 29 2C 30 3A 8F 20 20 |,0,.("13"),0:. |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 41 4E 44 20 44 45 46 49 4E 45 20 49 54 00 70 46 |AND DEFINE IT.pF|
00000630: 46 05 9E 20 D1 28 22 31 43 32 35 22 29 2C 30 3A |F.. .("1C25"),0:|
00000640: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 | U|
00000660: 50 50 45 52 2D 43 41 53 45 20 53 45 54 20 4F 4E |PPER-CASE SET ON|
00000670: 00 B3 46 50 05 9E 20 D1 28 22 31 43 31 46 22 29 |..FP.. .("1C1F")|
00000680: 2C 31 2C 30 3A 8F 20 20 20 20 20 20 20 20 20 20 |,1,0:. |
00000690: 20 20 46 4F 52 45 47 52 4F 55 4E 44 20 57 48 49 | FOREGROUND WHI|
000006A0: 54 45 2F 42 41 43 4B 47 52 4F 55 4E 44 20 42 4C |TE/BACKGROUND BL|
000006B0: 41 43 4B 00 F0 46 5A 05 9E 20 D1 28 22 31 43 30 |ACK..FZ.. .("1C0|
000006C0: 34 22 29 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |4"):. |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 47 52 41 50 48 49 43 53 20 4F 4E | GRAPHICS ON|
000006F0: 00 F6 46 64 05 3A 00 1D 47 6E 05 58 B2 31 30 3A |..Fd.:..Gn.X.10:|
00000700: 59 B2 31 30 3A 52 B2 30 3A 45 58 B2 32 3A 45 59 |Y.10:R.0:EX.2:EY|
00000710: B2 32 3A 43 57 B2 31 36 3A 52 56 B2 30 00 4D 47 |.2:CW.16:RV.0.MG|
00000720: 78 05 53 24 B2 22 38 30 20 43 4F 4C 55 4D 4E 20 |x.S$."80 COLUMN |
00000730: 47 52 41 50 48 49 43 20 50 52 49 4D 45 52 20 44 |GRAPHIC PRIMER D|
00000740: 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 8B 47 |EMONSTRATION"..G|
00000750: 82 05 8D 20 32 38 32 30 3A 8F 20 20 20 20 20 20 |... 2820:. |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | P|
00000780: 52 49 4E 54 20 53 54 52 49 4E 47 00 B1 47 8C 05 |RINT STRING..G..|
00000790: 58 B2 33 34 3A 59 B2 34 30 3A 52 B2 30 3A 45 58 |X.34:Y.40:R.0:EX|
000007A0: B2 31 3A 45 59 B2 31 3A 43 57 B2 38 3A 52 56 B2 |.1:EY.1:CW.8:RV.|
000007B0: 30 00 01 48 96 05 53 24 B2 22 54 48 49 53 20 20 |0..H..S$."THIS |
000007C0: 50 52 4F 47 52 41 4D 20 20 44 45 4D 4F 4E 53 54 |PROGRAM DEMONST|
000007D0: 52 41 54 45 53 20 54 48 45 20 20 55 53 45 20 4F |RATES THE USE O|
000007E0: 46 20 20 54 48 45 20 38 30 20 43 4F 4C 55 4D 4E |F THE 80 COLUMN|
000007F0: 20 47 52 41 50 48 49 43 53 20 53 43 52 45 45 4E | GRAPHICS SCREEN|
00000800: 22 00 3F 48 A0 05 8D 20 32 38 32 30 3A 8F 20 20 |".?H... 2820:. |
00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000830: 20 20 20 50 52 49 4E 54 20 53 54 52 49 4E 47 00 | PRINT STRING.|
00000840: 82 48 AA 05 9E 20 D1 28 22 31 43 32 35 22 29 2C |.H... .("1C25"),|
00000850: 31 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |1:. |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 4C 4F 57 45 52 2D 43 41 53 45 20 53 45 54 20 | LOWER-CASE SET |
00000880: 4F 4E 00 A8 48 B4 05 58 B2 33 34 3A 59 B2 36 30 |ON..H..X.34:Y.60|
00000890: 3A 52 B2 30 3A 45 58 B2 31 3A 45 59 B2 31 3A 43 |:R.0:EX.1:EY.1:C|
000008A0: 57 B2 38 3A 52 56 B2 30 00 F8 48 BE 05 53 24 B2 |W.8:RV.0..H..S$.|
000008B0: 22 D7 48 45 4E 20 49 54 27 53 20 46 49 4E 49 53 |".HEN IT'S FINIS|
000008C0: 48 45 44 2C 20 CC C9 D3 D4 20 49 54 20 54 4F 20 |HED, .... IT TO |
000008D0: 53 45 45 20 48 4F 57 20 59 4F 55 20 43 41 4E 20 |SEE HOW YOU CAN |
000008E0: 57 52 49 54 45 20 59 4F 55 52 20 4F 57 4E 20 52 |WRITE YOUR OWN R|
000008F0: 4F 55 54 49 4E 45 53 22 00 36 49 C8 05 8D 20 32 |OUTINES".6I... 2|
00000900: 38 32 30 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |820:. |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000920: 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 | PRINT |
00000930: 53 54 52 49 4E 47 00 41 49 D2 05 8D 20 32 38 39 |STRING.AI... 289|
00000940: 30 00 47 49 DC 05 3A 00 59 49 E6 05 9E 20 D1 28 |0.GI..:.YI... .(|
00000950: 22 31 43 32 35 22 29 2C 30 00 80 49 F0 05 58 31 |"1C25"),0..I..X1|
00000960: B2 35 3A 59 31 B2 35 3A 58 32 B2 36 33 39 3A 59 |.5:Y1.5:X2.639:Y|
00000970: 32 B2 31 39 38 3A 44 B2 30 3A 8D 20 33 32 37 30 |2.198:D.0:. 3270|
00000980: 00 BD 49 FA 05 58 31 B2 31 30 30 3A 59 31 B2 35 |..I..X1.100:Y1.5|
00000990: 30 3A 58 32 B2 31 30 30 3A 59 32 B2 31 35 30 3A |0:X2.100:Y2.150:|
000009A0: 44 B2 30 3A 8D 20 33 34 36 30 3A 8F 20 20 20 20 |D.0:. 3460:. |
000009B0: 20 20 44 52 41 57 20 41 58 49 53 20 31 00 F5 49 | DRAW AXIS 1..I|
000009C0: 04 06 58 31 B2 31 30 30 3A 59 31 B2 31 35 30 3A |..X1.100:Y1.150:|
000009D0: 58 32 B2 35 30 30 3A 59 32 B2 31 35 30 3A 44 B2 |X2.500:Y2.150:D.|
000009E0: 30 3A 8D 20 33 34 36 30 3A 8F 20 20 20 20 20 41 |0:. 3460:. A|
000009F0: 58 49 53 20 32 00 2D 4A 0E 06 58 31 B2 35 35 30 |XIS 2.-J..X1.550|
00000A00: 3A 59 31 B2 31 35 30 3A 58 32 B2 35 35 30 3A 59 |:Y1.150:X2.550:Y|
00000A10: 32 B2 35 30 3A 44 B2 30 3A 8D 20 33 34 36 30 3A |2.50:D.0:. 3460:|
00000A20: 8F 20 20 20 20 20 20 41 58 49 53 20 33 00 6C 4A |. AXIS 3.lJ|
00000A30: 18 06 52 56 B2 30 3A 43 57 B2 37 3A 45 58 B2 31 |..RV.0:CW.7:EX.1|
00000A40: 3A 45 59 B2 31 3A 52 B2 30 3A 44 B2 30 3A 8F 20 |:EY.1:R.0:D.0:. |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A60: 20 20 20 43 4F 4E 53 54 41 4E 54 53 00 AF 4A 22 | CONSTANTS..J"|
00000A70: 06 81 20 59 31 B2 31 35 30 20 A4 20 35 30 20 A9 |.. Y1.150 . 50 .|
00000A80: 20 AB 31 30 3A 8F 20 20 20 20 20 20 20 20 20 20 | .10:. |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 4E 55 4D 42 | NUMB|
00000AA0: 45 52 20 41 58 49 53 20 31 20 41 4E 44 20 33 00 |ER AXIS 1 AND 3.|
00000AB0: D0 4A 2C 06 3A 58 31 B2 31 30 30 3A 58 32 B2 58 |.J,.:X1.100:X2.X|
00000AC0: 31 AA 35 3A 59 32 B2 59 31 3A 8D 20 33 34 36 30 |1.5:Y2.Y1:. 3460|
00000AD0: 00 E2 4A 36 06 3A 53 24 B2 C4 28 31 35 30 AB 59 |..J6.:S$..(150.Y|
00000AE0: 31 29 00 FA 4A 40 06 3A 58 B2 36 35 3A 59 B2 59 |1)..J@.:X.65:Y.Y|
00000AF0: 31 AB 34 3A 8D 20 32 38 32 30 00 1B 4B 4A 06 3A |1.4:. 2820..KJ.:|
00000B00: 58 31 B2 35 35 30 3A 58 32 B2 58 31 AB 35 3A 59 |X1.550:X2.X1.5:Y|
00000B10: 32 B2 59 31 3A 8D 20 33 34 36 30 00 31 4B 54 06 |2.Y1:. 3460.1KT.|
00000B20: 3A 53 24 B2 C4 28 28 31 35 30 AB 59 32 29 AC 32 |:S$..((150.Y2).2|
00000B30: 29 00 4A 4B 5E 06 3A 58 B2 35 35 37 3A 59 B2 59 |).JK^.:X.557:Y.Y|
00000B40: 31 AB 34 3A 8D 20 32 38 32 30 00 53 4B 68 06 82 |1.4:. 2820.SKh..|
00000B50: 20 59 31 00 90 4B 72 06 81 20 58 31 B2 31 30 30 | Y1..Kr.. X1.100|
00000B60: 20 A4 20 35 30 30 20 A9 20 32 35 3A 8F 20 20 20 | . 500 . 25:. |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B80: 20 20 20 4E 55 4D 42 45 52 20 41 58 49 53 20 32 | NUMBER AXIS 2|
00000B90: 00 B1 4B 7C 06 3A 58 32 B2 58 31 3A 59 31 B2 31 |..K|.:X2.X1:Y1.1|
00000BA0: 35 30 3A 59 32 B2 59 31 AB 33 3A 8D 20 33 34 36 |50:Y2.Y1.3:. 346|
00000BB0: 30 00 C6 4B 86 06 3A 53 24 B2 CA 28 C4 28 58 31 |0..K..:S$..(.(X1|
00000BC0: 29 2C 32 2C 32 29 00 DF 4B 90 06 3A 58 B2 58 31 |),2,2)..K..:X.X1|
00000BD0: AB 38 3A 59 B2 31 35 35 3A 8D 20 32 38 32 30 00 |.8:Y.155:. 2820.|
00000BE0: E8 4B 9A 06 82 20 58 31 00 EE 4B A4 06 8F 00 15 |.K... X1..K.....|
00000BF0: 4C AE 06 8F 20 20 20 20 50 55 54 20 41 20 4E 41 |L... PUT A NA|
00000C00: 4D 45 53 20 4F 4E 20 41 58 49 53 20 31 2C 32 20 |MES ON AXIS 1,2 |
00000C10: 41 4E 44 20 33 00 1B 4C B8 06 8F 00 33 4C C2 06 |AND 3..L....3L..|
00000C20: 53 24 B2 22 50 52 4F 46 49 54 20 28 5C 20 30 30 |S$."PROFIT (\ 00|
00000C30: 30 29 22 00 5C 4C CC 06 58 B2 34 30 3A 59 B2 31 |0)".\L..X.40:Y.1|
00000C40: 35 30 3A 52 56 B2 30 3A 45 58 B2 31 3A 45 59 B2 |50:RV.0:EX.1:EY.|
00000C50: 31 3A 52 B2 32 3A 8D 20 32 38 32 30 00 73 4C D6 |1:R.2:. 2820.sL.|
00000C60: 06 53 24 B2 22 43 4F 53 54 20 28 5C 20 30 30 30 |.S$."COST (\ 000|
00000C70: 30 29 22 00 9C 4C E0 06 58 B2 36 31 30 3A 59 B2 |0)"..L..X.610:Y.|
00000C80: 35 30 3A 52 56 B2 30 3A 45 58 B2 31 3A 45 59 B2 |50:RV.0:EX.1:EY.|
00000C90: 31 3A 52 B2 31 3A 8D 20 32 38 32 30 00 C2 4C EA |1:R.1:. 2820..L.|
00000CA0: 06 53 24 B2 22 4C 41 42 4F 55 52 20 43 4F 53 54 |.S$."LABOUR COST|
00000CB0: 20 28 5C 20 50 45 52 20 4D 41 4E 20 48 4F 55 52 | (\ PER MAN HOUR|
00000CC0: 29 22 00 EC 4C F4 06 58 B2 32 30 30 3A 59 B2 31 |)"..L..X.200:Y.1|
00000CD0: 37 30 3A 52 56 B2 30 3A 45 58 B2 31 3A 45 59 B2 |70:RV.0:EX.1:EY.|
00000CE0: 31 3A 52 B2 30 3A 8D 20 32 38 32 30 00 F2 4C FE |1:R.0:. 2820..L.|
00000CF0: 06 8F 00 13 4D 08 07 8F 20 20 20 20 44 52 41 57 |....M... DRAW|
00000D00: 20 54 57 4F 20 4C 49 4E 45 53 20 4F 4E 20 47 52 | TWO LINES ON GR|
00000D10: 41 50 48 00 19 4D 12 07 8F 00 33 4D 1C 07 81 20 |APH..M....3M... |
00000D20: 50 4F 57 45 52 20 B2 20 36 20 20 A4 20 31 32 20 |POWER . 6 . 12 |
00000D30: A9 20 33 00 46 4D 26 07 3A 58 31 B2 31 30 35 3A |. 3.FM&.:X1.105:|
00000D40: 59 31 B2 31 34 35 00 5F 4D 30 07 3A 81 20 58 32 |Y1.145._M0.:. X2|
00000D50: B2 31 35 35 20 A4 20 35 30 30 20 A9 20 31 30 00 |.155 . 500 . 10.|
00000D60: 80 4D 3A 07 3A 20 59 32 B2 59 31 AB 28 28 59 31 |.M:.: Y2.Y1.((Y1|
00000D70: AD 31 30 30 29 AE 50 4F 57 45 52 29 AD 32 2E 35 |.100).POWER).2.5|
00000D80: 00 99 4D 44 07 3A 20 8D 20 33 34 36 30 3A 58 31 |..MD.: . 3460:X1|
00000D90: B2 58 32 3A 59 31 B2 59 32 00 A3 4D 4E 07 3A 82 |.X2:Y1.Y2..MN.:.|
00000DA0: 20 58 32 00 AF 4D 58 07 82 20 50 4F 57 45 52 00 | X2..MX.. POWER.|
00000DB0: B5 4D 62 07 8F 00 D1 4D 6C 07 8F 20 20 20 20 47 |.Mb....Ml.. G|
00000DC0: 49 56 45 20 47 52 41 50 48 20 41 20 54 49 54 4C |IVE GRAPH A TITL|
00000DD0: 45 00 D7 4D 76 07 8F 00 0E 4E 80 07 53 24 B2 22 |E..Mv....N..S$."|
00000DE0: 4E 45 57 54 4F 57 4E 20 42 55 49 4C 44 49 4E 47 |NEWTOWN BUILDING|
00000DF0: 20 41 4E 44 20 47 45 4E 45 52 41 4C 20 43 4F 4E | AND GENERAL CON|
00000E00: 53 54 52 55 43 54 49 4F 4E 20 50 4C 43 22 00 3C |STRUCTION PLC".<|
00000E10: 4E 8A 07 58 B2 31 35 30 3A 59 B2 32 30 3A 45 58 |N..X.150:Y.20:EX|
00000E20: B2 31 3A 45 59 B2 32 3A 52 B2 30 3A 52 56 B2 30 |.1:EY.2:R.0:RV.0|
00000E30: 3A 43 57 B2 38 3A 8D 20 32 38 32 30 00 78 4E 94 |:CW.8:. 2820.xN.|
00000E40: 07 F2 20 22 47 52 41 50 48 2E 44 45 4D 4F 22 3A |.. "GRAPH.DEMO":|
00000E50: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000E60: 20 20 20 20 53 41 56 45 20 50 49 43 54 55 52 45 | SAVE PICTURE|
00000E70: 20 54 4F 20 44 49 53 4B 00 93 4E 9E 07 FE 0D 23 | TO DISK..N....#|
00000E80: 20 32 2C 22 47 52 41 50 48 2E 44 45 4D 4F 2C 53 | 2,"GRAPH.DEMO,S|
00000E90: 22 2C 57 00 CB 4E A8 07 58 41 B2 30 3A 58 42 B2 |",W..N..XA.0:XB.|
00000EA0: D1 28 22 34 30 30 30 22 29 3A 8F 20 20 20 20 20 |.("4000"):. |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 | W|
00000EC0: 48 4F 4C 45 20 53 43 52 45 45 4E 00 D6 4E B2 07 |HOLE SCREEN..N..|
00000ED0: 8D 20 33 38 38 30 00 E8 4E BC 07 9E 20 D1 28 22 |. 3880..N... .("|
00000EE0: 31 43 33 44 22 29 2C 32 00 F0 4E C6 07 A0 20 32 |1C3D"),2..N... 2|
00000EF0: 00 FB 4E D0 07 8D 20 32 38 39 30 00 36 4F DA 07 |..N... 2890.6O..|
00000F00: FE 0D 23 20 32 2C 22 47 52 41 50 48 2E 44 45 4D |..# 2,"GRAPH.DEM|
00000F10: 4F 2C 53 22 3A 8F 20 20 20 20 20 20 20 20 20 20 |O,S":. |
00000F20: 20 20 20 20 20 20 47 45 54 20 50 49 43 54 55 52 | GET PICTUR|
00000F30: 45 20 42 41 43 4B 00 4C 4F E4 07 9E 20 D1 28 22 |E BACK.LO... .("|
00000F40: 31 43 34 30 22 29 2C 32 2C 30 2C 30 00 54 4F EE |1C40"),2,0,0.TO.|
00000F50: 07 A0 20 32 00 5F 4F F8 07 8D 20 32 38 39 30 00 |.. 2._O... 2890.|
00000F60: 65 4F 02 08 3A 00 82 4F 0C 08 8F 20 20 20 20 20 |eO..:..O... |
00000F70: 20 43 48 41 52 41 43 54 45 52 20 20 20 49 4E 46 | CHARACTER INF|
00000F80: 4F 2E 00 88 4F 16 08 3A 00 CB 4F 20 08 9E 20 D1 |O...O..:..O .. .|
00000F90: 28 22 31 43 32 35 22 29 2C 30 3A 8F 20 20 20 20 |("1C25"),0:. |
00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FB0: 20 20 20 20 20 20 20 20 20 20 55 50 50 45 52 2D | UPPER-|
00000FC0: 43 41 53 45 20 53 45 54 20 4F 4E 00 F8 4F 25 08 |CASE SET ON..O%.|
00000FD0: 53 24 B2 22 41 20 46 45 57 20 54 48 49 4E 47 53 |S$."A FEW THINGS|
00000FE0: 20 41 42 4F 55 54 20 43 48 41 52 41 43 54 45 52 | ABOUT CHARACTER|
00000FF0: 53 20 2E 2E 2E 2E 2E 22 00 28 50 2A 08 58 B2 31 |S .....".(P*.X.1|
00001000: 30 3A 59 B2 32 30 3A 45 58 B2 31 3A 45 59 B2 32 |0:Y.20:EX.1:EY.2|
00001010: 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 B2 45 58 AC |:R.0:RV.0:CW.EX.|
00001020: 38 3A 8D 20 32 38 32 30 00 61 50 34 08 53 24 B2 |8:. 2820.aP4.S$.|
00001030: 22 59 4F 55 20 43 41 4E 20 50 52 49 4E 54 20 54 |"YOU CAN PRINT T|
00001040: 48 45 20 4E 4F 52 4D 41 4C 20 38 30 20 43 48 41 |HE NORMAL 80 CHA|
00001050: 52 41 43 54 45 52 53 20 50 45 52 20 4C 49 4E 45 |RACTERS PER LINE|
00001060: 22 00 91 50 3E 08 58 B2 31 30 3A 59 B2 34 30 3A |"..P>.X.10:Y.40:|
00001070: 45 58 B2 31 3A 45 59 B2 31 3A 52 B2 30 3A 52 56 |EX.1:EY.1:R.0:RV|
00001080: B2 30 3A 43 57 B2 45 58 AC 38 3A 8D 20 32 38 32 |.0:CW.EX.8:. 282|
00001090: 30 00 C3 50 48 08 53 24 B2 22 31 32 33 34 35 36 |0..PH.S$."123456|
000010A0: 37 38 39 2E 31 32 33 34 35 36 37 38 39 2E 31 32 |789.123456789.12|
000010B0: 33 34 35 36 37 38 39 2E 31 32 33 34 35 36 37 38 |3456789.12345678|
000010C0: 39 2E 22 00 D0 50 52 08 53 24 B2 53 24 AA 53 24 |9."..PR.S$.S$.S$|
000010D0: 00 12 51 5C 08 58 B2 30 3A 59 B2 35 30 3A 45 58 |..Q\.X.0:Y.50:EX|
000010E0: B2 31 3A 45 59 B2 31 3A 52 B2 30 3A 52 56 B2 30 |.1:EY.1:R.0:RV.0|
000010F0: 3A 43 57 B2 45 58 AC 38 3A 8D 20 32 38 32 30 3A |:CW.EX.8:. 2820:|
00001100: 8F 20 20 20 20 20 20 20 20 20 38 30 20 43 48 41 |. 80 CHA|
00001110: 52 53 00 54 51 66 08 58 B2 30 3A 59 B2 36 30 3A |RS.TQf.X.0:Y.60:|
00001120: 45 58 B2 31 3A 45 59 B2 31 3A 52 B2 30 3A 52 56 |EX.1:EY.1:R.0:RV|
00001130: B2 30 3A 43 57 B2 45 58 AC 37 3A 8D 20 32 38 32 |.0:CW.EX.7:. 282|
00001140: 30 3A 8F 20 20 20 20 20 20 20 20 20 39 30 20 43 |0:. 90 C|
00001150: 48 41 52 53 00 9C 51 70 08 53 24 B2 22 4F 52 20 |HARS..Qp.S$."OR |
00001160: 59 4F 55 20 43 41 4E 20 48 41 56 45 20 39 30 20 |YOU CAN HAVE 90 |
00001170: 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 4C |CHARACTERS PER L|
00001180: 49 4E 45 20 4C 49 4B 45 20 54 48 45 20 4F 4E 45 |INE LIKE THE ONE|
00001190: 20 41 42 4F 56 45 20 21 21 21 21 22 00 CC 51 7A | ABOVE !!!!"..Qz|
000011A0: 08 58 B2 31 30 3A 59 B2 37 30 3A 45 58 B2 31 3A |.X.10:Y.70:EX.1:|
000011B0: 45 59 B2 31 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 |EY.1:R.0:RV.0:CW|
000011C0: B2 45 58 AC 37 3A 8D 20 32 38 32 30 00 F4 51 84 |.EX.7:. 2820..Q.|
000011D0: 08 53 24 B2 22 59 4F 55 20 43 41 4E 20 48 41 56 |.S$."YOU CAN HAV|
000011E0: 45 20 4C 41 52 47 45 52 20 43 48 41 52 41 43 54 |E LARGER CHARACT|
000011F0: 45 52 53 22 00 24 52 8E 08 58 B2 31 30 3A 59 B2 |ERS".$R..X.10:Y.|
00001200: 38 30 3A 45 58 B2 32 3A 45 59 B2 32 3A 52 B2 30 |80:EX.2:EY.2:R.0|
00001210: 3A 52 56 B2 30 3A 43 57 B2 45 58 AC 37 3A 8D 20 |:RV.0:CW.EX.7:. |
00001220: 32 38 32 30 00 41 52 98 08 53 24 B2 22 4F 52 20 |2820.AR..S$."OR |
00001230: 56 45 52 59 20 42 49 47 20 4F 4E 45 53 20 21 21 |VERY BIG ONES !!|
00001240: 22 00 72 52 A2 08 58 B2 31 30 3A 59 B2 31 30 30 |".rR..X.10:Y.100|
00001250: 3A 45 58 B2 31 3A 45 59 B2 31 3A 52 B2 30 3A 52 |:EX.1:EY.1:R.0:R|
00001260: 56 B2 30 3A 43 57 B2 45 58 AC 37 3A 8D 20 32 38 |V.0:CW.EX.7:. 28|
00001270: 32 30 00 85 52 AC 08 53 24 B2 22 4C 49 4B 45 20 |20..R..S$."LIKE |
00001280: 54 48 49 53 22 00 B8 52 B6 08 58 B2 31 30 3A 59 |THIS"..R..X.10:Y|
00001290: B2 31 31 30 3A 45 58 B2 31 30 3A 45 59 B2 31 30 |.110:EX.10:EY.10|
000012A0: 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 B2 45 58 AC |:R.0:RV.0:CW.EX.|
000012B0: 37 3A 8D 20 32 38 32 30 00 F6 52 C0 08 9E 20 D1 |7:. 2820..R... .|
000012C0: 28 22 31 43 30 37 22 29 3A 8F 20 20 20 20 20 20 |("1C07"):. |
000012D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012E0: 20 20 20 20 20 20 20 20 20 20 43 4C 45 41 52 20 | CLEAR |
000012F0: 53 43 52 45 45 4E 00 26 53 CA 08 53 24 B2 22 20 |SCREEN.&S..S$." |
00001300: 59 4F 55 20 43 41 4E 20 48 41 56 45 20 52 45 56 |YOU CAN HAVE REV|
00001310: 45 52 53 45 44 20 43 48 41 52 41 43 54 45 52 53 |ERSED CHARACTERS|
00001320: 20 2E 2E 2E 20 22 00 56 53 D4 08 58 B2 31 30 3A | ... ".VS..X.10:|
00001330: 59 B2 32 30 3A 45 58 B2 31 3A 45 59 B2 32 3A 52 |Y.20:EX.1:EY.2:R|
00001340: B2 30 3A 52 56 B2 31 3A 43 57 B2 45 58 AC 38 3A |.0:RV.1:CW.EX.8:|
00001350: 8D 20 32 38 32 30 00 78 53 DE 08 53 24 B2 22 41 |. 2820.xS..S$."A|
00001360: 4E 44 20 43 48 41 52 41 43 54 45 52 53 20 57 48 |ND CHARACTERS WH|
00001370: 49 43 48 20 41 52 45 22 00 A8 53 E8 08 58 B2 33 |ICH ARE"..S..X.3|
00001380: 30 3A 59 B2 34 30 3A 45 58 B2 31 3A 45 59 B2 31 |0:Y.40:EX.1:EY.1|
00001390: 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 B2 45 58 AC |:R.0:RV.0:CW.EX.|
000013A0: 38 3A 8D 20 32 38 32 30 00 BF 53 F2 08 53 24 B2 |8:. 2820..S..S$.|
000013B0: 22 47 4F 49 4E 47 20 44 4F 57 4E 20 2E 2E 22 00 |"GOING DOWN ..".|
000013C0: EF 53 FC 08 58 B2 34 30 3A 59 B2 35 30 3A 45 58 |.S..X.40:Y.50:EX|
000013D0: B2 31 3A 45 59 B2 32 3A 52 B2 31 3A 52 56 B2 30 |.1:EY.2:R.1:RV.0|
000013E0: 3A 43 57 B2 45 58 AC 38 3A 8D 20 32 38 32 30 00 |:CW.EX.8:. 2820.|
000013F0: 05 54 06 09 53 24 B2 22 41 4E 44 20 47 4F 49 4E |.T..S$."AND GOIN|
00001400: 47 20 55 50 22 00 37 54 10 09 58 B2 31 30 30 3A |G UP".7T..X.100:|
00001410: 59 B2 31 35 30 3A 45 58 B2 31 3A 45 59 B2 32 3A |Y.150:EX.1:EY.2:|
00001420: 52 B2 32 3A 52 56 B2 30 3A 43 57 B2 45 58 AC 38 |R.2:RV.0:CW.EX.8|
00001430: 3A 8D 20 32 38 32 30 00 69 54 1A 09 53 24 B2 22 |:. 2820.iT..S$."|
00001440: 41 4E 44 20 4F 46 20 43 4F 55 52 53 45 20 59 4F |AND OF COURSE YO|
00001450: 55 20 43 41 4E 20 44 45 53 49 47 4E 20 59 4F 55 |U CAN DESIGN YOU|
00001460: 52 20 4F 57 4E 20 2E 2E 22 00 9B 54 24 09 58 B2 |R OWN .."..T$.X.|
00001470: 32 30 30 3A 59 B2 31 30 30 3A 45 58 B2 31 3A 45 |200:Y.100:EX.1:E|
00001480: 59 B2 32 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 B2 |Y.2:R.0:RV.0:CW.|
00001490: 45 58 AC 38 3A 8D 20 32 38 32 30 00 DF 54 2E 09 |EX.8:. 2820..T..|
000014A0: 81 20 41 B2 30 20 A4 20 37 3A 8F 20 20 20 20 20 |. A.0 . 7:. |
000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 | RE|
000014D0: 44 45 46 49 4E 45 20 43 48 52 24 28 36 35 29 00 |DEFINE CHR$(65).|
000014E0: E9 54 38 09 3A 87 20 43 53 00 FF 54 42 09 3A 97 |.T8.:. CS..TB.:.|
000014F0: 20 D1 28 22 31 33 30 38 22 29 AA 41 2C 43 53 00 | .("1308").A,CS.|
00001500: 07 55 4C 09 82 20 41 00 0D 55 56 09 3A 00 33 55 |.UL.. A..UV.:.3U|
00001510: 60 09 83 20 31 32 36 2C 31 32 39 2C 31 36 35 2C |`.. 126,129,165,|
00001520: 31 35 33 2C 31 32 39 2C 31 38 39 2C 31 32 39 2C |153,129,189,129,|
00001530: 31 32 36 00 39 55 6A 09 3A 00 5A 55 74 09 53 24 |126.9Uj.:.ZUt.S$|
00001540: B2 22 41 20 41 20 41 20 41 20 41 20 41 20 41 20 |."A A A A A A A |
00001550: 41 20 41 20 41 20 41 20 41 22 00 8C 55 7E 09 58 |A A A A A"..U~.X|
00001560: B2 32 30 30 3A 59 B2 31 33 30 3A 45 58 B2 32 3A |.200:Y.130:EX.2:|
00001570: 45 59 B2 32 3A 52 B2 30 3A 52 56 B2 30 3A 43 57 |EY.2:R.0:RV.0:CW|
00001580: B2 45 58 AC 38 3A 8D 20 32 38 32 30 00 97 55 88 |.EX.8:. 2820..U.|
00001590: 09 8D 20 32 38 39 30 00 D2 55 92 09 9E 20 D1 28 |.. 2890..U... .(|
000015A0: 22 31 43 32 38 22 29 3A 8F 20 20 20 20 20 20 20 |"1C28"):. |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015C0: 20 20 20 20 20 20 20 20 20 54 45 58 54 20 4D 4F | TEXT MO|
000015D0: 44 45 00 D8 55 9C 09 E8 00 DE 55 A6 09 99 00 ED |DE..U.....U.....|
000015E0: 55 B0 09 81 20 41 B2 31 20 A4 20 31 38 00 36 56 |U... A.1 . 18.6V|
000015F0: BA 09 3A 99 22 46 49 4E 41 4C 59 20 59 4F 55 20 |..:."FINALY YOU |
00001600: 43 41 4E 20 55 53 45 20 54 48 45 20 47 52 41 50 |CAN USE THE GRAP|
00001610: 48 49 43 53 20 50 52 49 4D 45 52 20 54 4F 20 48 |HICS PRIMER TO H|
00001620: 41 56 45 20 57 49 4E 44 4F 57 53 20 41 4E 44 20 |AVE WINDOWS AND |
00001630: 50 55 4C 4C 22 3B 00 4F 56 C4 09 3A 99 20 22 44 |PULL";.OV..:. "D|
00001640: 4F 57 4E 20 4D 45 4E 55 53 20 2E 2E 2E 2E 22 00 |OWN MENUS ....".|
00001650: 57 56 CE 09 82 20 41 00 77 56 D8 09 58 31 B2 35 |WV... A.wV..X1.5|
00001660: 3A 59 31 B2 31 3A 58 32 B2 36 30 3A 59 32 B2 38 |:Y1.1:X2.60:Y2.8|
00001670: 3A 8D 20 33 35 33 30 00 B0 56 E2 09 99 20 22 20 |:. 3530..V... " |
00001680: 54 48 49 53 20 57 49 4E 44 4F 57 20 48 41 53 20 |THIS WINDOW HAS |
00001690: 42 45 45 4E 20 50 52 49 4E 54 45 44 20 4F 4E 20 |BEEN PRINTED ON |
000016A0: 54 4F 50 20 4F 46 20 54 48 45 20 4D 41 49 4E 22 |TOP OF THE MAIN"|
000016B0: 00 E9 56 EC 09 99 20 22 20 53 43 52 45 45 4E 2C |..V... " SCREEN,|
000016C0: 20 20 42 55 54 20 54 48 45 20 20 54 45 58 54 20 | BUT THE TEXT |
000016D0: 4F 4E 20 54 48 41 54 20 20 53 43 52 45 45 4E 20 |ON THAT SCREEN |
000016E0: 48 41 53 20 42 45 45 4E 22 00 22 57 F6 09 99 20 |HAS BEEN"."W... |
000016F0: 22 20 50 52 45 53 45 52 56 45 44 20 53 4F 20 54 |" PRESERVED SO T|
00001700: 48 41 54 20 49 54 20 43 41 4E 20 42 45 20 52 45 |HAT IT CAN BE RE|
00001710: 43 41 4C 4C 45 44 20 20 57 48 45 4E 20 54 48 49 |CALLED WHEN THI|
00001720: 53 22 00 3B 57 00 0A 99 20 22 20 57 49 4E 44 4F |S".;W... " WINDO|
00001730: 57 20 49 53 20 53 48 55 54 2E 22 00 45 57 0A 0A |W IS SHUT.".EW..|
00001740: FE 0B 20 31 30 00 67 57 14 0A 58 31 B2 31 35 3A |.. 10.gW..X1.15:|
00001750: 59 31 B2 33 3A 58 32 B2 35 30 3A 59 32 B2 31 30 |Y1.3:X2.50:Y2.10|
00001760: 3A 8D 20 33 35 33 30 00 8F 57 1E 0A 99 20 22 20 |:. 3530..W... " |
00001770: 54 48 45 20 53 41 4D 45 20 47 4F 45 53 20 46 4F |THE SAME GOES FO|
00001780: 52 20 54 48 49 53 20 57 49 4E 44 4F 57 2E 22 00 |R THIS WINDOW.".|
00001790: B7 57 28 0A 99 20 22 20 59 4F 55 20 43 41 4E 20 |.W(.. " YOU CAN |
000017A0: 44 4F 20 54 48 45 20 53 41 4D 45 20 54 48 49 4E |DO THE SAME THIN|
000017B0: 47 20 57 49 54 48 22 00 DF 57 32 0A 99 20 22 20 |G WITH"..W2.. " |
000017C0: 54 48 45 20 20 47 52 41 50 48 49 43 53 20 20 53 |THE GRAPHICS S|
000017D0: 43 52 45 45 4E 20 20 49 46 20 20 59 4F 55 22 00 |CREEN IF YOU".|
000017E0: F1 57 3C 0A 99 20 22 20 57 41 4E 54 20 54 4F 2E |.W<.. " WANT TO.|
000017F0: 22 00 FB 57 46 0A FE 0B 20 31 30 00 1D 58 50 0A |"..WF... 10..XP.|
00001800: 58 31 B2 32 35 3A 59 31 B2 38 3A 58 32 B2 36 37 |X1.25:Y1.8:X2.67|
00001810: 3A 59 32 B2 31 39 3A 8D 20 33 35 33 30 00 4E 58 |:Y2.19:. 3530.NX|
00001820: 5A 0A 99 20 22 20 54 48 45 20 20 53 55 42 52 4F |Z.. " THE SUBRO|
00001830: 55 54 49 4E 45 53 20 20 49 4E 20 20 54 48 49 53 |UTINES IN THIS|
00001840: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 22 00 7F | PROGRAM WILL"..|
00001850: 58 64 0A 99 20 22 20 4C 45 54 20 20 59 4F 55 20 |Xd.. " LET YOU |
00001860: 20 57 52 49 54 45 20 54 4F 20 20 36 20 20 57 49 | WRITE TO 6 WI|
00001870: 4E 44 4F 57 53 20 20 42 55 54 20 59 4F 55 22 00 |NDOWS BUT YOU".|
00001880: B0 58 6E 0A 99 20 22 20 4D 55 53 54 20 20 43 4C |.Xn.. " MUST CL|
00001890: 4F 53 45 20 20 54 48 45 4D 20 49 4E 20 54 48 45 |OSE THEM IN THE|
000018A0: 20 4F 52 44 45 52 20 49 4E 20 57 48 49 43 48 22 | ORDER IN WHICH"|
000018B0: 00 CB 58 78 0A 99 20 22 20 54 48 45 59 20 57 45 |..Xx.. " THEY WE|
000018C0: 52 45 20 4F 50 45 4E 45 44 2E 22 00 FC 58 82 0A |RE OPENED."..X..|
000018D0: 99 20 22 20 59 4F 55 20 43 41 4E 20 55 53 45 20 |. " YOU CAN USE |
000018E0: 54 48 45 20 53 41 4D 45 20 54 45 43 48 4E 49 51 |THE SAME TECHNIQ|
000018F0: 55 45 20 54 4F 20 42 55 49 4C 44 22 00 2D 59 8C |UE TO BUILD".-Y.|
00001900: 0A 99 20 22 20 50 55 4C 4C 20 20 44 4F 57 4E 20 |.. " PULL DOWN |
00001910: 4D 45 4E 55 53 20 41 4E 44 20 20 54 48 49 4E 47 |MENUS AND THING|
00001920: 53 20 20 4C 49 4B 45 20 54 48 41 54 22 00 5E 59 |S LIKE THAT".^Y|
00001930: 96 0A 99 20 22 20 42 55 54 20 49 27 4C 4C 20 4C |... " BUT I'LL L|
00001940: 45 41 56 45 20 54 48 45 4D 20 20 54 4F 20 59 4F |EAVE THEM TO YO|
00001950: 55 20 54 4F 20 50 52 4F 47 52 41 4D 2E 22 00 68 |U TO PROGRAM.".h|
00001960: 59 A0 0A FE 0B 20 31 35 00 A2 59 AA 0A 81 20 54 |Y.... 15..Y... T|
00001970: B2 30 20 A4 20 32 3A 8F 20 20 20 20 20 20 20 20 |.0 . 2:. |
00001980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001990: 20 20 20 43 41 4E 43 45 4C 4C 20 57 49 4E 44 4F | CANCELL WINDO|
000019A0: 57 53 00 BA 59 B4 0A 3A FE 0B 20 34 3A FE 26 3A |WS..Y..:.. 4:.&:|
000019B0: 9B 20 AB 31 33 36 30 3A FE 25 00 C6 59 BE 0A 3A |. .1360:.%..Y..:|
000019C0: 8D 20 33 37 37 30 00 CE 59 C8 0A 82 20 54 00 FE |. 3770..Y... T..|
000019D0: 59 D2 0A E0 20 31 2C 30 2C 32 30 2C 22 49 54 27 |Y... 1,0,20,"IT'|
000019E0: 53 20 55 50 20 54 4F 20 59 4F 55 20 4E 4F 57 20 |S UP TO YOU NOW |
000019F0: 2E 2E 2E 2E 20 20 47 4F 4F 44 42 59 45 22 00 04 |.... GOODBYE"..|
00001A00: 5A DC 0A 80 00 0A 5A E6 0A 8F 00 40 5A F0 0A 8F |Z.....Z....@Z...|
00001A10: 20 20 20 20 20 20 50 52 49 4E 54 20 53 54 52 49 | PRINT STRI|
00001A20: 4E 47 20 5B 53 24 5D 20 54 4F 20 38 30 20 43 4F |NG [S$] TO 80 CO|
00001A30: 4C 20 47 52 41 50 48 49 43 20 53 43 52 45 45 4E |L GRAPHIC SCREEN|
00001A40: 00 46 5A FA 0A 8F 00 78 5A 04 0B 9E 20 D1 28 22 |.FZ....xZ... .("|
00001A50: 31 43 31 39 22 29 2C A5 20 4C 42 59 54 45 20 28 |1C19"),. LBYTE (|
00001A60: CE 0A 28 53 24 29 29 2C A5 20 48 42 59 54 45 20 |..(S$)),. HBYTE |
00001A70: 28 CE 0A 28 53 24 29 29 00 9A 5A 0E 0B 58 41 B2 |(..(S$))..Z..XA.|
00001A80: 58 3A 8D 20 33 38 39 30 3A 97 20 5A 50 AA 32 2C |X:. 3890:. ZP.2,|
00001A90: 59 3A 97 20 5A 50 AA 33 2C 52 00 B6 5A 18 0B 9E |Y:. ZP.3,R..Z...|
00001AA0: 20 D1 28 22 31 43 31 43 22 29 2C 43 57 2C 45 58 | .("1C1C"),CW,EX|
00001AB0: 2C 45 59 2C 52 56 00 BC 5A 22 0B 8E 00 C2 5A 2C |,EY,RV..Z"....Z,|
00001AC0: 0B 8F 00 DD 5A 36 0B 8F 20 20 20 20 20 20 43 4F |....Z6.. CO|
00001AD0: 4E 54 49 4E 45 20 4F 52 20 53 54 4F 50 00 E3 5A |NTINE OR STOP..Z|
00001AE0: 40 0B 8F 00 ED 5A 4A 0B 59 B2 31 38 35 00 FF 5A |@....ZJ.Y.185..Z|
00001AF0: 54 0B 9E 20 D1 28 22 31 43 32 35 22 29 2C 31 00 |T.. .("1C25"),1.|
00001B00: 0E 5B 5E 0B 53 24 B2 22 D0 52 45 53 53 22 00 30 |.[^.S$.".RESS".0|
00001B10: 5B 68 0B 58 B2 31 31 30 3A 52 B2 30 3A 45 58 B2 |[h.X.110:R.0:EX.|
00001B20: 31 3A 45 59 B2 31 3A 43 57 B2 38 3A 52 56 B2 30 |1:EY.1:CW.8:RV.0|
00001B30: 00 3B 5B 72 0B 8D 20 32 38 32 30 00 4D 5B 7C 0B |.;[r.. 2820.M[|.|
00001B40: 9E 20 D1 28 22 31 43 32 35 22 29 2C 30 00 7A 5B |. .("1C25"),0.z[|
00001B50: 86 0B 58 B2 31 37 30 3A 59 31 B2 59 3A 59 B2 59 |..X.170:Y1.Y:Y.Y|
00001B60: AB 34 3A 52 B2 30 3A 45 58 B2 31 3A 45 59 B2 32 |.4:R.0:EX.1:EY.2|
00001B70: 3A 43 57 B2 38 3A 52 56 B2 30 00 8D 5B 90 0B 53 |:CW.8:RV.0..[..S|
00001B80: 24 B2 22 53 50 41 43 45 20 42 41 52 22 00 CB 5B |$."SPACE BAR"..[|
00001B90: 9A 0B 8D 20 32 38 32 30 3A 8F 20 20 20 20 20 20 |... 2820:. |
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | P|
00001BC0: 52 49 4E 54 20 53 54 52 49 4E 47 00 D4 5B A4 0B |RINT STRING..[..|
00001BD0: 59 B2 59 31 00 E6 5B AE 0B 9E 20 D1 28 22 31 43 |Y.Y1..[... .("1C|
00001BE0: 32 35 22 29 2C 31 00 08 5C B8 0B 58 B2 32 36 30 |25"),1..\..X.260|
00001BF0: 3A 52 B2 30 3A 45 58 B2 31 3A 45 59 B2 31 3A 43 |:R.0:EX.1:EY.1:C|
00001C00: 57 B2 38 3A 52 56 B2 30 00 25 5C C2 0B 53 24 B2 |W.8:RV.0.%\..S$.|
00001C10: 22 54 4F 20 43 4F 4E 54 49 4E 55 45 20 2E 2E 2E |"TO CONTINUE ...|
00001C20: 2E 20 4F 52 22 00 63 5C CC 0B 8D 20 32 38 32 30 |. OR".c\... 2820|
00001C30: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
00001C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C50: 20 20 20 20 20 20 20 50 52 49 4E 54 20 53 54 52 | PRINT STR|
00001C60: 49 4E 47 00 75 5C D6 0B 9E 20 D1 28 22 31 43 32 |ING.u\... .("1C2|
00001C70: 35 22 29 2C 30 00 A2 5C E0 0B 58 B2 34 33 30 3A |5"),0..\..X.430:|
00001C80: 59 31 B2 59 3A 59 B2 59 AB 34 3A 52 B2 30 3A 45 |Y1.Y:Y.Y.4:R.0:E|
00001C90: 58 B2 31 3A 45 59 B2 32 3A 43 57 B2 38 3A 52 56 |X.1:EY.2:CW.8:RV|
00001CA0: B2 30 00 AF 5C EA 0B 53 24 B2 22 45 53 43 22 00 |.0..\..S$."ESC".|
00001CB0: ED 5C F4 0B 8D 20 32 38 32 30 3A 8F 20 20 20 20 |.\... 2820:. |
00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001CE0: 20 50 52 49 4E 54 20 53 54 52 49 4E 47 00 F6 5C | PRINT STRING..\|
00001CF0: FE 0B 59 B2 59 31 00 08 5D 08 0C 9E 20 D1 28 22 |..Y.Y1..]... .("|
00001D00: 31 43 32 35 22 29 2C 31 00 2A 5D 12 0C 58 B2 34 |1C25"),1.*]..X.4|
00001D10: 38 30 3A 52 B2 30 3A 45 58 B2 31 3A 45 59 B2 31 |80:R.0:EX.1:EY.1|
00001D20: 3A 43 57 B2 38 3A 52 56 B2 30 00 3A 5D 1C 0C 53 |:CW.8:RV.0.:]..S|
00001D30: 24 B2 22 54 4F 20 45 4E 44 22 00 78 5D 26 0C 8D |$."TO END".x]&..|
00001D40: 20 32 38 32 30 3A 8F 20 20 20 20 20 20 20 20 20 | 2820:. |
00001D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E | PRIN|
00001D70: 54 20 53 54 52 49 4E 47 00 7E 5D 30 0C EB 00 91 |T STRING.~]0....|
00001D80: 5D 3A 0C 3A A1 F9 20 4B 24 3A 4B B2 C6 28 4B 24 |]:.:.. K$:K..(K$|
00001D90: 29 00 A5 5D 44 0C EC 20 FC 20 4B B2 33 32 20 B0 |)..]D.. . K.32 .|
00001DA0: 20 4B B2 32 37 00 EC 5D 4E 0C 9E 20 D1 28 22 31 | K.27..]N.. .("1|
00001DB0: 43 30 37 22 29 3A 8F 20 20 20 20 20 20 20 20 20 |C07"):. |
00001DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001DD0: 20 20 20 20 20 20 20 43 4C 45 41 52 20 47 52 41 | CLEAR GRA|
00001DE0: 50 48 49 43 53 20 53 43 52 45 45 4E 00 FC 5D 58 |PHICS SCREEN..]X|
00001DF0: 0C 8B 20 4B B2 32 37 20 A7 20 FE 18 00 37 5E 62 |.. K.27 . ...7^b|
00001E00: 0C 3A 9E 20 D1 28 22 31 43 32 38 22 29 3A 8F 20 |.:. .("1C28"):. |
00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 | TE|
00001E30: 58 54 20 4D 4F 44 45 00 3E 5E 6C 0C 3A E8 00 45 |XT MODE.>^l.:..E|
00001E40: 5E 76 0C 3A 9C 00 85 5E 80 0C 3A 80 3A 8F 20 20 |^v.:...^..:.:. |
00001E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E70: 20 20 20 20 20 20 20 20 20 48 41 4C 54 20 50 52 | HALT PR|
00001E80: 4F 47 52 41 4D 00 8C 5E 8A 0C FE 19 00 92 5E 94 |OGRAM..^......^.|
00001E90: 0C 8E 00 98 5E 9E 0C 8F 00 C6 5E A8 0C 8F 20 20 |....^.....^... |
00001EA0: 20 20 20 20 20 20 20 20 44 52 41 57 20 41 20 42 | DRAW A B|
00001EB0: 4F 58 20 46 52 4F 4D 20 58 31 2C 59 31 20 54 4F |OX FROM X1,Y1 TO|
00001EC0: 20 58 32 2C 59 32 00 CC 5E B2 0C 8F 00 D2 5E BC | X2,Y2..^.....^.|
00001ED0: 0C 3A 00 F7 5E C6 0C 58 B2 58 32 3A 59 B2 59 31 |.:..^..X.X2:Y.Y1|
00001EE0: 3A 8D 20 33 34 30 30 3A 8F 20 20 20 20 20 20 20 |:. 3400:. |
00001EF0: 20 20 20 20 54 4F 50 00 0C 5F D0 0C 58 B2 58 31 | TOP.._..X.X1|
00001F00: 3A 59 B2 59 31 3A 8D 20 33 33 35 30 00 35 5F DA |:Y.Y1:. 3350.5_.|
00001F10: 0C 58 B2 58 32 3A 59 B2 59 32 3A 8D 20 33 34 30 |.X.X2:Y.Y2:. 340|
00001F20: 30 3A 8F 20 20 20 20 20 20 20 20 20 20 20 52 48 |0:. RH|
00001F30: 20 53 49 44 45 00 4A 5F E4 0C 58 B2 58 32 3A 59 | SIDE.J_..X.X2:Y|
00001F40: B2 59 31 3A 8D 20 33 33 35 30 00 72 5F EE 0C 58 |.Y1:. 3350.r_..X|
00001F50: B2 58 31 3A 59 B2 59 32 3A 8D 20 33 34 30 30 3A |.X1:Y.Y2:. 3400:|
00001F60: 8F 20 20 20 20 20 20 20 20 20 20 20 42 4F 54 54 |. BOTT|
00001F70: 4F 4D 00 87 5F F8 0C 58 B2 58 32 3A 59 B2 59 32 |OM.._..X.X2:Y.Y2|
00001F80: 3A 8D 20 33 33 35 30 00 B0 5F 02 0D 58 B2 58 31 |:. 3350.._..X.X1|
00001F90: 3A 59 B2 59 31 3A 8D 20 33 34 30 30 3A 8F 20 20 |:Y.Y1:. 3400:. |
00001FA0: 20 20 20 20 20 20 20 20 20 4C 48 20 53 49 44 45 | LH SIDE|
00001FB0: 00 BE 5F 0C 0D 58 B2 58 31 3A 59 B2 59 32 00 E7 |.._..X.X1:Y.Y2..|
00001FC0: 5F 16 0D 9E 20 D1 20 28 22 31 43 31 30 22 29 2C |_... . ("1C10"),|
00001FD0: A5 20 4C 42 59 54 45 28 58 29 2C A5 20 48 42 59 |. LBYTE(X),. HBY|
00001FE0: 54 45 28 58 29 2C 59 00 ED 5F 20 0D 8E 00 F3 5F |TE(X),Y.._ ...._|
00001FF0: 2A 0D 8F 00 1B 60 34 0D 8F 20 20 20 20 20 45 4E |*....`4.. EN|
00002000: 54 45 52 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |TER DESTINATION |
00002010: 43 4F 4F 52 44 49 4E 41 54 45 53 00 21 60 3E 0D |COORDINATES.!`>.|
00002020: 8F 00 31 60 48 0D 58 41 B2 58 3A 8D 20 33 38 39 |..1`H.XA.X:. 389|
00002030: 30 00 47 60 52 0D 97 20 5A 50 AA 32 2C 59 3A 97 |0.G`R.. ZP.2,Y:.|
00002040: 20 5A 50 AA 33 2C 44 00 4D 60 5C 0D 8E 00 53 60 | ZP.3,D.M`\...S`|
00002050: 66 0D 8F 00 83 60 70 0D 8F 20 20 20 20 20 20 20 |f....`p.. |
00002060: 20 20 20 44 52 41 57 20 20 41 20 4C 49 4E 45 20 | DRAW A LINE |
00002070: 46 52 4F 4D 20 58 31 2C 59 31 20 54 4F 20 58 32 |FROM X1,Y1 TO X2|
00002080: 2C 59 32 00 89 60 7A 0D 8F 00 9E 60 84 0D 58 B2 |,Y2..`z....`..X.|
00002090: 58 32 3A 59 B2 59 32 3A 8D 20 33 34 30 30 00 B3 |X2:Y.Y2:. 3400..|
000020A0: 60 8E 0D 58 B2 58 31 3A 59 B2 59 31 3A 8D 20 33 |`..X.X1:Y.Y1:. 3|
000020B0: 33 35 30 00 B9 60 98 0D 8E 00 BF 60 A2 0D 3A 00 |350..`.....`..:.|
000020C0: FC 60 AC 0D 8F 20 20 20 20 20 20 20 20 20 20 20 |.`... |
000020D0: 20 20 20 20 20 53 45 54 20 55 50 20 41 20 54 45 | SET UP A TE|
000020E0: 58 54 20 57 49 4E 44 4F 57 20 4F 4E 20 54 48 45 |XT WINDOW ON THE|
000020F0: 20 54 45 58 54 20 53 43 52 45 45 4E 00 22 61 B6 | TEXT SCREEN."a.|
00002100: 0D 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002110: 20 20 41 54 20 58 31 2C 59 31 20 3B 20 58 32 2C | AT X1,Y1 ; X2,|
00002120: 59 32 00 28 61 C0 0D 3A 00 3C 61 CA 0D 8B 20 57 |Y2.(a..:.<a... W|
00002130: 49 4E 20 B2 57 4D 41 58 20 A7 20 8E 00 82 61 D4 |IN .WMAX . ...a.|
00002140: 0D 58 B2 57 49 4E AC 37 3A 8F 20 20 20 20 20 20 |.X.WIN.7:. |
00002150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 20 49 4E 44 45 58 20 49 4E 54 4F 20 41 52 52 | INDEX INTO ARR|
00002180: 41 59 00 CF 61 DE 0D 58 41 B2 38 30 AC 59 31 3A |AY..a..XA.80.Y1:|
00002190: 58 42 B2 28 38 30 AC 59 32 29 AA 38 31 3A 8F 20 |XB.(80.Y2).81:. |
000021A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021B0: 20 20 20 20 20 20 20 20 53 54 41 52 54 20 41 4E | START AN|
000021C0: 44 20 45 4E 44 20 4C 4F 43 41 54 49 4F 4E 53 00 |D END LOCATIONS.|
000021D0: DA 61 E8 0D 8D 20 33 38 38 30 00 0C 62 F2 0D 9E |.a... 3880..b...|
000021E0: 20 D1 28 22 31 43 33 41 22 29 2C A5 20 4C 42 59 | .("1C3A"),. LBY|
000021F0: 54 45 28 57 54 28 58 29 29 2C A5 20 48 42 59 54 |TE(WT(X)),. HBYT|
00002200: 45 28 57 54 28 58 29 29 2C 42 4E 4B 00 59 62 FC |E(WT(X)),BNK.Yb.|
00002210: 0D 57 54 28 58 AA 31 29 B2 57 54 28 58 29 AA 28 |.WT(X.1).WT(X).(|
00002220: 58 42 AB 58 41 29 3A 8F 20 20 20 20 20 20 20 20 |XB.XA):. |
00002230: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 | END|
00002240: 20 4F 46 20 52 41 4D 20 4D 45 4D 4F 52 59 20 42 | OF RAM MEMORY B|
00002250: 4C 4F 43 4B 20 28 2B 31 29 00 9D 62 06 0E 57 54 |LOCK (+1)..b..WT|
00002260: 28 58 AA 32 29 B2 58 41 20 3A 8F 20 20 20 20 20 |(X.2).XA :. |
00002270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002280: 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 | START |
00002290: 4F 46 20 56 44 43 20 4D 45 4D 4F 52 59 00 BE 62 |OF VDC MEMORY..b|
000022A0: 10 0E 57 54 28 58 AA 33 29 B2 C2 28 32 33 30 29 |..WT(X.3)..(230)|
000022B0: 3A 8F 20 20 43 55 52 52 45 4E 54 20 58 31 00 DF |:. CURRENT X1..|
000022C0: 62 1A 0E 57 54 28 58 AA 34 29 B2 C2 28 32 32 39 |b..WT(X.4)..(229|
000022D0: 29 3A 8F 20 20 20 20 20 20 20 20 20 20 59 31 00 |):. Y1.|
000022E0: 00 63 24 0E 57 54 28 58 AA 35 29 B2 C2 28 32 33 |.c$.WT(X.5)..(23|
000022F0: 31 29 3A 8F 20 20 20 20 20 20 20 20 20 20 58 32 |1):. X2|
00002300: 00 21 63 2E 0E 57 54 28 58 AA 36 29 B2 C2 28 32 |.!c..WT(X.6)..(2|
00002310: 32 38 29 3A 8F 20 20 20 20 20 20 20 20 20 20 59 |28):. Y|
00002320: 32 00 6D 63 38 0E 57 54 28 58 AA 37 29 B2 57 54 |2.mc8.WT(X.7).WT|
00002330: 28 58 AA 31 29 3A 8F 20 20 20 20 20 20 20 20 20 |(X.1):. |
00002340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00002350: 54 41 52 54 20 4F 46 20 4E 45 58 54 20 52 41 4D |TART OF NEXT RAM|
00002360: 20 4D 45 4D 4F 52 59 20 42 4C 4F 43 4B 00 AE 63 | MEMORY BLOCK..c|
00002370: 42 0E FE 1A 20 30 2C 30 2C 37 39 2C 32 34 3A 8F |B... 0,0,79,24:.|
00002380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002390: 20 20 20 20 20 20 20 43 4C 45 41 52 20 41 4E 59 | CLEAR ANY|
000023A0: 20 42 41 53 49 43 20 57 49 4E 44 4F 57 53 00 E5 | BASIC WINDOWS..|
000023B0: 63 4C 0E E0 20 31 2C 58 31 2C 59 31 2C C7 28 31 |cL.. 1,X1,Y1,.(1|
000023C0: 37 36 29 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |76):. |
000023D0: 20 20 20 20 20 20 44 52 41 57 20 57 49 4E 44 4F | DRAW WINDO|
000023E0: 57 20 42 4F 58 00 10 64 56 0E 81 20 41 B2 58 31 |W BOX..dV.. A.X1|
000023F0: AA 31 20 A4 20 58 32 AB 31 3A 99 20 C7 28 31 39 |.1 . X2.1:. .(19|
00002400: 32 29 3B 3A 82 20 41 3A 99 20 C7 28 31 37 34 29 |2);:. A:. .(174)|
00002410: 00 48 64 60 0E 81 20 41 B2 59 31 AA 31 20 A4 20 |.Hd`.. A.Y1.1 . |
00002420: 59 32 AB 31 3A E0 20 31 2C 58 31 2C 41 2C C7 28 |Y2.1:. 1,X1,A,.(|
00002430: 32 32 31 29 3A E0 20 31 2C 58 32 2C 41 2C C7 28 |221):. 1,X2,A,.(|
00002440: 32 32 31 29 3A 82 20 41 00 5D 64 6A 0E E0 20 31 |221):. A.]dj.. 1|
00002450: 2C 58 31 2C 59 32 2C C7 28 31 37 33 29 00 89 64 |,X1,Y2,.(173)..d|
00002460: 74 0E 81 20 41 B2 58 31 AA 31 20 A4 20 58 32 AB |t.. A.X1.1 . X2.|
00002470: 31 3A 99 20 C7 28 31 39 32 29 3B 3A 82 20 41 3A |1:. .(192);:. A:|
00002480: 99 20 C7 28 31 38 39 29 3B 00 C3 64 7E 0E FE 1A |. .(189);..d~...|
00002490: 20 58 31 AA 31 2C 59 31 AA 31 2C 58 32 AB 31 2C | X1.1,Y1.1,X2.1,|
000024A0: 59 32 AB 31 2C 31 3A 8F 20 20 20 20 20 20 20 20 |Y2.1,1:. |
000024B0: 20 20 20 4E 45 57 20 42 41 53 49 43 20 57 49 4E | NEW BASIC WIN|
000024C0: 44 4F 57 00 07 65 88 0E 57 49 4E 20 B2 20 57 49 |DOW..e..WIN . WI|
000024D0: 4E AA 31 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |N.1:. |
000024E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000024F0: 20 4E 45 58 54 20 57 49 4E 44 4F 57 20 4E 55 4D | NEXT WINDOW NUM|
00002500: 42 45 52 20 53 45 54 00 0D 65 92 0E 8E 00 13 65 |BER SET..e.....e|
00002510: 9C 0E 3A 00 3F 65 A6 0E 8F 20 20 20 20 20 20 20 |..:.?e... |
00002520: 20 20 20 20 20 20 20 20 20 47 45 54 20 42 41 43 | GET BAC|
00002530: 4B 20 41 20 54 45 58 54 20 57 49 4E 44 4F 57 00 |K A TEXT WINDOW.|
00002540: 45 65 B0 0E 3A 00 57 65 BA 0E 8B 20 57 49 4E 20 |Ee..:.We... WIN |
00002550: B3 20 31 20 A7 20 8E 00 98 65 C4 0E 57 49 4E 20 |. 1 . ...e..WIN |
00002560: B2 57 49 4E AB 31 3A 8F 20 20 20 20 20 20 20 20 |.WIN.1:. |
00002570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002580: 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 41 53 | LAS|
00002590: 54 20 57 49 4E 44 4F 57 00 D7 65 CE 0E 58 B2 57 |T WINDOW..e..X.W|
000025A0: 49 4E AC 37 3A 8F 20 20 20 20 20 20 20 20 20 20 |IN.7:. |
000025B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 | SE|
000025D0: 54 20 49 4E 44 45 58 00 EF 65 D8 0E 58 41 B2 57 |T INDEX..e..XA.W|
000025E0: 54 28 58 29 3A 58 42 B2 57 54 28 58 AA 31 29 00 |T(X):XB.WT(X.1).|
000025F0: FA 65 E2 0E 8D 20 33 38 38 30 00 30 66 EC 0E 9E |.e... 3880.0f...|
00002600: 20 D1 28 22 31 43 34 33 22 29 2C A5 20 4C 42 59 | .("1C43"),. LBY|
00002610: 54 45 28 57 54 28 58 AA 32 29 29 2C A5 20 48 42 |TE(WT(X.2)),. HB|
00002620: 59 54 45 28 57 54 28 58 AA 32 29 29 2C 42 4E 4B |YTE(WT(X.2)),BNK|
00002630: 00 72 66 F6 0E FE 1A 20 57 54 28 58 AA 33 29 2C |.rf.... WT(X.3),|
00002640: 57 54 28 58 AA 34 29 2C 57 54 28 58 AA 35 29 2C |WT(X.4),WT(X.5),|
00002650: 57 54 28 58 AA 36 29 3A 8F 20 20 20 20 20 20 20 |WT(X.6):. |
00002660: 20 20 4F 4C 44 20 42 41 53 49 43 20 57 49 4E 44 | OLD BASIC WIND|
00002670: 4F 57 00 78 66 00 0F 8E 00 7E 66 0A 0F 3A 00 AE |OW.xf....~f..:..|
00002680: 66 14 0F 8F 20 20 20 20 20 20 20 20 20 20 20 20 |f... |
00002690: 20 20 20 20 4C 4F 41 44 20 5A 45 52 4F 2D 50 41 | LOAD ZERO-PA|
000026A0: 47 45 20 57 49 54 48 20 56 41 4C 55 45 53 00 B4 |GE WITH VALUES..|
000026B0: 66 1E 0F 3A 00 DE 66 28 0F 97 20 5A 50 AA 32 2C |f..:..f(.. ZP.2,|
000026C0: A5 20 4C 42 59 54 45 28 58 42 29 3A 97 20 5A 50 |. LBYTE(XB):. ZP|
000026D0: AA 33 2C A5 20 48 42 59 54 45 28 58 42 29 00 06 |.3,. HBYTE(XB)..|
000026E0: 67 32 0F 97 20 5A 50 2C A5 20 4C 42 59 54 45 28 |g2.. ZP,. LBYTE(|
000026F0: 58 41 29 3A 97 20 5A 50 AA 31 2C A5 20 48 42 59 |XA):. ZP.1,. HBY|
00002700: 54 45 28 58 41 29 00 0C 67 3C 0F 8E 00 12 67 46 |TE(XA)..g<....gF|
00002710: 0F 80 00 00 00 |..... |
.@C@... -------------------------------
---------------------------..@...
GRAPHICS PRIMER CBM 128 DEMONSTRATION
PROGRAM..@... NICK
GREGORY 1988..@... ----------------
----------------------------------------
--..@..:..@....:A$.. B(215).0 . ..:.
CHECK 80 COLUMNS.HA..:
. 1,4,5,"THIS PROGRAM SHOULD BE USED IN"
..A8.:.:. .4) "80 COLUMN MODE ONLY !!!!!
"..AB.:Z 1,18900,150,0,9000,1000,0..AL.:
...AV.:.:.
STOP PROGRAM..B`...:U ....B
J.:.%.@BT.:. 1:. 0:. 5:.
RESERVE MEMORY..B~.:.. 15:.
ALWAYS BANK
15. B..:.. "GRAPHICS PRIMER",B0..B..:.:
.:.:...B..:. .8) "BEFORE WE START THE DE
MONSTRATION CAN YOU PUT A DISK IN THE".2
C..:. .14) "DRIVE WHICH HAS AT LEAST 65
BLOCKS FREE ON IT".]C..:.:.:. .25) "PRES
S <RETURN> WHEN DONE".WC..:.:.. K$:. . K
$.G(13).~CD....ECN.. . LBYTE (X).X . 255
:. LOW/HIGH BYTE FUNC
TIONS..CX.. . HBYTE (X)..(X.256)..C..:.&
D... WT(6.7):.
WINDOW TABLE.KD..WT(0).B(4624)
.B(4625).256:. ST ADRS OF
1ST WINDOW..D..WIN.0:.
ACTIVE WINDOW..
D..WMAX.6:.
MAX NUMB WINDOWS.=E..BNK.0:.
DEFAULT BANK NUMBER..E..ZP.Q("FA"):.
MUCH US
ED ZERO PAGE..E(.BUFFER . B(Q("1C02")).B
(Q("1C03")).256..E2.. Q("1C46"),0,Q("13"
),0:. UPPER-CASE TO RAM
.-F<.. Q("1C22"),0,Q("13"),0:.
AND DEFINE IT.PFF.. Q("1C25"),0:
. UPPER-CAS
E SET ON..FP.. Q("1C1F"),1,0:.
FOREGROUND WHITE/BACKGROUND BLACK..FZ.
. Q("1C04"):.
GRAPHICS ON..FD.:..GN.X.10:Y.10:R.0
:EX.2:EY.2:CW.16:RV.0.MGX.S$."80 COLUMN
GRAPHIC PRIMER DEMONSTRATION"..G... 2820
:. P
RINT STRING..G..X.34:Y.40:R.0:EX.1:EY.1:
CW.8:RV.0..H..S$."THIS PROGRAM DEMONST
RATES THE USE OF THE 80 COLUMN GRAPHIC
S SCREEN".?H .. 2820:.
PRINT STRING..H... Q(
"1C25"),1:.
LOWER-CASE SET ON..H..X.34:Y.60:R.0:EX.
1:EY.1:CW.8:RV.0..H..S$."WHEN IT'S FINIS
HED, LIST IT TO SEE HOW YOU CAN WRITE YO
UR OWN ROUTINES".6IH.. 2820:.
PRINT STRING.A
IR.. 2890.GI..:.YI... Q("1C25"),0..I..X1
.5:Y1.5:X2.639:Y2.198:D.0:. 3270..I..X1.
100:Y1.50:X2.100:Y2.150:D.0:. 3460:.
DRAW AXIS 1..I..X1.100:Y1.150:X2.500:Y
2.150:D.0:. 3460:. AXIS 2.-J..X1.550
:Y1.150:X2.550:Y2.50:D.0:. 3460:. A
XIS 3.LJ..RV.0:CW.7:EX.1:EY.1:R.0:D.0:.
CONSTANTS..J".. Y1.15
0 . 50 . .10:. NUMB
ER AXIS 1 AND 3.PJ,.:X1.100:X2.X1.5:Y2.Y
1:. 3460..J6.:S$.D(150.Y1)..J@.:X.65:Y.Y
1.4:. 2820..KJ.:X1.550:X2.X1.5:Y2.Y1:. 3
460.1KT.:S$.D((150.Y2).2).JK^.:X.557:Y.Y
1.4:. 2820.SKH.. Y1..KR.. X1.100 . 500 .
25:. NUMBER AXIS 2
..K|.:X2.X1:Y1.150:Y2.Y1.3:. 3460.FK..:S
$.J(D(X1),2,2)..K..:X.X1.8:Y.155:. 2820.
.K... X1..K.....L... PUT A NAMES ON A
XIS 1,2 AND 3..L....3LB.S$."PROFIT (\ 00
0)".\LL.X.40:Y.150:RV.0:EX.1:EY.1:R.2:.
2820.SLV.S$."COST (\ 0000)"..L..X.610:Y.
50:RV.0:EX.1:EY.1:R.1:. 2820.BL..S$."LAB
OUR COST (\ PER MAN HOUR)"..L..X.200:Y.1
70:RV.0:EX.1:EY.1:R.0:. 2820..L.....M...
DRAW TWO LINES ON GRAPH..M....3M...
POWER . 6 . 12 . 3.FM&.:X1.105:Y1.145._
M0.:. X2.155 . 500 . 10..M:.: Y2.Y1.((Y1
.100).POWER).2.5..MD.: . 3460:X1.X2:Y1.Y
2..MN.:. X2..MX.. POWER..MB...QML.. G
IVE GRAPH A TITLE.WMV....N..S$."NEWTOWN
BUILDING AND GENERAL CONSTRUCTION PLC".<
N..X.150:Y.20:EX.1:EY.2:R.0:RV.0:CW.8:.
2820.XN... "GRAPH.DEMO":.
SAVE PICTURE TO DISK..N....# 2,"GRAP
H.DEMO,S",W.KN..XA.0:XB.Q("4000"):.
WHOLE SCREEN.VN... 3880..
N... Q("1C3D"),2..NF. 2..NP.. 2890.6OZ.
..# 2,"GRAPH.DEMO,S":. GE
T PICTURE BACK.LO... Q("1C40"),2,0,0.TO.
. 2._O... 2890.EO..:..O... CHARACT
ER INFO...O..:.KO .. Q("1C25"),0:.
UPPER-CASE SET
ON..O%.S$."A FEW THINGS ABOUT CHARACTER
S .....".(P*.X.10:Y.20:EX.1:EY.2:R.0:RV.
0:CW.EX.8:. 2820.AP4.S$."YOU CAN PRINT T
HE NORMAL 80 CHARACTERS PER LINE"..P>.X.
10:Y.40:EX.1:EY.1:R.0:RV.0:CW.EX.8:. 282
0.CPH.S$."123456789.123456789.123456789.
123456789.".PPR.S$.S$.S$..Q\.X.0:Y.50:EX
.1:EY.1:R.0:RV.0:CW.EX.8:. 2820:.
80 CHARS.TQF.X.0:Y.60:EX.1:EY.1:R.0:RV
.0:CW.EX.7:. 2820:. 90 CHARS..QP
.S$."OR YOU CAN HAVE 90 CHARACTERS PER L
INE LIKE THE ONE ABOVE !!!!".LQZ.X.10:Y.
70:EX.1:EY.1:R.0:RV.0:CW.EX.7:. 2820..Q.
.S$."YOU CAN HAVE LARGER CHARACTERS".$R.
.X.10:Y.80:EX.2:EY.2:R.0:RV.0:CW.EX.7:.
2820.AR..S$."OR VERY BIG ONES !!".RR..X.
10:Y.100:EX.1:EY.1:R.0:RV.0:CW.EX.7:. 28
20..R..S$."LIKE THIS"..R..X.10:Y.110:EX.
10:EY.10:R.0:RV.0:CW.EX.7:. 2820..R... Q
("1C07"):.
CLEAR SCREEN.&SJ.S$." YOU CAN HAVE REV
ERSED CHARACTERS ... ".VST.X.10:Y.20:EX.
1:EY.2:R.0:RV.1:CW.EX.8:. 2820.XS..S$."A
ND CHARACTERS WHICH ARE"..S..X.30:Y.40:E
X.1:EY.1:R.0:RV.0:CW.EX.8:. 2820..S..S$.
"GOING DOWN .."..S..X.40:Y.50:EX.1:EY.2:
R.1:RV.0:CW.EX.8:. 2820..T..S$."AND GOIN
G UP".7T..X.100:Y.150:EX.1:EY.2:R.2:RV.0
:CW.EX.8:. 2820.IT..S$."AND OF COURSE YO
U CAN DESIGN YOUR OWN .."..T$.X.200:Y.10
0:EX.1:EY.2:R.0:RV.0:CW.EX.8:. 2820..T..
. A.0 . 7:.
REDEFINE CHR$(65)..T8.:. CS..TB.:.
Q("1308").A,CS..UL.. A..UV.:.3U`.. 126,
129,165,153,129,189,129,126.9UJ.:.ZUT.S$
."A A A A A A A A A A A A"..U~.X.200:Y.1
30:EX.2:EY.2:R.0:RV.0:CW.EX.8:. 2820..U.
.. 2890.RU... Q("1C28"):.
TEXT MODE.XU.....U.....
U... A.1 . 18.6V..:."FINALY YOU CAN USE
THE GRAPHICS PRIMER TO HAVE WINDOWS AND
PULL";.OVD.:. "DOWN MENUS ....".WVN.. A.
WVX.X1.5:Y1.1:X2.60:Y2.8:. 3530..V... "
THIS WINDOW HAS BEEN PRINTED ON TOP OF T
HE MAIN"..V... " SCREEN, BUT THE TEXT
ON THAT SCREEN HAS BEEN"."W... " PRESER
VED SO THAT IT CAN BE RECALLED WHEN THI
S".;W... " WINDOW IS SHUT.".EW.... 10.GW
..X1.15:Y1.3:X2.50:Y2.10:. 3530..W... "
THE SAME GOES FOR THIS WINDOW."..W(.. "
YOU CAN DO THE SAME THING WITH"..W2.. "
THE GRAPHICS SCREEN IF YOU"..W<.. "
WANT TO."..WF... 10..XP.X1.25:Y1.8:X2.67
:Y2.19:. 3530.NXZ.. " THE SUBROUTINES
IN THIS PROGRAM WILL".XD.. " LET YOU
WRITE TO 6 WINDOWS BUT YOU"..XN.. "
MUST CLOSE THEM IN THE ORDER IN WHICH"
.KXX.. " THEY WERE OPENED."..X... " YOU
CAN USE THE SAME TECHNIQUE TO BUILD".-Y.
.. " PULL DOWN MENUS AND THINGS LIKE
THAT".^Y... " BUT I'LL LEAVE THEM TO YO
U TO PROGRAM.".HY ... 15..Y... T.0 . 2:.
CANCELL WINDO
WS..Y..:.. 4:.&:. .1360:.%.FY..:. 3770.N
YH.. T..YR.. 1,0,20,"IT'S UP TO YOU NOW
.... GOODBYE"..Z.....Z....@Z... PR
INT STRING [S$] TO 80 COL GRAPHIC SCREEN
.FZ....XZ... Q("1C19"),. LBYTE (N.(S$)),
. HBYTE (N.(S$))..Z..XA.X:. 3890:. ZP.2,
Y:. ZP.3,R..Z... Q("1C1C"),CW,EX,EY,RV..
Z"...BZ,....Z6.. CONTINE OR STOP..Z
@....ZJ.Y.185..ZT.. Q("1C25"),1..[^.S$."
PRESS".0[H.X.110:R.0:EX.1:EY.1:CW.8:RV.0
.;[R.. 2820.M[|.. Q("1C25"),0.Z[..X.170:
Y1.Y:Y.Y.4:R.0:EX.1:EY.2:CW.8:RV.0..[..S
$."SPACE BAR".K[... 2820:.
PRINT STRING.T[..
Y.Y1..[... Q("1C25"),1..\..X.260:R.0:EX.
1:EY.1:CW.8:RV.0.%\B.S$."TO CONTINUE ...
. OR".C\L.. 2820:.
PRINT STRING.U\V.. Q("1C2
5"),0..\..X.430:Y1.Y:Y.Y.4:R.0:EX.1:EY.2
:CW.8:RV.0..\..S$."ESC"..\... 2820:.
PRINT S
TRING..\..Y.Y1..]... Q("1C25"),1.*]..X.4
80:R.0:EX.1:EY.1:CW.8:RV.0.:]..S$."TO EN
D".X]&.. 2820:.
PRINT STRING.~]0....]:.:.. K
$:K.F(K$)..]D.. . K.32 . K.27..]N.. Q("1
C07"):. C
LEAR GRAPHICS SCREEN..]X.. K.27 . ...7^B
.:. Q("1C28"):.
TEXT MODE.>^L.:..E^V.:...^..:.:.
HALT PROGRAM..^......^.....^....F^...
DRAW A BOX FROM X1,Y1 TO X2,Y2.L
^....R^..:..^F.X.X2:Y.Y1:. 3400:.
TOP.._P.X.X1:Y.Y1:. 3350.5_Z.X.X2:Y.
Y2:. 3400:. RH SIDE.J_..X.X2:Y
.Y1:. 3350.R_..X.X1:Y.Y2:. 3400:.
BOTTOM.._..X.X2:Y.Y2:. 3350.._..X.X1
:Y.Y1:. 3400:. LH SIDE.._..X.X
1:Y.Y2.._... Q ("1C10"),. LBYTE(X),. HBY
TE(X),Y.._ ...._*....`4.. ENTER DEST
INATION COORDINATES.!`>...1`H.XA.X:. 389
0.G`R.. ZP.2,Y:. ZP.3,D.M`\...S`F....`P.
. DRAW A LINE FROM X1,Y1 TO X2
,Y2..`Z....`..X.X2:Y.Y2:. 3400..`..X.X1:
Y.Y1:. 3350..`.....`..:..`...
SET UP A TEXT WINDOW ON THE TEXT SC
REEN."A... AT X1,Y1 ; X2,
Y2.(A..:.<AJ.. WIN .WMAX . ...AT.X.WIN.7
:.
INDEX INTO ARRAY.OA..XA.80.Y1:XB.(80.Y
2).81:. START AN
D END LOCATIONS.ZA... 3880..B... Q("1C3A
"),. LBYTE(WT(X)),. HBYTE(WT(X)),BNK.YB.
.WT(X.1).WT(X).(XB.XA):.
END OF RAM MEMORY BLOCK (+1)..B..WT
(X.2).XA :.
START OF VDC MEMORY..B..WT(X.3).B(230)
:. CURRENT X1..B..WT(X.4).B(229):.
Y1..C$.WT(X.5).B(231):. X2
.!C..WT(X.6).B(228):. Y2.MC8.WT
(X.7).WT(X.1):. S
TART OF NEXT RAM MEMORY BLOCK..CB... 0,0
,79,24:. CLEAR ANY
BASIC WINDOWS..CL.. 1,X1,Y1,G(176):.
DRAW WINDOW BOX..DV.. A.X1
.1 . X2.1:. G(192);:. A:. G(174).HD`.. A
.Y1.1 . Y2.1:. 1,X1,A,G(221):. 1,X2,A,G(
221):. A.]DJ.. 1,X1,Y2,G(173)..DT.. A.X1
.1 . X2.1:. G(192);:. A:. G(189);.CD~...
X1.1,Y1.1,X2.1,Y2.1,1:. NEW B
ASIC WINDOW..E..WIN . WIN.1:.
NEXT WINDOW NUMBER SET.
.E.....E..:.?E... GET BAC
K A TEXT WINDOW.EE..:.WE... WIN . 1 . ..
.ED.WIN .WIN.1:.
LAST WINDOW.WEN.X.WIN.7:.
SE
T INDEX..EX.XA.WT(X):XB.WT(X.1)..E... 38
80.0F... Q("1C43"),. LBYTE(WT(X.2)),. HB
YTE(WT(X.2)),BNK.RF.... WT(X.3),WT(X.4),
WT(X.5),WT(X.6):. OLD BASIC WIND
OW.XF....~F..:..F... LOAD
ZERO-PAGE WITH VALUES..F..:..F(.. ZP.2,
. LBYTE(XB):. ZP.3,. HBYTE(XB)..G2.. ZP,
. LBYTE(XA):. ZP.1,. HBYTE(XA)..G<....GF
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL