Trailing-Edge
-
PDP-10 Archives
-
decuslib10-02
-
43,50261/sign.sav
There are no other files named sign.sav in the archive.
h '0@ C- 1x ,I( x -(=@ / d J $ D G-\ "4 A4 B4 K4
B4 E4 F " 6b + 9(' TYPE "H" FOR HELP',/) " :b + <(' *',$) " >B K + ?(A5) D3D K+ 9 : Z L K3Dh
E+ K1: 9 AI" Fb KG + I('?NOTACOMMAND:L',A5) "" 6b + 96b L0b 7 + L4 Q4 y4 q4 U4 >4 "4 54 4 ? G0D g O L1F g O A 4$ [ " Xb + [(' ?NO SIGN IN CORE',/) + 9 " ^B} K K5D g+ `(5X,I) " ab + d(' WHAT LINE NUMBER? ',$) " fB K + g(I) K4d j" K. L5$ p " lb K + p(' ?LINE #',I2,' DOES NOT EXIST') + 9 L D M " sb + u('+(NEW) ',$) "$ . K D LO@ I+ y M D L@@ I+ 9: L $ 2$ L+ " }b + (' ?TOO MANY LINES- "PRINT" THE SIGN.',/) + @@ M G4D $ D N+ I4$ " b F L +
n X@
nB
4 + (13A1) D3D
!+ " b + (' ?TOO MANY CHARACTERS --LINE NOT COMPILED') I4$ w> L@@ I+ 9 : Z N D2Dh
+ %0z = ! $ D N $ / N7 .$ ( D O L@@
@ N7 .$ (( N3F + . L & F
@ M/ N5$ M: M M. O D O D M3D
+ n : Z L M
3Dh
!+ @1: 9 4 " :b M
+ @(' ?NOT A RECOGNIZED SYMBOL: 'A2,' TRY AGAIN') + L D O@ " K jX@
n jX@
nB : Z P & <$ ( $ O. L. (
P1: 9 E + L(8A7)+ . O4d X : Z P : Z Q $ <$ & $ P. L. ( H
H HP JQ1: 9 P P3: O9 N M. O & / 4f e $ . M. O Z P : Z Q $ <$ & $ P. L. ( @@P@BQ1: 9 ^ P1: 9 \ $ 3d Lg O A I4$ y@@ I I4$ w+ 9 " kb + q(' ?CANNOT ACCESS SYMBOL DATA FILE SYS:SIGN.LIB ')+ 9 " sb + C(' SIGN MAKER V.4',/,' COMMANDS:'/,' INLINE-TYPED TO INPUT EACH LINE OF A SIGN',/,' INSIGN- TYPED TO INPUT A WHOLE SIGN, RATHER THAN',/,' A LINE AT A TIME.',/,' PRINT-PRINTS ASSEMBLED SIGN AND CLOSES FILE',/,' DEFSYM-LETS USER DEFINE A CHARACTER OR SYMBOL',/,' ERASE N- TO REPLACE THE NTH LINE OF A SIGN',/,' WIPE- ZEROES OUT THE SIGN IN CORE AND RESETS LINE-COUNTER',/,' H-THIS TEXT',/,' EXIT -TO EXIT FROM THE PROGRAM',/,' PARAMETERS:',/,' 12 CHARS/LINE 10 LINES/SIGN',/,' THE USER DEFINED SYMBOL IS',/,' INCLUDED IN A SIGN BY TYPE THE CHARACTER "@" IN ITS',/,' PLACE WHEN YOU INPUT A STRING TO "INLINE"',/,' OR "INSIGN" AFTER USING "DEFSYM"'/,' FURTHER INSTRUCTIONS FOR USE OF "INSIGN " AND "DEFSYM"',/,' WILL BE OFFERED AT APPROPRIATE TIMES.',/,' ALL SIGNS ARE CENTERED AUTOMATICALLY'/) " Eb + J(' DO YOU WISH TO SEE CHARACTER SET?(Y OR N)',$) " LB Q + M(A1) E3D Q+ 9 " Qb
"4 + T(1X,30A2,/,1X,32A2,/) + 9 G4d [ " Wb + Z(' ?NOTHING TO PRINT',/) + 9 $ $ L & / 7 .& ( F R GX@ ` " jb GX@ c " jb R4d k : Z N GX@ g " jb "$ . R3: 9 f+ k(' ') : Z L h
@5d GX@ o " xb : Z P : Z R $ <$ P & $ . L. (
P1: 9 q P1: 9 p< + {(8(' ',7X,12(A7,3X)/)/) $ 3D L+ GX@ ~ " b + (' ',/,' ') + GX@ "
P1: 9 P1: 9 + (8(' ',11X,12(A7,3X)/)/) $ 3D L+ GX@ " b L3: L9 l-\ 4 G@@ L $ D G+ 9: F@@ G SX@
k " F + ('SGN',I2)-\ 4 G4 S6b N0b 7 +!4 4
L0D g O & 2F Gg O G 4$ / " )b F + .(' ?YOU HAVE NOT PRINTED SIGN',I3,' YET') + 9 " 1b F + 5(' TOTAL OF ',I3,' SIGNS CREATED') -\ " b " >B K E3D K+ Z " <b + Z(' EACH SYMBOL IS 7 CHARACTERS ACROSS AND 8',/, ' CHARACTERS HIGH. YOUR DEFINED SYMBOL IS CALLED BY',/, ' TYPING THE CHARACTER "@" IN ITS PLACE WHEN YOU',/, ' INPUT A STRING TO THE COMMAND "INLINE". NOW TYPE IN A',/, ' ROW OF YOUR SYMBOL AFTER EACH "^" APPEARS.',/, ' (<CR> AFTER EACH ROW)') " [b + ^(' 1234567',/) : Z P " ab + c('+',I1,'^',$) " gB P(
P1: 9 ^+ h(A7) " jb + m(' NEW SYMBOL DEFINED'/) O@ J+ 9L J4$ x : Z L $ <$ & $ O. L. (
(
0
0
HP JQ1: 9 p+ . " yb + (' "@" MUST NOT APPEAR IN AN INPUT STRING UNTIL',/, ' YOU HAVE GONE THRU DEFSYM DIALOG TO DEFINE THE SYMBOL',/, ' THE LINE HAS NOT BEEN COMPILED.'/) + G4D
$ D N+ J4$ ; " b + (' INSTRUCTIONS? (Y OR N):',$) " B K + (A1) " b + (' ') E3D K+ : " b + :(' FAST FORM OF INLINE COMMAND',/,' KEEPS YOU IN INLINE MODE. TYPE IN A LINE OF THE',/,' SIGN AFTER EACH "LINE NO.:" APPEARS. TO RETURN TO',/,' COMMAND LEVEL, TYPE A ^Z. ANY ERROR RETURNS',/,' YOU TO COMMAND MODE . THERE IS AN AUTOMATIC',/,' RETURN TO COMMAND MODE AFTER THE',/,' TENTH LINE OF A SIGN IS INPUT.'//)O@ JO@ I+ >('+LINE ',I2,': ',$)+ y+ 9@@ L+ 9-\ + 0 SIGN.LIB XC @ N xF pG
??????? ??????? ??????? ??????? ??????? ??????? ??????? ??????? |
!A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 . , ? - $ * = & < > + / ! ' : # " ^ _ % ; ( ) [ ] 0
EERASEINLINH PRINT EXIT DEFSYINSIGWIPE x
Jh
KH i| ~`
L
f
n ` +
v 2@
g+
z@ . @ 5 <
+ 5gg M?L@8
p?CANNOT ACCESS FORTR.SHR - GETSEG ERROR CODE ~@
u
&
q& 4@
x.
" ."
" `
&
{ ` ?LIBRARY(FORTR.SHR) AND USER PROGRAM VERSION NUMBERS ARE DIFFERENT }` INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INZ INZ INZ INZ0 INZ@ I2 I2 I20 I2@ I2P eX2G iSH YC aS iSH u`1*
^ @
W* 80@ +
+
g*
^+ 1*
^+ 6$ " <ZB * " + b @@ ,~ X > + X
ax + DP` h8Zax~+ E8 0x ?+ p18 0+ A8 + `bax @ + p8 X + X 9 * h8 D Y +bX 7 X +`x +
7! 7 U8,> 8 1x ?18 0+ A8 + `R+ Z+ [+ a+ V+ Z+ Z+ a,>x ,_ ,_ + o: A8 X ,_ + o .8 A8 X ,^ ,> U87 8x ,> + V ,_ + o+ m+ j+ h+ f+ m+ m+ h +d8~ l8 + n +d8pl8 + n8 x .8 d l8 + nR +d8~l8 * +@ X : + +h8Z `x~ + v`XXX +`x + vU8?@AX + + +
ax : ax @ + X8 `x 8 `x 8 Z` ,> ,> ,> Z
3b +@ 6, p p
Z
3b +@ 6,^ ,^ ,^ + t}` :6$` 1X -+ m+ p. +h` 0 s ,> _ ({jb m8~ d8~ 3" g (
,^ + O@ 6% +1X -+ Z1X ,+ X,^ + p9 . X8 `x 8 + {KbND p+ KbN@ X+@ 6, +@ 6" ` X p X@ p ` -|p ` p -|p I5R| " p 0b + 7$" Zp Z*
?p @\${ 4F *1F + A/& F 8$ 'R`CT ACCESS DEVICE NUMBER XX IS ILLEGAL H H