CB2 micro

Games/Applications

About this page

This page includes the CB2 firmware (opensource) and all the games and application programs that have been written for the CB2 micro, as long as I am aware of. This page will be updated constantly with new programs, so make sure you check it out regularly!

Have you written a game or an application for the CB2 micro that you think it will be useful or just fun for other people to have? Please email it to me to upload it on this page.

Quick index reference

Click on a word in the table below to navigate to the relevant section/application. Then use "back" on your browser to return to this table.

Note, to download the code of the BASIC programs, copy it to a notepad and save it as a text file. Then transfer this file to your CB2 micro through the serial port. Alternatively, you can always type in the programs manually. In this case, you do not need to type in the first line (PROGRAM:programname), the last line (#) and the line numbers of the program.

1 Games
1.1 SetFree
1.2 Arkanoid
1.3 Eatman
1.4 Racer
1.5 Pong
1.6 Snake
1.7 PongOne
1.8 H-Tron
1.9 Reverse Number
2.0 2048
2.1 MastermindRK
2.2 SuperBrain
2.3 Reversi
2.4 Escape
2.5 Bounce
2.6 TicTacToe
2.7 Lights Out
2.8 15-Puzzle
2.9 RainbowRunner
3.0 Batnum
3.1 Hammarubi
3.2 Horse
3.3 Lunar

2 Networked Games
2.1 None yet

3 Applications
3.1 Submenus
3.2 Charset
3.3 SinusCosinus
3.4 Face
3.5 Marquee
3.6 Tilemode
3.7 CB2Matrix
3.8 Alarm-clock
3.9 Charset 2
4.0 Develop
4.1 CB2demos
4.2 Xeeprom
4.3 Mondphasen
4.4 Kalender

4 Networked Applications
4.1 microBBS
4.2 Colterm
4.3 ColtermSRV
4.4 microBBS2
4.5 printSRV
4.6 AsciiTERM
4.7 microBBS3

5 Lab
5.1 Oscilloscope

6 HAM radio
6.1 None yet

7 System files

8 Additional programs

1 Games

Name	Description	Controls	Requirements	Code/Download	Screenshot
1.1 SetFree	SetFree is a game written by KOS. You shoot missiles from your plane to hit prisons and try to free up prisoners. If you hit your plane on a prison or a man or the walls, a life is lost. After a number of free men has been reached, level goes up. You have limited amount of missiles, but you gain more missiles when freeing prisoners.	Left, Right, Up, Down arrows and SPACE	None	PROGRAM:Setfree 01 GOTO 79 02 CLS :Y=10:X=5:B=6:S=15:D=0:T=$82 03 COLOR 8,1:BOX 3,3,42,56:V=5'spee 04 COLOR 9,0:CBOX 2,2,20,27 05 DA 0,2,-1,-1,1,3,232,227,129,$F5 06 DA 8,$F5,$F9,$F9'ship 07 DA 29,2,-1,-1,1,1,169,4'amos 08 K=3:E=20:R=1 09 IF K=0:END 10 IF E=0:END 11 IF L>=20:V=4:NOTE 254,15 12 IF L>=40:V=3:NOTE 254,15 13 IF L>=55:V=2:NOTE 254,15 14 IF L>=65:V=1:NOTE 254,15 15 DA 21,2,-1,-1,1,1,173,$F27'figur 16 Q=Q+1:IF Q=5:D=1-RND(4):Q=0 17 NO 255,5 18 IF KEY(0)=226:X=X-1 19 IF KEY(0)=227:X=X+1 20 IF KEY(0)=228:Y=Y-1 21 IF KEY(0)=229:Y=Y+1 22 IF KEY(0)=32 GOS 67 23 24 LIMIT Y,2,20:LIMIT X,2,173:O=S 25 IF F=1:B=B+1:IF B=27:F=0 26 S=S+D:LIMIT S,7,10:COL 4,0 27 IF (IN(3)<>1) 28 P=(P+1)%2 29 SPR 29,-1,-1:SPR 21,-1,-1 30 SPRITE 0,-1,-1:SCROLL 3 31 SPRITE 0,Y,X 32 IF F=1 SPR 29,A,B 33 IF P=1:COL 2,0:? @Y,X;%235'fire 34 IF P=0:COL 6,0:? @Y,X;%225'fire 35 COL 5,13'top walls color 36 FOR I=2 TO S-4:? @I,27;%T:NEXT 37 COL 3,11'bottom walls color 38 FOR I=S+10 TO 20:? @I,27;%T:NEXT 39 COLOR 0,5:IF O>S ? @S-3,27;%130 40 COLOR 0,5:IF O<S ? @S-4,27;%131 41 COL 3,0:IF O>S ? @S+10,27;%130 42 COL 3,0:IF O<S ? @S+9,27;%131 43 COL 10,8:? @0,2;%174;L 44 COL 12,8:? @0,7;%169;E 45 IF E<10:COL 12,8:? @0,8;" ";E 46 COL 9,8:? @0,13;%227;%129;K 47 IF V=4:R=2 48 IF V=3:R=3 49 IF V=2:R=4 50 IF V=1:R=5 51 COL 14,8:? @0,20;"Level:";R 52 N=AR(13)+AR(14)+AR(15)+AR(16) 53 IF N>150 THEN NO 255,15:K=K-1 54 GCH C,A,B+1 55 IF C=131 THEN F=0 56 IF C=130 THEN F=0 57 H=RND(8) 58 IF H=1:COL 2,0:SPR 21,S+9,27 59 COL 2,0 60 IF C=173:? @A,B+1;%174:GOS 62 61 SYNC V:GOTO 9 62 L=L+1:E=E+1 63 FOR J=196 TO 254 64 NOTE J,15 65 NEXT 66 RET 67 F=1:B=X+2:A=Y:NO 127,14:E=E-1 68 RET 69 70 71 72 I=1 73 CLS :COLOR 14 74 DA 0,39,8,39,4,34,8,34,4 75 'PLAY 0,4,2,128 76 COL 15 77 BOX 0,2,31,59 78 COLOR I:? !66;@2,5;"SetFree" 79 COLOR 13 80 ? @21,5;"(C)2019 KOS (sv3ora)" 81 COL 14 82 IF I=16:I=1 83 WAIT 1:I=I+1':N=XPEEK(5) 84 COL 12 85 ? @8,5;"Shoot missiles to the" 86 ? @9,5;"prisons to free men." 87 ? @11,5;"But do not waste" 88 ? @12,5;"your missiles" 89 ? @13,5;"or hit on obstacles!" 90 COL 14 91 IF I<7 ? @17,8;" " 92 IF I>7 ? @17,8;" PRESS START" 93 IF KEY(0)=234:GOTO 2 94 NOTE RND(254),13 95 GOTO 76 #
1.2 Arkanoid	Arkanoid is the classic game. You control the bar to repel the ball which hits on brick targets. In this version you play forever no matter how many lives you have lost.	Left and Right arrows	None	PROGRAM:Arkanoid 01 L=3:V=1 02 CLS :A=15:X=A+1:Y=18:E=1:F=1 03 DA 0,2,-1,-1,1,3,136,15,137 04 DA 8,$F2,$F2,$F2 05 DA 21,2,-1,-1,1,1,17,$F4 06 COLOR 7,1:BOX 4,3,42,56 07 COLOR 7,0:CBOX 4,3,20,27 08 FOR I=2 TO 27 09 FOR H=3 TO 5 'Score 78 10 COL H:? @H,I;%180 11 NEXT 12 NEXT :IF RND(2)=1 THEN E=-1 13 DA 33,15,4,14,4,15,4,8,4 14 15 16 PLAY 33,4,3,128 17 IF S=0 THEN X=A+1 18 SPRITE 0,19,A 19 GCH Z,Y,X:IF Z=180:NO 80:C=C+1 20 IF Z=180:? @Y,X;%32:F=-F:Y=Y-F 21 SPR 21,Y,X 22 IF IN(3)=1 THEN S=1 23 A=A+KEY(6) 24 'IF IN(2)=1 THEN A=A+1 25 LIM A,2,25:LIM Y,3,20 26 IF S=1 THEN GOS 43 27 COL 4:? @1,2;%17 28 COL 7:? @1,3;":";L 29 ? @1,10;"Score:"C 30 ? @1,22;"Lev:";V:U=C/2 31 IF (C=78)&(V=1):S=0:V=2:GOS 58 32 IF (C=114)&(V=2):S=0:V=3:GOS 66 33 DA 33,U+15,4,127,4,U,4,10,4 34 IF (C=158)&(V=3):S=0:V=4:GOS 74 35 IF U>40 THEN U=15 36 37 38 39 40 41 42 SYNC 2:GOTO 17 43 P=(P+1)%2:IF P=0:X=X+E:Y=Y-F 44 IF (X=1)#(X=28):NO 20:E=-E:X=X+E 45 IF Y=2 THEN NO 20:F=-F:Y=Y-F 46 IF Y<19 GOTO 50 47 IF (X<A)#(X>(A+2)):NO 127:Q=1 48 IF Q=1:SYNC 4:S=0:Q=0:L=L-1 49 E=T:F=-F:Y=Y-F:NO 20 50 'IF Z=180:NOTE 120:C=C+1 51 'IF Z=180:? @Y,X;%32:F=-F:Y=Y-F 52 IF (Y=18)&(X=A):T=-1 53 IF (Y=18)&(X=A+1):T=0 54 IF (Y=18)&(X=A+2):T=1 55 RET 56 57 58 FOR I=6 TO 23 59 FOR H=3 TO 4 60 COL H/2:? @H2,I;%180 61 NEXT 62 NEXT :IF RND(2)=1 THEN E=-1 63 A=15:X=A+1:Y=18:E=1:F=1 64 RET 65 'Level 3 66 FOR I=2 TO 12 67 FOR H=2 TO 5 68 COL H2:? @H2,I2;%180 69 NEXT 70 NEXT :IF RND(2)=1 THEN E=-1 71 A=15:X=A+1:Y=18:E=1:F=1 72 RET #
1.3 Eatman	This game is a clone of the packman game. If you catch a red fruit, the spirits for a short time whiten and can be hunted by you. The spirits, however, are "stupid", because they only move randomly through the labyrinth.	Left, Right , Up and Down arrows	None	PROGRAM:eatman 01 BO 0:P=0:GOS 64:DA 64,64,32,0 02 ALERT 64:X=AR(1):Y=AR(0):D=21 03 GOSUB 48:FOR F=1 TO 4:A=F5 04 IF AR(A)<>AR(3) THEN GO 9 05 IF AR(A+1)<>AR(4) THEN GO 9 06 IF G>0 THEN NO 98:P=P+20:GO 35 07 ? @AR(3)+1,AR(4)+4;%250; 08 NO 255: BO 2:A=KEY(2):END 09 NEXT :F=0:GOSUB 40 10 T=1-T: IF T=0 THEN GOTO 17 11 K=KEY(6):M=KEY(7) 12 IF (K=-1) & (L=1) THEN X=X-1 13 IF (K=1) & (R=1) THEN X=X+1 14 IF (M=1) & (U=1) THEN Y=Y-1 15 IF (M=-1) & (D=1) THEN Y=Y+1 16 DA 0,Y,X:GO 32 17 FOR F=1 TO 4:GOSUB 40 18 S=U+D+L+R:M=N 19 IF S>2 THEN GOSUB 37 20 IF S=1 THEN N=(N+2)&3:GO 26 21 IF (N=0) & (R=1) THEN GO 26 22 IF (N=2) & (L=1) THEN GO 26 23 IF (N=1) & (D=1) THEN GO 26 24 IF (N=3) & (U=1) THEN GO 26 25 GOSUB 37: GO 18 26 IF N=0 THEN DA A+1,AR(A+1)+1 27 IF N=1 THEN DA A,AR(A)+1 28 IF N=2 THEN DA A+1,AR(A+1)-1 29 IF N=3 THEN DA A,AR(A)-1 30 DA A+2,N:NEXT 31 IF G>0 THEN G=G-1 32 COLOR 7,0:? @0,10;"Punkte:";P 33 SYNC 2: IF Q=1 THEN GO 35 34 GO 3 35 DA A,10,10:N=1:GO 31 36 GOSUB 64:DA 64,0,4,32,0:GOTO 2 37 Z=RND(3):IF Z=2 THEN Z=3 38 N=(M+Z)&3:RETURN 39 'check if figure f can move 40 L=0:R=0:U=0:D=0:A=F5 41 N=AR(A+2):E=100+AR(A)21+AR(A+1) 42 IF AR(E-21)<>49 THEN U=1 43 IF AR(E+21)<>49 THEN D=1 44 IF AR(E-1)<>49 THEN L=1 45 IF AR(E+1)<>49 THEN R=1 46 RETURN 47 'draw figures 48 FOR W=1 TO 4:A=W5 49 J=AR(A+3):I=AR(A+4):GOSUB 91 50 J=AR(A+0):I=AR(A+1):COL W+1,0 51 DA A+3,J,I 52 IF (G>0)&(G<>7) THEN COL 7,0 53 ? @1+J,4+I;%25;:NEXT 54 J=AR(3):I=AR(4):GOS 91:COL 6,0 55 E=100+21AR(0)+AR(1) 56 IF AR(E)=42 THEN GOSUB 61 57 IF AR(E)=46 THEN GOSUB 60 58 DA E,0:? @1+AR(0),4+AR(1);%26; 59 DA 3,AR(0),AR(1):RET 60 NO 104: P=P+1:Q=Q-1:RET 61 NO 120: P=P+10:G=50:RET 62 63 'Draw playfield and set data 64 DA 0,15,10,1,0,0,10,9,1,0,0 65 DA 10,10,9,1,0,0,10,11,1,0,0 66 DA 20,10,8,1,0,0:M=0 67 DA 100,"111111111111111111111" 68 DA 121,"1........1........1" 69 DA 142,"1.11.1111.1.1111.11.1" 70 DA 163,"1.11.1111.1.1111.11.1" 71 DA 184,"1...................1" 72 DA 205,"1.11.1.1111111.1.11.1" 73 DA 226,"1...1....1....1....1" 74 DA 247,"1.11.1111...1111.11.1" 75 DA 268,"1..1.1.........1.1..1" 76 DA 289,"11.1...111 111...111" 77 DA 310,"1..1.1.1 1.1.1..1" 78 DA 331,"1.11.1.1111111.1.11.1" 79 DA 352,"1....1.........1....1" 80 DA 373,"1.11.1.1111111.1.111" 81 DA 394,"1..1.1.1111111.1.1..1" 82 DA 415,"11.1............1.11" 83 DA 436,"11.1.1.1111111.1.1.11" 84 DA 457,"1....1....1....1....1" 85 DA 478,"1.1111111.1.1111111.1" 86 DA 499,"1.................1" 87 DA 520,"111111111111111111111" 88 FOR J=0 TO 20:FOR I=0 TO 20 89 GOSUB 91:NEXT :NEXT :Q=M:RETURN 90 'draw one array element 91 C=AR(100+21J+I):D=0:F=6 92 IF C=49 THEN D=15:F=1 93 IF C=46 THEN D=226:F=6:M=M+1 94 IF C=42 THEN D=235:F=2 95 COLOR F,0:? @1+J,4+I;%D;:RETURN #
1.4 Racer	A purple bonus point brings 20 points, high score is stored in the internal EEPROM.	Left and Right arrows	None	PROGRAM:Racer 01 'init game 02 COLOR 7,1:CLS :BOX 3,3,42,56 03 COLOR 7,0:CBOX 2,2,20,27 04 DATA 0,2,-1,-1,2,2,20,21,22,23 05 DATA 9,133,133,133,133 06 X=13:S=15:Q=0:C=0:D=0:T=$88 07 B=0:E=0:P=0:V=6:GOSUB 60 08 DATA 25,39,"--GAME OVER--",0 09 G=0:'EEPROM Highscore address 10 11 'the main loop 12 Q=Q+1:IF Q=5:D=1-RND(3):Q=0 13 X=X+KEY(6):LIMIT X,4,24:O=S 14 S=S+D:LIMIT S,7,22:COLOR 4,0 15 SPRITE 0,-1,-1:SCROLL 2 16 SPRITE 0,14,X:COLOR 6,6 17 18 'draw street 19 FOR I=2 TO S-4:? @2,I;%T:NEXT 20 FOR I=S+4 TO 27:? @2,I;%T:NEXT 21 COLOR 6,0:IF O>S ? @2,S-3;%131 22 COLOR 0,6:IF O<S ? @2,S-4;%130 23 COLOR 0,6:IF O>S ? @2,S+4;%131 24 COLOR 6,0:IF O<S ? @2,S+3;%130 25 26 'bonus points 27 J=RND(60):COLOR 3,0 28 IF J=5 THEN ? @2,S-2;%27; 29 IF J=25 THEN ? @2,S;%27; 30 IF J=45 THEN ? @2,S+2;%27; 31 32 'trees 33 B=B+1:IF B=4 THEN B=0 34 IF B<>1 GOTO 39 35 H=RND(2) 36 IF H=0 THEN F=2+RND(S-7) 37 IF H=1 THEN F=27-RND(22-S) 38 COLOR 2,6:? @2,F;%161;:GOTO 43 39 IF B<>2 GOTO 43 40 COLOR 4,6:? @2,F;%162; 41 42 'check collision 43 W=30-3V:IF (AR(0)&1)=0 GOTO 47 44 N=AR(13)+AR(14)+AR(15)+AR(16) 45 IF N>150 GOTO 55 46 P=P+19:DATA 13,32,32:W=94 47 P=P+1:COLOR 7,1 48 ? @0,2;"Score:";P 49 IF P>500 THEN V=5 50 IF P>1000 THEN V=4 51 NOTE W:SYNC V:DATA 0,2 52 GOTO 12 53 54 'game over 55 NOTE 255: IF P<M GOTO 57 56 EPOKE G,LO(P):EPOKE G+1,HI(P) 57 GOSUB 60:ALERT 25: GOTO 1 58 59 'print High-score 60 IF EPEEK(G+1)<128 GOTO 62 61 EPOKE G,0:EPOKE G+1,0 62 M=EPEEK(G)+256EPEEK(G+1) 63 COLOR 6,1 64 ? @0,15;"High:";M:RETURN #
1.5 Pong	This is the well known pong game. It is a dual player version, two people are needed to play this.	Player one: left CTRL and SHIFT keys Player two: right CTRL and SHIFT keys	Two players	PROGRAM:Pong2P 01 'Pong Version 0.2 02 GOSUB 30 :'Init 03 'the main loop 04 SYNC 1:SPRITE 42,Y,X 05 A=A-KEY(4):LIMIT A,1,18 06 B=B-KEY(5):LIMIT B,1,18 07 SPRITE 0,A,0:SPRITE 21,B,29 08 P=(P+1)%2:IF P=0:X=X+E:Y=Y+F 09 IF (Y=0)#(Y=22) NO 20:F=-F:Y=Y+F 10 IF X>0 GOTO 13 11 IF (Y<A)#(Y>(A+3)) GOTO 17 12 X=1:E=-E:NOTE 78:GOTO 4 13 IF X<29 GOTO 4 14 IF (Y<B)#(Y>(B+3)) GOTO 17 15 X=28:E=-E:NOTE 78:GOTO 4 16 'a point 17 SPRITE 42,Y,X:NOTE 127 18 IF X=0 THEN R=R+1:X=27 19 IF X=29 THEN L=L+1:X=2 20 GOSUB 49 21 IF L=15 THEN GOTO 52 22 IF R=15 THEN GOTO 58 23 WAIT 5:GOTO 4 24 25 26 27 28 29 30 'Init sprites and draw playfield 31 DA 0,2,-1,-1,4,1,18,15,15,19 32 DA 9,$F2,$F2,$F2,$F2 33 DA 21,2,-1,-1,4,1,18,15,15,19 34 DA 30,$F3,$F3,$F3,$F3 35 DA 42,2,-1,-1,1,1,17,$F4 36 COLOR 5,0:CLS 37 DRAW 1,0,1,59 38 DRAW 44,0,44,59:COLOR 5,1 39 FOR I= 1 TO 10 40 BOX 4I,29,4I+1,30 41 NEXT 42 X=3:Y=10:E=1:F=1 43 IF RND(2)=1 THEN E=-1:X=25 44 SPRITE 0,1,0 45 SPRITE 21,1,29 46 DATA 51,64,"To start Game",0 47 ALERT 51 48 COLOR 1,0 49 ? !$42;@2,6;L;@2,17;R:RETURN 50 RETURN 51 52 DATA 51,39 53 DATA 52,"Player 1 wins. New?",0 54 ASK P,51 55 IF P=1 THEN L=0:R=0:GOTO 1 56 CLS :COLOR 2,0 57 END 58 DATA 51,55 59 DATA 52,"Player 2 wins. New?",0 60 ASK P,51 61 IF P=1 THEN L=0:R=0:GOTO 1 62 CLS :COLOR 2,0 #
1.6 Snake	This is the well known snake game.	Left, Right , Up and Down arrows	None	PROGRAM:Snake 01 GOS 58:COLOR 14:CLS 02 BOX 4,0,43,59,2 03 COL 2,0:FOR I=1 TO 30:X=RND(28) 04 Y=RND(15)+4 05 ? @Y+2,X+1;%235:NEXT 06 COL 4,0:FOR I=1 TO 30:X=RND(28) 07 Y=RND(15)+4 08 ? @Y+1,X+1;%17:NEXT 09 X=4:Y=5:Z=193:U=1:V=5:N=0 10 COL 6,6: ? @5,1;%Z;%Z;%Z: 11 WAIT 2:T=KEY(6):S=KEY(7) 12 IF T=-1 THEN Z=192 13 IF T=1 THEN Z=193 14 IF S=1 THEN Z=194 15 IF S=-1 THEN Z=195 16 'IF KEY(8)=234 THEN GOTO 40 17 COL 6,6:? @Y,X;%Z: 18 IF Z=192 THEN X=X-1 19 IF Z=193 THEN X=X+1 20 IF Z=194 THEN Y=Y-1 21 IF Z=195 THEN Y=Y+1 22 GCH B,Y,X:COL 1,1:? @Y,X;%Z: 23 IF (B<>32)&(B<>17) GO 83 24 COL 7,0:? @1,20;"Score:";N 25 IF B<>17 GO 27 26 NO 30:N=N+1:GO 34 27 28 NO 40:GCH B,V,U:COL 0,0 29 ? @V,U;%32: 30 IF B=192 THEN U=U-1 31 IF B=193 THEN U=U+1 32 IF B=194 THEN V=V-1 33 IF B=195 THEN V=V+1 34 GO 11 35 'C=RND(28)+1:D=RND(20)+1:COL 4,4 36 'GCH B,D,C:IF B<>32 THEN GO 34 37 '? @D,C;%198:GO 11 38 GO 11 39 40 41 COLOR 1:? ;@1,10;"PAUSE" 42 WAIT 3 43 IF KEY(8)=234 THEN GOTO 45 44 GOTO 40 45 COLOR 1:? @1,10;" " 46 GOTO 11 47 48 49 50 51 52 53 54 55 56 57 58 CLS :COLOR 14 59 DA 0,39,8,39,4,34,8,34,4 60 PLAY 0,4,2,128 61 'COLOR 2,1 62 'BOX 0,0,45,59 63 COLOR A:? !66;@2,6;"SNAKE" 64 COLOR 14 65 ? @20,5;"(C)2012 D. Kristen" 66 COL 14 67 IF A=16 THEN A=1 68 WAIT 1:A=A+1:N=EPEEK(5) 69 COL 14:? @10,8;"Highscore: ";N 70 COL 14 71 72 73 74 IF A<7 ? @17,8;" " 75 IF A>7 ? @17,8;"PRESS START" 76 IF KEY(0)=234 THEN GOTO 79 77 GOTO 61 78 79 PLAY 0,0,0,0 80 CLS :GOTO 2 81 82 83 NO 20:G=EPEEK(5) 84 IF N>G THEN EPOKE 5,N 85 86 87 COL 7:? !66;@8,1;"GAME OVER " 88 COL 6:? @14,9;"PRESS START" 89 IF KEY(8)=234 WAIT 4:COL 1:GO 1 90 GOTO 89 #
1.7 PongOne	This is the well known pong game. It is a single player version, you play against the computer.	Left, Right , Up and Down arrows	None	PROGRAM:PongOne 01 GOSUB 65 02 GOSUB 30 03 04 SYNC O:SPRITE 42,Y,X 05 A=A-KEY(7) 06 'A=A+1 07 LIMIT A,1,18:B=Y-U:LIMIT B,1,18 08 SPRITE 0,A,0:SPRITE 21,B,29 09 P=(P+1)%2:IF P=0:X=X+E:Y=Y+F 10 IF (Y=0)#(Y=22) NO 20:F=-F:Y=Y+F 11 IF X>0 GOTO 14 12 IF (Y<A)#(Y>(A+3)) GOTO 17 13 X=1:E=-E:NOTE 78:GOTO 4 14 IF X<29 GOTO 4 15 IF (Y<B)#(Y>(B+3)) GOTO 17 16 X=28:E=-E:NOTE 78:GOTO 4 17 18 SPRITE 42,Y,X:NOTE 127 19 IF X=0 THEN R=R+1:X=27 20 IF X=29 THEN L=L+1:X=2 21 GOSUB 50 22 IF L=15 THEN GOTO 53 23 IF R=15 THEN GOTO 59 24 WAIT 5:U=RND(V):GOTO 4 25 26 27 28 29 30 IF T=12:V=6:O=2 31 IF T=14:V=4:O=2 32 DA 0,2,-1,-1,4,1,18,15,15,19 33 DA 9,14,14,14,14 34 DA 21,2,-1,-1,4,1,18,15,15,19 35 DA 30,12,12,12,12 36 DA 42,2,-1,-1,1,1,17,$F4 37 COLOR 7,0:CLS 38 DRAW 1,0,1,59 39 DRAW 44,0,44,59:COLOR 5,1 40 IF T=16:V=3:O=1 41 42 43 X=3:Y=10:E=1:F=1 44 IF RND(2)=1 THEN E=-1:X=25 45 SPRITE 0,1,0 46 SPRITE 21,1,29 47 DATA 51,64,"To start Game",0 48 'ALERT 51 49 COLOR 5,0 50 ? !66;@2,6;L;@2,17;R:RETURN 51 RETURN 52 53 DATA 51,39 54 DATA 52,"Player 1 wins. New?",0 55 ASK P,51 56 IF P=1 THEN L=0:R=0:GOTO 1 57 CLS :COLOR 2,0 58 END 59 DATA 51,55 60 DATA 52,"AVR wins. New?",0 61 ASK P,51 62 IF P=1 THEN L=0:R=0:GOTO 1 63 CLS :COLOR 2,0 64 DA 109,39,8,44,4,49,8,44,4 65 CLS :COLOR 1:FBOX 0,0,55,60 66 COL 6,1:? !66;@2,8;"PONG" 67 ? @7,8;%136;%143;%143;%143 68 ? @7,12;%143;%143;%143;%143 69 ? @7,16;%143;%143;%143;%137 70 COLOR 7:T=12:? @1,12;"DK's" 71 COL 0,6:? @7,12"ONE":COL 7,1 72 ? @12,11;"Amateur" 73 ? @14,11;"Novice" 74 ? @16,11;"Profi" 75 'PLAY 109,4,4,128 76 COLOR 4:? @T,9;%17:Q=KEY(7) 77 IF Q=-1 THEN NO 30:GOS 83 78 IF Q=1 THEN NO 30:GOS 87 79 ? @20,5;"Press FIRE to begin" 80 81 IF KEY(0)=234 THEN NO 100:RET 82 SYNC 2:GOTO 76 83 SYNC 4 84 IF T=12:T=14:? @12,9;%32:RET 85 IF T=14:T=16:? @14,9;%32:RET 86 IF T=16:T=12:? @16,9;%32:RET 87 SYNC 4 88 IF T=12:T=16:? @12,9;%32:RET 89 IF T=14:T=12:? @14,9;%32:RET 90 IF T=16:T=14:? @16,9;%32:RET #
1.8 H-Tron	This is the well known tron game. It is a single player version, you play against the computer. This version has been written for the CB2 micro by RobertK.	Left, Right, P, SPACE and ESC	None	PROGRAM:H-Tron 01 CLS :? "* H-Tron *" 02 ? "by RobertK (2016, 2020)" 03 ? "" 04 ? "Controls: Cursor left/right" 05 ? "": ? "Pause game: P" 06 ? "": ? "End Game: Escape":? "" 07 ? "Press Space to start a "; 08 ? "Round": Z=KEY(1):IF Z=237:END 09 WAIT 3 'To avoid auto game start 10 S=0:T=0 'Init score variables 11 CLS :X=9:Y=25:M=50:N=Y 'pos init 12 C=0:D=0:E=0:F=2:Q=0:R=0 13 FOR Z=0TO 59:PL 0,Z:PL 45,Z:NEXT 14 FOR Z=1TO 44:PL Z,0:PL Z,59:NEXT 15 FOR Z=1TO 58:PL 5,Z:NEXT 16 COL 6:? @1,1;"Computer:";S 17 ? @1,21;"Human:";T:COL 7 18 PLOT Y,X:PLOT N,M 'Draw players 19 Z=KEY(1) ' Wait for round start 20 IF Z=237 THEN WAIT 3:GOTO 84'Esc 21 IF Z<>32 THEN GOTO 19 'Space key 22 IF E=0 THEN X=X+1 ' P1 right 23 IF E=1 THEN Y=Y-1 ' P1 up 24 IF E=2 THEN X=X-1 ' P1 left 25 IF E=3 THEN Y=Y+1 ' P1 down 26 IF F=0 THEN M=M+1 ' P2 right 27 IF F=1 THEN N=N-1 ' P2 up 28 IF F=2 THEN M=M-1 ' P2 left 29 IF F=3 THEN N=N+1 ' P2 down 30 GPX Z,Y,X:IF Z>0 THEN C=1:T=T+1 31 GPX Z,N,M:IF Z>0 THEN D=1:S=S+1 32 IF C=0 THEN PLOT Y,X 33 IF D=0 THEN PLOT N,M 34 IF (C>0)#(D>0):GOTO 80 'Crashed 35 IF Q=1 THEN Q=0:GOTO 37 36 IF KEY(6)=-1 THEN Q=1 37 IF R=1 THEN R=0:GOTO 39 38 IF KEY(6)=1 THEN R=1 39 IF Q=1 THEN F=F+1:IF F>3:F=0 40 IF R=1 THEN F=F-1:IF F<0:F=3 41 Z=KEY(0):IF Z=237:WAIT 3:GOTO 84 42 IF Z=112:WAIT 5:Z=KEY(1) 43 J=12-(RND(8)) 'Short-sightedness 44 IF E>0 THEN GOTO 48 45 GOSUB 70,X,Y,J,0:G=~R 46 GOSUB 70,X,Y,J,1:H=~R 47 GOSUB 70,X,Y,J,3:I=~R:GOTO 59 48 IF E>1 THEN GOTO 52 49 GOSUB 70,X,Y,J,1:G=~R 50 GOSUB 70,X,Y,J,2:H=~R 51 GOSUB 70,X,Y,J,0:I=~R:GOTO 59 52 IF E>2 THEN GOTO 56 53 GOSUB 70,X,Y,J,2:G=~R 54 GOSUB 70,X,Y,J,3:H=~R 55 GOSUB 70,X,Y,J,1:I=~R:GOTO 59 56 GOSUB 70,X,Y,J,3:G=~R 57 GOSUB 70,X,Y,J,0:H=~R 58 GOSUB 70,X,Y,J,2:I=~R 59 IF (G>=H) & (G>=I) THEN GOTO 66 60 IF H>I THEN GOTO 63 61 IF H<I THEN GOTO 65 62 IF (RND(99)<50) THEN GOTO 65 63 E=E+1:IF E>3 THEN E=0 64 GOTO 66 65 E=E-1:IF E<0 THEN E=3 66 '? @1,11;" " 67 '? @1,11;H;G;I ' Testing 68 Z=3:IF (~V<300) THEN Z=1 69 SYNC Z:GOTO 22 70 K=0 ' Distance Checking for AI 71 K=K+1 ' Increase distance 72 ' ? @5,2;~(1);~(2);~(3);~(4) 73 IF ~(4)=0 THEN GPX Z,~(2),~(1)+K 74 IF ~(4)=1 THEN GPX Z,~(2)-K,~(1) 75 IF ~(4)=2 THEN GPX Z,~(2),~(1)-K 76 IF ~(4)=3 THEN GPX Z,~(2)+K,~(1) 77 IF (Z<1) & (K<=~(3)):GOTO 71 78 RETURN K-1 'Obstacle found at K 79 80 ' Crashed 81 NOTE 127:WAIT 5 82 IF (C>1)&(D>1):S=S-1:T=T-1 'both 83 IF (S<5)&(T<5) GOTO 11 'next rnd 84 CLS ' Game over 85 ? @1,1;"Final Score: ";S;" :";T 86 IF S>T:? @3,1;"Computer wins." 87 IF S<T:? @3,1;"You win!" 88 IF S=T:? @3,1;"A Draw." 89 ? @5,1;"Any Key to play again," 90 ? @7,1;"Escape to exit." 91 Z=KEY(1) 92 IF Z=237 THEN END 'Escape 93 WAIT 5:GOTO 10 'Restart game #
1.9 Reverse Number	A sorting game in which a 9-digit number should be sorted in ascending order with the minimum number of moves. Written by Wolfgang Schmidt Moves examples: L5 means: Rotate all numbers from 1 to 5 on the left side. R6 means: Rotate all numbers from 1 to 6 on the right side. The goal can of course be achieved through consistent sorting, by always rotating the next number to one end and then to the desired position. This also works if you only rotate always from the right side or always from the left side. However, this means that too many rotations are required, which can be minimized by clever moves	L and R keys followed by numbers.	None	PROGRAM:REVERSNUMBER 01 'Rev-Nr:1.2 by -ws- /01.04.2020 02 'COL 7,10:'--------------------- 03 GOS 75:DA 1,RND(9)+1:C=0:K=2 04 DA K,RND(9)+1:J=1 05 IF AR(K)=AR(J):GO ~L-1 06 J=J+1:IF J<K:GO ~L-1 07 K=K+1:IF K<10:GO ~L-3 08 FOR K=11 TO 19 09 DA K,AR(K-10)'--- save number -- 10 NEXT :CLS 11 ? " THIS IS YOUR NUMBER: INP":? 12 'turn N numbers ---------------- 13 GOS 71:GO 20 14 IF R=1:GOS 40 15 IF R=2:N=9:GOS 40 16 IF R=2:N=M:GOS 40 17 IF R=2:N=9:GOS 40 18 R=0:GOS 71 19 GO ~L-7 20 GOS 52' output number ---------- 21 IF U=1:GOS 23:GO 14 22 IF U=0:GOS 30:GO 11 23 'rotate left/right ------------- 24 ? " > "; 25 GOS 47:POS 2,24:? %T-32; 26 'input number of turns --------- 27 POS 2,25:INP N:U=0:M=N 28 IF N>1 :IF N<10:RETURN 29 POS 2,25:? " ":GO ~L-2 30 POS 0,0 ' test the sorting ---- 31 ? "FINISHED IN";C-1;" STEPS!":? 32 'load number to play again ----- 33 FOR I=1 TO 9:DA I,AR(I+10):NEXT 34 'query / end ------------------- 35 ? "PLAY THE SAME NUMBER Y/N " 36 T=KEY(0) 37 IF T=121:CLS :C=0:A=0:K=0:RET 38 IF T=110:END 39 GO ~L-3 40 'rotate numbers ---------------- 41 FOR K=1 TO N/2 42 Z=AR(K) 43 DA K,AR(N-K+1) 44 DA N-K+1,Z 45 NEXT 46 RETURN 47 'determine left / right -------- 48 POS 2,24:? " ":T=KEY(0) 49 IF T=108:R=1:GOS 68:RETURN 50 IF T=114:R=2:GOS 65:RETURN 51 GO ~L-3 52 'output numbers ---------------- 53 POS 2,0 54 ? C;":";:C=C+1:P=4 55 CBOX 3,4,20,21 56 FOR K=1 TO 9:A=AR(K):? A; 57 'draw bars --------------------- 58 P=P+4 59 FOR L=11-A TO 10 60 BOX 4L,P,4L+1,P+1 61 NEXT :NEXT 62 FOR K=1 TO 9:IF AR(K)<>K:U=1 63 NEXT 64 RETURN 65 'help labeling right ----------- 66 POS 21,4:? "9 8 7 6 5 4 3 2 1" 67 RETURN 68 'help labeling left ------------ 69 POS 21,4:? "1 2 3 4 5 6 7 8 9" 70 RETURN 71 'request for entry ------------- 72 POS 20,2:? "L" 73 POS 20,22:? "R" 74 RETURN 75 ? "" :? "REVERSE-NUMBER:":? "" 76 ? "***************":? "" 77 ? "ROTATE the optimal numbers" 78 ? "of BARS from LEFT or RIGHT" 79 ? "to the specified position." 80 ? "" 81 ? "For example: R4 , L6, etc." 82 ? :? "The GOAL is an ascending" 83 ? "order from LEFT! to RIGHT!" 84 ? :? "PLAY the SAME NUMBER to" 85 ? "improve your moves. " 86 ? "":? "" 87 ? :? "START game with <RETURN>" 88 IF KEY(0)=234 THEN RET 89 GO ~L-1 #
2.0 2048	The goal of the game is to create a tile with the number 2048 by moving and combining the tiles. Please see the README file inside the zip package for more information on the rules of the game.	Up, Down, Left, Right arrows and N, U, E keys	Needs 3 program positions, P1, P2, P3.	P1: PROGRAM:2048-1START 01 '******************************* 02 '2048 GAME by -ws- 26.04.2020 03 'Rev.1.2 Part1 --- LOAD TO P1 04 '******************************* 05 06 'GAME-BOARD -------------------- 07 CALL 3,69:CLS :BOX 5,0,40,58,15 08 COL 4,0:POS 21,5:? "(N)EW" 09 COL 14,0:POS 21,12:? "(U)NDO" 10 COL 10,0:POS 21,20:? "(E)ND" 11 A=13:B=2:C=8:D=14 12 FOR I=1 TO 4:FOR J=1 TO 4 13 DA 1100+N,A:DA 1116+N,B 14 DA 1132+N,C:DA 1148+N,D 15 N=N+1:B=B+14:D=D+14:NEXT 16 A=A+8:C=C+8:B=2:D=14:NEXT 17 18 'GRAPHICS-DATA ----------------- 19 DATA 1040,0,2,4,8,16,32,64,128 20 DATA 1048,256,512,1024,2048,4096 21 DATA 1053,8192,16384 22 DATA 1060,8,15,7,11,13,12,10,14 23 DATA 1068,14,9,9,9,10,10,10 24 Q=0:GOS 50:GOS 67 25 26 'ARROW-KEYS N/U/E--------------- 27 T=KEY(0) 28 IF T=226:GOS 59:CALL 2,6:GOS 37 29 IF T=227:GOS 59:CALL 2,34:GOS 37 30 IF T=228:GOS 59:CALL 3,6:GOS 37 31 IF T=229:GOS 59:CALL 3,34:GOS 37 32 IF T=110:? :GOS 50:GOS 67'---NEW 33 IF T=117:GOS 63:GOS 67'-----UNDO 34 IF (T=101)#(T=237):END '-----END 35 WAIT 1:GO ~L-8 36 37 'RANDOM------------------------- 38 IF S=0:GOS 67:CALL 2,62:RETURN 39 G=0:FOR I=1024 TO 1039 40 IF AR(I)=0:G=1 41 NEXT :IF G=0:GOS 65:RETURN 42 R=RND(16) 43 IF AR(1024+R)>0:GO ~L-1 44 U=RND(6) 45 IF U=4:GO ~L+3 46 IF U=2:GO ~L+2 47 GO ~L-3 48 DA 1024+R,U:GOS 67:RET 49 50 'NEW --------------------------- 51 POS 1,24:COL 0,0:? " " 52 FOR I=1024 TO 1039:DA I,0:NEXT 53 POS 1,10:COL 0,0:? " " 54 POS 1,4:COL 0,15:? " 2048 " 55 R=RND(16):DA 1024+R,2:Z=0 56 R=RND(16):DA 1024+R,4:RET 57 GO ~L-2 58 59 'SAVE -------------------------- 60 FOR I=0 TO 15 61 DA 1080+I,AR(1024+I):NEXT :RET 62 63 'UNDO -------------------------- 64 FOR I=0 TO 15 65 DA 1024+I,AR(1080+I):NEXT :RET 66 67 'UPDATE BOARD'------------------ 68 X=5:Y=1:NOTE 50 69 FOR I=1024 TO 1039' Value 70 FOR J=1040 TO 1054' Color 71 IF AR(I)=AR(J):E=AR(J+20)' Aloc 72 NEXT 73 A=AR(I+76):B=AR(I+92)' Place 74 C=AR(I+108):D=AR(I+124)' Color 75 FBOX A,B,C,D,E' Box 76 IF AR(I)=0:COL E,E:GO ~L+6 77 IF AR(I)=2048 GO ~L+2 78 POS X,Y:COL 0,E:? AR(I):GO ~L+4 79 POS X,Y:? " " 80 POS 1,12:COL 0,12:? " WIN " 81 POS X,Y:COL 0,E:? AR(I) 82 IF I=1027:Y=1:X=X+4:GO ~L+4 83 IF I=1031:Y=1:X=X+4:GO ~L+3 84 IF I=1035:Y=1:X=X+4:GO ~L+2 85 Y=Y+7:P=25000 86 IF (Z>P):Z=Z-P:Q=Q+1:GOS ~L+4 87 IF Z>0:GO ~L+1 88 POS 1,18:COL 0,0:? " " 89 POS 1,18:COL 15,0:? Z:NEXT :RET 90 POS 1,18:COL 0,0:? " " 91 POS 1,24:COL 14,0:? Q25;"K" 92 RETURN # P2: PROGRAM:2048-2PART 01 '****************************** 02 '2048 GAME by -ws- 26.04.2020 03 'Rev.1.2 Part2 --- LOAD TO P2 04 '******************************* 05 06 'LEFT-KEY'--------SHIFT--------- 07 N=1024:FOR K=1 TO 4:FOR J=1 TO 3 08 IF AR(N)=0:GO ~L+4 09 IF AR(N+1)=0:GO ~L+4 10 IF AR(N+2)=0:GO ~L+4 11 GO ~L+5 12 DA N,AR(N+1) 13 DA N+1,AR(N+2) 14 DA N+2,AR(N+3) 15 DA N+3,0 16 NEXT :N=N+4:NEXT 17 N=1024'-----------DOUBLE-------- 18 FOR K=1 TO 4 19 IF AR(N)=AR(N+1):GO ~L+4 20 IF AR(N+1)=AR(N+2):GO ~L+7 21 IF AR(N+2)=AR(N+3):GO ~L+9 22 GO ~L+10 23 DA N,AR(N+1)2:Z=Z+AR(N) 24 DA N+1,AR(N+2) 25 DA N+2,AR(N+3) 26 DA N+3,0:GO ~L+6 27 DA N+1,AR(N+2)2:Z=Z+AR(N+1) 28 DA N+2,AR(N+3) 29 DA N+3,0:GO ~L+3 30 DA N+2,AR(N+3)2:Z=Z+AR(N+2) 31 DA N+3,0 32 N=N+4:NEXT :GO 79 33 34 'RIGHT-KEY--------SHIFT--------- 35 N=1024:FOR K=1 TO 4:FOR J=1 TO 3 36 IF AR(N+3)=0:GO ~L+4 37 IF AR(N+2)=0:GO ~L+4 38 IF AR(N+1)=0:GO ~L+4 39 GO ~L+5 40 DA N+3,AR(N+2) 41 DA N+2,AR(N+1) 42 DA N+1,AR(N) 43 DA N,0 44 NEXT :N=N+4:NEXT 45 N=1024'-----------DOUBLE-------- 46 FOR K=1 TO 4 47 IF AR(N+3)=AR(N+2):GO ~L+4 48 IF AR(N+2)=AR(N+1):GO ~L+7 49 IF AR(N+1)=AR(N):GO ~L+9 50 GO ~L+10 51 DA N+3,AR(N+2)2:Z=Z+AR(N+3) 52 DA N+2,AR(N+1) 53 DA N+1,AR(N) 54 DA N,0:GO ~L+6 55 DA N+2,AR(N+1)2:Z=Z+AR(N+2) 56 DA N+1,AR(N) 57 DA N,0:GO ~L+3 58 DA N+1,AR(N)2:Z=Z+AR(N+1) 59 DA N,0 60 N=N+4:NEXT :GO 79 61 62 'BOARDTEST---------------------- 63 F=0:FOR I=1024 TO 1039 64 IF AR(I)=0:F=1 65 NEXT :IF F=1:RETURN 66 N=1024:FOR I=1 TO 4 67 IF AR(N)=AR(N+1):F=1 68 IF AR(N+1)=AR(N+2):F=1 69 IF AR(N+2)=AR(N+3):F=1 70 N=N+4:NEXT 71 N=1024:FOR I=1 TO 4 72 IF AR(N)=AR(N+4):F=1 73 IF AR(N+4)=AR(N+8):F=1 74 IF AR(N+8)=AR(N+12):F=1 75 N=N+1:NEXT :IF F=1:GO ~L+2 76 POS 1,12:COL 15,10:? " LOST " 77 RETURN 78 79 'KEYTEST------------------------ 80 S=0:FOR I=1 TO 15 81 DA 1280+I,AR(1024+I):NEXT 82 FOR I=1 TO 15 83 IF AR(1280+I)<>AR(1080+I):S=1 84 NEXT :RETURN # P3: PROGRAM:2048-3PART 01 '******************************* 02 '2048 GAME by -ws- 26.04.2020 03 'Rev.1.2 Part3 --- LOAD TO P3 04 '******************************* 05 06 'UP-KEY-----------SHIFT--------- 07 N=1024:FOR K=1 TO 4:FOR J=1 TO 3 08 IF AR(N)=0:GO ~L+4 09 IF AR(N+4)=0:GO ~L+4 10 IF AR(N+8)=0:GO ~L+4 11 GO ~L+5 12 DA N,AR(N+4) 13 DA N+4,AR(N+8) 14 DA N+8,AR(N+12) 15 DA N+12,0 16 NEXT :N=N+1:NEXT 17 N=1024'-----------DOUBLE-------- 18 FOR K=1 TO 4 19 IF AR(N)=AR(N+4):GO ~L+4 20 IF AR(N+4)=AR(N+8):GO ~L+7 21 IF AR(N+8)=AR(N+12):GO ~L+9 22 GO ~L+10 23 DA N,AR(N+4)2:Z=Z+AR(N) 24 DA N+4,AR(N+8) 25 DA N+8,AR(N+12) 26 DA N+12,0:GO ~L+6 27 DA N+4,AR(N+8)2:Z=Z+AR(N+4) 28 DA N+8,AR(N+12) 29 DA N+12,0:GO ~L+3 30 DA N+8,AR(N+12)2:Z=Z+AR(N+8) 31 DA N+12,0 32 N=N+1:NEXT :GO 62 33 34 'DOWN-KEY---------SHIFT--------- 35 N=1024:FOR K=1 TO 4:FOR J=1 TO 3 36 IF AR(N+12)=0:GO ~L+4 37 IF AR(N+8)=0:GO ~L+4 38 IF AR(N+4)=0:GO ~L+4 39 GO ~L+5 40 DA N+12,AR(N+8) 41 DA N+8,AR(N+4) 42 DA N+4,AR(N) 43 DA N,0 44 NEXT :N=N+1:NEXT 45 N=1024'-----------DOUBLE-------- 46 FOR K=1 TO 4 47 IF AR(N+12)=AR(N+8):GO ~L+4 48 IF AR(N+8)=AR(N+4):GO ~L+7 49 IF AR(N+4)=AR(N):GO ~L+9 50 GO ~L+10 51 DA N+12,AR(N+8)2:Z=Z+AR(N+12) 52 DA N+8,AR(N+4) 53 DA N+4,AR(N) 54 DA N,0:GO ~L+6 55 DA N+8,AR(N+4)2:Z=Z+AR(N+8) 56 DA N+4,AR(N) 57 DA N,0:GO ~L+3 58 DA N+4,AR(N)2:Z=Z+AR(N+4) 59 DA N,0 60 N=N+1:NEXT :GO 62 61 62 'KEYTEST------------------------ 63 S=0:FOR I=1 TO 15 64 DA 1280+I,AR(1024+I):NEXT 65 FOR I=1 TO 15 66 IF AR(1280+I)<>AR(1080+I):S=1 67 NEXT :RETURN 68 69 'INTRO-------------------------- 70 BOX 6,5,45,56,7 71 POS 3,12:? " 2048 "POS 5,4 72 ? "PUSH THE TILES WITH THE" 73 POS 6,6:COL 10 74 ? "L,R,U,D -ARROW KEYS" 75 POS 7,4:COL 15 76 ? "UNTIL THE 2048-TILE IS" 77 POS 8,6 78 ? "CREATED BY DOUBLING." 79 POS 10,6 80 ? " THEN YOU WON ":POS 12,6 81 COL 15:? "IF DOUBLING IS NOT" 82 POS 13,4 83 ? "POSSIBLE,YOU HAVE LOST!" 84 POS 15,5:COL 10 85 ? "(N)EW > NEW GAME" 86 POS 16,5 87 ? "(U)NDO > 1 TURN BACK" 88 POS 17,5 89 ? "(E)ND > END OFF GAME":COL 5 90 POS 20,6:? "CONTINUE > ANY KEY" 91 T=KEY(0):IF T>0:RETURN 92 GO ~L-2 # Download zip file
2.1 MastermindRK	This is the classic board game "Mastermind". The computer will generate a 4-digit colour code that you have to break. Press Cursor Up/Down to change colour, Left/Right to change position, Space or Enter to accept your guess, or Escape to exit. For each guesss you get feedback made up of up to four digits: O...Correct colour at correct position. o...Correct colour at wrong position. This version has been written for the CB2 micro by RobertK.	Up, Down, Left, Right arrows and SPACE, ENTER, ESC keys	None	PROGRAM:MastermindRK 01 'Mastermind RK by RobertK (2020) 02 DA 0,"RGBMCY",2,4,1,3,5,6 03 DA 12,7,0,7,7,0,0 04 GOSUB 86 'Init Screen 05 FOR Z=0 TO 3 'Create random code 06 DA 18+Z,RND(6):NEXT 07 N=0:R=1:C=0:B=1:T=0 08 FOR Z=0 TO 3:DA 22+Z,255:NEXT 09 GOSUB 79,1:WAIT 2'Draw 1st piece 10 'Main Game Loop 11 'Up/Down 12 IF KEY(7)=-1 THEN GOTO 15 13 IF KEY(7)=1 THEN GOTO 17 14 GOTO 20 15 C=C-1:IF C<0 THEN C=5 16 GOTO 18 17 C=C+1:IF C>5 THEN C=0 18 B=1:T=0 19 GOSUB 79,1:WAIT 2 20 Z=0 'Left/Right 21 IF (KEY(6)=-1)&(N>0) THEN Z=-1 22 IF (KEY(6)=1)&(N<3) THEN Z=1 23 IF Z=0 THEN GOTO 29 24 IF B=0 THEN GOSUB 79,1 25 B=1:T=0:DA 22+N,C:N=N+Z 26 Z=AR(22+N):IF Z<255 THEN C=Z 27 T=99:GOSUB 79,1 28 WAIT 2 29 Z=KEY(0) 'Space or Enter 30 IF (Z<>32)&(Z<>234):GOTO 67 31 IF B=0 THEN GOSUB 79,1 32 B=1:T=0:Z=0:DA 22+N,C 33 FOR I=0 TO 3 34 IF AR(22+I)=255 THEN Z=1 35 NEXT 36 IF Z=1 THEN GOSUB 76:GOTO 67 37 COLOR 7,0 ' All ok, accept Guess 38 E=0:FOR Z=0 TO 3 'Full Matches 39 DA 26+Z,AR(18+Z) 40 DA 30+Z,AR(22+Z):NEXT 41 FOR Z=0 TO 3 42 IF AR(26+Z)<>AR(30+Z):GOTO 44 43 E=E+1:DA 26+Z,99:DA 30+Z,99 44 NEXT 45 'Half Matches 46 F=0:FOR Z=0 TO 3 47 IF AR(30+Z)=99 THEN GOTO 52 48 I=0 49 IF AR(26+I)<>AR(30+Z):GOTO 51 50 F=F+1:DA 26+I,99:DA 30+Z,99:I=99 51 I=I+1:IF I<4 THEN GOTO 49 52 NEXT 53 Y=21-((R-1)2):COL 7,0 'Show Res 54 X=12:IF E=0 THEN GOTO 56 55 FOR Z=1 TO E:? @Y,X+Z;"O":NEXT 56 IF F=0 THEN GOTO 58 57 FOR Z=1 TO F:? @Y,X+E+Z;"o":NEXT 58 IF R=11:GOSUB 93:COL 7,0:GOTO 63 59 IF E=4:GOSUB 93:COL 7,0:GOTO 64 60 R=R+1:N=0:C=0:B=1:T=0:GOSUB 79,1 61 FOR Z=0 TO 3:DA 22+Z,255:NEXT 62 WAIT 5:GOTO 12 'next row 63 ? @3,20;"Game over!":GOTO 66 64 ? @3,20;"You win" 65 ? @5,20;"at row";R;"!" 66 WAIT 5:Z=KEY(1):GOTO 4 'restart 67 'Make the current piece blink 68 IF (B=1)&(T>50) THEN GOTO 72 69 IF (B=0)&(T>10) THEN GOTO 71 70 T=T+1:GOTO 73 71 B=1:T=0:GOSUB 79,1:GOTO 73 72 B=0:T=0:GOSUB 79,0 73 Z=KEY(0):IF Z=237 THEN END 74 SYNC 1 75 GOTO 12 'End of Main Game Loop 76 Y=21-((R-1)2):COL 7,0 'Show Err 77 ? @Y,3;"x":? @Y,11;"x":WAIT 8 78 ? @Y,3;" ":? @Y,11;" ":RETURN 79 'Draw current piece or blank 80 X=4+N2:Y=21-((R-1)2) 81 IF ~(1)=0 THEN GOTO 84 'blank 82 COL AR(C+12),AR(C+6) 83 ? @Y,X;%AR(C):GOTO 85 'piece 84 COL 7,0:? @Y,X;"." 'blank 85 RETURN 86 CLS :A=21:B=1:C=1 'Init Screen 87 ? @A,B;C;" . . . . ...." 88 A=A-2:C=C+1:IF C>9 THEN B=0 89 IF A>0 THEN GOTO 87 90 FOR A=0 TO 5 91 COL AR(A+12),AR(A+6) 92 ? @16+A,20;%AR(A):NEXT :RETURN 93 FOR I=0 TO 3:Z=AR(18+I) 'Reveal 94 COL AR(Z+12),AR(Z+6) 95 ? @1,20+I*2;%AR(Z):NEXT :RETURN #
2.2 SuperBrain	Wolfgang's SUPERBRAIN is a variant of the classic "MASTERMIND". There are a few differences from the classic game. 1. There are only 10 solution attempts. 2. Code colors never appear twice in a code. 3. The answer is numerical and not with symbols. For each turn, "C+P" (color & position correct) and "COL" (color correct, position incorrect) are displayed in a table. "SUPERBRAIN" is well suited for training and exercise purposes. The desired code can be shown at any time using the (H)elp function. This is useful for beginners who want to analyze their moves or to uncover weaknesses in thinking. Strategies can also be trained very well if the result is known. But: Ambitious players will surely not uncover the code beforehand. The code you are looking for is always announced at the end of the game.	Up, Down, Left, Right arrows and N, ENTER, ESC keys	None	PROGRAM:SUPER BRAIN 01 '******************************* 02 'SUPERBRAIN 1.0 by -ws- 04/20 03 '******************************* 04 DATA 1024,10,12,9,11,13,14 05 BOX 0,0,45,58,15:N=0:COL 10,0 06 POS 0,9:? " SUPERBRAIN " 07 A=6:B=9:C=4:D=10:E=15 08 FOR I=1 TO 10 09 COL 14,0:POS I2,1:? I:COL 15,0 10 POS I2,11:? " . ." 11 COL 14,0:POS 1,11:? "C+P COL" 12 POS 19,20:? "(H)ELP" 13 FOR J=1 TO 4:FBOX A,B,C,D,E 14 DA 1100+N,A:DA 1140+N,B 15 DA 1180+N,C:DA 1220+N,D 16 DA 1260+N,15'-----DEFAULT-COLOR 17 N=N+1:B=B+3:D=D+3:NEXT 18 A=A+4:C=C+4:B=9:D=10:NEXT 19 GOS 55:GOS 39 20 'NAVIGATION -------------------- 21 T=KEY(0) 22 IF T=226:P=P-1:GOS 44' POS LEFT 23 IF T=227:P=P+1:GOS 44' POS RIGHT 24 IF T=228:Q=Q+1:GOS 50' COL UP 25 IF T=229:Q=Q-1:GOS 50' COL DOWN 26 IF T=110:CLS :U=0:P=0:GO 4'NEW 27 IF T=234:U=U+4:P=U:GOS 39:GOS 66 28 IF T=104:GOS 81' HELP 29 IF (T=101)#(T=237):END ' END 30 IF Z=1:Z=0:U=0:P=0:GOS 81 31 GO ~L-10 32 'REFRESH BOARD ----------------- 33 FOR I=0 TO 39 34 A=AR(1100+I):B=AR(1140+I) 35 C=AR(1180+I):D=AR(1220+I) 36 E=AR(1260+I) 37 FBOX A,B,C,D,E 38 NEXT :RET 39 'PLACE CURSOR------------------- 40 IF U>36:GOS 66:RET 41 GOS 32:A=AR(1100+U):B=AR(1140+U) 42 C=AR(1180+U):D=AR(1220+U) 43 FBOX A,B,C,D,8:WAIT 3:RET 44 'SET POSITION ------------------ 45 GOS 32:IF P<0:P=0 46 IF P>39:P=39 47 A=AR(1100+P):B=AR(1140+P) 48 C=AR(1180+P):D=AR(1220+P) 49 FBOX A,B,C,D,8:WAIT 3:RET 50 'SET COLOR' -------------------- 51 IF Q<0:Q=5 52 IF Q>5:Q=0 53 E=AR(1024+Q):DA 1260+P,E 54 FBOX A,B,C,D,E:WAIT 3:RET 55 'GENERATE CODE ----------------- 56 K=0:FOR I=0 TO 3:R=RND(6) 57 DA 1030+I,AR(1024+R):NEXT 58 FOR I=1030 TO 1032 59 FOR J=1031 TO 1033 60 IF I=J:GO ~L+2 61 IF AR(I)=AR(J):K=1 62 NEXT :NEXT :IF K=1:GO ~L-6 63 K=0:FOR I=1 TO 10:FOR J=0 TO 3 64 DA 1300+K+J,AR(1030+J):NEXT 65 K=K+4:NEXT :RET 66 'TEST CODE --------------------- 67 N=1260:FOR M=0 TO U/4-1:K=0:L=0 68 FOR I=0 TO 3 69 IF AR(N+I)=AR(1300+I):K=K+1 70 NEXT 71 FOR I=N TO N+3:FOR J=0 TO 3 72 IF AR(I)=AR(1300+J):L=L+1 73 NEXT :NEXT :L=L-K 74 COL 15,0:POS 2+M*2,11:? K,L 75 DATA 50,192," YOU WON " 76 IF K=4:ALERT 50:Z=1 77 N=N+4:NEXT 78 DATA 50,175," YOU LOST" 79 IF (K<4)&(U>36):ALERT 50:Z=1 80 RET 81 'SHOW HELP --------------------- 82 POS 5,21:? "CODE":POS 6,21 83 FOR I=1030 TO 1033 84 COL 0,AR(I):? " ";:NEXT 85 COL 10,0:POS 10,20:? "ARROWs" 86 POS 11,20:? "R/L:POS." 87 POS 12,20:? "U/D:COL." 88 POS 13,20:? "RET:NEXT" 89 POS 14,20:? "ESC:END" 90 POS 15,20:? "(N):NEW" 91 COL 14:POS 18,20:? "PRESS " 92 COL 14:POS 19,20:? "(N)EW " 93 RET # Download zip file
2.3 Reversi	This is the famous Reversi game, ported to the CB2 micro by Wolfgang. Please see the Read_Me file inside the zip package for the documentation of the game.	Up, Down, Left, Right arrows and Esc key.	Needs 3 program positions, P6, P7, P8.	P1: PROGRAM:REVERSSTART 01 '******************************* 02 'REVERSI GAME by -ws- 10.06.20 03 'Rev. 1.1 Part1 --- LOAD TO P6 04 '******************************* 05 COL 0,7:CLS :BOX 0,0,45,59,15 06 COL 10,0:POS 2,19:? " REVERSI " 07 BOX 6,7,40,33,8 08 A=10:B=9:C=8:D=10:E=14:F=0 09 FOR I=1 TO 8 10 COL 0,7:POS I2+2,1:? I 11 POS 2,4:? "A BC DE FG H" 12 FOR J=1 TO 8:FBOX A,B,C,D,E 13 DA 50+F,A:DA 120+F,B 14 DA 190+F,C:DA 260+F,D 15 DA 330+F,14 16 F=F+1:B=B+3:D=D+3:NEXT 17 A=A+4:C=C+4:B=9:D=10:NEXT 18 DA 610,"ABCDEFGH12345678" 19 DA 357,15:DA 358,8 20 DA 365,8:DA 366,15 21 GOS 51:GOS 25:GOS 51:GOS 57 22 IF K=1:GO 1 23 GOS 63 24 'OPTIONS ----------------------- 25 FBOX 8,35,33,57,0:COL 14,0 26 POS 5,18:? "YOU START?" 27 POS 6,18:? "Y/N":GOS ~L+19 28 IF I=0:G=0:POS 6,23:? "YES" 29 IF I=1:G=1:POS 6,23:? "CB2" 30 POS 8,18:? "YOU WHITE?" 31 POS 9,18:? "Y/N":GOS ~L+15 32 IF I=0:DA 1,15:DA 2,8' CB2=BLACK 33 IF I=0:POS 9,23:? "YES" 34 IF I=1:DA 1,8:DA 2,15' CB2=WHITE 35 IF I=1:POS 9,22:? "BLACK" 36 POS 11,18:? "LOW LEVEL?" 37 POS 12,18:? "Y/N":GOS ~L+9 38 IF I=0:O=0:POS 12,23:? "LOW" 39 IF I=1:O=1:POS 12,22:? "HIGH" 40 CALL 8,60 41 POS 14,18:? "AUTO-MOVE?" 42 POS 15,18:? "Y/N":GOS ~L+4 43 IF I=0:T=0:POS 15,23:? "YES" 44 IF I=1:T=1:POS 15,22:? "ENTER" 45 RET 46 K=KEY(0)' ---------------- QUERY 47 IF K=121:I=0:WAIT 3:RET ' YES 48 IF K=110:I=1:WAIT 3:RET ' NO 49 IF K=237:END 50 GO ~L-4 51 'UPDATE GAMEBOARD -------------- 52 FOR I=0 TO 63 53 A=AR(50+I):B=AR(120+I) 54 C=AR(190+I):D=AR(260+I) 55 E=AR(330+I):FBOX A,B,C,D,E:NEXT 56 RET 57 'TOGGLE PLAYER ---------------- 58 IF G=1:CALL 8,5:GO ~L+2' CB2 59 P=0:GOS 79:GOS 63:CALL 7,5' USER 60 GOS 51:CALL 7,30 61 IF K=1:RET ' NEW GAME 62 GO ~L-4 63 'NAVIGATION -------------------- 64 COL 15,9 65 POS 21,5:? " YOUR MOVE " 66 K=KEY(0) 67 IF K=226:P=P-1:GOS 82' LEFT 68 IF K=227:P=P+1:GOS 82' RIGHT 69 IF K=228:P=P-8:GOS 82' UP 70 IF K=229:P=P+8:GOS 82' DOWN 71 IF K=237:END ' CANCEL 72 IF K=234:CALL 7,12:RET 'CALLBACK 73 GO ~L-7 74 'DISPLAY CURSOR POSITION ------- 75 V=P:GOS 89 76 COL AR(2),AR(1) 77 POS 21,3:? %AR(610+S) 78 POS 21,4:? %AR(618+R):RET 79 'REPLACE CURSOR ---------------- 80 A=AR(50):B=AR(120):C=AR(190) 81 D=AR(260):FBOX A,B,C+2,D,10:RET 82 'SET CURSOR -------------------- 83 IF P<0:P=0 84 IF P>63:P=63 85 GOS 74:GOS 51 86 A=AR(50+P):B=AR(120+P) 87 C=AR(190+P):D=AR(260+P) 88 FBOX A,B,C+2,D,10:WAIT 2:RET 89 'CALCULATE POSITION ------------ 90 R=V/8:FOR K=0 TO 7 91 IF V/8=K:S=V-K8 92 NEXT :RET # P2: PROGRAM:REVERSPART2 01 '******************************* 02 'REVERSI GAME by -ws- 10.06.20 03 'Rev. 1.1 Part2 --- LOAD TO P7 04 '***************************** 05 G=1:DA 3,AR(1):DA 4,AR(2)' USER 06 'FREE USER POSITIONS ----------- 07 IF F<>14:GO 16 08 FOR I=0 TO 63 ' SAVE 09 DA 400+I,AR(330+I):NEXT ' COLOR 10 CALL 7,44:GO 21 11 12 'CALL BACK IF FAIL ------------- 13 F=AR(330+P):DA 330+P,AR(1) 14 FBOX A,B,C,D,AR(330+P):RET 15 16 'ILLEGAL MOVE ------------------ 17 COL 0,10:POS 21,5 18 ? " ILLEGAL ":DA 330+P,F 19 FBOX A,B,C,D,F:WAIT 10:RET 20 21 'IMPOSSIBLE MOVE --------------- 22 J=0:FOR I=0 TO 63 23 IF AR(330+I)<>AR(400+I):J=1 24 NEXT :IF J=0:GO ~L+2 25 DA 6,0:RET 26 DA 5,1:COL 0,10:POS 21,5 27 ? " NO MOVE ":DA 330+P,F 28 FBOX A,B,C,D,F:WAIT 10:RET 29 30 'COUNT PIECES ------------------ 31 N=0:M=0:FOR I=0 TO 63 32 IF AR(330+I)=AR(1):N=N+1 33 IF AR(330+I)=AR(2):M=M+1 34 COL AR(2),AR(1) 35 POS 18,23:? " " 36 POS 18,19:? " YOU";N 37 COL AR(1),AR(2) 38 POS 19,23:? " " 39 POS 19,19:? " CB2";M 40 NEXT 41 IF (N+M>16)&(O=1):CALL 8,70 42 CALL 8,40 43 RET 44 'LIMITS OF ENVIRONMENT --------- 45 N=R:M=S:FOR Y=1 TO 8:R=N:S=M:H=0 46 IF Y=1:IF S>5:GO ~L+2 47 IF Y=1:IF AR(330+P+1)=AR(4):H=1 48 IF Y=2:IF S<2:GO ~L+2 49 IF Y=2:IF AR(330+P-1)=AR(4):H=-1 50 IF Y=3:IF R>5:GO ~L+2 51 IF Y=3:IF AR(330+P+8)=AR(4):H=8 52 IF Y=4:IF R<2:GO ~L+2 53 IF Y=4:IF AR(330+P-8)=AR(4):H=-8 54 IF Y=5:IF (S<2)#(R>5):GO ~L+2 55 IF Y=5:IF AR(330+P+7)=AR(4):H=7 56 IF Y=6:IF (S>5)#(R<2):GO ~L+2 57 IF Y=6:IF AR(330+P-7)=AR(4):H=-7 58 IF Y=7:IF (S>5)#(R>5):GO ~L+2 59 IF Y=7:IF AR(330+P+9)=AR(4):H=9 60 IF Y=8:IF (S<2)#(R<2):GO ~L+2 61 IF Y=8:IF AR(330+P-9)=AR(4):H=-9 62 IF H=0:GO 91 63 64 'MAX. PIECES ------------------- 65 J=H:Z=0:FOR I=1 TO 7 66 IF (AR(330+P+J)=AR(3))&(Z=0):Z=I 67 IF AR(330+P+J+H)=14:GO 80 68 69 'LIMITS OF FIELD --------------- 70 V=P+J:CALL 6,89 71 IF (H=1)&(S=7):GO 80 72 IF (H=-1)&(S=0):GO 80 73 IF (H=8)&(R=7):GO 80 74 IF (H=-8)&(R=0):GO 80 75 IF (H=7)&((R=7)#(S=0)):GO 80 76 IF (H=-7)&((R=0)#(S=7)):GO 80 77 IF (H=9)&((R=7)#(S=7)):GO 80 78 IF (H=-9)&((R=0)#(S=0)):GO 80 79 J=J+H 80 NEXT 81 82 'ROTATE DELIMITED PIECES ------- 83 IF Z=0:GO ~L+8 84 IF X=0:DA 330+P,AR(3) 85 IF X=1:Q=AR(1340+P) 86 J=H:FOR I=1 TO Z 87 IF X=0:DA 330+P+J,AR(3) 88 IF X=1:Q=Q+AR(1340+P+J) 89 IF X=1:DA 400+P,P:DA 470+P,Q 90 J=J+H:NEXT 91 NEXT :Q=0:Z=0:RET # P3: PROGRAM:REVERSPART3 01 '***************************** 02 'REVERSI GAME by -ws- 10.06.20 03 'Rev. 1.1 Part3 --- LOAD TO P8 04 '******************************* 05 G=0:DA 3,AR(2):DA 4,AR(1)' CB2 06 'CLEAR ANALYSIS ARRAY ---------- 07 FOR I=0 TO 63 08 DA 400+I,0:DA 470+I,0:NEXT 09 COL 15,9 10 POS 21,5:? " CB2 MOVE " 11 CALL 8,13:CALL 8,18:RET 12 13 'SUCCESSFUL CB2 POSITIONS ------ 14 FOR P=0 TO 63:V=P:CALL 6,89 15 IF AR(330+P)=14:X=1:CALL 7,44 16 NEXT :RET 17 18 'BEST NUMBER OF PIECES --------- 19 FOR I=0 TO 63:U=AR(470+I) 20 IF U>Z:Z=U:P=I 21 NEXT :V=P:CALL 6,89:CALL 8,29 22 IF T=0:X=0:CALL 7,44:RET 23 K=KEY(0) 24 IF K=234:X=0:CALL 7,44:GO ~L+2 25 GO ~L-2 26 COL 0,7:POS 21,19:? " " 27 RET 28 29 'DISPLAY CB2 POSITION ---------- 30 COL 0,10 31 IF R=8:POS 21,5:? "NO CB2 MOVE" 32 IF R=8:DA 6,1 33 COL AR(4),AR(3) 34 POS 21,16:? %AR(610+S) 35 POS 21,17:? %AR(618+R) 36 IF T=1:POS 21,19:? "ENTER CB2" 37 IF R>0:DA 5,0 38 WAIT 5:G=0:RET 39 40 'GAME OVER --------------------- 41 IF (AR(5)=1)&(AR(6)=1):GO ~L+3 42 IF (N+M=64)#(N=0)#(M=0):GO ~L+2 43 RET 44 IF M<N:NO 254:GO ~L+3 45 IF M>N:NO 253:GO ~L+4 46 IF M=N:NO 252:GO ~L+5 47 DATA 1,192," YOU WON",0 48 GO ~L+4 49 DATA 1,160," YOU LOST",0 50 GO ~L+2 51 DATA 1,224," UNDECIDED",0 52 ALERT 1 53 DATA 1,159," NEW GAME?",0 54 ASK K,1 55 IF K=0:CLS :END 56 RET 57 58 'DISK-SQUARE FACTORS ----------- 59 'Can be edited for optimization! 60 'LOW-LEVEL --------------------- 61 DA 1340,2,2,2,2,2,2,2,2 62 DA 1348,2,-2,-2,-2,-2,-2,-2,2 63 DA 1356,2,-2,1,1,1,1,-2,2 64 DA 1364,2,-2,1,1,1,1,-2,2 65 DA 1372,2,-2,1,1,1,1,-2,2 66 DA 1380,2,-2,1,1,1,1,-2,2 67 DA 1388,2,-2,-2,-2,-2,-2,-2,2 68 DA 1396,2,2,2,2,2,2,2,2 69 RET 70 'HIGH-LEVEL -------------------- 71 DA 1340,30,2,10,5,5,10,2,30 72 DA 1348,2,0,5,3,3,5,0,2 73 DA 1356,10,1,5,2,2,5,1,10 74 DA 1364,5,1,3,1,1,3,1,5 75 DA 1372,5,1,3,1,1,3,1,5 76 DA 1380,10,1,5,2,2,5,1,10 77 DA 1388,2,0,5,3,3,5,0,2 78 DA 1396,30,2,10,5,5,10,2,30 79 RET # Download zip file
2.4 Escape	This game has been written by Franko (Walker Computing). You try to collect elements and escape through the door, without get hitted by the monster.	Up, Down, Left, Right arrows	None	PROGRAM:Escape 01 ' (C) 2020 WALKER COMPUTING 02 ' This game is quite buggy 03 ' at times, sorry about that. 04 GOTO 80 05 S=0:L=3:E=1 06 DA 0,0,-1,-1,1,1,174,$47 07 COL 7,0:CLS 08 COL 6,0:? @0,0;%164;@0,30;%165 09 ? @14,0;%166;@14,30;%167 10 FOR F=1 TO 28 11 ? @0,F;%15;@14,F;%15 12 IF F<14 ? @F,0;%15;@F,30;%15 13 NEXT :COL 3,4 14 FOR F=1 TO 13 : FOR G=1 TO 28 15 ? @F,G;" ":NEXT :NEXT 16 FOR F=0 TO 30 17 A=RND(13)+1:B=RND(26)+2 18 GCH Z,A,B:IF Z<>32 GO 17 19 ? @A,B;%16:NEXT :COL 1,4 20 FOR F=1 TO 10 21 A=RND(13)+1:B=RND(24)+3 22 GCH Z,A,B:IF Z<>32 GO 21 23 ? @A,B;%27:NEXT :COL 14,4 24 A=RND(13)+1:B=RND(10)+10 25 GCH Z,A,B:IF Z<>32 GO 24 26 ? @A,B;%227 27 A=RND(13)+1:B=1 28 GCH Z,A,B:IF Z<>32 GO 27 29 C=RND(13)+1:D=28 30 GCH Z,C,D:IF Z<>32 GO 29 31 32 COL 7,0:? @17,10;"Lives";L 33 ? @19,10;"Level";E 34 ? @21,10;"Score";S 35 COL 0,4 36 ' Main Loop 37 K=KEY(0) 38 SPR 0,A,B 39 IF K=226 GOS 64 40 IF K=227 GOS 66 41 IF K=228 GOS 68 42 IF K=229 GOS 70 43 IF Z=227 GO 77 44 IF Z=175 GO 79 45 GOS 47:? @C,D;%175:IF Z=174GO 79 46 SYNC 3:GO 37 47 ' Move Enemy 48 Z=RND(5):Z=(Z2)+50 49 GO Z 50 GCH Z,C-1,D:IF Z<>32 RET 51 ? @C,D;" ":C=C-1:RET 52 GCH Z,C+1,D:IF Z<>32 RET 53 ? @C,D;" ":C=C+1:RET 54 GCH Z,C,D-1:IF Z<>32 RET 55 ? @C,D;" ":D=D-1:RET 56 GCH Z,C,D+2:IF Z<>32 RET 57 ? @C,D;" ":D=D+1:RET 58 IF C>A GOS 50 59 IF C<A GOS 52 60 IF D>B GOS 54 61 IF D<B GOS 56 62 RET 63 ' Move Player 64 GCH Z,A,B-1:IF (Z=15)#(Z=16) RET 65 B=B-1:GO 72 66 GCH Z,A,B+1:IF (Z=15)#(Z=16) RET 67 B=B+1:GO 72 68 GCH Z,A-1,B:IF (Z=15)#(Z=16) RET 69 A=A-1:GO 72 70 GCH Z,A+1,B:IF (Z=15)#(Z=16) RET 71 A=A+1 72 IF Z=27:S=S+5:COL 7,0:? @21,15;S 73 IF Z=27 COL 0,4:? @A,B;" " 74 RET 75 76 ' Exit 77 S=S+(L3):E=E+1:GO 8 78 ' Got by Enemy 79 L=L-1:IF L>0 GO 8 80 COL 7,0:CLS 81 ? @1,11;"ESCAPE" 82 ? @3,0;"W A L K E R C O M P "; 83 ? "U T I N G";@5,10;"(C) 2020" 84 ? @8,0;"Using the cursor keys,"; 85 ? " collectas many ";%27;"'s "; 86 ? "as you can, while avoiding "; 87 ? %175;".":? 88 ? "The main objective is to "; 89 ? "get ";%174;"to the ";%227; 90 ? " before you die.":? :WAIT 20 91 ? " LAST GAME: SCORE ";S 92 ? " LEVEL ";E:? :? 93 ? " PRESS ANY KEY TO PLAY" 94 IF KEY(0)=0 GO 94 95 GO 5 #
2.5 Bounce	This game has been written by Franko (Walker Computing). You try to collect the keys and climb on the walls to open the door without falling down.	Up, Down, Left, Right arrows	None	PROGRAM:Bounce 01 'EP (2),0:EP (3),0 02 ' (C) 2020 WALKER COMPUTING 03 04 BO 0:GOS 60:S=0 05 BO 0:L=3:X=19:Y=15:J=0 06 DA 0,2,-1,-1,1,1,17,5 07 GOS 46 08 09 10 ' MAIN LOOP 11 12 K=KEY(0) 13 GCH F,X+1,Y:GCH G,X,Y-1 14 GCH H,X,Y+1 15 IF (F<>178)&(J=0): J=2:I=X 16 IF (G<>178)&(K=226): Y=Y-1 17 IF (H<>178)&(K=227): Y=Y+1 18 IF F=178 : J=0 19 IF J=2: X=X+1 20 IF (K=228)&(F=178): J=1:I=X 21 IF J=1 : X=X-1 22 IF (J=1)&(I-X=5): J=0 23 GCH E,X,Y 24 IF E=28: D=D+1:? @X,Y;" " 25 IF (J=1)&(X=3)&(E=178):J=0 26 IF (X=3)&(E=32):GO 37 27 IF (J=0)&(X-I>8):NO 63: GO 39 28 SPR 0,X,Y 29 IF J>0: NO -X+30 30 IF E=28: NO 126 31 IF D=7: ? @3,13;" " 32 IF D=7 :NO 192:D=D+1 33 IF K=237: END 34 IF K=113 : X=19:Y=15:J=0:GO 7 35 SYNC 4:GO 12 36 37 S=S+(D+L3):X=19:J=0:CLS :GO 7 38 39 BO 2:WAIT 20:L=L-1:J=0:X=19:BO 0 40 IF L=-1 :BO 2:WAIT 20:GO 4 41 COL 0,6:? @1,20;L:COL 2,0:GO 12 42 43 44 ' SET UP 45 46 COL 6,0:HFRAME 0,0,22,29:COL 0,6 47 ? @1,2;"SCORE";S;@1,20;L; 48 ? " LIVES":COL 2,0:FOR F=1TO 28 49 ? @3,F;%178;@21,F;%178:NEXT 50 FOR F=4 TO 20:? @F,1;%178 51 ? @F,28;%178:NEXT :FOR F=2TO 8 52 A=(RND(6)+4)2:? @(F2)+2,A; 53 ? %178;%178;%178:COL 6,0 54 ? @(F2)+1,A+1;%28:COL 2,0 55 NEXT :D=0: RET 56 57 58 ' INSTRUCTIONS 59 60 CLS :COL 4,0:HFRAME 0,0,22,29 61 COL 0,4:? @1,10;"B O U N C E" 62 COL 7,0 63 ? @4,2;"(C) 2020 WALKER "; 64 ? "COMPUTING":? @7,2;"You are"; 65 ? " trapped in a cave,":? @ 8,2; 66 ? "to escape you must collect" 67 ? @9,2;"all 7 magic keys." 68 ? @11,1;"Use the LEFT and "; 69 ? "RIGHT ARROW":? @12,1;"keys "; 70 ? "to move and UP to jump." 71 ? @14,6;"DON'T FALL TOO FAR!" 72 A=2:Q=EPEEK(A):R=EPEEK(A+1) 73 IF R>127 EP (A+1),0:R=0 74 F=Q+256*R 75 IF S<F : GO 78 76 F=S:EPOKE (A),LO(F) 77 EPOKE (A+1),HI(F) 78 ? @16,8;"HIGH SCORE";F 79 IF S=0 : GO 81 80 ? @18,8;"LAST SCORE";S 81 ? @21,6;"PRESS 'P' TO PLAY" 82 REP 83 UNT KEY(0)<>112 84 RET 85 86 ' (C) 2020 WALKER COMPUTING #
2.6 TicTacToe	This game has been written by Saul. It is the classic Tic Tac Toe game. Play against the computer or another player, or watch the demo (computer to computer)	Numeric keypad or numbers (representing the positions of X,O elements) and ENTER.	None	PROGRAM:TicTacToe 01 VM 0:COL 6,1:BO 9:GOS 83:T=0:CLS 02 ? !66@3,6"CB2TTT"!@6,23"v1" 03 DA 20,"The CB2 TicTacToe",0:Y=18 04 COL 1,9:? @7,7;&20:COL 9,1:D=192 05 ? @,"2020"@,26"mois":COL 15 06 ? @9,7"Press [";%133;&98:COL 9 07 ? @21,7;&74:X=1+RND(30):GOS 66'' 08 IF KEY(0)=$EA:T=1:NO 30,15:GO 13 09 IF KEY(0)=50:T=2:NO 31,15:GO 13 10 A=RND(256):P=P+1:IF P>1024 GO 13 11 IF A<2 SCROLL RND(4):SYNC 2:GO 1 12 SYNC 1:GO ~L-4 'menu_loop 13 Z=RND(4):FOR A=0 TO 25:SCROLL Z 14 SYNC 2:NEXT VM 1:FONT 1:N=RND(2) 15 COL 1,:Y=58:X=Y:P=0:BO 0:E=384 16 FOR B=1 TO 50:A=B/3:IF B<48:CLS 17 BOX Y-B,X-B,Y+B,X+B:I=0:S=0:V=1 18 DR Y-A,X-B,Y-A,X+B:IF B=10 COL 9 19 DR Y+A,X-B,Y+A,X+B:H=0:Z=12+B/15 20 DR Y-B,X-A,Y+B,X-A:NO 50-B,Z 21 DR Y-B,X+A,Y+B,X+A:IF B=43:P=1 22 IF B<46:B=B+P ':IF B>50:B=50 23 SYNC 1:NEXT :BOX 2,2,112,163,1 24 BOX 8,113,108,159,(N+1)2'round 25 BOX 4,4,114,165,1:X=(N+1)2+8 26 IF T=0COL 3+N8? @75,127"demo!" 27 GOS 64:IF T COL 13? @75,127;&40 28 DA 99,"2P's",0,"1P's",0:COL X 29 Y=99+N5:IF T IF N#(T=2) GO 48 30 ? @28,127"cpu's";@35,127"turn!" 31 Y=N2:IF T<2WAIT RND(4)+RND(3)+3 32 DA 110,"0361472586307418520631" 33 DA 132,"7428504848008424664226" 34 DA 154,"4012345678210543876021" 35 DA 176,"354687":B=110:Z=48 36 X=AR(AR(B)-Z)+AR(AR(B+1)-Z) 37 F=AR(B+2)-ZIF X=YIF AR(F)>2GO 53 38 IF B<179:B=B+3:GO ~L-2 39 IF Y=N2:Y=(NOT(N)+2)2:GO ~L-4 40 F=RND(9):IF AR(F)<9 GO ~L 41 GO 53 'end_cpu's_turn 42 DA 196,44,48,52:Y=0:C=(N4)+5 43 FOR Z=G TO G+2 'row_highlight 44 X=AR(AR(Z)+142):A=X+42 45 VP 2436+X+Y,C:IF Y<2:Y=Y+1:GO ~L 46 IF X<A:X=X+21:Y=Y-2:GO ~L-1 47 Y=0:NEXT :RET 'end_highlight 48 ? @28,128;&Y@35,127"turn!"'plyr 49 IF KEY(2):F=KEY(1):GO ~L+1 50 IF F=$ED:P=0:BO 0:GO 94 51 VOL 15:IF (F<49)#(F>57) GO ~L-2 52 F=F-49IF AR(F)<9NO AR(F)+30GO 49 53 Y=76:X=14:B=0:GOS 76:IF T:P=0'' 54 ? @28,120,,,,@35,120,,,,:B=50'ck 55 FOR Y=0TO 2:X=X+AR(AR(B+Y)-48) 56 NEXT IF (X=0)#(X=3):G=B:GOS 89 57 IF B<71:B=B+3:X=0:GO ~L-2'winchk 58 IF V IF H=8 GOS 74 'tie_chk 59 IF VIF H<8:N=NOT(N)+2:H=H+1GO 24 60 IF KEY(0)=$ED:P=0:BO 0:GO 94'men 61 P=P+1:IF (P=D)#(P=E)GOS 79:GO 24 62 IF P>768:P=0:BO 0:GO 94'rounloop 63 SYNC 1:GO ~L-3 'wait_ESC_key 64 FONT 0:COL 10:? @95,120;I'score 65 COL 12:? @84,120;S:FONT 1:RET 'x 66 NO 63,13:SYNC 2:VOL 0:IF N GO 71 67 Z=RND(3):FOR A=5 TO 6+Z:SYNC 1 68 DR Y+4+Z,X+A+Z,Y+21,X+17,2:NEXT 69 Z=RND(3):FOR A=5 TO 6+Z:SYNC 2'x 70 DR Y+5,X+15+A,Y+21,X+4,2NEXT RET 71 Z=RND(2):FOR A=0 TO Z+1 'circle 72 CI Y+13,X+14-Z,10-A,9-A+Z,4 73 SYNC 2+Z:NEXT :RET 74 COL 6:? @31,127"draw!":BO 6'tie 75 BOX 8,113,108,159,6:NO 31,15:RET 76 IF B=F DA F,N:GOS 66:X=0:RET 'd 77 IF X<76:X=X+31:B=B+1:GO ~L-1'chk 78 X=14:IF Y>14:Y=Y-31:B=B+1:GO 76 79 BO 0:FOR Z=0TO 17:FOR A=0TO 95 80 B=16+Z+A:? @B+4,120,,,,'ini_vars 81 A=A+31? @B,16,,,@B,48,,,@B,80,,, 82 NEXT NO RND(63)2,RND(6)+10:NEXT 83 DA 0,9,9,9,9,9,9,9,9,9:H=0:V=1 84 DA 50,"01234567803614725804824" 85 N=NOT(N)+2:DA 40,"score",0:VOL 0 86 DA 74,"Controls: #Numpad",0 87 DA 190,212,216,220,128,132,136 88 DA 98,"] or [2]P",:DA 73,"6":RET 89 W=(N+1)2:I=I+1IF N:I=I-1:S=S+1 90 GOS 42:BO W:W=W+8:V=0:Y=20:X=122 91 NO 31,15:IF N GOS 71:A=34 'o win 92 GOS 64:IF N=0 GOS 67:A=27 'x win 93 COL W:? @52,129"win!":NO A,15RET 94 FOR A=0TO 57:B=57-A:NO 4*B,13 95 BOX B,B,58+A,110+A,:NEXT :GO 1' #
2.7 Lights Out	This game has been written by Wolfgang Schmidt. "LIGHTS OUT" is a puzzle game from the 90's and was made as a handheld brought on the market. Please see the README file inside the zip package for more information about the game.	R, S, N, ESC, arrow keys and ENTER.	None	PROGRAM:LIGHTSOUT 01 '******************************* 02 'LIGHTsOUT R1.3 by ws/04.10.20 03 '******************************* 04 COL 0,7:CLS :P=0:Z=99:T=13'Level 05 FBOX 4,36,23,57,0:COL 0,15 06 ? @3,19;"LIGHTsOUT":COL 0,7 07 ? @17,18;"RELOAD R " 08 ? @18,18;"SOLVE S " 09 ? @19,18;"NEW N " 10 ? @20,18;"END ESC" 11 ? @13,18;"SELECT WITH" 12 ? @14,18;"ARROW KEYS" 13 ? @15,18;"PRESS ENTER" 14 BOX 2,2,44,34,8 15 A=10:B=4:C=4:D=8:E=8:F=0 16 FOR I=1 TO 5:FOR J=1 TO 5 17 DA 25+F,A:DA 50+F,B:DA 75+F,C 18 DA 100+F,D:DA 125+F,8 19 B=B+6:D=D+6:F=F+1:NEXT 20 A=A+8:C=C+8:B=4:D=8:NEXT :GOS 71 21 FOR J=0 TO 24:DA 150+J,AR(125+J) 22 NEXT :GOS 36:GOS 63:GOS 66 23 K=KEY(0)'----------------CONTROL 24 IF K=226:P=P-1:GOS 36' LEFT 25 IF K=227:P=P+1:GOS 36' RIGHT 26 IF K=228:P=P-5:GOS 36' UP 27 IF K=229:P=P+5:GOS 36' DOWN 28 IF K=115:GOS 81' SOLVE 29 IF K=237:END ' LEAVE 30 IF K=110:GO 1' NEW 31 IF K=114:GOS 66:GO ~L+2' RELOAD 32 IF K=234:GOS 63:GO ~L+2' SET 33 GO ~L-10 34 GOS 45:GOS 41:GOS 36:GOS 91 35 GO ~L-12 36 IF P<=0:P=0'--------SET POSITION 37 IF P>=24:P=24 38 GOS 41:A=AR(25+P):B=AR(50+P) 39 C=AR(75+P):D=AR(100+P) 40 FBOX A,B,C+6,D,10:WAIT 3:RET 41 FOR I=0 TO 24:A=AR(25+I)'-UPDATE 42 B=AR(50+I):C=AR(75+I) 43 D=AR(100+I):E=AR(125+I) 44 FBOX A,B,C,D,E:NEXT :RET 45 R=P/5:FOR K=0 TO 4:'--------SWAP 46 IF P/5=K:S=P-K5 47 NEXT :Q=125+P:G=8:H=14 48 IF AR(Q)=G:DA Q,H:GO ~L+2 49 IF AR(Q)=H:DA Q,G 50 IF S=4:GO ~L+3 51 IF AR(Q+1)=G:DA Q+1,H:GO ~L+2 52 IF AR(Q+1)=H:DA Q+1,G 53 IF S=0:GO ~L+3 54 IF AR(Q-1)=G:DA Q-1,H:GO ~L+2 55 IF AR(Q-1)=H:DA Q-1,G 56 IF R=4:GO ~L+3 57 IF AR(Q+5)=G:DA Q+5,H:GO ~L+2 58 IF AR(Q+5)=H:DA Q+5,G 59 IF R=0:GO ~L+3 60 IF AR(Q-5)=G:DA Q-5,H:GO ~L+2 61 IF AR(Q-5)=H:DA Q-5,G 62 WAIT 2:RET '--------STEP COUNTER 63 IF (U=P)&(V=1):W=W-1:V=0:GO ~L+2 64 V=1:W=W+1 'STEPS 65 ? @8,19;"STEP :";W:U=P:RET 66 GOS 86:W=0:V=0:FOR J=0 TO 24'-RL 67 DA 125+J,AR(150+J):NEXT 68 ? @8,25; " ":? @10,25;" " 69 COL 12,0:? @10,19;"BEST :";Z 70 GOS 41:GOS 36:RET 71 N=0:FOR J=1 TO T'-------NEW GAME 72 P=RND(25):DA 250+J,P 73 S=0:FOR I=0 TO J-1 74 IF AR(250+I)=P:S=1 75 NEXT :IF S=1:GO ~L-3 76 IF AR(125+P)=14:GO ~L+3 77 DA 175+N,P:GOS 45 78 DA 200+N,R:DA 220+N,S:N=N+1 79 ? @11,8;"LOAD":NEXT :COL 12,0 80 ? @6,19;"GOAL :";N:N=N-1:RET 'SL 81 FOR J=0 TO N:P=AR(175+J):GOS 45 82 GOS 41:NEXT :FOR J=0 TO N 83 R=AR(200+J):S=AR(220+J):COL 10,0 84 ? @4+R4,3+S*3;%15:NEXT 85 COL 12,0:W=99:RET 86 IF W>Z:RET '----------BEST SCORE 87 GOS 88:IF S=0:? @10,25;W:Z=W:RET 88 S=0:FOR J=0 TO 24'-----FIELDTEST 89 IF AR(125+J)=14:S=1 90 NEXT :RET '----------GAME SOLVED 91 GOS 88:IF (W<=N+1)&(S=0):GO ~L+2 92 RET '-----------------------HINT 93 COL 15,10:? @4,19;"WELL DONE" 94 FOR I=1 TO 15:NO 55:WAIT 1:NEXT 95 COL 12,0:RET # Download zip file
2.8 15-Puzzle	This game has been written by Wolfgang Schmidt. The aim is to get the numbers from top left to bottom right to be arranged in ascending order. Only the arrow keys are required for this. The number of steps required is counted.Please see the README file inside the zip package for more information about the game.	R, N, ESC and arrow keys.	None	PROGRAM:15 PUZZLE 01 '******************************* 02 '15 PUZZLE R1.0 by ws/15.11.20 03 '******************************* 04 COL 0,7:CLS 05 FBOX 3,39,23,58,0:COL 0,15 06 ? @2,20;"15-PUZZLE":COL 12,0 07 ? @8,20;"STEP:" 08 ? @10,20;"BEST:":COL 0,7 09 ? @13,20;"SEL. WITH" 10 ? @14,20;"ARR. KEYS":COL 14,7 11 ? @16,20;" IMPROVE " 12 ? @17,20;"GAME WITH" 13 ? @18,20;"RELOAD(R)":COL 0,7 14 ? @20,20;"NEW (N)" 15 ? @21,20;"END ESC" 16 BOX 2,2,44,36,8 17 DA 100,10,15,10,15,15,10,15,10 18 DA 108,10,15,10,15,15,10,15,0 19 A=12:B=4:C=4:D=10:F=0 20 FOR I=1 TO 4:FOR J=1 TO 4 21 DA 20+F,A:DA 40+F,B:DA F,F+1 22 DA 60+F,C:DA 80+F,D 23 B=B+8:D=D+8:F=F+1:NEXT 24 A=A+10:C=C+10:B=4:D=10:NEXT 25 R=9:S=9:GOS 35:GOS 73 26 K=KEY(0)'NAVIGATION ------------ 27 IF K=226:P=0:GOS 43'LEFT 28 IF K=227:P=3:GOS 43'RIGHT 29 IF K=228:P=1:GOS 43'UP 30 IF K=229:P=2:GOS 43'DOWN 31 IF K=114:GOS 64' RELOAD 32 IF K=237:END ' LEAVE 33 IF K=110:GO 4' NEW 34 GO ~L-8'UPDATE ----------------- 35 FOR I=0 TO 15 36 A=AR(20+I):B=AR(40+I) 37 C=AR(60+I):D=AR(80+I) 38 E=AR(100+I):COL 0,AR(100+I) 39 IF Q=0:FBOX A,B,C,D,E 40 IF Q=0:? @A/2-2,B/2;AR(I) 41 IF AR(I)=16:M=I 42 NEXT :RET 'POSITION ------------ 43 IF (P=0)&(S<3):N=M+1:GOS 70 44 IF (P=3)&(S>0):N=M-1:GOS 70 45 IF (P=1)&(R<3):N=M+4:GOS 70 46 IF (P=2)&(R>0):N=M-4:GOS 70 47 K=AR(100+M):DA 100+M,AR(100+N) 48 DA 100+N,K:K=AR(M):DA M,AR(N) 49 DA N,K:GOS 35:IF Q=0:WAIT 3 50 R=M/4:FOR K=0 TO 3 51 IF M/4=K:S=M-K*4 52 NEXT :IF Q=0:GOS 54 53 RET 'CONTROL SOLVE ------------- 54 COL 15,10:L=0:FOR I=0 TO 15 55 IF AR(I)<>I+1:L=1 56 NEXT IF L=0:? @4,20;" SOLVED! " 57 IF L=1:RET 58 IF Z<=H:G=Z-1 59 COL 12,0:? @10,25;" " 60 ? @10,25;G:H=G:RET 'BACKUP ----- 61 FOR I=0 TO 15:DA 140+I,AR(I) 62 DA 120+I,AR(100+I):NEXT 63 DA 160,R:DA 161,S:RET 'RELOAD -- 64 T=0:COL 12,0:? @8,25;" " 65 COL 0,0:? @4,20;" " 66 FOR I=0 TO 15:DA I,AR(140+I) 67 DA 100+I,AR(120+I):NEXT :M=I 68 R=AR(160):S=AR(161):GOS 35 69 Z=0:GOS 70:RET 'CTR ------------ 70 COL 12,0:? @8,25;" " 71 ? @8,25;Z:Z=Z+1:T=T+1:DA 200+T,P 72 RET 'NEW ----------------------- 73 FOR I=200 TO 600:DA I,9:NEXT 74 Q=1:T=0:X=RND(200):IF X<30:GO ~L 75 P=2:GOS 43:P=3:GOS 43 76 FOR J=1 TO X 77 P=RND(4):IF V=P:GO ~L 78 GOS 43:V=P:NEXT :Q=0:GOS 61 79 GOS 35:Z=0:H=500:GOS 70 80 FOR Y=1 TO 10:FOR I=0 TO T-1 81 V=200+I:W=200+I+1 82 IF AR(V)+AR(W)=3:DA V,9:DA W,9 83 NEXT :J=0:FOR I=0 TO T-1:V=200+I 84 W=AR(V):IF W<9:DA 200+J,W:J=J+1 85 NEXT :T=J:NEXT :FOR I=0 TO T 86 DA 400+I,AR(200+I):NEXT :O=T 87 COL 12,0:? @6,20;"GOAL<" 88 ? @6,25;T:RET # Download zip file
2.9 RainbowRunner	This game has been written by KOS.The aim is to collect all the jewels before the time runs out, without hit on the walls. Your rainbow tail blocks you from passing trough it. The game has been written as a demonstration of the Dithering technique for creating more than 16 colors that the CB2 micro supports, using special block characters with different foreground and background colors. Notice how colorful your tail is!	Arrow keys.	None	PROGRAM:RainbRunner 01 P=1 02 CLS 03 Y=1:X=1:F=100:K=P:L=0:N=20 04 05 06 07 COL L:FOR A=0 TO 629 08 PRINT %15; 09 NEXT 10 COL 7,0:POS 0,1:FOR B=0 TO 27 11 PRINT %185; 12 NEXT 13 POS 20,1:FOR B=0 TO 27 14 PRINT %184; 15 NEXT 16 POS 1,0:FOR B=0 TO 18 17 PRINT %187 18 NEXT 19 POS 0,29:FOR B=1 TO 19 20 POS B,29:PRINT %186 21 NEXT 22 COL 0,0:? @0,0;%0;:? @0,29;%0; 23 ? @20,0;%0;:? @20,29;%0; 24 25 FOR J=0 TO K 26 H=RND(20):IF H<1:H=1 27 I=RND(29):IF I>28:I=28 28 IF H>19:H=19 29 IF I<1:I=1 30 31 32 33 M=RND(15) 34 IF M=L THEN M=RND(15):GO 34 35 IF M=0 THEN M=RND(15):GO 35 36 COL M,L:? @H,I;%27; 37 NEXT 38 39 40 41 42 43 44 45 46 47 48 49 50 COL RND(15),RND(15) 51 ? @Y,X;%138; 52 D=KEY(6):E=KEY(7) 53 X=X+D:Y=Y-E 54 55 GETCHAR C,Y,X 56 IF C=27:NO 254:SYNC 1:NO 59 57 IF C=27:F=F+N:K=K-1:GO 60 58 59 IF C<>15 THEN X=X-D:Y=Y+E 60 61 62 VOL 7 63 IF C=15 THEN NO 255:SYNC 1:NO 0 64 VOL 15 65 IF C=184 THEN NO 255:END 66 IF C=185 THEN NO 255:END 67 IF C=186 THEN NO 255:END 68 IF C=187 THEN NO 255:END 69 70 71 72 COL RND(16),L 73 ? @Y,X;%174; 74 75 76 COL 7,0 77 F=F-1 78 ? @21,1;"Time:";PRINT " "; 79 ? @21,1;"Time:";PRINT F; 80 IF F=0 THEN NO 255: SYNC 5:END 81 IF K<0 THEN GO 85 82 SYNC 4:GO 50 83 84 85 FOR O=50 TO 62 86 NO O:SYNC 1 87 NEXT 88 P=2*P:GO 2 #
3.0 Batnum	At the beginning, you choose the number of parts (coins, stones, whatever) that should be onto the table. Choose how many parts (min, max) can be taken away per turn (e.g. 1-3). The aim of the game is to win the game either by removing the last stone or to avoid leaving the last stone. The game is played against the AVR.	Numbers	None	PROGRAM:Batnum 01 CLS :GOSUB 84 02 CLS 03 COL 1:FBOX 0,0,50,60:COL 7,1 04 ? @2,2;INP "Enter Pile size: ";N 05 IF N>=1 THEN GOTO 7 06 GOTO 4 07 CLS :COL 1:FBOX 0,0,50,60 08 COL 7,1 09 ? @2,2;"Enter Win options" 10 ? @4,2;"1 - to take last" 11 ? @5,2;"2 - to avoid last" 12 M=KEY(1) 13 IF M=49 THEN GOTO 15 14 IF M<>50 THEN GOTO 7 15 CLS :COL 1:FBOX 0,0,50,60 16 COL 7,1 17 ? @2,2;INP "Enter min: ";A 18 ? @3,2;INP "Enter max: ";B 19 IF A>B THEN GOTO 15 20 IF A<1 THEN GOTO 15 21 CLS :COL 1:FBOX 0,0,50,60 22 COL 7,1 23 ? @2,2;"Enter start option" 24 ? @4,2;"1 - AVR first" 25 ? @5,2;"2 - You first" 26 S=KEY(1) 27 IF S=49 THEN GOTO 29 28 IF S<>50 THEN GOTO 21 29 C=A+B 30 IF S=50 THEN GOTO 33 31 GOSUB 36 32 IF W=1 THEN GOTO 2 33 GOSUB 57 34 IF W=1 THEN GOTO 2 35 GOTO 31 36 Q=N 37 IF M=49 THEN GOTO 39 38 Q=Q-1 39 IF M=49 THEN GOTO 44 40 IF N>A THEN GOTO 48 41 W=1 42 ? :? "AVR takes ";N;" and lose"" 43 WAIT 2:L=KEY(1):RETURN 44 IF N>B THEN GOTO 48 45 W=1 46 ? :? "AVR takes ";N;" and wins" 47 WAIT 2:L=KEY(1):RETURN 48 P=Q-C*(Q/C) 49 IF P>=A THEN GOTO 51 50 P=A 51 IF P<=B THEN GOTO 53 52 P=B 53 N=N-P 54 CLS :? "AVR takes";P;". Rest:";N 55 W=0 56 RETURN 57 PRINT :PRINT "Your move "; 58 INPUT P 59 IF P<>0 THEN GOTO 63 60 PRINT "Not zero!" 61 W=1 62 RETURN 63 IF P>=A THEN GOTO 66 64 IF P=N THEN GOTO 71 65 GOTO 67 66 IF P<=B THEN GOTO 69 67 PRINT "Illegal Move"; 68 GOTO 58 69 N=N-P 70 IF N<>0 THEN GOTO 78 71 IF M=49 THEN GOTO 75 72 PRINT "You lose!" 73 W=1:WAIT 1:L=KEY(1) 74 RETURN 75 PRINT "YOU WIN!!!" 76 W=1:WAIT 5 77 RETURN 78 IF N>=0 THEN GOTO 81 79 N=N+P 80 GOTO 67 81 W=0 82 RETURN 83 END 84 CLS :COL 9:FBOX 0,0,50,60 85 COL 0,9:? @2,5;!66;"BATNUM" 86 ? @8,1;"Battle of numbers game" 87 ? @9,1;"where the AVR is your" 88 ? @10,1;"opponent." 89 90 91 92 93 COL 0,7:? @20,9;"PRESS A KEY" 94 WAIT 2:L=KEY(1) 95 RETURN #
3.1 Hammurabi	This is the famous Hammurabi game, ported to the CB2 micro by Dominik Kristen.	None.	Needs 2 program positions, P7, P8.	P7: PROGRAM:Hamurabi 01 CLS :COLOR 1:FBOX 0,0,45,60 02 ? :? :COL 13,1 03 ? " Try your hand at governing" 04 ? " ancient Sumeria for a" 05 ? " ten-year term of office of" 06 :? :? :COL 10,1 07 ? @6,1;!66;"HAMMARUBI":? :? :? 08 ? :COL 3,1 09 ? " KING OF" 10 ? " ANCIENT BABYLONYA" 11 COL 13,1:? :? :? 12 ? " 2022 by Dominik Kristen" 13 COL 14,0:? @20,9;"PRESS A KEY" 14 T=0:U=0:Z=0:P=95:S=2800:H=3000 15 E=H-S:Y=3:A=H/Y:I=5:Q=1:B=0 16 K=KEY(1) 17 COL 12,0:CLS :'CALL 8,32 18 ? "HAMMURABI:":? :Z=Z+1 19 ? "I beg to report you," 20 ? "in year ";Z;", ";D;" People" 21 ? "starved, ";I;" came to the" 22 ? "city":P=P+I:IF Q<>6:GO 26 23 P=(P/2) 24 ? "A Horrible Plague! Half the" 25 ? "the people died." 26 ? "Population is now ";P 27 ? "The city owns ";A;" acres." 28 ? "You harvested ";Y;" bushels" 29 ? "per acre." 30 ? "Rats ate ";E;" bushels." 31 ? "You now have ";S;" bushels" 32 ? "in store.":? 33 IF Z=11 THEN CALL 8,1 34 C=(RND(10)):Y=C+17 35 ? "Land is trading at";Y 36 ? "bushels per acre.":? 37 ? "How many acres do you wish" 38 ? "to buy?"; 39 INPUT Q:IF Q<0 THEN GOTO 39 40 IF Q=0:GO 44 41 IF YQ<=S THEN GO 44 42 ? "You can only buy ";S/Y 43 ? "acres for now.":GO 39 44 IF Q=0 THEN GOTO 46 'Sell 45 A=A+Q:S=S-YQ:C=0:GO 54 'feed 46 CLS 47 ? "How many acres do you wish" 48 ? "to sell? "; 49 INP Q:IF Q<0 THEN GOTO 49 50 IF Q<A THEN GOTO 53 51 ? "You own only ";A;" acres" 52 GO 49 53 A=A-Q:S=S+YQ:C=0 54 CLS 55 ? "How many bushels do you" 56 ? "wish to feed your people?"; 57 INP Q:IF Q<0 THEN GO 57 58 IF Q<=S THEN GOTO 61 59 ? "You have only ";S;" bushels" 60 GO 57 61 S=S-Q:C=1:CLS 62 ? "How many acres do you wish" 63 ? "to plant with seed? "; 64 INP D 65 IF D<=A THEN GO 68 66 ? "You own only ";A;" acres." 67 GO 64 68 IF D/2<=S THEN GOTO 71 69 ? "You have only ";S;" bushels" 70 GO 64 71 IF D<(P10) THEN GOTO 75 72 ? "You only have ";P;" people" 73 ? "to tend the fields!" 74 GO 64 75 S=S-(D/2) 76 IF D=0 THEN C=(RND(5))+1 77 Y=C:H=DY:E=0 78 IF D=0 THEN C=(RND(5))+1 79 IF C=1 THEN GO 81 80 E=S/C ' RATS 81 S=S-E+H 82 C=(RND(5))+1 83 I=(C(A+S)/P/10+1) ' BABIES 84 C=Q/20 85 Q=RND(10)+1 86 IF P<C THEN D=0:GO 17 87 D=P-C: IF D>P/2 THEN GO 90 88 U=((Z-1)U+D100/P)/Z 89 P=C:T=T+D:GO 17 90 CLS 91 ? "You starved ";D;" people" 92 ? "in one year!!!" 93 ? "Due to this extreme" 94 ? "mismanagement you are fired" 95 ? "from your thrown!":CALL 8,26 # P8: PROGRAM:Hamarubi2 01 CLS 02 ? "In your 10-year term of" 03 ? "office, ";U;"% of the" 04 ? "population starved per year" 05 ? "on the average. A total of" 06 ? ;T;" people died!":L=A/P 07 ? :? "You started with 10 acre"" 08 ? "per person and ended with" 09 ? ;L;" acres per person.":? 10 IF U>33 THEN CALL 7,93 11 IF L<7 THEN CALL 7,93 12 IF U>10 THEN GOTO 18 13 IF L<9 THEN GOTO 18 14 IF U>3 THEN GOTO 22 15 IF L<10 THEN GOTO 22 16 ? :? "A FANTASTIC PERFORMANCE!"" 17 ? "You did a perfect job!":GO 26 18 ? "It was a heavy-handed" 19 ? "performance. The people" 20 ? "find you an unpleasant" 21 ? "ruler.":GO 26 22 ? "Your performance could have" 23 ? "been better, but wasn't" 24 ? "too bad at all. ";P*RND(2)/3 25 ? "people of ";P;" liked you." 26 ? @20,9;"PRESS SPACE" 27 K=KEY(1) 28 IF K=32 THEN END 29 GOTO 27 30 31 'test routine for visibility 32 COLOR 12,0:CLS 33 ? "HAMARUBI":Z=Z+1 34 ? 35 ? "I beg to report you:":? 36 ? "Year: ";Z 37 ? "People starved: ";D 38 ? "Came to the city:";I 39 P=P+1:IF Q<>6 THEN GO 42 40 P=P/2 41 ? "Plague! Half of pop died!":? 42 ? "Population: ";P 43 ? "Own acres: ";A 44 ? "Harvest bushels: ";Y; " /a" 45 ? "Rats eat bushels:";E 46 ? "Bushels in store:";S 47 C=RND(10):Y=C+17 48 ? "Land trading: ";Y; " b/a" 49 ? 50 51 'CALL 7,37 #
3.2 Horse	This is a horse racing game, ported to the CB2 micro by Dominik Kristen.	None	None	PROGRAM:Horse 01 E=500:G=100 02 CLS 03 ? @2,2;"Bet? " 04 INPUT B 05 CLS :COL 4:BOX 5,5,30,44:COL 7 06 ? @4,1;"1":? @6,1;"2" 07 ? @8,1;"3":? @10,1;"4" 08 ? @12,1;"5":? @14,1;"6" 09 'FOR I=2 TO 20:? @2,I"_":NEXT 10 ? @4,20;%6:? @5,20;%6 11 ? @6,20;%6:? @7,20;%6 12 ? @8,20;%6:? @9,20;%6 13 ? @10,20;%6:? @11,20;%6 14 ? @12,20;%6:? @13,20;%6 15 U=8:V=8:W=8:X=8:Y=8:Z=8 16 ? @16,4;!66;"3":WAIT 6 17 ? @16,4;!66;"2":WAIT 6 18 ? @16,4;!66;"1":WAIT 6 19 ? @16,4;!66;"START!!!":WAIT 6 20 ? @16,4;!66;" " 21 PLOT 8,U,1:PLOT 8,U-1,0 22 PLOT 12,V,2:PLOT 12,V-1,0 23 PLOT 16,W,3:PLOT 16,W-1,0 24 PLOT 20,X,4:PLOT 20,X-1,0 25 PLOT 24,Y,5:PLOT 24,Y-1,0 26 PLOT 28,Z,6:PLOT 28,Z-1,0 27 ? @1,1;G 28 I=RND(G)+1 29 N=RND(6)+1 30 IF N=1 THEN W=W+1 31 IF N=2 THEN X=X+1 32 IF N=3 THEN Y=Y+1 33 IF N=4 THEN Z=Z+1 34 IF (N=5)#(I=1) THEN U=U+1 35 IF N=6 THEN V=V+1 36 IF U=20 THEN O=O+1:GO 44 37 IF V=20 THEN P=P+1:GO 44 38 IF W=20 THEN Q=Q+1: GO 44 39 IF X=20 THEN R=R+1:GO 44 40 IF Y=20 THEN S=S+1:GO 44 41 IF Z=20 THEN T=T+1:GO 44 42 WAIT 1:GOTO 21 43 44 CLS :IF G<1 THEN G=3 45 IF U=20 THEN E=E+B:GOTO 47 46 E=E-B:COL 6:FBOX 0,0,1,60 47 COL 0,6:? @0,2;"BANK: $";E 48 COL 1:FBOX 2,0,40,60:COL 7,1 49 ? @2,18;"VICTORY'S" 50 ? @4,18;"Horse 1 ";O 51 ? @5,18;"Horse 2 ";P 52 ? @6,18;"Horse 3 ";Q 53 ? @7,18;"Horse 4 ";R 54 ? @8,18;"Horse 5 ";S 55 ? @9,18;"Horse 6 ";T 56 ? @12,1;"1....Horse Food" 57 ? @14,1;"2....Training" 58 ? @16,1;"3....NEXT RACE" 59 WAIT 2:A=KEY(1) 60 IF A=49 THEN GOTO 63 61 IF A=50 THEN GOTO 67 62 IF A=51 THEN COL 7,0:GOTO 2 63 CLS 64 ? @2,2;"How much for food? " 65 ? @4,2;"1... 50$" 66 ? @6,2;"2...100$" 67 ? @8,2;"3...250$" 68 WAIT 2:F=KEY(1) 69 IF F=49:G=G-5:E=E-25:GO 44 70 IF F=50:G=G-10:E=E-100:GO 44 71 IF F=51:G=G-25:E=E-250:GO 44 72 GOTO 63 73 74 75 CLS 76 ? @2,2;"How much for training?" 77 INPUT T:IF T>E THEN GOTO 67 78 H=T/30*E/1000:GOTO 44 #
3.3 Lunar	This is a text mode lunar lander game written by Dominik Kristen.	None	None	PROGRAM:Lunar 01 CLS 02 H=2000 03 R=6000 04 GOTO 20 05 ? @1,0;"THRUST (0-99)" 06 INPUT F 07 ? @1,0;"TIME (1-6) " 08 INPUT T 09 CLS 10 IF FT>R/10 THEN F=R/(10T) 11 R=R-FT10 12 A=F-32 13 H=AT2+VT+H 14 V=2AT+V 15 16 17 18 19 20 '? "LUNAR" 21 IF H<=0 THEN H=0 22 ? @6,2;"SPEED ";V 23 ? @7,2;"DIST ";H 24 ? @8,2;"FUEL ";R 25 ? @(H<2000)(20-H/100),18;"XX" 26 27 IF H>0 THEN GOTO 5 28 ? @10,2;"SCORE=";100+V #

2 Networked Games

Name	Description	Controls	Requirements	Code/Download	Screenshot

3 Applications

Name	Description	Controls	Requirements	Code/Download	Screenshot
3.1 Submenus	Submenus is an example of how tabbed menus, submenus and screens can be created on the CB2. Within each screen a separate function of yours could be implemented. The menus and submenus names can be changed according to your needs.	ESC, F1, F2, F3 and F4 keys	None	PROGRAM:Submenus 01 FBOX 0,0,45,59,8 02 POS 9,8:PRINT "ESC or F1-F4" 03 'EXIT Menu 1Menu 2Menu 3Menu 40 04 A=0:A=MENU(3) 05 IF A=1 PRINT "Bye!":WAIT 10:END 06 IF A=2 NOTE 103:GOTO 10 07 IF A=3 NOTE 109:GOTO 30 08 IF A=4 NOTE 116:GOTO 50 09 IF A=5 NOTE 120:GOTO 70 10 'BACK a b c d 0 11 B=0:B=MENU(10) 12 13 14 IF B=2 BOX 0,0,43,59,6:NOTE 126 15 IF B=3 BOX 0,0,43,59,4:NOTE 126 16 IF B=4 BOX 0,0,43,59,1:NOTE 126 17 IF B=5 BOX 0,0,43,59,3:NOTE 126 18 IF B=1 NOTE 80:GOTO 1 19 20 21 22 23 24 25 26 27 28 29 GOTO 11 30 'BACK e f g h 0 31 C=0:C=MENU(30) 32 33 IF C=2 BOX 0,0,43,59,6:NOTE 126 34 IF C=3 BOX 0,0,43,59,4:NOTE 126 35 IF C=4 BOX 0,0,43,59,1:NOTE 126 36 IF C=5 BOX 0,0,43,59,3:NOTE 126 37 IF C=1 NOTE 80:GOTO 1 38 39 40 41 42 43 44 45 46 47 48 49 GOTO 31 50 'BACK i j k l 0 51 D=0:D=MENU(50) 52 53 IF D=2 BOX 0,0,43,59,6:NOTE 126 54 IF D=3 BOX 0,0,43,59,4:NOTE 126 55 IF D=4 BOX 0,0,43,59,1:NOTE 126 56 IF D=5 BOX 0,0,43,59,3:NOTE 126 57 IF D=1 NOTE 80:GOTO 1 58 59 60 61 62 63 64 65 66 67 68 69 GOTO 51 70 'BACK m n o p 0 71 E=0:E=MENU(70) 72 73 IF E=2 BOX 0,0,43,59,6:NOTE 126 74 IF E=3 BOX 0,0,43,59,4:NOTE 126 75 IF E=4 BOX 0,0,43,59,1:NOTE 126 76 IF E=5 BOX 0,0,43,59,3:NOTE 126 77 IF E=1 NOTE 80:GOTO 1 78 79 80 81 82 83 84 85 86 87 88 89 90 GOTO 71 #
3.2 Charset	It prints out the full charset.	None	None	PROGRAM 4:Charset 01 DATA 0,"0123456789ABCDEF" 02 CLS :COLOR 6:BOX 3,13,36,46 03 FOR Y=0 TO 15:? @Y+2,5;%AR(Y) 04 FOR X=0 TO 15:? @0,X+7;%AR(X) 05 COLOR 7,1 06 IF (X%2)=(Y%2) THEN COLOR 5,0 07 C=16*Y+X 08 ? @Y+2,X+7;%C;:COLOR 6,0 09 NEXT :NEXT #
3.3 SinusCosinus	It prints out sine and cosine in graphic mode 2.	None	None	PROGRAM:SinusCosinus 01 CLS :VMODE 2:COLOR 1 02 DRAW 35,0,35,119,3 03 PLOT 35,0 04 FOR X=0 TO 119 05 W=3X:V=SIN(W)/10 06 DRAWTO 35-V,X 07 NEXT 08 ? @65,0;"Sinus" 09 PLOT 10,0:COLOR 2 10 FOR X=0 TO 119 11 W=3X:V=COS(W)/10 12 DRAWTO 35-V,X 13 NEXT 14 ? @65,50;"Cosinus" 15 Z=KEY(1) #
3.4 Face	It prints out a happy face in graphic mode 2.	None	None	PROGRAM:Face 01 VM 2:PAL 3,6 02 FCIRCLE 38,40,36,36,3 03 FOR K=25 TO 30 04 ARC 38,40,K,30,90,270,1:NEXT 05 FCIRCLE 26,20,8,8,2 06 FCIRCLE 26,60,8,8,2 07 FCIRCLE 44,40,12,8,1 08 FCIRCLE 28,21,4,4,0 09 FCIRCLE 28,59,4,4,0 10 GO 10 #
3.5 Marquee	It prints out a scrolling marquee.	None	None	PROGRAM:Marquee 01 DA 0,0,-1,-1,1,10 02 DA 5,"xxxxxxxxxx" 03 DA 15,$17,$17,$17,$17,$17 04 DA 20,$17,$17,$17,$17,$17 05 DA 50,"Das ist ein lustiger" 06 DA 70," Test --- Das ist ein" 07 FOR E=50 TO 79 08 ACOPY E,5,10 09 SPRITE 0,10,10 10 SYNC 4 11 NEXT 12 GOTO 7 #
3.6 Tilemode	This little program shows the usage of the Tilemode. By means of the cursor keys the visible cutout in the 32x32 tiles large field can be scrolled.	Cursor keys	Tilemode library (from firmware package v1.42) loaded at any position P1-P8	PROGRAM:Tilemode 01 LFIND L,144:IF L> 0 GOTO 4 02 PRINT "NO TILE-DRIVER" 03 END 04 VM 7:BORDER 1:? "Tile-Mode" 05 VPOKE 0,0:VPOKE 1,0 06 CALL L,14,0,1:CALL L,15,0,1,5 07 CALL L,14,1,4:CALL L,15,1,11,6 08 CALL L,14,2,1:CALL L,15,2,2,2 09 CALL L,14,3,1:CALL L,15,3,2,6 10 CALL L,14,4,1:CALL L,15,4,2,0 11 CALL L,14,5,1:CALL L,15,5,2,4 12 CALL L,25,0,4 ':end init 13 CA L,26,0,2,1:CA L,27,0,13,3,1,1 14 CA L,26,1,3,1:CA L,27,1,25,5,1,1 15 CA L,26,2,4,1:CA L,27,2,37,7,1,1 16 CA L,26,3,5,1:CA L,27,3,49,9,1,1 17 VPOKE 73,1: VP 87,1:CA L,32 18 E=E+1:IF E<2 GOTO 21 19 C=(VPEEK(0)+KEY(7)) & 255 20 D=(VPEEK(1)-KEY(6)) & 255:E=0 21 VPOKE 0,C:VPOKE 1,D 22 CALL L,35:FOR I=0 TO 3:K=I*16 23 IF AR(K+1)=120-I DA K+11,255 24 IF AR(K+1)=I DA K+11,1 25 IF AR(K)=96-I DA K+10,255 26 IF AR(K)=I DA K+10,1 27 NEXT :? @1,0;"Y=";C;" " 28 ? @1,10;"X=";D;" " 29 GOTO 18 #
3.7 CB2Matrix	CB2Matrix is a screen saver of random characters and colors. If "The Matrix" has been written for the CB2 micro, it would probably look like this.	None	None	PROGRAM:CB2Matrix 01 E=RND(12)+RND(11) 02 F=RND(16)+RND(15) 03 COLOR RND(16):POS E,F 04 PRINT %RND(255); 05 POS RND(22),RND(30): PRINT " "; 06 GOTO 1 #
3.8 Alarm-clock	Wolfgang's nice digital clock with alarm which sounds on the TV speaker.	None	None	PROGRAM:ALARM CLOCK 01 '******************************* 02 'ALARM-CLOCK by -ws- 20.06.20 03 'Rev. R1.0 RUNS ON P1-P8 04 '******************************* 05 DA 0 ,1,0,1,1,0,1,1,1,1,1'A 06 DA 10,1,1,1,1,1,0,0,1,1,1'B 07 DA 20,1,1,0,1,1,1,1,1,1,1'C 08 DA 30,1,0,1,1,0,1,1,0,1,1'D 09 DA 40,1,0,1,0,0,0,1,0,1,0'E 10 DA 50,1,0,0,0,1,1,1,0,1,1'F 11 DA 60,0,0,1,1,1,1,1,0,1,1'G 12 BOX 2,2,24,56,8:GOS 75:GO 26 13 '7-SEGMENT --------------------- 14 A=AR(0+I):B=AR(10+I):C=AR(20+I) 15 D=AR(30+I):E=AR(40+I):F=AR(50+I) 16 G=AR(60+I) 17 IF A=1:DR 6,2+J,6,4+J,Z 18 IF G=1:DR 13,2+J,13,4+J,Z 19 IF D=1:DR 20,2+J,20,4+J,Z 20 IF F=1:DR 7,1+J,12,1+J,Z 21 IF E=1:DR 14,1+J,19,1+J,Z 22 IF B=1:DR 7,5+J,12,5+J,Z 23 IF C=1:DR 14,5+J,19,5+J,Z 24 POS 5,10:? %1:POS 8,10:? %1 25 POS 5,19:? %1:POS 8,19:? %1:RET 26 'SET TIME / AL.TIME ------------ 27 COL 14,0:BOX 32,10,45,48 28 ? @17,7;"SET HOUR :" 29 ? @18,7;"SET MINUTE :" 30 ? @19,7;"AL. HOUR :" 31 ? @20,7;"AL. MINUTE :" 32 ? @21,7;"AL. SECOND :" 33 POS 17,19:INP H 34 POS 18,19:INP M 35 POS 19,19:INP V 36 POS 20,19:INP W 37 POS 21,19:INP X 38 'SET CB2-TIMER ----------------- 39 S=0:COL 12:POS 13,12:? "(S)TOP" 40 TSET 0:IF KEY(0)=115:Y=1:GO 80 41 TGET K:L=K 42 TGET K 43 IF K-L<10:GO ~L-1 44 S=S+1 45 IF S=60:M=M+1:S=0 46 IF M=60:H=H+1:M=0:S=0 47 IF H=24:H=0:M=0:S=0 48 'READ DATA---------------------- 49 COL 0,0:? @14,9;!2;H; 50 ? @14,13;!2;M;:? @14,17;!2;S; 51 GCH N,14,9:GCH O,14,10 52 GCH P,14,13:GCH Q,14,14 53 GCH R,14,17:GCH T,14,18 54 'DISPLAY IF CHANGE ------------- 55 IF N<>AR(80):J=4:GOS 72 56 IF O<>AR(81):J=12:GOS 72 57 IF P<>AR(82):J=22:GOS 72 58 IF Q<>AR(83):J=30:GOS 72 59 IF R<>AR(84):J=40:GOS 72 60 IF T<>AR(85):J=48:GOS 72 61 DA 80,N:DA 81,O:DA 82,P 62 DA 83,Q:DA 84,R:DA 85,T 63 'UPDATE 7-SEGMENT DISPLAY ------ 64 Z=12:J=4:I=N-48:GOS 13 65 J=12:I=O-48:GOS 13 66 J=22:I=P-48:GOS 13 67 J=30:I=Q-48:GOS 13 68 J=40:I=R-48:GOS 13 69 J=48:I=T-48:GOS 13 70 IF (H=V)&(M=W)&(S=X):GO 80 71 GO 40 72 'DELETE PREVIOUS DIGIT --------- 73 A=1:B=1:C=1:D=1:E=1:F=1:G=1:Z=0 74 COL 12,0:GOS 17:RET 75 'INITIALIZE -------------------- 76 A=1:B=1:C=1:D=1:E=1:F=1:G=1:Z=12 77 COL 12,0:J=4:GOS 14:J=12:GOS 14 78 J=22:GOS 14:J=30:GOS 14 79 J=40:GOS 14:J=48:GOS 14:RET 80 'LEAVE APP --------------------- 81 'A port control can be installed 82 'in this section ! (OUT...BIT) 83 '------------------------------- 84 COL 0,10 85 POS 14,9:? "PRESS ESCAPE" 86 IF Y=1:GOS ~L+3:GO ~L-2 87 FOR I=1 TO 5:NO 56:WAIT 1:NO 56 88 NEXT :WAIT 5:GOS ~L+1:GO ~L-2 89 T=KEY(0):IF T=237:END 90 RET # Download zip file
3.9 Charset 2	This application has been written by Franko (Walker Computing). It prints out the charset with their corresponding codes.	ENTER	None	PROGRAM:Char Set 01 A=0:B=0:C=0 02 FOR F=0 TO 255 03 ? @A,B; F;" ";%F 04 B=B+7 05 IF B=28: B=0:A=A+2 06 IF A=20 GOS 8 07 NEXT 08 REP :UNT KEY(0)=0 09 IF KEY(0)=237 END 10 IF A=8 :C=1 11 CLS :A=0:B=0 12 WAIT 5 13 IF C=1 GO 1 14 RET #
4.0 Develop	This application is written by KOS. It displays the colors and their codes, the characters and their codes (keep pressing F2 for more characters) and generates random dithering colors (extended colors) and their codes. It is useful during programs development. It uses a menu-driven approach.	F1-F4 and ESC keys.	None	PROGRAM:Develop 01 FBOX 0,0,45,59,0 02 POS 9,8:PRINT "ESC or F1-F4" 03 'EXIT ColorsChars DiCols 0 04 A=0:A=MENU(3) 05 IF A=1 END 06 IF A=2 NOTE 103:GOTO 10 07 IF A=3 NOTE 109:WAIT 3:GOTO 46 08 IF A=4 NOTE 116:GOTO 72 09 IF A=5 NOTE 120:GOTO 1 10 CLS :? "":COL 15 11 ? " Colors Palette" 12 ? " --------------" 13 ? "":COL 7:? " Col 0: "; 14 COL 0:? %15; 15 COL 7:? " Col 8: "; 16 COL 8:? %15 17 ? "":COL 7:? " Col 1: "; 18 COL 1:? %15; 19 COL 7:? " Col 9: "; 20 COL 9:? %15 21 ? "":COL 7:? " Col 2: "; 22 COL 2:? %15; 23 COL 7:? " Col 10:"; 24 COL 10:? %15 25 ? "":COL 7:? " Col 3: "; 26 COL 3:? %15; 27 COL 7:? " Col 11:"; 28 COL 11:? %15 29 ? "":COL 7:? " Col 4: "; 30 COL 4:? %15; 31 COL 7:? " Col 12:"; 32 COL 12:? %15 33 ? "":COL 7:? " Col 5: "; 34 COL 5:? %15; 35 COL 7:? " Col 13:"; 36 COL 13:? %15 37 ? "":COL 7:? " Col 6: "; 38 COL 6:? %15; 39 COL 7:? " Col 14:"; 40 COL 14:? %15 41 ? "":COL 7:? " Col 7: "; 42 COL 7:? %15; 43 COL 7:? " Col 15:"; 44 COL 15:? %15 45 GOTO 4 46 47 CLS 48 COL 7:G=0:H=0:I=0 49 FOR J=0 TO 255 50 ? @G,H; J;" ";%J 51 H=H+7 52 IF H=28: H=0:G=G+2 53 COL 7,2:? @22,0;"EXIT "; 54 COL 0,6:? @22,6;"Colors"; 55 COL 0,4:? @22,12;"Chars "; 56 COL 7,1:? @22,18;"DiCols"; 57 COL 7,3:? @22,24;" "; 58 COL 15,0:? @20,1;"Characters"; 59 COL 15,0:? @21,1;"----------"; 60 ? @20,12;"(F2 for more)":COL 7,0 61 IF G=20 :GOS 63 62 NEXT 63 REP :UNT KEY(0)=0 64 IF KEY(0)=237 END 65 IF KEY(0)=241 NOTE 103:GOTO 10 66 IF KEY(0)=243 NOTE 116:GOTO 72 67 IF G=8 :I=1 68 G=0:H=0:CLS 69 WAIT 5 70 IF I=1 GO 46 71 RET 72 CLS :? "":COL 15 73 ? " Dithering Colors Palette" 74 ? " ------------------------" 75 FOR Y=3 TO 18 76 S=RND(15):T=RND(15) 77 COL S,T:? @Y,0;%138; 78 IF S=0 GO 80 79 COL S,0:? @Y,2;"FG:"S;:GO 81 80 COL 7,0:? @Y,2;"FG:"S; 81 IF T=0 GO 83 82 COL T,0:? @Y,9;"BG:"T;:GO 84 83 COL 7,0:? @Y,9;"BG:"T; 84 NEXT :COL 7,0 85 ? @Y+1,0;"F3 for more colors" 86 ? @Y+1,21;"Char: 138" 87 COL 7,0:GOTO 4 #
4.1 CB2demos	A collection of demos written by Saul. There are 9 demos in total. Five on VMODE 1 and four on VMODE 0. You can select an endless loop demo secuence with CTRL + ESC on the selection menu. You can exit this mode with CTRL+C. You can go back to menu (or skip the current demo on endless loop secuence) by pressing a key. In 'Lines+' demo, you must hold a key until the detection works (waiting for a 'FOR...NEXT' loop to finish, because you can't put a goto inside a 'for...next' loop)	None	None	PROGRAM:CB2Demos 01 COL 15,0:VM 0:GO 87 'rays 02 VM 1:A=RND(~Y):IF M=1:C=4:D=1 03 B=RND(~X):Y=RND(~Y):X=RND(~X)'gr 04 DR A,B,Y,X,0:A=Y:B=X:O=4 05 Y=RND(59)+RND(58) 06 X=RND(85)+RND(84) 07 IF M>1:C=RND(15)+1:D=2:O=1 'colr 08 DTO Y,X,C:SYNC D:GOS 9:R=4:GO 84 09 NO (RND(32)+31)O,RND(16):RET 10 Y=RND(12)+RND(11):LIM Y,2,19 11 X=RND(16)+RND(15):LIM X,2,27:RET 12 GOS 10:F=RND(256) 'mtrx_rld 13 O=3:? @RND(22),RND(30)" "; 14 IF E<26:COL 4:? @Y,X;%F; 15 E=E+1:IF E>25 COL 12:? @Y,X;%F; 16 IF E=30 GOS 9:GOS ~L+2:E=0 17 R=12:GO 84 'mtrxrld_loop 18 SCROLL 0:COL 7:? @Y,X;%F;:RET 19 GOS 10:? @RND(22),RND(30)" ";'c 20 O=2:COL RND(16)? @Y,X;%RND(256); 21 G=G+1:IF G=30 GOS 9:G=0:SCROLL 0 22 R=~L-3:GO 84 'cmtrx_loop 23 VM 1 'radiation 24 NO (RND(4)64)-1,RND(13):GOS 27 25 PL Y,X,4:GOS 27:PL Y,X,0:R=~L-1 26 R=~L-2:GO 84 'radiat_loop 27 Y=RND(59)+RND(58) 28 X=RND(85)+RND(84):RET 29 VID 0:COL 15,:A=0:VM 1:W=W/2'wn 30 FOR I=0TO 2435:VP I,RND(256)NEXT 31 B=0:D=0:I=0:Q=2415:VID 1:TSET 0 32 IF B>20:D=RND(1208)+RND(1207) 33 IF B+D>Q:D=0 34 IF B>20:B=0:I=I+30:IF B+I>Q:I=0 35 A=A+1:IF A>20NO 191,9:A=0:SYNC 1 36 VP D+B,RND(256):VP I+B,RND(256) 37 VP RND(2436),RND(256) 38 B=B+1:GOS 27:PL Y,X,RND(2)15 39 R=~L-7:GO 84 'wnoise_loop 40 A=0:B=0:FOR Y=0 TO 21 'cchart 41 FOR X=1 TO 30:X=X-1 42 IF Y<16 DA 20,"20",0 43 IF Y>15 DA 20," ",0 44 COL A,B:? @Y,X;&20; 45 X=X+2:B=B+1:IF B>14:B=0 46 NEXT :A=A+1:IF A>15:A=0 47 NEXT :BO 15:R=~L+2:W=W/2 48 FOR A=1350 TO 1379:VP A,240:NEXT 49 BO 0:SYNC 1:BO 15:SYNC 1:GO 84'l 50 VM 1:A=0:V=0:N=1:C=0 'lines+ 51 W=999:R=~L:NO V,V:FOR Y=0 TO 115 52 DR Y,,115-Y,167,RND(15)+1:SYNC 1 53 A=Y:Y=Y+V:IF Y>115:Y=115 54 DR A,,115-A,167,:NEXT BO C6:A=0 55 V=V+N:NO 64,-V:FOR X=0 TO 167 56 DR 115,X,,167-X,RND(15)+1:SYNC 1 57 A=X:X=X+V:IF X>167:X=167 58 DR 115,A,,167-A,:NEXT :BO C2 59 V=V+N:IF V-1<0:TSET 0:R=62:W=125 60 C=0:IF V>117:C=1:IF V>384:N=-1 61 GO 84 'lines+_loop_in_63 62 BO 6:DR ,,115,167,RND(15)+1:NO 0 63 SYNC 1:BO 1:NO 64,15:SYNC 1GO 84 64 R=66:L=0:FOR A=660TO 689:DA L,0 65 VP A,$B2:VP A+690,78:L=L+1:NEXT 66 X=RND(30):W=50:IF AR(X)=21GO 84 67 J=$AA+RND(2):A=X:COL RND(15)+1 68 FOR Y=0 TO 21:BO D:NO Y+A,12 69 SYNC 1:GCH C,Y,X:NO RND(63)2,10 70 TSET 0:IF C<>32:I=Y:Y=21:GO 75 71 ? @B,A;" ";@Y,X;%J;:I=Y:B=Y 72 BO E:SYNC 1:Y=Y+1:GCH C,Y,X 73 TSET 0:IF C<>32:I=Y:Y=21:GO 75 74 ? @B,A;" ";@Y,X;%J;:I=Y:B=Y 75 NEXT :DA X,21-I:NO 191,11:B=0 76 D=RND(16):E=RND(16):IF D=E GO ~L 77 SYNC 1:VOL 0:GO 84 'demo_mode 78 DA 1,2,12,23,29,2,19,40,50,64 79 FOR P=1 TO 9:E=0:M=P:COL 7,:VM 0 80 BO 0:TSET 0:W=500:GOS AR(P) 81 VOL 0:WAIT 3:CLS :NEXT :GO 78 82 FOR A=0 TO 57:B=57-A:NO A*B,12 83 BOX A,A,58+B,110+B,:NEXT :RET 84 K=KEY(0):IF (K<237)&(K>31)GO 82 85 TGET T:IF T>W VOL 0:WAIT Z:GO 82 86 GO R 'menu 87 W=500:Z=10:FBOX 1,1,42,58,8 88 DA 1,2,2,23,29,50,78,12,19,40,64 89 BO 9:? @9,9"ESC or F1-F4" 90 ? @11,8"+CTRL for more":COL 7,8 91 ? @1,1"2020"@1,25"mois":COL 7,0 92 M=MENU(~L+2):BO 0:TSET 0:E=0:CLS 93 VOL 15:G=0:GOS AR(M):VOL 0:GO 1 94 'GLinesCLinesRadiatWNoiseLines+1 95 'DEMOS MtrxRlColMtxCChartSlaBsh #
4.2 Xeeprom	Dominik Kristen's internal and external EEPROM viewer and writer.	None	None	PROGRAM:XEEPROM 01 CLS :BOX 3,3,36,36:G=2:F=2:Z=0 02 ? @2,2;"Choose Memory" 03 ? @4,2;"(I)ntern" 04 ? @5,2;"(E)xtern" 05 IF KEY(1)=105 THEN GOTO 8 06 IF KEY(1)=101 THEN GOTO 32 07 COLOR 7,0 08 CLS :BOX 3,3,36,36 'Intern 09 W=0:A=2:B=0 10 DATA 0," 0123456789ABCDEF" 11 FOR I=0 TO 16:? @0,I+1;%AR(I) 12 FOR Y=0 TO 16:? @Y+1,0;%AR(Y) 13 NEXT :NEXT : 14 FOR K=0 TO 15 15 FOR W=0 TO 15:X=EPEEK(W+B) 16 COL 2: ? @2,20;"ENT to clr" 17 IF X<> $FF THEN ? @A,W+2;%15 18 NEXT :A=A+1:B=B+16 19 NEXT 20 COL 14,0: ? @4,20;Z:COL 4 21 ? @G,F;%27:D=KEY(1) 22 G=G-KEY(7):F=F+KEY(6) 23 IF (KEY(7)=1)&(G>1):Z=Z-16 24 IF (KEY(7)=-1)&(G<18):Z=Z+16 25 IF (KEY(6)=1)&(F<18):Z=Z+1 26 IF (KEY(6)=-1)&(F>1):Z=Z-1 27 LIMIT G,2,17:LIMIT F,2,17 28 IF KEY(0)=234 THEN EPOKE Z,$FF 29 GOTO 7 30 31 32 COL 7,0:CLS :BOX 3,3,36,36 'Ext 33 W=0:A=2:B=0 34 DATA 0," 0123456789ABCDEF" 35 FOR I=0 TO 16:? @0,I+1;%AR(I) 36 FOR Y=0 TO 16:? @Y+1,0;%AR(Y) 37 NEXT :NEXT 38 FOR K=0 TO 15 39 FOR W=0 TO 15:X=XPEEK(W+B) 40 COL 2: ? @2,20;"ENT to clr" 41 IF X<> $FF THEN ? @A,W+2;%15 42 NEXT :A=A+1:B=B+16 43 NEXT 44 COL 14,0: ? @4,20;Z:COL 4 45 ? @G,F;%27:D=KEY(1) 46 G=G-KEY(7):F=F+KEY(6) 47 IF (KEY(7)=1)&(G>1):Z=Z-16 48 IF (KEY(7)=-1)&(G<18):Z=Z+16 49 IF (KEY(6)=1)&(F<18):Z=Z+1 50 IF (KEY(6)=-1)&(F>1):Z=Z-1 51 LIMIT G,2,17:LIMIT F,2,17 52 IF KEY(0)=234 THEN XPOKE Z,$FF 53 GOTO 32 #
4.3 Mondphasen	Dominik Kristen's Moon phases calculator.	None	None	PROGRAM:Mondphasen 01 CLS '2019 D. Kristen 02 ? @1,4;"MOON PHASES CALCULATOR" 03 ? @2,4;"----------------------" 04 PRINT 05 06 ? @4,1:INPUT "Day: ";T 07 IF (T<1)#(T>31) THEN GOTO 6 08 ? @5,1:INPUT "Month: ";M 09 IF (M<1)#(M>12) THEN GOTO 8 10 INPUT "Year: ";Y 11 J=Y-(Y/100)100 12 J=J%19 13 IF J>9 THEN J=J-19 14 J=(J11)%30 15 J=J+T+M 16 IF M<3 THEN J=J+2 17 J=J-4 18 IF Y>1999 THEN J=J-4 19 J=(J+30)%30 20 CLS 21 IF (J=14)#(J=15) THEN GOTO 26 22 IF J=0 THEN GOTO 30 23 IF Y<14 THEN GOTO 34 24 IF Y>14 THEN GOTO 40 25 26 ? @1,1;"On ";T;".";M;".";Y;" " 27 ? @2,1;"is FULL MOON!" 28 GOTO 50 29 30 ? @1,1;"On ";T;".";M;".";Y;" " 31 ? @2,1;"is NEW MOON!" 32 GOTO 50 33 34 ? @1,1;"On ";T;".";M;".";Y;" " 35 ? @2,1;"is waxing Moon." 36 ? @4,1;"Still";14-J;" Days" 37 ? @5,1;"to Full moon!" 38 GOTO 50 39 40 ? @1,1;"On ";T;".";M;".";Y;" " 41 ? @2,1;"is waning moon." 42 ? @4,1;"Still";30-J;" Days" 43 ? @5,1;"to New moon!" 44 45 46 47 48 49 50 WAIT 4 51 A=KEY(1) 52 END #
4.4 Kalender	Dominik Kristen's calendar.	None	None	PROGRAM:Kalender 01 CLS :A=0 02 INPUT "Year: ";J 03 INPUT "Month: ";M 04 CLS 05 FOR I=1899 TO J 06 IF (I%4=0) & (I%100<>0) THEN S=1 07 IF (I%4<>0) & (I%100=0) THEN S=0 08 IF S=1 THEN A=A+2 09 IF S=0 THEN A=A+1 10 S=0:NEXT 11 IF M=1 THEN A=A+0:T=31 12 IF M=2 THEN A=A+31:T=28 13 IF M=3 THEN A=A+59:T=31 14 IF M=4 THEN A=A+90:T=30 15 IF M=5 THEN A=A+120:T=31 16 IF M=6 THEN A=A+151:T=30 17 IF M=7 THEN A=A+181:T=31 18 IF M=8 THEN A=A+212:T=31 19 IF M=9 THEN A=A+243:T=30 20 IF M=10 THEN A=A+273:T=31 21 IF M=11 THEN A=A+304:T=30 22 IF M=12 THEN A=A+334:T=31 23 IF (J%4=0) & (J%100<>0) THEN S=1 24 IF (J%4<>0) & (J%100=0) THEN S=0 25 IF (S=1 & M>2) THEN A=A+1 26 IF (S=1) & (M=2) THEN T=T+1 27 X=A%7 28 29 IF X=0 THEN GOTO ~L+7 30 IF X=1 THEN GOTO ~L+8 31 IF X=2 THEN GOTO ~L+9 32 IF X=3 THEN GOTO ~L+10 33 IF X=4 THEN GOTO ~L+11 34 IF X=5 THEN GOTO ~L+12 35 IF X=6 THEN GOTO ~L+13 36 ? @8,0;" Su Mo Tu We Th Fr Sa" 37 GOTO ~L+13 38 ? @8,0;" Mo Tu We Th Fr Sa Su" 39 GOTO ~L+11 40 ? @8,0;" Tu We Th Fr Sa Su Mo" 41 GOTO ~L+9 42 ? @8,0;" We Th Fr Sa Su Mo Tu" 43 GOTO ~L+7 44 ? @8,0;" Th Fr Sa SU Mo Tu We" 45 GOTO ~L+5 46 ? @8,0;" Fr Sa Su Mo Tu We Th" 47 GOTO ~L+3 48 ? @8,0;" Sa Su Mo Tu We Th Fr" 49 50 PRINT :PRINT " "; 51 FOR I=1 TO 7 52 ? " ";I; 53 NEXT :PRINT 54 PRINT " "; 55 FOR I=8 TO 9 56 ? " ";I; 57 NEXT 58 PRINT ""; 59 FOR I=10 TO 14 60 ? ;I; 61 NEXT :PRINT 62 PRINT " "; 63 FOR I=15 TO 21 64 ? ;I; 65 NEXT :PRINT 66 PRINT " "; 67 FOR I=22 TO 28 68 ? ;I; 69 NEXT :PRINT 70 PRINT " "; 71 IF T=28 THEN GOTO 76 72 IF T=29 THEN ? " 29":GOTO 76 73 IF T=30 THEN ? " 29 30":GOTO 76 74 IF T=31 THEN ? " 29 30 31":GO 76 75 76 BOX 12,2,32,45 77 IF M=1:? @4,6;"January,";J 78 IF M=2:? @4,5;"February,";J 79 IF M=3:? @4,6;"March,";J 80 IF M=4:? @4,6;"April,";J 81 IF M=5:? @4,7;"May,";J 82 IF M=6:? @4,6;"June,";J 83 IF M=7:? @4,6;"July,";J 84 IF M=8:? @4,5;"August,";J 85 IF M=9:? @4,4;"September,";J 86 IF M=10:? @4,5;"October,";J 87 IF M=11:? @4,4;"November,";J 88 IF M=12:? @4,4;"December,";J 89 90 K=KEY(1) 91 END #

4 Networked Applications

Name	Description	Controls	Requirements	Code/Download	Screenshot
4.1 microBBS	microBBS is a simple Bulletin Board System. The program handles the modem auto-answer and all the communications after the establishment of the dialup connection. With microBBS callers can write their own public messages and preview the list of public messages. They can also view information about the system. The program stores the messages in the internal EEPROM of the MCU, which is limited, so keep messages short. microBBS is designed to display the information correctly aligned on the CBterm of other CB2 micro clients. On connection of a client from a PC, you may need to alter the printed messages spaces, to line up the information better on the PC terminal. If you want to run your own BBS, you may need to change the name of the BBS as well as the system information messages, to suit your needs.	None	External serial dial-up modem, connected to the RS-232 port of the CB2 micro, or external serial to ethernet adapters if it is to be accessed through internet.	PROGRAM:microBBS 01 ? #1 "ATZ":A=0:WAIT 3:GOTO 3 02 WAIT 2:PRINT #1 "ATA":A=1:GOTO 4 03 SGET C:IF C>0 GOTO 2 04 IF A=0 GOTO 3 05 WAIT 200 'wait for connection 06 FOR B=0 TO 20:SPUT 10:NEXT 07 SPUT 32,32,32,32,32,32 08 ? #1 "* PatraBBS *" 09 SPUT 10,32,32,32,32,32,32,32 10 ? #1 "(C) KOS, 2019" 11 SPUT 32,32,32,32,32 12 ? #1 "Hellas, Patra city"; 13 SPUT 10,32,32,32,32 14 ? #1 "Tel:0000-0000-000000" 15 SPUT 10,10:PRINT #1 "Menu: "; 16 ? #1 "(i) System info"; 17 SPUT 10 18 ? #1 " (v) View Messages"; 19 SPUT 10 20 ? #1 " (s) Send Message"; 21 SPUT 10 22 '? #1 " (d) Download Files" 23 SGET D:IF D=105 GOTO 29 24 IF D=115 GOTO 49 25 IF D=118 GOTO 60 26 27 28 IF D>0 GOTO 6 29 FOR B=0 TO 20:SPUT 10:NEXT 30 ? #1 " System information" 31 32 ? #1 "Software: microBBS"; 33 SPUT 10:PRINT #1 "Author : KO"; 34 ? #1 "S sv3ora@qrp.gr" 35 ? #1 "Hardware: ATMEGA644 "; 36 ? #1 "MCU,";:SPUT 10 37 ? #1 " CB2 microc"; 38 ? #1 "omputer" 39 ? #1 "Modem : Supra Express "; 40 SPUT 10 41 ? #1 " 56e PRO"; 42 SPUT 10:PRINT #1 "Speed : "; 43 ? #1 "1200 Baud (set)" 44 ? #1 "Location: "; 45 ? #1 "Hellas, Patra city"; 46 ? #1 "Since : 2019" 47 ? #1 " (any key) Back"; 48 SGET D:IF D>0 GOTO 6 49 FOR E=0 TO 10:SPUT 10:NEXT 50 ? #1 " Write short public MSG"; 51 ? #1 " (2 lines max!)" 52 ? #1 " (#) Save MSG" 53 I=0:FOR F=0 TO 1999 54 G=EPEEK(F) 55 IF G=255 :I=F:GOTO 57 56 NEXT :? #1 "EOF":WAIT 20:GOTO 6 57 SGET H:IF H=35:EPOKE I,H:GOTO 6 58 IF H=8:I=I-1:EPOKE I,255:GOTO 57 59 EPOKE I,H:SPUT H:I=I+1:GOTO 57 60 FOR E=0 TO 20:SPUT 10:NEXT 61 J=100 62 ? #1 " Read Messages" 63 ? #1 " (any key) Next page"; 64 SPUT 10:? #1 " (x) Exit" 65 SPUT 10:FOR K=0 TO 1999 66 L=EPEEK(K) 67 IF L=35 :? #1 "" 68 IF L=255:? #1 "End of messages" 69 IF L=255:GOTO 72 70 SPUT L:IF K=J:GOTO 72 71 NEXT 72 J=J+100:SGET M:IF M=110:GOTO 74 73 IF M=120:GOTO 6 74 FOR E=0 TO 20:SPUT 10:NEXT 75 ? #1 " Read Messages" 76 ? #1 " (any key) Next page"; 77 SPUT 10:? #1 " (x) Exit" 78 NEXT #
4.2 Colterm	Colterm is a terminal communication program that allows the CB2 micro to communicate through the serial port with another CB2 micro that runs a server program compatible with Colterm, written by the users. The advantage of Colterm compared to the CBterm mini, is that Colterm supports transfer of color text and pseudographics as well as sound. The disadvantage is that the data rate can be slower, depended on how you refresh the page, since additional information is being transfered along with every character. Colterm uses a proprietary communication protocol so it is not compatible to "ordinary" terminals. This means that you cannot use it to communicate with a PC or other device or control smart modems etc. For that reason you use CBterm instead. The Colterm client must run on a CB2 micro and the server must be a CB2 micro that is running a server program compatible with Colterm. This server program, be it a game, application or whatever, is supposed to be written by you and must be written to be compatible with the Colterm communication protocol.	Left, Right, Up, Down arrows, ~. Also, [, ], ENTER and any character. See the Colterm documentation.	The CB2 micro that runs the Colterm, must be connected through the RS-232 port, to another CB2 micro that runs a compatible server program such as ColTermSRV	PROGRAM:Colterm v1 01 BAUD 0 02 03 04 05 'GOTO 40 06 07 08 09 SYNC 10:SPUT 234:GOTO 12 10 11 12 SGET U 13 IF U=91 THEN GOTO 20 14 IF U=234 :GOTO 40 15 'IF u=10 :PRINT "":GOTO 12 16 'IF u=93 :GOTO 35 17 'PRINT %u;:GOTO 12 18 GOTO 12 19 20 SGET Y:IF Y=234 THEN GOTO 40 21 IF Y=93 THEN GOTO 34 22 SGET X:IF X=234 THEN GOTO 40 23 IF X=93 THEN GOTO 34 24 SGET F:IF F=234 THEN GOTO 40 25 IF F=93 THEN GOTO 34 26 SGET B:IF B=234 THEN GOTO 40 27 IF B=93 THEN GOTO 34 28 SGET C:IF C=234 THEN GOTO 40 29 IF C=93 THEN GOTO 34 30 POS Y,X 'Handle chaphic 31 COLOR F,B 32 PRINT %C; 33 GOTO 20 34 SGET S:IF S=234 :GOTO 40 35 NOTE S:GOTO 34 36 37 38 39 'Clear the text line 40 COLOR 7,0:POS 22,0 41 FOR V=0 TO 28 42 PRINT " ";:NEXT 43 POS 22,0:R=0 44 Q=KEY(1) :SYNC 8 45 IF Q=234:SYNC 2:SPUT 234:GOTO 10 46 IF Q=236 :GOTO 64 47 IF Q=126 :SPUT 126,234:GOTO 10 48 IF Q=226 :SPUT 226,234:GOTO 10 49 IF Q=227 :SPUT 227,234:GOTO 10 50 IF Q=228 :SPUT 228,234:GOTO 10 51 IF Q=229 :SPUT 229,234:GOTO 10 52 SYNC 2:SPUT Q 53 PRINT %Q;:R=R+1 54 IF R=29 :GOTO 57 55 GOTO 44 56 'Handle end of text line 57 COLOR 7,0 58 POS 22,0 59 FOR V=0 TO 28 60 PRINT " ";:NEXT 61 POS 22,0:R=0 62 GOTO 53 63 'Handle backspase 64 IF R>0 :SYNC 2:SPUT 8 65 IF R>0 :R=R-1:POS 22,R 66 IF R>0 :PRINT " ";POS 22,R 67 IF R=0 :POS 22,0:? " ";:POS 22,0 68 69 GOTO 44 #
4.3 ColtermSRV	This is just a test server program to test the Colterm communication. This server just sends out to the Colterm client a page of random characters, then waits for user input, then repeats the process.	None	The CB2 micro that runs the ColTermSRV, must be connected through the RS-232 port, to another CB2 micro that runs the Colterm	PROGRAM:ColTermSRV1 01 BAUD 0 02 GOTO 10 03 04 05 06 07 08 09 10 11 12 SGET S 13 IF S=226 THEN GOTO 74 14 IF S=234 :GOTO 40 15 IF S=227 THEN GOTO 75 16 IF S=228 THEN GOTO 76 17 IF S=229 THEN GOTO 77 18 IF S=126 THEN GOTO 78 19 GOTO 12 20 SGET Y:IF Y=234 THEN GOTO 40 21 SGET X:IF X=234 THEN GOTO 40 22 SGET F:IF F=234 THEN GOTO 40 23 SGET B:IF B=234 THEN GOTO 40 24 SGET C:IF C=234 THEN GOTO 40 25 26 27 28 29 30 POS Y,X 31 COLOR F,B 32 PRINT %C; 33 GOTO 20 34 35 36 37 38 39 40 'SPUT 10:SYNC 2 41 SPUT 91 42 FOR Y=0 TO 21 43 FOR X=0 TO 29 44 F=RND(15) 45 B=RND(15) 46 47 SYNC 1:SPUT Y,X,F,B 48 'SPUT X 49 'SPUT F 50 'SPUT B 51 52 O=RND(255) 53 IF O=91 THEN GOTO 52 54 IF O=234 THEN GOTO 52 55 IF O=93 THEN GOTO 52 56 SPUT O 57 58 POS Y,X 59 COLOR F,B 60 PRINT %O; 61 NEXT :NEXT 62 63 SYNC 2:SPUT 93 64 FOR Z=0 TO 3 65 S=RND(255) 66 SYNC 10:SPUT S 67 NEXT 68 69 SYNC 1 70 SPUT 234 71 GOTO 12 72 73 74 PRINT "left":GOTO 69 75 PRINT "right":GOTO 69 76 PRINT "top":GOTO 69 77 PRINT "bottom":GOTO 69 78 PRINT "~":GOTO 69 #
4.4 microBBS2	microBBS2 is a simple Bulletin Board System. This is the second version of the microBBS, which does not care about the modem connected to it. With microBBS2 callers can write their own public messages, preview the list of public messages, play games and view information about the system. The program stores the messages in the internal EEPROM of the MCU, which is limited, so keep messages short. microBBS2 is designed to display the information correctly aligned on the teraterm or other compatible terminal that auto detects line end characters. If you want to run your own BBS, you may need to change the name of the BBS as well as the system information messages, to suit your needs.	None.	Needs 2 program positions, P1 (for the BBS) and P2 (for the games). Users connected to the BBS, need to press ESC before they can receive data. Edit the last lines of P1 to add your own list of games and P2 to create your own games.	P1: PROGRAM:microBBS2 01 SGET D:IF D<>27 GO 1 02 FOR B=0 TO 20:SPUT 10:NEXT 03 SPUT 32,32,32,32,32 04 ? #1 "* CB2 micro BBS " 05 SPUT 10,32,32,32,32,32 06 ? #1 "http://cb2.qrp.gr" 07 SPUT 32,32,32,32,32 08 ? #1 "Greece, Patra city"; 09 SPUT 10,32,32 10 ? #1 "Dial-Up:0000-0000-000000" 11 SPUT 10:? #1 "Menu:"; 12 SPUT 10:? #1 " (i) Info"; 13 SPUT 10:? #1 " (v) View MSG"; 14 SPUT 10:? #1 " (s) Send MSG"; 15 SPUT 10:? #1 " (g) Games" 16 17 SGET D:IF D=27 GO 2 'home 18 IF D=105 GO 25 'info 19 IF D=118 GO 58 'view msg 20 IF D=115 GO 44 'send msg 21 IF D=103 GO 71 'games 22 GO 17 23 24 25 FOR B=0 TO 20:SPUT 10:NEXT 26 ? #1 " System info ":SPUT 10 27 ? #1 "Software: microBBS V2" 28 ? #1 "Author : KOS, "; 29 ? #1 "sv3ora@email.qrp.gr" 30 ? #1 "Hardware: CB2 micro, "; 31 ? #1 "http://cb2.qrp.gr" 32 ? #1 "Modem : CB2 modem " 33 ? #1 "Params : 1200 Baud, "; 34 ? #1 "8-N-2" 35 ? #1 "Location: "; 36 ? #1 "Greece, Patra city"; 37 SPUT 10 38 ? #1 "Since : 2021" 39 SPUT 10 40 ? #1 " (ESC) EXIT"; 41 SGET D:IF D=27 GO 2 42 GO 41 43 44 FOR E=0 TO 10:SPUT 10:NEXT 45 ? #1 " Send public MSG " 46 ? #1 " (1-2 lines only!)" 47 SPUT 10:? #1 " (ESC) EXIT" 48 ? #1 " (ENTER) Save & EXIT" 49 I=0:FOR F=0 TO 1999 50 G=EPEEK(F):IF G=255 :I=F:GO 53 51 NEXT :? #1 "EOF":WAIT 20:GO 2 52 53 SGET H:IF H=10:EPOKE I,234:GO 2 54 IF H=27:EPOKE I,234:GO 2 55 IF H=8:I=I-1:EPOKE I,255 56 IF H=8:SPUT 8:GO 53 57 EPOKE I,H:SPUT H:I=I+1:GO 53 58 FOR E=0 TO 20:SPUT 10:NEXT 59 ? #1 " Read messages " 60 SPUT 10:? #1 " (ESC) EXIT" 61 SPUT 10:FOR K=0 TO 1999 62 L=EPEEK(K) 63 IF L=234 :? #1 "" 64 IF L=234 :? #1 "---------":GO 67 65 IF L=255:? #1 "End of MSG":GO 68 66 SPUT L 67 NEXT 68 SPUT 10:? #1 " (ESC) Exit" 69 SGET M:IF M=27:GO 2 70 GO 69 71 FOR N=0 TO 10:SPUT 10:NEXT 72 ? #1 " Games *":SPUT 10 73 ? #1 " (1) Guess number" 74 ? #1 " (2) Game 2" 75 SPUT 10:? #1 " (ESC) EXIT" 76 SGET O:IF O=27:GO 2 77 IF O=49:CALL 2,1'Game 1 78 IF O=50:CALL 2,5'Game 2 79 GO 2 # P2: PROGRAM:bbsg1 01 ? #1 "testing p2 l1" 02 'ESC pressed then go 3 03 RETURN 04 05 ? #1 "testing p2 l5" 06 'ESC pressed then go 7 07 RETURN #
4.5 printSRV	printSRV is a tiny printer server program. It converts serial data from the LAN, to parallel, ready for printing on an LPT-port printer, where the CB2 micro that is running the printSRV is connected to. Simply, connect a CB2 micro to your printer and whatever data is comming in to its serial port, will be printed to the printer. It is useful on printers that do not have an RS-232 port, but only a parallel (LPT). It works great on user-typed text speeds, but on higher data speeds, if your printer prints garbage, you must set the sender terminal program (eg. PC) to include a 10ms delay after each character sent. See how you can connect a serial printer to the CB2 micro LAN.	None.	It needs at least one CB2 micro to act as a client and a second CB2 micro (with the printer connector extension) connected to the LPT of a printer, to act as a server. printSRV runs on the server CB2 micro, which is configured to auto-run the printSRV at boot time (config page).	PROGRAM:printSRV 01 SGET R:? #2 ""%R;:GO 1 #
4.6 AsciiTERM	AsciiTERM is a small serial terminal program, implemented in BASIC, with printer support. Simply, connect a CB2 micro to your printer and whatever you type in the CB2 micro, will be printed on the printer and the screen and also sent to the RS-232 port. Whatever data is comming from the RS-232 port, will be printed to the printer and displayed on the screen. It can be useful as an ascii printer only serial terminal (TTY-like). It works great on user-typed text speeds, but on higher data speeds, if your printer prints garbage, you must set the sender terminal program (eg. PC) to include a 10ms or greater delay after each character sent. The serial terminal program works with TR/RX sessions. At the start, the program listens for data. When you want to transmit data you press ESC. When you want to receive data again, you press ENTER. When the terminal is in RX mode, the first ESC pressed, turns terminal to TX mode (this first ESC, is not sent to RS232). All next ESC pressed, are sent to RS232. All ESC, first and others, enter new line in screen and printer (replaces printer and screen new line if one wants to inset a new line). Pressing ENTER goes to RX mode. ENTER is sent to RS232. After each ENTER, some data has to be received before you can press ESC again. On BBSes, when issuing single letter commands, one has to press the letter and then quickly ENTER, to switch terminal to RX mode again.	ESC (send data) and ENTER (receive data).	It needs the CB2 micro to be connected with a parallel port printer (with the printer connector extension).	PROGRAM:AsciiTERM 01 ? #2 "" 02 P=0 :E=0 03 04 05 SGET R 06 IF R=13 :? #2 "" :P=0 07 IF R=13 :? #0 "" 08 IF R=13 :SYNC 7:GO 5 09 10 ? #2 ""%R; 11 ? #0 ""%R; 12 P=P+1 13 IF P=80 :? #2 "" :P=0 14 15 IF KEY(0)=0 :GO 5 16 17 18 19 20 K=KEY(0) 21 IF K=0 :GO 20 22 23 IF K=234 :? #2 "" :P=0 24 IF K=234 :? #0 "" 25 IF K=234 :? #1 "" 26 IF K=234 :SYNC 7:GO 2 27 28 IF K=237 :? #0 "" 29 IF K=237 :? #2 "" :P=0 30 IF K=237 :GO 50 31 32 33 34 ? #2 ""%K; 35 ? #0 ""%K; 36 ? #1 ""%K; 37 P=P+1 38 39 IF P=80 :? #2 "" :P=0 40 41 SYNC 7:GO 20 42 43 44 45 46 47 48 49 50 IF E=0 :SYNC 7:E=1:GO 20 51 IF E=1 :SPUT 27:SYNC 7:GO 20 #
4.7 microBBS3	microBBS3 is a simple Bulletin Board System. This is the third version of the microBBS, which does not care about the modem connected to it and it uses the external EEPROM extension to store messages, instead of the internal MCU memory. Some bugs from the previous versions have been corrected too. With microBBS3 callers can write their own public messages, preview the list of public messages, play games and view information about the system. If you want to run your own BBS, you may need to change the name of the BBS as well as the system information messages, to suit your needs.	None.	Needs 2 program positions, P1 (for the BBS) and P2 (for the games). A sample game is provided on P2. Users connected to the BBS, need to press ESC before they can receive data. Edit the last lines of P1 to add your own list of games and P2 to create your own games. It also needs a preformatted external EEPROM. You can use the small Ftool program provided, to fill in a 24C512 EEPROM with FF (255) that the microBBS requires, prior to using it.	P1: PROGRAM:microBBS3 01 SGET D:IF D<>27 GO 1 02 FOR B=0 TO 20:SPUT 10:NEXT 03 ? #1 " -------------------" 04 ? #1 " * CB2 micro BBS * " 05 ? #1 " -------------------" 06 ? #1 " http://cb2.qrp.gr" 07 ? #1 " Greece, Patra city" 08 SPUT 10 09 ? #1 " Telnet: cb2.qrp.gr" 10 ? #1 "Dial-Up:0000-0000-000000" 11 SPUT 10:? #1 "Menu:" 12 ? #1 " (i) Info" 13 ? #1 " (v) View MSG" 14 ? #1 " (s) Send MSG" 15 ? #1 " (g) Games" 16 17 SGET D:IF D=27 GO 2 'home 18 IF D=105 GO 25 'info 19 IF D=118 GO 58 'view msg 20 IF D=115 GO 44 'send msg 21 IF D=103 GO 80 'games 22 GO 17 23 24 25 FOR B=0 TO 20:SPUT 10:NEXT 26 ? #1 " * System info ":SPUT 10 27 ? #1 "Software: microBBS V3" 28 ? #1 "Author : KOS, "; 29 ? #1 "sv3ora@email.qrp.gr" 30 ? #1 "Hardware: CB2 micro, "; 31 ? #1 "http://cb2.qrp.gr" 32 ? #1 "Modem : CB2 modem " 33 ? #1 "Params : 1200 Baud, "; 34 ? #1 "8-N-2" 35 ? #1 "Telnet : cb2.qrp.gr " 36 ? #1 "Location: "; 37 ? #1 "Greece, Patra city" 38 ? #1 "Since : 2021" 39 SPUT 10 40 ? #1 " (ESC) Exit" 41 SGET D:IF D=27 GO 2 42 GO 41 43 44 FOR E=0 TO 10:SPUT 10:NEXT 45 ? #1 " Send public MSG " 46 ? #1 "(Write your info too)" 47 SPUT 10:? #1 " (ESC) Exit" 48 ? #1 " (ENTER) Save & Exit" 49 I=0:FOR F=0 TO 32000 50 G=XPEEK(F):IF G=255 :I=F:GO 53 51 NEXT :? #1 "EOF":WAIT 20:GO 2 52 53 SGET H:IF H=13:XPOKE I,234:GO 2 54 IF H=27:XPOKE I,234:GO 2 55 IF H=8:I=I-1:XPOKE I,255 56 IF H=8:SPUT 8:GO 53 57 XPOKE I,H:SPUT H:I=I+1:GO 53 58 FOR E=0 TO 20:SPUT 10:NEXT 59 ? #1 " Read messages " 60 SPUT 10:? #1 " (ESC) Exit" 61 ? #1 "(ANY KEY) Next MSG" 62 SPUT 10:FOR K=0 TO 32000 63 L=XPEEK(K) 64 IF L=234 :? #1 "" 65 IF L=234 :? #1 "--------------" 66 IF L=234 :P=0:SGET P 67 IF P=27 :P=0:GO 2 68 69 70 71 72 IF L=234 :GO 75 73 IF L=255:? #1 "End of MSG":GO 76 74 SPUT L 75 NEXT 76 SPUT 10:? #1 " (ESC) Exit" 77 SGET M:IF M=27:GO 2 78 GO 77 79 80 FOR N=0 TO 10:SPUT 10:NEXT 81 ? #1 " Games ":SPUT 10 82 ? #1 " (1) Guess number" 83 '? #1 " (2) Game 2" 84 SPUT 10:? #1 " (ESC) Exit" 85 SGET O:IF O=27:GO 2 86 IF O=49:CALL 2,1'Game 1 87 'IF O=50:CALL 2,27'Game 2 88 GO 2 # P2 (sample game): PROGRAM:bbsg1 01 S=RND(10):U=5 02 FOR Q=0 TO 20:SPUT 10:NEXT 03 ? #1 " Guess the number *" 04 SPUT 10:? #1 " (ESC) Exit" 05 SPUT 10:? #1 "Number (0-9):" 06 SGET R:? #1 ""%R:IF R=27:RETURN 07 IF R=48:R=0 08 IF R=49:R=1 09 IF R=50:R=2 10 IF R=51:R=3 11 IF R=52:R=4 12 IF R=53:R=5 13 IF R=54:R=6 14 IF R=55:R=7 15 IF R=56:R=8 16 IF R=57:R=9 17 IF R=S:? #1 "Found!":WAIT 9:GO 1 18 IF R>S:? #1 "Big num, ";:GO 20 19 IF R<S:? #1 "Small num, ";:GO 20 20 ? #1 ""U-1;:? #1 " tries left" 21 SPUT 10: U=U-1 22 IF U=0:? #1 "You lost..." 23 IF U=0:WAIT 25:GO 1 24 GO 6 25 26 27 '? #1 "testing p2 l5" 28 'ESC pressed then go 7 29 'RETURN # Ftool utility (Fille external 24C512 with FF): PROGRAM:Ftool 01 FOR A=0 TO 33000 02 XPOKE A,255 03 PRINT A 04 'W=XPEEK(A) 05 'PRINT %W;'SYNC 1 06 NEXT #

5 Lab

Name	Description	Controls	Requirements	Code/Download	Screenshot
5.1 Oscilloscope	This is a small oscilloscope program. The analogue input 0 (PIN2 of the printer connector) is evaluated, the sampling takes place 50 times per second. Since the reference voltage is 2.56V by default, the parameter range 0x100 ... 0x1FF (direct access to ADMUX) is used to set AVCC as the reference voltage. To turn off the demonstration, line 16 of the program must be commented out.	None	None	PROGRAM:MODE1-Scope 01 'init screen 02 COLOR 5,1 :VMODE 1 03 BOX 7,31,112,161 04 DRAW 20,28,20,31 05 DRAW 60,28,60,31 06 DRAW 100,28,100,31 07 COL 6 08 COL 6:? @ 15,0;" 5V"; 09 COL 6:? @ 55,0;"2,5V"; 10 COL 6:? @ 95,0;" 0V"; 11 COLOR 4,0:CBOX 1,4,13,19 12 Y=60 13 'the main loop 14 A=100-ADC(64)/12 15 J=J+1: IF J=3600 THEN J=0 16 A=52-SIN(J2)/16+COS(J5)/16 17 BCOPY 1,8,33,13,16,8,32 18 DRAW Y,158,A,159:Y=A 19 SYNC 1:GOTO 14 #

6 HAM radio

Name	Description	Controls	Requirements	Code/Download	Screenshot

7 System files

Here is the list of system files (sources, documents, binaries) for the latest and the archived versions of the firmware of the CB2 micro. Note that some versions, although newest, may not include all the files in them (eg. Xmem libraries). In this case you may look in the archived versions for these files. Also, in version 1.52 there are no binaries provided, apart from the system HEX.

Version	Files	Date
V1.52 Unreleased version. Internal EEPROM bug fix performed on runtime.asm	main_644_152.hex runtime.asm avr-chipbasic2_1.52-source.zip	27.5.2019
V1.51	avr-chipbasic2_151-binary.tar.bz2 avr-chipbasic2_151-doc.tar.bz2 avr-chipbasic2_151-source.tar.bz2	26.3.2017
V1.50	avr-chipbasic2_150-binary.tar.bz2 avr-chipbasic2_150-doc.tar.bz2 avr-chipbasic2_150-source.tar.bz2	11.1.2015
V1.49	avr-chipbasic2_149-binary.tar.gz avr-chipbasic2_149-doc.tar.gz avr-chipbasic2_149-source.tar.gz	16.6.2014
V1.48	avr-chipbasic2_148-binary.tar.gz avr-chipbasic2_148-doc.tar.gz avr-chipbasic2_148-source.tar.gz	23.5.2014
V1.45	avr-chipbasic2_145-binary.tar.gz avr-chipbasic2_145-doc.tar.gz avr-chipbasic2_145-source.tar.gz	6.1.2013
V1.44	avr-chipbasic2_144-binary.tar.gz avr-chipbasic2_144-doc.tar.gz avr-chipbasic2_144-source.tar.gz	14.11.2012
V1.43	avr-chipbasic2_143-binary.tar.gz avr-chipbasic2_143-doc.tar.gz avr-chipbasic2_143-source.tar.gz	27.04.2012
V1.42	avr-chipbasic2_142-binary.tar.gz avr-chipbasic2_142-doc.tar.gz avr-chipbasic2_142-source.tar.gz	07.03.2012
V1.39	avr-chipbasic2_139-binary.tar.gz avr-chipbasic2_139-doc.tar.gz avr-chipbasic2_139-source.tar.gz	08.10.2011
V1.36	avr-chipbasic2_136-binary.tar.gz avr-chipbasic2_136-doc.tar.gz avr-chipbasic2_136-source.tar.gz	15.01.2011
V1.28	avr-chipbasic2_128-binary.tar.gz avr-chipbasic2_128-doc.tar.gz avr-chipbasic2_128-source.tar.gz	11.04.2010

8 Additional programs

Here is a list of additional useful programs related to the project. Such programs include chip8 games, basic games not documented on the above tables and utilities for firmware building and programming.

Description	Files	Date added
Package of 8080, converter and Chip8 programs (allready converted to run on the system)	chipbasic_additional_ch8_programs.zip	23.1.2019
Package of a few more BASIC games (some incomplete)	games2.zip	7.3.2019
Ponyprog, Windows programmer software for the MCU.	PonyProg_V207c.zip	23.1.2019
HyperTerminal (extracted from Win2K) for exchanging files with the PC	HyperTerminal.zip	22.3.2020
Linux compiler for building the sources.	cb2_linux_compiler.zip	16.9.2019