0 PRINT"[147]"CHR$(142):GOSUB63000:POKE53248+21,.:GOTO100
1 POKE781,R%:POKE782,C%:POKE783,PEEK(783)AND254:SYS65520:RETURN
2 POKE783,PEEK(783)OR1:SYS65520:R%=PEEK(781):C%=PEEK(782):RETURN
3 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:RETURN
4 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:RETURN
5 OPEN15,A%,15:CLOSE15:B=ABS(ST):RETURN
6 R%=22:C%=1:GOSUB1:PRINT"[196]EVICE [206]OT [208]RESENT! [159][195]HECK & [212]RY [193]GAIN!
7 [158]SO,1,15,65,5,10,1,1,10,10:[142]
8 [159]15,DV%,15:[132]15,ER%,ER$,TR%,SE%:[160]15:[142]
9 [141]74:R%[178]22:C%[178]1:[141]1:[153]"VALRROR: DEF"ER%[163]10)ER$[163]32)TR%SE%:[142]
10 MW[178]MW[170]1:FR(MW)[178]FR:FC(MW)[178]FC:TR(MW)[178]TR:TC(MW)[178]TC:AD(MW)[178]AD
12 ::[158] WI,FR,FC,TR,TC,AD,FU,BC,.
14 AD[178]AD[170]((TR[171]FR[170]1)[172](TC[171]FC[170]1)[172]2):[142]
15 [139]MW[178].[167][142]
17 ::[158] WI,FR(MW),FC(MW),TR(MW),TC(MW),AD(MW),8,.,.
19 AD[178]AD[171]((TR(MW)[171]FR(MW)[170]1)[172](TC(MW)[171]FC(MW)[170]1)[172]2):MW[178]MW[171]1:[142]
20 ::[158] WI,FR(MW),FC(MW),TR(MW),TC(MW),AD(MW),4,BC,.
21 BC[178]BC[170]1:[139]BC[177]14[167]BC[178].
22 [142]
25 HI[178][181](NU[173]256):LO[178][181](NU[171]HI[172]256):[142]
30 FR[178].:FC[178].:TR[178]6:TC[178]39:BC[178]8:FU[178]7:[141]10
32 [153]"  STR$ISK VALRROR:DEF"ER""ER$
33 [153]"(null)RACK/(null)ECTOR: DEF"TR"/"SE
34 [153]"         CONT(null)RESS: OPENASC3 - CONT(null)RY ATNGAIN"
35 [153]"                OPENASC5 - CONTATNBORT"
36 [161]A$:[139]A$[178]"DIM"[167]OK[178][171]1:[142]
38 [139]A$[178]"READ"[167]OK[178].:[142]
39 [137]36
40 SP[178]SP[170]IS:[139](SP[178]196)[167]IS[178][171]IS:[142]
41 [151]PO,SP:[151]VI[170]21,1:[139](SP[178]192)[167]43
42 [142]
43 [151]VI[170]21,.:[151]VI[170]39,1:[151]VI,.:SX[178][181]([187](1)[172]265)[170]40:SY[178][181]([187](1)[172]20)[170]47
44 [139]SX[177]255[167]SX[178]SX[171]256:[151]VI[170]16,1:[137]46
45 [139]SX[179]256[167][151]VI[170]16,.
46 IS[178][171]IS:[151]VI,SX:[151]VI[170]1,SY:C[178][181]([187](0)[172]80):[142]
47 [161]#8,A$:CT%[178]CT%[170]1:[139](NT%[178].)[175](NS%[178]255)[175](CT%[177]250)[167]EN%[178][171]1:[142]
48 [139]CT%[179]256[167][142]
49 [152]15,"UA:8 0 18"[196](NS%):CT%[178].:[152]15,"B-P:8 0":[142]
50 [153]"TO";:A$[178]"":[151]198,.:[129]A[178]1[164]NC[170]1
52 [161]B$:[139]B$[178]""[167]52
54 [139]B$[178][199](13)[167]68
56 [139](B$[178][199](20))[175](A[177]1)[167]A[178]A[171]1:[153]"CMDCMD  CMDCMDTO";:A$[178][200](A$,A[171]1):[137]52
58 [139](A[178]NC[170]1)[176](B$[178][199](34))[167]52
59 [139](B$[177][178]"0")[175](B$[179][178]"9")[167]66
60 [139]NC%[167]52
61 [139](B$[177][178]":")[175](B$[179][178]"_")[167]66
62 [139](B$[177][178]"ATN")[175](B$[179][178]"(null)")[167]66
63 [139](B$[177][178]" ")[175](B$[179][178]"/")[167]66
64 [137]52
66 [153]"CMD"B$"TO";:A$[178]A$[170]B$:[130]
68 [153]"CMD ":[142]
72 R%[178]18:C%[178]1:[141]1:[153]"                                      ":[141]1:[142]
74 R%[178]22:C%[178]1:[141]1:[153]"                                      ":[141]1:[142]
75 [153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
76 [153]"LIST(null)      CLOSE<TANTAN (null)UMBER OF BLOCKS TANTAN>       LIST(null)";
77 [153]"LIST(null)   CONT5   10   15   20   25   30   35    LIST(null)";
79 [153]"LIST-===(null)====(null)====(null)====(null)====(null)====(null)====(null)====<PRINT";:[142]
80 R%[178]16:C%[178]12:[141]1:[153]"OPEN "BD$(BD%)
81 C%[178]35:[141]1:[153]DV%"CMD "
82 R%[178]17:C%[178]10:[141]1:[153]DP$([194](TE[170]3))
83 C%[178]34:[141]1:[153]"    CMDCMDCMDCMD"[194](51224)
84 [141]98:R%[178]18:C%[178]32:[141]1:[153]"SYS"35840[171]BP:[151]198,.:[142]
85 A%[178]4:[141]5:[139]ST[178].[167][153]" CMD";:[159]4,4,7:[158]SD:[152]4:[160]4
86 [142]
90 ::[158]SO,1,5,65,10,40,8,10,11,10
91 [142]
92 ::[158]SO,1,15,65,10,10,8,10,8,10
93 ::[158]SO,2,15,65,10,10,8,10,8,10
94 [142]
95 [129]Z[178]50[164]100[169]5:Y[178][194](53280):[151]53280,2
96 ::[158]SO,7,15,33,Z,Z,.,.,10,10
97 [151]53280,Y:[130]:[151]54276,.:[151]54283,.:[151]54290,.:[142]
98 BP[178][194](63)[170][194](64)[172]256:[142]
99 [129]A[178]1[164]100:[130]:[151]198,.:[142]
100 [151]56576,([194](56576)[175]252)[176]1
110 [151]53265,27:[151]53270,200:[151]53272,59:[151]648,140
130 [151]53280,.:[151]53281,.:[151]650,128:BD%[178]1:[151]787,.:[151]2,.
330 [139]BD%[178].[167][159]5,2,3,[199](.)[170][199](.)[170][199](61)[170][199](1):BD%[178]1:[137]350
340 [159]5,2,3,[199](6)[170][199](0):BD%[178].
350 [151]51,.:[151]52,80:[151]55,.:[151]56,80
354 [141]61000
355 [139][194](SC)[179][177]112[167][141]60000
360 C[178]0:[141]80:[151]198,.
370 [158]UC:[161]A$:[139](A$[179][177]"")[167]B[178][198](A$)[171]132:[139]B[177].[175]B[179]9[167]A[178]64:[137]380
371 A[178][194](203):[139](A[178]28)[176](A[178]41)[176](A[178]18)[176](A[178]39)[167]380
373 C[178]C[171]1:[139](C[179]1)[167][141]40
376 [137]370
380 [151]VI[170]21,.:SH[178]192:[139]A[179][177]64[167]400
385 [141]98
390 [145]B[137]1000,3000,5000,7000,2000,4000,6000,8000
400 B[178].:[151]198,.
410 [139]A[178]39[167]DV%[178]DV%[170]1:[139]DV%[177]11[167]DV%[178]8
415 [151](OP[170]3),DV%
420 [139]A[178]18[167][151]TE[170]3,[194](TE[170]3)[170]1:[139][194](TE[170]3)[178]2[167][151]TE[170]3,.
430 [139]A[179][177]28[167]448
432 [139]BD%[178].[167][160]5:BD%[178].:[137]330
434 [160]5:BD%[178]1:[137]340
448 [139]A[179][177]41[167]600
450 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10
460 R%[178]16:C%[178]5:[141]1:[153]"FORLENURRENT (null)(null)(null)(null)VAL(null) PEEKLOCK (null)IZE:SYS"[194](51224)
470 [153]"CONT(null)RESS (null)VAL(null)(null)(null)(null)CONT ALONE TO MAKE NO CHANGES."
480 [153]"CONTVALNTER NEW BLOCK SIZE:   CMDCMDCMD";:NC[178]3:NC%[178]1:[141]50:NC%[178].
490 [139]A$[178]""[167][141]15:[137]600
500 A%[178][197](A$):[139]A%[179]40[176]A%[177]255[167][153]"ON";:[137]480
510 [151]51224,[197](A$):[141]15
600 [141]80:[137]370
999 [144]
1000 [151]53280,CT(1):[151]53281,CT(2):[151]646,CT(3)
1005 [153]"LOAD        ORTAN<(null)VAL(null)(null)RIGHT$(null)ATN(null)  LEN(null)(null)(null)ATN(null)STR$(null)-TAN^"
1010 [153]"ORTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTAN^";
1020 [153]"(null)ASC1 - (null)AIN (null)ENU     (null)ASC2 - (null)RINT (null)CREEN (null)";
1030 [153]"(null)ASC3 - (null)PEN PEEKUFFER   (null)ASC4 - LENLEAR PEEKUFFER (null)";
1040 [153]"(null)ASC5 - LENLOSE PEEKUFFER  (null)ASC6 - (null)RANSFER PEEKASC(null) (null)";
1050 [153]"(null)ASC7 - (null)OAD/(null)AVE PEEKASC(null) (null)ASC8 - (null)RINT PEEKUFFER (null)";
1060 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
1070 [129]A[178]217[164]242:[151]A,[194](A)[176]128:[130]
1080 [159]3,3:[159]1,.:[158]TE:[160]3:[160]1
1091 [139][194](2)[178]133[167]1110
1092 [139][194](2)[178]137[167][141]85
1093 [139][194](2)[178]134[167][141]13000
1094 [139][194](2)[178]138[167][141]14000
1095 [139][194](2)[178]135[167][141]15000
1096 [139][194](2)[178]139[167][141]16000
1097 [139][194](2)[178]136[167][141]17000
1098 [139][194](2)[178]140[167][141]18000
1099 [139][194](2)[178]255[167][141]19000
1100 [151]198,.:[137]1080
1110 CT(1)[178][194](53280):CT(2)[178][194](53281):CT(3)[178][194](646)
1130 [151]53280,.:[151]53281,.:[137]355
2000 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10
2010 R%[178]16:C%[178]12:[141]1:[153]"SYSTANTAN (null)ET LENLOCK TANTAN"
2020 [153]"(null)RESS DEF(null)VAL(null)(null)(null)(null) ALONE TO ZERO.":[153]
2030 [153]"ONCONTVALNTER THE HOUR:  CMDCMD";:NC[178]2:NC%[178]1:[141]50:NC%[178].:TH[178][197](A$)
2037 TH[178].:[139][195](A$)[177]1[167]TH[178]16
2038 H[178][197]([201](A$,1)):TH[178]TH[170]H:[151]56331,TH
2040 [153]"ONCONTVALNTER THE MINUTE:  CMDCMD";:NC%[178]1:[141]50:NC%[178].:TM[178][197](A$)
2045 [139]TM[177]59[167]2040
2047 TM[178].:[139][195](A$)[177]1[167]TM[178]16[172][197]([200](A$,1))
2048 M[178][197]([201](A$,1)):TM[178]TM[170]M:[151]56330,TM
2050 [153]"ONCONTVALNTER THE SECOND:  CMDCMD";:NC%[178]1:[141]50:NC%[178].:TS[178][197](A$)
2055 [139]TS[177]59[167]2050
2057 TS[178].:[139][195](A$)[177]1[167]TS[178]16[172][197]([200](A$,1))
2058 S[178][197]([201](A$,1)):TS[178]TS[170]S:[151]56329,TS:[151]56328,.:[141]15:[137]360
3000 A%[178]DV%:[141]5:[139](B[175]128)[167][141]6:[137]370
3010 [153]"LOADSYS->ASC1 WAITORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^SYS->ASC7 "
3020 [153]"(null)AUSEWAIT(null)OPEN STR$  RIGHT$  (null)  VAL  LEN  (null)  (null)  (null)  (null) WAIT(null)SYSATNBORT
3030 PRINTSPC(5)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
3040 C[178]4:[141]2
3050 [141]1:[141]2
3052 [159]15,DV%,15,"I0":[158](OP):[132]15,ER,ER$,TR,SE:[139]ER[178].[167]3070
3060 [160]3:[160]15:[141]30
3065 [139](OK)[167][141]15:[137]3050
3068 [139][168](OK)[167][141]15:[137]355
3070 [158] NI,DN$,BF%:TA%[178]20[171][195](DN$)[173]2
3075 [153][163]5)"(null)SYS"[163]TA%)DN$[163]33)"WAIT(null)"
3077 [153][163]5)"(null)"[163]33)"(null)"
3080 [161]F$:[139]F$[179][177]"INPUT"[167]3090
3081 [141]2:FR[178].:FC[178].:TR[178]7:TC[178]17:BC[178]9:FU[178]7:[141]10:[151]198,.
3082 [153]"SYSSTR$IRECTORY (null)AUSED"
3083 [153]"VERIFY-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
3084 [153]" CONT(null)RESS:"
3085 [153]"  OPENASC3 - CONTLENONTINUE"
3086 [153]"  OPENASC5 - CONTATNBORT":[151]198,.
3087 [161]A$:[139]A$[178]"DIM"[167][141]15:[141]1:[137]3090
3088 [139]A$[178]"READ"[167][141]15:[141]1:OK[178].:[137]3150
3089 [141]20:[137]3087
3090 OK[178]1:[139]F$[178]"LET"[167]OK[178].:[137]3150
3110 [158] EN,FI$,NB%,FT%:[139](FI$[178]"")[176](FT%[179]1)[176](FT%[177]4)[167]3130
3120 [153][163]5)"(null)CONT"NB%[163]12)"OPEN"FI$[163]30)"CONT"FT$(FT%)"(null)"
3130 [139][194](255)[167]3150
3140 [137]3080
3150 [160]3:[160]15:[153][166]5)"(null)     FORPEEKLOCKS ASCREE:SYS"BF%[163]33)"(null)"
3155 [139](OK)[167]3170
3160 [153][166]5)"(null)"[166]27)"(null)":[153][166]5)"(null)  STR$IRECTORY (null)RIGHT$(null)(null) ATNBORTED!  (null)
3170 PRINTSPC(5)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
3180 [153][166]5)"(null)OPEN STR$ONE ...... (null)RESS (null)VAL(null)(null)(null)(null)! WAIT(null)
3190 PRINTSPC(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
3200 [161]A$:[139]A$[179][177][199](13)[167]3200
3210 [137]355
4000 A%[178]DV%:[141]5:[139](B[175]128)[167][141]6:[137]370
4010 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10
4020 R%[178]16:C%[178]1:[141]1:[153]"CONT(null)RESS (null)VAL(null)(null)(null)(null)CONT ALONE TO EXIT."
4030 [153]"FORVALNTER ASCILENAME:"
4040 [141]72:[153]"FOR>SYS";:NC[178]16:[141]50:FI$[178]A$
4050 [139]A$[178]""[167][141]15:[137]360
4120 [159]3,DV%,3,FI$:[141]8
4125 [139]ER%[179][177]00[167][160]3:[141]9:[141]92:[137]4020
4130 [160]3:[159]3,DV%,3,FI$:[141]15:[141]15
4140 [151]53280,2:[153]"LOAD     (null)RESS (null) TO (null)AUSE, ATN TO ATNBORT.      "
4150 [158]FS:B[178][194](2)
4170 [139]B[178]10[167]I[178]2:[153]:[153][163]10)"TANTAN (null)EAD ATNBORTED TANTAN":[160]3:[137]4220
4175 [139]B[178].[167]4210
4180 [141]2:FR[178].:FC[178].:TR[178].:TC[178]39:FU[178]3:[141]10
4185 [153]"       (null)RESS ANY KEY TO CONTINUE.       ":[151]198,.
4190 [161]B$:[139]B$[178]""[167]4190
4200 [141]15:[141]1:[137]4150
4210 [160]3:[153]:[153]"CONT              VALND (null)F ASCILE"
4220 [153]"CONT (null)RESS (null)(null)ATNLENVAL CONTTO RETURN TO THE (null)AIN (null)ENU":[151]198,.
4230 [161]A$:[139]A$[179][177]" "[167]4230
4240 [137]355
5000 A%[178]DV%:[141]5:[139](B[175]128)[167][141]6:[137]370
5010 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10
5020 R%[178]16:C%[178]1:[141]1:[153]"CONT(null)RESS (null)VAL(null)(null)(null)(null)CONT ALONE TO EXIT."
5030 [153]"FORVALNTER STR$(null)(null) LENOMMANDS:"
5040 [141]72:[153]"FOR>SYS";:NC[178]36:[141]50
5050 [159]15,DV%,15,A$:[160]15:[141]74:[141]8
5060 [141]9
5070 [139]A$[178]""[167][141]15:[137]360
5080 [137]5040
6000 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10:FU[178]1
6010 R%[178]16:C%[178]5:[141]1:[153]"OPENTANTAN (null)(null)(null)STR$VAL(null) (null)ROTOCOL (null)RANSFER TANTAN":[141]10
6020 [141]15:[141]10:[153]"  CONT(null)OULD YOU LIKE TO (null)CONTEND OR (null)CONTECEIVE?"
6030 [141]98:[141]99
6040 A[178][194](203):[139](A[179][177]17)[175](A[179][177]13)[175](A[179][177]1)[167]6040
6050 [139]A[178]1[167][141]15:[141]15:[137]1000
6060 [139]A[178]17[167]6300
6070 [141]15:[141]10
6080 R%[178]17:C%[178]1:[141]1:[153]"CONTVALNTER FILENAME TO SEND:":[141]99
6090 [141]72:[153]"CONT>";:NC[178]17:[141]50:[139]A$[178]""[167][141]15:[141]15:[137]1000
6092 [141]15:[141]10:[141]1:[153]"  CONT(null)HAT TYPE OF FILE IS IT?  (null)CONT(null)CHR$/(null)CONTVAL(null)"
6093 [141]99
6094 A[178][194](203):[139](A[179][177]41)[175](A[179][177]13)[175](A[179][177]1)[167]6094
6096 [139]A[178]1[167]6050
6098 FT[178]1:SA[178]0:[139]A[178]13[167]FT[178]2:SA[178]2
6100 FI$[178]A$:[159]3,DV%,3,[170]FI$:[160]3:[141]8
6110 [139]ER%[179][177]00[167][141]9:[141]92:[137]6070
6120 [141]15:[141]15:[153]"LOAD FOR(null)(null)(null)STR$VAL(null) (null)ROTOCOL - (null)RIGHT$(null)CHR$(null)VAL ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
6125 [153]"   (null)RESS THE LENOMMODORE KEY TO ABORT."
6130 [153]"CONT         (null)ENDING: "FI$:[141]75:[159]2,DV%,SA,FI$
6140 [139]([194](653)[175]2)[167]7153
6150 [161]#5,A$:[139]A$[178][199](21)[167]6190
6160 [139]A$[178]"A"[167]7153
6170 A[178]A[170]1:[139]A[179]15000[167]6140
6180 [153]"         -- (null)O (null)ATN(null) RECEIVED --":[137]7153
6190 [158]52224
6200 [139][194](52224[170]6)[178].[167]6240
6220 [139][194](52224[170]6)[178]4[167]A[178]1:A$[178]"(null)ORE THAN 10 TRIES FOR A SINGLE BLOCK."
6230 [153]:[153][163]A)""A$:[152]5,ER$:[137]7153
6240 [129]A[178]1[164]132:[130]:[152]5,[199](4);
6250 [129]A[178]1[164]2000:[161]#5,A$:[139]A$[178]""[167][130]:A[178]A[170]1:[139]A[177]11[167]6240
6260 [139]A$[178]""[167][153]:[153][163]9)"VAL(null)(null) ATNCKNOWLEDGED":[160]2:[160]15:[137]7170
6270 [153]:[153][163]9)"VAL(null)(null) (null)OT ATNCKNOWLEDGED":[137]7153
6300 [141]15:[141]10
6310 R%[178]17:C%[178]1:[141]1:[153]"CONTVALNTER FILENAME TO RECEIVE:":[141]99
6320 [141]72:[153]"CONT>";:NC[178]17:[141]50:[139]A$[178]""[167][141]15:[141]15:[137]1000
6330 [141]15:[141]10:[141]1:[153]"  CONT(null)HAT TYPE OF FILE IS IT?  (null)CONT(null)CHR$/(null)CONTVAL(null)"
6340 [141]99
6350 A[178][194](203):[139](A[179][177]41)[175](A[179][177]13)[175](A[179][177]1)[167]6350
6360 [139]A[178]1[167]6050
6370 FT$[178]",P":FT[178]1:[139]A[178]13[167]FT[178]2:FT$[178]",S"
6380 FI$[178]A$:[159]3,DV%,3,FI$:[160]3:[141]8
6390 [139]ER%[179][177]62[167]ER%[178]63:ER$[178]"FILE EXISTS":[141]9:[141]92:[137]6300
6400 [141]15:[141]15:[153]"LOAD FOR(null)(null)(null)STR$VAL(null) (null)ROTOCOL - (null)RIGHT$(null)CHR$(null)VAL ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
6410 [153]"   (null)RESS THE LENOMMODORE KEY TO ABORT."
6420 [153]"CONT       (null)ECEIVING: "FI$:[141]75:FI$[178]FI$[170]FT$[170]",W"
6430 [159]2,DV%,2,FI$:[151]52230,2:[158]52227:A[178][194](52230)
6440 [139]A[178]2[167][152]5,ER$:[137]7153
6450 [139]A[178].[167]M$[178]"VALND (null)F (null)RANSMISSION (null)ECEIVED...":TA[178]4
6460 [139]A[178]1[167]M$[178]"(null)YNCHRONIZATION (null)OST!":[152]5,ER$:TA[178]10
6470 [139]A[178]3[167]M$[178]"(null)RANSFER LENANCELLED!":TA[178]11
6480 [139]A[178]4[167]M$[178]"(null)ORE THAN 10 TRIES FOR A SINGLE BLOCK.":TA[178]1:[152]15,ER$
6490 [153]:[153][163]TA)""M$:[160]2:[139]A[178].[167]7170
6500 [137]7155
6999 [144]
7000 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10:FU[178]1
7010 R%[178]16:C%[178]5:[141]1:[153]"OPENTANTAN (null)(null)(null)(null)VAL(null) (null)ROTOCOL (null)RANSFER TANTAN":[141]10
7012 [153]"        CONT(null)HAT TYPE OF TRANSFER?"
7014 [153]"      (null)CONTINGLE ASCILE OR (null)CONTULTI-ASCILE":[141]99:[141]98
7016 A[178][194](203):[139](A[179][177]1)[175](A[179][177]13)[175](A[179][177]36)[167]7016
7017 [139]A[178]1[167][141]15:[141]15:[137]1000
7018 [139]A[178]36[167]7300
7020 [141]15:[141]10:[153]"ONON  CONT(null)OULD YOU LIKE TO (null)CONTEND OR (null)CONTECEIVE?"
7030 [141]99
7040 A[178][194](203):[139](A[179][177]17)[175](A[179][177]13)[175](A[179][177]1)[167]7040
7050 [139]A[178]1[167][141]15:[141]15:[137]1000
7060 [139]A[178]17[167]7200
7070 [141]15:[141]10
7080 R%[178]17:C%[178]1:[141]1:[153]"CONTVALNTER FILENAME TO SEND:":[141]99
7090 [141]72:[153]"CONT>";:NC[178]17:[141]50:[139]A$[178]""[167][141]15:[141]15:[137]1000
7092 [141]15:[141]10:[141]1:[153]"  CONT(null)HAT TYPE OF FILE IS IT?  (null)CONT(null)CHR$/(null)CONTVAL(null)"
7093 [141]99
7094 A[178][194](203):[139](A[179][177]41)[175](A[179][177]13)[175](A[179][177]1)[167]7094
7096 [139]A[178]1[167]7050
7098 FT[178]1:SA[178]0:[139]A[178]13[167]FT[178]2:SA[178]2
7100 FI$[178]A$:[159]3,DV%,3,[170]FI$:[160]3:[141]8
7110 [139]ER%[179][177]00[167][141]9:[141]92:[137]7070
7120 [141]15:[141]15:[153]"LOAD FOR(null)(null)(null)(null)VAL(null) (null)ROTOCOL - (null)RIGHT$(null)CHR$(null)VAL ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
7125 [153]"   (null)RESS THE LENOMMODORE KEY TO ABORT."
7130 [153]"CONT         (null)ENDING: "FI$:[141]75:[159]2,DV%,SA,FI$
7140 [158]49173:[151]51227,FT:[158]49164
7150 [139][194](512)[179][177]1[167]7160
7153 [160]2:[160]15:[153]:[153]"           (null)RANSFER ATNBORTED!"
7155 [129]A[178]1[164]3:[141]95:[130]:[153]"CONT        (null)RESS (null)(null)ATNLENVAL CONTTO CONTINUE."
7156 [141]99
7157 A[178][194](203):[139]A[179][177]60[167]7157
7158 NU[178]BP:[141]25:[151]63,LO:[151]64,HI:[137]1000
7160 [158]49173:[158]49158:[160]2
7165 [139][194](512)[178]1[167]7153
7170 [129]A[178]1[164]3:[141]90:[129]B[178]1[164]100:[130]:[141]90:[151]54276,.:[130]
7180 NU[178]BP:[141]25:[151]63,LO:[151]64,HI:[137]355
7200 [141]15:[141]10:R%[178]17:C%[178]1:[141]1:[153]"CONTVALNTER FILENAME TO RECEIVE:"
7205 [141]99
7210 [141]72:[153]"CONT>";:NC[178]17:[141]50:[139]A$[178]""[167][141]15:[141]15:[137]1000
7220 FI$[178]A$:[141]15:R%[178]17:C%[178]4:[141]1:[153]"CONT(null)AITING FOR TRANSMISSION TO START."
7225 [153]"DEF   (null)RESS THE LENOMMODORE KEY TO ABORT."
7228 [158]49173:[158]49161:[139][194](512)[178]1[167][141]15:[137]1000
7230 FI$[178]FI$[170]","[170][202](TY$,[194](51227),1)[170]",W"
7240 [141]15:[141]15:[153]"LOAD FOR(null)(null)(null)(null)VAL(null) (null)ROTOCOL - (null)RIGHT$(null)CHR$(null)VAL ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
7250 [153]"DEF   (null)RESS THE LENOMMODORE KEY TO ABORT."
7260 [153]"CONT        (null)ECEIVING: "FI$:[141]75:[159]2,DV%,2,FI$
7270 [158]61310:[158]49173:[158]49155:[160]2
7274 [139][194](512)[179][177]1[167]7170
7277 [137]7153
7300 [141]15:[141]10:R%[178]17:C%[178]6:[141]1:[153]"CONT(null)ULTI-(null)CONTEND OR (null)ULTI-(null)CONTECEIVE?"
7302 [141]99
7305 A[178][194](203):[139]A[179][177]13[175]A[179][177]17[175]A[179][177]1[167]7305
7310 [139]A[178]1[167][141]15:[141]15:[137]1000
7315 [139]A[178]13[167]7400
7320 [141]15:[141]10:C%[178]1:[141]1:[153]"CONT(null)LEASE (null)ATNRIGHT$(null) WHILE SENDER IS PREPARING."
7325 [153]"   DEF(null)RESS THE LENOMMODORE (null)EY TO ABORT."
7330 [161]#5,A$:[139]([194](653)[175]2)[167][141]15:[141]15:[137]1000
7335 [139]A$[179][177]"	"[167]7330
7340 FI$[178]"":[141]15:[141]15:[153]"LOAD FOR(null)(null)(null)(null)VAL(null) (null)ROTOCOL - (null)(null)(null)(null)RIGHT$ ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
7345 [153]"   (null)RESS THE LENOMMODORE KEY TO ABORT."
7350 [153]"CONT        (null)ECEIVING:";
7355 [161]#5,A$:[139][194](653)[175]2[167]7153
7357 [139]A$[179][177]"	"[167]7355
7360 [161]#5,A$:[139]A$[178]""[176]A$[178]"	"[167]7360
7365 [139]A$[178][199](13)[167]7380
7370 [139]A$[178][199](4)[167][129]A[178]1[164]3:[141]90:[129]B[178]1[164]100:[130]:[141]90:[130]:[137]355
7375 FI$[178]FI$[170]A$:[137]7360
7380 [153][200](FI$,[195](FI$)[171]2):[141]75:[158]49173:[158]49161
7385 [139][194](512)[178]1[167]7153
7390 [159]2,DV%,2,"@0:"[170]FI$[170]",W":[129]A[178]1[164]1300:[130]
7395 [158]61310:[158]49173:[158]49155:[160]2:[139][194](512)[178]1[167]7153
7397 [141]90:[137]7340
7400 [141]15:[141]10:R%[178]18:C%[178]6:[141]1
7405 [153]"CONTRIGHT$NSERT DISK AND PRESS (null)(null)ATNLENVALCONT."
7410 A[178][194](203):[139]A[179][177]60[167]7410
7415 [141]15:[141]15:[151]198,.:CT%[178].:AL%[178].:EN%[178].:I0[178]1:NU[178].
7416 [153]"LOADCONT(null)RESS: (null)CONTES, SEND IT; (null)CONTO DON'T SEND IT;"
7417 [153]"       (null)CONTEND REMAINING FILES ON DISK;"
7418 [153]"       PEEKCONTEGIN TRANSFER; ATNCONTBORT (null)RANSFER."
7419 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
7420 [153]"OPENASCILENAME"[163]19)"(null)YPE"[163]25)"(null)IZE"
7422 [139](I0)[167][159]15,8,15,"I0":[160]15:[158](OP):[158] NI,DN$,BF%:I0[178]0
7427 EN$[178]"         CONTTANTAN OPENVALND OF DIRECTORY CONTTANTAN"
7430 [129]LP[178]1[164]15
7440 [158] EN,FI$,NB%,FT%
7460 [139]FI$[178]""[176]FT%[178].[167]LP[178]LP[171]1:[137]7503
7465 [139]SA%[167][153]:[137]7490
7470 [153]"CONT"FI$[163]19)FT$(FT%)[163]24)NB%[163]30)"(null)RANSFER?CONT":[141]99
7475 A[178][194](203):[139]A[179][177]10[175]A[179][177]13[175]A[179][177]39[175]A[179][177]28[175]A[179][177]25[167]7475
7480 [139]A[178]10[167][153]""[163]11)"DEF(null)RANSFER ATNBORTED!":[129]B[178]1[164]1000:[130]
7481 [139]A[178]10[167][160]3:[137]7170
7483 [139]A[178]13[167]SA%[178][171]1
7486 [139]A[178]39[167]7500
7487 [139]A[178]28[167][151]255,1:EN$[178]"    CONTTANTAN OPENPEEKEGIN (null)RANSFER (null)ELECTED CONTTANTAN":[137]7503
7490 [153]"";:NU[178]NU[170]1:[151]787,.:[151]2,NU[171]1
7493 [129]A[178]1[164][195](FI$):[151]1006[170]A,[198]([202](FI$,A,1)):[130]
7496 [129]B[178]A[164]17:[151]1006[170]B,.:[130]:FT[178][198]([200](FT$(FT%),1))
7497 [151]1023,FT[171]128:[158]XF
7500 [153]"ON"FI$[163]19)FT$(FT%)[163]24)NB%[163]30)"         "
7503 [139][194](255)[167]LP[178]19:[137]7520
7505 [130]:[137]7416
7520 [160]3:[153]EN$
7525 [153]"     (null)RESS (null)(null)ATNLENVALCONT TO BEGIN TRANSFER.":[141]99
7530 A[178][194](203):[139]A[179][177]60[167]7530
7540 [139]NU[179]1[167][153]""[163]11)",(null)O ASCILES (null)ELECTED!":[129]A[178]1[164]1000:[130]:[137]7170
7545 [129]LP[178]1[164]NU:[151]2,LP[171]1:[151]787,1:[158]XF:FI$[178]"":FT$[178][199]([194](1023))
7550 [129]A[178].[164]15:A$[178][199]([194](1007[170]A)):[139]A$[179][177][199](.)[167]FI$[178]FI$[170]A$
7552 [130]:FI$[178]FI$[170]","[170]FT$
7555 [153]"LOAD FOR(null)(null)(null)(null)VAL(null) (null)ROTOCOL - (null)(null)(null)(null)RIGHT$ ASCRIGHT$(null)VAL (null)(null)ATN(null)(null)ASCVAL(null)"
7560 [153]"   (null)RESS THE LENOMMODORE KEY TO ABORT."
7563 [152]5,"			";
7565 [153]"CONT         (null)ENDING:";
7570 [129]A[178]1[164][195](FI$):A$[178][202](FI$,A,1):[152]5,A$;:[130]
7575 [153][200](FI$,[195](FI$)[171]2):[141]75:[152]5,[199](13)
7580 O[178]1:[139]FT$[178]"S"[176]FT$[178]"U"[167]O[178]2
7585 [161]#5,A$:[139]A$[179][177]""[167]7600
7590 [139][194](653)[175]2[167]7153
7595 [137]7585
7600 [159]2,DV%,0,FI$:[158]49173:[151]51227,O:[158]49164
7605 [139][194](512)[178]1[167]7153
7610 [158]49173:[158]49158:[139][194](512)[178]1[167]7153
7612 [160]2:[129]A[178]1[164]2750:[130]:[141]90:[130]
7615 [152]5,"			":[137]7170
8000 FR[178]15:FC[178].:TR[178]19:TC[178]39:FU[178]7:BC[178]1:[141]10:FU[178]1
8010 R%[178]17:C%[178]2:[141]1:[153]"CONTATNRE YOU SURE YOU WANT TO QUIT? ((null)CONT/(null)CONT)"
8015 [141]99
8020 A[178][194](203):[139](A[179][177]39)[175](A[179][177]25)[167]8020
8030 [139]A[178]39[167][141]15:[137]360
8040 [141]15:[153]"LOAD"
8050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
8060 [139]ER[179][177]63[167][128]
8063 [151]56576,151:[151]53265,27:[151]53270,200:[151]53272,23:[151]648,4
8065 [153]"LOAD        (null)ECONNECTING TO (null)(null)ATNSTR$(null)(null)ATN(null)"
8070 [147]"HELLO CONNECT",8
13000 [141]98:[139](BF%)[176](BP[178]35840)[167][142]
13010 [153]" ":[153]:[153][163]11)"-- PEEKUFFER (null)PEN --":[153]:[141]90
13020 [151]TE[170]4,1:BF%[178]1:[142]
14000 [153]" ":[153]:[153][163]10)"-- PEEKUFFER LENLEARED --":[153]:[141]90
14010 [151]63,.:[151]64,80:[142]
15000 [139]BF%[178].[167][142]
15010 [153]" ":[153]:[153][163]10)"-- PEEKUFFER LENLOSED --":[153]:[141]90
15020 [151]TE[170]4,.:BF%[178].:[142]
16000 [141]2:[139]C%[179][177].[167][153]" "
16010 [153]" (null)RANSLATE TO (ATN)(null)LENRIGHT$RIGHT$ DURING TRANSFER?"
16020 A[178][194](203):[139]A[178]64[167]16020
16022 TR[178].:[139]A[178]25[167]TR[178][171]1
16024 [139]A[178]25[176]A[178]39[167]16040
16030 [153]"ON                                       ":[141]1:[142]
16040 [153]"ON  ************************************":[153]"ON";:B[178].
16050 [141]98:[129]A[178]20480[164]BP[171]1
16060 [139](TR)[167][152]5,[199]([194](38240[170][194](A)));
16065 [139][168](TR)[167][152]5,[199]([194](38496[170][194](A)));
16070 [153]"* CMD";:B[178]B[170]1:[139]B[178]34[167]B[178].:[153]"*":[153]"ON";
16080 [139][194](203)[178]1[167]A[178]BP:[153]
16090 [130]:[153]:[137]16030
17000 [141]2:[139]C%[179][177].[167][153]" "
17005 [153]"((null))OAD OR ((null))AVE?   ":[151]198,.
17010 A[178][194](203):[139]A[178]64[167]17010
17020 [139]A[179][177]42[175]A[179][177]13[167][153]"ON                 ":[141]1:[142]
17030 [139]A[179][177]42[167]17100
17040 [153]"ON(null)(null)ATNSTR$:VALNTER FILENAME:       CMDCMDCMDCMDCMDCMDCMD";:NC[178]16:[141]50:FI$[178]A$
17045 [139]A$[178]""[167][129]A[178]1[164]100:[130]:[153]"ONON":[137]17005
17050 [159]15,DV%,15,"R0:"[170]FI$[170]"="[170]FI$:[132]15,ER%:[160]15
17060 [139]ER%[178]63[167]17080
17070 [153]"ON-- ASCILE (null)OT ASCOUND --           ON":[129]A[178]1[164]1000:[130]:[137]17005
17080 [153]"ON(null)OADING...                     ON"
17090 [158] LS,FI$,.:[137]17005
17100 [139]BP[178]20480[167][153]"ON-- PEEKUFFER VALMPTY --ON":[129]A[178]1[164]1000:[130]:[137]17005
17102 [153]"ON(null)ATN(null)VAL:VALNTER FILENAME:       CMDCMDCMDCMDCMDCMDCMD";:NC[178]16:[141]50:FI$[178]A$
17105 [139]A$[178]""[167][129]A[178]1[164]100:[130]:[153]"ONON":[137]17005
17110 [153]"ON((null))(null)CHR$, ((null))VAL(null), ((null))(null)(null), OR ((null))(null)STR$?":[151]198,.
17120 [161]A$:[139]A$[179][177]"P"[175]A$[179][177]"S"[175]A$[179][177]"U"[175]A$[179][177]"R"[175]A$[179][177][199](13)[167]17120
17130 [159]15,DV%,15,"R0:"[170]FI$[170]"="[170]FI$:[132]15,ER%:[160]15
17140 FI$[178]FI$[170]","[170]A$[170]",W":[139]ER%[178]63[167]17170
17150 [153]"ON(null)AVING BUFFER...                    "
17160 [158] LS,FI$,1:[153]"ONON":[137]17005
17170 [153]"ON-- ASCILE VALXISTS --                   ":[129]A[178]1[164]1000:[130]:[137]17100
18000 [141]2:[139]C%[179][177].[167][153]" "
18005 [153]"(null)UTPUT TO ((null))CREEN OR ((null))RINTER?"
18010 A[178][194](203):[139]A[178]64[167]18010
18020 [139]A[179][177]13[175]A[179][177]41[167][153]"ON                                ":[141]1:[142]
18030 D%[178]3:[139]A[178]41[167]D%[178]4
18040 [159]4,D%,7:[151]53280,2:[151]PS[170]1,4
18050 [153]"LOAD     (null)RESS (null) TO (null)AUSE, ATN TO ATNBORT.      "
18060 [141]98:[151]251,.:[151]252,80
18070 [158] PS
18080 B[178][194](2)
18090 [139]B[178]10[167][153]:[153][163]10)"TANTAN (null)EAD ATNBORTED TANTAN"
18100 [139]B[178]10[167][152]4:[160]4:[137]18170
18110 [139]B[179][177]41[167]18160
18120 LO[178][194](251):HI[178][194](252)
18125 [141]2:FR[178].:FC[178].:TR[178].:TC[178]39:FU[178]3:[141]10
18130 [153]"       (null)RESS ANY KEY TO CONTINUE.       ":[151]198,.
18140 B[178][194](203):[139]B[178]64[167]18140
18150 [141]15:[141]1:[151]251,LO:[151]252,HI:[137]18070
18160 [152]4:[160]4:[153]:[153]"CONT             VALND (null)F PEEKUFFER"
18170 [151]53280,CT(1):[151]646,CT(3):[142]
18999 [144]
19000 [153]" ":[153]:[153][163]11)"TANTAN PEEKUFFER ASCULL TANTAN":[153]:RE[178]1:[142]
60000 [151]53280,.:[153]"LOADLIST";:[141]3
60010 [153]"(null)----------- SYS(null)(null)ATN(null) (null)VAL(null)(null)RIGHT$(null)ATN(null) ------------LIST(null)";
60020 [153]"(null)----- (null)ROGRAMMED PEEKY PRINT(null)RIGHT$(null)VAL (null)ATN(null)(null)ATN(null)STR$ -----LIST(null)";:[141]4
60030 [141]3:[153]"(null)           SYS(null)ENU OF LENOMMANDS           LIST(null)";
60040 [153]"(null)"[166]11)"PRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]11)"LIST(null)";
60050 [153]"(null) CONTASC1 - (null)ERMINAL (null)ODE...OPENATN(null)LENRIGHT$RIGHT$ (null)ERMINAL  LIST(null)";
60060 [153]"(null) CONTASC2 - FOR(null)ET LENLOCK.......OPEN(null)EAL-(null)IME LENLOCK LIST(null)";
60070 [153]"(null) CONTASC3 - SYSSTR$IRECTORY.......OPEN(null)IEW STR$IRECTORY  LIST(null)";
60080 [153]"(null) CONTASC4 - ASCILE (null)EADER.....OPEN(null)VAL(null)(null) ASCILES (null)NLY LIST(null)";
60090 [153]"(null) CONTASC5 - OPENSTR$(null)(null) LENOMMANDS....OPENSTR$ISK (null)PERATIONS LIST(null)";
60100 [153]"(null) CONTASC6 - CONT(null)(null)(null)STR$VAL(null) (null)ROTOCOL.OPENPEEKY (null).LENHRISTENSENLIST(null)";
60110 [153]"(null) CONTASC7 - (null)(null)(null)(null)VAL(null) (null)ROTOCOL.OPENPEEKY (null)TEVE (null)UNTER LIST(null)";
60120 [153]"(null) CONTASC8 - CLRVALXIT (null)ROGRAM....OPEN TANTAN PEEKYE PEEKYE TANTAN  LIST(null)";
60130 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
60140 [153]"(null) PEEKCONTAUD (null)ATE:       (null)CONTUMBER OF STR$RIVE:    LIST(null)";
60144 [153]"(null) STR$CONTUPLEX:       (null)CONTUNTER PEEKLOCK (null)IZE:     LIST(null)";
60148 [153]"(null) FOR(null)IME:SYS   :  :      FORPEEKUFFER ASCREE:       LIST(null)";:[141]4
60150 [153][166]10)"LISTORTAN<(null)(null)ATN(null)(null)(null)  (null)RIGHT$(null)STR$(null)(null)LIST-TAN^
60160 PRINT"[176][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][174]";
60170 PRINT"[221]   [154]([159][195][154])[159]OPYRIGHT 1987, [155][211][207][198][212][196][201][211][203], [201]NC.   [221]";:GOSUB4
60180 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT:RETURN
61000 DIM FR(5),FC(5),TR(5),TC(5),AD(5),CT(3),DP$(1),BD$(1)
61010 HC=3:NC=14:BO=.:BA=.:VI=53248:SP=193:IS=-1:CT(1)=6:CT(2)=.:CT(3)=7
61020 FI$="":TY$="PSP":DP$(.)="[198]ULL":DP$(1)="[200]ALF":BD$(.)="300 ":BD$(1)="1200"
61030 FT$(0)="DEL":FT$(1)="[211][197][209]":FT$(2)="[208][210][199]":FT$(3)="[213][211][210]":FT$(4)="[210][197][204]"
63000 SC=35840:CO=55296:SO=37579:SD=38849:TE=37808:WI=36864:UC=38937:XF=37733
63005 BF%=PEEK(TE+4):OP=39019:NI=39048:EN=39195:DV%=PEEK(OP+3):Z$=CHR$(.)
63010 PO=SC+1016:AD=47312:LS=39394:PS=39603:FS=39655:FI$="":NB%=.:FT%=.
63999 RETURN