10DEFFNS="Loader"
20MODE0
30VDU23;8202;0;0;0;
40*LO. Pic FFFF3000
50FORL%=1TO3000
60NEXT
70PRINTTAB(0,0);"Do you have room for
this vehicle on your drive?"
80PRINTTAB(0,31);"(Comes complete wit
h large family and various tents)";
90L%=300
100REPEAT
110L%=L%+1
120IFL%=600 L%=1
130IF L%<300 PRINTTAB(30,10);"CJR here
"; ELSE PRINTTAB(30,10);SPC(8);
140IF INKEY(0)=32:OSCLI"EX.!BOOT":END
150UNTIL FALSE