home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh79b.d64 / edi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  99 lines
  1. 10 IFPEEK(2)<>222THENPRINT"[147]   BITTE ERST BOOT-PROGRAMM LADEN...":NEW
  2. 20 IFAS<>0THEN90
  3. 30 CLR:POKE53280,0:POKE53281,0:PRINT"[147][158]           TYGUS HORX EDITOR"
  4. 40 PRINT"       (W) BY TOBIAS HOFMANN IN 1991"
  5. 50 PRINT"       (C) BY 64'ER IN 1991"
  6. 60 INPUT"CHARAKTER-NAME ";N$
  7. 70 NA$="_"+N$+"*":NB$=N$
  8. 80 AS=1:LOADNA$,8,1
  9. 90 PRINT"[147]ST----------->";:INPUTIN$:SR=VAL(IN$)
  10. 100 IFSR>255THENSR=255
  11. 110 PRINT:PRINT"IQ----------->";:INPUTIN$:IQ=VAL(IN$)
  12. 120 IFIQ>255THENIQ=255
  13. 130 PRINT:PRINT"DX----------->";:INPUTIN$:DX=VAL(IN$)
  14. 140 IFDX>255THENDX=255
  15. 150 PRINT:PRINT"CN----------->";:INPUTIN$:CN=VAL(IN$)
  16. 160 IFCN>255THENCN=255
  17. 170 PRINT:PRINT"LK----------->";:INPUTIN$:LK=VAL(IN$)
  18. 180 IFLK>255THENLK=255
  19. 190 PRINT:PRINT"HITS--------->";:INPUTHI$:IFLEN(HI$)>4THENHI$=RIGHT$(HI$,4)
  20. 200 PRINT:PRINT"COND--------->";:INPUTCO$:IFLEN(CO$)>4THENCO$=RIGHT$(CO$,4)
  21. 210 PRINT:PRINT"SPPT--------->";:INPUTSP$:IFLEN(SP$)>4THENSP$=RIGHT$(SP$,4)
  22. 220 PRINT:PRINT"MSPP--------->";:INPUTMS$:IFLEN(MS$)>4THENMS$=RIGHT$(MS$,4)
  23. 230 PRINT:PRINT"EXPERIENCE--->";:INPUTEX$:IFLEN(EX$)>10THENEX$=RIGHT$(EX$,10)
  24. 240 PRINT:PRINT"GOLDPIECES--->";:INPUTGL$:IFLEN(GL$)>10THENGL$=RIGHT$(GL$,10)
  25. 250 PRINT:PRINT"LEVEL-------->";:INPUTLE$:IFLEN(LE$)>3THENLE$=RIGHT$(LE$,3)
  26. 260 PRINT"[147]RACE (+,- FOR CHOOSE, RETURN TO GO ON):"
  27. 270 RA=PEEK(4698):DIMRA$(6)
  28. 280 FORI=0TO6:READRA$(I):NEXT
  29. 290 DATA"HUMAN","ELF","DWARF","HOBBIT","HALF-ELF","HALF-ORC","GNOME"
  30. 300 ZE=1:SP=0:GOSUB980:PRINT"        [157][157][157][157][157][157][157][157]"RA$(RA)
  31. 310 GETA$:IFA$=""THEN310
  32. 320 IFA$="+"THENRA=RA+1+7*(RA=6):GOTO300
  33. 330 IFA$="-"THENRA=RA-1-7*(RA=0):GOTO300
  34. 340 IFA$<>CHR$(13)THEN310
  35. 350 PRINT"[147]CLASS (+,- FOR CHOOSE, RETURN TO GO ON)"
  36. 360 CL=PEEK(4699):DIMCL$(4)
  37. 370 FORI=0TO4:READCL$(I):NEXT
  38. 380 DATA"WARRIOR","CONJUROR","MAGICIAN","ROGUE","PALADIN"
  39. 390 GOSUB980:PRINT"        [157][157][157][157][157][157][157][157]"CL$(CL)
  40. 400 GETA$:IFA$=""THEN400
  41. 410 IFA$="+"THENCL=CL+1+5*(CL=4):GOTO390
  42. 420 IFA$="-"THENCL=CL-1-5*(CL=0):GOTO390
  43. 430 IFA$<>CHR$(13)THEN400
  44. 440 PRINT"[147]CONJUROR SPELL LEVEL:"
  45. 450 GETCN$:IFCN$<"0"ORCN$>"6"THEN450
  46. 460 PRINT"[147]MAGICIAN SPELL LEVEL:"
  47. 470 GETMA$:IFMA$<"0"ORMA$>"6"THEN470
  48. 480 PRINT"[147]WIZARD   SPELL LEVEL:"
  49. 490 GETWI$:IFWI$<"0"ORWI$>"6"THEN490
  50. 500 DIMEQ$(63):FORI=0TO63:READEQ$(I):NEXT
  51. 510 DATA"--","TORCH","DAGGER","AXE","MACE","STAFF","SHORTSWORD"
  52. 520 DATA"LEATHER GLOVES"
  53. 530 DATA"LEATHER ARMOUR","HELM","IRON GLOVES","IRON HELM","IRON ARMOUR"
  54. 540 DATA"IRON SHIELD","IRON SCALE","IRON PLATE","IRON SWORD","IRON DAGGER"
  55. 550 DATA"IRON AXE","IRON MACE","BRONZE GLOVES","BRONZE HELM","BRONZE ARMOUR"
  56. 560 DATA"BRONZE SHIELD","BRONZE SCALE","BRONZE PLATE","BRONZE SWORD"
  57. 570 DATA"BRONZE DAGGER","BRONZE AXE","BRONZE MACE","SILVER GLOVES"
  58. 580 DATA"SILVER HELM"
  59. 590 DATA"SILVER ARMOUR","SILVER SHIELD","SILVER SCALE","SILVER PLATE"
  60. 600 DATA"SILVER SWORD","SILVER DAGGER","SILVER AXE","SILVER MACE","GOLD GLOVES"
  61. 610 DATA"GOLD HELM","GOLD ARMOUR","GOLD SHIELD","GOLD SCALE","GOLD PLATE"
  62. 620 DATA"GOLD SWORD","GOLD DAGGER","GOLD AXE","GOLD MACE","SHIELDRING"
  63. 630 DATA"SWORD OF KRII","MAGEHELM","HAMMER OF OX","MALU'S AXE","MAGESHIELD"
  64. 640 DATA"LANCE OF UFEM","MAGEGLOVES","SMALL KEY","RED KEY","GREEN KEY"
  65. 650 DATA"BLUE KEY"
  66. 660 DATA"YELLOW KEY","RAINBOW STAR"
  67. 670 PRINT"[147]EQUIPMENT (+/-:CHOOSE, RETURN:GO ON)":DIMEQ(7)
  68. 680 FORI=0TO7
  69. 690 EQ(I)=PEEK(4728+I)
  70. 700 ZE=I+1:SP=0:GOSUB980:POKE780,I+1:SYS59903:PRINTEQ$(EQ(I))
  71. 710 GETA$:IFA$=""THEN710
  72. 720 IFA$="+"THENEQ(I)=EQ(I)+1+64*(EQ(I)=63):GOTO700
  73. 730 IFA$="-"THENEQ(I)=EQ(I)-1-64*(EQ(I)=0):GOTO700
  74. 740 IFA$=CHR$(13)THEN760
  75. 750 GOTO710
  76. 760 NEXT
  77. 770 POKE4703,SR:POKE4704,IQ:POKE4705,DX:POKE4706,CN:POKE4707,LK:POKE4698,RA
  78. 780 POKE4699,CL
  79. 790 A$=HI$:A=4:GOSUB960:FORI=0TO3:POKE4682+I,VAL(MID$(A$,I+1,1))+176:NEXT
  80. 800 A$=CO$:A=4:GOSUB960:FORI=0TO3:POKE4686+I,VAL(MID$(A$,I+1,1))+176:NEXT
  81. 810 A$=SP$:A=4:GOSUB960:FORI=0TO3:POKE4690+I,VAL(MID$(A$,I+1,1))+176:NEXT
  82. 820 A$=MS$:A=4:GOSUB960:FORI=0TO3:POKE4694+I,VAL(MID$(A$,I+1,1))+176:NEXT
  83. 830 A$=LE$:A=3:GOSUB960:FORI=0TO2:POKE4700+I,VAL(MID$(A$,I+1,1))+176:NEXT
  84. 840 A$=EX$:A=10:GOSUB960:FORI=0TO9:POKE4708+I,VAL(MID$(A$,I+1,1))+176:NEXT
  85. 850 A$=GL$:A=10:GOSUB960:FORI=0TO9:POKE4718+I,VAL(MID$(A$,I+1,1))+176:NEXT
  86. 860 POKE4745,VAL(CN$):POKE4746,VAL(MA$):POKE4747,VAL(WI$)
  87. 870 FORI=0TO7:POKE4728+I,EQ(I):NEXT
  88. 880 FORI=1TO10-LEN(NB$):NB$=NB$+" ":NEXT
  89. 890 OPEN1,8,15,"S:"+NB$:CLOSE1
  90. 900 SYS(57812)"_"+NB$,8
  91. 910 POKE174,160:POKE175,18:POKE193,64:POKE194,18:SYS62957
  92. 920 PRINT"[147]NOCH EIN CHARAKTER ???(J/N)"
  93. 930 GETA$:IFA$=""THEN930
  94. 940 IFA$="N"THENSYS64738
  95. 950 GOTO30
  96. 960 IFLEN(A$)=ATHENRETURN
  97. 970 A$=RIGHT$("0000000000"+MID$(A$,1),A):RETURN
  98. 980 POKE211,SP:POKE214,ZE:SYS58640:RETURN
  99.