home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / U4-EDITOR-PLUS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  55 lines
  1. 10 REM ULTIMA IV--CHANGE # OF REAGENTS,                   FOOD, GOLD, & ITEMS
  2. 20 PRINT"ô":POKE53281,0:POKE53280,0:DIM TR(256)
  3. 30 PRINT"£INSERT BRITTANIA DISK AND PRESS RETURN..ææ"
  4. 40 GETA$:IFA$<>CHR$(13)THEN40
  5. 50 CLOSE15:CLOSE2:OPEN15,8,15,"I0:":CLOSE15:T$=""
  6. 60 OPEN15,8,15:OPEN2,8,2,"#":PRINT#15,"U1";2;0;18;0
  7. 70 PRINT#15,"B-P:";2;144:FORI=1TO16:GET#2,B$:T$=T$+B$:NEXT:CLOSE2:CLOSE15
  8. 80 IFMID$(T$,9,1)<>"C"THENPOKE53280,2:POKE53280,0:GOTO30
  9. 90 PRINT"ôREADING DISK.....PLEASE WAIT!"
  10. 100 OPEN15,8,15:OPEN2,8,2,"#":PRINT#15,"U1";2;0;14;1
  11. 110 FORI=0TO255:GET#2,A$:IFA$=""THENA$=CHR$(0)
  12. 120 TR(I)=ASC(A$):NEXT:CLOSE2:CLOSE15
  13. 130 N=TR(16):GOSUB500:FD$=N$:N=TR(17):GOSUB500:FD$=FD$+N$
  14. 140 N=TR(19):GOSUB500:GD$=N$:N=TR(20):GOSUB500:GD$=GD$+N$
  15. 150 FORJ=0TO7:N=TR(56+J):GOSUB500:RG$(J)=N$:RG(J)=VAL(N$):NEXT
  16. 151 FORJ=0TO3:N=TR(8+J):GOSUB500:I$(J)=N$:NEXT
  17. 160 PRINT"ôA-ûFOOD:";FD$:PRINT"B-ûGOLD:";GD$
  18. 170 RESTORE:FORI=0TO7:READRN$(I):NEXT:DATA SULFUR ASH,GINSENG,GARLIC,SPIDER SILK
  19. 180 DATA BLOOD MOSS,BLACK PEARL,NIGHTSHADE,MANDRAKE ROOT
  20. 190 PRINT"û":FORI=0TO7:PRINT"";CHR$(67+I);"-û";RN$(I)":";RG$(I);"û":NEXT
  21. 195 PRINT"K-ûTORCHES:";I$(0):PRINT"L-ûGEMS:";I$(1):PRINT"M-ûKEYS:";I$(2)
  22. 196 PRINT"N-ûSEXTANTS:";I$(3)
  23. 197 PRINT"O-ûSAVE":PRINT"P-ûQUIT WITHOUT SAVING"
  24. 200 PRINT"INPUT ITEM TO CHANGE---":POKE198,0
  25. 210 GETA$:IFA$<"A"ORA$>"P"THEN210
  26. 215 IF A$="P"THENPRINT"ô";    
  27. 216 IF A$="O"THEN 300
  28. 220 PRINT"æINPUT NEW VALUE          ¥¥¥¥¥¥¥¥¥¥";:INPUTNV$
  29. 230 IF A$>"B"THEN IF VAL(NV$)>99THEN GOTO 220
  30. 240 IF VAL(NV$)>9999THENGOTO 220
  31. 250 NV$="0000"+NV$:IFA$<"C"THENNV$=RIGHT$(NV$,4)
  32. 260 IFA$>"B"THENNV$=RIGHT$(NV$,2)
  33. 270 IF A$="A"THEN FD$=NV$
  34. 280 IF A$="B"THEN GD$=NV$
  35. 285 IF A$>"J"THENI$(ASC(A$)-75)=NV$:GOTO 295
  36. 290 IF A$>"B"THENRG$(ASC(A$)-67)=NV$
  37. 295 GOTO 160
  38. 300 PRINT"æARE YOU SURE?                    ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥";:INPUTA$
  39. 310 IF A$<>"Y"THEN 160
  40. 320 PRINT"ôSAVING ITEMS.....PLEASE WAIT!"
  41. 330 F1$=LEFT$(FD$,2):F2$=RIGHT$(FD$,2)
  42. 340 G1$=LEFT$(GD$,2):G2$=RIGHT$(GD$,2)
  43. 350 N$=F1$    
  44. 360 N$=G1$:GOSUB530:TR(19)=N:N$=G2$:GOSUB530:TR(20)=N
  45. 370 FORI=0TO7:N$=RG$(I):GOSUB530:TR(56+I)=N:NEXT
  46. 371 FORI=0TO3:N$=I$(I):GOSUB530:TR(8+I)=N:NEXT
  47. 380 OPEN15,8,15:OPEN2,8,2,"#":FORI=1TO255:PRINT#2,CHR$(TR(I));:NEXT
  48. 390 PRINT#2,CHR$(TR(0));:PRINT#15,"U2";2;0;14;1
  49. 400 CLOSE2:CLOSE15:PRINT"ôFINISHED!!!":END
  50. 500 REM CONVERT N TO BCD
  51. 510 N$="":FORI=1TO0STEP-1:IFN<16^ITHENN$=N$+"0":NEXT:RETURN
  52. 520 N%=N/16^I:N$=N$+CHR$(48+N%):N=N-16^I*N%:NEXT:RETURN
  53. 530 REM CONVERT BCD TO N
  54. 540 N=(ASC(MID$(N$,2,1))-48)+(ASC(MID$(N$,1,1))-48)*16:RETURN
  55.