| Line 840... |
Line 840... |
* 26 LOCATION HAS NO TRAVEL ENTRIES
|
* 26 LOCATION HAS NO TRAVEL ENTRIES
|
* 27 HINT NUMBER EXCEEDS GOTO LIST
|
* 27 HINT NUMBER EXCEEDS GOTO LIST
|
* 28 INVALID MONTH RETURNED BY DATE FUNCTION
|
* 28 INVALID MONTH RETURNED BY DATE FUNCTION
|
* 29 TOO MANY PARAMETERS GIVEN TO SETPRM */
|
* 29 TOO MANY PARAMETERS GIVEN TO SETPRM */
|
|
|
puts("Fatal error ");
|
printf("Fatal error %d. See source code for interpretation.\n", NUM);
|
po_num(NUM);
|
|
puts(". See source code for interpretation.\n");
|
|
exit(FALSE);
|
exit(FALSE);
|
}
|
}
|
|
|
|
|
|
|
| Line 897... |
Line 895... |
/* if(feof(stdin)) score(1); */
|
/* if(feof(stdin)) score(1); */
|
goto L20;
|
goto L20;
|
|
|
L15: if(!OPENED){
|
L15: if(!OPENED){
|
OPENED=mopen("adventure.text","r" /* NOT binary */);
|
OPENED=mopen("adventure.text","r" /* NOT binary */);
|
if(!OPENED){puts("Can't read adventure.text!\n"); exit(FALSE);}
|
if(!OPENED){printf("Can't read adventure.text!\n"); exit(FALSE);}
|
}
|
}
|
mgets(INLINE+1,100,OPENED);
|
mgets(INLINE+1,100,OPENED);
|
|
|
L20: LNLENG=0;
|
L20: LNLENG=0;
|
/* 25 */ for (I=1; I<=100 && INLINE[I]!=0; I++) {
|
/* 25 */ for (I=1; I<=100 && INLINE[I]!=0; I++) {
|
| Line 927... |
Line 925... |
* FROM INTEGERS TO TEXT PER THE RULES DESCRIBED ABOVE. INLINE(I),
|
* FROM INTEGERS TO TEXT PER THE RULES DESCRIBED ABOVE. INLINE(I),
|
* I=1,LNLENG MAY BE CHANGED BY THIS ROUTINE. */
|
* I=1,LNLENG MAY BE CHANGED BY THIS ROUTINE. */
|
|
|
|
|
if(LNLENG != 0) goto L10;
|
if(LNLENG != 0) goto L10;
|
puts("\n");
|
printf("\n");
|
return;
|
return;
|
|
|
L10: if(MAP2[1] == 0)MPINIT();
|
L10: if(MAP2[1] == 0)MPINIT();
|
/* 20 */ for (I=1; I<=LNLENG; I++) {
|
/* 20 */ for (I=1; I<=LNLENG; I++) {
|
VAL=INLINE[I];
|
VAL=INLINE[I];
|
L20: {long x = VAL+1; INLINE[I]=MAP2[x];}
|
L20: {long x = VAL+1; INLINE[I]=MAP2[x];}
|
} /* end loop */
|
} /* end loop */
|
{long x = LNLENG+1; INLINE[x]=0;}
|
{long x = LNLENG+1; INLINE[x]=0;}
|
puts(INLINE+1);
|
printf(INLINE+1);
|
puts("\n");
|
printf("\n");
|
return;
|
return;
|
}
|
}
|
|
|
|
|
|
|
| Line 1002... |
Line 1000... |
goto L10; case 0: goto L20; case 1: goto L30; }}
|
goto L10; case 0: goto L20; case 1: goto L30; }}
|
|
|
L10: fclose(F);
|
L10: fclose(F);
|
return;
|
return;
|
|
|
L20: puts("\nFile name: ");
|
L20: printf("\nFile name: ");
|
gets(NAME);
|
gets(NAME);
|
F=mopen(NAME,(IN ? READ_MODE : WRITE_MODE));
|
F=mopen(NAME,(IN ? READ_MODE : WRITE_MODE));
|
if(F == NULL) {puts("Can't open file, try again.\n"); goto L20;}
|
if(F == NULL) {printf("Can't open file, try again.\n"); goto L20;}
|
return;
|
return;
|
|
|
L30: if(IN)fread(ARR,4,250,F);
|
L30: if(IN)fread(ARR,4,250,F);
|
if(!IN)fwrite(ARR,4,250,F);
|
if(!IN)fwrite(ARR,4,250,F);
|
return;
|
return;
|
