Source:List Monster.Master
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 List Monster.Master |
|---|---|
| Source | |
| Date |
c. 1985 |
| Author | |
| License |
The use of this item is permitted on the grounds that it's free or in the public domain. |
10 D$ = CHR$ (4): TEXT : DIM MD%(12),ML$(12): FOR X = 1 TO 12: READ ML$(X): NEXT
30 DATA HD ,AG ,FRIEND ,COUR ,ROOM ,WEIGHT ,DEF.ODDS,ARMOUR ,WEAPON# ,OFF.ODDS,W.DICE ,W.SIDES
100 HOME : PRINT "MONSTER PRINT PROGRAM": PRINT : PRINT
110 INPUT "LOW MONSTER #:";LOW
120 INPUT "HIGH MONSTER :";HIGH
130 IF HIGH < LOW THEN PRINT : PRINT "THAT ISN'T VALID.": GOTO 110
140 IF LOW < 1 THEN PRINT "THAT ISN'T VALID.": GOTO 110
145 INPUT "HARDCOPY WANTED? (Y/N):";YN$
148 IF YN$ = "Y" THEN PRINT D$"PR#1"
150 PRINT D$"OPEN MONSTER.MASTER,L384": PRINT D$"READ MONSTER.MASTER,R0": INPUT NM
160 IF HIGH > NM THEN PRINT D$"CLOSE": PRINT "THAT ISN'T VALID.": GOTO 110
200 FOR M = LOW TO HIGH: PRINT D$"READ MONSTER.MASTER,R";M: INPUT MN$
220 PRINT M". ";MN$
300 NEXT : PRINT D$"PR#0"