Source:Fresh Sam
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 | |
|---|---|
| Source | |
| Date | |
| Author |
Tom Zuchowski (?) |
| License |
The use of this item is permitted on the grounds that it's free or in the public domain. |
10 DK$ = CHR$ (4)
100 NAME$ = "SAM":HD = 24:AG = 18:CH = 24: FOR X = 1 TO 4: READ SA%(X): NEXT : FOR X = 1 TO 5: READ WA%(X): NEXT :AE = 25:SE$ = "M"
110 GO = 52647:BA = 200000:AC = 5: FOR W = 1 TO 4: READ WNAME$(W): READ WTYPE%(W): READ WOODS%(W): READ WDICE%(W): READ WSIDES%(W): NEXT W
120 GOTO 1000
200 PRINT NAME$: PRINT HD: PRINT AG: PRINT CH: FOR X = 1 TO 4: PRINT SA%(X): NEXT : FOR X = 1 TO 5: PRINT WA%(X): NEXT : PRINT AE: PRINT SEX$
210 PRINT GOLD: PRINT BANK: PRINT AC: FOR W = 1 TO 4: PRINT WNAME$(W): PRINT WTYPE%(W): PRINT WOODS%(W): PRINT WDICE%(W): PRINT WSIDES%(W): NEXT W
220 RETURN
1000 REM
1010 HOME : VTAB 5: PRINT "INSERT ADVENTURE DISKETTE IN DRIVE ONE THEN HIT 'C' ";: POKE - 16368,0
1020 GET A$: IF A$ < > "C" THEN 1020
1030 PRINT
1040 PRINT DK$;"OPEN EAMON.NAME,D1": PRINT DK$;"READ EAMON.NAME": INPUT ADNAME$: PRINT DK$;"CLOSE"
1050 HOME : VTAB 5: PRINT "YOU ARE ABOUT TO ADVENTURE IN": PRINT : INVERSE : PRINT ADNAME$: NORMAL : PRINT : PRINT
1060 PRINT DK$;"OPEN FRESH MEAT": PRINT DK$;"WRITE FRESH MEAT": PRINT REC: GOSUB 200: PRINT DK$;"CLOSE": PRINT DK$;"RUN ";ADNAME$
10000 DATA 65,168,63,122
10005 DATA 39,0,36,34,67
10010 DATA CRYSTAL SWORD,5,60,10,2
10020 DATA SWORD,5,10,5,4
10030 DATA STARFIRE,5,80,10,6
10040 DATA DRUINVAL,5,30,4,8