thisiscool.com: TinyBasic Sample Programs

BSBingoTM BYOBingoTM Num-NumTM Triangle Puzzle ThisIsCoolTM Nim Save That Calendar!TM GCC/GCJ for MingW Waba For DOS TinyBasic

TinyBasic Sample Programs

Overview

Here are sample programs that I copied and pasted from Tom Pittman's site. Consult his site for details on what they are and how to use them. You can copy and paste them from the text areas below into either the Java or Flash versions.

For an overview of the TinyBasic language and environment, here is a link to Tom's TinyBasic User Manual.

Back to my main TinyBasic page.

Tic Tac Toe

100 REM TIC-TAC-TOE. YOU (X) VS. THE COMPUTER (O)
110 GOTO 200
120 BOARD IS IN MEMORY LOCATIONS 0007-000F
130 .  0 IS EMPTY, 1 IS X. 3 TS O
140 I HAS CURRENT POSITION
150 G IS PEEK ROUTINE ADDRESS
160 P IS POKE ROUTINE ADDRESS
170 F=1 IF YOU PLAY FIRST
180 U IS NUMBER OF UNPLAYED SQUARES
190 Z=1 IF SOMEONE WON
200 REM
210 PRINT "TIC-TAC-TOE. YOU AGAINST TINY BASIC"
220 PRINT "YOU ARE X. I AM O."
230 PRINT "YOU PLAY YOUR TURN BY TYPING THE NUMBER OF A SQUARE."
240 A=0
250 B=0
260 C=0
270 D=0
280 E=0
290 F=O
300 PRINT
310 PRINT "FIRST, ";
320 PRINT "PLEASE TELL ME WHERE THE COLD START IS."
330 PRINT "IN DECIMAL";
340 INPUT I
350 IF I/256*256=I GOTO 400
360 IF I/100*100=I GOTO 330
370 PRINT "NO. NOT HEX.  ";
380 GO TO 330
400 P=I+24
410 G=I+20
420 PRINT "THAT IS ";I/4096;(I-I/4096*4096)/256;
430 PRINT "00 IN HEX.  THANKS."
440 GO TO 500
450 TO CONSERVE MEMORY, LINES 100-500 MAY BE RUN ONCE
460 THEN DELETED (CLEAR) BEFORE LOADING THE REST OF THE PROGRAM
500 REM---ON WITH THE SHOW...
1000 LET F=1
1010 PRINT
1020 PRINT "NEW GAME."
1100 LET I=7
1110 LET I=USR(P,I,0)*0+I+1
1120 IF I<16 GOTO 1110
1130 LET U=9
1140 LET Z=0
1150 IF F=0 THEN GOTO 4010
1160 GO TO 2010
1500 REM X WON.
1510 LET Z=1
1520 LET F=0
2000 REM PRINT GAME STATE
2010 LET I=6
2100 PRINT
2110 LET I=I+1
2120 PRINT " ";
2130 GOTO USR (G,I)*20+2200
2200 PRINT I-6;
2210 GOTO 2300
2220 PRINT "X";
2230 GOTO 2300
2260 PRINT "O";
2300 IF I/3*3=I GOTO 2400
2310 PRINT " |";
2320 GOTO 2110
2400 PRINT
2420 IF I=15 GOTO 3000
2430 PRINT "---+---+---"
2440 GOTO 2110
3000 IF Z=0 GOTO 3100
3010 REM THE GAME IS OVER.
3020 IF F=1 GOTO 3050
3030 PRINT "YOU WIN."
3040 GOTO 1010
3050 PRINT "I WIN."
3060 GOTO 1010
3100 IF U>0 GOTO 3210
3110 PRINT "CAT'S GAME."
3120 LET F=1-F
3130 GOTO 1010
3200 REM INPUT NEXT PLAY.
3210 PRINT "YOUR PLAY";
3220 INPUT I
3230 IF I>0 IF I<10 GOTO 3270
3240 PRINT "PLEASE TYPE A NUMBER BETWEEN 1 AND 9"
3250 PRINT WHERE YOU WISH TO PLAY YOUR X'
3260 GOTO 3210
3270 IF USR (G,I+6)=0 GOTO 3310
3280 PRINT "THAT SQUARE IS ALREADY TAKEN."
3290 GOTO 3210
3300 REM CHECK IF X WON.
3310 LET U=USR(P,I+6,1)*0+U-1
3320 LET W=6100
3330 GOSUB W
3340 IF J>0 IF L*M*N=1 GOTO 1510
3350 LET W=W+100
3360 IF W<6500 GOTO 3330
3400 REM CHECK IF CATS GAME
3410 IF U=0 GOTO 2010
4000 REM FIND BEST O PLAY
4010 LET I=1
4020 LET T=-1
4290 REM EVALUATE I'TH SQUARE
4300 LET S=0
4310 IF USR(G,I+6)>0 GOTO 4480
4320 LET W=6100
4330 GOSUB W
4340 IF J=0 GOTO 4410
4350 LET J=L+M+N
4360 IF J=4 THEN GOTO 4410
4370 IF J=2 THEN LET S=S+20
4380 IF J=6 THEN LET S=S+100
4390 IF J=0 THEN LET S=S+2
4400 LET S=S+J
4410 LET W=W+100
4420 IF W<6500 GOTO 4330
4430 IF S<T THEN GOTO 4470
4440 LET T=S
4450 LET B=I
4460 REM SAY SOMETHING, SO IT WONT SEEN SO LONG.
4470 PRINT ".";
4480 LET I=I+1
4490 IF I<10 GOTO 4300
4500 PRINT "I PLAY ";B
4510 PRINT
4520 LET J=USR(P,B+6,3)
4530 LET U=U-1
4540 IF T<100 THEN GOTO 2010
4550 REM I WON I WON I WON
4560 F=1
4570 Z=1
4580 GOTO 2010
6000 REM SUBROUTINR TO LOOK AT ONE ROW, COL, OR DIAG
6010 REM I IS THE POSITION OF REFERENCE
6020 REM L,M,N ARE RETURNED WITH CONTENTS OF THE THREE SOUARES
6030 REM ENTER AT 6100,6200,6300, OR 6400...
6040 REM TO EXAMINE ROW,COLUMN,DOWN DIAGONAL OR UP DIAGONAL
6090 REM W=HORIZONTAL
6100 LET J=(I-1)/3*3+8
6110 LET D=1
6120 GOTO 6500
6190 REM W=VERTICAL
6200 LET J=I-(I-1)/3*3+9
6210 LET D=3
6220 GOTO 6500
6290 REM W=DOWN DIAGONAL
6300 IF I-1<>(I-1)/4*4 GOTO 6440
6310 LET D=4
6320 REM BOTH DIAGONALS GO THRU CENTER
6330 LET J=11
6340 GOTO 6500
6390 REM W=UP DIAGONAL
6400 LET D=2
6410 IF I>1 IF I<9 IF I=I/2*2+1 GOTO 6330
6430 REM A DIAGONAL DOES NOT GO THRU THIS SQUARE
6440 LET J=0
6450 RETURN
6490 REM NOW WE KNOW CENTER OF THIS THREE AND +/- OFFSET
6500 LET L=USR(G,J-D)
6510 LET M=USR(G,J)
6520 LET N=USR(G,J+D)
6530 RETURN

