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.
Comments (28)
By RobertVroemisse
Ambassador (926)
02-05-2007, 14:54
By ro
Prophet (2694)
02-05-2007, 15:19
By Prodatron
Paragon (1125)
02-05-2007, 16:14
By dvik
Paragon (1517)
02-05-2007, 16:14
By wolf_
Ambassador (5677)
02-05-2007, 16:51
By Grauw
Paladin (1010)
02-05-2007, 19:11
By Ivan
Scribe (1354)
02-05-2007, 19:26
By KdL
Master (151)
02-05-2007, 20:41
By turbor
Master (206)
03-05-2007, 08:26
By RobertVroemisse
Ambassador (926)
03-05-2007, 08:57
By ARTRAG
Prophet (3033)
03-05-2007, 12:34
By wolf_
Ambassador (5677)
03-05-2007, 13:16
By poke-1,170
Paladin (990)
03-05-2007, 13:50
By NYYRIKKI
Prophet (2220)
03-05-2007, 17:44
By snout
Ambassador (5379)
03-05-2007, 21:18
By ro
Prophet (2694)
07-05-2007, 14:28
By wolf_
Ambassador (5677)
07-05-2007, 17:44
By arnold_m
Expert (91)
07-05-2007, 21:21
By Manuel
Enlighted (5672)
08-05-2007, 22:21
By Yukio
Paragon (1235)
27-05-2007, 18:31
By Latok
msx guru (2045)
07-06-2007, 09:51
By Huey
Paragon (1436)
07-06-2007, 11:53
By shaiwa
Champion (297)
21-06-2007, 10:17
By Latok
msx guru (2045)
18-08-2007, 00:48
By Sonic_aka_T
Prophet (2365)
18-08-2007, 10:49
By ro
Prophet (2694)
24-08-2007, 19:54
By dvik
Paragon (1517)
24-08-2007, 20:05
By Sama
Ambassador (1261)
25-08-2007, 02:59