5 CLS
6 PRINT"TW-DOS"
7 PRINT"Version 1.0"
8 GOTO 10
10 REM DOS
11 GOTO 1150
12 MAXFILES=5
15 LET H$="/"
16 LET G$="\"
17 LET G$=H$
20 INPUT"C:\";A$
30 IF A$="CLS" THEN 3000
31 IF A$="cls" THEN 3000
32 IF A$="WORKS" THEN 3010
33 IF A$="works" THEN 3010
35 IF A$="del" THEN 1000
36 IF A$="DEL" THEN 1000
37 IF A$="DEL *.*" THEN 1000
38 IF A$="del *.*" THEN 1000
40 IF A$="DIR" THEN 3050
45 IF A$="dir" THEN 3050
50 IF A$="VER" THEN 05
55 IF A$="ver" THEN 05
70 IF A$="A:" THEN 1100
75 IF A$="RENAME" THEN 3070
76 IF A$="rename" THEN 3070
80 IF A$="MEM" THEN 3500
83 IF A$="mem" THEN 3500
997 PRINT"BAD COMMAND OR FILENAME"
998 GOTO 10
999 END
1000 REM BEGINING OF FILE DELETION.
1010 PRINT"Please choose a file"
1020 PRINT"to delete"
1030 FILES
1040 INPUT D$
1050 KILL D$
1055 IF D$="" THEN 10
1100 REM DRIVE A
1110 COM ON
1120 OPEN "COM:88N1E" FOR INPUT AS 4
1130 PRINT"INVALID DRIVE SPECIFICATION"
1131 GOTO 10
1150 REM FUNCTION KEY PROGRAMING
1160 KEY 3,A$
1170 GOTO 12
1175 END
3000 REM CLS
3001 CLS
3002 GOTO 10
3010 REM Microsoft Works.exe
3011 CLS
3012 PRINT"NOW LOADING PLEASE WAIT."
3013 FOR I=1 TO 1200
3014 NEXT I
3015 MENU
3020 NAME R$ AS T$
3050 REM DIR
3055 FILES
3060 GOTO 10
3070 REM FILE RENAME
3080 PRINT"Please choose file to rename"
3090 FILES
3100 INPUT R$
3101 PRINT"Please choose new filename."
3110 INPUT T$
3120 NAME R$ AS T$
3130 GOTO 10
3500 CLS
3510 PRINT"Total memory  768,000 bytes"
3520 PRINT"Total Base memory  640,000 bytes"
3530 PRINT"Free memory   540,035 bytes"
3535 PRINT"High memory   128,000 bytes"
3540 GOTO 10
4000 REM FILE DIR
4010 PRINT"directory of C:\"
4020 PRINT"  "