Earlier this year, Jason Pittman shared a BASIC program with me that drew representations of all the letters of the alphabet. It was a cute program, and did some fancy drawing.
I thought it might be fun to ask you — in the comments — to tell me how YOU would have done this. I can think of one way, that uses an Extended BASIC keyword, and another way, that would work on Color BASIC.
For a series of options that are sequential (like “A to Z”) there are certainly some options.
As a part two … what if they were not sequential? What if it was for a menu that had options like “A, B, C, D, Q, Z” or whatever? That let me think of a third way to do it to work in Color BASIC.
From “The Big List of TRS-80 Software” I found two early Steve Bjork programs. These appear to be the two programs that appeared on the People’s Software tape:
The first is a Bio-Rhythm program listed as biortsb.bas (which I assume the “sb” at the end is Steve Bjork):
10 REM BIO-RHYTHM ------ BY STEVE BJORK 20 DIMA(150) 30 FORX=1TO20 40 READA(X) 50 RESTORE 60 FORX=1TO20 70 READA(X) 80 NEXTX:A=0 90 FORX=9TO20 100 A=A+A(X):A(X+11)=A 110 NEXTX 120 CLS:PRINT" B I O - R H Y T H M" 130 PRINT:PRINT" BY STEVE BJORK":PRINT 140 INPUT"WHO ARE YOU";A$ 150 INPUT"WHAT IS YOUR BIRTHDATE (M,D,Y)";M,D,Y 160 INPUT"AND THE DATE FOR CHART (M,Y)";B,C 170 Z=((C-Y)*365)-D-A(M+20)+A(B+20)+INT((C-Y)/4) 180 IF(Y/4=INT(Y/4))*(M<3) Z=Z+1 190 IF(C/4=INT(C/4))*(B>2) Z=Z+1 200 CLS 210 PRINT@960,"" 220 FORX=1TO31 230 SET(17,X):SET(18,X):SET(49,X):SET(50,X):SET(81,X):SET(82,X) 240 SET(113,X):SET(114,X) 250 SET(33,X):SET(65,X):SET(97,X) 260 NEXTX 270 FORX=17TO114 280 SET(X,0):SET(X,32) 290 NEXTX 300 FORX=0TO30STEP5 310 SET(16,X):SET(19,X):SET(48,X):SET(51,X):SET(80,X):SET(83,X) 320 SET(112,X):SET(115,X) 330 NEXTX 340 FORX=5TO30STEP5 350 PRINT@INT(X/3)*64+3,X;:PRINT@INT(X/3)*64+58,X;: 360 NEXTX 370 PRINT@713,"LOW";:PRINT@729,"LOW";:PRINT@745,"LOW"; 380 PRINT@720,"C";:PRINT@736,"C";:PRINT@752,"C" 390 PRINT@ 724,"HIGH";:PRINT@740,"HIGH";:PRINT@756,"HIGH" 400 PRINT@781,"PHYSICAL"; 410 PRINT@796,"EMOTIONAL"; 420 PRINT@813,"MENTAL"; 430 PRINT@857,"NAME------------";A$ 440 PRINT@921,"BIRTHDATE-------";M;"/";D;"/";Y 450 PRINT@985,"CHART DATE------";B;"/";C; 460 IF(C/4=INT(C/Y))*(B=2) A(10)=29 470 FORX=1TOA(B+8) 480 P=Z-INT(Z/23)*23:E=Z-INT(Z/28)*28:I=Z-INT(Z/33)*33 490 S=6.28319*(P/23) 500 GOSUB660 510 SET(INT(S*13)+34,X) 520 S=6.28319*(E/28) 530 GOSUB660 540 SET(INT(S*13)+66,X) 550 S=6.28319*(I/33) 560 GOSUB660 570 SET(INT(S*13)+98,X) 580 Z=Z+1 590 NEXTX:A(10)=28 600 PRINT@832,"FOR A NEW CHART"; 610 PRINT@896,;"ENTER A '1'"; 620 INPUTA 630 IFA=1GOTO140 640 CLS 650 STOP 660 T=S:U=S 670 FORW=1TO7STEP2 680 U=U*T*T 690 S=S-(U/A(W))+((U*T*T)/A(W+1)) 700 U=U*T*T 710 NEXTW 720 RETURN 730 DATA6,120,5040,362880,39916800,6.22702E09 740 DATA1.30767E12,3.55687E14 750 DATA31,28,31,30,31,30,31,31,30,31,30,31
The second is a Perpetual Calendar program listed as percalsb.bas:
5 REM....PERPETUAL CALENDAR PROGRAM 6 REM....FOR RADIO SHACKS TRS-80 7 REM....BY STEVE BJORK 8 DIMA(150) 9 CLS:PRINT@400,"PERPETUAL CALENDER BY STEVE BJORK" 10 PRINT@ 448,"ENTER MONTH AND YEAR (MM,YY)";:INPUT M,Y 11 IF (M>12)+(M<1)THEN10 17 IF Y<100 THENY=Y+1900 18 RESTORE:FOR I=1 TO 12:READ V:NEXT I 19 FOR I=1 TO M:READ A$:NEXT I 20 B$=" ":L=0:IF INT(Y/4)<>(Y/4)THEN50 30 IF INT(Y/100)=(Y/100) THEN50 40 B$="LEAP-YEAR":L=1 50 T=INT((Y-1893)/4) 60 C=(Y-1893+T)/7:C=INT((C-INT(C))*7+.5) 90 RESTORE:FOR I=1 TO 12:READA(I):NEXTI:A(2)=A(2)+L 91 D=0:IF M=1 THEN 100 92 FOR I=1 TO M-1:D=D+A(I):NEXT I 100 D=(D+C)/7 110 D=INT((D-INT(D))*7+.5) 111 IF D=0THEND=7 120 CLS:PRINT@ 22,A$;" ";Y;" ";B$ 150 T=0:FOR I=(D-2) TO 0 STEP-1:T=T+1:A(T+12)=(-I):NEXTI 160 P=1:FOR J=D TO 7:A(J+12)=P:P=P+1:NEXT J 164 RESTORE 165 W=0:FOR I=1 TO 12:READ X:NEXTI:FORI=1TO12:READB$:NEXTI 166 FOR J=8 TO 56 STEP 8:READ B$:PRINT@64+J,B$:NEXTJ 167 A$=" ":H=0:READ A,A$:IF A=0 THEN 170 168 IF INT(A)<>M THEN167 169 H=INT((A-INT(A))*100+.5) 170 FOR I=128 TO 832 STEP 128 180 P=0:FOR J=8 TO 56 STEP 8:S=I+J 190 P=P+1:Q=A(P+12)+(W*7) 191 Z=0:IF Q<10 THENZ=1 200 IF (Q<=0)+(Q>A(M))THEN220 210 PRINT@ S+Z,Q 211 IF H<>Q THEN 220 212 PRINT@ S+63,A$ 220 NEXT J:W=W+1:NEXT I 270 END 1000 DATA31,28,31,30,31,30,31,31,30,31,30,31 1100 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST 1200 DATASEPTEMBER,OCTOBER,NOVEMBER,DECeMBER 1300 DATASUN,MON,TUE,WED,THU,FRI,SAT 1400 REM...HOLIDAYS (M.D) 1500 DATA1.01,NEW YR,12.25,XMAS,2.14,VAL,7.04, 4TH,4.01,FOOL 1510 DATA10.31,HAL'WN 1800 DATA0,END
I have so far been unable to locate additional information on People’s Software, but it was produced by:
My all-time favorite arcade game was TRON, probably due to its connection with the Disney movie. I do not know if I played it much when it first came out, but during the time I lived in Broaddus, Texas (1985-1986 era) the local cafe had a TRON machine. I would walk home from school, stop in to get a .25 iced tea, and play TRON. I do not know how good I was at it, but I remember playing past enough levels that the game seemed to repeat and slow down.
Since then, I have only encountered TRON a few times. After moving to Des Moines, Iowa in 1995, I found a TRON in an arcade at our local Adventureland amusement park. I recall playing it there, but the joystick or spinner was in pretty bad shape.
I remember attending an arcade auction and a TRON game came up, but I stopped bidding at $250. I really wish I hadn’t, since years later, a TRON machine was for sale locally … for $1500.
My real interest in TRON came when a local bar-arcade opened and had a machine. I would stop by on my way home from work most days and play until I beat my previous score. Eventually, I had one “perfect” game where I got the score all the way up to where it would flip back over to 0 … and died on purpose. I was concerned that if I rolled the game back to 0, I wouldn’t get to enter my initials ;-)
This earned me a place on Up-Down’s wall of fame.
To the best of my knowledge, that photo is still there, though the TRON machine died not too long after. They did get a TRON back a few times, but they all had issues — spinners that didn’t work, joystick that wouldn’t go in all directions, sound didn’t work, messed up screen, etc. I am very glad I got to play on a “good” machine all those times.
Recently, I came across a video for a CoCo game called ElecTRON. I had forgotten about this TRON clone!
Then, I accidentally came across another CoCo game called KRON, which was another clone of TRON.
I now recall seeing both of these “back in the day” (and I likely had a “borrowed” copy of both of them at some point), but neither was a very good home version of TRON. It’s hard to replicate a game that needs a spinner and flight stick with a trigger ;-)
I just thought I’d share my TRON story, so there it is.
Steven Robert Bork (SRB Software) was such an iconic name in the Tandy/Radio Shack TRS-80 Color Computer community. Seeing his name on title screens of games etched it into my memory more than any other game author I can recall.
Recently, Roger Taylor spent over $6700 to acquire some of Bjorks software source code (disks and printouts) from an auction house. He has been discovering some interesting things, such as internal development tools Steve used as well as unfinished and unreleased programs. The archive goes back to Steve’s TRS-80 Model 1 days in the late 1970s.
One year before Steve wrote Popcorn for the CoCo, he had Space Ball for the Model 1:
I had also heard mentions of some multi-voice software music program he wrote. This was Soft Music:
I do not know how to use it, but when I figure it out, I will make a longer video of it. There appears to be several disks of songs available on a TRS-80 archive site, but I do not know how to get them in to the emulator yet.
There is also a Space Balls 2 which seems to be the same except for a countdown before the next ball drops.
Still a mystery is Galactic Fighter (not to be confused with a completely different game by that name released for the CoCo in 1984 by a different author). In a 2007 interview, Bjork described his Galatic Fighter game as similar to Galaxian, but predating it by three months. I see Galaxian listed as a September/November 1979 game, but I do not know when it was released in the USA. Wikipedia says Galaxian was the highest grossing game of 1980. I did manage to find this screenshot:
Roger Taylor has disks for this game, but is still working on safely getting them preserved and, hopefully, in a form that can run in an emulator.
Also during my research were two BASIC programs by Bjork – Perpetual Calendar and Bio-Rhythm. These appeared in a cassette tape collection called People’s Software./
Here is a link to the source of Perpetual Calendar that is supposed to be runnable in a web emulator, but I could not figure out how to start it:
I do not know the date these were published, and do not see a date in the source listing. There may be a date in one of the other programs in the collection that might give us a clue.
Steve also created PEN BASIC, a program that added commands to the TRS-80 Model 1 for using a light pen device. I have heard him mention that he worked on a light pen, but never knew anything about it. Here is an ad mentioning it:
I also found a magazine article that goes in to details on the commands that PEN BASIC provides, and discusses how to use it.
And there is more to still be located… I see references to other things he created in the TRS-80 Model 1 days that I have yet to go searching for.
But one thing I have discovered is that Steve was known outside the pages of Color Computer magazines such as Rainbow. I find him referenced in articles in magazines of the day I had heard of (such as K-Power) and plenty I had never heard of (such as Softline and Today). There are some interviews, quotes, and a number of game reviews that mention his name as the author.
I now have a list of questions I wish I could ask Steve. When we were hanging out in Southern California, the subject of CoCo stuff would inevitably come up from time to time, but I wish I had dug deeper and learned more about some of his other works.
SPECULATIVE UPDATE: Zaxxon ran on the PMODE 4 2-color screen, and used artifact colors. Those did not display on the CoCo 3’s RGB CM-8 monitor. Perhaps this was just a way to make a CM-8 compatible version of the game? Though, changing the title screen and adding the logo (as well as updating the font) does make it appear it was more than just that.
TL:DNR – I figured out how I might port one of my old VIC-20 games to the CoCo so it actually looks like the VIC-20 game ;-)
The VIC-20 has a 22×23 text screen. The CoCo has a 32×16 text screen. At the time, going from a width of 22 characters to 32 seemed like a huge upgrade. After all, you could scroll up and down to get more lines, but you couldn’t scroll left and right to get more columns.
I knew there was no way I could port any of my old character-based VIC-20 games to the CoCo without altering the screen layouts. Games that were written to use the 22×23 display, such as my Sky-Ape-Er, could not be replicated on the CoCo’s 32×16 text screen with 100% size accuracy.
Without reprogrammable characters, anything on the CoCo’s text screen would look far less graphical. Each text blog could either be a letter/number/punctuation character, or a 2×2 block of one color plus black.
Even if I did try to use these blocky characters to port any of my VIC-20 games, they would not be accurate since the width and height were different. I would have to redesign them to fit the CoCo screen:
Above, you can see I tried to get the “spirit” of the game on the screen, but there are less steps for each level, and 10 more horizontal spaces on each level, so the gameplay would be quite different. (To get to the top takes 12 jumps on the VIC, but only 8 on the CoCo version.)
With 32×16 there is simply no way I could accurately recreate a 22×23 game.
At least, not in text mode.
I knew the CoCo’s 32 column screen was equivalent to the 256 pixel width hi-res screen, and it would be larger than whatever the VIC’s 22 column screen was. Therefore, I figured the VIC’s 23 row screen must be larger than the CoCo’s 16 row screen.
When I started revisiting my VIC-20 programs, I remember that each screen character was 8×8. That made the 22 columns represent 176 pixels (22*8), and the 23 rows represented 184 (23*8). 176×184 is smaller than the CoCo’s 256×192 screen! I had always thought the CoCo’s text characters were 8×8, but that was just the data used to draw them. There were a few extra lines between each row that I had never considered.
On the CoCo, 32 columns at 8 pixels each is 256 — that is what I would expect. But when it came to rows, if each character were 8 pixels high, that would only be 96 pixels tall (16*8)! I had never bothered to “math” this. The 192 horizontal resolution meant that each of the 16 rows was 12 pixels tall! That means the CoCo text font was really more like 8×12.
This led me to experimenting with the VIC-20 font data. I could display a full VIC-20 display of 176×184 with room to spare on the CoCo’s 256×192 screen. I wrote about this in an earlier article and made this example showing the 22×23 VIC-20 character set drawn on the CoCo screen:
The VIC-20 did not have a graphics mode, and did everything by putting characters on the text screen. You were able to reprogram what those characters looked like. You could do some pretty neat things just by PRINTing or POKEing to the text screen.
This is how I made my Factory TNT game. I drew the screen like this…
…then remapped the characters to be my graphics:
I wanted to accurately represent that screen on a CoCo, I would have to do it using the CoCo’s hi-res 256×192 graphics screen. I could bring over all the actual character data and recreate it accurately, though the aspect ratio would be off a bit… It might look like this:
Missing is the “MEN:” and “SCORE:” text labels on the top line. Those font characters would have to be brought over, as well. The VIC would let you remap A, B, C, D, etc. to be different characters, and if you used inverse video (or something like that) while in this “reprogrammed character mode”, they would show up as normal uppercase letters on the screen.
This was just a quick experiment, but perhaps I can also bring over just the VIC-20 font letters needed for “MEN:” and “LIVES:”. Maybe I’d want the whole alphabet so I could add a title screen or instructions. Factory TNT 2024, perhaps?
To be continued… Maybe.
(Okay. Definitely. I have already started working on a multi-part article series about this endeavor.)
After the passing of Steve Bjork, his personal possessions ended up in an estate sale. Among them were some fantastic Disney collectables (Steve worked at Disneyland in the 1970s), and a bunch of CoCo stuff.
After the estate sale, much of this ended up at an auction. Roger Taylor spent over $6700 to acquire and preserve a huge bundle of Steve Bjork diskettes and source code printouts. To support him in this endeavor, I am now backing Roger’s Patreon with a $50/month “hardcore supporter” level. If you would like to help out, consider chipping in, even at a $5/month level, to help offset these investments.
Yesterday, Roger shared some photos of the source code printouts that had been kept in a storage box:
There are listings from pre-CoCo TRS-80 Model I/III software, as well as highly recognizable CoCo programs such as Clowns & Balloons, Mega-Bug, Micro Painter, Rampage, Bash as well as something called Marty Goodman Game which was written in 30 days. This would be released as Marty’s Nightmare for the 1990 Atlanta CoCoFest (the first time I ever met Steve in person).
One of the more curious things in the printout collection is a listing for Super Pitfall 2, which does not exist. It seems Super Pitfall was only released for the original Nintendo Entertainment System (NES), the Color Computer 3, and a Japanese machine called a PC-88. The Wikipedia page has this comment:
YouTube does have a few videos of a game called Super Pitfall 2, described as a prototype and unreleased:
If this Atlantis no Nazo game, which was only released in Japan, was going to be converted to be Super Pitfall 2 for the USA audience, was Activision also going to have a CoCo 3 version done? This seems unlikely, but the source code clearly says “Super Pitfall 2” and also has that text on its title screen! It also shows that Steve worked on this game from 11/11/1987 to 4/6/1988.
I do have a theory. Mine Rescue was a game very similar to Super Pitfall that Steve released in 1989. I cannot find the game in the Color Computer Archive (most likely since Steve was still active in the CoCo community and protecting his copyright), but the manual is there:
It was very similar to Super Pitfall. (photos from L. Curtis Boyle’s site)
This was much like Steve’s game Bash was very similar to Arkanoid. (photos from L. Curtis Boyle’s site)
Steve had a library of routines he would use in various games. You could see how the scrolling perspective of his port of Zaxxon might have been re-used for one of the levels in his Ghana Bwana game (photos from L. Curtis Boyle’s site):
I am wondering if this “Super Pitfall 2” might have been the code that was later released as Mine Rescue. But, at the moment in time that printout was noted with “4/6/88”, both the source code and the embedded text for the title screen read “Super Pitfall 2”.
I am looking forward to following Roger Taylor’s exploration of this archive of Steve Bjork material. I wonder what other things will be discovered…
Until then, stop by Roger’s Patreon and please consider supporting him at whatever level you can justify.
Let me begin this installment by presenting the current Lights Out code with some renumbering done and a few minor improvements.
0 REM LITESOUT-P7.BAS
10 REM SETUP 20 DIM L(9,9)
100 REM START NEW GAME 110 GOSUB 5000 120 REM INITIALIZE GRID 130 MV=0 140 GOSUB 4000 150 REM SHOW GRID 160 GOSUB 1000 170 REM CHECK FOR WIN 180 IF LO=0 THEN 300 190 REM INPUT SQUARE 200 GOSUB 2000 210 REM TOGGLE SQUARES 220 GOSUB 3000 230 REM REPEAT 240 MV=MV+1 250 GOTO 150
300 REM GAME WON 310 PRINT "YOU WON IN";MV;"MOVES." 320 INPUT "PLAY AGAIN (Y/N)";Q$ 330 IF Q$="Y" THEN 100 340 PRINT "GAME OVER" 350 END
1000 REM SHOW GRID 1010 PRINT "GAME NUMBER:";GN 1020 PRINT " "; 1030 FOR A=1 TO GS 1040 PRINT RIGHT$(STR$(A),2); 1050 NEXT:PRINT 1060 FOR Y=0 TO GS-1 1070 PRINT RIGHT$(STR$(Y+1),2);" "; 1080 FOR X=0 TO GS-1 1090 IF L(X,Y) THEN PRINT "X ";:GOTO 1110 1100 PRINT ". "; 1110 NEXT 1120 PRINT 1130 NEXT 1140 PRINT "MOVES:";MV;"LIGHTS ON:";LO 1150 RETURN
2000 REM INPUT SQUARE 2010 S$=MID$(STR$(GS),2):PRINT "X,Y (1-";S$;",1-";S$;" OR 0,0)"; 2020 INPUT X,Y 2030 IF X=0 THEN IF Y=0 THEN 320 2040 IF X<1 OR X>GS OR Y<1 OR Y>GS THEN 2010 2050 X=X-1:Y=Y-1 2060 RETURN
3000 REM TOGGLE SQUARES 3010 L(X,Y)=NOT L(X,Y):LO=LO-(L(X,Y)*2+1) 3020 IF X>0 THEN L(X-1,Y)=NOT L(X-1,Y):LO=LO-(L(X-1,Y)*2+1) 3030 IF X<GS-1 THEN L(X+1,Y)=NOT L(X+1,Y):LO=LO-(L(X+1,Y)*2+1) 3040 IF Y>0 THEN L(X,Y-1)=NOT L(X,Y-1):LO=LO-(L(X,Y-1)*2+1) 3050 IF Y<GS-1 THEN L(X,Y+1)=NOT L(X,Y+1):LO=LO-(L(X,Y+1)*2+1) 3060 RETURN
4000 REM INITIALIZE GRID 4010 INPUT "GRID SIZE (3-10, ENTER=5)";GS 4020 IF GS=0 THEN GS=5 4030 IF GS<3 OR GS>10 THEN 4010 4040 PRINT "INITIALIZING..." 4050 FOR A=1 TO 10*GS 4060 Y=RND(GS)-1 4070 X=RND(GS)-1 4080 GOSUB 3000 4090 NEXT 4100 RETURN
5000 REM SELECT GAME 5010 PRINT "PLAY SPECIFIC GAME # (Y/N)?" 5020 S=S+1:A$=INKEY$:IF A$="" THEN 5020 5030 IF A$="Y" THEN 5070 5040 IF A$="N" THEN A=RND(-S) 5050 GN=RND(65535):A=RND(-GN) 5060 GOTO 5100 5070 INPUT "PLAY GAME (1-65535)";GN 5080 IF GN<1 OR GN>65535 THEN 5060 5090 A=RND(-GN) 5100 RETURN
As I tested this version, I noticed my random grid generator was not very good–at least on a large 10×10 grid. It really needed to do more random light toggling for larger grids. This change would go in this line – maybe just doing a “grid size * X”, like “10*GS” or something. I am still trying things, but for now I made it do more random toggles the larger the grid size is (line 4050).
I also made it so the default grid size was 5 (line 4010).
And I fixed some output where it printed a numeric variable. In Color BASIC, there is an extra space printed before and after printing a number:
PRINT "*";42;"*" * 42 *
And, technically, it’s not a space before a number — it’s a place for the sign (none if positive, “-” if negative):
PRINT "*";-42;"*" *-42 *
Since I knew I was only printing a positive number, I just got rid of that leading space, and the one after it. I did this by converting the number to a string using STR$. That will convert it to a string with the first space (a place for the sign) but no space after it:
PRINT "*";STR$(42);"*" * 42*
Then all I needed to do was trim off that leading space. In the old days, I would have done this by getting the length of the string using LEN$ and then using RIGHT$ to get just the character(s) after that leading space:
N=42 N$=STR$(N) L=LEN(N$) PRINT RIGHT$(N$,L-1)
But in recent years, someone commented on this site (I believe) about how you could use MID$ without a size and just specify the starting position in a string, and it would return everything from that position to the end:
N=42 PRINT MID$(STR$(N),2)
Nice! “Wish I knew then what I know now…”
But I digress…
We now have a fairly “feature complete” version of Lights Out that runs in very basic BASIC — it doesn’t even make use of ELSE.
Before I move on to making this look a lot nicer on a CoCo, I thought it might be fun to port it to a VIC-20. I made use of the wonderful CBM prg Studio Windows-based tool that can build BASIC or assembly programs for all kinds of Commodore machines. I just pasted in my source, and then found a few minor things I would need to change to run on the VIC-20’s CBM BASIC.
The first thing I did after pasting the code in to the editor was to convert it all to lowercase. That seems to be how that BASIC works, as SHIFT characters turn in to PETSCII graphics characters.
Now I would be able to build the program.
It would build right away, but not run on the VIC yet until I fix two things that are different between Color BASIC and CBM BASIC:
A$=INKEY$ must be changed to GET A$
RND(x) must be changed to INT(RND(1)*X)-1 (Doing the random seed using RND(-X) works the same way on the VIC, and could be left alone.)
CoCo: 5020 S=S+1:A$=INKEY$:IF A$="" THEN 5020
VIC: 5020 S=S+1:GET A$:IF A$="" THEN 5020
CoCo: 4060 Y=RND(GS)-1
VIC: 4060 Y=INT(RND(1)*GS)
CoCo: 4070 X=RND(GS)-1
VIC: 4070 X=INT(RND(1)*GS)
After that, I tried to RUN it and ran in to a problem with INPUT:
From testing, it seems that long prompts on INPUT cause issues, possibly related to how the VIC’s full screen editor works. I sent a tweet to 8-Bit Show and Tell to see what he knew, and did a simple workaround by breaking up the prompt and the input on separate screen lines:
I thought I might have the same issue with the “select square” input, but that prompt does not overlap to the next line so it worked… or so I thought. With the default grid size of 5×5, the prompt looked like:
X,Y (0-5,0-5 OR 0,0)?(space) *(cursor here)
That seemed to work just fine, but when I did a grid of 10×10, it made the prompt longer, wrapping the “?” of INPUT to the next line:
X,Y (0-10,0-10 OR 0,0) ? *(cursor here)
So I needed to fix that, too. I had already had to break that one up in to a PRINT and an INPUT since I was printing variables in the prompt, so I just took the semicolon off from the end of the PRINT:
2000 rem input square 2010 s$=mid$(str$(gs),2):print "x,y (1-";s$;",1-";s$;" or 0,0)" 2020 input x,y
Now I had what appeared to be a working version of the game for VIC-20. BUT, it would need some work to reformat the prompts to fit on a 22-column screen, versus the 32- column CoCo screen. For anyone who wants to work on that, here is the VIC-20 version with the lines in bold that have changes from the CoCo version:
0 rem litesout-p7.bas
10 rem setup 20 dim l(9,9)
100 rem start new game 110 gosub 5000 120 rem initialize grid 130 mv=0 140 gosub 4000 150 rem show grid 160 gosub 1000 170 rem check for win 180 if lo=0 then 300 190 rem input square 200 gosub 2000 210 rem toggle squares 220 gosub 3000 230 rem repeat 240 mv=mv+1 250 goto 150
300 rem game won 310 print "you won in";mv;"moves." 320 input "play again (y/n)";q$ 330 if q$="y" then 100 340 print "game over" 350 end
1000 rem show grid 1010 print "game number:";gn 1020 print " "; 1030 for a=1 to gs 1040 print right$(str$(a),2); 1050 next:print 1060 for y=0 to gs-1 1070 print right$(str$(y+1),2);" "; 1080 for x=0 to gs-1 1090 if l(x,y) then print "x ";:goto 1110 1100 print ". "; 1110 next 1120 print 1130 next 1140 print "moves:";mv;"lights on:";lo 1150 return
2000 rem input square 2010 s$=mid$(str$(gs),2):print "x,y (1-";s$;",1-";s$;" or 0,0)" 2020 input x,y 2030 if x=0 then if y=0 then 320 2040 if x<1 or x>gs or y<1 or y>gs then 2010 2050 x=x-1:y=y-1 2060 return
3000 rem toggle squares 3010 l(x,y)=not l(x,y):lo=lo-(l(x,y)*2+1) 3020 if x>0 then l(x-1,y)=not l(x-1,y):lo=lo-(l(x-1,y)*2+1) 3030 if x<gs-1 then l(x+1,y)=not l(x+1,y):lo=lo-(l(x+1,y)*2+1) 3040 if y>0 then l(x,y-1)=not l(x,y-1):lo=lo-(l(x,y-1)*2+1) 3050 if y<gs-1 then l(x,y+1)=not l(x,y+1):lo=lo-(l(x,y+1)*2+1) 3060 return
4000 rem initialize grid 4010 print "grid size (3-10, enter=5)":input gs 4020 if gs=0 then gs=5 4030 if gs<3 or gs>10 then 4010 4040 print "initializing..." 4050 for a=1 to 10*gs 4060 y=int(rnd(1)*gs) 4070 x=int(rnd(1)*gs) 4080 gosub 3000 4090 next 4100 return
5000 rem select game 5010 print "play specific game # (y/n)?" 5020 rem s=s+1:a$=inkey$:if a$="" then 5020 5021 s=s+1:get a$:if a$="" then 5020 5030 if a$="y" then 5070 5040 if a$="n" then a=rnd(-s) 5050 gn=rnd(65535):a=rnd(-gn) 5051 rem gn=int(rnd(1)*65535)-1:a=rnd(-gn) 5060 goto 5100 5070 input "play game (1-65535)";gn 5080 if gn<1 or gn>65535 then 5060 5090 a=rnd(-gn) 5100 return
The more I look at this code, the more optimizations I want to make to it.
But for now, that is a version for CoCo, and a version for Commodore. It should be easy to port to other flavors of BASIC. Let me know if you port it to something.
Now that I know how to write the game, the next goal will be to make it look a lot better on the CoCo (and maybe VIC-20 as well, if I feel ambitious).
But I think I need a brake from Lights Out for a bit…
At this point, we have a nicely functional BASIC version of Lights Out. Some of its features include:
5×5 grid of lights.
Random games.
Allows replaying a specific game.
Counts moves for scoring.
Ability to quite a game in progress.
Slightly less sucky user interface than the original version.
But we still have more to do!
Bigger grid, please
One of the enhancements I mentioned in the previous installment was the ability to specify larger (or smaller, I suppose), grid sizes. We know that the official Lights Out games from Tiger Electronics in the 1990s used a 5×5 and 6×6 grid. Others have since created variations, such as one that operates around a cube (maybe we write that version some day). Let’s start there…
For this simple version, we’ll just arbitrarily pick a maximum grid size of 10×10. This should still fit easily on the CoCo’s 32×16 text screen. For fun, we could also allow a grid size smaller than 5×5 to be chosen. Since the spiritual predecessor of Lights Out was a 1970s game that featured a 3×3 grid, I’ll use that size as the minimum.
The changes needed should be fairly minor. When starting a game, the user will be prompted for the grid size.
It seems we could allow rectangular grids (5×3, 10×5, etc.), but for now we’ll just stick to square grids where both sides are the same size. The array for the grid just needs to be large enough to hold the largest sized grid.
Wrong DIMension
An oversight I made when starting this program was not adding a DIM statement to specify the maximum size of the two-dimensional grid array! The current version really needs a line that contains this at the very top:
DIM L(4,4)
Reminder: DIM is base-0, so it starts counting entries at 0. A DIM X(4) gives entries X(0), X(1), X(2), X(3) and X(4).
The program only works because Color BASIC allows array entries 0-10 before the DIM is needed. You can do A(10)=42 without needing to DIM A(10) first. (I find it weird that Microsoft chose to default to 11 array entries. I bet whoever coded that was thinking “1-10” rather than “0-10”.)
To enhance the program to support up to a 10×10 grid, we’ll allocate an array that large.
4 DIM L(9,9)
Next we need to ask the user what size grid they want. This can be added to the “initialize grid” subroutine:
4000 REM INITIALIZE GRID 4005 INPUT "GRID SIZE (3-10)";GS 4006 IF GS<3 OR GS>10 THEN 4005 ...
After that, any place that is currently hard coded to 4 will need to be changed to use the grid size variable. If the user types in 10 (for a 10×10), the array will be using 0-9. We must pay attention to that and know that a 10 grid is actually 0-9.
This is also a good time to clean up the printing of the grid a bit. Here is the full program with the latest changes in bold:
4 DIM L(9,9) 5 REM SELECT GAME 6 GOSUB 6000 10 REM INITIALIZE GRID 15 MV=0 20 GOSUB 4000 30 REM SHOW GRID 40 GOSUB 1000 47 IF LO=0 THEN 200 50 REM INPUT SQUARE 60 GOSUB 2000 70 REM TOGGLE SQUARES 80 GOSUB 3000 90 REM REPEAT 95 MV=MV+1 100 GOTO 30
200 REM GAME WON 220 PRINT "YOU WON IN";MV;"MOVES." 230 INPUT "PLAY AGAIN (Y/N)";Q$ 240 IF Q$="Y" THEN 5 250 PRINT "GAME OVER" 260 END
1000 REM SHOW GRID 1005 PRINT "GAME NUMBER:";GN 1006 PRINT " "; 1007 FOR A=1 TO GS 1008 PRINT RIGHT$(STR$(A),2); 1009 NEXT:PRINT 1010 FOR Y=0 TO GS-1 1015 PRINT RIGHT$(STR$(Y+1),2);" "; 1020 FOR X=0 TO GS-1 1030 IF L(X,Y) THEN PRINT "X ";:GOTO 1050 1040 PRINT ". "; 1050 NEXT 1060 PRINT 1070 NEXT 1080 PRINT "MOVES:";MV;"LIGHTS ON:";LO 1090 RETURN
2000 REM INPUT SQUARE 2010 PRINT "X,Y (1-";GS;",1-";GS;" OR 0,0)"; 2011 INPUT X,Y 2015 IF X=0 THEN IF Y=0 THEN 230 2020 IF X<1 OR X>GS OR Y<1 OR Y>GS THEN 2010 2025 X=X-1:Y=Y-1 2030 RETURN
3000 REM TOGGLE SQUARES 3010 L(X,Y)=NOT L(X,Y):LO=LO-(L(X,Y)*2+1) 3020 IF X>0 THEN L(X-1,Y)=NOT L(X-1,Y):LO=LO-(L(X-1,Y)*2+1) 3030 IF X<GS-1 THEN L(X+1,Y)=NOT L(X+1,Y):LO=LO-(L(X+1,Y)*2+1) 3040 IF Y>0 THEN L(X,Y-1)=NOT L(X,Y-1):LO=LO-(L(X,Y-1)*2+1) 3050 IF Y<GS-1 THEN L(X,Y+1)=NOT L(X,Y+1):LO=LO-(L(X,Y+1)*2+1) 3060 RETURN
4000 REM INITIALIZE GRID 4005 INPUT "GRID SIZE (3-10)";GS 4006 IF GS<3 OR GS>10 THEN 4005 4010 PRINT "INITIALIZING..." 4020 FOR A=1 TO 10 4030 Y=RND(GS)-1 4040 X=RND(GS)-1 4050 GOSUB 3000 4060 NEXT 4070 RETURN
6000 REM SELECT GAME 6010 PRINT "PLAY SPECIFIC GAME # (Y/N)?" 6020 S=S+1:A$=INKEY$:IF A$="" THEN 6020 6030 IF A$="Y" THEN 6060 6040 IF A$="N" THEN A=RND(-S) 6045 GN=RND(65535):A=RND(-GN) 6046 GOTO 6090 6050 GOTO 6020 6060 INPUT "PLAY GAME (1-65535)";GN 6070 IF GN<1 OR GN>65535 THEN 6060 6080 A=RND(-GN) 6090 RETURN
This version will display the grid with nicely (?) formatted headers for the columns and rows, and less nicely formatted prompts for what values are allowed.
There is still so much work to do to make the user interface nicer to look at and interact with.
As we begin this part, let’s look at the BASIC Lights Out code as it stands currently:
5 REM SELECT GAME 6 GOSUB 6000 10 REM INITIALIZE GRID 20 GOSUB 4000 30 REM SHOW GRID 40 GOSUB 1000 47 IF LO=0 THEN PRINT "YOU WON!":END 48 PRINT "LIGHTS ON:";LO 50 REM INPUT SQUARE 60 GOSUB 2000 70 REM TOGGLE SQUARES 80 GOSUB 3000 90 REM REPEAT 100 GOTO 30
1000 REM SHOW GRID 1005 PRINT "GAME NUMBER:";GN 1010 FOR Y=0 TO 4 1020 FOR X=0 TO 4 1030 IF L(X,Y) THEN PRINT "X";:GOTO 1050 1040 PRINT "."; 1050 NEXT 1060 PRINT 1070 NEXT 1080 PRINT 1090 RETURN
2000 REM INPUT SQUARE 2010 INPUT "X,Y (0-4,0-4)";X,Y 2020 IF X<0 OR X>4 OR Y<0 OR Y>4 THEN 2010 2030 RETURN
3000 REM TOGGLE SQUARES 3010 L(X,Y)=NOT L(X,Y):LO=LO-(L(X,Y)*2+1) 3020 IF X>0 THEN L(X-1,Y)=NOT L(X-1,Y):LO=LO-(L(X-1,Y)*2+1) 3030 IF X<4 THEN L(X+1,Y)=NOT L(X+1,Y):LO=LO-(L(X+1,Y)*2+1) 3040 IF Y>0 THEN L(X,Y-1)=NOT L(X,Y-1):LO=LO-(L(X,Y-1)*2+1) 3050 IF Y<4 THEN L(X,Y+1)=NOT L(X,Y+1):LO=LO-(L(X,Y+1)*2+1) 3060 RETURN
4000 REM INITIALIZE GRID 4010 PRINT "INITIALIZING..." 4020 FOR A=1 TO 10 4030 Y=RND(5)-1 4040 X=RND(5)-1 4050 GOSUB 3000 4060 NEXT 4070 RETURN
6000 REM SELECT GAME 6010 PRINT "PLAY SPECIFIC GAME # (Y/N)?" 6020 S=S+1:A$=INKEY$:IF A$="" THEN 6020 6030 IF A$="Y" THEN 6060 6040 IF A$="N" THEN A=RND(-S) 6045 GN=RND(65535):A=RND(-GN) 6046 GOTO 6090 6050 GOTO 6020 6060 INPUT "PLAY GAME (1-65535)";GN 6070 IF GN<1 OR GN>65535 THEN 6060 6080 A=RND(-GN) 6090 RETURN
There are quite a few more things that could (and probably need to) be done:
The number of moves taken should be counted and displayed.
If the game is won, it just ENDs in line 47. It could ask the player if they want to play again.
There is no way to quit a game in progress other than hitting the break key.
The user interface (typing in coordinates such as “0,2”) is user-hostile. At the very least, we could label the rows/columns to show which values to type. Perhaps even labeling them “A B C D E …” across, and “1 2 3 4 5” vertically, similar to how chess boards are done.
Options for grids larger than 5×5 could be implemented with very little change in the code.
Once the game is “code complete“, there is also be some cleanup and renumbering that should be done. (Having those odd line numbers like 47 bugs me.)
Score (Counting Moves)
The current code only knows that you won the game (the game ends) or you are still playing. If one person plays game number 16809 and solves it in 80 moves, and another person plays the same game and solves it in 10 moves, they are both treated to the same ending – the game exits.
Let’s add a move counter. We’ll reset it at the start of a game…
10 REM INITIALIZE GRID 15 MV=0 20 GOSUB 4000
…and increment it after every move:
90 REM REPEAT 95 MV=MV+1 100 GOTO 30
We should also display the move count each time the grid is display. This is a good time to also move the “number of lights on” in to the display grid routine, too.
48 PRINT "LIGHTS ON:";LO (removed)
1000 REM SHOW GRID 1005 PRINT "GAME NUMBER:";GN 1010 FOR Y=0 TO 4 1020 FOR X=0 TO 4 1030 IF L(X,Y) THEN PRINT "X";:GOTO 1050 1040 PRINT "."; 1050 NEXT 1060 PRINT 1070 NEXT 1080 PRINT "MOVES:";MV;"LIGHTS ON:";LO 1090 RETURN
This now gives us a display of our game number (which was already there), the number of moves made so far (new), and the current count of how many lights are on (already there).
DONE: The number of moves taken should be counted and displayed.
Game Over
The next thing I want to add is a game over screen. When the game is on, this screen should display how many moves it took. It could then prompt the user to see if they want to play agan.
It could be as simple as this:
47 IF LO=0 THEN 200
200 REM GAME WON 220 PRINT "YOU WON IN";MV;"MOVES." 230 INPUT "PLAY AGAIN (Y/N)";Q$ 240 IF Q$="Y" THEN 5 250 PRINT "GAME OVER" 260 END
DONE: If the game is won, it just ENDs in line 47. It could ask the player if they want to play again.
I give up!
The user should also be able to quit. Currently, the awful “type in an X,Y coordinate” thing is yucky, but we could make typing “-1,-1” end the game. (We will fix the user interface later.)
2000 REM INPUT SQUARE 2010 INPUT "X,Y (0-4,0-4 OR -1,-1)";X,Y 2015 IF X=-1 THEN IF Y=-1 THEN 230 2020 IF X<0 OR X>4 OR Y<0 OR Y>4 THEN 2010 2030 RETURN
This is so yucky, but the goal here is to get the code fully functional. We can make it nice later.
DONE: There is no way to quit a game in progress other than hitting the break key.
The user interface sucks!
Okay, this one will take more work, but a quick enhancement might be to just print the columns and rows so the player knows what to type. Also, humans like counting from one instead of zero (base-1 humans) so typing in things to match the base-0 arrays is not very human friendly. We can fix both things here.
1000 REM SHOW GRID 1005 PRINT "GAME NUMBER:";GN 1006 PRINT " 12345" 1010 FOR Y=0 TO 4 1015 PRINT Y+1; 1020 FOR X=0 TO 4 1030 IF L(X,Y) THEN PRINT "X";:GOTO 1050 1040 PRINT "."; 1050 NEXT 1060 PRINT 1070 NEXT 1080 PRINT "MOVES:";MV;"LIGHTS ON:";LO 1090 RETURN
…and…
2000 REM INPUT SQUARE 2010 INPUT "X,Y (1-5,1-5 OR 0,0)";X,Y 2015 IF X=0 THEN IF Y=0 THEN 230 2020 IF X<1 OR X>5 OR Y<1 OR Y>5 THEN 2010 2025 X=X-1:Y=Y-1 2030 RETURN
Now the user will see numbers above the grid, and to the left of the grid, and be able to enter them using 1-5 rather than 0-4. I made 0,0 exit as well to save the use from having to type the minus signs.
But, this interface still sucks. After we get the “text and typing” version done, we can do one that is more modern and uses the arrow keys to cursor around and select squares.
DONE: The user interface (typing in coordinates such as “0,2”) is user-hostile.
Bigger grid, please
Hey, let’s just get the basic game working first, then we can worry about “Deluxe Lights Out.”
DEFERRED: Options for grids larger than 5×5 could be implemented with very little change in the code.