a E i - Commodore Is Awesome

1
74
F2
E8
FE
67
F2
BO
2F
35
23
as
85
311
59
10
AS
89
98
49
47
BB
40
15
9F
95
o4
97
43
ED
08
5A
EO
71
30
RE
Cl
IUE
700 RETURN
AIN LOOP
710
720
730 REM RESPOND
MODE REQ.
740 PRINT
REOUEST..
750 GOSUB
760 GOSUB
NAL MODE
770 RETURN
AIN LOOP
760
790
900 REM INITIATE
DE
510 PRINT "ESI3NITIATING
MINAL MOOE"
820 GOSUB 950 :REM SEND
830 GOSUB 1150:REM WAIT
ACK
840
850
860
NAL
870
AIN
880
890
900
910
sac
930
540
950
960
970
980
590
ocsus
GOSUB
GO SUB
MODE
RETURN
LOOP
PP
:REM
REM SENO ACK
PRINTM2,CHRS(E);
RETURN
REM SEND ENO
PRINT#2,CHRS(S);
RETURN
;
:REM BACK TO M
TO TERMINAL
"CST1ERMINAL MODE
SOO :REM SEND ACK
1520:REM RUN TERM!
BACK TO M
TERMINAL MC
TER
ENO
FOR
1000 :REM SEND SS
1150:WAIT FOR ACK
1520:REM RUN TERMI
:REM BACK TO tl
1000 REM SEND SS
1010 PRINT#2,CHRSC26);
1020 RETURN
1030
1040
1050 REM SEND SOH FILENAME
02 1060 PRINT#2,CHRSC1);
E5 1070 PRINT#2,CHRS(FL);
30 1080 FOR X-1 TO FL
7E 1090 PRINT102,CHRSCMCA5C(MID
$CFS,X,11)));
02 1100 NEXT
66 1110 PRINT#2,CHRS(MASCCTS)
));
EA 1120 RETURN
59 1130
93 1140
27 1150 REM WAIT FOR ACK CWACK)
F3 1160 DET#2,AS
SS 1170 IF ASCHRS(S) THEN 116
0
RE 1180 RETURN
90 1190
BE 1200
39 1210 REM GETFUNCTION
CF 1220 GET#2,AS
14 1230 IF ns-cHiRs(s) THEN c-1,
RETURN
00 1240 GET AS
86 1250 IF ASCHRS(6) THEN C2:
RETURN
03 1260 IF AS-CHRSC261 THEN C..3
:RETURN
A3 1270 IF AS..CHRSC3) THEN 0..4:
RETURN
RE 1280 GOTO 1210
35 1290
23 1300 1
AS 1310 REM GET ENQ MODE
AC 1320 6ET4
, AS 1330 IF AS-CHRS(1) THEN 0-1:
RETURN
I2,AS
CF 1340 IF ASCHRS(2E) THEN
RS232
;RETURN
64 1350 GOTO 1320
EF 13E0
69 1370
40 1380 REM GET FILENAME FROM R
5232 SOH
SE 1390 GET#2,AS:IF A9.." THEN
1390
IC 1400 F8.A5CCAS/
E4 1410 FOR P.1. TO A
BO 1420 6ET42,AS:IF AS..""THEN 1
930
47 1430 FRS-FRS.CHRSCRVASCCAS)
)1
27 1440 NEXT
C3 1450 GET#2,TS:IF T9.."" THEN
1950
3C 1460
88 1470 TS-CHRS(R%(A5C(T9))/
OS 1480 IF TS.."CSPT" OR TS.'"P"
THEN
59 1490 RETURN
DB 1500
Ol 1510
83 1520 REM TERMINAL MODE
SI 1530 REM REMAIN IN TERMINAL
MODE UNTIL
£3 1540 REM EITHER OLE FROM R92
32
SC 1550 REM OF CTRL-C KEYSTROKE
24 1580
CA 1570 PRINT "CSE1NTERING TERM
INAL MODE."
18 1580 GETP2,AS
16 1590 IF A$•"" THEN 1620
BA 1600 IF ASCHR9(1E) THEN GOT
0 1710
06 1610 PRINT CHRS(R%CASCCAS)))
19 1620 GETAS
E3 1630 IF AS..."" THEN 1590
48 1640 IF As-cHRsco) THEN GOTO
1680
84 1650 PRINTAS;:PRINT#2.CHRI(T
%CASCCAS)));
Al 1E60 GOTO Isso
BE 1670
3F 1680 REM CTRL-C KEYSTROKE
82 1E90 PRIN102,CHRS(16);
90 1700
Al 1710 REM EXIT REQUEST RECEIV
ED
EA 1720 PRINT "LSTJERMINAL MODE
ENDS..."
46 1730 RETURN
ES 1740
EE 1750
01 1760 REM FILE TRANSMIT
22 1770 OPEN 3,8,3,FIS
25 1780 191...155•0
3E 1790
20 loco C
.. "SLOCK";BL;
SA 0:CHS 1810 GETt03,CHS:IF TS.."T" THE
N CHS-CHRSCTMASCCCHS)/1
AC
-
1520 IF ST THEN FOR X..CH TO
"":BLS. 128:81..$8LS
."":PRI -1:6010 , 1850
BA NT1830
sLs-sLs4cHs
CHRSC01:NE
83 1840 CC
XT,SS-
4
DC
1.:IF IBSO PRINTSP2,CHRS.C2);
70
0 <
1860
1 2
PRINT#2,131S;
07 1870 PRINT#2,C1(RSC31;
8 2F 15130 PRINT ".1213 BYTES";
83 T H1850
GOSUB 1150
60 E 1900 N PRINT ".E50,SK)."
58
1 1910 8 IF NOT SS THEN 3LE3L
SOTO
80 1 4 1800
1920
3E
.1:
1930 PRINT02,CHRSC4);
68 1940 CLOSE 3
EB 1950 RETURN R E M SACK TO
MAIN LOOP
YOUR COMMODORE january 1987
90
95 1960
83 1970
OS 1980 REM RECEIUE FILE
EC 1990 PRINT "CSF1ILE ";FRS;"
OF TYPE ";TS
77 2000 FIS-FRSA-ES
51 2010 OPEN 3,8,3,FIS
78 2020 SL..1
CF 2030
38 2040 CHS-."":SLS..""
139 2050 GOSUB 2240:IF RS-CHRS(4
) THEN 2190
AS 2060 IF RSCHRS(R) THEN 205
0
AU 8070 PRINT "ESSMOCK ";8L;".
Al 2080 FOR X...1 TO 128
E0 2090 GETP*2,CHS:IF LEN(CHS)..0
THEN CHS..CHS.CHRSC01
PS 2100 IF TS-"EST3" OR TS-"T"
THEN CHS-CHRSCR%(ASC(CHS)))
El 2110 BLS..EILS4-CHS
02 2130 NEXT
75 2130 GOSUB 2240:IF RS(>CHRS(
3) THEN 2130
SC 2140 PRIN103,BLS;" BYTES
DB 2150 8L-8L-1-1
84 2160 GOSUB 900:PRINT ".L50,5
K1.";LEN(BLS)
AO 2170 GOTO 2040
85 2180
58 2190 PRINT "ESTIRANSFER COMP
LETE."
13 2200 CLOSE 3
IA 2210 RETURN : REM BACK TO M
AIN LOOP
BE 2220
84 3330
CB 2240 REM WAIT FOR ETX OR EDT
A6 2290 GETNR,RS
EF 2260 IF RS-""THEN 2250
66 2270 RETURN
CA 2260
CO 2290
/F 2300 REM GET FILENAME FROM U
SER
74 2310 INPUT "ESEJILENAME TO I
RANSFER:";FS
57 2320 INPUT "CT1EXT (LSS,SE,S
OD OR CP/ROGRAM CESP,SR,S611
)";IS
IS 2330 ES",S,R"
OC 2340 IF IS-"P" THEN ES-",P.R
31 2350 FIS-FS-FES:FL"LEN(FS)
Cr 2360 RETURN
71 2370
6E aoso
A9 2390 REM SETUP TRANSLATION T
. ABLES
FF 2400 PRINT "CSSJETTING UP...
07 2410 DIM riC2S5),R%(255)
FO 2420 FOR J-0 TO 641T%M-J:N
EXT
3A 2430 T%(10)..0:T.TI(20)8
C3 2440 FOR J 65 TO 90:1(.1
4 T
.32:
60 2450 - FOR .P.91 TO 95:1
. 4
NEXT
54 %(J)J: 2460
C
FOR J-153 TO 218:K-J-13
8,T%CJ1-K:NEXT
OS 2470 J 1
-22
2480 ) FOR 3'"0 TO 255
4
RC
(
2490
1 K4
6 )
Kr.t(J)
.
cr 2500
. 1 6 : IF K0 THEN FM(K)".J:R%
(K+128)-J
; T
% 55 ( 2510 1N3 3 ) NEXT
6F 1 62920
E RETURN
4F 2530 X GET ns
5A 2540 T IF A5
-64
2950 PRINT ASCCAS/
25
""
2550
T H
GOTO
E N
2930
2 5 3 0