home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1998-01_1998_CSW_Side_B.d64
/
hyperlink2.rr2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
13KB
|
81 lines
0 n=1:gosub58:print"[147]":poke53281,0
1 ifpeek(45)+peek(46)*256<>4591then76
2 poke45,0:poke46,157:poke47,0:poke48,157:poke49,0:poke50,157
3 m=4608:nt=0:ns=0:bp=-1:e=-1:t=0:s=0:z$=chr$(0)
4 printchr$(142)+"filename = ";
5 cr$=chr$(13):dl$=chr$(20):f$="":fl=0
6 geti$:ifi$=""then6
7 i=asc(i$)
8 ifflandi=13then16
9 ifflandi=20then13
10 iffl=16ori<32ori>122then6
11 ifi=34ori=36ori=42ori=44ori=58ori=59ori=63ori=64ori=96then6
12 fl=fl+1:f$=f$+i$:goto14
13 fl=fl-1:f$=left$(f$,fl)
14 printi$;:goto6
15 iffl=0then6
16 printcr$+"device# = ";
17 getd$:ifd$<>"1"andd$<>"8"andd$<>"9"then17
18 printd$;:d=val(d$)
19 getdd$:ifdd$=cr$andd$<>"1"then25
20 ifdd$=dl$thenprintdd$;:goto17
21 ifdd$<"0"ordd$>"5"then19
22 printdd$;:d=val(d$)*10+val(dd$)
23 geti$:ifi$=dl$thenprinti$;:goto19
24 ifi$<>cr$then23
25 open15,d,15:close15
26 ifst=-128thenprint"[147]no device, no dice":end
27 open15,d,15:print#15,"r0:"+f$+"=0:"+f$
28 gosub75:ifen<>63thenprint"[147]"+em$:goto52
29 open2,d,2,"#"
30 nt=255:gosub74:ifen<>66thennt=1:ns=1:goto33
31 nt=40:gosub74:ifen<>66thenns=3:goto33
32 nt=18:ns=1
33 print#15,"u1";2;0;nt;ns:bp=-1
34 get#2,nt$,ns$:nt=asc(nt$+z$):ns=asc(ns$+z$)
35 get#2,ft$:ft=asc(ft$+z$)
36 ifft=129orft=193then41
37 ifbpthen40
38 ifnt=0thenprint"[147]illegal filetype":goto52
39 restore:goto33
40 readbp:readbp:print#15,"b-p";2;bp:goto35
41 gosub57:forx=1tolen(f$):get#2,x$
42 ifx$=mid$(f$,x,1)thennext:goto44
43 x=len(f$):next:goto40
44 readbp:print#15,"b-p";2;bp:get#2,lb$,hb$
45 fl=asc(lb$+z$)+(asc(hb$+z$)*256)
46 iffl>0andfl<139thene=0:goto48
47 print"[147]illegal filelength":goto52
48 n=23:gosub58
49 print#15,"u1";2;0;t;s
50 gosub57:c=s:iftthenc=255
51 forx=2toc:get#2,c$:pokem,asc(c$+z$):m=m+1:next:iftthen49
52 close2:close15:ifethenend
53 h=int(m/256):l=m-h*256
54 poke4348,0:poke4349,18:poke4350,l:poke4351,h:clr
55 poke45,peek(4350):poke46,peek(4351):poke47,peek(4350)
56 poke48,peek(4351):poke49,peek(4350):poke50,peek(4351):end
57 get#2,t$,s$:t=asc(t$+z$):s=asc(s$+z$):return
58 poke53280,0:poke53281,1
59 m$=" [208]ress the [193][206][217] key [208]atience is a virtue. "
60 print"[147]"+chr$(14);
61 fory=4to19:poke214,y:print
62 printtab(8)" [146][152][161]":next
63 poke214,4:print:printtab(31)"[187]"
64 fory=11to19step4:poke214,y:print
65 printtab(8)"[152][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][157][187]";:next:print"[157] "
66 poke214,5:print:printtab(9)"- [210] [193] [205] [211] [208] [197] [197] [196] -"
67 poke214,7:print:printtab(10)"- [210] [197] [193] [196] [197] [210] -"
68 poke214,9:print:printtab(11)"- - v 2.0 - -"
69 poke214,13:print:printtab(10)"([195])1996 [205]yke [195]arter"
70 poke214,17:print:printtab(9)""+mid$(m$,n,22)+"[144]"
71 ifn=23thenreturn
72 geti$:ifi$=""then72
73 print"";:return
74 print#15,"u1";2;0;nt;ns
75 input#15,en,em$:return
76 forx=251to254:pokex,peek(x+4097):next:print"[147]";:poke53281,0
77 sys4352:end:d=peek(186):load"",d,1
78 data 30,34,62,66,94,98,126,130,158,162,190,194,222,226,254,0
79 poke45,239:poke46,17:run