BAM demo updates

RetroNick2020 · Nov 5, 2023 · b87466d · b87466d
1 parent b46da27
commit b87466d
Show file tree

Hide file tree

Showing 3 changed files with 141 additions and 1 deletion.
diff --git a/Examples/BAM Basic/demo2.bas b/Examples/BAM Basic/demo2.bas
@@ -0,0 +1,95 @@
+'* **************************************************************** *'
+'* demo2.bas For BAM (Basic Anywhere Machine)                       *'
+'*                                                                  *'
+'* cross was created by Exporting image as Put+Mask data statements *'
+'* from Raster Master.                                              *'
+'* **************************************************************** *'
+
+DEFINT A-Z
+DIM Cross(258), CrossMask(258)
+
+FOR I = 0 TO 257
+    READ Cross(I)
+NEXT I
+FOR I = 0 TO 257
+    READ CrossMask(I)
+NEXT I
+
+
+SCREEN 7 'SCREEN 13 for 256 color images
+LINE (0, 0)-(319, 199), 1, BF
+
+FOR I = 0 TO 15
+  LINE (I * 20, 20)-(I * 20 + 19, 180), I, BF
+NEXT I
+
+PUT (30, 100), Cross, PSET
+PUT (70, 100), Cross, PRESET
+PUT (110, 100), Cross, AND
+PUT (150, 100), Cross, OR
+PUT (190, 100), Cross, XOR
+
+'* using the CrossMask and cross image together with AND and OR operators we make it transparent *
+PUT (230, 100), CrossMask, AND
+PUT (230, 100), Cross, OR
+
+' BAM Put Bitmap Code Created By Raster Master
+' Size= 258 Width= 32 Height= 32 Colors= 16
+' Image12
+DATA 32,32,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0,0,0
+DATA 0,17408,68,0,0,0,0,0,0,17408
+DATA 68,0,0,0,0,0,0,17408,68,0
+DATA 0,0,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0,0,0
+DATA 0,17408,68,0,0,0,0,0,0,17408
+DATA 68,0,0,0,0,0,0,17408,68,0
+DATA 0,0,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0,0,0
+DATA 0,17408,68,0,0,0,0,0,0,17408
+DATA 68,0,0,0,17476,17476,17476,17476,17476,17476
+DATA 17476,17476,17476,17476,17476,17476,17476,17476,17476,17476
+DATA 17476,17476,17476,17476,17476,17476,17476,17476,17476,17476
+DATA 17476,17476,17476,17476,17476,17476,0,0,0,17408
+DATA 68,0,0,0,0,0,0,17408,68,0
+DATA 0,0,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0,0,0
+DATA 0,17408,68,0,0,0,0,0,0,17408
+DATA 68,0,0,0,0,0,0,17408,68,0
+DATA 0,0,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0,0,0
+DATA 0,17408,68,0,0,0,0,0,0,17408
+DATA 68,0,0,0,0,0,0,17408,68,0
+DATA 0,0,0,0,0,17408,68,0,0,0
+DATA 0,0,0,17408,68,0,0,0
+
+' BAM Put Bitmap Code Created By Raster Master
+' Size= 258 Width= 32 Height= 32 Colors= 16
+' Image12Mask
+DATA 32,32,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1,-1,-1
+DATA -1,255,-256,-1,-1,-1,-1,-1,-1,255
+DATA -256,-1,-1,-1,-1,-1,-1,255,-256,-1
+DATA -1,-1,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1,-1,-1
+DATA -1,255,-256,-1,-1,-1,-1,-1,-1,255
+DATA -256,-1,-1,-1,-1,-1,-1,255,-256,-1
+DATA -1,-1,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1,-1,-1
+DATA -1,255,-256,-1,-1,-1,-1,-1,-1,255
+DATA -256,-1,-1,-1,0,0,0,0,0,0
+DATA 0,0,0,0,0,0,0,0,0,0
+DATA 0,0,0,0,0,0,0,0,0,0
+DATA 0,0,0,0,0,0,-1,-1,-1,255
+DATA -256,-1,-1,-1,-1,-1,-1,255,-256,-1
+DATA -1,-1,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1,-1,-1
+DATA -1,255,-256,-1,-1,-1,-1,-1,-1,255
+DATA -256,-1,-1,-1,-1,-1,-1,255,-256,-1
+DATA -1,-1,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1,-1,-1
+DATA -1,255,-256,-1,-1,-1,-1,-1,-1,255
+DATA -256,-1,-1,-1,-1,-1,-1,255,-256,-1
+DATA -1,-1,-1,-1,-1,255,-256,-1,-1,-1
+DATA -1,-1,-1,255,-256,-1,-1,-1
+
diff --git a/Examples/BAM Basic/demo4.bas b/Examples/BAM Basic/demo4.bas
@@ -0,0 +1,45 @@
+'* *************************************************************** *
+'* demo4.bas VGA Palette Demo for BAM (Basic Anywhere Machine      *
+'*                                                                 *
+'* palette commands were created by Exporting palette from         *
+'* Raster Master. Palette->Export->BAM->Palette Commands           *
+'* *************************************************************** *
+
+SCREEN 12 'SCREEN 13 for 256 color images
+LINE (0, 0)-(319, 199), 1, BF
+
+FOR I = 0 TO 15
+  LINE (I * 20, 20)-(I * 20 + 19, 180), I, BF
+NEXT I
+
+COLOR 15
+LOCATE 16, 4
+PRINT "Press a key to change palette"
+
+INPUT a$
+SCREEN 12
+' BAM Basic Palette Commands,  Size= 48 Colors= 16 Format=8 Bit 
+Palette 0, _BGR(0,105,89)
+Palette 1, _BGR(170,80,68)
+Palette 2, _BGR(97,170,97)
+Palette 3, _BGR(170,97,0)
+Palette 4, _BGR(125,0,113)
+Palette 5, _BGR(170,0,76)
+Palette 6, _BGR(0,125,170)
+Palette 7, _BGR(170,117,170)
+Palette 8, _BGR(85,149,85)
+Palette 9, _BGR(255,133,85)
+Palette 10, _BGR(85,255,165)
+Palette 11, _BGR(161,255,36)
+Palette 12, _BGR(85,85,157)
+Palette 13, _BGR(255,190,255)
+Palette 14, _BGR(85,255,198)
+Palette 15, _BGR(153,165,255)
+
+LINE (0, 0)-(319, 199), 1, BF
+
+FOR I = 0 TO 15
+  LINE (I * 20, 20)-(I * 20 + 19, 180), I, BF
+NEXT I
+
+INPUT a$
diff --git a/Examples/qbasic/QBDEMO4.BAS b/Examples/qbasic/QBDEMO4.BAS
@@ -1,7 +1,7 @@
 '* *************************************************************** *
 '* qbdemo4.bas VGA Palette Demo for QuickBASIC                     *
 '*                                                                 *
-'* remappalette commands were created by Exporting palette from    *
+'* palette commands were created by Exporting palette from         *
 '* Raster Master. Palette->Export->QuickBasic->Palette Commands    *
 '* *************************************************************** *