1	SUB DNDCLN &

100	! MAINTANCE PROGRAM FOR DND
	!
	! Written by John Rich, August 1984 &

110	DIM #1, N2$(100%,1%)=64%,C2(100,64) &

999	Print
	Input "Clean option ";Op%
	GOTO 32700 UNLESS OP%
	If Op% < 0% or Op% > 3% then &
		Print "%Invalid option. Options are:"
		Print
		Print "1	Clean by level"
		Print "2	Clean by last date ran"
		Print "3	Clean everybody"
		Goto 999 &

2000	Open "DR1:[GAME]DNDCHR.DAT" for input as file 1%, &
		Organization virtual, allow read, access modify
	On Op% Gosub 11000,12000,13000,14000
	Goto 999 &

11000	! Level &

11010	Input "Level and above that will not be deleted ";L
	C2(X,0) = 0 if C2(X,8) < L &
		For X = 1 to 100
	Return &

12000	! By last date &

12010	Print "%Not implemented"
	Return &

13000	! Clean whole dungeon &

13010	Print "Not done yet"
	Return &

14000	Return &

32700	CLOSE #1% &

32767	Subend