10 ! PROGRAM TO TEST TERMINALS
20 ! WILL SEND SINGLE CHARACTERS OR MULTIPLE
30 DIM A$[80]V,DV$[4]
40 INPUT "TEST TERMINAL (DDNN) 4 DIGITS, NO : ",DV$
50 OPEN #3,DV$+":/LN:80/WR"
60 INPUT "CHARACTER TO SEND",A$
70 INPUT "TOTAL NUMBER OF CHARACTERS TO SEND",NC
80 FOR I=1 TO 79 : A$=A$+SBS$(A$,1,1) : NEXT I
90 IF NC<80 GOTO 120
100 PRINT #3,A$; : BREAK 
110 NC=NC-80
115 GOTO 90
120 PRINT #3,SBS$(A$,1,NC)
130 GOTO 70
