Created
March 22, 2026 05:02
-
-
Save Sgeo/9d3f4bc9f10762cba8374ad8ad1e6d7e to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| START OF FORTRAN COMPILATION | |
| MACHINE SIZE SPECIFIED IS 08000 | |
| ACTUAL MACHINE SIZE IS 16000 | |
| PAGE 1 | |
| SEQ STMNT FORTRAN STATEMENT | |
| 1 A = 0.0**0.0 | |
| 2 B = 0.0**0 | |
| 3 I = 0**0 | |
| 4 PRINT 10, A | |
| 5 10 FORMAT(12H 0.0**0.0 = ,F3.1) | |
| 6 PRINT 20, B | |
| 7 20 FORMAT(10H 0.0**0 = ,F3.1) | |
| 8 PRINT 30, I | |
| 9 30 FORMAT(8H 0**0 = ,I1) | |
| 10 STOP | |
| 11 END | |
| 194 INPUT CHARACTERS | |
| MODULUS IS 5 | |
| MANTISSA IS 8 | |
| STORAGE ASSIGNMENT-ARRAYS + EQUATED VARIABLES | |
| NO ARRAYS | |
| STORAGE ASSIGNMENT - SIMPLE VARIABLES | |
| I 4284 28U | |
| B 4294 29U | |
| A 4304 30U | |
| CONSTANTS LOCATED FROM 07975 TO 07999 I7V-I9Z | |
| STARTING ADDRESS OF STATEMENTS | |
| SEQ STARTING ADDRESS DISPLAY | |
| 001 30V 4305 30Z | |
| 002 32T 4323 32X | |
| 003 33Z 4339 34T | |
| 004 35V 4355 35Z | |
| 006 36W 4366 37| | |
| 008 37X 4377 38/ | |
| 010 38Y 4388 39S | |
| 012 39X 4397 40/ | |
| END OF COMPILATION | |
| PRESS START TO GO | |
| ZTZ 30Z 000000000!0? | |
| DZE 32X 0000000000000? 000000000?0? | |
| DZE 34T 0000? | |
| 0.0**0.0 = 1.0 | |
| 0.0**0 = X | |
| 0**0 = 9 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment