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"