Remove all files, redirect to GitHub.HEADmaster

1 files changed, 0 insertions, 156 deletions

diff --git a/tests/examplefiles/example.bbc b/tests/examplefiles/example.bbc
deleted file mode 100644
index ebdb8537..00000000
--- a/tests/examplefiles/example.bbc
+++ /dev/null
@@ -1,156 +0,0 @@
-10REM >EIRC
-20REM The simplest IRC client you can write. Maybe.
-30REM (C) Justin Fletcher, 1998
-40:
-50END=PAGE+1024*16
-60REM Change these if you wish
-70host$="irc.stealth.net"
-80port=6667
-90nick$="eirc"
-100ourchan$="#acorn"
-110:
-120REM Start connecting to a host
-130SYS "ESocket_ConnectToHost",host$,port TO handle
-140REPEAT
-150 SYS "ESocket_CheckState",handle TO state
-160 IF state<-1 THENSYS "ESocket_Forget",handle:SYS "ESocket_DecodeState",state TO a$:ERROR 1,"Failed ("+a$+")"
-170UNTIL state=4
-180:
-190REM We are now connected
-200PRINT"Connected"
-210:
-220REM Log on to the server
-230SYS "ESocket_SendLine",handle,"USER "+nick$+" x x :"+nick$
-240SYS "ESocket_SendLine",handle,"NICK "+nick$
-250SYS "ESocket_SendLine",handle,"JOIN "+ourchan$
-260REM Install a monitor so that we don't waste time
-270SYS "ESocket_Monitor",0,handle TO monitor
-280SYS "ESocket_ResetMonitor",monitor,0 TO polladdr%
-290:
-300REM If we crash, we should tidy up after ourselves
-310ON ERROR SYS "XESocket_Forget",handle:SYS "XESocket_Forget",monitor:ERROR EXT ERR,REPORT$+" at line "+STR$ERL
-320:
-330REM Memory buffer for our data
-340bufsize%=1024
-350DIM buf% bufsize%
-360:
-370input$="":REM The input line
-380REPEAT
-390 REM In a taskwindow we should yield until there is data
-400 SYS "OS_UpCall",6,polladdr%
-410 IF !polladdr%<>0 THEN
-420  REM Reset the monitor for the time being
-430  SYS "ESocket_ResetMonitor",monitor,0 TO polladdr%
-440  REPEAT
-450   REM Read lines from the connection until this buffer is empty
-460   SYS "ESocket_ReadLine",handle,buf%,bufsize%,%100 TO ,str,len
-470   IF str<>0 AND $str<>"" THEN
-480    line$=$str
-490    IF LEFT$(line$,4)="PING" THEN
-500     REM Ping's must be replied to immediately
-510     SYS "ESocket_SendLine",handle,"PONG "+MID$(line$,6)
-520    ELSE
-530     REM Extract source info
-540     from$=MID$(LEFT$(line$,INSTR(line$+" "," ")-1),2)
-550     line$=MID$(line$,INSTR(line$+" "," ")+1)
-560     uid$=LEFT$(from$,INSTR(from$+"!","!")-1)
-570     com$=LEFT$(line$,INSTR(line$+" "," ")-1)
-580     line$=MID$(line$,INSTR(line$+" "," ")+1)
-590     REM remove the input line
-600     IF input$<>"" THENFORI=1TOLEN(input$):VDU127:NEXT
-610     CASE FNupper(com$) OF
-620      WHEN "PRIVMSG"
-630       REM Extract the destination
-640       chan$=LEFT$(line$,INSTR(line$+" "," ")-1)
-650       line$=MID$(line$,INSTR(line$+" "," ")+2):REM Skip :
-660       IF LEFT$(line$,1)=CHR$1 THEN
-670        REM CTCP, so respond to it
-680        line$=MID$(line$,2,LEN(line$)-2)
-690        com$=LEFT$(line$,INSTR(line$+" "," ")-1)
-700        line$=MID$(line$,INSTR(line$+" "," ")+1)
-710        CASE FNupper(com$) OF
-720         WHEN "PING"
-730          REM Ping lag timing
-740          line$="PONG "+line$
-750          PRINTuid$;" pinged us"
-760         WHEN "VERSION"
-770          REM Version checking
-780          line$="VERSION EIRC 1.00 (c) Justin Fletcher"
-790          PRINTuid$;" wanted our version"
-800         WHEN "ACTION"
-810          PRINT"* ";uid$;" ";line$
-820          line$=""
-830         OTHERWISE
-840          REM everything else is an error
-850          line$="ERRMSG "+com$+" not understood"
-860          PRINT"CTCP '";com$;"' from ";uid$;" (";line$;")"
-870        ENDCASE
-880        IF line$<>"" THEN
-890         SYS "ESocket_SendLine",handle,"NOTICE "+uid$+" :"+CHR$1+line$+CHR$1
-900        ENDIF
-910       ELSE
-920        REM Somebody said something...
-930        PRINT"<";uid$;"> ";FNsafe(line$)
-940       ENDIF
-950      WHEN "JOIN"
-960       REM We (or someone else) has joined the channel
-970       chan$=LEFT$(line$,INSTR(line$+" "," ")):REM Skip :
-980       IF LEFT$(chan$,1)=":" THENchan$=MID$(chan$,2)
-990       PRINTuid$;" has joined ";chan$
-1000      WHEN "PART"
-1010       REM Someone else has left the channel
-1020       chan$=LEFT$(line$,INSTR(line$+" "," ")-1)
-1030       IF LEFT$(chan$,1)=":" THENchan$=MID$(chan$,2)
-1040       PRINTuid$;" has left ";chan$
-1050      WHEN "QUIT"
-1060       REM Someone else has quit IRC
-1070       PRINTuid$;" quit IRC"
-1080      OTHERWISE
-1090       REM Some unknown command
-1100       PRINTuid$;":";com$;":";FNsafe(line$)
-1110     ENDCASE
-1120     REM Re-display our input line
-1130     PRINTinput$;
-1140    ENDIF
-1150   ENDIF
-1160  UNTIL str=0
-1170 ENDIF
-1180 b$=INKEY$(0)
-1190 IF b$<>"" THEN
-1200  CASE b$ OF
-1210   WHEN CHR$13
-1220    SYS "ESocket_SendLine",handle,"PRIVMSG "+ourchan$+" :"+input$
-1230    REM Remove the line
-1240    IF input$<>"" THENFORI=1TOLEN(input$):VDU127:NEXT
-1250    REM We said it...
-1260    PRINT"<"+nick$+"> ";input$
-1270    input$=""
-1280   WHEN CHR$127,CHR$8
-1290    REM Backspace
-1300    IF input$<>"" THENVDU127
-1310    input$=LEFT$(input$)
-1320   OTHERWISE
-1330    REM Ad to current input
-1340    input$+=b$
-1350    PRINTb$;
-1360  ENDCASE
-1370 ENDIF
-1380 REM Has the socket closed
-1390 SYS "ESocket_Closed",handle,%0 TO closed
-1400UNTIL closed
-1410SYS "ESocket_Forget",handle
-1420SYS "ESocket_Forget",monitor
-1430END
-1440:
-1450DEFFNupper(a$):LOCAL c$,b$,I
-1460FORI=1TOLEN(a$)
-1470c$=MID$(a$,I,1):IF c$>="a"ANDc$<="z"THENc$=CHR$(ASC(c$)-32)
-1480b$+=c$:NEXT:=b$
-1490
-1500REM Remove control codes
-1510DEFFNsafe(line$)
-1520LOCAL I
-1530FORI=1TOLEN(line$)
-1540 IF MID$(line$,I,1)<" " THENMID$(line$,I,1)="*"
-1550NEXT
-1560=line$