home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon_d.zip / STARTUP.BAS < prev    next >
BASIC Source File  |  1986-11-05  |  1KB  |  44 lines
  1. 1000 REM  Go on and Adventure
  2. 1001 REM
  3. 1010 CLS:PRINT:PRINT:PRINT:PRINT"Insert diskette with adventure in this drive then hit 'C' to continue."
  4. 1020 A$=INKEY$:IF A$="" THEN 1020
  5. 1021 IF A$<>"c" AND A$<>"C" THEN 1020
  6. 1030 PRINT
  7. 1040 OPEN"I",#1,"EAMON.NAM"
  8. 1041 INPUT#1,ADNAME$:INPUT#1,FINM$
  9. 1042 CLOSE#1
  10. 1050 CLS:PRINT:PRINT:PRINT:PRINT
  11. 1052 PRINT"You are about to adventure in ";ADNAME$:PRINT:PRINT
  12. 1060 OPEN "O",#1,"FRESHMEA.T"
  13. 1062 GOSUB 30000:PRINT#1,RC:PRINT#1,A$
  14. 1066 CLOSE#1
  15. 1068 RUN FINM$
  16. 1070 STOP
  17. 29990 REM
  18. 30000 REM SET UP CHARACTER INFO FOR DUNGEON
  19. 30010 REM
  20. 30100 INPUT "Enter your name or <RETURN> for 'You' ";CNAME$
  21. 30110 INPUT "Are you a guy or a gal ('M' or 'F')   ";SEX$
  22. 30120 IF CNAME$="" THEN CNAME$="You"
  23. 30130 IF SEX$<>"M" AND SEX$<>"F" THEN 30110
  24. 30140 '
  25. 30150 WNAME$(1)="SWORD"
  26. 30160 WTYPE(1)=4
  27. 30170 WODDS(1)=20
  28. 30180 WDICE(1)=1
  29. 30190 WSIDE(1)=6
  30. 30194 FOR I=2 TO 4
  31. 30195 WNAME$(I)="NONE"
  32. 30196 NEXT I
  33. 30200 '
  34. 30600 A$=CNAME$+","+STR$(18)+","+STR$(18)+","+STR$(18)+","
  35. 30610 FOR I=1 TO 4:A$=A$+STR$(100)+",":NEXT I
  36. 30620 FOR I=1 TO 5:A$=A$+STR$(40)+",":NEXT I
  37. 30630 A$=A$+STR$(50)+","+SEX$+","+STR$(1000)+","+STR$(1000)+","+STR$(3)
  38. 30640 FOR I=1 TO 4:A$=A$+","+WNAME$(I)+","
  39. 30650 A$=A$+STR$(WTYPE(I))+","+STR$(WODDS(I))+","
  40. 30660 A$=A$+STR$(WDICE(I))+","+STR$(WSIDE(I))
  41. 30670 NEXT I
  42. 30680 RETURN
  43. 
  44. 30650 A$=A$+STR$(WTYPE(I))+","+STR$(WODDS(I)