Pete's QBASIC Site

COLOR 7, 0
CLS

DIM b AS STRING 'border drawing character
DIM contestant AS STRING 'contestant name
DIM prize AS INTEGER 'prize won
DIM prizetext AS STRING 'prize won text
DIM printstr AS STRING 'print string
DIM x AS INTEGER 'loop variable

DATA "Jim Jone", 4
DATA "Nancy Nice", 2
DATA "Who Knew", 1
DATA "Tries Hard", 5
DATA "Lota Heart", 3
DATA "xxx", -1

b = "*"
printstr = "The & prize was won by \ \"

PRINT TAB(10); STRING$(20, b) 'heading
PRINT TAB(10); b; SPC(18); b
PRINT TAB(10); b; " Prize Winners "; b
PRINT TAB(10); b; SPC(18); b
PRINT TAB(10); STRING$(20, b)
PRINT
PRINT

FOR x = 1 TO 5 'beginning of loop
IF x = 1 THEN prizetext = "first"
IF x = 2 THEN prizetext = "second"
IF x = 3 THEN prizetext = "third"
IF x = 4 THEN prizetext = "forth"
IF x = 5 THEN prizetext = "fifth"
WHILE place = x
RESTORE
READ printstr, prizetext, contestant
PRINT USING printstr(prizetext, contestant); When I try to run, I get a Type mismatch error on this line.
READ place
WEND
NEXT x

Any help is appreciated!

I Hope it helps

Thank you Antoni! It's a bit different than what was asked of me, but it runs perfectlly!