32825 B 65x02 Tube test program(C)2014 J.G.HarstonANDSWAPHASNHTAB(HUSROPENUPCOLOUROSCLI0OSCLINot 
28270 ing on TubeOPENUPRNDOSCLIWHENLPLOTCHR$RECTANGLECIRCLEERRORONERRORPROCCHR$SWAPCIRCLEERRORVDUERRORREAD MODEOR RNDOSCLIOld MOS EXTSYSEVALAND EOFOSCLI IFOSCLI RNDOSCLIA=&CHR$FILLCIRCLE LNOSCLI RNDOSCLI  X=&CHR$CIRCLECIRCLE LNOSCLI RNDOSCLI  Y=&CHR$ELLIPSECIRCLE LNOSCLI RNDOSCLI  S=&01TAB(
 8196 LNOSCLI RNDOSCLI  P=&CHR$MOUSECIRCLE LNOSCLI RNDOSCLI MEMBOT=&LENMOD REM    MEMTOP=&    *L TUBE MOS entries: PRHEX:
 8224 EXTTAB( LNOSCLIINPUTENDPRIVATEPAGERESTORE RNDOSCLI PR2HEX:   EXT
 8192 OPENUPOSCLI GCOLEORINPUTINPUTCASECASECASELEFT$(PRIVATEPAGEPRINT RNDOSCLI PRTEXT:   This is using PRTEXT RNDOSCLI PRSTRING: EXTORIGINEVALMOD EOFOSCLI RNDOSCLIERRJMP:   save BRKVOPENUPELLIPSEELLIPSE28099FILLELLIPSE24771RNDOSCLI, claim BRKVLENSTOP26946DIV24642RNDOSCLI, generate errorOSCLITe
25888     rror message RNDOSCLI ERRJMP:   caught error: EVALPOSUNTIL LNOSCLI GCOLEORINKEYUNTILFNWIDTHINPUTPAGECIRCLECASE EOFOSCLI RNDOSCLI ERRJMP:   restore BRKVOPENUP"#  OS_C
 8250       *help   OSQUIT Lhhhh $$00
34152     STOPhERRORCOLOUR MID$(EORlSTOPLINESTOPORCOLOUREVALPOSSTOPPLOTFILL FOROSCLIGCOLSTOPPAGEELLIPSEGCOLCOLOURINTPAGEON`ASN PAGEEORTAB(HJJJJ CLOSEEORh)BYWHENTINTPAGEELLIPSEiQUITi0LONOSCLILEN LONOSCLI RNDOSCLI Press a key... ENDOSCLILMOVEOSCLIT
 8307     is using PRSTRING help LPAGEEORLENDCASEEORLINTEORLSGNEOR

Download Test65hi

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.