Life

10 REM This is a crude mechanical translation
   20 REM Whipple&Arnold's TBX program to TinyBasic
   30 REM FOR-NXT are converted to LET-IF-GOTO
   40 REM DIM/arrays are expanded to USR calls
   50 REM and multi-statement lines are split
   60 REM also expanded abbreviated INPUT, PR""
   70 REM Original code had leading zeros in line #
00090 PR "LIFE WITH TINY BASIC EXTENDED"
00100 PR "SIZE";
  101 IF G<0 IF G+G=H GOTO 127
00105 LET F=0
00110 INPUT A
00112 PRINT
  113 PR "THE BEGINNING-WAIT"
  114 PRINT
00115 LET B=A+2
  120 GOSUB 7070
00127 REM DIM G(B,B),H(B,B)
00130  J=1
  131 REM FOR J=1 TO B
00140  I=1
  141 REM FOR I=1 TO B
00150 REM G(I,J)=0 $ REM H(I,J)=0
  155 GOSUB 7160
  158 GOSUB 7740
00160  I=I+1
  161 IF I<=B GOTO 141
00170  J=J+1
  171 IF J<=B GOTO 131
00175 LET M=A+1
  176 PRINT "ENTER INITIAL POPULATION, 0 OR 1,"
  177 PRINT " SEPARATED BY COMMA; END LINE WITH 2"
00180  J=2
  181 REM FOR J=2 TO M
  182 PRINT "ROW ";J-1;
00190  I=2
  191 REM FOR I=2 TO M
00200 INPUT K
00210 IF K <= 1 GO TO 220
00212 LET I=M
00214 GO TO 230
00220 REM G(I,J)=K
  221 LET Z=K
  222 GOSUB 7770
