1 CLS
10 X=10
100 PRINT"1:Send a value"
110 PRINT"2:Send values"
120 PRINT"3:Get buffer index"
130 PRINT"4:Get next value"
140 PRINT"5:Get values"
150 PRINT"6:Get all values"
155 PRINT"9:End"
160 i$=INKEY$
170 IF i$="9" THEN 500
180 IF i$="1" THEN 330
190 IF i$="2" THEN 350 
200 IF i$="3" THEN 370
210 IF i$="4" THEN 390 
220 IF i$="5" THEN 450
230 IF i$="6" THEN 430
300 GOTO 160
330 OUT &FBD0,x 
331 CLS
340 X=X+1
349 GOTO 100
350 INPUT"How many? :",nof   
351 CLS
352 FOR z=0 TO nof       
354 OUT &FBD0,z
357 NEXT z     
369 GOTO 100
370 INVAL=INP(&FBD1)
371 CLS
380 PRINT"Buffer = ",inval
389 GOTO 100
390 inval=INP(&FBD0)
391 CLS
395 PRINT"Value=",inval
409 GOTO 100
411 CLS
430 CLS
432 WHILE INP(&FBD1)>0
434 inval=INP(&FBD0)
436 PRINT inval
438 WEND
449 GOTO 100
450 CLS      
452 INPUT"How many?",nof
453 FOR z=0 TO nof  
454 IF INP(&FBD1)=0 THEN 460  
456 inval=INP(fbd0)
458 PRINT inval
460 NEXT z
470 GOTO 100
500 CLS
510 END