home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / S_AIDE.DOC.ARC / EDITOR.DOC (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.9 KB  |  100 lines
  1. 99 POKE45,130:POKE46,031:CLR:POKE53265,PEEK(53265)AND239
  2. 100 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 101 PRINT"[159][176]``````````````````````````````````````[174]}[181][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCUME";
  4. 102 PRINT"NTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]sCREEN";
  5. 103 PRINT"EDITORISAMODIFICATIONOFAN[159]}}[153]EXCELLENTPUBLICDOMAINPROGRAM.nOW";
  6. 104 PRINT",[159]}}[153]HOWEVER,SEVERALTHINGSWORKABIT[159]}}[153]DIFFERENTLY.fIRST,SCRE";
  7. 105 PRINT"ENSCROLLING[159]}}[153]ISDISABLEDWITHONLYONEEXCEPTION.[159]}}[153]iNSERTMODEW";
  8. 106 PRINT"ILLSTILLFUNCTION.tHIS[159]}}[153]CANCAUSEANINADVERTANTSCREENSCROLL[159]}}[153]D";
  9. 107 PRINT"OWN,DESTROYINGPARTOFTHESCREEN[159]}}[153]BEINGWORKEDON.wECONSIDERE";
  10. 108 PRINT"DITA[159]}}[153]WORTHWHILETRADEOFFTOBEABLETOKEEP[159]}}[153]INSERTINGANDDELET";
  11. 109 PRINT"ING--BUTBECARE-[159]}}[153]FUL.tHELOWERRIGHTCORNEROFTHE[159]}}[153]SCREEN";
  12. 110 PRINT"ISALSONOTCORRECTLYHANDLED[159]}}[153]INDIRECTMODE.tHEREASONISBECAUS";
  13. 111 PRINT"E[159]}}[153]THELOWERRIGHTCORNEROFANYSCREEN[159]}}[153]NORMALLYDISPLAYEDMUSTH";
  14. 112 PRINT"AVETHEPOKE[159]}}[153]VALUEPUTINSCREENramANDTHECHAR-[159]}}[153]ACTERCOLORP";
  15. 113 PRINT"OKEDINTOTHECORRESPOND-[159]}}[153]INGCOLORram.iFTHISISNOTDONE,AN[159]}[171]``";
  16. 114 PRINT"````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE1[159]}[155]rETUR";
  17. 115 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  18. 116 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 117 GOSUB50000
  20. 199 POKE53265,PEEK(53265)AND239:CLR
  21. 200 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 201 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 202 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]UNDES";
  24. 203 PRINT"IRABLESCREENSCROLLWILLOCCUR[159]}}[153]DURINGPROGRAMEXECUTION.tHEsCR";
  25. 204 PRINT"EEN[159]}}[153]eDITORMAYALSOBEACCESSEDDURINGAN[159]}}[153]ACTUALPROGRAMRUNTOS";
  26. 205 PRINT"NITCHALOW-RES[159]}}[153]SCREENFORUSEELSEWHEREORFORMODI-[159]}}[153]FICATION.b";
  27. 206 PRINT"eawareTHATIFYOUENTER[159]}}[153]THEEDITORINTHISMANNER,THELOWER[159]}}";
  28. 207 PRINT"[153]RIGHTCORNEROFTHESCREENWILLBERE-[159]}}[153]PRODUCEDINTHEPRINTSTATEME";
  29. 208 PRINT"NTS.tHE[159]}}[153]LASTCHARACTERMUSTBEDELETEDANDTHE[159]}}[153]PROPERpokeSUSED";
  30. 209 PRINT".wHENTHEEDITORIS[159]}}[153]ACCESSED,AHELPSCREENISDISPLAYED.[159]}}[153]fUNCT";
  31. 210 PRINT"IONKEY7(F7)TOGGLESBETWEEN[159]}}[153]THEHELPSCREENANDTHESCREENYOU";
  32. 211 PRINT"ARE[159]}}[153]CREATING.aLLOTHERCOMMANDSMUSTBE[159]}}[153]EXECUTEDFROMTHEWORK";
  33. 212 PRINT"SCREEN.tHEF2[159]}}[153]KEYWILLCOMPILEAbasicPROGRAMTHAT[159]}}[153]REPLACESA";
  34. 213 PRINT"NYRESIDENTbasicPROGRAM[159]}}[153]ALREADYINMEMORY.tHEUTILITYISALSO[159]}[171]";
  35. 214 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE2[159]}[155]rET";
  36. 215 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  37. 216 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 217 GOSUB50000
  39. 299 POKE53265,PEEK(53265)AND239:CLR
  40. 300 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 301 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  42. 302 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]EXITE";
  43. 303 PRINT"DWHENTHISOPTIONISSELECTED.[159]}}[153]tHEF1ANDF3KEYSWILLCHANGEBOR";
  44. 304 PRINT"DER[159]}}[153]ANDBACKGROUNDCOLORSRESPECTIVELY.iN[159]}}[153]ADDITION,THENORMALsU";
  45. 305 PRINT"PERaIDECOLOR[159]}}[153]CHANGEROUTINESWILLALSOWORK.tEXT[159]}}[153]COLORCANB";
  46. 306 PRINT"ECHANGEDBYctrl/commodore[159]}}[153]KEYPRESSESFOLLOWEDBYACOLORKEYOR[159]}}";
  47. 307 PRINT"[153]BYUSINGTHEREGULARsUPERaIDECOLOR[159]}}[153]CHANGEROUTINE.pRESSINGF8W";
  48. 308 PRINT"ILLEXIT[159][221][221][153]TOTHE[194][193][211][201][195]MODEWITHOUTCREATINGTHE[159][221][221][153]NEW[194][193][211][201][195]PROGRAM";
  49. 309 PRINT".tHESCREENYOUARE[159]}}[153]WORKINGONWILLBELOST.tHISVERSION[159]}}[153]OFTH";
  50. 310 PRINT"ESCREENEDITORWILLWORKONLY[159]}}[153]WITHsUPERaIDE.tHEORIGINALPROG";
  51. 311 PRINT"RAM[159]}}[153]APPEARSONtpugDISK#507.tHISEDITOR[159]}}[153]ISAveryUSEFULTOOLI";
  52. 312 PRINT"NCREATINGCOM-[159]}}[153]PLICATEDSCREENSEASILY.aLLLO-RES[159]}}[153]SCREENSIN";
  53. 313 PRINT"sUPERaIDEWERECREATED[159]}}[153]USINGTHISEDITOR.[159]}[171]";
  54. 314 PRINT"``````````````[178]````````[178]``````````````[179]}[155]sCREENeDITOR[159]}[154]pAGE3[159]}[155]rET";
  55. 315 PRINT"URN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  56. 316 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 317 GOSUB50000
  58. 9500 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  59. 9501 POKE53265,PEEK(53265)AND239
  60. 9502 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  61. 9503 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  62. 9504 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  63. 9505 PRINT"}}[153]dOYOUWISHTO:";
  64. 9506 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  65. 9507 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  66. 9508 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  67. 9509 PRINT"[173]````````````````````````[189]}}";
  68. 9510 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  69. 9511 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  70. 9512 PRINT"}}}}";
  71. 9513 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  72. 9514 PRINT"}}}}";
  73. 9515 PRINT"}}}[171]``````````````[178]```````";
  74. 9516 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][211]CREEN  [197]DITOR[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#6[159][221][173][192][192][192][192][192][192][192][192]";
  75. 9517 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  76. 9518 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  77. 9519 GETW$
  78. 9520 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  79. 9521 FORX=1066TO1070:POKEX,PO:NEXTX
  80. 9522 FORX=1097TO1101:POKEX,PO:NEXTX
  81. 9523 IFW$=""THEN9519
  82. 9524 IFW$=CHR$(13)THENGOTO9531
  83. 9525 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN9527
  84. 9526 GOTO9519
  85. 9527 CO=CO+1:IFCO>2THENCO=1
  86. 9528 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  87. 9529 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  88. 9530 GOTO9519
  89. 9531 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  90. 9532 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  91. 9533 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  92. 9534 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  93. 9535 LOAD"DOC.DRIVER",8
  94. 50000 GETW$
  95. 50001 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  96. 50002 FORX=1066TO1070:POKEX,PO:NEXTX
  97. 50003 FORX=1097TO1101:POKEX,PO:NEXTX
  98. 50004 IFW$=""THEN50000
  99. 50005 RETURN
  100.