Update Graphics for the IBM PC demos

_includes/machine-engines.html

@@ -10,6 +10,11 @@
   {% else %}
     {% assign machine_template = machine.template %}
   {% endunless %}
+  {% unless machine.state %}
+    {% assign machine_state = '' %}
+  {% else %}
+    {% assign machine_state = machine.state %}
+  {% endunless %}
   {% if site.pcjs_compiled %}
     {% capture machine_script %}<script type="text/javascript" src="{{ site.baseurl }}/versions/{{ machine.type | remove:'-dbg' }}js/{{ site.pcjs_version }}/{{ machine.type }}.js"></script>{% endcapture %}
     {% unless machine_scripts contains machine_script %}
@@ -33,5 +38,5 @@
       {% capture machine_template %}{{ site.baseurl }}/modules/{{ machine.type | remove:'-dbg' }}js/templates/components.xsl{% endcapture %}
     {% endif %}
   {% endif %}
-  <script type="text/javascript">{{ machine_embed }}("{{ machine.id }}","{{ machine_config }}","{{ machine_template }}");</script>
+  <script type="text/javascript">{{ machine_embed }}("{{ machine.id }}","{{ machine_config }}","{{ machine_template }}","{{ machine_state }}");</script>
 {% endfor %}

pubs/pc/programming/Graphics_for_the_IBM_PC/demos/README.md

@@ -5,6 +5,10 @@ permalink: /pubs/pc/programming/Graphics_for_the_IBM_PC/demos/
 machines:
   - type: pc
     id: xt-cga-256k-1
+    state: 02-03.json
+  - type: pc
+    id: xt-cga-256k-2
+    state: 04-01.json
 ---
 
 Selected Live Demos from [Graphics for the IBM PC](../)
@@ -66,3 +70,5 @@ From [Page 58](/modules/shared/templates/pdf.html?url=/pubs/pc/programming/Graph
 > white appears much sharper on a television than any
 > other color, this palette is the palette of choice for television
 > work. (The same is true of any composite monitor.)
+
+{% include machine.html id="xt-cga-256k-2" %}

pubs/pc/programming/Graphics_for_the_IBM_PC/demos/basic.xml

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<fdc id="fdcNEC" automount='{A:{name:"PC-DOS 2.00 (Disk 1)",path:"/disks/pc/dos/ibm/2.00/PCDOS200-DISK1.json"}, B:{name:"BASIC Programs",path:"/api/v1/dump?dir=/pubs/pc/programming/Graphics_for_the_IBM_PC/programs"}}' pos="left" padleft="8px" padbottom="8px">
+<fdc id="fdcNEC" automount='{A:{name:"PC-DOS 2.00 (Disk 1)",path:"/disks/pc/dos/ibm/2.00/PCDOS200-DISK1.json"}, B:{name:"BASIC Programs",path:"/pubs/pc/programming/Graphics_for_the_IBM_PC/programs/disk.json"}}' pos="left" padleft="8px" padbottom="8px">
 	<control type="list" binding="listDrives"/>
 	<control type="list" binding="listDisks">
 		<disk path="">None</disk>
@@ -8,7 +8,7 @@
 		<manifest ref="/disks/pc/dos/ibm/2.00/manifest.xml" disk="*"/>
 		<manifest ref="/disks/pc/games/microsoft/adventure/manifest.xml" disk="*"/>
 		<manifest ref="/apps/pc/1981/visicalc/manifest.xml" disk="*"/>
-		<disk path="/api/v1/dump?dir=/pubs/pc/programming/Graphics_for_the_IBM_PC/programs">BASIC Programs</disk>
+		<disk path="/pubs/pc/programming/Graphics_for_the_IBM_PC/programs/disk.json">BASIC Programs</disk>
 	</control>
 	<control type="button" binding="loadDrive" padright="8px">Load</control>
 	<control type="description" binding="descDisk" padright="8px"/>