ATARI HTTP AI PROGRAM
=====================

10 DIM Q$(80),E$(160),U$(200),BASE$(60)
15 BASE$="N:http://ai.atari130xe.com/ask?q="
20 PRINT :PRINT "ATARI AI LINK READY."
30 PRINT :PRINT "WHAT CAN I DO FOR YOU? (EMPTY TO QUIT):"
40 INPUT Q$
50 IF Q$="" THEN PRINT "GOODBYE.":END
60 GOSUB 300
70 GOSUB 200
80 PRINT :PRINT "WORKING ON IT..."
90 TRAP 180
100 OPEN #1,4,0,U$
110 PRINT :PRINT "BEHOLD MY WORDS!..."
120 GET #1,C
130 IF C=13 OR C=10 THEN PRINT :GOTO 120
140 PRINT CHR$(C);
150 GOTO 120
180 REM EOF / NETWORK ERROR HANDLER
190 CLOSE #1
195 PRINT :PRINT "-------------"
197 GOTO 30
200 REM BUILD FULL URL
210 U$=BASE$
220 L=LEN(BASE$)
230 FOR I=1 TO LEN(E$)
240 U$(L+I,L+I)=E$(I,I)
250 NEXT I
260 RETURN
300 REM SIMPLE ENCODER: SPACE => %20
310 E$=""
320 P=1
330 FOR I=1 TO LEN(Q$)
340 C=ASC(Q$(I,I))
350 IF C=32 THEN E$(P,P)="%":P=P+1:E$(P,P)="2":P=P+1:E$(P,P)="0":P=P+1:GOTO 380
360 E$(P,P)=Q$(I,I):P=P+1
380 NEXT I
390 RETURN