-
Notifications
You must be signed in to change notification settings - Fork 1
/
prg.term.bas
48 lines (48 loc) · 2.89 KB
/
prg.term.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
!--------------------------------------------------
!- Friday, May 12, 2017 11:14:53 PM
!- Import of :
!- c:\src\zelch64\bak\prg.term.prg
!- Commodore 64
!--------------------------------------------------
8000 SYS51983:IFM0>0ANDM0<3THEN8060
8010 PRINTCR$+"{white}3)00 OR 1)200 BAUD:{reverse on} {reverse off}{left}";:POKE681,1
8030 D=8:GETA$:IFA$="3"THENPRINTA$:PRINT"{ct n}300 BAUD":GOSUB51:GOTO8060
8040 ON(A$<>"1")+2GOTO8030:PRINTA$:PRINT"{ct n}1200 BAUD":GOSUB49
8060 A$="{light green}{ct n}ASCII TERM{sh space}ACTIVE:":IFPEEK(681)=1THENA$="{white}{ct n}GRAPHICS TERM ACTIVE:"
8070 PRINTA$:POKE53269,1:SYS38236:POKE53269,0
8080 I1=0:PRINT"{ct n}{down*2}{pink}Z{yellow}E{white}L{cyan}C{light blue}H {white}ZAP{sh space}TERM V2.3"+CR$+"{yellow}Q{white})UIT / {yellow}R{white})ESET TERM":I2=0
8100 IFPEEK(659)=6THENPRINT"{yellow}B{white})AUD{sh space}CHANGE (300-500)"
8110 PRINT"{yellow}U{white})PLOAD / {yellow}D{white})OWNLOAD"+CR$+"{yellow}T{white})ERMINAL MODE":I=200
8120 PRINT"{yellow}H{white})ANGUP / {yellow}P{white})ICKUP"
8136 PRINT"{yellow}S){white}END{sh space}SEQ{sh space}FILE"+CR$+"{yellow}${white}) DIRECTORY / {yellow}@{white}) DOS"+CR$+"{down}{white}>{reverse on} {reverse off}<{left*2}";
8150 GOSUB20:POKE714,1:POKE720,1:POKE830,0:C$="qbu$dtrs@hp":GOSUB66:POKE720,0
8155 IFG=1THENPOKE714,0:POKE702,16:CLOSE2:CLOSE3:CLOSE8:CLOSE15:RUN
8160 G=G-1:ONGGOTO8200,8300,9010,8400,8060,8000,9500,9700,9800,9900
8200 IFPEEK(659)<>6THEN8080
8205 PRINT"{down}NEW BAUD (300-500):";:VY=0:GOSUB73:IFI<200ORI>500THEN8060
8210 FH=1:GOSUB3040:GOTO8060
8300 I1=1:GOSUB8500:ONERGOTO8060:FH=1:OPEN2,D,2,"0:"+A$+","+B$+",r":INPUT#D,E
8310 ON(E>0)+2GOTO2860:PRINT"{clear}UPLOAD:"+A$:A$="g":GOTO2940
8400 GOSUB8500:ONERGOTO8060:PRINT"{clear}DOWNLOAD:"+A$:SYS49173:SYS49161
8405 ONPEEK(512)GOTO9000:FH=1:I$=A$+","+B$+",w":OPEN2,D,2,"0:"+I$:INPUT#D,E
8410 ON(E>0)+2GOTO2860:A$="g":GOTO2838
8500 ER=0:PRINTCR$+"{white}FILENAME:";:GOSUB33:IFLEN(I$)>16ORI$=""THENER=1:I$="l"
8510 A$=I$:FORI=1TOLEN(I$):B=ASC(MID$(I$,I,1)):IFERORI1THEN8520
8515 IFB=44ORB=58ORB=42ORB=36ORB=63ORB=59THENER=1
8520 NEXTI:IFER=1ORI2=1THENRETURN
8540 PRINT"{white}P)RG / S)EQ:{reverse on} {reverse off}{left}";:POKE720,1:C$="ps"+CR$:POKE830,0:GOSUB66:POKE720,0
8550 TY=G:IFG=3THENER=1
8560 B$=IN$:RETURN
9000 FH=0:PRINT"{clear}{down*2}":GOTO8060
9010 POKE720,1:PRINT"{clear}{white}";
9020 POKE253,0:OPEN2,D,0,"$0:*":SYS38224:CLOSE2:PRINTCR$+"{white}HIT{sh space}RETURN"
9030 GETA$:ON(A$<>CR$)+2GOTO9030:POKE720,0:GOTO8060
9500 I1=1:I2=0:GOSUB8500:ONERGOTO8060:PRINTCR$+"sending...":NN=0:FI$=A$
9530 VD=D:GOSUB25:GOTO8060
9700 PRINT"{white}DEVICE:";:VY=8:GOSUB73:D=I:PRINT"COMMAND:";:GOSUB73
9720 PRINT#D,I$:INPUT#D,E,E$,E1,E2:PRINTE,E$,E1,E2:GOTO8060
9800 GOSUB37:GOTO8080
9900 IFM0<>3THENGOSUB47:GOTO8080
9910 POKE204,128:POKEMC,0:POKEMC+2,230
9920 IFBA=1200THENPOKE56588,178:POKE56588,183:GOTO8080
9930 POKE56588,160:POKE56588,167:GOTO8080