DITOR64 EMO
FILE INFORMATION
FILENAME(S): DITOR64 EMO
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 19:36:59
APPEARS ON: 1 disk(s)
FILE HASH
ab59a41d5d6aabd778773eaa3fdb1d52b159c4d5f9e4aeca54b4d37b0bff1f0d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEKSTBEHANDLING | DITOR64 EMO | PRG | Curtcool, Bo | 13 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 E8 03 89 31 31 34 30 00 31 08 F2 03 |.......1140.1...|
00000010: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 00 57 08 FC 03 22 2A 20 20 20 20 20 20 20 20 |*.W..."* |
00000040: C5 44 49 54 4F 52 20 C4 45 4D 4F 20 56 36 34 20 |.DITOR .EMO V64 |
00000050: 20 20 20 20 20 20 2A 00 7D 08 06 04 22 2A 20 20 | *.}..."* |
00000060: 20 20 20 20 20 20 20 20 20 28 C3 29 31 39 38 32 | (.)1982|
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 08 | *...|
00000080: 10 04 22 2A 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 |.."* .OMMODORE .|
00000090: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
000000A0: 20 20 2A 00 C9 08 1A 04 22 2A 20 20 20 20 20 20 | *....."* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 2A 00 EF 08 24 04 22 2A | *...$."*|
000000D0: 20 C4 41 54 45 20 D7 52 49 54 54 45 4E 3A 20 31 | .ATE .RITTEN: 1|
000000E0: 31 2F 30 38 2F 38 32 20 20 20 20 20 20 20 2A 00 |1/08/82 *.|
000000F0: 15 09 2E 04 22 2A 20 C1 55 54 48 4F 52 20 20 20 |...."* .UTHOR |
00000100: 20 20 20 3A 20 CD 49 43 48 41 45 4C 20 D3 43 48 | : .ICHAEL .CH|
00000110: 41 46 46 20 2A 00 3B 09 38 04 22 2A 20 20 20 20 |AFF *.;.8."* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 2A 00 61 09 42 04 | *.a.B.|
00000140: 22 2A 20 C3 4F 4E 46 49 47 55 52 41 54 49 4F 4E |"* .ONFIGURATION|
00000150: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000160: 2A 00 87 09 4C 04 22 2A 20 20 20 20 20 20 20 C3 |*...L."* .|
00000170: 4F 4D 50 55 54 45 52 3A 20 C3 4F 4D 4D 4F 44 4F |OMPUTER: .OMMODO|
00000180: 52 45 20 36 34 20 2A 00 AD 09 56 04 22 2A 20 20 |RE 64 *...V."* |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 D3 09 | *...|
000001B0: 60 04 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |`."*************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 00 D9 09 6A 04 3A 00 14 0A 74 04 8F 20 |***...j.:...t.. |
000001E0: 2A 2A 20 4C 49 4E 45 53 20 31 31 36 30 20 54 48 |** LINES 1160 TH|
000001F0: 52 55 20 31 31 38 30 20 41 52 45 20 54 48 45 20 |RU 1180 ARE THE |
00000200: 45 44 49 54 4F 52 20 41 55 54 4F 20 42 4F 4F 54 |EDITOR AUTO BOOT|
00000210: 21 20 2A 2A 00 1A 0A 7E 04 3A 00 4A 0A 88 04 8B |! **...~.:.J....|
00000220: C2 28 34 39 31 35 33 29 B2 31 39 AF C2 28 34 39 |.(49153).19..(49|
00000230: 31 36 32 29 B2 31 39 38 AF C2 28 34 39 31 36 33 |162).198..(49163|
00000240: 29 B2 31 30 34 A7 31 31 39 30 00 86 0A 92 04 99 |).104.1190......|
00000250: 22 93 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 |"....LOAD".(34)"|
00000260: 45 44 49 54 4F 52 36 34 22 C7 28 33 34 29 22 2C |EDITOR64".(34)",|
00000270: 38 2C 31 13 11 11 11 11 11 11 11 11 53 59 53 34 |8,1.........SYS4|
00000280: 39 31 35 32 13 22 00 AC 0A 9C 04 97 31 39 38 2C |9152."......198,|
00000290: 33 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 |3:.631,13:.632,1|
000002A0: 33 3A 97 36 33 33 2C 31 33 31 3A 80 00 B8 0A A6 |3:.633,131:.....|
000002B0: 04 99 22 93 09 0E 08 22 00 C6 0A B0 04 3A 26 43 |.."....".....:&C|
000002C0: 2C 22 90 1E 99 22 00 D1 0A BA 04 8F 22 20 5E 5E |,"..."......" ^^|
000002D0: 5E 00 EC 0A C4 04 8F 22 20 DD DD AD 42 41 43 4B |^......" ...BACK|
000002E0: 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 00 02 0B CE |GROUND COLOR....|
000002F0: 04 8F 22 20 DD AD 42 4F 52 44 45 52 20 43 4F 4C |.." ..BORDER COL|
00000300: 4F 52 00 1A 0B D8 04 8F 22 20 AD 43 48 41 52 41 |OR......" .CHARA|
00000310: 43 54 45 52 20 43 4F 4C 4F 52 00 5B 0B E2 04 3A |CTER COLOR.[...:|
00000320: 26 53 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 |&S:. |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 2A 20 20 20 20 4B 49 4C 4C 20 54 | * KILL T|
00000350: 48 45 20 53 54 4F 50 20 4B 45 59 00 96 0B EC 04 |HE STOP KEY.....|
00000360: 97 34 39 33 36 30 2C C6 28 22 2A 22 29 3A 8F 20 |.49360,.("*"):. |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 2A 20 20 20 20 53 45 54 20 54 59 50 45 20 4F | * SET TYPE O|
00000390: 46 20 4C 49 4E 45 00 CE 0B F6 04 97 35 31 33 35 |F LINE......5135|
000003A0: 30 2C C6 28 22 85 22 29 3A 8F 20 20 20 20 20 20 |0,.("."):. |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 20 | * |
000003C0: 20 53 45 54 20 53 54 41 54 55 53 20 30 32 00 06 | SET STATUS 02..|
000003D0: 0C 00 05 97 35 31 33 36 31 2C C6 28 22 86 22 29 |....51361,.(".")|
000003E0: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
000003F0: 20 20 20 20 2A 20 20 20 20 53 45 54 20 53 54 41 | * SET STA|
00000400: 54 55 53 20 30 33 00 3E 0C 0A 05 97 35 31 33 37 |TUS 03.>....5137|
00000410: 32 2C C6 28 22 87 22 29 3A 8F 20 20 20 20 20 20 |2,.("."):. |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 20 20 | * |
00000430: 20 53 45 54 20 53 54 41 54 55 53 20 30 34 00 76 | SET STATUS 04.v|
00000440: 0C 14 05 97 35 31 33 38 33 2C C6 28 22 88 22 29 |....51383,.(".")|
00000450: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. |
00000460: 20 20 20 20 2A 20 20 20 20 53 45 54 20 53 54 41 | * SET STA|
00000470: 54 55 53 20 30 35 00 B0 0C 1E 05 97 35 32 39 32 |TUS 05......5292|
00000480: 31 2C 31 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |1,1:. |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 | * |
000004A0: 20 20 20 53 45 54 20 27 43 52 27 20 46 4C 41 47 | SET 'CR' FLAG|
000004B0: 00 EC 0C 28 05 89 31 35 38 30 3A 8F 20 20 20 20 |...(..1580:. |
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 2A 20 20 20 20 47 4F 54 | * GOT|
000004E0: 4F 20 4D 41 49 4E 20 4C 49 4E 45 21 00 F2 0C 32 |O MAIN LINE!...2|
000004F0: 05 3A 00 20 0D 3C 05 8F 22 20 D2 4F 55 54 49 4E |.:. .<.." .OUTIN|
00000500: 45 20 46 4F 52 20 44 49 53 50 4C 41 59 49 4E 47 |E FOR DISPLAYING|
00000510: 20 54 4F 50 20 53 54 41 54 55 53 20 4C 49 4E 45 | TOP STATUS LINE|
00000520: 00 48 0D 46 05 3A 26 54 3A 99 22 13 12 22 A3 28 |.H.F.:&T:."..".(|
00000530: 28 34 30 AB C3 28 54 4D 24 29 29 AD 32 29 29 54 |(40..(TM$)).2))T|
00000540: 4D 24 22 13 92 22 3A 8E 00 4E 0D 50 05 3A 00 7F |M$"..":..N.P.:..|
00000550: 0D 5A 05 8F 22 20 D2 4F 55 54 49 4E 45 20 46 4F |.Z.." .OUTINE FO|
00000560: 52 20 44 49 53 50 4C 41 59 49 4E 47 20 42 4F 54 |R DISPLAYING BOT|
00000570: 54 4F 4D 20 53 54 41 54 55 53 20 4C 49 4E 45 00 |TOM STATUS LINE.|
00000580: BE 0D 64 05 3A 26 42 3A 99 22 12 11 11 11 11 11 |..d.:&B:."......|
00000590: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000005A0: 11 11 11 22 A3 28 28 34 30 AB C3 28 42 4D 24 29 |...".((40..(BM$)|
000005B0: 29 AD 32 29 29 42 4D 24 22 13 92 22 3A 8E 00 C4 |).2))BM$"..":...|
000005C0: 0D 6E 05 3A 00 E1 0D 78 05 8F 22 20 D2 4F 55 54 |.n.:...x.." .OUT|
000005D0: 49 4E 45 20 46 4F 52 20 D3 C3 D2 C5 C5 CE 20 23 |INE FOR ...... #|
000005E0: 31 00 14 0E 82 05 99 22 93 22 3A 26 42 3A 26 54 |1......".":&B:&T|
000005F0: 3A 54 4D 24 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 |:TM$.".OMMODORE |
00000600: D3 43 52 45 45 4E 20 C5 44 49 54 4F 52 22 3A 8D |.CREEN .DITOR":.|
00000610: 31 33 34 30 00 48 0E 8C 05 99 22 13 11 11 20 20 |1340.H...."... |
00000620: 20 20 20 D0 52 4F 47 52 41 4D 20 CD 4F 44 45 20 | .ROGRAM .ODE |
00000630: 20 20 20 20 20 20 20 20 20 3C 22 53 43 24 28 30 | <"SC$(0|
00000640: 29 22 3E 11 22 3A 26 4C 00 7A 0E 96 05 99 22 20 |)">.":&L.z...." |
00000650: CE 41 4D 45 20 20 20 20 3C 22 53 43 24 28 31 29 |.AME <"SC$(1)|
00000660: 22 3E 22 3A 99 22 20 C1 44 44 52 45 53 53 20 3C |">":." .DDRESS <|
00000670: 22 53 43 24 28 32 29 22 3E 22 00 B7 0E A0 05 99 |"SC$(2)">"......|
00000680: 22 11 11 20 D0 48 4F 4E 45 20 CE 55 4D 42 45 52 |".. .HONE .UMBER|
00000690: 20 20 20 20 20 20 5B 22 C8 28 53 43 24 28 33 29 | [".(SC$(3)|
000006A0: 2C 33 29 22 2D 22 CA 28 53 43 24 28 33 29 2C 34 |,3)"-".(SC$(3),4|
000006B0: 2C 33 29 22 2D 22 3B 00 E7 0E AA 05 99 C9 28 53 |,3)"-";.......(S|
000006C0: 43 24 28 33 29 2C 34 29 22 5D 11 11 22 3A 99 22 |C$(3),4)"]..":."|
000006D0: 20 C4 41 54 45 20 5B 22 C8 28 53 43 24 28 34 29 | .ATE [".(SC$(4)|
000006E0: 2C 32 29 22 2F 22 3B 00 25 0F B4 05 99 CA 28 53 |,2)"/";.%.....(S|
000006F0: 43 24 28 34 29 2C 33 2C 32 29 22 2F 22 C9 28 53 |C$(4),3,2)"/".(S|
00000700: 43 24 28 34 29 2C 32 29 22 5D 20 20 20 20 20 C4 |C$(4),2)"] .|
00000710: 55 45 53 20 24 28 22 CA 28 53 43 24 28 35 29 2C |UES $(".(SC$(5),|
00000720: 32 2C 31 29 3B 00 5A 0F BE 05 99 22 2C 22 C9 28 |2,1);.Z....",".(|
00000730: 53 43 24 28 35 29 2C 36 29 22 29 22 3A 8B C8 28 |SC$(5),6)")":..(|
00000740: 53 43 24 28 35 29 2C 31 29 B2 22 2D 22 A7 99 22 |SC$(5),1)."-".."|
00000750: 91 22 A6 33 37 29 22 43 52 22 00 82 0F C3 05 99 |.".37)"CR"......|
00000760: 22 11 11 20 CD 45 4D 42 45 52 20 54 49 4C 20 99 |".. .EMBER TIL .|
00000770: 5B 90 22 C8 28 53 43 24 28 36 29 2C 32 29 22 2F |[.".(SC$(6),2)"/|
00000780: 22 3B 00 BA 0F C8 05 99 CA 28 53 43 24 28 36 29 |";.......(SC$(6)|
00000790: 2C 33 2C 32 29 22 2F 22 C9 28 53 43 24 28 36 29 |,3,2)"/".(SC$(6)|
000007A0: 2C 32 29 22 99 5D 90 22 3A 99 A6 31 32 29 22 5E |,2)".].":..12)"^|
000007B0: 20 20 20 20 20 20 20 20 5E 22 00 E1 0F D2 05 99 | ^"......|
000007C0: A6 31 32 29 22 C8 49 44 44 45 4E 20 46 49 45 4C |.12)".IDDEN FIEL|
000007D0: 44 20 4F 50 54 49 4F 4E 21 21 21 22 3A 26 4C 3A |D OPTION!!!":&L:|
000007E0: 8E 00 E7 0F DC 05 3A 00 16 10 E6 05 8F 22 20 D2 |......:......" .|
000007F0: 4F 55 54 49 4E 45 20 46 4F 52 20 46 49 4C 4C 49 |OUTINE FOR FILLI|
00000800: 4E 47 20 42 4C 24 28 29 20 57 2F 4E 55 4C 4C 20 |NG BL$() W/NULL |
00000810: 56 41 4C 55 45 53 00 5A 10 F0 05 42 4C 24 28 30 |VALUES.Z...BL$(0|
00000820: 29 B2 22 20 20 20 22 3A 42 4C 24 28 31 29 B2 22 |)." ":BL$(1)."|
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000840: 20 20 20 20 20 20 20 20 20 20 20 22 3A 42 4C 24 | ":BL$|
00000850: 28 32 29 B2 42 4C 24 28 31 29 00 A2 10 FA 05 42 |(2).BL$(1).....B|
00000860: 4C 24 28 33 29 B2 22 20 20 20 20 20 20 20 20 20 |L$(3)." |
00000870: 20 22 3A 42 4C 24 28 34 29 B2 22 20 20 20 20 20 | ":BL$(4)." |
00000880: 20 22 3A 42 4C 24 28 35 29 B2 22 20 20 20 20 20 | ":BL$(5)." |
00000890: 2E 30 30 22 3A 42 4C 24 28 36 29 B2 42 4C 24 28 |.00":BL$(6).BL$(|
000008A0: 34 29 00 C2 10 04 06 81 41 B2 30 A4 36 3A 53 43 |4)......A.0.6:SC|
000008B0: 24 28 41 29 B2 42 4C 24 28 41 29 AA 22 22 3A 82 |$(A).BL$(A)."":.|
000008C0: 3A 8E 00 C8 10 0E 06 3A 00 CE 10 18 06 3A 00 D4 |:......:.....:..|
000008D0: 10 22 06 3A 00 F6 10 2C 06 8F 20 2A 2A 2A 2A 20 |.".:...,.. **** |
000008E0: 4D 41 49 4E 20 4C 49 4E 45 20 50 52 4F 47 52 41 |MAIN LINE PROGRA|
000008F0: 4D 20 2A 2A 2A 2A 00 00 11 36 06 8D 31 35 31 30 |M ****...6..1510|
00000900: 00 2C 11 40 06 8D 31 34 30 30 3A 42 4D 24 B2 22 |.,.@..1400:BM$."|
00000910: D0 52 45 53 53 20 D3 D4 CF D0 20 46 4F 52 20 D3 |.RESS .... FOR .|
00000920: 54 41 54 55 53 22 3A 8D 31 33 37 30 00 42 11 4A |TATUS":.1370.B.J|
00000930: 06 3A 26 46 28 30 29 3A 8B 53 54 B2 30 A7 31 36 |.:&F(0):.ST.0.16|
00000940: 34 30 00 7B 11 54 06 99 22 93 22 3A 26 54 3A 26 |40.{.T..".":&T:&|
00000950: 42 3A 99 22 11 11 11 11 11 11 11 11 22 A6 31 30 |B:."........".10|
00000960: 29 22 D3 54 41 54 55 53 20 49 53 3A 22 53 54 3A |)".TATUS IS:"ST:|
00000970: 81 41 B2 31 A4 31 30 30 30 3A 82 00 85 11 5E 06 |.A.1.1000:....^.|
00000980: 89 31 36 30 30 00 A0 11 68 06 8D 31 33 37 30 3A |.1600...h..1370:|
00000990: 26 45 28 31 29 3A 8B 53 54 B1 30 A7 31 36 32 30 |&E(1):.ST.0.1620|
000009A0: 00 D5 11 72 06 99 22 93 22 3A 26 54 3A 26 42 3A |...r..".":&T:&B:|
000009B0: 54 4D 24 B2 22 D9 4F 55 52 20 53 43 52 45 45 4E |TM$.".OUR SCREEN|
000009C0: 20 44 41 54 41 22 3A 8D 31 33 34 30 3A 99 22 11 | DATA":.1340:.".|
000009D0: 11 11 11 11 22 00 07 12 7C 06 81 41 B2 30 A4 36 |...."...|..A.0.6|
000009E0: 3A 99 22 53 43 24 28 22 C9 28 C4 28 41 29 2C 31 |:."SC$(".(.(A),1|
000009F0: 29 22 29 3D 22 C7 28 33 34 29 53 43 24 28 41 29 |)")=".(34)SC$(A)|
00000A00: C7 28 33 34 29 3A 82 00 2D 12 86 06 42 4D 24 B2 |.(34):..-...BM$.|
00000A10: 22 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |".RESS ANY KEY T|
00000A20: 4F 20 45 58 49 54 22 3A 8D 31 33 37 30 00 41 12 |O EXIT":.1370.A.|
00000A30: 90 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 38 |...A$:.A$."".168|
00000A40: 30 00 4B 12 9A 06 89 31 35 38 30 00 00 00 |0.K....1580... |
.......1140.1..."***********************
*********.W..."* EDITOR DEMO V64
*.}..."* (C)1982
*....."* COMMODORE BUSINESS MACHINES
*.I..."*
*...$."* DATE WRITTEN: 11/08/82 *.
...."* AUTHOR : MICHAEL SCHAFF *.;.
8."* *.A.B.
"* CONFIGURATION: *...L."*
COMPUTER: COMMODORE 64 *...V."*
*.S.`."*****
***************************.Y.J.:...T..
** LINES 1160 THRU 1180 ARE THE EDITOR A
UTO BOOT! **...~.:.J....B(49153).19.B(49
162).198.B(49163).104.1190......"....LOA
D"G(34)"EDITOR64"G(34)",8,1.........SYS4
9152."......198,3:.631,13:.632,13:.633,1
31:......."....".F...:&C,"...".Q...." ^^
^...D.." ...BACKGROUND COLOR...N.." ..BO
RDER COLOR...X.." .CHARACTER COLOR.[...:
&S:. *
KILL THE STOP KEY......49360,F("*"):.
* SET TYPE OF LINE.N
....51350,F("."):. *
SET STATUS 02......51361,F("."):.
* SET STATUS 03.>....5137
2,F("."):. * SET STA
TUS 04.V....51383,F("."):.
* SET STATUS 05......52921,1:.
* SET 'CR' FLAG
...(..1580:.
* GOTO MAIN LINE!...2.:. .<.." ROUTIN
E FOR DISPLAYING TOP STATUS LINE.H.F.:&T
:."..".((40.C(TM$)).2))TM$"..":..N.P.:.
.Z.." ROUTINE FOR DISPLAYING BOTTOM STAT
US LINE...D.:&B:."......................
...".((40.C(BM$)).2))BM$"..":..D.N.:...X
.." ROUTINE FOR SCREEN #1......".":&B:&T
:TM$."COMMODORE SCREEN EDITOR":.1340.H..
.."... PROGRAM MODE <"SC$(0
)">.":&L.Z...." NAME <"SC$(1)">":." A
DDRESS <"SC$(2)">"... ..".. PHONE NUMBER
["H(SC$(3),3)"-"J(SC$(3),4,3)"-";.
.....I(SC$(3),4)"]..":." DATE ["H(SC$(4)
,2)"/";.%....J(SC$(4),3,2)"/"I(SC$(4),2)
"] DUES $("J(SC$(5),2,1);.Z....","I(
SC$(5),6)")":.H(SC$(5),1)."-"..".".37)"C
R"...C..".. MEMBER TIL .[."H(SC$(6),2)"/
";...H..J(SC$(6),3,2)"/"I(SC$(6),2)".]."
:..12)"^ ^"...R...12)"HIDDEN FIEL
D OPTION!!!":&L:......:......" ROUTINE F
OR FILLING BL$() W/NULL VALUES.Z...BL$(0
)." ":BL$(1)."
":BL$(2).BL$(1).....BL$(3)."
":BL$(4)." ":BL$(5)." .00":BL$
(6).BL$(4).B....A.0.6:SC$(A).BL$(A)."":.
:..H...:.N...:.T.".:...,.. **** MAIN LIN
E PROGRAM ****...6..1510.,.@..1400:BM$."
PRESS STOP FOR STATUS":.1370.B.J.:&F(0):
.ST.0.1640.{.T..".":&T:&B:."........".10
)"STATUS IS:"ST:.A.1.1000:....^..1600. .
H..1370:&E(1):.ST.0.1620.U.R..".":&T:&B:
TM$."YOUR SCREEN DATA":.1340:."....."...
|..A.0.6:."SC$("I(D(A),1)")="G(34)SC$(A)
G(34):..-...BM$."PRESS ANY KEY TO EXIT":
.1370.A....A$:.A$."".1680.K....1580...
> CLICK IMAGE PREVIEW FOR FULL MODAL