Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50110/tapela.uti
There are 2 other files named tapela.uti in the archive. Click here to see a list.
100'  NAME--TAPELABL
110'
120'  DESCRIPTION--LABELS A PAPER TAPE
130'
140'  SOURCE--DONALD J. KOLAFA
150'
160'  INSTRUCTIONS--TYPE "RUN" AND INSTRUCTIONS WILL BE GIVEN
170'
180'
190'  *  *  *  *  *  *  *   MAIN PROGRAM  *  *  *  *  *  *  *  *  *  *
200'
210 DATA 0,0,0,0,0         ' (BLANK)
220 DATA 0,0,31,0,0        ' !
230 DATA 0,3,0,3,0         ' "
240 DATA 40,124,40,124,40  ' #
250 DATA 66,69,127,73,114  ' $
260 DATA 67,33,9,69,65     ' %
270 DATA 112,14,25,37,66   ' &
280 DATA 0,0,3,0,0         ' '
290 DATA 0,0,126,1,0       ' (
300 DATA 0,1,126,0,0       ' )
310 DATA 18,12,30,12,18    ' *
320 DATA 48,48,120,48,48   ' +
330 DATA 0,32,96,0,0       ' ,
340 DATA 48,48,48,48,48    ' -
350 DATA 0,64,64,0,0       ' .
360 DATA 64,96,24,6,3      ' /
370 DATA 0,126,1,126,0     ' 0
380 DATA 0,70,127,64,0     ' 1
390 DATA 70,97,81,73,70    ' 2
400 DATA 66,1,1,13,114     ' 3
410 DATA 30,24,24,127,24   ' 4
420 DATA 95,73,73,73,113   ' 5
430 DATA 126,81,73,73,114  ' 6
440 DATA 1,65,33,17,15     ' 7
450 DATA 114,13,1,13,114   ' 8
460 DATA 6,9,9,9,126       ' 9
470 DATA 0,99,99,0,0       ' :
480 DATA 0,35,99,0,0       ' ;
490 DATA 0,12,18,33,0      ' <
500 DATA 40,40,40,40,40    ' =
510 DATA 0,33,18,12,0      ' >
520 DATA 6,3,59,9,6        ' ?
530 DATA 102,19,19,51,126  ' @
540 DATA 124,10,9,10,124   ' A
550 DATA 127,25,25,25,102  ' B
560 DATA 126,1,1,1,66      ' C
570 DATA 127,1,1,1,126     ' D
580 DATA 127,25,25,1,1     ' E
590 DATA 127,27,27,3,3     ' F
600 DATA 126,1,1,49,114    ' G
610 DATA 127,24,24,24,127  ' H
620 DATA 0,1,127,1,0       ' I
630 DATA 96,64,64,96,63    ' J
640 DATA 127,24,36,66,1    ' K
650 DATA 127,64,64,64,64   ' L
660 DATA 127,6,12,6,127    ' M
670 DATA 127,6,24,96,127   ' N
680 DATA 126,1,1,1,126     ' O (NON-SLASHED)
690 DATA 127,9,9,9,6       ' P
700 DATA 126,1,49,49,126   ' Q
710 DATA 127,9,57,105,70   ' R
720 DATA 66,69,1,73,114    ' S
730 DATA 3,3,127,3,3       ' T
740 DATA 127,64,64,64,127  ' U
750 DATA 63,96,64,96,63    ' V
760 DATA 127,64,96,64,127  ' W
770 DATA 1,36,24,36,1      ' X
780 DATA 3,6,124,6,3       ' Y
790 DATA 1,97,25,7,1       ' Z
800 DATA 0,127,1,1,0       ' [
810 DATA 3,6,24,96,64      ' \
820 DATA 0,1,1,127,0       ' ]
830 DATA 12,6,127,6,12     ' ^
840 DIM A(5,63),B(60),C(60)
850 FOR I=1 TO 10
860 LET C(I)=127
870 NEXT I
880 LET C(11)=103
890 LET C(12)=67
900 LET C(13)=1
910 FOR I=14 TO 60
920 LET C(I)=0
930 NEXT I
940 LET C(0)=60
950 CHANGE C TO B$
960 FOR I=1 TO 63
970 FOR J=1 TO 5
980 READ A(J,I)
990 NEXT J
1000 NEXT I
1010 PRINT "PAPER TAPE LABELING ROUTINE--"
1020 PRINT
1030 PRINT "(1)  ENTER THE CHARACTERS DESIRED TO BE PUNCHED ON TAPE."
1040 PRINT "(2)  TURN ON PAPER TAPE PUNCH."
1050 PRINT "(3)  60 RUB-OUTS WILL BE PUNCHED AFTER THE LABEL.  DURING THESE"
1060 PRINT "     PUNCHES, TURN OFF THE PAPER TAPE PUNCH."
1070 PRINT
1080 PRINT "ENTER LABEL ";
1090 INPUT C$
1100 PRINT B$;
1110 CHANGE C$ TO C
1120 FOR K=1 TO C(0) STEP 8
1130 LET L=0
1140 LET J1=K+7
1150 IF J1 <= C(0) THEN 1170
1160 LET J1=C(0)
1170 FOR J=K TO J1
1180 LET L=L+1
1190 LET I1=C(J)-31
1200 IF I1<1 THEN 1430
1210 IF I1>63 THEN 1430
1220 LET B(L)=0
1230 FOR I=1 TO 5
1240 LET B(L+I)=A(I,I1)
1250 NEXT I
1260 LET L=L+6
1270 LET B(L)=0
1280 NEXT J
1290 LET B(0)=L
1300 CHANGE B TO B$
1310 PRINT B$;
1320 NEXT K
1330 LET B(1)=24
1340 LET B(2)=60
1350 LET B(3)=126
1360 FOR I=4 TO 60
1370 LET B(I)=127
1380 NEXT I
1390 LET B(0)=60
1400 CHANGE B TO B$
1410 PRINT B$
1420 STOP
1430 LET I1=1
1440 GO TO 1220
1450 END