1130 Commercial Subroutine Package - All about the IBM 1130 ...

CHART 52 1130 COMMERCIAL SAMPLE PROBLEM 2START• •• 83 •• •INITIALIZE • ••• READ HEADINGS •AND CONSTANTS••0..0• •• 02• READ A •CARD• •••••X......... ..• TYPE• YES .. ..END OF JOB X••LAST CARD ..• it. ...... ,....• NO• READ A •CARD• •••••X..... 4........•..4. • • • •.... NO .4. •.. TRANSACTION ..• TYPE NEW •X.. MASTER CARD... CARD ..X.. .1.MASTER CARD.. .. ..• IMAGE •.....0 0. .411•YES ..10X:X.... X X.. • IS 11...TRANSACTION.. NO •TYPE ERROR AND • PRINT ••.NAME EQUAL TO..... CARD IMAGE•. MASTER .. •TOTAL• LINE ••.NAME .....YESX• PRINT DETAIL •LINE• •ic00.0 041•B3 • • 02 • •*0.0 O...B .• e.NOHALTMASTER CARO• e.°. .• •••YES• T...•IS REPLACED BYTOTAL E AMT•• PRINT NAME •AND ADDRESS••TYPE ERROR AND • • PRINT HEADING •CARD IMAGE •.... AND PREVIOUS• • •CE BALAN •• •• 02 •• •XTOTALIS REPLACED BYPREVIOUS• BALANCE-109-IN• ,....••••••■•■• “IIERIMPREEIMIRIM