Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0020/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