Source:Convert to Ten Directions

This page is a verbatim reproduction of original source material and should not be edited except for maintenance.
Description	The Applesoft BASIC source code of the Eamon utility program Convert to Ten Directions.
Source	Eamon Utilities II
Date	14 February 1984
Author	John Nelson
License	The use of this item is permitted on the grounds that it's free or in the public domain.

1  REM    FIX TEN DIRECTION
2  REM      BY JOHN NELSON
3  REM 
4  REM   CHANGES A DUNGEON FROM
	  A SIX-DIRECTION TO A
		  TEN-DIRECTION
5  REM 
7  REM  2-14-84
8  REM 
10 D$ =  CHR$ (4)
20  HOME : VTAB 6: PRINT "INSERT EAMON ADVENTURE AND PRESS ANY KEY": PRINT  SPC( 15);"TO CONTINUE ...";: GET A$: PRINT 
40  ONERR  GOTO 20
50  PRINT D$"OPEN EAMON.NAME": PRINT D$;"READ EAMON.NAME": INPUT ADV$
60  PRINT D$;"UNLOCK EAMON.NAME"
70  PRINT D$"WRITE EAMON.NAME": PRINT ADV$: PRINT "10": PRINT 5
80  PRINT D$;"CLOSE": PRINT D$;"UNLOCK EAMON.ROOMS"
100  PRINT D$;"OPEN EAMON.DESC,L256": PRINT D$;"READ EAMON.DESC,R0": INPUT NR: PRINT D$;"CLOSE"
120  PRINT D$;"OPEN EAMON.ROOMS,L64"
140  FOR R = 1 TO NR: PRINT D$;"READ EAMON.ROOMS,R";R: FOR D = 1 TO 6: INPUT RD%(D): NEXT 
150  PRINT D$;"WRITE EAMON.ROOMS,R";R: FOR D = 1 TO 6: PRINT RD%(D): NEXT 
170  FOR X = 1 TO 4: PRINT "0": NEXT 
200  NEXT : PRINT D$;"CLOSE"