TOYOSHIKI TinyBASIC PIC24F Edition Application

VWRITER.BAS

100 REM Versa Writer
110 REM
120 @(0)=7;@(1)=5;@(2)=5;@(3)=5;@(4)=7;REM 0
130 @(5)=6;@(6)=2;@(7)=2;@(8)=2;@(9)=7;REM 1
140 @(10)=7;@(11)=1;@(12)=7;@(13)=4;@(14)=7;REM 2
150 @(15)=7;@(16)=1;@(17)=7;@(18)=1;@(19)=7;REM 3
160 @(20)=4;@(21)=5;@(22)=7;@(23)=1;@(24)=1;REM 4
170 @(25)=7;@(26)=4;@(27)=7;@(28)=1;@(29)=7;REM 5
180 @(30)=7;@(31)=4;@(32)=7;@(33)=5;@(34)=7;REM 6 
190 @(35)=7;@(36)=1;@(37)=1;@(38)=1;@(39)=1;REM 7
200 @(40)=7;@(41)=5;@(42)=7;@(43)=5;@(44)=7;REM 8
210 @(45)=7;@(46)=5;@(47)=7;@(48)=1;@(49)=7;REM 9
220 REM
230 IF SW()=7 GOTO 230
240 FOR N=0 TO 9
250 GOSUB 800
260 NEXT N
270 GOTO 240
280 REM
800 FOR I=0 TO 4
810 GOSUB 900+@(N*5+I)
820 NEXT I
830 LED 3 OFF
840 GOSUB 1000;GOSUB 1000
850 RETURN
860 REM
900 LED 2 OFF;LED 1 OFF;LED 0 OFF;GOTO 1000
901 LED 2 OFF;LED 1 OFF;LED 0 ON;GOTO 1000
902 LED 2 OFF;LED 1 ON;LED 0 OFF;GOTO 1000
903 LED 2 OFF;LED 1 ON;LED 0 ON;GOTO 1000
904 LED 2 ON;LED 1 OFF;LED 0 OFF;GOTO 1000
905 LED 2 ON;LED 1 OFF;LED 0 ON;GOTO 1000
906 LED 2 ON;LED 1 ON;LED 0 OFF;GOTO 1000
907 LED 2 ON;LED 1 ON;LED 0 ON;GOTO 1000
910 REM
1000 FOR D=1 TO 500 
1010 NEXT D 
1020 RETURN

WHKAMOLE.BAS

100 REM Mogura Tataki
110 REM --------
120 @(0)=3
130 @(1)=5
140 @(2)=6
150 REM --------
160 FOR I=1 TO 3 
170 LED 3 ON; GOSUB 1000 
180 LED 3 OFF; GOSUB 1000 
190 NEXT I
200 REM --------
210 FOR I=1 TO 8 
220 GOSUB 1000 
230 NEXT I
240 REM --------
250 W=0
260 L=RND(3)-1
270 LED L ON
280 FOR I=1 TO 10000
290 IF SW()=@(L) W=1
300 NEXT I
310 REM --------
320 IF W=1 GOTO 150
330 LED L OFF
340 GOTO 200
350 REM --------
1000 REM 150mS
1010 FOR D=1 TO 10000 
1020 NEXT D 
1030 RETURN