weblogs/oldcomputernerd.com
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testing different preview styles

Browse Source
This commit is contained in:
Greg Gauthier 2025-01-17 10:49:06 +00:00
parent 7b25d7f4a9
commit 1605eaf573
2 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
css/retro.css
View File

@ -321,7 +321,7 @@ ul li {
margin-left: 35px; margin-left: 35px;
} }
pre { pre.decterm {
/* font-family: "Classic Console Neue", monospace; */ /* font-family: "Classic Console Neue", monospace; */
font-size: 13pt; font-size: 13pt;
margin-left: 20px; margin-left: 20px;
@ -336,6 +336,21 @@ pre {
line-height: 1.15; line-height: 1.15;
overflow-x: auto; overflow-x: auto;
} }
pre.mvs {
font-family: "IBM 3270", monospace;
font-size: 14pt;
margin-left: 20px;
background: #524646;
border-left: 3px solid #000000;
border-right: 3px solid #000000;
border-top: 3px solid #000000;
border-bottom: 3px solid #000000;
border-radius: 20px;
max-width: 70%;
padding: .5rem;
line-height: 1.15;
overflow-x: auto;
}
pre.atari { pre.atari {
width: 78%; width: 78%;
border: solid yellow 2px; border: solid yellow 2px;

10
md/MVS/basic.md
View File

@ -4,7 +4,7 @@ There are many flavors of BASIC available for the IBM MVS operating system. The
Here's the original comment flower box from the core BASIC/360 compiler module, written in PL/I. The users of this BASIC compiler did not need to compile th PL/I from source, however. The binary would have been available on the original distribution tape. Here's the original comment flower box from the core BASIC/360 compiler module, written in PL/I. The users of this BASIC compiler did not need to compile th PL/I from source, however. The binary would have been available on the original distribution tape.
```pli <pre class="mvs">
000002 /******************************************************************** 000002 /********************************************************************
000003 * * 000003 * *
000004 * SOUTH HAMMOND INSTITUTE OF TECHNOLOGY BASIC/360 FALL 1974 * 000004 * SOUTH HAMMOND INSTITUTE OF TECHNOLOGY BASIC/360 FALL 1974 *
@ -34,12 +34,12 @@ Here's the original comment flower box from the core BASIC/360 compiler module,
000028 * 3) ONLINE (WISH) - BASIC PROGRAM CAN BE ENTERED, EDITED AND * 000028 * 3) ONLINE (WISH) - BASIC PROGRAM CAN BE ENTERED, EDITED AND *
000029 * EXECUTED ON LINE. * 000029 * EXECUTED ON LINE. *
000030 * * 000030 * *
000031 ********************************************************************/ 000031 ********************************************************************/
``` </pre>
Here's a copy of the very first BASIC program. A simple mortgage calculator that I copied directly from the Dartmouth Time-Share System BASIC implementation. This program runs as-is, in BASIC/360: Here's a copy of the very first BASIC program. A simple mortgage calculator that I copied directly from the Dartmouth Time-Share System BASIC implementation. This program runs as-is, in BASIC/360:
```basic <pre class="mvs">
000001 1 REM MORTGATE COMPUTER 000001 1 REM MORTGATE COMPUTER
000002 10 DATA 0.05,28500,170,1,1964 000002 10 DATA 0.05,28500,170,1,1964
000003 50 READ I,P,P1,M,Y 000003 50 READ I,P,P1,M,Y
@ -59,7 +59,7 @@ Here's a copy of the very first BASIC program. A simple mortgage calculator that
000017 190 PRINT INT(P) 000017 190 PRINT INT(P)
000018 200 IF P>0 THEN 90 000018 200 IF P>0 THEN 90
000019 210 END 000019 210 END
``` </pre>
To run this on MVS, you need a JCL job card deck, to define the batch job to the system. Here's a version that is designed to run interactively. I'm using this JCL, because the program in "monitor" mode is designed to self-terminate after 5000 iterations of a loop. This "interactive" version will produce the complete set of output. To run this on MVS, you need a JCL job card deck, to define the batch job to the system. Here's a version that is designed to run interactively. I'm using this JCL, because the program in "monitor" mode is designed to self-terminate after 5000 iterations of a loop. This "interactive" version will produce the complete set of output.