Remdisplay Results

3290 TITLE*="SCORE BOARD":GOSUB500:GOSUB740:GOSUB300 3300 PRINTTABC5)USINGF1*5W;R+W 3310 PRINT:PRINTTAB(5)USINGF2$"SC

3320 PRINT:PRINT"DO YOU WANT TO SEE A COMPLETE BREAKDOWN (Y/N)?

":GOSUB540 3330 IFC*="N"THENRETURN 3340 FOR1=1TON 3350 GOSUB500

3360 PRINTTAB(5)"PROMPT: ";A$CI,1) 3370 PRINTTAB(5)"REPLY: ";A$(I,2)

3380 PRINT:PRINT:PRINTTAB(5)USINGF1$;ANS(I,1)lANSCI,D+ANSCI, 2)

3410 PRINTTAB(5)USINGF2* ? SC

3420 PRINTS896,"PRESS ANY KEY TO CONTINUE"'

3430 IFINKEY*=""THEN3430

0 0

Post a comment