00225 IF K = 1 LET F=F+1
00230  I=I+1
  231 IF I<=M GOTO 191
00240 PRINT
00250  J=J+1
  251 IF J<=M GOTO 181
00260 PR "GENERATIONS";
00270 INPUT D
00280 PRINT
00285 REM PRINT
00287 LET S=0
00290  E= S
  291 REM FOR E= S TO D
00300 PR "GENERATION ";E
00301 PRINT
00302 IF F > 0 GO TO 305
00303 PR "POPULATION IS ZERO"
  304 END
00305 PR "POPULATION IS ";F
00310 GO SUB 6000
00315 LET F=0
00320 GO SUB 5000
00330  E=E+1
  331 IF E<=D GOTO 291
00335 PR "HOW MANY MORE";
  336 INPUT C
  337 PRINT
00345 IF C = 0 END
00350 LET S=E
  352 LET D=D+C
00355 GO TO 290
05000  I=2
 5001 REM FOR I=2 TO M
05010  J=2
 5011 REM FOR J=2 TO M
05020 REM N=0
05030 REM N=G(I-1,J-1)+G(I,J-1)+G(I+1,J-1)+G(I-1,J)+G(I+1,J)
05040 REM N=N+G(I-1,J+1)+G(I,J+1)+G(I+1,J+1)
 5050 GOSUB 7210
05110 GOSUB 7660
 5115 IF Z <> 1 GO TO 5180
05120 IF N > 1 GO TO 5150
05130 REM H(I,J)=0
 5135 GOSUB 7160
05140 GO TO 5210
05150 IF N <= 3 GO TO 5200
05160 REM H(I,J)=0
 5165 GOSUB 7160
05170 GO TO 5210
05180 IF N <> 3 GO TO 5210
05200 LET Z=1
 5202 GOSUB 7170
05205 LET F=F+1
05210  J=J+1
 5211 IF J<=M GOTO 5011
05220  I=I+1
 5221 IF I<=M GOTO 5001
05230  I=1
 5231 REM FOR I=1 TO B
05240  J=1
 5241 REM FOR J=1 TO B
05250 REM G(I,J)=H(I,J)
 5255 GOSUB 7740
05260 REM H(I,J)=0
 5265 GOSUB 7160
05270  J=J+1
 5271 IF J<=B GOTO 5241
05280  I=I+1
 5281 IF I<=B GOTO 5231
05290 RETURN
06000  J=2
 6001 REM FOR J=2 TO M
06010 LET R=0
06020  I=1
 6021 REM FOR I=1 TO M
06030 GOSUB 7660
 6035 IF Z = 1 LET R=1
06040  I=I+1
 6041 IF I<=M GOTO 6021
06050 IF R=0 GO TO 6120
06060  I=2
 6061 REM FOR I=2 TO M
06070 GOSUB 7660
 6075 IF Z = 1 GO TO 6100
06080 PR "  ";
06090 GO TO 6110
06100 PR " #";
06110  I=I+1
 6111 IF I<=M GOTO 6061
06120 PRINT
06130  J=J+1
 6131 IF J<=M GOTO 6001
06140 PRINT
 6145 PRINT
06150 RETURN
 7000 REM Simulate 1-byte DIM on the GOSUB stack..
 7010 REM Allocate B*B elements for G and H
 7020 REM Variables V,Z are used as scratch temps
 7030 REM GOSUB 7070 to simulate DIM; it returns to 127
 7040 REM   with G,H init'd; set V=G to access G(I,J)
 7050 REM GOSUB 7700 to get value of V(I,J) into Z
 7060 REM GOSUB 7777 to store Z into V(I,J)
 7070 LET Z=(B+1)*(B+2)
 7073 LET G=-Z
 7076 LET H=G-Z
 7080 LET Z=Z-1
 7088 IF Z<0 GOTO 127
 7090 GOSUB 7080
 7100 REM Some utility entry points..
 7140 GOTO 7777
 7150 REM set H(I,J) [=0]
 7160 LET Z=0
 7170 LET V=H
 7180 GOTO 7777
 7200 REM add up in N all eight G(I=/-1,J+/-1)
 7210 LET I=I-1
 7220 GOSUB 7660
 7230 LET N=Z
 7240 LET J=J-1
 7250 GOSUB 7660
 7260 LET N=N+Z
 7270 LET I=I+1
 7280 GOSUB 7660
 7290 LET N=N+Z
 7300 LET I=I+1
 7310 GOSUB 7660
 7320 LET N=N+Z
 7330 LET J=J+1
 7340 GOSUB 7660
 7350 LET N=N+Z
 7360 LET J=J+1
 7370 GOSUB 7660
 7380 LET N=N+Z
 7390 LET I=I-1
 7400 GOSUB 7660
 7410 LET N=N+Z
 7420 LET I=I-1
 7430 GOSUB 7660
 7440 LET N=N+Z
 7450 LET I=I+1
 7460 LET J=J-1
 7470 RETURN
 7660 REM return G(I,J)
 7670 LET V=G
 7700 LET Z=USR(276,V+B*I+J,0)
 7707 RETURN
 7730 REM set G(I,J)=H(I,J)
 7740 LET V=H
 7750 GOSUB 7700
 7760 REM set G(I,J)=Z
 7770 LET V=G
 7777 LET Z=USR(280,V+B*I+J,Z)
 7780 RETURN

