Source:Convert to Ten Directions

From Eamon Wiki
Jump to navigation Jump to search
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"