home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-10_2003_CSW_Side_B.d64 / browser (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  94 lines
  1. 1 poke 53280,0:poke 53281,0
  2. 2 print "[147]"+chr$(14)
  3. 3 print "64 [195][205][204] [194]rowser"
  4. 4 print "by [202]eff [204]edger"
  5. 5 print "[214]ersion 0.00002" : print
  6. 6 print "[214]isit [195][205][204] [200]ompage at: ";
  7. 7 print "[158]orrville.net/cml" : print""
  8. 10 open 2,2,0,chr$(6)
  9. 11 rem 8=1200 baud
  10. 12 rem 6=300 baud
  11. 100 input "[159][197]nter [213][210][204] http://";url$
  12. 101 rem url$="orrville.net/cml"
  13. 110 rem print "#";:print url$
  14. 115 rem
  15. 116 no=0 : aa$=""
  16. 117 fkey$(1)="" : fkey$(2)=""
  17. 118 fkey$(3)="" : fkey$(4)=""
  18. 120 print#2,"#";url$ : print "[147]loading..."
  19. 300 rem begin checking tags
  20. 301 rem to display cml
  21. 302 for x=1to1000:next x
  22. 310 gosub 900
  23. 320 input#2,b$
  24. 321 if b$="[eof]" then no=1 : goto 600
  25. 322 if mid$(b$,1,4)="^cen" then goto 3000
  26. 323 if mid$(b$,1,3)="^fk" then goto 3100
  27. 400 gosub 600
  28. 500 gosub 5000: gosub 900 : goto 320
  29. 600 if no=1 then print: print spc(7)+"[208]ress [[206]] to load new [213][210][204]."
  30. 601 get aa$
  31. 605 if aa$=chr$(133) and fkey$(1)<>"" then url$=fkey$(1): goto 110
  32. 610 if aa$=chr$(134) and fkey$(2)<>"" then url$=fkey$(2): goto 110
  33. 615 if aa$=chr$(135) and fkey$(3)<>"" then url$=fkey$(3): goto 110
  34. 620 if aa$=chr$(136) and fkey$(4)<>"" then url$=fkey$(4): goto 110
  35. 650 if aa$="n" or aa$="[206]" then goto 1
  36. 698 if no=1 then goto 601
  37. 699 return
  38. 899 end
  39. 900 print#2,chr$(64)+chr$(108)+chr$(105)+chr$(110)+chr$(101)
  40. 910 return
  41. 3000 rem center tag
  42. 3010 junk$=""
  43. 3020 junk$=mid$(b$,5,len(b$))
  44. 3030 gg=len(junk$)
  45. 3040 xx=40-gg
  46. 3050 xx=xx/2
  47. 3070 print spc(xx)+junk$
  48. 3080 goto 300
  49. 3100 rem hyperlink setup
  50. 3110 junk$=""
  51. 3120 junk$=mid$(b$,5,len(b$))
  52. 3130 if mid$(b$,4,1)="1" then let fkey$(1)=junk$
  53. 3140 if mid$(b$,4,1)="2" then let fkey$(2)=junk$
  54. 3150 if mid$(b$,4,1)="3" then let fkey$(3)=junk$
  55. 3160 if mid$(b$,4,1)="4" then let fkey$(4)=junk$
  56. 3200 goto 300
  57. 5000 rem check tags
  58. 5001 x=0
  59. 5010 x=x+1
  60. 5020 c$=mid$(b$,x,1)
  61. 5030 if c$="^" then gosub 5300
  62. 5099 print c$;
  63. 5100 if x=len(b$) then return
  64. 5110 goto 5010
  65. 5120 return
  66. 5300 x=x+1:qq$=mid$(b$,x,1)
  67. 5310 x=x+1:ww$=mid$(b$,x,1)
  68. 5320 x=x+1:ee$=mid$(b$,x,1)
  69. 5330 tag$=c$+qq$+ww$+ee$
  70. 5350 if qq$="s" then junk$=ww$+ee$ : a=val(junk$) : poke 53280,a
  71. 5360 if qq$="b" then junk$=ww$+ee$ : a=val(junk$) : poke 53281,a
  72. 5365 if left$(tag$,3)="^br" then j=val(ee$) : for xx=1toj : print chr$(13);:next xx
  73. 5370 if tag$="^hom" then print ""
  74. 5380 if tag$="^cls" then print "[147]"
  75. 5390 if tag$="^c01" then print "[144]";
  76. 5400 if tag$="^c02" then print "";
  77. 5410 if tag$="^c03" then print "";
  78. 5420 if tag$="^c04" then print "[159]";
  79. 5430 if tag$="^c05" then print "[156]";
  80. 5440 if tag$="^c06" then print "";
  81. 5450 if tag$="^c08" then print "[158]";
  82. 5460 if tag$="^ron" then print "";
  83. 5470 if tag$="^rof" then print "[146]";
  84. 5480 if tag$="^c09" then print "[129]";
  85. 5490 if tag$="^c10" then print "[149]";
  86. 5500 if tag$="^c11" then print "[150]";
  87. 5510 if tag$="^c12" then print "[151]";
  88. 5520 if tag$="^c13" then print "[152]";
  89. 5530 if tag$="^c14" then print "[153]";
  90. 5540 if tag$="^c15" then print "[154]";
  91. 5550 if tag$="^c16" then print "[155]";
  92. 6999 c$=""
  93. 7000 return
  94.