Program Logic Manual - All about the IBM 1130 Computing System

STARTAL*4.4• •• A4% •••• XA3 .. A4••. INITIALIZE .. NU•PHASE.. CONTINUE 06... ... ILEF %.n..• ••.1E**X • •• YES •.:ES Iwo.. • 85 .OM :• •. . • C5 • .....• FIT ..X. .'......ABEL ••. ..LIZPUT k81 .. 83 • 84'....• •PLAVE UNO .. END ..NO .. •. .. a. YES •IN STRINGG TEST OVER •....•. STATEMENT .•..... ID OK .. •. CONTINUE ...... CON4NUE *.STATEMENT.. • STATEMENT •..• YES • YES • NO ....•• • . ..X . B5 • • •• • • C5 ..X**Of • •% %41.40DOTALBAKERMOVECS .. .....C2 C3 ..4CS.. •. DO .. NO .* STATEMENT •. NO • CIPT S ;5 1 14T •• MOVE TO. TABLE EMPTY •. X: OUTPUT ERROR: .. HAVE: IN D FORE NEX •I.. NUMBER ..• STATEMENT •• YES• ▪ EXIT TO ROL .• ROUTINE •• •D3• • PUT ERROR ON..X• STRING••• YES• •. • • C5 •..X• A4 . •• • .0**. • • • •.•X. C5 • BEC5 •X .4......4. FULLEl ...• E2 .. E3 E4 E5 ... • ••••• .. YES .. LEGAL •. YES • PUT OUT DO •.. YESSTATEMENT .. VO 0:4Mprw-an':.. X. INIT. MOVE TO • X•. .• STATEMENT ....... .. •.STATEMENT.• •• • •NEXT STATEMENT • .. NUMBER ..... .• • • .. ...FL It.4.. BACKSPACE..STATEMENT... •• NO • NO. ••••• NO• NOXHI ..YES• END.YESFILES • ......X...STATEMENT..• NO•..0• H3 •F2.. F3 .. F4F5.... •• PAUSE .. YES • •••s. YES *OUTPUT Z SYMBOL• : GENERATE AX. • DR STOP X.. SEMI—COLON .. X. TABLE POINTER • • LABELFOLLOWS .. ... .. • •• NO ....AO. ..o. . 0.... • ••.X• J2 • ..X: J2 •Z •••• •••••SHUTSTNO xG2 GI ....G5•PUT STMT NUMBER•• REWIND ••• YESINTEGER .. YES OR GENERATED• STATEMENT ••••••X • • CONSTANT ...... • LABEL IN WO 2J1• STOPYESa. • STATEMENT.. . • OF DO TBL.. .0. .. R• NO ...F. .• •O.• K2 • • 0. • • •"H3••.... ..X.A.C5 •.... • • .SHOE CLOS;rn H3%H2 ..• INTEGER *.. ▪ CONSTANTNO........ 4.11.411.0*• YES.•••••••••. • •• j2 • • X ..X. C5 •• •J2••PUT IN SYR TEL,•• PUT SYR TBL ••ADOR ON STRINGXPUT ERROR ONSTRING••••••• NOKI• NO•• PAUSEYESSTATEMENT• ▪ •K2 •.X• •4.140XK2PUT OUT •APPROPRIATE• CALL •• NO••••• •Al • •..o...X• C5 •Flowchart FOR17. FORTRAN Compiler, Phase 14260