- if(N == 0)return;
- BLANK=game.blklin;
- K=N;
- NPARMS=1;
-L10: L=labs(LINES[K])-1;
- K=K+1;
- LNLENG=0;
- LNPOSN=1;
- STATE=0;
- for (I=K; I<=L; I++) {
- PUTTXT(LINES[I],STATE,2);
- } /* end loop */
- LNPOSN=0;
-L30: LNPOSN=LNPOSN+1;
-L32: if(LNPOSN > LNLENG) goto L40;
- if(INLINE[LNPOSN] != 63) goto L30;
- {long x = LNPOSN+1; PRMTYP=INLINE[x];}
-/* 63 is a "%"; the next character determine the type of parameter: 1 (!) =
- * suppress message completely, 29 (S) = NULL If PARM=1, else 'S' (optional
- * plural ending), 33 (W) = word (two 30-bit values) with trailing spaces
- * suppressed, 22 (L) or 31 (U) = word but map to lower/upper case, 13 (C) =
- * word in lower case with first letter capitalised, 30 (T) = text ending
- * with a word of -1, 65-73 (1-9) = number using that many characters,
- * 12 (B) = variable number of blanks. */
- if(PRMTYP == 1)return;
- if(PRMTYP == 29) goto L320;
- if(PRMTYP == 30) goto L340;
- if(PRMTYP == 12) goto L360;
- if(PRMTYP == 33 || PRMTYP == 22 || PRMTYP == 31 || PRMTYP == 13) goto
- L380;
- PRMTYP=PRMTYP-64;
- if(PRMTYP < 1 || PRMTYP > 9) goto L30;
- SHFTXT(LNPOSN+2,PRMTYP-2);
- LNPOSN=LNPOSN+PRMTYP;
- PARM=labs(PARMS[NPARMS]);
- NEG=0;
- if(PARMS[NPARMS] < 0)NEG=9;
- /* 390 */ for (I=1; I<=PRMTYP; I++) {
+ if (N == 0)
+ return;
+ blank=game.blklin;
+ K=N;
+ NPARMS=1;
+L10:
+ L=labs(LINES[K])-1;
+ K=K+1;
+ LNLENG=0;
+ LNPOSN=1;
+ state=0;
+ for (I=K; I<=L; I++) {
+ PUTTXT(LINES[I],state,2);
+ } /* end loop */
+ LNPOSN=0;
+L30:
+ LNPOSN=LNPOSN+1;
+L32:
+ if(LNPOSN > LNLENG)
+ goto L40;
+ if(INLINE[LNPOSN] != 63)
+ goto L30;
+ {long x = LNPOSN+1; PRMTYP=INLINE[x];}
+ /* 63 is a "%"; the next character determine the type of
+ * parameter: 1 (!) = suppress message completely, 29 (S) = NULL
+ * If PARM=1, else 'S' (optional plural ending), 33 (W) = word
+ * (two 30-bit values) with trailing spaces suppressed, 22 (L) or
+ * 31 (U) = word but map to lower/upper case, 13 (C) = word in
+ * lower case with first letter capitalised, 30 (T) = text ending
+ * with a word of -1, 65-73 (1-9) = number using that many
+ * characters, 12 (B) = variable number of blanks. */
+ if(PRMTYP == 1)
+ return;
+ if(PRMTYP == 29)
+ goto L320;
+ if(PRMTYP == 30)
+ goto L340;
+ if(PRMTYP == 12)
+ goto L360;
+ if(PRMTYP == 33 || PRMTYP == 22 || PRMTYP == 31 || PRMTYP == 13)
+ goto L380;
+ PRMTYP=PRMTYP-64;
+ if(PRMTYP < 1 || PRMTYP > 9) goto L30;
+ SHFTXT(LNPOSN+2,PRMTYP-2);
+ LNPOSN=LNPOSN+PRMTYP;
+ PARM=labs(PARMS[NPARMS]);
+ NEG=0;
+ if(PARMS[NPARMS] < 0)
+ NEG=9;
+ /* 390 */ for (I=1; I<=PRMTYP; I++) {