64 TO 64
FILE INFORMATION
FILENAME(S): 64 TO 64
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:26:21
APPEARS ON: 1 disk(s)
FILE HASH
39c6ea0a13a94fd1a73ad608f391c1cd09a93eea16175b2ab4d633c147590666
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZCP SOFTWARE B | 64 TO 64 | PRG | DuncanTwain | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 9F 32 2C 32 2C 30 2C C7 28 36 |.......2,2,0,.(6| 00000010: 29 AA C7 28 30 29 3A 9F 31 35 2C 38 2C 31 35 00 |)..(0):.15,8,15.| 00000020: 42 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |B....***********| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 00 65 08 14 00 8F 2A 2A 2A 20 53 45 4E 44 |**.e....*** SEND| 00000050: 2F 52 45 43 49 45 56 45 20 20 20 20 20 20 20 20 |/RECIEVE | 00000060: 20 20 2A 2A 2A 00 88 08 1E 00 8F 2A 2A 2A 20 42 | ***......*** B| 00000070: 59 20 4A 4F 45 20 42 4F 4F 54 48 20 20 20 53 45 |Y JOE BOOTH SE| 00000080: 50 38 33 20 20 2A 2A 2A 00 AB 08 28 00 8F 2A 2A |P83 ***...(..**| 00000090: 2A 20 53 45 4E 44 20 41 4E 44 20 52 45 49 45 56 |* SEND AND REIEV| 000000A0: 45 20 55 53 49 4E 47 20 2A 2A 2A 00 CE 08 32 00 |E USING ***...2.| 000000B0: 8F 2A 2A 2A 20 54 57 4F 20 43 36 34 20 54 48 52 |.*** TWO C64 THR| 000000C0: 4F 55 47 48 54 20 54 48 45 20 20 2A 2A 2A 00 F1 |OUGHT THE ***..| 000000D0: 08 3C 00 8F 2A 2A 2A 20 50 48 4F 4E 45 20 4C 49 |.<..*** PHONE LI| 000000E0: 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 2A 2A |NES **| 000000F0: 2A 00 14 09 46 00 8F 2A 2A 2A 20 55 53 49 4E 47 |*...F..*** USING| 00000100: 20 50 52 4F 54 4F 43 41 4C 20 53 49 4D 49 4C 41 | PROTOCAL SIMILA| 00000110: 52 2A 2A 2A 00 37 09 50 00 8F 2A 2A 2A 20 54 4F |R***.7.P..*** TO| 00000120: 20 53 54 45 56 45 20 50 55 4E 54 45 52 20 20 20 | STEVE PUNTER | 00000130: 20 20 20 20 2A 2A 2A 00 5A 09 5A 00 8F 2A 2A 2A | ***.Z.Z..***| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 60 09 64 00 3A |**********.`.d.:| 00000160: 00 82 09 6E 00 8F 20 3E 3E 3E 3E 3E 3E 3E 3E 3E |...n.. >>>>>>>>>| 00000170: 4D 45 4E 55 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C |MENU<<<<<<<<<<<<| 00000180: 3C 3C 00 9C 09 78 00 97 35 33 32 38 30 2C 30 3A |<<...x..53280,0:| 00000190: 97 35 33 32 38 31 2C 30 3A 42 B2 30 00 C3 09 82 |.53281,0:B.0....| 000001A0: 00 99 22 05 93 12 53 92 45 4E 44 20 4F 52 20 12 |.."...S.END OR .| 000001B0: 52 92 45 43 49 45 56 45 20 4F 52 20 12 45 92 58 |R.ECIEVE OR .E.X| 000001C0: 49 54 22 00 DC 09 8C 00 99 22 11 53 45 4C 45 43 |IT"......".SELEC| 000001D0: 54 20 28 52 2F 53 2F 45 29 3A 22 3B 00 01 0A 96 |T (R/S/E):";....| 000001E0: 00 A1 41 24 3A 8B 41 24 B3 B1 22 52 22 AF 41 24 |..A$:.A$.."R".A$| 000001F0: B3 B1 22 53 22 AF 41 24 B3 B1 22 45 22 A7 31 35 |.."S".A$.."E".15| 00000200: 30 00 16 0A A0 00 99 41 24 3A 8B 41 24 B3 B1 22 |0......A$:.A$.."| 00000210: 45 22 A7 32 34 30 00 31 0A AA 00 A0 32 3A A0 31 |E".240.1....2:.1| 00000220: 35 3A 99 22 11 47 4F 4F 44 42 59 45 21 21 21 21 |5:.".GOODBYE!!!!| 00000230: 22 00 56 0A B4 00 99 22 11 49 46 20 59 4F 55 20 |".V....".IF YOU | 00000240: 48 41 56 45 20 41 4E 59 20 51 55 45 53 54 49 4F |HAVE ANY QUESTIO| 00000250: 4E 53 20 4F 52 22 00 7A 0A BE 00 99 22 11 50 52 |NS OR".z....".PR| 00000260: 4F 42 4C 45 4D 53 20 57 49 54 48 20 54 48 49 53 |OBLEMS WITH THIS| 00000270: 20 50 52 4F 47 52 41 4D 2C 22 00 9D 0A C8 00 99 | PROGRAM,"......| 00000280: 22 11 43 4F 4E 54 41 43 54 20 4A 4F 45 20 42 4F |".CONTACT JOE BO| 00000290: 4F 54 48 20 54 48 52 4F 55 47 48 54 22 00 BB 0A |OTH THROUGHT"...| 000002A0: D2 00 99 22 11 41 4E 59 20 4F 46 20 54 48 45 53 |...".ANY OF THES| 000002B0: 45 20 42 42 53 2E 2E 2E 2E 2E 22 00 E1 0A DC 00 |E BBS.....".....| 000002C0: 99 22 11 50 53 49 2D 57 4F 52 44 50 52 4F 22 3A |.".PSI-WORDPRO":| 000002D0: 99 22 42 55 52 4C 49 4E 47 54 4F 4E 20 42 42 53 |."BURLINGTON BBS| 000002E0: 22 00 E7 0A E6 00 80 00 F8 0A F0 00 8B 41 24 B2 |"............A$.| 000002F0: 22 52 22 A7 31 30 30 30 00 01 0B FA 00 89 35 30 |"R".1000......50| 00000300: 30 00 27 0B 04 01 8F 3E 3E 3E 43 4F 4E 56 45 52 |0.'....>>>CONVER| 00000310: 54 20 41 20 42 59 54 45 20 46 4F 52 20 53 45 4E |T A BYTE FOR SEN| 00000320: 44 49 4E 47 3C 3C 3C 00 56 0B 0E 01 8F 20 41 30 |DING<<<.V.... A0| 00000330: 3D 41 53 43 28 42 59 54 45 29 3A 41 30 24 2C 41 |=ASC(BYTE):A0$,A| 00000340: 31 24 3D 4F 55 54 50 55 54 20 4F 46 20 54 48 41 |1$=OUTPUT OF THA| 00000350: 54 20 42 59 54 45 00 63 0B 13 01 43 4B B2 43 4B |T BYTE.c...CK.CK| 00000360: AA 41 30 00 8E 0B 18 01 5A 30 B2 28 B5 28 41 30 |.A0.....Z0.(.(A0| 00000370: AD 31 36 29 29 AA 36 35 3A 5A 31 B2 28 41 30 AB |.16)).65:Z1.(A0.| 00000380: 28 5A 30 AB 36 35 29 AC 31 36 29 AA 36 35 00 A8 |(Z0.65).16).65..| 00000390: 0B 22 01 41 30 24 B2 C7 28 5A 30 29 3A 41 31 24 |.".A0$..(Z0):A1$| 000003A0: B2 C7 28 5A 31 29 3A 8E 00 D0 0B 2C 01 8F 3E 3E |..(Z1):....,..>>| 000003B0: 3E 44 4F 20 54 48 45 20 4F 50 50 49 53 49 54 45 |>DO THE OPPISITE| 000003C0: 20 43 4F 4E 56 45 52 54 20 42 41 43 4B 3C 3C 3C | CONVERT BACK<<<| 000003D0: 00 FC 0B 36 01 8F 20 41 30 24 2C 41 31 24 3D 49 |...6.. A0$,A1$=I| 000003E0: 4E 50 55 54 20 46 52 4F 4D 20 4D 4F 44 45 4D 3A |NPUT FROM MODEM:| 000003F0: 41 30 3D 41 53 43 28 42 59 54 45 29 00 1A 0C 40 |A0=ASC(BYTE)...@| 00000400: 01 5A 30 B2 C6 28 41 30 24 29 AB 36 35 3A 5A 31 |.Z0..(A0$).65:Z1| 00000410: B2 C6 28 41 31 24 29 AB 36 35 00 35 0C 4A 01 41 |..(A1$).65.5.J.A| 00000420: 30 B2 5A 30 AC 31 36 AA 5A 31 3A 43 4B B2 43 4B |0.Z0.16.Z1:CK.CK| 00000430: AA 41 30 3A 8E 00 51 0C 54 01 8F 3E 3E 3E 3E 57 |.A0:..Q.T..>>>>W| 00000440: 41 49 54 2C 20 53 45 4E 44 20 42 59 54 45 3C 3C |AIT, SEND BYTE<<| 00000450: 3C 00 71 0C 59 01 A1 23 32 2C 41 24 3A 8B 41 24 |<.q.Y..#2,A$:.A$| 00000460: B3 B1 22 43 22 AF 41 24 B3 B1 22 5A 22 A7 33 34 |.."C".A$.."Z".34| 00000470: 35 00 82 0C 5A 01 8B 41 24 B2 22 5A 22 A7 32 30 |5...Z..A$."Z".20| 00000480: 30 30 00 98 0C 5E 01 98 32 2C 41 30 24 3B 3A 81 |00...^..2,A0$;:.| 00000490: 41 B2 31 A4 34 30 3A 82 00 A4 0C 68 01 98 32 2C |A.1.40:....h..2,| 000004A0: 41 31 24 3B 00 AA 0C 7C 01 8E 00 CF 0C 86 01 8F |A1$;...|........| 000004B0: 3E 3E 3E 57 41 49 54 20 46 4F 52 20 42 59 54 45 |>>>WAIT FOR BYTE| 000004C0: 2C 53 45 4E 44 20 53 49 47 4E 41 4C 3C 3C 3C 00 |,SEND SIGNAL<<<.| 000004D0: E6 0C 8B 01 A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 |.....#2,A$:.A$..| 000004E0: 22 22 A7 33 39 35 00 F7 0C 90 01 54 30 B2 30 3A |"".395.....T0.0:| 000004F0: 98 32 2C 22 43 22 3B 00 10 0D 9A 01 A1 23 32 2C |.2,"C";......#2,| 00000500: 41 30 24 3A 8B 41 30 24 B3 B1 22 22 A7 34 32 30 |A0$:.A0$.."".420| 00000510: 00 1F 0D 9C 01 8B 54 30 B1 31 30 A7 34 30 30 00 |......T0.10.400.| 00000520: 30 0D 9E 01 54 30 B2 54 30 AA 31 3A 89 34 31 30 |0...T0.T0.1:.410| 00000530: 00 48 0D A4 01 A1 23 32 2C 41 31 24 3A 8B 41 31 |.H....#2,A1$:.A1| 00000540: 24 B2 22 22 A7 34 32 30 00 4E 0D AE 01 8E 00 54 |$."".420.N.....T| 00000550: 0D EA 01 3A 00 78 0D F4 01 8F 2A 2A 2A 2A 2A 2A |...:.x....******| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0D FE 01 8F 2A 2A |********......**| 00000580: 2A 20 53 45 4E 44 20 57 48 41 54 45 56 45 52 20 |* SEND WHATEVER | 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 0D 08 |************....| 000005A0: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005C0: 00 E1 0D 12 02 99 22 4E 41 4D 45 20 4F 46 20 54 |......"NAME OF T| 000005D0: 48 45 20 50 52 4F 47 52 41 4D 22 3B 3A 85 46 4C |HE PROGRAM";:.FL| 000005E0: 24 00 F4 0D 1C 02 99 22 93 46 49 4C 45 20 3A 20 |$......".FILE : | 000005F0: 22 46 4C 24 00 15 0E 26 02 99 22 11 57 48 41 54 |"FL$...&..".WHAT| 00000600: 20 54 59 50 45 20 4F 46 20 46 49 4C 45 20 49 53 | TYPE OF FILE IS| 00000610: 20 49 54 3A 22 00 49 0E 30 02 99 22 11 12 50 92 | IT:".I.0.."..P.| 00000620: 52 4F 47 52 41 4D 22 3A 99 22 12 53 92 45 51 2E |ROGRAM":.".S.EQ.| 00000630: 22 3A 99 22 12 57 92 4F 52 44 20 50 52 4F 22 3A |":.".W.ORD PRO":| 00000640: 99 22 12 55 92 53 45 52 22 00 62 0E 3A 02 99 22 |.".U.SER".b.:.."| 00000650: 11 53 45 4C 45 43 54 20 28 50 2F 53 2F 57 2F 55 |.SELECT (P/S/W/U| 00000660: 29 22 00 8F 0E 44 02 A1 41 24 3A 8B 41 24 B3 B1 |)"...D..A$:.A$..| 00000670: 22 50 22 AF 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 |"P".A$.."S".A$..| 00000680: 22 57 22 AF 41 24 B3 B1 22 55 22 A7 35 38 30 00 |"W".A$.."U".580.| 00000690: BF 0E 4E 02 99 22 93 46 49 4C 45 20 3A 20 22 46 |..N..".FILE : "F| 000006A0: 4C 24 A3 33 30 29 22 54 59 50 45 20 3A 20 22 41 |L$.30)"TYPE : "A| 000006B0: 24 3A 54 59 24 B2 41 24 3A 99 3A 43 4B B2 30 00 |$:TY$.A$:.:CK.0.| 000006C0: D4 0E 58 02 8B 54 59 24 B2 22 57 22 A7 54 59 24 |..X..TY$."W".TY$| 000006D0: B2 22 50 22 00 0B 0F 62 02 9F 31 2C 38 2C 31 34 |."P"...b..1,8,14| 000006E0: 2C 46 4C 24 AA 22 2C 22 AA 54 59 24 AA 22 2C 52 |,FL$.",".TY$.",R| 000006F0: 22 3A 84 31 35 2C 44 53 24 3A 44 53 B2 C5 28 44 |":.15,DS$:DS..(D| 00000700: 53 24 29 3A 8B 44 53 B3 B1 30 A7 00 37 0F 6C 02 |S$):.DS..0..7.l.| 00000710: 99 22 11 53 54 41 52 54 49 4E 47 20 54 52 41 4E |.".STARTING TRAN| 00000720: 53 4D 49 54 54 49 4F 4E 22 3A 99 22 42 59 54 45 |SMITTION":."BYTE| 00000730: 53 20 53 45 4E 54 22 00 57 0F 76 02 98 32 2C 54 |S SENT".W.v..2,T| 00000740: 59 24 3B 3A A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 |Y$;:.#2,A$:.A$..| 00000750: 54 59 24 A7 36 33 30 00 62 0F 80 02 8F 20 53 45 |TY$.630.b.... SE| 00000760: 4E 44 00 7F 0F 8A 02 A1 23 31 2C 41 30 24 3A 8B |ND......#1,A0$:.| 00000770: 41 30 24 B2 22 22 A7 41 30 24 B2 C7 28 30 29 00 |A0$."".A0$..(0).| 00000780: 8E 0F 94 02 8B 53 54 B3 B1 30 A7 36 38 30 00 B9 |.....ST..0.680..| 00000790: 0F 9E 02 41 30 B2 C6 28 41 30 24 29 3A 8D 32 36 |...A0..(A0$):.26| 000007A0: 30 3A 8D 33 34 30 3A 42 B2 42 AA 31 3A 99 42 22 |0:.340:B.B.1:.B"| 000007B0: 9D 20 91 22 3A 89 36 35 30 00 DF 0F A8 02 8D 38 |. .":.650......8| 000007C0: 30 30 3A 41 30 24 B2 22 2B 22 3A 41 31 24 B2 22 |00:A0$."+":A1$."| 000007D0: 2B 22 3A 8D 33 34 30 3A A0 31 3A 89 31 30 30 00 |+":.340:.1:.100.| 000007E0: EF 0F 20 03 8B 54 59 24 B3 B1 22 50 22 A7 8E 00 |.. ..TY$.."P"...| 000007F0: 0E 10 2A 03 81 5A 39 B2 31 A4 33 3A 41 30 B2 30 |..*..Z9.1.3:A0.0| 00000800: 3A 8D 32 36 30 3A 8D 33 34 30 3A 82 3A 8E 00 14 |:.260:.340:.:...| 00000810: 10 E8 03 3A 00 38 10 F2 03 8F 2A 2A 2A 2A 2A 2A |...:.8....******| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 00 5C 10 FC 03 8F 2A 2A |********.\....**| 00000840: 2A 20 20 20 52 45 43 49 45 56 45 20 57 48 41 54 |* RECIEVE WHAT| 00000850: 45 56 45 52 20 20 20 20 20 2A 2A 2A 00 80 10 06 |EVER ***....| 00000860: 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000880: 00 98 10 10 04 85 22 4E 41 4D 45 20 4F 46 20 46 |......"NAME OF F| 00000890: 49 4C 45 22 3B 46 4C 24 00 BA 10 15 04 99 22 52 |ILE";FL$......"R| 000008A0: 45 43 49 45 56 49 4E 47 22 3A 99 22 42 59 54 45 |ECIEVING":."BYTE| 000008B0: 53 20 52 45 43 49 45 56 45 22 00 E7 10 1A 04 A1 |S RECIEVE"......| 000008C0: 23 32 2C 54 59 24 3A 8B 54 59 24 B3 B1 22 53 22 |#2,TY$:.TY$.."S"| 000008D0: AF 54 59 24 B3 B1 22 50 22 AF 54 59 24 B3 B1 22 |.TY$.."P".TY$.."| 000008E0: 55 22 A7 31 30 35 30 00 FD 10 1F 04 81 41 B2 31 |U".1050......A.1| 000008F0: A4 32 30 3A 98 32 2C 54 59 24 3B 3A 82 00 1A 11 |.20:.2,TY$;:....| 00000900: 24 04 9F 31 2C 38 2C 31 34 2C 46 4C 24 AA 22 2C |$..1,8,14,FL$.",| 00000910: 22 AA 54 59 24 AA 22 2C 57 22 00 3C 11 2E 04 84 |".TY$.",W".<....| 00000920: 31 35 2C 44 53 24 3A 44 53 B2 C5 28 44 53 24 29 |15,DS$:DS..(DS$)| 00000930: 3A 8B 44 53 B3 B1 30 A7 33 30 30 30 00 5B 11 38 |:.DS..0.3000.[.8| 00000940: 04 8D 33 39 30 3A 8B 41 30 24 B2 22 2B 22 AF 41 |..390:.A0$."+".A| 00000950: 31 24 B2 22 2B 22 A7 31 31 32 30 00 75 11 42 04 |1$."+".1120.u.B.| 00000960: 8B 41 30 24 B3 22 41 22 B0 41 30 24 B1 22 51 22 |.A0$."A".A0$."Q"| 00000970: A7 31 33 30 30 00 8F 11 4C 04 8B 41 31 24 B3 22 |.1300...L..A1$."| 00000980: 41 22 B0 41 31 24 B1 22 51 22 A7 31 33 30 30 00 |A".A1$."Q".1300.| 00000990: A1 11 51 04 42 B2 42 AA 31 3A 99 42 22 9D 20 91 |..Q.B.B.1:.B". .| 000009A0: 22 00 BA 11 56 04 8D 33 30 30 3A 98 31 2C C7 28 |"...V..300:.1,.(| 000009B0: 41 30 29 3B 3A 89 31 30 38 30 00 C1 11 60 04 A0 |A0);:.1080...`..| 000009C0: 31 00 E1 11 A6 04 99 22 50 52 45 53 53 20 52 45 |1......"PRESS RE| 000009D0: 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |TURN TO CONTINUE| 000009E0: 22 00 F9 11 B0 04 A1 41 24 3A 8B 41 24 B3 B1 C7 |"......A$:.A$...| 000009F0: 28 31 33 29 A7 31 32 30 30 00 02 12 BA 04 89 31 |(13).1200......1| 00000A00: 30 30 00 1D 12 14 05 A0 31 3A 99 22 42 41 44 20 |00......1:."BAD | 00000A10: 54 52 41 4E 53 4D 49 54 54 49 4F 4E 22 00 48 12 |TRANSMITTION".H.| 00000A20: 1E 05 99 22 54 45 4C 4C 49 4E 47 20 53 45 4E 44 |..."TELLING SEND| 00000A30: 45 52 20 54 4F 20 41 42 4F 52 54 2E 2E 4F 4E 45 |ER TO ABORT..ONE| 00000A40: 20 4D 49 4E 55 54 45 22 00 68 12 28 05 98 32 2C | MINUTE".h.(..2,| 00000A50: 22 5A 22 3A A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 |"Z":.#2,A$:.A$..| 00000A60: 22 4F 22 A7 31 33 32 30 00 8C 12 32 05 99 22 53 |"O".1320...2.."S| 00000A70: 45 4E 44 20 48 41 53 20 42 45 45 4E 20 4E 4F 54 |END HAS BEEN NOT| 00000A80: 49 46 49 45 44 22 3A 89 31 31 39 30 00 B5 12 D0 |IFIED":.1190....| 00000A90: 07 98 32 2C 22 4F 22 3B 3A A0 31 3A 99 22 52 45 |..2,"O";:.1:."RE| 00000AA0: 43 45 49 56 45 52 20 48 41 53 20 52 45 51 55 45 |CEIVER HAS REQUE| 00000AB0: 53 54 45 44 22 00 DC 12 DA 07 99 22 41 42 4F 52 |STED"......"ABOR| 00000AC0: 54 49 4E 47 2C 20 52 45 51 55 45 53 54 20 47 52 |TING, REQUEST GR| 00000AD0: 41 4E 54 45 44 22 3A 89 31 31 39 30 00 EC 12 B8 |ANTED":.1190....| 00000AE0: 0B 99 22 44 49 53 4B 20 45 52 DF |.."DISK ER. |
.......2,2,0,G(6).G(0):.15,8,15.B....*** **************************.E....*** SEND /RECIEVE ***......*** BY JOE BO OTH SEP83 ***...(..*** SEND AND REIEV E USING ***.N.2..*** TWO C64 THROUGHT TH E ***...<..*** PHONE LINES ** *...F..*** USING PROTOCAL SIMILAR***.7.P ..*** TO STEVE PUNTER ***.Z.Z..*** **************************.`.D.:...N.. > >>>>>>>>MENU<<<<<<<<<<<<<<...X..53280,0: .53281,0:B.0.C...."...S.END OR .R.ECIEVE OR .E.XIT"......".SELECT (R/S/E):";.... ..A$:.A$.."R".A$.."S".A$.."E".150... ..A $:.A$.."E".240.1... 2: 15:.".GOODBYE!!!! ".V....".IF YOU HAVE ANY QUESTIONS OR".Z ....".PROBLEMS WITH THIS PROGRAM,"...H.. ".CONTACT JOE BOOTH THROUGHT"...R..".ANY OF THESE BBS....."......".PSI-WORDPRO": ."BURLINGTON BBS"............A$."R".1000 ......500.'....>>>CONVERT A BYTE FOR SEN DING<<<.V.... A0=ASC(BYTE):A0$,A1$=OUTPU T OF THAT BYTE.C...CK.CK.A0.....Z0.(.(A0 .16)).65:Z1.(A0.(Z0.65).16).65...".A0$.G (Z0):A1$.G(Z1):..P.,..>>>DO THE OPPISITE CONVERT BACK<<<...6.. A0$,A1$=INPUT FRO M MODEM:A0=ASC(BYTE)...@.Z0.F(A0$).65:Z1 .F(A1$).65.5.J.A0.Z0.16.Z1:CK.CK.A0:..Q. T..>>>>WAIT, SEND BYTE<<<.Q.Y..#2,A$:.A$ .."C".A$.."Z".345...Z..A$."Z".2000...^.. 2,A0$;:.A.1.40:....H..2,A1$;...|...O.... >>>WAIT FOR BYTE,SEND SIGNAL<<<......#2, A$:.A$.."".395.....T0.0:.2,"C";......#2, A0$:.A0$.."".420......T0.10.400.0...T0.T 0.1:.410.H....#2,A1$:.A1$."".420.N.....T ...:.X....****************************** ......*** SEND WHATEVER ************.... ..******************************......"N AME OF THE PROGRAM";:.FL$......".FILE : "FL$...&..".WHAT TYPE OF FILE IS IT:".I. 0.."..P.ROGRAM":.".S.EQ.":.".W.ORD PRO": .".U.SER".B.:..".SELECT (P/S/W/U)"...D.. A$:.A$.."P".A$.."S".A$.."W".A$.."U".580. ..N..".FILE : "FL$.30)"TYPE : "A$:TY$.A$ :.:CK.0.T.X..TY$."W".TY$."P"...B..1,8,14 ,FL$.",".TY$.",R":.15,DS$:DS.E(DS$):.DS. .0..7.L..".STARTING TRANSMITTION":."BYTE S SENT".W.V..2,TY$;:.#2,A$:.A$..TY$.630. B.... SEND.....#1,A0$:.A0$."".A0$.G(0). .....ST..0.680.....A0.F(A0$):.260:.340:B .B.1:.B". .":.650......800:A0$."+":A1$." +":.340: 1:.100... ..TY$.."P".....*..Z9. 1.3:A0.0:.260:.340:.:......:.8....****** ************************.\....*** RECI EVE WHATEVER ***......************** ****************......"NAME OF FILE";FL$ ......"RECIEVING":."BYTES RECIEVE"...... #2,TY$:.TY$.."S".TY$.."P".TY$.."U".1050. .....A.1.20:.2,TY$;:....$..1,8,14,FL$.", ".TY$.",W".<....15,DS$:DS.E(DS$):.DS..0. 3000.[.8..390:.A0$."+".A1$."+".1120.U.B. .A0$."A".A0$."Q".1300...L..A1$."A".A1$." Q".1300...Q.B.B.1:.B". ."...V..300:.1,G( A0);:.1080.A.`. 1......"PRESS RETURN TO CONTINUE"......A$:.A$..G(13).1200......1 00..... 1:."BAD TRANSMITTION".H...."TELL ING SENDER TO ABORT..ONE MINUTE".H.(..2, "Z":.#2,A$:.A$.."O".1320...2.."SEND HAS BEEN NOTIFIED":.1190...P..2,"O";: 1:."RE CEIVER HAS REQUESTED"...Z.."ABORTING, RE QUEST GRANTED":.1190......"DISK ER.
> CLICK IMAGE PREVIEW FOR FULL MODAL