From a8f468e06fc74b847e59cccc8146002bc248fe3e Mon Sep 17 00:00:00 2001
From: tilleul <fvlinden@gmail.com>
Date: Fri, 3 Jun 2022 09:30:34 +0200
Subject: [PATCH] Create spc_test.bas

---
 applesoft/spc/spc_test.bas | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 applesoft/spc/spc_test.bas

diff --git a/applesoft/spc/spc_test.bas b/applesoft/spc/spc_test.bas
new file mode 100644
index 0000000..e686c31
--- /dev/null
+++ b/applesoft/spc/spc_test.bas
@@ -0,0 +1,19 @@
+10 HOME
+20 X = 255: Y=0: REM INIT VALUES
+30 POKE 243,0: REM RESET ORA MASK
+40 POKE 50, X: REM RESET AND MASK
+50 VTAB 1
+60 INPUT "ASCII (1-255; 0 EXITS) ? ";Z
+70 IF NOT Z THEN END
+80 INPUT "NORMAL/FLASH/INVERSE (N/F/I) ? ";N$
+90 IF N$ = "F" THEN Y=128
+100 IF N$ = "I" THEN Y=192
+110 IF (Z>=64 AND Z<=95) OR (Z>=192 AND Z<=223) THEN X = 223: REM PREPARE END MASK FOR ASCII 64-95 OR 192-223
+120 POKE 50,X-Y: REM SET NORMAL/FLASH/INVERSE MASK
+130 POKE 243, Z: REM SET ORA MASK
+140 VTAB 1
+150 PRINT SPC(240): REM FILL THE SCREEN !
+160 PRINT SPC(240)
+170 PRINT SPC(240)
+180 PRINT SPC(240)
+190 GOTO 20