Make 80 column mode the default

src/vmsrc/apple/cmd.pla

@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1402,6 +1421,15 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    when ^MACHID & MACHID_MODEL
+        is MACHID_IIPLUS
+        is MACHID_II
+            ^$C059
+    wend
+    systemflags = systemflags | vid80col | restxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 64K VM v2.20\n")
 //
 // Init symbol table.

src/vmsrc/apple/cmdjit.pla

@@ -23,6 +23,25 @@ const modflagkeep = $1000
 const modkeep     = $2000
 const modinitkeep = $4000
 //
+// 80 column flag
+//
+const vid80col    = $0800
+//
+// Machine ID values
+//
+const MACHID_CLOCK = $01
+const MACHID_80COL = $02
+const MACHID_MEM   = $30
+const MACHID_64K   = $20
+const MACHID_128K  = $30
+const MACHID_MODEL = $C8
+const MACHID_II    = $00
+const MACHID_IIPLUS= $40
+const MACHID_IIE   = $80
+const MACHID_III   = $C0
+const MACHID_IIC   = $88
+const MACHID_I     = $08
+//
 // Prefix commands
 //
 const GET_PFX     = $C7
@@ -1488,6 +1507,10 @@ heap = @lastdef
 //
 // Print PLASMA version
 //
+if  ^MACHID & MACHID_80COL
+    systemflags = systemflags | vid80col | restxt1 | resxtxt1
+    call($C300, 12, 0, 0, 0)
+fin
 prstr("PLEIADES 128K VM v2.20\n")
 //
 // Init symbol table.