home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / SUPERWRITER-V3.0 / SUPERWRITER-V3.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  49.9 KB  |  79 lines
  1. 0 POKE45,11:POKE46,18:CLR
  2. 2 POKE53280,0:POKE53281,0:S=54296:POKE52,142:POKE51,255:GOTO80
  3. 3 PRINT"[147]      DIRTY DEN OF THE EASTENDERS"
  4. 4 PRINT"[154]       PRESENTS SUPERWRITER V3.0"
  5. 5 PRINT"  [159]UPGRADED AND COMPACTED BY DIRTY DEN"
  6. 6 PRINT"    [154]      (C) EASTENDERS 1987":RETURN
  7. 8 GOSUB3:PRINT" CHOOSE A TUNE... (RETURN TO CONTINUE)"
  8. 10 PRINT"[151]   A..MY LAST SIG"
  9. 11 PRINT"[152]    B..PASSING EVIL"
  10. 12 PRINT"[155]     C..HALF OF FUNKY"
  11. 13 PRINT"      D..LA FEMME CHINOISE"
  12. 14 PRINT"[155]       E..HUBBARDS LAMENT"
  13. 15 PRINT"[152]        F..STICK IT!!!"
  14. 16 PRINT"[151]         G..COFFEE BREAK"
  15. 17 PRINT"[152]          H..ARK PANDORA 1"
  16. 18 PRINT"[155]           I..ARK PANDORA 2"
  17. 19 PRINT"            J..DR WHO"
  18. 21 PRINT"[155]             K..GALACTIC STRANGER"
  19. 22 PRINT"[152]              L..EGG RACE"
  20. 23 PRINT"[151]               M..PIE TREE"
  21. 24 POKE198,0:WAIT198,1:GETA$:IF(A$<"A"ORA$>"M")ANDA$<>CHR$(13)THEN24
  22. 25 IFA$=CHR$(13)THENRETURN
  23. 26 A=ASC(A$)-65:POKE250,0:POKE251,64+(A*6):SYS51000:GOTO24
  24. 30 GOSUB3:PRINT" CHOOSE A FONT... (RETURN TO CONTINUE)"
  25. 31 PRINT"[151]   A..DRUID SET"
  26. 32 PRINT"[152]    B..RALLY SPEEDWAY"
  27. 33 PRINT"[155]     C..APSHAI TRILOGY"
  28. 34 PRINT"      D..HOLLOW SET"
  29. 35 PRINT"[155]       E..TRANSFORMERS"
  30. 36 PRINT"[152]        F..CAD 64"
  31. 37 PRINT"[151]         G..ZOIDS"
  32. 38 PRINT"[152]          H..KINGDOM"
  33. 39 PRINT"[155]           I..FOREST OF DOOM"
  34. 40 PRINT"            J..KARATE II"
  35. 41 PRINT"[155]             K..FUNKY DRUMMER"
  36. 42 PRINT"[152]              L..GREEN BERET"
  37. 43 PRINT"[151]               M..ELIDON"
  38. 49 SYS49152:POKE53272,27
  39. 50 POKE198,0:WAIT198,1:GETA$:IF(A$<"A"ORA$>"M")ANDA$<>CHR$(13)THEN50
  40. 51 IFA$=CHR$(13)THENRETURN
  41. 52 A=ASC(A$)-65:POKE49210,160+(A*2):POKE49226,161+(A*2):SYS49152:GOTO50
  42. 80 GOSUB30:GOSUB8:SYS49248:POKE2250,0:POKE251,144:SYS51000:SYS49328:P=FRE(0)
  43. 530 FORT=11520TO11527:POKET,255:NEXT
  44. 600 PRINT"[147][158]           COMMAND SUMMARY":PRINT"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  45. 602 PRINT"[153] F1/F3/F5/F7 - SPEED (F1-SLOW, F7-FAST)"
  46. 603 PRINT" F2          - 1 PAUSE"
  47. 604 PRINT" F4          - 5 PAUSES"
  48. 605 PRINT" F6          - 25 PAUSES"
  49. 606 PRINT"[159] F8 (TWICE)  - SAVE PROGRAM"
  50. 608 PRINT"    REVERSE CHARS 0-9 PRODUCE SCROLLS."
  51. 609 PRINT"       I.E. [RVS ON]0,1,2,3,4 ETC."
  52. 620 PRINT"         CURSOR SOUND (Y/N)";:POKE204,0
  53. 630 POKE198,0:WAIT198,1:GETZ$:IFZ$<>"Y"ANDZ$<>"N"THEN630
  54. 640 IFZ$="N"THENPOKE53069,32:POKE53070,208
  55. 650 POKE204,1
  56. 680 X=0:PRINT"[147]";:POKE650,0:B=53280
  57. 690 SYS49281
  58. 700 IFSF=2THENPOKE12288+X,0:GOTO860
  59. 710 GETA$:IFA$=""THEN690
  60. 720 IFA$="[133]"THENA=255:POKEB,00:GOTO820
  61. 730 IFA$="[134]"THENA=254:POKEB,11:GOTO820
  62. 740 IFA$="[135]"THENA=253:POKEB,12:GOTO820
  63. 750 IFA$="[136]"THENA=252:POKEB,15:GOTO820
  64. 760 IFA$="[137]"THENA=251:GOTO820
  65. 770 IFA$="[138]"THENA=250:GOTO820
  66. 780 IFA$="[139]"THENA=249:GOTO820
  67. 790 IFA$="[140]"THENSF=SF+1:GOTO690
  68. 800 A=ASC(A$)
  69. 810 PRINTA$;
  70. 820 POKE12288+X,A
  71. 830 X=X+1:SF=0
  72. 850 P=FRE(0):GOTO690
  73. 860 SYS65371:SYS64789:POKES,0:POKEB,0:POKEB+1,0
  74. 870 X=X+12289
  75. 890 POKE53272,21:POKEB,0:PRINT"[147]":POKE19,3:PRINT"[157]"X-12289"BYTES OF TEXT."
  76. 900 OPEN15,8,15,"I":CLOSE15:P=FRE(0)
  77. 901 X1=((X/256)AND255):X2=X-(X1*256)
  78. 902 POKE49523,X2:POKE49525,X1-16:CLR:SYS49408
  79.