DM3BC

CLS
PRINT "DM3BC-Introduction"
PRINT "------------------"
PRINT
LINE INPUT "Press Enter to begin testing: "; j$

1 :
DIM GameName AS STRING
DIM GameType AS INTEGER
CALL Introduction(GameName, GameType)
' 1=Existing game 2=New game 3=Exit
CLS
SELECT CASE GameType
CASE 1:
g$ = " game named " + CHR$(34) + GameName + CHR$(34)
PRINT "You elected to continue old"; g$
CASE 2:
g$ = " game named " + CHR$(34) + GameName + CHR$(34)
PRINT "You elected to start a new"; g$
CASE 3:
PRINT "You elected to quit": SYSTEM
CASE ELSE
STOP: 'bug
END SELECT
PRINT : PRINT "Press key for next test"
WHILE INKEY$ = "": WEND
RUN 1

SUB Introduction (n$, t%)
PRINT "Simulating SUB Introduction via INPUT"
PRINT "(t% values: 1=existing, 2=new, 3=quit)"
PRINT : INPUT "n$, t%: "; n$, t%
END SUB