Re: Castle Adventure by David Malmberg

[Rubywand <rubywand@swbell.net>]

Paul Allen Panks writes ...
> 
> 100 PRINTCHR$(142)
> 102 PRINT"{clear}{down*4}{space*5}welcome to castle adventure"
> 104 PRINT"{down}{space*9}by david malmberg"
> 106 REM 43064 via moraga
> 108 REM fremont, california 94538
> 110 REM (415)651-6921
 ....

> 157 NEXTx
> 170 PRINT"{clear}"
> 300 r=ar:lx=lt:df=0:sf=0:INPUT"use saved game (y or
> n){space*3}n{left*3}";k$
> 310 IF LEFT$(k$,1)<>"y"THEN PRINT"{clear}":GOTO370
> 311 INPUT"{clear}{reverse on}t{reverse off}ape or {reverse on}d{reverse
> off}isk{space*2}d{left*3}";k$
> 312 IFk$<>"t"ANDk$<>"d"THEN311
> 313 IFk$="t"THEN320
> 314 INPUT"drive {reverse on}0{reverse off} or {reverse on}1{reverse
> off}{space*2}0{left*3}";k$
 ....

     Thanks for posting the listing. One thing that will make using Text
listings easier-- e.g. to EXEC on an Apple II or emulator-- is setting posting
line length to some high number. That will eliminate mid-line breaks.

     Even so, the usual PC user will probably need to clean out chars added by
PC-- like the linefeed char that gets added to CR to end lines (you have $0A
and $0D instead of $0D). Bringing the Text into Appleworks should show any odd
chars and automatically take care of the 0A0D --> 0D conversion when the file
is saved as Text.



Rubywand