S-BASIC

10 SPEED=20
20 REM SPECIAL STRINGS TO SPEED THINGS UP - JUST PRINT THEM OUT!
30 REVON$=CHR$(27)+"B0"
40 REVOFF$=CHR$(27)+"C0"
50 HALFON$=CHR$(27)+"B1"
60 HALFOFF$=CHR$(27)+"C1"
70 BLINKON$=CHR$(27)+"B2"
80 BLINKOFF$=CHR$(27)+"C2"
90 UNDERON$=CHR$(27)+"B3"
100 UNDEROFF$=CHR$(27)+"C3"
105 REM ------------------------------------------------------
110 REM YOU CAN COMBINE SPECIAL STRINGS
120 REM NORMAL$ RESTORES THINGS TO NORMAL FOR ANY FOLLOWING TEXT
130 WARN$=REVON$+HALFOFF$+BLINKON$
140 NORMAL$=REVOFF$+HALFOFF$+BLINKOFF$+UNDEROFF$
145 REM ------------------------------------------------------
150 REM PRINT BEEP$ TO MAKE A BEEP SOUND
160 BEEP$=CHR$(7)
170 REM ------------------------------------------------------
180 PRINT NORMAL$+BEEP$+CHR$(26)
190 S$="SHALL WE PLAY A GAME?"
200 GOSUB 5000:LINE INPUT A$
210 PRINT
220 S$="WOULDN'T YOU PREFER A GOOD GAME OF CHESS?"
230 GOSUB 5000:LINE INPUT A$
240 PRINT CHR$(26)
250 S$=WARN$+" WARNING "+NORMAL$+" LAUNCHING MISSLES..."
260 GOSUB 5000:LINE INPUT A$
270 END
280 REM -----------------------------------------------------
5000 FOR I=1 TO LEN(S$)
5010 PRINT MID$(S$,I,1);
5020 FOR J=1 TO SPEED:NEXT J
5030 NEXT I
5040 PRINT:PRINT
5050 RETURN
6000 REM CHR$(26) - CLEARS SCREEN
6010 REM CHAR$(7) - BEEPS BELL
6020 REM SAVE "WARGAMES.BAS"
6030 REM LOAD "WARGAMES.BAS"
6040 REM RUN
6050 REM RENUM - RENUMBERS THE ENTIRE FILE
6060 REM RENUM 5000,200 - STARTS THE RENUMBERING ON LINE 200, GIVING IT THE NUMBER 5000 (AND UP)