I actually write turboR or MSX turbo R… not really consistent. Probably the latter is better. Anyway, if you look at the logo, it’s clear that ‘turbo’ should not have a capital t.
This little MSX-Basic program ---how to write that?--- should help add some missing alternatives.
10 REM poll options generator
20 DEFINT I-N: M=5: DIM P$[M-1,5], T$[M], I[M-1]
30 FOR R=0 TO 4 :K=0
50 READ P$[R,K]
60 IF P$[R,K]<>"*" THEN K=K+1: GOTO 50
70 NEXT R: OPEN "CRT:" FOR OUTPUT AS #1
80 T$[0]="": N=0: GOSUB 100
90 PRINT #1, "Piet": PRINT #1, "grey brick": END
100 IF N=M THEN PRINT #1, T$[M]:RETURN
110 I[N]=0
120 IF P$[N,I[N]]="*" THEN RETURN
125 IF (N=1) AND (I[0]=0) AND (I[1]=1) THEN RETURN
130 T$[N+1]=T$[N]+P$[N,I[N]]
140 N=N+1: GOSUB 100: N=N-1
150 I[N]=I[N]+1:GOTO 120
1000 DATA "",MSX,msx,Msx,*
1010 DATA "",-," ",_,*
1020 DATA turbo,Turbo,TURBO,t,T,*
1030 DATA "",-," ",_,..,*
1040 DATA R,r,err,Eend,*
Change "CRT:" in line 70 to a filename to save the alternatives to a file rather than printing them.
コメント (28)
By RobertVroemisse
Paragon (1262)
02-05-2007, 14:54
By ro
Scribe (4255)
02-05-2007, 15:19
By Prodatron
Paragon (1789)
02-05-2007, 16:14
By dvik
Prophet (2200)
02-05-2007, 16:14
By wolf_
Ambassador_ (9842)
02-05-2007, 16:51
By Grauw
Ascended (9486)
02-05-2007, 19:11
By Ivan
Ascended (9224)
02-05-2007, 19:26
By KdL
Paragon (1363)
02-05-2007, 20:41
By turbor
Champion (454)
03-05-2007, 08:26
By RobertVroemisse
Paragon (1262)
03-05-2007, 08:57
By ARTRAG
Enlighted (6462)
03-05-2007, 12:34
By wolf_
Ambassador_ (9842)
03-05-2007, 13:16
By poke-1,170
Paragon (1761)
03-05-2007, 13:50
By NYYRIKKI
Enlighted (5665)
03-05-2007, 17:44
By snout
Ascended (15186)
03-05-2007, 21:18
By ro
Scribe (4255)
07-05-2007, 14:28
By wolf_
Ambassador_ (9842)
07-05-2007, 17:44
By arnold_m
Master (173)
07-05-2007, 21:21
By Manuel
Ascended (17272)
08-05-2007, 22:21
By Yukio
Paragon (1540)
27-05-2007, 18:31
By Latok
msx guru (3801)
07-06-2007, 09:51
By Huey
Prophet (2657)
07-06-2007, 11:53
By shaiwa
Champion (384)
21-06-2007, 10:17
By Latok
msx guru (3801)
18-08-2007, 00:48
By Sonic_aka_T
Enlighted (4130)
18-08-2007, 10:49
By ro
Scribe (4255)
24-08-2007, 19:54
By dvik
Prophet (2200)
24-08-2007, 20:05
By Sama
Ambassador (2061)
25-08-2007, 02:59