Source:Quicky Room Print
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 Quicky Room Print. |
|---|---|
| Source | |
| Date |
13 November 1985 |
| Author | |
| License |
The use of this item is permitted on the grounds that it's free or in the public domain. |
0 REM EAMON
1 REM QUICKY ROOM PRINT
2 REM BY JOHN NELSON
3 REM
4 REM
5 REM
6 REM
9 REM REV. 11-13-85
10 D$ = CHR$ (4)
20 ONERR GOTO 40
40 HOME : VTAB 6: PRINT " INSERT EAMON ADVENTURE DISKETTE AND": PRINT : PRINT SPC( 10);"PRESS ANY KEY TO CONTINUE ...";: GET A$: PRINT
50 HOME : VTAB 6: PRINT "DO YOU WANT PRINTER OUTPUT (Y/N):";
60 GET A$: IF A$ < > "Y" AND A$ < > "N" THEN 60
70 PRINT A$:PRT = (A$ = "Y"): IF NOT PRT THEN 92
75 PRINT : PRINT "WHAT SLOT IS PRINTER IN (1-7):";
80 GET A$: IF A$ < "1" OR A$ > "7" THEN 80
90 PRINT A$:PS = VAL (A$)
92 ONERR GOTO 800
94 PRINT D$;"OPEN EAMON.NAME": PRINT D$;"READ EAMON.NAME": INPUT DUNGN$: INPUT DR$: PRINT D$;"CLOSE"
96 POKE 216,0
98 ND = VAL (DR$)
100 PRINT D$"OPEN EAMON.ROOM NAMES,L64": PRINT D$"OPEN EAMON.ROOMS,L64": PRINT D$"OPEN EAMON.DESC,L256"
200 PRINT D$"READ EAMON.DESC,R0": INPUT NR,NA,NE,NM: PRINT D$"CLOSE EAMON.DESC"
300 IF PRT THEN PRINT D$"PR#";PS
350 FOR X = 1 TO ND: READ D$(X): NEXT
375 HOME
400 FOR R = 1 TO NR: PRINT D$"READ EAMON.ROOM NAMES,R";R: INPUT N$: PRINT D$"READ EAMON.ROOMS,R";R: FOR D = 1 TO ND: INPUT DR%(D): NEXT
450 PRINT D$
500 PRINT "ROOM ";R;":";N$: FOR D = 1 TO ND: IF DR%(D) < > 0 THEN PRINT D$(D);":"; SPC( 15 - LEN (D$(D)) - LEN ( STR$ (DR%(D))));DR%(D): IF NOT PRT THEN IF PEEK (37) > 20 THEN GOSUB 900
550 NEXT : PRINT
600 NEXT :
700 PRINT D$"PR#0": PRINT D$"CLOSE": END
800 ND = 6: POKE 216,0: GOTO 100
900 INVERSE : PRINT " PRESS ANY KEY TO CONTINUE ";: GET A$: PRINT : NORMAL : HOME : RETURN
1000 DATA NORTH,SOUTH,EAST,WEST,UP,DOWN,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST