TELTRON.BAS
FILE INFORMATION
FILENAME(S): TELTRON.BAS
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:06:22
APPEARS ON: 5 disk(s)
FILE HASH
62e817b167c4180557bee40b89ac1558588e628074e7f8eddc3491fe96bd86bb
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TELETRON 8 1 | TELTRON.BAS | PRG | DuncanTwain | 14 | 9 | DOWNLOAD FILE |
| TELTRON 7 1 | TELTRON.BAS | PRG | DuncanTwain | 22 | 6 | DOWNLOAD FILE |
| H DE LEEUW | TELTRON.BAS | PRG | DuncanTwain | 25 | 17 | DOWNLOAD FILE |
| TELETRON 8 1 | TELTRON.BAS | PRG | Shocktrooper | 14 | 9 | DOWNLOAD FILE |
| 132 | TELTRON.BAS | PRG | Shocktrooper | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 37 08 64 00 42 B2 31 32 AC 34 30 39 36 3A |..7.d.B.12.4096:| 00000010: 8B 28 C2 28 42 29 B2 31 32 30 29 AF 28 C2 28 42 |.(.(B).120).(.(B| 00000020: AA 31 29 B2 32 34 29 AF 28 C2 28 42 AA 32 29 B2 |.1).24).(.(B.2).| 00000030: 33 32 29 A7 31 32 30 00 4E 08 6E 00 93 22 54 45 |32).120.N.n.."TE| 00000040: 4C 54 52 4F 4E 20 24 43 30 22 2C 38 2C 31 00 5E |LTRON $C0",8,1.^| 00000050: 08 78 00 9F 32 2C 32 2C 30 2C C7 28 38 29 00 74 |.x..2,2,0,.(8).t| 00000060: 08 82 00 97 35 33 32 38 30 2C 39 3A 97 35 33 32 |....53280,9:.532| 00000070: 38 31 2C 39 00 7F 08 8C 00 99 C7 28 31 34 29 00 |81,9.......(14).| 00000080: 9F 08 96 00 42 B2 31 32 AC 34 30 39 36 3A 52 42 |....B.12.4096:RB| 00000090: B2 42 AA 32 35 36 3A 54 42 B2 42 AA 35 31 32 00 |.B.256:TB.B.512.| 000000A0: CD 08 A0 00 42 52 B2 20 34 3A 54 4C B2 20 20 32 |....BR. 4:TL. 2| 000000B0: 3A 54 48 B2 31 32 3A 43 52 B2 36 3A 52 4C B2 32 |:TH.12:CR.6:RL.2| 000000C0: 31 32 3A 52 48 B2 31 32 3A 43 4F B2 31 00 DB 08 |12:RH.12:CO.1...| 000000D0: AA 00 97 35 36 35 39 30 2C 36 34 00 E8 08 B4 00 |...56590,64.....| 000000E0: 97 35 36 35 38 31 2C 35 00 F6 08 BE 00 97 35 36 |.56581,5......56| 000000F0: 35 39 30 2C 36 35 00 04 09 C8 00 97 35 36 35 38 |590,65......5658| 00000100: 38 2C 42 52 00 37 09 D2 00 99 22 9E 93 AF AF AF |8,BR.7....".....| 00000110: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000120: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000130: AF AF AF AF AF 22 3B 00 4B 09 DC 00 99 22 12 20 |.....";.K....". | 00000140: C2 41 55 44 20 20 3A 92 A1 22 3B 00 6C 09 E6 00 |.AUD :..";.l...| 00000150: 8B 42 52 B2 20 34 A7 99 22 33 30 30 20 CF D2 C9 |.BR. 4.."300 ...| 00000160: C7 20 20 20 20 20 20 20 20 20 22 3B 00 8D 09 F0 |. ";....| 00000170: 00 8B 42 52 B2 20 35 A7 99 22 33 30 30 20 C1 CE |..BR. 5.."300 ..| 00000180: D3 D7 20 20 20 20 20 20 20 20 20 22 3B 00 AE 09 |.. ";...| 00000190: FA 00 8B 42 52 B2 31 34 A7 99 22 31 32 30 30 20 |...BR.14.."1200 | 000001A0: CF D2 C9 C7 3D 31 32 30 30 2F 37 35 22 3B 00 CF |....=1200/75";..| 000001B0: 09 04 01 8B 42 52 B2 20 36 A7 99 22 31 32 30 30 |....BR. 6.."1200| 000001C0: 20 C1 CE D3 D7 3D 37 35 2F 31 32 30 30 22 3B 00 | ....=75/1200";.| 000001D0: E3 09 0E 01 99 22 20 12 20 C3 4F 4E 56 2E 3A 92 |....." . .ONV.:.| 000001E0: A1 22 3B 00 F9 09 18 01 8B 43 4F B2 30 A7 99 22 |.";......CO.0.."| 000001F0: CF C6 C6 12 A1 20 92 22 3B 00 0F 0A 22 01 8B 43 |..... .";..."..C| 00000200: 4F B2 31 A7 99 22 CF CE 20 12 A1 20 92 22 3B 00 |O.1..".. .. .";.| 00000210: 25 0A 2C 01 99 22 12 20 CE 55 4D 42 45 52 3A 92 |%.,..". .UMBER:.| 00000220: A1 22 4E 31 24 00 41 0A 2E 01 99 22 91 22 3B A6 |."N1$.A....".";.| 00000230: 32 36 29 22 20 12 20 CC 49 4E 45 20 3A 92 A1 22 |26)" . .INE :.."| 00000240: 3B 00 61 0A 30 01 8B 28 C2 28 35 36 35 37 37 29 |;.a.0..(.(56577)| 00000250: AF 34 29 B2 30 A7 99 22 CF CE 20 12 A1 20 92 22 |.4).0..".. .. ."| 00000260: 3B 00 7F 0A 32 01 8B 28 C2 28 35 36 35 37 37 29 |;...2..(.(56577)| 00000270: AF 34 29 A7 99 22 CF C6 C6 12 A1 20 92 22 3B 00 |.4).."..... .";.| 00000280: B0 0A 36 01 99 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |..6.."..........| 00000290: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000002A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 3B |..............";| 000002B0: 00 C7 0A 40 01 99 22 20 31 2D 20 D3 45 54 20 42 |...@.." 1- .ET B| 000002C0: 41 55 44 52 41 54 45 00 DD 0A 4A 01 99 22 20 32 |AUDRATE...J.." 2| 000002D0: 2D 20 C4 49 41 4C 20 4E 55 4D 42 45 52 00 F0 0A |- .IAL NUMBER...| 000002E0: 54 01 99 22 20 33 2D 20 D4 45 52 4D 49 4E 41 4C |T.." 3- .ERMINAL| 000002F0: 00 0D 0B 5E 01 99 22 20 34 2D 20 D2 45 4C 45 41 |...^.." 4- .ELEA| 00000300: 53 45 20 50 48 4F 4E 45 20 4C 49 4E 45 00 20 0B |SE PHONE LINE. .| 00000310: 68 01 A1 50 24 3A 8B 50 24 B2 22 22 A7 33 36 30 |h..P$:.P$."".360| 00000320: 00 36 0B 72 01 8B 50 24 B2 22 31 22 A7 8D 34 32 |.6.r..P$."1"..42| 00000330: 30 3A 89 32 31 30 00 4C 0B 7C 01 8B 50 24 B2 22 |0:.210.L.|..P$."| 00000340: 32 22 A7 8D 37 31 30 3A 89 32 31 30 00 63 0B 86 |2"..710:.210.c..| 00000350: 01 8B 50 24 B2 22 33 22 A7 8D 31 30 39 30 3A 89 |..P$."3"..1090:.| 00000360: 32 31 30 00 A3 0B 90 01 8B 50 24 B2 22 34 22 A7 |210......P$."4".| 00000370: 99 22 13 11 11 11 11 11 11 11 12 20 34 2D 20 D2 |."......... 4- .| 00000380: 45 4C 45 41 53 45 20 50 48 4F 4E 45 20 4C 49 4E |ELEASE PHONE LIN| 00000390: 45 20 22 3A 97 35 36 35 37 37 2C 32 35 35 3A 89 |E ":.56577,255:.| 000003A0: 32 31 30 00 AC 0B 9A 01 89 33 36 30 00 B2 0B A4 |210......360....| 000003B0: 01 8F 00 CD 0B AE 01 8F 20 2A 2A 2A 20 53 45 54 |........ *** SET| 000003C0: 20 42 41 55 44 52 41 54 45 20 2A 2A 2A 00 D3 0B | BAUDRATE ***...| 000003D0: B8 01 8F 00 FD 0B C2 01 99 22 13 11 11 11 11 12 |........."......| 000003E0: 20 31 2D 20 D3 45 54 20 42 41 55 44 52 41 54 45 | 1- .ET BAUDRATE| 000003F0: 20 20 20 20 20 20 20 11 11 11 11 11 11 00 16 0C | .........| 00000400: CC 01 99 22 20 31 2D 20 33 30 30 20 20 C2 41 55 |..." 1- 300 .AU| 00000410: 44 20 CF D2 C9 C7 00 2F 0C D6 01 99 22 20 32 2D |D ...../...." 2-| 00000420: 20 33 30 30 20 20 C2 41 55 44 20 C1 CE D3 D7 00 | 300 .AUD .....| 00000430: 52 0C E0 01 99 22 20 33 2D 20 31 32 30 30 20 C2 |R...." 3- 1200 .| 00000440: 41 55 44 20 CF D2 C9 C7 20 28 31 32 30 30 2F 37 |AUD .... (1200/7| 00000450: 35 29 00 75 0C EA 01 99 22 20 34 2D 20 31 32 30 |5).u...." 4- 120| 00000460: 30 20 C2 41 55 44 20 C1 CE D3 D7 20 28 37 35 2F |0 .AUD .... (75/| 00000470: 31 32 30 30 29 00 91 0C F4 01 99 22 11 11 20 D2 |1200)......".. .| 00000480: C5 D4 D5 D2 CE 20 3A 20 CD 41 49 4E 20 4D 45 4E |..... : .AIN MEN| 00000490: 55 00 A4 0C FE 01 A1 50 24 3A 8B 50 24 B2 22 22 |U......P$:.P$.""| 000004A0: A7 35 31 30 00 BD 0C 08 02 8B 50 24 B2 C7 28 31 |.510......P$..(1| 000004B0: 33 29 B0 50 24 B2 22 85 22 A7 37 30 30 00 C8 0C |3).P$.".".700...| 000004C0: 12 02 42 52 B2 32 35 35 00 F9 0C 1C 02 8B 50 24 |..BR.255......P$| 000004D0: B2 22 31 22 A7 42 52 B2 20 34 3A 54 4C B2 20 20 |."1".BR. 4:TL. | 000004E0: 32 3A 54 48 B2 31 32 3A 43 52 B2 36 3A 52 4C B2 |2:TH.12:CR.6:RL.| 000004F0: 32 31 32 3A 52 48 B2 31 32 00 2A 0D 26 02 8B 50 |212:RH.12.*.&..P| 00000500: 24 B2 22 32 22 A7 42 52 B2 20 35 3A 54 4C B2 20 |$."2".BR. 5:TL. | 00000510: 20 32 3A 54 48 B2 31 32 3A 43 52 B2 36 3A 52 4C | 2:TH.12:CR.6:RL| 00000520: B2 32 31 32 3A 52 48 B2 31 32 00 5B 0D 30 02 8B |.212:RH.12.[.0..| 00000530: 50 24 B2 22 33 22 A7 42 52 B2 31 34 3A 54 4C B2 |P$."3".BR.14:TL.| 00000540: 31 30 30 3A 54 48 B2 34 38 3A 43 52 B2 38 3A 52 |100:TH.48:CR.8:R| 00000550: 4C B2 20 32 35 3A 52 48 B2 20 33 00 8C 0D 3A 02 |L. 25:RH. 3...:.| 00000560: 8B 50 24 B2 22 34 22 A7 42 52 B2 20 36 3A 54 4C |.P$."4".BR. 6:TL| 00000570: B2 32 32 30 3A 54 48 B2 20 32 3A 43 52 B2 32 3A |.220:TH. 2:CR.2:| 00000580: 52 4C B2 20 38 30 3A 52 48 B2 35 31 00 9C 0D 44 |RL. 80:RH.51...D| 00000590: 02 8B 42 52 B2 32 35 35 A7 35 31 30 00 AA 0D 4E |..BR.255.510...N| 000005A0: 02 97 35 36 35 39 30 2C 36 34 00 B7 0D 58 02 97 |..56590,64...X..| 000005B0: 35 36 35 38 31 2C 35 00 C5 0D 62 02 97 35 36 35 |56581,5...b..565| 000005C0: 39 30 2C 36 35 00 D3 0D 6C 02 97 35 36 35 38 38 |90,65...l..56588| 000005D0: 2C 42 52 00 EC 0D 76 02 99 22 11 20 30 2D 20 CE |,BR...v..". 0- .| 000005E0: 4F 20 43 4F 4E 56 45 52 53 49 4F 4E 00 06 0E 80 |O CONVERSION....| 000005F0: 02 99 22 20 31 2D 20 D7 49 54 48 20 43 4F 4E 56 |.." 1- .ITH CONV| 00000600: 45 52 53 49 4F 4E 00 19 0E 8A 02 A1 50 24 3A 8B |ERSION......P$:.| 00000610: 50 24 B2 22 22 A7 36 35 30 00 2B 0E 94 02 8B 50 |P$."".650.+....P| 00000620: 24 B2 C7 28 31 33 29 A7 37 30 30 00 41 0E 9E 02 |$..(13).700.A...| 00000630: 8B 50 24 B2 22 30 22 A7 43 4F B2 30 3A 89 37 30 |.P$."0".CO.0:.70| 00000640: 30 00 57 0E A8 02 8B 50 24 B2 22 31 22 A7 43 4F |0.W....P$."1".CO| 00000650: B2 31 3A 89 37 30 30 00 60 0E B2 02 89 36 35 30 |.1:.700.`....650| 00000660: 00 70 0E BC 02 8E 3A 8F 20 54 4F 20 4D 41 49 4E |.p....:. TO MAIN| 00000670: 00 76 0E C6 02 8F 00 90 0E D0 02 8F 20 2A 2A 2A |.v.......... ***| 00000680: 20 44 49 41 4C 20 4E 55 4D 42 45 52 20 2A 2A 2A | DIAL NUMBER ***| 00000690: 00 96 0E DA 02 8F 00 A5 0E E4 02 97 35 36 35 37 |............5657| 000006A0: 37 2C 32 35 35 00 D0 0E EE 02 99 22 13 11 11 11 |7,255......"....| 000006B0: 11 11 12 20 32 2D 20 C4 49 41 4C 20 4E 55 4D 42 |... 2- .IAL NUMB| 000006C0: 45 52 20 20 20 20 20 20 20 20 11 11 11 11 11 11 |ER ......| 000006D0: 00 EF 0E F8 02 99 22 11 11 11 11 11 20 D2 C5 D4 |......"..... ...| 000006E0: D5 D2 CE 20 3A 20 CD 41 49 4E 20 4D 45 4E 55 00 |... : .AIN MENU.| 000006F0: 0C 0F 02 03 99 22 11 20 20 20 2A 20 20 20 20 3A |.....". * :| 00000700: 20 CC 41 53 54 20 4E 55 4D 42 45 52 00 34 0F 0C | .AST NUMBER.4..| 00000710: 03 4E 24 B2 22 22 3A 85 22 91 91 91 91 91 91 91 |.N$."":.".......| 00000720: 91 20 20 20 D7 48 49 43 48 20 4E 55 4D 42 45 52 |. .HICH NUMBER| 00000730: 22 3B 4E 24 00 47 0F 16 03 8B 4E 24 B2 22 2A 22 |";N$.G....N$."*"| 00000740: A7 4E 24 B2 4E 31 24 00 56 0F 20 03 8B 4E 24 B2 |.N$.N1$.V. ..N$.| 00000750: 22 22 A7 39 31 30 00 6E 0F 2A 03 97 35 36 35 37 |"".910.n.*..5657| 00000760: 37 2C 32 3A 81 58 B2 31 A4 39 39 39 3A 82 00 79 |7,2:.X.1.999:..y| 00000770: 0F 34 03 4E 31 24 B2 4E 24 00 95 0F 3E 03 81 54 |.4.N1$.N$...>..T| 00000780: B2 31 A4 C3 28 4E 24 29 3A 41 24 B2 CA 28 4E 24 |.1..(N$):A$..(N$| 00000790: 2C 54 2C 31 29 00 B7 0F 48 03 A1 50 24 3A 8B 50 |,T,1)...H..P$:.P| 000007A0: 24 B2 C7 28 31 33 29 A7 97 35 36 35 37 37 2C 32 |$..(13)..56577,2| 000007B0: 35 35 3A 89 39 31 30 00 C7 0F 52 03 8B 41 24 B2 |55:.910...R..A$.| 000007C0: 22 2D 22 A7 38 38 30 00 DD 0F 5C 03 41 B2 C5 28 |"-".880...\.A..(| 000007D0: 41 24 29 3A 8B 41 B2 30 A7 41 B2 31 30 00 EF 0F |A$):.A.0.A.10...| 000007E0: 66 03 81 4E B2 31 A4 41 3A 8D 39 32 30 3A 82 00 |f..N.1.A:.920:..| 000007F0: FE 0F 70 03 81 58 B2 31 A4 35 30 30 3A 82 00 04 |..p..X.1.500:...| 00000800: 10 7A 03 82 00 17 10 84 03 97 36 33 31 2C 35 31 |.z........631,51| 00000810: 3A 97 31 39 38 2C 31 00 28 10 8E 03 8E 20 3A 8F |:.198,1.(.... :.| 00000820: 20 54 4F 20 4D 41 49 4E 00 37 10 98 03 97 35 36 | TO MAIN.7....56| 00000830: 35 37 37 2C 32 35 35 00 40 10 A2 03 8D 39 37 30 |577,255.@....970| 00000840: 00 4D 10 AC 03 97 35 36 35 37 37 2C 32 00 56 10 |.M....56577,2.V.| 00000850: B6 03 8D 39 37 30 00 5C 10 C0 03 8E 00 6C 10 CA |...970.\.....l..| 00000860: 03 81 58 B2 30 A4 32 30 3A 82 3A 8E 00 72 10 D4 |..X.0.20:.:..r..| 00000870: 03 8F 00 89 10 DE 03 8F 20 2A 2A 2A 20 54 45 52 |........ *** TER| 00000880: 4D 49 4E 41 4C 20 2A 2A 2A 00 8F 10 E8 03 8F 00 |MINAL ***.......| 00000890: A6 10 F2 03 A1 23 32 2C 50 24 3A 8B 50 24 B2 22 |.....#2,P$:.P$."| 000008A0: 22 A7 31 30 34 30 00 BB 10 FC 03 8B 43 4F B2 30 |".1040......CO.0| 000008B0: A7 99 50 24 3B 3A 89 31 30 34 30 00 D0 10 06 04 |..P$;:.1040.....| 000008C0: 99 C7 28 C2 28 52 42 AA C6 28 50 24 29 29 29 3B |..(.(RB..(P$)));| 000008D0: 00 E4 10 10 04 A1 50 24 3A 8B 50 24 B2 22 22 A7 |......P$:.P$."".| 000008E0: 31 30 31 30 00 FD 10 1A 04 8B 50 24 B2 22 85 22 |1010......P$."."| 000008F0: A7 8E 20 3A 8F 20 54 4F 20 4D 41 49 4E 00 15 11 |.. :. TO MAIN...| 00000900: 24 04 8B 43 4F B2 30 A7 50 B2 C6 28 50 24 29 3A |$..CO.0.P..(P$):| 00000910: 89 31 30 38 30 00 27 11 2E 04 50 B2 C2 28 54 42 |.1080.'...P..(TB| 00000920: AA C6 28 50 24 29 29 00 37 11 38 04 8D 31 31 38 |..(P$)).7.8..118| 00000930: 30 3A 89 31 30 31 30 00 3D 11 42 04 8F 00 58 11 |0:.1010.=.B...X.| 00000940: 4C 04 8F 20 2A 2A 2A 20 53 45 54 20 54 45 52 4D |L.. *** SET TERM| 00000950: 49 4E 41 4C 20 2A 2A 2A 00 5E 11 56 04 8F 00 72 |INAL ***.^.V...r| 00000960: 11 5B 04 99 22 13 11 11 22 A6 33 35 29 22 CF CE |.[.."...".35)"..| 00000970: 20 22 00 9C 11 60 04 99 22 13 11 11 11 11 11 11 | "...`..".......| 00000980: 12 20 33 2D 20 D4 45 52 4D 49 4E 41 4C 20 20 20 |. 3- .ERMINAL | 00000990: 20 20 20 20 20 20 20 20 11 11 11 11 00 B2 11 6A | .......j| 000009A0: 04 99 22 20 C6 31 20 3A 20 CD 41 49 4E 20 4D 45 |.." .1 : .AIN ME| 000009B0: 4E 55 00 CE 11 74 04 97 36 35 39 2C 43 52 3A 97 |NU...t..659,CR:.| 000009C0: 36 36 35 2C 52 4C 3A 97 36 36 36 2C 52 48 00 DB |665,RL:.666,RH..| 000009D0: 11 7E 04 97 35 36 35 37 37 2C 32 00 E3 11 88 04 |.~..56577,2.....| 000009E0: 99 22 11 00 EC 11 92 04 89 39 38 30 00 F2 11 9C |.".......980....| 000009F0: 04 8F 00 0E 12 A6 04 8F 20 2A 2A 2A 20 50 55 54 |........ *** PUT| 00000A00: 20 43 48 41 52 41 43 54 45 52 20 2A 2A 2A 00 14 | CHARACTER ***..| 00000A10: 12 B0 04 8F 00 36 12 BA 04 97 32 35 33 2C 54 4C |.....6....253,TL| 00000A20: 3A 97 32 35 34 2C 54 48 AA 31 32 38 3A 97 32 35 |:.254,TH.128:.25| 00000A30: 35 2C 50 3A 9E 42 00 3C 12 C4 04 8E 00 00 00 |5,P:.B.<....... |
..7.D.B.12.4096:.(B(B).120).(B(B.1).24). (B(B.2).32).120.N.N.."TELTRON $C0",8,1.^ .X..2,2,0,G(8).T....53280,9:.53281,9... ..G(14).....B.12.4096:RB.B.256:TB.B.512. M. .BR. 4:TL. 2:TH.12:CR.6:RL.212:RH.12 :CO.1......56590,64......56581,5......56 590,65...H..56588,BR.7.R.."............. .............................";.K....". BAUD :..";.L....BR. 4.."300 ORIG ";......BR. 5.."300 ANSW ";... ...BR.14.."1200 ORIG=1200/75";.O....BR. 6.."1200 ANSW=75/1200";......" . CONV.:. .";......CO.0.."OFF.. .";..."..CO.1.."ON .. .";.%.,..". NUMBER:.."N1$.A....".";. 26)" . LINE :..";.A.0..(B(56577).4).0.." ON .. .";..2..(B(56577).4).."OFF.. .";. ..6..".................................. ......";.G.@.." 1- SET BAUDRATE...J.." 2 - DIAL NUMBER...T.." 3- TERMINAL...^.." 4- RELEASE PHONE LINE. .H..P$:.P$."".360 .6.R..P$."1"..420:.210.L.|..P$."2"..710: .210.C....P$."3"..1090:.210......P$."4". ."......... 4- RELEASE PHONE LINE ":.565 77,255:.210......360.......M.... *** SET BAUDRATE ***.S.......B.."...... 1- SET BAUDRATE .........L.." 1- 300 BAU D ORIG./.V.." 2- 300 BAUD ANSW.R...." 3 - 1200 BAUD ORIG (1200/75).U...." 4- 120 0 BAUD ANSW (75/1200)......".. RETURN : MAIN MENU......P$:.P$."".510......P$.G(1 3).P$.".".700.H...BR.255......P$."1".BR. 4:TL. 2:TH.12:CR.6:RL.212:RH.12.*.&..P $."2".BR. 5:TL. 2:TH.12:CR.6:RL.212:RH. 12.[.0..P$."3".BR.14:TL.100:TH.48:CR.8:R L. 25:RH. 3...:..P$."4".BR. 6:TL.220:TH. 2:CR.2:RL. 80:RH.51...D..BR.255.510...N ..56590,64...X..56581,5.E.B..56590,65.S. L..56588,BR...V..". 0- NO CONVERSION.... .." 1- WITH CONVERSION......P$:.P$."".65 0.+....P$.G(13).700.A....P$."0".CO.0:.70 0.W....P$."1".CO.1:.700.`....650.P....:. TO MAIN.V.F.....P.. *** DIAL NUMBER *** ...Z........56577,255.P...."....... 2- D IAL NUMBER ............"..... RET URN : MAIN MENU......". * : LAST NU MBER.4...N$."":."........ WHICH NUMBER ";N$.G....N$."*".N$.N1$.V. ..N$."".910.N .*..56577,2:.X.1.999:..Y.4.N1$.N$...>..T .1.C(N$):A$.J(N$,T,1)...H..P$:.P$.G(13). .56577,255:.910.G.R..A$."-".880...\.A.E( A$):.A.0.A.10...F..N.1.A:.920:....P..X.1 .500:....Z........631,51:.198,1.(.... :. TO MAIN.7....56577,255.@....970.M....56 577,2.V....970.\.....L.J..X.0.20:.:..R.T ........ *** TERMINAL ***............#2, P$:.P$."".1040......CO.0..P$;:.1040.P... .G(B(RB.F(P$)));......P$:.P$."".1010.... ..P$.".".. :. TO MAIN...$..CO.0.P.F(P$): .1080.'...P.B(TB.F(P$)).7.8..1180:.1010. =.B...X.L.. *** SET TERMINAL ***.^.V...R .[.."...".35)"ON "...`.."........ 3- TER MINAL .......J.." F1 : MAIN ME NU.N.T..659,CR:.665,RL:.666,RH...~..5657 7,2......".......980............ *** PUT CHARACTER ***.......6....253,TL:.254,TH .128:.255,P:.B.<.D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL