From a4f9d6455fbfda7c25d4f60c822b277cb689a804 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Sun, 20 Apr 2025 20:41:54 -0700 Subject: [PATCH] Apple /// defaults to 80 columns --- images/apple/PLEIADES-2.20-INST.po | Bin 143360 -> 143360 bytes src/libsrc/apple/conio.pla | 2 +- 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/images/apple/PLEIADES-2.20-INST.po b/images/apple/PLEIADES-2.20-INST.po index 87ead7a2dfe2a37804cb26c7c226a9c27a5e031b..d5550c955db14ddb0a3cae82949ecb8fad092f05 100644 GIT binary patch delta 1052 zcmZvbJxjw-6oyY?s-@r;6f33BLe*M_LO%qlQ@}`*|j|FPEn~M7ZULm3f5>Ev) zW(M?tgjk_gOe9kWFnbo$;Dhru<5UNYKxh8hrmibxIuqTsMPHqt`PW!wexwRgfE?2B*He$Hqt3e z5wrms=)~icl=(d2GP_w7Qe{qPRA;buk2I5*rre)H#(2gKf~G(inunOCipUkm+FYZ3 zP+y8fh&2{Mj&ulYBV@jV8y!Ksz_B!!$e2#4cQhac8<50n$(4i2wiq delta 1052 zcmZvbJx{_=6oyZ0Q9}Goj2J=!2@2vsLczq~#5ax5Hic>!`4hS_I5<;d7t&}XYUrTR z#6RF*m>i6g3!_7SfQg}cDYR*C>C%&P`<(Z^=bW~O-uBS@n5UK`I=Tq(3gK}e@l+sf zW?&qU5X;vJi6p%b(`P;fJ~&%7PRF1TNQw7nGK9e*z_)%}x zO||iRMFbLnvOpt{GM<2Cev)Z<0(+Qwe^zX8g2#SL!dIlg&laiE_g@D~R)Hy9C$ENcfPn1eWp zDP~kxS5%kz4Yqh(U4(MB4;E5+X}gbQqEfs(5+8zFNp3xSBBi- diff --git a/src/libsrc/apple/conio.pla b/src/libsrc/apple/conio.pla index fa773ec..d52536f 100644 --- a/src/libsrc/apple/conio.pla +++ b/src/libsrc/apple/conio.pla @@ -970,7 +970,7 @@ def a3ctrl(code, param)#1 end def a3textmode(columns) a3putchar(16) - if columns >= 80 + if columns == 0 or columns >= 80 a3putchar(2) columns = 80 else