home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2003-10_2003_CSW_Side_B.d64
/
browser
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
94 lines
1 poke 53280,0:poke 53281,0
2 print "[147]"+chr$(14)
3 print "64 [195][205][204] [194]rowser"
4 print "by [202]eff [204]edger"
5 print "[214]ersion 0.00002" : print
6 print "[214]isit [195][205][204] [200]ompage at: ";
7 print "[158]orrville.net/cml" : print""
10 open 2,2,0,chr$(6)
11 rem 8=1200 baud
12 rem 6=300 baud
100 input "[159][197]nter [213][210][204] http://";url$
101 rem url$="orrville.net/cml"
110 rem print "#";:print url$
115 rem
116 no=0 : aa$=""
117 fkey$(1)="" : fkey$(2)=""
118 fkey$(3)="" : fkey$(4)=""
120 print#2,"#";url$ : print "[147]loading..."
300 rem begin checking tags
301 rem to display cml
302 for x=1to1000:next x
310 gosub 900
320 input#2,b$
321 if b$="[eof]" then no=1 : goto 600
322 if mid$(b$,1,4)="^cen" then goto 3000
323 if mid$(b$,1,3)="^fk" then goto 3100
400 gosub 600
500 gosub 5000: gosub 900 : goto 320
600 if no=1 then print: print spc(7)+"[208]ress [[206]] to load new [213][210][204]."
601 get aa$
605 if aa$=chr$(133) and fkey$(1)<>"" then url$=fkey$(1): goto 110
610 if aa$=chr$(134) and fkey$(2)<>"" then url$=fkey$(2): goto 110
615 if aa$=chr$(135) and fkey$(3)<>"" then url$=fkey$(3): goto 110
620 if aa$=chr$(136) and fkey$(4)<>"" then url$=fkey$(4): goto 110
650 if aa$="n" or aa$="[206]" then goto 1
698 if no=1 then goto 601
699 return
899 end
900 print#2,chr$(64)+chr$(108)+chr$(105)+chr$(110)+chr$(101)
910 return
3000 rem center tag
3010 junk$=""
3020 junk$=mid$(b$,5,len(b$))
3030 gg=len(junk$)
3040 xx=40-gg
3050 xx=xx/2
3070 print spc(xx)+junk$
3080 goto 300
3100 rem hyperlink setup
3110 junk$=""
3120 junk$=mid$(b$,5,len(b$))
3130 if mid$(b$,4,1)="1" then let fkey$(1)=junk$
3140 if mid$(b$,4,1)="2" then let fkey$(2)=junk$
3150 if mid$(b$,4,1)="3" then let fkey$(3)=junk$
3160 if mid$(b$,4,1)="4" then let fkey$(4)=junk$
3200 goto 300
5000 rem check tags
5001 x=0
5010 x=x+1
5020 c$=mid$(b$,x,1)
5030 if c$="^" then gosub 5300
5099 print c$;
5100 if x=len(b$) then return
5110 goto 5010
5120 return
5300 x=x+1:qq$=mid$(b$,x,1)
5310 x=x+1:ww$=mid$(b$,x,1)
5320 x=x+1:ee$=mid$(b$,x,1)
5330 tag$=c$+qq$+ww$+ee$
5350 if qq$="s" then junk$=ww$+ee$ : a=val(junk$) : poke 53280,a
5360 if qq$="b" then junk$=ww$+ee$ : a=val(junk$) : poke 53281,a
5365 if left$(tag$,3)="^br" then j=val(ee$) : for xx=1toj : print chr$(13);:next xx
5370 if tag$="^hom" then print ""
5380 if tag$="^cls" then print "[147]"
5390 if tag$="^c01" then print "[144]";
5400 if tag$="^c02" then print "";
5410 if tag$="^c03" then print "";
5420 if tag$="^c04" then print "[159]";
5430 if tag$="^c05" then print "[156]";
5440 if tag$="^c06" then print "";
5450 if tag$="^c08" then print "[158]";
5460 if tag$="^ron" then print "";
5470 if tag$="^rof" then print "[146]";
5480 if tag$="^c09" then print "[129]";
5490 if tag$="^c10" then print "[149]";
5500 if tag$="^c11" then print "[150]";
5510 if tag$="^c12" then print "[151]";
5520 if tag$="^c13" then print "[152]";
5530 if tag$="^c14" then print "[153]";
5540 if tag$="^c15" then print "[154]";
5550 if tag$="^c16" then print "[155]";
6999 c$=""
7000 return