home *** CD-ROM | disk | FTP | other *** search
- 10 REM *** NEW PROTOCOL ***
- 20 REM RELEASE 2: OCT 27 1984
- 30 REM BY STEVE PUNTER
- 40 IFPEEK(49152)<>169THENLOAD"TERM C1.V2",8,1
- 50 OPEN5,2,0,CHR$(8):GET#5,A$:BS=255:OPEN1,8,15:DIMT$(3):SYS49176
- 60 TY$="PSP":T$(1)="╨ROGRAM":T$(2)="╙┼╤":T$(3)="╫ORD╨RO":CS=1.02273E6
- 70 BR$="300":GOSUB6000
- 80 PRINT"ô╧PTION: ("+BR$+" ┬AUD) ┬LOCK ╙IZE ="BS""
- 90 PRINT" 1 - ╘ERMINAL ═ODE"
- 100 PRINT" 2 - ╘RANSMIT A ╞ILE"
- 110 PRINT" 3 - ╥ECEIVE A ╞ILE"
- 120 PRINT" 4 - ├HANGE ┬LOCK ╙IZE"
- 130 PRINT" 5 - ╘OGGLE ┬AUD ╥ATE (300-1200)"
- 140 GETA$:IFA$=""THEN140
- 150 IFA$="2"THEN1000
- 160 IFA$="3"THEN2000
- 170 IFA$="4"THEN3000
- 180 IFA$="1"THENPRINT"╘ERMINAL ═ODE:":GOTO4000
- 190 IFA$="5"THEN6700
- 200 GOTO140
- 1000 PRINT"╨ROGRAM ╬AME? ";:GOSUB5000:IFI$=""ORFL=1THEN80
- 1010 PRINT"╞ILE ╘YPE (╨, ╙, OR ╫)? Æ¥";
- 1020 GETA$:IFA$=""THEN1020
- 1030 IFA$="à"THEN80
- 1040 IFA$="P"THENSA=0:T=1:GOTO1080
- 1050 IFA$="S"THENSA=2:T=2:GOTO1080
- 1060 IFA$="W"THENSA=0:T=3:GOTO1080
- 1070 GOTO1020
- 1080 PRINTT$(T)"":OPEN2,8,SA,I$:INPUT#1,E$,EM$,T$,S$
- 1090 IFVAL(E$)>0THENPRINT""E$","EM$","T$","S$:CLOSE2:GOTO1010
- 1120 SYS49173:POKE51227,T:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO4000
- 1130 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO4000
- 2000 PRINT"╙AVE ┴S? ";:GOSUB5000:IFI$=""ORFL=1THEN80
- 2010 SYS49173:SYS49161:IFPEEK(512)=1THEN4000
- 2020 T$=","+MID$(TY$,PEEK(51227),1)+",W"
- 2025 PRINT"╞ILE ╘YPE: "T$(PEEK(51227))
- 2030 OPEN2,8,2,"@0:"+I$+T$:FORX=
- 2040 SYS49173:SYS49155:CLOSE2:FORX=1TO1500:NEXTX:POKE668,PEEK(667):GOTO4000
- 3000 PRINT"┬LOCK ╙IZE? ";:GOSUB5000:IFI$=""THEN80
- 3010 BS=VAL(I$):IFBS<40THENBS=40
- 3020 IFBS>255THENBS=255
- 3030 GOTO80
- 4000 PRINT
- 4010 SYS49173:SYS49167:GOTO80
- 5000 I$="":FL=0
- 5010 PRINT" ƥ";
- 5020 GETA$:IFA$=""THEN5020
- 5030 IFA$=CHR$(13)THEN5100
- 5040 IFA$=CHR$(20)THEN5080
- 5045 IFA$="à"THENFL=1:GOTO5100
- 5050 IFLEN(A$)>20THEN5020
- 5060 IF(ASC(A$)AND127)<32THEN5020
- 5070 PRINTA$;:I$=I$+A$:GOTO5010
- 5080 IFLEN(I$)=0THEN5020
- 5090 PRINT" ¥¥";:I$=LEFT$(I$,LEN(I$)-1):GOTO5010
- 5100 PRINT" ":RETURN
- 6000 S=VAL(BR$):POKE659,6:IFS=1200THENPOKE659,8
- 6010 RC=CS/S:GOSUB6500:POKE51968,LO:POKE51969,HI
- 6020 IFS=1
- 6030 POKE665,LO:POKE666,HI
- 6040 RC=CS/S/2-100:GOSUB6500:POKE661,LO:POKE662,HI:RETURN
- 6500 HI=INT(RC/256):LO=INT(RC-HI*256):RETURN
- 6700 IFBR$="300"THENBR$="1200":GOTO6720
- 6710 BR$="300"
- 6720 GOSUB6000:GOTO80
-