ULTRA DRAW
FILE INFORMATION
FILENAME(S): ULTRA DRAW
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-10-20 14:30:31
APPEARS ON: 1 disk(s)
FILE HASH
34ec25451e2639edabec17494478a22ba3d9079192207ce7b90fc519dedeaaa8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH ULTRA DRAW | ULTRA DRAW | PRG | Treasure Chest - Klaus Der Suhler | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 8B 40 01 00 FE 25 3A DE 20 35 3A 97 20 34 |.@.@...%:. 5:. 4|
00000010: 37 2C 30 3A 97 20 34 38 2C 31 33 32 3A 9C 3A 81 |7,0:. 48,132:.:.|
00000020: 20 43 4F B2 31 20 A4 20 38 3A 87 20 58 2C 59 3A | CO.1 . 8:. X,Y:|
00000030: 58 50 25 28 43 4F 29 B2 58 3A 20 20 20 20 20 20 |XP%(CO).X: |
00000040: 59 50 25 28 43 4F 29 B2 59 3A 82 3A 58 4F 56 46 |YP%(CO).Y:.:XOVF|
00000050: 28 31 29 B2 35 3A 58 4F 56 46 28 32 29 B2 35 3A |(1).5:XOVF(2).5:|
00000060: 58 4F 56 46 28 33 29 B2 36 33 38 3A 59 4F 56 46 |XOVF(3).638:YOVF|
00000070: 28 31 29 B2 35 3A 59 4F 56 46 28 32 29 B2 35 3A |(1).5:YOVF(2).5:|
00000080: 59 4F 56 46 28 33 29 B2 31 39 38 00 A1 40 02 00 |YOVF(3).198..@..|
00000090: 86 20 50 25 28 36 33 38 29 2C 51 25 28 31 39 38 |. P%(638),Q%(198|
000000A0: 29 00 2B 41 05 00 99 20 22 05 93 C5 4E 54 45 52 |).+A... "...NTER|
000000B0: 20 31 20 46 4F 52 20 D7 48 49 54 45 20 4F 4E 20 | 1 FOR .HITE ON |
000000C0: C2 4C 41 43 4B 20 4F 52 20 D2 C5 D4 D5 D2 CE 20 |.LACK OR ...... |
000000D0: C2 4C 41 43 4B 20 4F 4E 20 D7 48 49 54 45 3A 22 |.LACK ON .HITE:"|
000000E0: 3A A1 F9 20 41 24 3A 42 47 B2 36 3A 20 20 46 47 |:.. A$:BG.6: FG|
000000F0: B2 30 3A 4D 4F 44 45 B2 31 3A 43 31 25 B2 31 3A |.0:MODE.1:C1%.1:|
00000100: 43 32 25 B2 30 3A 8B 20 41 24 B2 22 31 22 20 A7 |C2%.0:. A$."1" .|
00000110: 20 42 47 B2 30 3A 46 47 B2 36 3A 43 31 25 B2 30 | BG.0:FG.6:C1%.0|
00000120: 3A 43 32 25 B2 31 3A 89 20 31 30 00 3F 41 06 00 |:C2%.1:. 10.?A..|
00000130: 8B 20 41 24 B3 B1 C7 28 31 33 29 20 A7 20 35 00 |. A$...(13) . 5.|
00000140: 67 41 0A 00 DE 20 35 3A 40 DE 2C 42 47 2C 46 47 |gA... 5:@.,BG,FG|
00000150: 3A 40 9C 2C 30 3A 58 B2 33 32 30 3A 59 B2 31 30 |:@.,0:X.320:Y.10|
00000160: 30 3A D7 20 33 30 30 00 D4 41 63 00 3A 8F 20 22 |0:. 300..Ac.:. "|
00000170: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001B0: C0 C0 C0 C0 C0 C0 20 20 20 20 20 20 20 20 20 20 |...... |
000001C0: CD 41 49 4E 20 50 52 4F 47 52 41 4D 4D 45 20 4C |.AIN PROGRAMME L|
000001D0: 4F 4F 50 2E 00 57 42 64 00 EB 3A 40 FE 1F 2C 31 |OOP..WBd..:@..,1|
000001E0: 36 31 30 30 2C 58 AB 35 2C 59 AB 35 2C 31 30 2C |6100,X.5,Y.5,10,|
000001F0: 31 30 3A 40 E1 2C 58 AB 31 2C 59 AB 31 2C 58 AA |10:@.,X.1,Y.1,X.|
00000200: 31 2C 59 AA 31 2C 43 31 25 3A 20 20 20 20 20 20 |1,Y.1,C1%: |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 40 E1 2C 58 AB 31 2C 59 AB 31 2C 58 AA | @.,X.1,Y.1,X.|
00000230: 31 2C 59 AA 31 2C 43 32 25 3A 40 FE 21 2C 31 36 |1,Y.1,C2%:@.!,16|
00000240: 31 30 30 2C 58 AB 35 2C 59 AB 35 3A 50 25 28 58 |100,X.5,Y.5:P%(X|
00000250: 29 B2 51 25 28 59 29 00 C5 42 65 00 48 41 25 B2 |).Q%(Y)..Be.HA%.|
00000260: CF 28 32 29 3A 58 B2 58 AA 58 50 25 28 48 41 25 |.(2):X.X.XP%(HA%|
00000270: 20 AF 20 31 32 37 29 3A 59 B2 59 AA 59 50 25 28 | . 127):Y.Y.YP%(|
00000280: 48 41 25 20 AF 20 31 32 37 29 3A 8B 20 28 31 32 |HA% . 127):. (12|
00000290: 38 20 AF 20 48 41 25 29 20 A7 20 20 20 20 20 20 |8 . HA%) . |
000002A0: 40 E1 2C 58 AB 32 AC 43 52 2C 59 AB 43 52 2C 58 |@.,X.2.CR,Y.CR,X|
000002B0: AA 32 AC 43 52 2C 59 AA 43 52 2C 4D 4F 44 45 3A |.2.CR,Y.CR,MODE:|
000002C0: EC 3A D5 3A EC 00 30 43 2B 01 8F 20 22 C0 C0 C0 |.:.:..0C+.. "...|
000002D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000300: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000310: C0 C0 C0 20 20 20 20 20 20 20 20 20 20 C2 D2 C5 |... ...|
00000320: C1 CB 20 43 4F 4D 4D 41 4E 44 20 4C 4F 4F 50 2E |.. COMMAND LOOP.|
00000330: 00 55 43 2C 01 8B 20 45 52 B2 33 30 20 A7 20 D7 |.UC,.. ER.30 . .|
00000340: 20 33 30 30 3A A1 F9 20 43 4F 4D 24 3A D5 3A 89 | 300:.. COM$:.:.|
00000350: 20 31 30 30 30 00 8D 43 2D 01 8B 20 D4 28 22 55 | 1000..C-.. .("U|
00000360: 91 11 9D 1D 31 32 33 34 35 36 37 38 39 30 22 2C |....1234567890",|
00000370: 43 4F 4D 24 2C 31 29 B2 30 20 A7 20 40 FE 1F 2C |COM$,1).0 . @..,|
00000380: 30 2C 30 2C 30 2C 36 34 30 2C 32 30 30 00 B6 43 |0,0,0,640,200..C|
00000390: 2E 01 8B 20 D4 28 22 41 42 44 52 22 2C 43 4F 4D |... .("ABDR",COM|
000003A0: 24 2C 31 29 B3 B1 30 20 A7 20 40 EB 54 2C 58 2C |$,1)..0 . @.T,X,|
000003B0: 59 2C 4D 4F 44 45 00 CC 43 2F 01 40 FE 21 2C 31 |Y,MODE..C/.@.!,1|
000003C0: 36 31 30 30 2C 58 AB 35 2C 59 AB 35 00 33 44 30 |6100,X.5,Y.5.3D0|
000003D0: 01 8B 20 45 4C B3 B1 31 30 30 20 AF 20 45 4C B3 |.. EL..100 . EL.|
000003E0: B1 31 30 31 20 AF 20 45 4C B3 B1 34 35 30 20 AF |.101 . EL..450 .|
000003F0: 20 45 4C B3 B1 34 35 30 20 AF 20 45 4C B3 B1 34 | EL..450 . EL..4|
00000400: 35 31 20 AF 20 45 4C B3 B1 34 35 32 20 AF 20 20 |51 . EL..452 . |
00000410: 20 20 20 20 45 4C B3 B1 34 36 30 20 AF 20 45 4C | EL..460 . EL|
00000420: B3 B1 34 36 31 20 AF 20 45 4C B3 B1 34 36 32 20 |..461 . EL..462 |
00000430: A7 20 D6 00 7A 44 31 01 8B 20 43 4F 4D 24 B2 22 |. ..zD1.. COM$."|
00000440: 49 22 20 A7 20 4D 4F 44 45 B2 30 3A 40 E0 2C 35 |I" . MODE.0:@.,5|
00000450: 35 32 39 36 2C 30 2C 31 39 32 2C 31 2C 31 2C 22 |5296,0,192,1,1,"|
00000460: 18 C9 4E 56 45 52 53 45 2E 9D 9D 9D 9D 9D 9D 9D |..NVERSE........|
00000470: 9D C9 4E 56 45 52 53 45 2E 22 00 BE 44 36 01 8B |..NVERSE."..D6..|
00000480: 20 43 4F 4D 24 B2 22 4E 22 20 A7 20 4D 4F 44 45 | COM$."N" . MODE|
00000490: B2 31 3A 40 E0 2C 35 35 32 39 36 2C 30 2C 31 39 |.1:@.,55296,0,19|
000004A0: 32 2C 31 2C 31 2C 22 18 CE 4F 52 4D 41 4C 2E 9D |2,1,1,"..ORMAL..|
000004B0: 9D 9D 9D 9D 9D 9D CE 4F 52 4D 41 4C 2E 22 00 3C |.......ORMAL.".<|
000004C0: 45 3B 01 8B 20 43 4F 4D 24 B2 22 93 22 20 A7 20 |E;.. COM$."." . |
000004D0: 40 E0 2C 35 35 32 39 36 2C 30 2C 31 39 32 2C 31 |@.,55296,0,192,1|
000004E0: 2C 31 2C 22 18 C3 4F 4E 46 49 52 4D 20 43 4C 45 |,1,"..ONFIRM CLE|
000004F0: 41 52 3A 22 3A A1 F9 20 41 24 3A 20 20 20 20 20 |AR:":.. A$: |
00000500: 20 20 20 20 20 20 20 20 40 E0 2C 35 35 32 39 36 | @.,55296|
00000510: 2C 30 2C 31 39 32 2C 31 2C 31 2C 22 18 C3 4F 4E |,0,192,1,1,"..ON|
00000520: 46 49 52 4D 20 43 4C 45 41 52 3A 22 3A 8B 20 41 |FIRM CLEAR:":. A|
00000530: 24 B2 22 59 22 20 A7 20 40 9C 2C 30 00 C1 45 40 |$."Y" . @.,0..E@|
00000540: 01 8B 20 43 4F 4D 24 B2 22 51 22 20 A7 20 40 E0 |.. COM$."Q" . @.|
00000550: 2C 35 35 32 39 36 2C 30 2C 31 39 32 2C 31 2C 31 |,55296,0,192,1,1|
00000560: 2C 22 18 C3 4F 4E 46 49 52 4D 20 51 55 49 54 3A |,"..ONFIRM QUIT:|
00000570: 22 3A A1 F9 20 41 24 3A 40 E0 2C 20 20 20 20 20 |":.. A$:@., |
00000580: 20 20 20 35 35 32 39 36 2C 30 2C 31 39 32 2C 31 | 55296,0,192,1|
00000590: 2C 31 2C 22 18 C3 4F 4E 46 49 52 4D 20 51 55 49 |,1,"..ONFIRM QUI|
000005A0: 54 3A 22 3A 8B 20 41 24 B2 22 59 22 20 A7 20 40 |T:":. A$."Y" . @|
000005B0: 54 45 58 54 3A D7 20 30 3A 99 20 22 93 22 3B 3A |TEXT:. 0:. ".";:|
000005C0: 80 00 3D 46 45 01 8B 20 43 4F 4D 24 B2 22 53 22 |..=FE.. COM$."S"|
000005D0: 20 A7 20 DE 20 30 3A 40 E0 2C 35 35 32 39 36 2C | . . 0:@.,55296,|
000005E0: 30 2C 31 39 32 2C 31 2C 31 2C 22 18 D3 41 56 45 |0,192,1,1,"..AVE|
000005F0: 20 4E 41 4D 45 3A 22 3A FE 26 3A 85 22 93 0E D3 | NAME:":.&:."...|
00000600: 41 56 45 20 4E 41 4D 45 22 3B 53 56 24 3A FE 25 |AVE NAME";SV$:.%|
00000610: 3A 40 E0 2C 35 35 32 39 36 2C 30 2C 31 39 32 2C |:@.,55296,0,192,|
00000620: 31 2C 31 2C 22 18 D3 41 56 45 20 4E 41 4D 45 3A |1,1,"..AVE NAME:|
00000630: 22 3A 40 94 2C 31 2C 53 56 24 3A DE 35 00 BB 46 |":@.,1,SV$:.5..F|
00000640: 4A 01 8B 20 43 4F 4D 24 B2 22 4C 22 20 A7 20 DE |J.. COM$."L" . .|
00000650: 20 30 3A 40 E0 2C 35 35 32 39 36 2C 30 2C 31 39 | 0:@.,55296,0,19|
00000660: 32 2C 31 2C 31 2C 22 18 CC 4F 41 44 20 4E 41 4D |2,1,1,"..OAD NAM|
00000670: 45 3A 22 3A FE 26 3A 85 20 20 20 20 20 20 20 22 |E:":.&:. "|
00000680: 93 0E CC 4F 41 44 22 3B 53 56 24 3A FE 25 3A 40 |...OAD";SV$:.%:@|
00000690: E0 2C 35 35 32 39 36 2C 30 2C 31 39 32 2C 31 2C |.,55296,0,192,1,|
000006A0: 31 2C 22 18 CC 4F 41 44 20 4E 41 4D 45 3A 22 3A |1,"..OAD NAME:":|
000006B0: 40 93 2C 31 2C 53 56 24 3A DE 35 00 50 47 4F 01 |@.,1,SV$:.5.PGO.|
000006C0: 8B 20 C5 28 43 4F 4D 24 29 B1 30 20 B0 20 43 4F |. .(COM$).0 . CO|
000006D0: 4D 24 B2 22 30 22 20 A7 20 43 52 B2 C5 28 43 4F |M$."0" . CR..(CO|
000006E0: 4D 24 29 3A 20 20 20 20 20 20 20 20 20 20 20 20 |M$): |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700: 20 20 20 20 20 20 20 40 E0 2C 35 35 32 39 36 2C | @.,55296,|
00000710: 30 2C 31 39 32 2C 31 2C 31 2C 22 18 CE 45 57 20 |0,192,1,1,"..EW |
00000720: 50 45 4E 20 53 45 4C 45 43 54 45 44 2E 9D 9D 9D |PEN SELECTED....|
00000730: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D CE 45 |...............E|
00000740: 57 20 50 45 4E 20 53 45 4C 45 43 54 45 44 2E 22 |W PEN SELECTED."|
00000750: 00 A5 47 54 01 8B 20 43 4F 4D 24 B2 22 24 22 20 |..GT.. COM$."$" |
00000760: A7 20 40 54 45 58 54 3A EE 3A 99 20 22 D0 52 45 |. @TEXT:.:. ".RE|
00000770: 53 53 20 41 4E 59 20 4B 45 59 2E 2E 2E 22 3A A1 |SS ANY KEY...":.|
00000780: F9 20 41 24 3A 20 20 20 20 20 20 20 20 20 20 20 |. A$: |
00000790: 20 40 DE 2C 42 47 2C 46 47 3A 40 FE 21 2C 30 2C | @.,BG,FG:@.!,0,|
000007A0: 30 2C 30 3A EC 00 C2 47 59 01 8B 20 43 4F 4D 24 |0,0:...GY.. COM$|
000007B0: B2 22 46 22 20 A7 20 40 DF 2C 58 2C 59 2C 4D 4F |."F" . @.,X,Y,MO|
000007C0: 44 45 00 EF 47 5E 01 8B 20 43 4F 4D 24 B2 22 43 |DE..G^.. COM$."C|
000007D0: 22 20 A7 20 8D 20 34 36 30 3A 40 E2 2C 4D 4F 44 |" . . 460:@.,MOD|
000007E0: 45 2C 58 2C 59 2C 59 31 AC 32 2E 34 2C 59 31 00 |E,X,Y,Y1.2.4,Y1.|
000007F0: 2A 48 63 01 8B 20 43 4F 4D 24 B2 22 44 22 20 A7 |*Hc.. COM$."D" .|
00000800: 20 8D 20 34 36 30 3A 40 E2 2C 4D 4F 44 45 2C 58 | . 460:@.,MODE,X|
00000810: 2C 59 2C 59 31 AC 32 2E 34 2C 59 31 3A 40 DF 2C |,Y,Y1.2.4,Y1:@.,|
00000820: 58 AA 31 2C 59 2C 4D 4F 44 45 00 53 48 68 01 8B |X.1,Y,MODE.SHh..|
00000830: 20 43 4F 4D 24 B2 22 52 22 20 A7 20 8D 20 34 35 | COM$."R" . . 45|
00000840: 30 3A 40 E1 2C 58 2C 59 2C 58 31 2C 59 31 2C 4D |0:@.,X,Y,X1,Y1,M|
00000850: 4F 44 45 00 96 48 6D 01 8B 20 43 4F 4D 24 B2 22 |ODE..Hm.. COM$."|
00000860: 41 22 20 A7 20 8D 20 34 35 30 3A 40 E1 2C 58 2C |A" . . 450:@.,X,|
00000870: 59 2C 58 31 2C 59 31 2C 4D 4F 44 45 3A 40 DF 2C |Y,X1,Y1,MODE:@.,|
00000880: 28 58 AA 58 31 29 AD 32 2C 28 59 AA 59 31 29 AD |(X.X1).2,(Y.Y1).|
00000890: 32 2C 4D 4F 44 45 00 CB 48 72 01 8B 20 43 4F 4D |2,MODE..Hr.. COM|
000008A0: 24 B2 22 55 22 20 A7 20 40 E0 2C 35 35 32 39 36 |$."U" . @.,55296|
000008B0: 2C 30 2C 31 39 32 2C 31 2C 31 2C 22 D5 CE C4 CF |,0,192,1,1,"....|
000008C0: 22 3A 40 FE 21 2C 30 2C 30 2C 30 00 33 49 77 01 |":@.!,0,0,0.3Iw.|
000008D0: 8B 20 43 4F 4D 24 B3 B1 22 54 22 20 A7 20 33 38 |. COM$.."T" . 38|
000008E0: 30 3A D5 3A 40 E0 2C 35 35 32 39 36 2C 30 2C 31 |0:.:@.,55296,0,1|
000008F0: 39 32 2C 31 2C 31 2C 22 18 D4 45 58 54 9D 9D 9D |92,1,1,"..EXT...|
00000900: 9D D4 45 58 54 05 22 3A 41 B2 58 3A EB 3A 20 20 |..EXT.":A.X:.: |
00000910: 20 20 20 20 20 40 E0 2C 35 35 32 39 36 2C 41 2C | @.,55296,A,|
00000920: 59 2C 31 2C 31 2C 22 18 12 20 92 05 22 3A A1 F9 |Y,1,1,".. ..":..|
00000930: 20 41 24 00 8F 49 78 01 40 E0 2C 35 35 32 39 36 | A$..Ix.@.,55296|
00000940: 2C 41 2C 59 2C 31 2C 31 2C 41 24 3A 8B 20 41 24 |,A,Y,1,1,A$:. A$|
00000950: B2 22 9D 22 20 B0 20 41 24 B2 C7 28 32 30 29 20 |."." . A$..(20) |
00000960: A7 20 40 E0 2C 35 35 32 39 36 2C 41 2C 59 2C 31 |. @.,55296,A,Y,1|
00000970: 2C 31 2C 20 20 20 20 20 20 20 22 18 12 20 92 05 |,1, ".. ..|
00000980: 22 3A 41 B2 41 AB 38 3A D5 3A 41 B2 41 AA 38 00 |":A.A.8:.:A.A.8.|
00000990: BA 49 79 01 EC 20 FC 20 41 24 B2 C7 28 31 33 29 |.Iy.. . A$..(13)|
000009A0: 3A 40 E0 2C 35 35 32 39 36 2C 41 AB 38 2C 59 2C |:@.,55296,A.8,Y,|
000009B0: 31 2C 31 2C 22 18 12 20 92 22 00 F4 49 7C 01 8B |1,1,".. ."..I|..|
000009C0: 20 43 4F 4D 24 B2 22 91 22 20 A7 20 EB 3A A1 F9 | COM$."." . .:..|
000009D0: 20 41 24 3A 59 B2 59 AB 31 35 3A EC 20 FC 20 41 | A$:Y.Y.15:. . A|
000009E0: 24 B2 C7 28 31 33 29 3A 8B 20 59 B3 30 20 A7 20 |$..(13):. Y.0 . |
000009F0: 59 B2 31 35 00 37 4A 7D 01 8B 20 43 4F 4D 24 B2 |Y.15.7J}.. COM$.|
00000A00: 22 11 22 20 A7 20 EB 3A A1 F9 20 41 24 3A 59 B2 |"." . .:.. A$:Y.|
00000A10: 59 AA 31 35 3A EC 20 FC 20 41 24 B2 C7 28 31 33 |Y.15:. . A$..(13|
00000A20: 29 3A 8B 20 59 B1 32 30 30 20 A7 20 20 20 20 20 |):. Y.200 . |
00000A30: 20 20 59 B2 31 38 35 00 71 4A 7E 01 8B 20 43 4F | Y.185.qJ~.. CO|
00000A40: 4D 24 B2 22 9D 22 20 A7 20 EB 3A A1 F9 20 41 24 |M$."." . .:.. A$|
00000A50: 3A 58 B2 58 AB 35 30 3A EC 20 FC 20 41 24 B2 C7 |:X.X.50:. . A$..|
00000A60: 28 31 33 29 3A 8B 20 58 B3 30 20 A7 20 58 B2 35 |(13):. X.0 . X.5|
00000A70: 30 00 B4 4A 7F 01 8B 20 43 4F 4D 24 B2 22 1D 22 |0..J... COM$."."|
00000A80: 20 A7 20 EB 3A A1 F9 20 41 24 3A 58 B2 58 AA 35 | . .:.. A$:X.X.5|
00000A90: 30 3A EC 20 FC 20 41 24 B2 C7 28 31 33 29 3A 8B |0:. . A$..(13):.|
00000AA0: 20 58 B1 36 34 30 20 A7 20 20 20 20 20 20 20 58 | X.640 . X|
00000AB0: B2 36 32 35 00 D8 4A 81 01 8B 20 43 4F 4D 24 B2 |.625..J... COM$.|
00000AC0: 22 3F 22 20 B0 20 43 4F 4D 24 B2 22 2F 22 20 A7 |"?" . COM$."/" .|
00000AD0: 20 8D 20 35 30 30 3A EC 00 35 4B 86 01 8B 20 43 | . 500:..5K... C|
00000AE0: 4F 4D 24 B2 22 42 22 20 A7 20 40 E0 2C 35 35 32 |OM$."B" . @.,552|
00000AF0: 39 36 2C 30 2C 31 39 32 2C 31 2C 31 2C 22 18 C2 |96,0,192,1,1,"..|
00000B00: 41 52 9D 9D 9D C2 41 52 22 3A 8D 20 34 35 30 3A |AR....AR":. 450:|
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 20 40 E5 2C 58 2C 59 2C 58 31 2C 59 31 2C 4D | @.,X,Y,X1,Y1,M|
00000B30: 4F 44 45 3A EC 00 A9 4B 8B 01 8B 20 43 4F 4D 24 |ODE:...K... COM$|
00000B40: B2 22 50 22 20 A7 20 40 E0 2C 35 35 32 39 36 2C |."P" . @.,55296,|
00000B50: 30 2C 31 39 32 2C 31 2C 31 2C 22 18 D0 41 53 54 |0,192,1,1,"..AST|
00000B60: 45 9D 9D 9D 9D 9D D0 41 53 54 45 22 3A 8D 20 34 |E......ASTE":. 4|
00000B70: 35 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 41 |50: A|
00000B80: B2 B6 28 58 31 AB 58 29 3A 42 B2 B6 28 59 31 AB |..(X1.X):B..(Y1.|
00000B90: 59 29 3A 8D 20 34 35 30 3A 40 F4 2C 58 2C 59 2C |Y):. 450:@.,X,Y,|
00000BA0: 41 2C 42 2C 58 31 2C 59 31 00 AF 4B 90 01 EC 00 |A,B,X1,Y1..K....|
00000BB0: 27 4C C1 01 8F 20 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |'L... ".........|
00000BC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 20 20 20 |............. |
00000C00: 20 20 20 20 20 20 20 D3 55 42 2D 43 55 52 53 4F | .UB-CURSO|
00000C10: 52 20 4D 4F 56 45 4D 45 4E 54 20 53 55 42 52 4F |R MOVEMENT SUBRO|
00000C20: 55 54 49 4E 45 53 2E 00 5C 4C C2 01 58 31 B2 58 |UTINES..\L..X1.X|
00000C30: 3A 59 31 B2 59 3A 40 E0 2C 35 35 32 39 36 2C 30 |:Y1.Y:@.,55296,0|
00000C40: 2C 31 39 32 2C 31 2C 31 2C 22 18 CD 4F 56 45 20 |,192,1,1,"..OVE |
00000C50: 43 55 52 53 4F 52 20 4E 4F 57 2E 22 00 A0 4C C3 |CURSOR NOW."..L.|
00000C60: 01 EB 3A 40 FE 1F 2C 31 36 31 30 30 2C 58 AB 35 |..:@..,16100,X.5|
00000C70: 2C 59 AB 35 2C 31 30 2C 31 30 3A 40 EB 54 2C 58 |,Y.5,10,10:@.T,X|
00000C80: 2C 59 2C 30 3A 40 EB 54 2C 58 2C 59 2C 31 3A 40 |,Y,0:@.T,X,Y,1:@|
00000C90: FE 21 2C 31 36 31 30 30 2C 58 AB 35 2C 59 AB 35 |.!,16100,X.5,Y.5|
00000CA0: 00 1C 4D C4 01 48 41 B2 CF 28 32 29 3A 44 57 B2 |..M..HA..(2):DW.|
00000CB0: 31 32 38 20 AF 20 48 41 3A 48 41 B2 48 41 20 AF |128 . HA:HA.HA .|
00000CC0: 20 31 32 37 3A 58 B2 58 AA 58 50 25 28 48 41 29 | 127:X.X.XP%(HA)|
00000CD0: 3A 59 B2 59 AA 59 50 25 28 48 41 29 3A 50 25 28 |:Y.Y.YP%(HA):P%(|
00000CE0: 58 29 B2 51 25 28 59 29 3A 20 20 20 20 20 20 EC |X).Q%(Y): .|
00000CF0: 20 FC 20 44 57 3A 40 E0 2C 35 35 32 39 36 2C 30 | . DW:@.,55296,0|
00000D00: 2C 31 39 32 2C 31 2C 31 2C 22 18 CD 4F 56 45 20 |,192,1,1,"..OVE |
00000D10: 43 55 52 53 4F 52 20 4E 4F 57 2E 22 00 3E 4D C5 |CURSOR NOW.".>M.|
00000D20: 01 54 B2 58 31 3A 58 31 B2 58 3A 58 B2 54 3A 54 |.T.X1:X1.X:X.T:T|
00000D30: B2 59 31 3A 59 31 B2 59 3A 59 B2 54 3A 8E 00 69 |.Y1:Y1.Y:Y.T:..i|
00000D40: 4D CC 01 59 31 B2 59 3A 40 E0 2C 35 35 32 39 36 |M..Y1.Y:@.,55296|
00000D50: 2C 30 2C 31 39 32 2C 31 2C 31 2C 22 18 D3 45 54 |,0,192,1,1,"..ET|
00000D60: 20 52 41 44 49 55 53 2E 22 00 AD 4D CD 01 EB 3A | RADIUS."..M...:|
00000D70: 40 FE 1F 2C 31 36 31 30 30 2C 58 AB 35 2C 59 AB |@..,16100,X.5,Y.|
00000D80: 35 2C 31 30 2C 31 30 3A 40 EB 54 2C 58 2C 59 2C |5,10,10:@.T,X,Y,|
00000D90: 30 3A 40 EB 54 2C 58 2C 59 2C 31 3A 40 FE 21 2C |0:@.T,X,Y,1:@.!,|
00000DA0: 31 36 31 30 30 2C 58 AB 35 2C 59 AB 35 00 20 4E |16100,X.5,Y.5. N|
00000DB0: CE 01 48 41 B2 CF 28 32 29 3A 44 57 B2 31 32 38 |..HA..(2):DW.128|
00000DC0: 20 AF 20 48 41 3A 48 41 B2 48 41 20 AF 20 31 32 | . HA:HA.HA . 12|
00000DD0: 37 3A 59 B2 59 AA 59 50 25 28 48 41 29 3A 50 25 |7:Y.Y.YP%(HA):P%|
00000DE0: 28 58 29 B2 51 25 28 59 29 3A EC 20 FC 20 44 57 |(X).Q%(Y):. . DW|
00000DF0: 3A 20 20 20 20 59 B2 B6 28 59 AB 59 31 29 3A 40 |: Y..(Y.Y1):@|
00000E00: E0 2C 35 35 32 39 36 2C 30 2C 31 39 32 2C 31 2C |.,55296,0,192,1,|
00000E10: 31 2C 22 18 D3 45 54 20 52 41 44 49 55 53 2E 22 |1,"..ET RADIUS."|
00000E20: 00 34 4E CF 01 54 B2 59 31 3A 59 31 B2 59 3A 59 |.4N..T.Y1:Y1.Y:Y|
00000E30: B2 54 3A 8E 00 96 4E F3 01 8F 20 22 C0 C0 C0 C0 |.T:...N... "....|
00000E40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000E50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000E60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000E70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000E80: C0 C0 20 20 20 20 20 20 20 20 20 20 C8 C5 CC D0 |.. ....|
00000E90: 20 41 52 45 41 2E 00 F6 4E F4 01 40 54 45 58 54 | AREA...N..@TEXT|
00000EA0: 3A 99 20 22 93 1F D5 4C 54 52 41 20 C4 D2 C1 D7 |:. "...LTRA ....|
00000EB0: 21 20 05 C8 45 4C 50 1F 20 D6 45 52 53 49 4F 4E |! ..ELP. .ERSION|
00000EC0: 20 33 2E 37 20 D2 45 4C 45 41 53 45 20 31 2E 31 | 3.7 .ELEASE 1.1|
00000ED0: 20 05 C4 C1 D7 CE D3 D4 C1 D2 1C 50 52 4F 44 55 | ..........PRODU|
00000EE0: 43 54 49 4F 4E 53 20 05 D0 55 42 4C 49 43 20 C4 |CTIONS ..UBLIC .|
00000EF0: 4F 4D 41 49 4E 22 00 4F 4F F5 01 99 20 22 1F C0 |OMAIN".OO... "..|
00000F00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00000F50: E7 4F F6 01 99 20 22 05 C4 D2 C1 D7 1F 2C 20 43 |.O... "......, C|
00000F60: 55 52 52 45 4E 54 20 4D 4F 44 45 3A 20 CA 4F 59 |URRENT MODE: .OY|
00000F70: 53 54 49 43 4B 20 4F 52 20 4D 4F 55 53 45 20 49 |STICK OR MOUSE I|
00000F80: 4E 20 50 4F 52 54 20 D4 D7 CF 2E 22 3A 20 20 20 |N PORT ....": |
00000F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 99 22 | ."|
00000FA0: 05 C3 48 41 4E 47 45 1F 20 C4 D2 C1 D7 21 20 43 |..HANGE. ....! C|
00000FB0: 55 52 53 4F 52 20 53 49 5A 45 3A 20 D2 D5 CE 2F |URSOR SIZE: .../|
00000FC0: D3 D4 CF D0 20 46 4F 4C 4C 4F 57 45 44 20 42 59 |.... FOLLOWED BY|
00000FD0: 20 30 20 28 54 49 4E 59 29 20 54 4F 20 39 20 28 | 0 (TINY) TO 9 (|
00000FE0: 48 55 47 45 29 2E 22 00 77 50 F7 01 99 20 22 05 |HUGE).".wP... ".|
00000FF0: C6 41 53 54 1F 20 43 55 52 53 4F 52 20 4D 4F 56 |.AST. CURSOR MOV|
00001000: 45 4D 45 4E 54 3A 20 D2 D5 CE 2F D3 D4 CF D0 2C |EMENT: .../....,|
00001010: 20 41 4E 59 20 27 41 52 52 4F 57 27 20 4B 45 59 | ANY 'ARROW' KEY|
00001020: 20 28 52 45 50 45 41 54 41 42 4C 45 29 2C 20 C5 | (REPEATABLE), .|
00001030: CE D4 C5 D2 2E 22 3A 20 99 20 22 11 05 C1 4C 4C |.....": . "...LL|
00001040: 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 4F 4D 4D 41 | FOLLOWING COMMA|
00001050: 4E 44 53 20 41 52 45 20 50 52 45 43 45 45 44 45 |NDS ARE PRECEEDE|
00001060: 44 20 42 59 20 54 48 45 20 D2 D5 CE 2F D3 D4 CF |D BY THE .../...|
00001070: D0 20 4B 45 59 3A 22 00 0E 51 F8 01 99 20 22 09 |. KEY:"..Q... ".|
00001080: 05 C3 C9 D2 C3 CC C5 1F 3A 20 C3 2C 20 4D 4F 56 |........: ., MOV|
00001090: 45 20 43 55 52 53 4F 52 2C 20 C6 C9 D2 C5 20 20 |E CURSOR, .... |
000010A0: 20 20 20 20 20 20 20 20 05 C4 C9 D3 CB 1F 3A 20 | ......: |
000010B0: C4 2C 20 4D 4F 56 45 20 43 55 52 53 4F 52 2C 20 |., MOVE CURSOR, |
000010C0: C6 C9 D2 C5 22 3A 20 20 99 20 22 09 05 D2 C5 C3 |....": . ".....|
000010D0: D4 C1 CE C7 CC C5 1F 3A 20 D2 2C 20 4D 4F 56 45 |.......: ., MOVE|
000010E0: 20 43 55 52 53 4F 52 2C 20 C6 C9 D2 C5 20 20 20 | CURSOR, .... |
000010F0: 20 20 20 20 05 C1 D2 C5 C1 1F 3A 20 D3 41 4D 45 | ......: .AME|
00001100: 20 41 53 20 D2 C5 C3 D4 C1 CE C7 CC C5 22 00 9C | AS ........."..|
00001110: 51 F9 01 99 20 22 09 05 D4 C5 D8 D4 1F 3A 20 D4 |Q... ".......: .|
00001120: 2C 20 54 45 58 54 2C 20 C5 CE D4 C5 D2 2E 20 20 |, TEXT, ...... |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 05 | .|
00001140: C6 C9 CC CC 1F 3A 20 C6 22 3A 20 20 20 20 20 20 |.....: .": |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 99 | .|
00001160: 20 22 09 05 C9 CE D6 C5 D2 D3 C5 1F 20 44 52 41 | ".......... DRA|
00001170: 57 3A 20 C9 20 20 20 20 20 20 20 20 20 20 20 20 |W: . |
00001180: 20 20 20 20 20 20 20 20 20 20 20 05 CE CF D2 CD | .....|
00001190: C1 CC 1F 20 44 52 41 57 3A 20 CE 22 00 34 52 FA |... DRAW: .".4R.|
000011A0: 01 99 20 22 09 05 C3 CC C5 C1 D2 1F 3A 20 C3 CC |.. "........: ..|
000011B0: D2 2F C8 CF CD C5 2C 20 D9 20 20 20 20 20 20 20 |./...., . |
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 05 D1 D5 | ...|
000011D0: C9 D4 1F 3A 20 D1 2C 20 D9 22 3A 20 20 20 20 20 |...: ., .": |
000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 99 20 22 | . "|
000011F0: 09 05 D3 C1 D6 C5 1F 3A 20 D3 2C 20 46 49 4C 45 |.......: ., FILE|
00001200: 4E 41 4D 45 2C 20 C5 CE D4 C5 D2 20 20 20 20 20 |NAME, ..... |
00001210: 20 20 20 20 20 20 20 20 20 05 CC CF C1 C4 1F 3A | ......:|
00001220: 20 CC 2C 20 46 49 4C 45 4E 41 4D 45 2C 20 C5 CE | ., FILENAME, ..|
00001230: D4 C5 D2 22 00 BD 52 FB 01 99 20 22 09 05 C2 C1 |..."..R... "....|
00001240: D2 1F 28 4C 49 4E 45 29 3A 20 C2 2C 20 4D 4F 56 |..(LINE): ., MOV|
00001250: 45 20 43 55 52 53 4F 52 2C 20 C6 C9 D2 C5 20 20 |E CURSOR, .... |
00001260: 20 20 20 20 20 05 D5 CE C4 CF 1F 3A 20 D5 22 3A | ......: .":|
00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001280: 20 20 20 20 20 99 20 22 09 05 D0 C1 D3 D4 C5 1F | . "........|
00001290: 28 43 4F 50 59 29 3A 20 D0 2C 20 53 45 54 20 52 |(COPY): ., SET R|
000012A0: 41 4E 47 45 2C 20 53 45 54 20 4E 45 57 20 4C 4F |ANGE, SET NEW LO|
000012B0: 43 41 54 49 4F 4E 2C 20 C6 C9 D2 C5 22 00 D5 52 |CATION, ...."..R|
000012C0: FC 01 99 20 22 09 05 C8 C5 CC D0 1F 3A 20 3F 20 |... ".......: ? |
000012D0: 4F 52 20 2F 22 00 27 53 FE 01 99 20 22 11 05 D0 |OR /".'S... "...|
000012E0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
000012F0: 52 45 54 55 52 4E 20 54 4F 20 44 52 41 57 49 4E |RETURN TO DRAWIN|
00001300: 47 2E 22 3A A1 F9 20 41 24 3A 40 DE 2C 42 47 2C |G.":.. A$:@.,BG,|
00001310: 46 47 3A 20 20 20 20 20 20 20 20 20 40 FE 21 2C |FG: @.!,|
00001320: 30 2C 30 2C 30 3A 8E 00 8E 53 E7 03 8F 20 22 C0 |0,0,0:...S... ".|
00001330: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001340: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001350: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001370: C0 C0 C0 C0 C0 20 20 20 20 20 20 20 20 20 20 C5 |..... .|
00001380: 52 52 4F 52 20 48 41 4E 44 4C 49 4E 47 2E 00 EA |RROR HANDLING...|
00001390: 53 E8 03 8B 20 28 45 52 B2 31 34 20 B0 20 45 52 |S... (ER.14 . ER|
000013A0: B2 31 38 29 20 AF 20 28 45 4C B2 31 30 30 20 B0 |.18) . (EL.100 .|
000013B0: 20 45 4C B2 34 35 31 20 B0 20 45 4C B2 34 36 31 | EL.451 . EL.461|
000013C0: 29 20 A7 20 8B 20 58 B3 35 20 B0 20 58 B1 36 33 |) . . X.5 . X.63|
000013D0: 35 20 20 20 20 20 20 20 A7 20 58 B2 58 4F 56 46 |5 . X.XOVF|
000013E0: 28 B4 28 58 AB 35 29 AA 32 29 00 46 54 E9 03 8B |(.(X.5).2).FT...|
000013F0: 20 28 45 52 B2 31 34 20 B0 20 45 52 B2 31 38 29 | (ER.14 . ER.18)|
00001400: 20 AF 20 28 45 4C B2 31 30 30 20 B0 20 45 4C B2 | . (EL.100 . EL.|
00001410: 34 35 31 20 B0 20 45 4C B2 34 36 31 29 20 A7 20 |451 . EL.461) . |
00001420: 8B 20 59 B3 35 20 B0 20 59 B1 31 39 35 20 20 20 |. Y.5 . Y.195 |
00001430: 20 20 20 20 A7 20 59 B2 59 4F 56 46 28 B4 28 59 | . Y.YOVF(.(Y|
00001440: AB 35 29 AA 32 29 00 83 54 EA 03 8B 20 28 45 52 |.5).2)..T... (ER|
00001450: B2 31 34 20 B0 20 45 52 B2 31 38 29 20 AF 20 28 |.14 . ER.18) . (|
00001460: 45 4C B2 31 30 30 20 B0 20 45 4C B2 34 35 31 20 |EL.100 . EL.451 |
00001470: B0 20 45 4C B2 34 36 31 29 20 A7 20 D7 20 33 30 |. EL.461) . . 30|
00001480: 30 3A EC 00 99 54 EB 03 8B 20 45 52 B2 32 33 20 |0:...T... ER.23 |
00001490: A7 20 D7 20 33 30 30 3A EC 00 B7 54 F2 03 DE 20 |. . 300:...T... |
000014A0: 35 3A 40 54 45 58 54 3A 99 20 45 52 2C 45 4C 2C |5:@TEXT:. ER,EL,|
000014B0: D3 28 45 52 29 3A 80 00 E3 54 20 CB 83 20 30 2C |.(ER):...T .. 0,|
000014C0: 2D 31 2C 31 2C 2D 31 2C 31 2C 30 2C 31 2C 31 2C |-1,1,-1,1,0,1,1,|
000014D0: 30 2C 31 2C 2D 31 2C 31 2C 2D 31 2C 30 2C 2D 31 |0,1,-1,1,-1,0,-1|
000014E0: 2C 2D 31 00 00 00 |,-1... |
.@.@...%:. 5:. 47,0:. 48,132:.:. CO.1 .
8:. X,Y:XP%(CO).X: YP%(CO).Y:.:XOVF
(1).5:XOVF(2).5:XOVF(3).638:YOVF(1).5:YO
VF(2).5:YOVF(3).198..@... P%(638),Q%(198
).+A... "..ENTER 1 FOR WHITE ON BLACK OR
RETURN BLACK ON WHITE:":.. A$:BG.6: FG
.0:MODE.1:C1%.1:C2%.0:. A$."1" . BG.0:FG
.6:C1%.0:C2%.1:. 10.?A... A$..G(13) . 5.
GA... 5:@.,BG,FG:@.,0:X.320:Y.100:W 300.
TAC.:. "................................
......................................
MAIN PROGRAMME LOOP..WBD..:@..,1
6100,X.5,Y.5,10,10:@.,X.1,Y.1,X.1,Y.1,C1
%: @.,X.1,Y.1,X.
1,Y.1,C2%:@.!,16100,X.5,Y.5:P%(X).Q%(Y).
EBE.HA%.O(2):X.X.XP%(HA% . 127):Y.Y.YP%(
HA% . 127):. (128 . HA%) . @.,X.2.C
R,Y.CR,X.2.CR,Y.CR,MODE:.:U:..0C+.. "...
........................................
........................... BRE
AK COMMAND LOOP..UC,.. ER.30 . W 300:..
COM$:U:. 1000..C-.. T("U....1234567890",
COM$,1).0 . @..,0,0,0,640,200..C... T("A
BDR",COM$,1)..0 . @.T,X,Y,MODE.LC/.@.!,1
6100,X.5,Y.5.3D0.. EL..100 . EL..101 . E
L..450 . EL..450 . EL..451 . EL..452 .
EL..460 . EL..461 . EL..462 . V.ZD1.
. COM$."I" . MODE.0:@.,55296,0,192,1,1,"
.INVERSE.........INVERSE."..D6.. COM$."N
" . MODE.1:@.,55296,0,192,1,1,".NORMAL..
......NORMAL.".<E;.. COM$."." . @.,55296
,0,192,1,1,".CONFIRM CLEAR:":.. A$:
@.,55296,0,192,1,1,".CONFIRM CLE
AR:":. A$."Y" . @.,0.AE@.. COM$."Q" . @.
,55296,0,192,1,1,".CONFIRM QUIT:":.. A$:
@., 55296,0,192,1,1,".CONFIRM QUI
T:":. A$."Y" . @TEXT:W 0:. ".";:..=FE..
COM$."S" . . 0:@.,55296,0,192,1,1,".SAVE
NAME:":.&:."..SAVE NAME";SV$:.%:@.,5529
6,0,192,1,1,".SAVE NAME:":@.,1,SV$:.5..F
J.. COM$."L" . . 0:@.,55296,0,192,1,1,".
LOAD NAME:":.&:. "..LOAD";SV$:.%:@
.,55296,0,192,1,1,".LOAD NAME:":@.,1,SV$
:.5.PGO.. E(COM$).0 . COM$."0" . CR.E(CO
M$): @
.,55296,0,192,1,1,".NEW PEN SELECTED....
..............NEW PEN SELECTED."..GT.. C
OM$."$" . @TEXT:.:. "PRESS ANY KEY...":.
. A$: @.,BG,FG:@.!,0,0,0:..BG
Y.. COM$."F" . @.,X,Y,MODE..G^.. COM$."C
" . . 460:@.,MODE,X,Y,Y1.2.4,Y1.*HC.. CO
M$."D" . . 460:@.,MODE,X,Y,Y1.2.4,Y1:@.,
X.1,Y,MODE.SHH.. COM$."R" . . 450:@.,X,Y
,X1,Y1,MODE..HM.. COM$."A" . . 450:@.,X,
Y,X1,Y1,MODE:@.,(X.X1).2,(Y.Y1).2,MODE.K
HR.. COM$."U" . @.,55296,0,192,1,1,"UNDO
":@.!,0,0,0.3IW.. COM$.."T" . 380:U:@.,5
5296,0,192,1,1,".TEXT....TEXT.":A.X:.:
@.,55296,A,Y,1,1,".. ..":.. A$..IX.
@.,55296,A,Y,1,1,A$:. A$."." . A$.G(20)
. @.,55296,A,Y,1,1, ".. ..":A.A.8:
U:A.A.8..IY.. . A$.G(13):@.,55296,A.8,Y,
1,1,".. ."..I|.. COM$."." . .:.. A$:Y.Y.
15:. . A$.G(13):. Y.0 . Y.15.7J}.. COM$.
"." . .:.. A$:Y.Y.15:. . A$.G(13):. Y.20
0 . Y.185.QJ~.. COM$."." . .:.. A$
:X.X.50:. . A$.G(13):. X.0 . X.50..J..
COM$."." . .:.. A$:X.X.50:. . A$.G(13):.
X.640 . X.625.XJ... COM$."?" . CO
M$."/" . . 500:..5K... COM$."B" . @.,552
96,0,192,1,1,".BAR...BAR":. 450:
@.,X,Y,X1,Y1,MODE:...K... COM$
."P" . @.,55296,0,192,1,1,".PASTE.....PA
STE":. 450: A..(X1.X):B..(Y1.
Y):. 450:@.,X,Y,A,B,X1,Y1..K....'LA.. ".
........................................
............................. S
UB-CURSOR MOVEMENT SUBROUTINES..\LB.X1.X
:Y1.Y:@.,55296,0,192,1,1,".MOVE CURSOR N
OW.". LC..:@..,16100,X.5,Y.5,10,10:@.T,X
,Y,0:@.T,X,Y,1:@.!,16100,X.5,Y.5..MD.HA.
O(2):DW.128 . HA:HA.HA . 127:X.X.XP%(HA)
:Y.Y.YP%(HA):P%(X).Q%(Y): . . DW:@.
,55296,0,192,1,1,".MOVE CURSOR NOW.".>ME
.T.X1:X1.X:X.T:T.Y1:Y1.Y:Y.T:..IML.Y1.Y:
@.,55296,0,192,1,1,".SET RADIUS."..MM..:
@..,16100,X.5,Y.5,10,10:@.T,X,Y,0:@.T,X,
Y,1:@.!,16100,X.5,Y.5. NN.HA.O(2):DW.128
. HA:HA.HA . 127:Y.Y.YP%(HA):P%(X).Q%(Y
):. . DW: Y..(Y.Y1):@.,55296,0,192,1,
1,".SET RADIUS.".4NO.T.Y1:Y1.Y:Y.T:...N.
.. "....................................
..................................
HELP AREA...N..@TEXT:. "..ULTRA DRAW
! .HELP. VERSION 3.7 RELEASE 1.1 .DAWNST
AR.PRODUCTIONS .PUBLIC DOMAIN".OO... "..
........................................
......................................".
.O... ".DRAW., CURRENT MODE: JOYSTICK OR
MOUSE IN PORT TWO.": ."
.CHANGE. DRAW! CURSOR SIZE: RUN/STOP FOL
LOWED BY 0 (TINY) TO 9 (HUGE).".WP... ".
FAST. CURSOR MOVEMENT: RUN/STOP, ANY 'AR
ROW' KEY (REPEATABLE), ENTER.": . "..ALL
FOLLOWING COMMANDS ARE PRECEEDED BY THE
RUN/STOP KEY:"..Q... "..CIRCLE.: C, MOV
E CURSOR, FIRE .DISK.: D, MOVE
CURSOR, FIRE": . "..RECTANGLE.: R, MOVE
CURSOR, FIRE .AREA.: SAME AS RECT
ANGLE"..Q... "..TEXT.: T, TEXT, ENTER.
.FILL.: F":
. "..INVERSE. DRAW: I
.NORMAL. DRAW: N".4R... "..CL
EAR.: CLR/HOME, Y .QU
IT.: Q, Y": . "..SAVE.:
S, FILENAME, ENTER .LOAD.:
L, FILENAME, ENTER"..R... "..BAR.(LINE)
: B, MOVE CURSOR, FIRE .UNDO.: U":
. "..PASTE.(COPY):
P, SET RANGE, SET NEW LOCATION, FIRE".UR
... "..HELP.: ? OR /".'S... "..PRESS ANY
KEY TO RETURN TO DRAWING.":.. A$:@.,BG,
FG: @.!,0,0,0:...S... ".........
........................................
..................... ERROR HAN
DLING...S... (ER.14 . ER.18) . (EL.100 .
EL.451 . EL.461) . . X.5 . X.635
. X.XOVF(.(X.5).2).FT... (ER.14 . ER.18)
. (EL.100 . EL.451 . EL.461) . . Y.5 .
Y.195 . Y.YOVF(.(Y.5).2)..T... (ER
.14 . ER.18) . (EL.100 . EL.451 . EL.461
) . W 300:...T... ER.23 . W 300:...T...
5:@TEXT:. ER,EL,S(ER):...T K. 0,-1,1,-1,
1,0,1,1,0,1,-1,1,-1,0,-1,-1...
> CLICK IMAGE PREVIEW FOR FULL MODAL