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