|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T a
Length: 1112 (0x458)
Types: TextFile
Names: »addrock.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/addrock.f«
ccc addrock - copy peice into buffer ccc addfoo - copy peice into buffer with extra character(s) subroutine addrock ( peice, string, ptr ) integer peice, ptr c character string ( 80 ) character string ( 80 ) c c synopsis c c call addrock ( peice, string, ptr ) c call addfoo ( peice, string, ptr ) c c peice - integer value of peice c string - character array to put string into c ptr - pointer to next unused element in string c if ( peice .eq. 2 ) call addstr ( 'n', string, ptr ) call addstr ( ' ', string, ptr ) entry addfoo ( peice, string, ptr ) goto ( 100, 200, 300, 400, 500, 600, 700, 800, 900 ) peice call addstr ( 'steam beer', string, ptr ) 100 return 200 call addstr ( 'army', string, ptr ) return 300 call addstr ( 'fighter', string, ptr ) return 400 call addstr ( 'destroyer', string, ptr ) return 500 call addstr ( 'submarine', string, ptr ) return 600 call addstr ( 'troop transport', string, ptr ) return 700 call addstr ( 'cruiser', string, ptr ) return 800 call addstr ( 'aircraft carrier', string, ptr ) return 900 call addstr ( 'battleship', string, ptr ) return end