New DAZZLER Software ...
134 views
Skip to first unread message
Walt Perko
Sep 11, 2024, 10:57:23 AMSep 11
to Altair-Duino
Hi,
This is fun … I just need to figure out the best and fastest way to blank the screen into one solid color starting with black.
In the video you can see my first program creating some crappy circles on the screen, the 2nd program was the first attempt at blanking out the screen with different colors by printing dots in each position … the long way to do it.
In the video you can see my first program creating some crappy circles on the screen, the 2nd program was the first attempt at blanking out the screen with different colors by printing dots in each position … the long way to do it.
20240910 First DAZZLER II Programs https://youtu.be/oqhtL1GlSVI
This is all done on my Altair 8800c computer = TDL Z80 ZPU board, ME 88-2SIOJP Serial I/O board, MD FDC+ Serial Drive Server board and a TW DAZZLER II board.
The .dsk's I'm using:
http://www.brainless.org/Altair/Repository/3-JG%20DAZZLER.dsk
http://www.brainless.org/Altair/Repository/3-DAZZLER%20Felix.dsk
http://www.brainless.org/Altair/Repository/DZMBASIC.dsk
.
Walt Perko
Sep 11, 2024, 3:53:36 PMSep 11
to Altair-Duino
Hi,
Okay, now I got a good start for creating some new fun DAZZLER programs!
Just a bunch of circles, but now you can see them!
.
Walt Perko
Sep 12, 2024, 7:05:01 PMSep 12
to Altair-Duino
Hi,
Okay, I have successfully taught ChatGPT how to write DZMBASIC programs ... this last bunch all came from slight modifications of the first ChatGPT OCTAGONS.BAS ...
From that program I made a few slight changes for HEXADECIMAL, PENTAGON and SQUARES programs ...
Now other people need to learn how to feed the correct instructions into ChatGPT and get working programs!
I wish ChatGPT could learn 8080 and Z80 assembly language better, but I keep running into the limits as I try working with assembly language programs.
This is so much fun!
.
Walt Perko
Sep 13, 2024, 9:02:23 AMSep 13
to Altair-Duino
Hi,
One of the subjects in the ZOOM meeting DAZZLER discussions was about "Screen Savers" ...
So I wrote one ... I may have to improve on it a little more tomorrow:
.
Walt Perko
Sep 13, 2024, 10:20:36 PMSep 13
to Altair-Duino
Walt Perko
Sep 16, 2024, 12:22:13 AMSep 16
to Altair-Duino
Hi,
We all need to thank Bob Ammerman for making the DZMBASIC.dsk in the first place. This is awesome work that opens the DAZZLER boards up to all sorts of new programs!
I only wish my DZMBASIC programming skills were better ... but I am having fun making little screensaver programs as I practice.
I've shifted to trying to learn how to make a few simple games now ... bigger learning process, but now I've added the better programs I've created to my website in: http://www.brainless.org/Altair/Repository/20240915-ADDING-2-DAZZLER-Collection.zip
IF you improve on them, please send me a copy.
Anybody else creating new DAZZLER programs ... post'em here, I can add them to my website to share with the universe.
Everything you need to start writing your own DAZZLER DZMBASIC programs is on this "http://www.brainless.org/Altair/Repository/DZMBASIC.dsk"
.
Walt Perko
Sep 16, 2024, 12:46:53 PMSep 16
to Altair-Duino
Hi,
What to do when you wake up in the middle of the night ... write a new screensaver program for the Cromemco DAZZLER I have in my Altair 8800c computer.
20240915 ATOM1 DZMBASIC https://youtu.be/SSHj34sMOc4
New DAZZLER Software ... more coming! https://groups.google.com/g/s100computers/c/4mXhCinZkoo
Walt Perko
Sep 16, 2024, 8:20:57 PMSep 16
to Altair-Duino
Hi,
Okay, got another step towards subroutines for the "Zombie Escape" game ... a sort of Etch-A-Sketch using keyboard inputs:
0 REM BLINK6.BAS.txt
10 REM Initialize DAZZLER and Clear the Screen
20 GOSUB 9000 : REM Clear the screen
30 X = 128 : REM Starting X position (center)
40 Y = 128 : REM Starting Y position (center)
50 CURSORCOLOR = 23 : REM Initial blinking color (white)
60 USERCOLOR = 16 : REM Default user color (black)
70 PREVX = X : REM Track previous X position
80 PREVY = Y : REM Track previous Y position
100 REM Main loop
110 GOSUB 200 : REM Draw the blinking cursor
120 GOSUB 300 : REM Wait for keypress and move cursor
130 GOTO 110 : REM Repeat the loop
200 REM Subroutine to draw blinking cursor
210 DZOP "P", PREVX, PREVY : REM Position at previous position
220 DZOP "C", USERCOLOR : REM Set previous dot to user-selected color
230 DZOP "D" : REM Draw the previous dot
240 PREVX = X : REM Update previous X to current
250 PREVY = Y : REM Update previous Y to current
260 DZOP "P", X, Y : REM Position at current X, Y
270 DZOP "C", CURSORCOLOR : REM Set color for blinking cursor
280 DZOP "D" : REM Draw the cursor dot
290 RETURN
300 REM Subroutine to handle keypress and move cursor
310 PRINT "Enter direction (L, R, U, D): ";
320 INPUT DIRECTION$ : REM Get direction from user
330 PRINT "Enter steps (1-999): ";
340 INPUT STEPS : REM Get number of steps (1-999)
350 IF STEPS < 1 OR STEPS > 999 THEN PRINT "Invalid steps!" : RETURN
360 REM Handle direction and move cursor
370 IF DIRECTION$ = "L" AND X > 0 THEN X = X - STEPS : IF X < 0 THEN X = 0 : REM Prevent going off screen
380 IF DIRECTION$ = "R" AND X < 255 THEN X = X + STEPS : IF X > 255 THEN X = 255 : REM Prevent going off screen
390 IF DIRECTION$ = "U" AND Y > 0 THEN Y = Y + STEPS : IF Y < 0 THEN Y = 0 : REM Prevent going off screen
400 IF DIRECTION$ = "D" AND Y < 255 THEN Y = Y - STEPS : IF Y > 255 THEN Y = 255 : REM Prevent going off screen
410 GOSUB 200 : REM Draw the new blinking cursor at the new position
420 PRINT "Enter color (1-8 for colors 16-23): ";
430 INPUT COLORNUM : REM Get color number from user
440 IF COLORNUM >= 1 AND COLORNUM <= 8 THEN USERCOLOR = 15 + COLORNUM
450 RETURN
9000 REM Clear the Screen Routine
9010 DZOP "C", 16 : REM Set color to black
9020 DZOP "P", 0, 0 : REM Position cursor at (0, 0)
9030 DZOP "R", 255, 255 : REM Fill the screen with black
9040 RETURN
10 REM Initialize DAZZLER and Clear the Screen
20 GOSUB 9000 : REM Clear the screen
30 X = 128 : REM Starting X position (center)
40 Y = 128 : REM Starting Y position (center)
50 CURSORCOLOR = 23 : REM Initial blinking color (white)
60 USERCOLOR = 16 : REM Default user color (black)
70 PREVX = X : REM Track previous X position
80 PREVY = Y : REM Track previous Y position
100 REM Main loop
110 GOSUB 200 : REM Draw the blinking cursor
120 GOSUB 300 : REM Wait for keypress and move cursor
130 GOTO 110 : REM Repeat the loop
200 REM Subroutine to draw blinking cursor
210 DZOP "P", PREVX, PREVY : REM Position at previous position
220 DZOP "C", USERCOLOR : REM Set previous dot to user-selected color
230 DZOP "D" : REM Draw the previous dot
240 PREVX = X : REM Update previous X to current
250 PREVY = Y : REM Update previous Y to current
260 DZOP "P", X, Y : REM Position at current X, Y
270 DZOP "C", CURSORCOLOR : REM Set color for blinking cursor
280 DZOP "D" : REM Draw the cursor dot
290 RETURN
300 REM Subroutine to handle keypress and move cursor
310 PRINT "Enter direction (L, R, U, D): ";
320 INPUT DIRECTION$ : REM Get direction from user
330 PRINT "Enter steps (1-999): ";
340 INPUT STEPS : REM Get number of steps (1-999)
350 IF STEPS < 1 OR STEPS > 999 THEN PRINT "Invalid steps!" : RETURN
360 REM Handle direction and move cursor
370 IF DIRECTION$ = "L" AND X > 0 THEN X = X - STEPS : IF X < 0 THEN X = 0 : REM Prevent going off screen
380 IF DIRECTION$ = "R" AND X < 255 THEN X = X + STEPS : IF X > 255 THEN X = 255 : REM Prevent going off screen
390 IF DIRECTION$ = "U" AND Y > 0 THEN Y = Y + STEPS : IF Y < 0 THEN Y = 0 : REM Prevent going off screen
400 IF DIRECTION$ = "D" AND Y < 255 THEN Y = Y - STEPS : IF Y > 255 THEN Y = 255 : REM Prevent going off screen
410 GOSUB 200 : REM Draw the new blinking cursor at the new position
420 PRINT "Enter color (1-8 for colors 16-23): ";
430 INPUT COLORNUM : REM Get color number from user
440 IF COLORNUM >= 1 AND COLORNUM <= 8 THEN USERCOLOR = 15 + COLORNUM
450 RETURN
9000 REM Clear the Screen Routine
9010 DZOP "C", 16 : REM Set color to black
9020 DZOP "P", 0, 0 : REM Position cursor at (0, 0)
9030 DZOP "R", 255, 255 : REM Fill the screen with black
9040 RETURN
.
Walt Perko
Oct 18, 2024, 11:23:47 PMOct 18
to Altair-Duino
Hi,
Anybody else here playing the "BOMBER" game w/their DAZZLER?
.
Reply all
Reply to author
Forward
0 new messages