From 1605eaf5735d8383ad2c15e94b8cd54261cd5edd Mon Sep 17 00:00:00 2001
From: Greg Gauthier <gmgauthier@protonmail.com>
Date: Fri, 17 Jan 2025 10:49:06 +0000
Subject: [PATCH] testing different preview styles

---
 css/retro.css   | 17 ++++++++++++++++-
 md/MVS/basic.md | 10 +++++-----
 2 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/css/retro.css b/css/retro.css
index 673023a..ed5d4ed 100644
--- a/css/retro.css
+++ b/css/retro.css
@@ -321,7 +321,7 @@ ul li {
     margin-left: 35px;
 }
 
-pre {
+pre.decterm {
     /* font-family: "Classic Console Neue", monospace; */
     font-size: 13pt;
     margin-left: 20px;
@@ -336,6 +336,21 @@ pre {
     line-height: 1.15;
     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 {
     width: 78%;
     border: solid yellow 2px;
diff --git a/md/MVS/basic.md b/md/MVS/basic.md
index cbf82bc..06d5f5d 100644
--- a/md/MVS/basic.md
+++ b/md/MVS/basic.md
@@ -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. 
 
-```pli
+<pre class="mvs">
  000002  /********************************************************************
  000003  *                                                                   *
  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  *
  000029  *                         EXECUTED ON LINE.                         *
  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:
 
-```basic
+<pre class="mvs">
  000001 1 REM MORTGATE COMPUTER
  000002 10 DATA 0.05,28500,170,1,1964
  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)
  000018 200 IF P>0 THEN 90
  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.