home *** CD-ROM | disk | FTP | other *** search
/ ftp.elysium.pl / ftp.elysium.pl.tar / ftp.elysium.pl / docs / programming / tutorials / SCIBAX64.ZIP / scibax33.sfx / cset ripper / sx / sx.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-02-12  |  1.8 KB  |  59 lines
  1. 4 POKE808,234
  2. 5 Z=21:POKE53272,Z
  3. 10 PRINT"[147]":POKE53280,0:POKE53281,0
  4. 20 PRINT"[158]CSET RIPPER [156]V1.0 BY SHOCK XPRESS"
  5. 25 PRINT"WRITTEN [159]BY EVIL WIZARD"
  6. 30 PRINT:PRINT"INSTRUCTIONS"
  7. 40 PRINT"------------"
  8. 50 PRINT:PRINT"THIS CHARACTER SET RIPPER WILL RIP"
  9. 60 PRINT"CHARACTER SETS LOCATED AT THE FOLLOWING"
  10. 70 PRINT"LOCATIONS: [158]$2000, $2800, $3000, $3800"
  11. 75 PRINT:PRINT"FIRST LOAD THE GAME, DEMO OR WHATEVER"
  12. 76 PRINT"WITH THE CHARACTER SET TO RIP, THEN "
  13. 77 PRINT"RESET THE COMPUTER AND LOAD AND RUN "
  14. 78 PRINT"THIS PROGRAM."
  15. 80 PRINT:PRINT"THE SCREEN WILL BECOME NON-READABLE"
  16. 90 PRINT"WHEN THIS HAPPENS JUST PRESS SPACE BAR"
  17. 100 PRINT"UNTIL THE CHARACTER SET BECOMES VISIBLE"
  18. 110 PRINT"THEN PRESS [158]Y TO RIP AND SAVE THE CSET"
  19. 120 PRINT"TO YOUR DISK..."
  20. 130 PRINT:PRINT:PRINT"PRESS [158]<RETURN> TO RIP"
  21. 140 GETA$:IFA$=""THEN140
  22. 150 PRINT"[147]":PRINT"CSET RIPPER [154]V1.0 BY SHOCK XPRESS"
  23. 155 PRINT"WRITTEN [159]BY EVIL WIZARD":PRINT
  24. 160 PRINT:PRINT"[159]CHARACTER SET:":PRINT:FORF=48TO64:PRINTCHR$(F);:NEXTF:PRINT
  25. 170 FORF=65TO90:PRINTCHR$(F);:NEXTF:PRINT
  26. 175 PRINT"A[193]":PRINT"A[193]"
  27. 180 PRINT:PRINT:PRINT"PRESS Y TO RIP THIS CHARACTER SET"
  28. 190 PRINT:PRINT"PRESS SPACE TO CONTINUE..."
  29. 200 GETA$:IFA$=""THEN200
  30. 210 IFA$=" "THEN250
  31. 220 IFA$="Y"ORA$="[217]"THEN1000
  32. 230 GOTO200
  33. 250 IF Z=21 THEN Z=24:GOTO300
  34. 260 IF Z=24 THEN Z=26:GOTO300
  35. 270 IF Z=26 THEN Z=28:GOTO300
  36. 280 IF Z=28 THEN Z=30:GOTO300
  37. 290 IF Z=30 THEN Z=21
  38. 300 POKE53272,Z:GOTO200
  39. 1000 IFZ=21THEN1500
  40. 1005 PRINT:PRINT"THE CHARACTER SET WILL TAKE 9 BLOX."
  41. 1010 PRINT:PRINT"CHARACTER SET NAME";:INPUTN$
  42. 1020 PRINT:PRINT:PRINT"TO USE THIS CHARACTER SET"
  43. 1030 PRINT"LOAD IT UP AND POKE 53272,";Z
  44. 1050 IF Z=24 THEN A=32:B=40:GOTO1200
  45. 1060 IF Z=26 THEN A=40:B=48:GOTO1200
  46. 1070 IF Z=28 THEN A=48:B=56:GOTO1200
  47. 1080 IF Z=30 THEN A=56:B=64:GOTO1200
  48. 1200 POKE781,8:POKE782,0:SYS65466
  49. 1210 N$=LEFT$(N$,16)
  50. 1220 FORF=1TOLEN(N$):POKE49151+F,ASC(MID$(N$,F,1)):NEXTF:POKE780,LEN(N$)
  51. 1230 POKE781,0:POKE782,192:SYS65469
  52. 1240 POKE3,0:POKE4,A:POKE782,B:POKE780,3:POKE781,0:SYS62941
  53. 1250 NEW
  54. 1500 PRINT"[147]":PRINT:PRINT:PRINT"NO CHARACTER SET FOUND..."
  55. 1510 PRINT"EITHER THE CHARACTER SET IS NOT"
  56. 1520 PRINT"LOCATED AT ONE OF THE LOCATIONS"
  57. 1530 PRINT"SEARCHED OR IS SOMEPLACE ELSE."
  58. 1540 NEW
  59.