Source:Test Bench

This page is a verbatim reproduction of original source material and should not be edited except for maintenance.
Description	The source code of the Eamon utility program Test Bench. (See also Source:Advanced Bench)
Source	EAG Utilities Disk
Date	29 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     TEST BENCH
2  REM    BY JOHN NELSON
3  REM 
4  REM 
7  REM  2-29-84
10 DK$ =  CHR$ (4)
100  HOME : PRINT "DO YOU WANT TO USE DEFAULTS?";
150  GET A$: IF A$ <  > "N" AND A$ <  > "Y" THEN 150
200  PRINT A$: IF A$ = "Y" THEN HD = 18:AG = 18:CH = 18:HE = 40:SP = 40: GOTO 5000
250  INPUT "HARDINESS:";HD: INPUT "AGILITY:";AG: INPUT "CHARISMA:";CH
450  INPUT "BLAST ABIL:";BL: INPUT "HEAL ABIL:";HE: INPUT "SPEED ABIL:";SP: INPUT "POWER:";POW
500 WA%(1) = 15:WA%(2) = 0:WA%(3) = 30:WA%(4) = 10:WA%(5) = 20
600  INPUT "ARMOUR:";AC
5000  REM  === GO ON ADVENTURE ===
14550  HOME : VTAB 5: PRINT "INSERT ADVENTURE TO TEST AND PRESS ANY": PRINT : PRINT "          KEY TO CONTINUE"
14560  GET A$: PRINT : PRINT DK$;"OPEN FRESH MEAT": PRINT DK$;"WRITE FRESH MEAT"
14570  PRINT  - 1: PRINT "TESTOR OF BENCH": PRINT HD: PRINT AG: PRINT CH: PRINT BL: PRINT HE: PRINT SP: PRINT PO: FOR X = 1 TO 5: PRINT WA%(X): NEXT 
14580  PRINT 15: PRINT "M": PRINT 2000: PRINT 1300: PRINT 4: PRINT "AXE": PRINT 1: PRINT 10: PRINT 1: PRINT 6: PRINT "BOW": PRINT 2: PRINT 10: PRINT 1: PRINT 5: PRINT "MACE": PRINT 3: PRINT 10: PRINT 1: PRINT 4: PRINT "SWORD": PRINT 5: PRINT 10: PRINT 1: PRINT 8
14590  PRINT DK$"CLOSE": PRINT DK$"OPEN EAMON.NAME": PRINT DK$"READ EAMON.NAME": INPUT AD$: PRINT DK$"CLOSE"
14600  PRINT DK$"RUN ";AD$