Browsing the web on an Amstrad CPC664

[00WReX]

A nice write up, some nice pictures and finished off with a video...very cool.
Source code even included at the bottom of the page..

http://attila.patup.com/?p=26

Cheers,
Shane

[MacDeath]

Is this serious ?

[00WReX]

I think it is...looks like most of the work is being done on a laptop...

After pondering a bit about it, I ended up with a hybrid solution, which looks somewhat like this:
1. Python script running on the laptop, opens up a serial connection to the CPC, and prompts the user to enter the url, and dumps the raw html through the serial
2. 30 lines of Locomotive BASIC, which handles both serial in/out, and strips the tags from the received data.

Cheers,
Shane

[rpalmer]

Well for those who have been waiting for a REAL browser on the CPC, I have almost completed some basic browser stuff.

My last post on the browser was quite some time ago, but since then I have included Tables, Forms and Frames. At this very moment I am completing the handling of frames.  The CPC can have a max of 64 frames, which for the time being is enough for most pages.
I have also been documenting the whole project which has now grown to over 1.5 Mbytes just for the technical manual. The user manual will be supplied in both a text version and with a browser interface, so the CPC browser can open in a view it online.

Soon the CPC can browse the net without the need for pre-processing.

Although the solution would only be text of limited capability, it none the less would prove the CPC can view the net like most common browsers today.

rpalmer

[00WReX]

That sounds awesome rpalmer, very cool indeed.
Is your CPC ethernet card completed yet (or getting close) ?

Cheers,
Shane

[Gryzor]

The guy's hack is very neat, though of course not very practical. Still, neat! He takes nice pics, too.

Just for fun:

Code Select Expand


10 CLS: MODE 1: PRINT "Serial browser v0.1"
20 PRINT "Running at 300bps, 8N1"
30 OUT &F8E8,6
40 OUT &F8E0,3
50 OUT &F8E1,255
60 OUT &F8E8,1
70 OUT &F8E0,26
80 OUT &F8E8,2
90 OUT &F8E0,26
100 OUT &F8E8,7
110 OUT &F8E0,&33
120 OUT &F8EC,&88
130 OUT &F8ED,1
140 OUT &F8EE,1
150 CALL &BB81
160 DOTAG=0
170 T=INP(&F8EF)
180 RS=INP(&F8ED)
190 IF RS<128 THEN GOTO 220
200 Z=INP(&F8EF)
210 IF Z = 60 THEN DOTAG=1: ELSE IF DOTAG=1 AND Z=62 THEN DOTAG=0: ELSE IF DOTAG = 0 THEN PRINT CHR$(Z);
220 A$=INKEY$
230 IF A$ = "" THEN GOTO 180
240 T=INP(&F8EE)
250 IF T < 128 THEN GOTO 180
260 OUT &F8EF,ASC(A$)
270 GOTO 180



@Rpalmer, thanks for letting us know... how does the wiki look on it?

[rpalmer]

The ethernet card is still being tested (but due to a new job, i have less time and so is taking me much longer).