10 DEFINT a-z:CLS:MODE 1:INK 0,26:INK 1,0:BORDER 26:INK 2,6:INK 3,19
20 st=2:id=st:pg=0:mxpage=32:DIM map$(32,32):url$="www.radicadesign.com/":file$="web.csv"
25 amweb$="AMWEB 0.6b - 2017 RetroAcademy"
30 WINDOW 1,32,1,2:PEN 10:PRINT amweb$ :PRINT
60 WINDOW #2,34,45,3,42:PRINT #2,"LINKS";CHR$(10)
110 WINDOW 1,32,5,42
150 curl$=url$+file$
180 LOCATE #1,1,2:PEN 2:INPUT #1,"URL: ",u$
200 |HTTPGET,curl$
220 OPENIN file$ 'Cache file
250 FOR y=1 TO 9:FOR x=1 TO 9:INPUT #9,map$(y,x):NEXT:NEXT
400 CLOSEIN
410 LOCATE #1,1,3:PRINT #1,map$(1,1):PRINT 'Title 
420 IF id+pg>VAL(map$(1,5)) THEN id=st
500 FOR y=id TO id+pg
510 em=VAL(map$(y,5))
550 PEN 2:PRINT CHR$(em)+" - ";:PRINT map$(y,2)+" ";:PEN 1
649 ' *** TEMPLATE *****
650 PRINT map$(y,1);CHR$(10);map$(y,4);CHR$(10);:PEN 1:PRINT #2,map$(y,1);char$(10);map$(y,7);CHR$(10):PEN 1
700 PRINT "--------------------------------":PRINT
900 NEXT
1000 k$=INKEY$
1100 IF k$="3" THEN id=(id+pg)+1: GOTO 420
1150 IF k$="6" THEN id=st : CLS: GOTO 420
1160 IF k$="0" THEN id=st : CLS : GOTO 180
1200 GOTO 1000