Hex Dump

100 REM PRINT HEX MEMORY DUMP
109 REM INITIALIZE
110 A=-10
120 B=-11
130 C=-12
140 D=-13
150 E=-14
160 F=-15
170 X = -1
175 O = 0
180 LET S = 256
190 REMARK: S IS BEGINNING OF TINY (IN DECIMAL)
200 REM GET (HEX) ADDRESSES
210 PRINT "DUMP: L,U";
215 REM INPUT STARTING ADDRESS IN HEX
220 GOSUB 500
230 L=N
235 REM INPUT ENDING ADDRESS IN HEX
240 GOSUB 500
250 U=N
275 REM TYPE OUT ADDRESS
280 GOSUB 450
290 REM GET MEMORY BYTE
300 LET N = USR (S+20,L)
305 REM CONVERT IT TO HEX
310 LET M = N/16
320 LET N = N-M*16
330 PRINT " ";
335 REM PRINT IT
340 GOSUB 400+M+M
350 GOSUB 400+N+N
355 REM END?
360 IF L=U GO TO 390
365 L=L+1
370 IF L/16*16 = L GOTO 280
375 REM DO 16 BYTES PER LINE
380 GO TO 300
390 PRINT
395 END
399 PRINT ONE HEX DIGIT
400 PRINT O;
401 RETURN
402 PRINT 1;
403 RETURN
404 PRINT 2;
405 RETURN
406 PRINT 3;
407 RETURN
408 PRINT 4;
409 RETURN
410 PRINT 5;
411 RETURN
412 PRINT 6;
413 RETURN
414 PRINT 7;
415 RETURN
416 PRINT 8;
417 RETURN
418 PRINT 9;
419 RETURN
420 PRINT "A";
421 RETURN
422 PRINT "B";
423 RETURN
424 PRINT "C";
425 RETURN
426 PRINT "D";
427 RETURN
428 PRINT "E";
429 RETURN
430 PRINT "F";
431 RETURN
440 REM PRINT HEX ADDRESS
450 PRINT
455 REM CONVERT IT TO HEX
460 N = L/4096
470 IF L<0 N=(L-32768)/4096+8
480 GOSUB 400+N+N
483 LET N=(L-N*4096)
486 GOSUB 400+N/256*2
490 GOSUB 400+(N-N/256*256)/16*2
495 GOTO 400+(N-N/16*16)*2
496 REM GOTO=GOSUB,RETURN
500 REM INPUT HEX NUMBER
501 REM FORMAT IS NNNNX
502 REM WHERE "N" IS ANY HEX DIGIT
505 N=0
509 REM INPUT LETTER OR STRING OF DIGITS
510 INPUT R
520 IF R=X RETURN
525 REM CHECK FOR ERROR
530 IF R>9999 THEN PRINT "BAD HEX ADDRESS
531 REM NOTE ERROR STOP ON LINE 530 (ON PURPOSE!)
535 REM CONVERT INPUT DECIMAL DIGITS TO HEX
540 IF R>999 THEN N=N*16
545 IF R>99 THEN N=N*16
550 IF R>9 THEN N=N*16
555 IF R>0 THEN R=R+R/1000*1536+R/100*96+R/10*6
559 REM PICK UP NON-DECIMAL DIGIT LETTERS
560 IF R<0 THEN LET R=-R
565 REM ADD NEW DIGIT TO PREVIOUS NUMBER
570 LET N=N*16+R
580 GOTO 510
590 NOTE: DON'T NEED END HERE

Random Numbers

Return to the main page (for an overview, the Java and C# ports and sources).