home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DOSIT54.ARC / TS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  195 lines

  1. 5 PRINT"[147]":POKE53265,27:   GOTO15
  2. 10 SYS51119:W$=CHR$(PEEK(3))+CHR$(PEEK(4)):RETURN
  3. 15 IFPEEK(51603)<>96THENLOAD"4.0 ASM/MONITOR*",8,1
  4. 20 DIMC$(18),M$(14):DATA"","[157]","","[145]","",+,-,@,W,T,R,J,B,M,I,O,X," "
  5. 25 FORC=1TO18:READC$(C):NEXT:N=14:FORC=1TON:READM$(C):NEXT:SD$="0"
  6. 30 T$="                                       ":P=1305:T=18:S=0:GOSUB825
  7. 35 GETA$:IFA$="R"THEN345
  8. 40 IFA$="I"THEN665
  9. 41 IFA$="Z" THEN GOTO920
  10. 45 IFA$=" "ORA$="E"THENGOTO915
  11. 50 GOTO35
  12. 55 TI$="000000"
  13. 60 Q1=Q1+128:IFQ1>255THENQ1=Q1-256
  14. 65 POKEP,Q1:FORC=1TO25:GETA$:                          :IFA$<>""THEN79
  15. 66 IFA$="Z"THENGOTO920
  16. 70 IFTI>500THENGOSUB535:GOTO60
  17. 75 NEXT:GOTO60
  18. 79 IFA$="Z"THEN920
  19. 80 IFTI>500THENPRINT""T$;:POKE2023,32
  20. 85 TI$="000000":I=0:FORC=1TO18:IFA$<>C$(C)THENNEXT:GOTO60
  21. 90 POKEP,Q
  22. 95 ONCGOTO100,125,145,165,185,330,365,215,225,265,345,380,630,650,665,695,795,910
  23. 100 REM ** CURSOR RIGHT **
  24. 105 D=37:IFY=6THEND=27
  25. 110 IFX<DTHENX=X+1:GOTO200
  26. 115 IFX=DTHENX=0:IFY<6THENY=Y+1:GOTO200
  27. 120 Y=0:GOTO200
  28. 125 REM ** CURSOR LEFT **
  29. 130 IFX>0THENX=X-1:GOTO200
  30. 135 X=37:IFY>0THENY=Y-1:GOTO200
  31. 140 X=27:Y=6:GOTO200
  32. 145 REM ** CURSOR DOWN **
  33. 150 D=6:IFX>27THEND=5
  34. 155 IFY<DTHENY=Y+1:GOTO200
  35. 160 Y=0:GOTO200
  36. 165 REM ** CURSOR UP **
  37. 170 D=6:IFX>27THEND=5
  38. 175 IFY>0THENY=Y-1:GOTO200
  39. 180 Y=D:GOTO200
  40. 185 REM ** CURSOR HOME **
  41. 190 X=0:Y=0
  42. 195 REM
  43. 200 POKEP,Q:P=1305+Y*40+X:Q=PEEK(P):Q1=Q
  44. 205 P1=Y*38+X:POKE2,P1:GOSUB10:PRINT"[159]"TAB(18)"$"W$
  45. 210 POKE2,Q:GOSUB10:PRINTTAB(28)"[145]$"W$:GOTO55
  46. 215 REM ** CHANGE BYTE **
  47. 220 PRINT""TAB(28)"";:V=Q:L=2:GOSUB410:Q=V:GOTO200
  48. 225 REM ** REWRITE BLOCK **
  49. 230 IFOPTHEN55
  50. 235 GOSUB790:PRINT""TAB(10)"[193]RE [217]OU [211][213][210][197] ([158][217][146]/[158][206][146]) [164][157]";
  51. 240 GETA$:IFA$="N"THENPRINTA$:GOTO300
  52. 245 IFA$<>"Y"THEN240
  53. 250 PRINTA$:OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"B-P:5,0"
  54. 255 SYS50927:PRINT#15,"U2:5,"SD$;T;S:INPUT#15,A$,B$,C$,D$:IFVAL(A$)<>0THEN515
  55. 260 PRINT#15,"I":CLOSE5:CLOSE15:GOTO300
  56. 265 REM ** TEXT MODE **
  57. 270 GOSUB790:PRINT""TAB(6)"([200]IT [210][197][212][213][210][206] TO END [212]EXT [205]ODE)[158]"
  58. 275 Q1=Q1+128:IFQ1>255THENQ1=Q1-256
  59. 280 POKEP,Q1:FORC=1TO55:GETA$:IFA$<>""THEN290
  60. 285 NEXT:GOTO275
  61. 290 IFA$<>CHR$(13)THEN305
  62. 295 POKEP,Q
  63. 300 GOSUB780:GOTO200
  64. 305 POKEP,ASC(A$):D=37:IFY=6THEND=27
  65. 310 IFX<DTHENX=X+1:GOTO325
  66. 315 IFX=DTHENX=0:IFY<6THENY=Y+1:GOTO325
  67. 320 Y=0
  68. 325 P=1305+Y*40+X:Q=PEEK(P):Q1=Q:GOTO275
  69. 330 REM ** FORWARD 1 BLOCK **
  70. 335 GOSUB790:IFOPTHENMB=MB+1:SYS50889:GOTO675
  71. 340 S=S+1:GOTO500
  72. 345 REM ** NEW BLOCK **
  73. 350 GOSUB790:OP=0:SYS50889:PRINT""TAB(10)"[212][210][193][195][203]:    [211][197][195][212][207][210]:   "
  74. 355 PRINT""TAB(17)"";:V=T:L=1:GOSUB410:T=V
  75. 360 PRINTTAB(28);:V=S:L=1:GOSUB410:S=V:OPEN1,8,15:PRINT#1,"I"SD$:CLOSE1:GOTO500
  76. 365 REM ** BACKWARD 1 BLOCK **
  77. 370 GOSUB790:IFOPTHENMB=MB-1:SYS50889:GOTO675
  78. 375 S=S-1:GOTO500
  79. 380 REM ** JUMP LINK **
  80. 385 IFOPTHEN55
  81. 390 GOSUB790:T=PEEK(P):D=37:IFY=6THEND=27:IFX=DTHENS=PEEK(1305):GOTO500
  82. 395 IFX=DTHENS=PEEK(P+3):GOTO500
  83. 400 S=PEEK(P+1):GOTO500
  84. 405 REM
  85. 410 PRINTLEFT$("[159]    ",L+3);LEFT$("[157][157][157][157]",L+2);:FORC=0TO1:T$(C)="":NEXT:W=0:V1=0
  86. 415 PRINT"[146]";:F=NOTF:IFFTHENPRINT"";
  87. 420 PRINT" [157]";:FORC=1TO55:GETA$:IFA$<>""THENPRINT"[146] [157]";:GOTO430
  88. 425 NEXT:GOTO415
  89. 430 IFA$=CHR$(20)THENIFW>0THENPRINT"[157] [157]";:W=W-1:T$(W)=""
  90. 435 IFA$=CHR$(13)ORA$="E"THEN950
  91. 440 IFA$="$"ANDW=0THEN460
  92. 445 IF(A$<"0"ORA$>"9")AND(A$<"A"ORA$>"F")THEN415
  93. 450 IFA$>"@"THENA$=CHR$(ASC(A$)+128)
  94. 455 IFW>LTHEN415
  95. 460 T$(W)=A$:W=W+1:PRINT"[146]"A$;:GOTO415
  96. 465 IFT$(0)=""THENRETURN
  97. 470 V=0:L=0:IFT$(0)="$"THENT$(0)="":L=-1
  98. 475 A$="":FORC=0TOW-1:A$=A$+T$(C):NEXT:A$=RIGHT$("0000"+A$,5):IFLTHEN485
  99. 480 FORC=0TO3:V=V+(10^C)*VAL(MID$(A$,5-C,1)):NEXT:RETURN
  100. 485 FORC=0TO1:FORW=0TO1:POKE2+W,ASC(MID$(A$,(4-(C*2))+W,1)):NEXT
  101. 490 SYS51150:V=V+(256^C)*PEEK(4):NEXT:RETURN
  102. 495 REM
  103. 500 SYS50889:GOSUB785:PRINTTAB(10)"[212][210][193][195][203]:[159]   [157][157][157]"TTAB(20)"[211][197][195][212][207][210]:   [157][157][157][159]"S
  104. 505 OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"U1:5,"SD$;T;S:INPUT#15,A$,B$,C$,D$
  105. 510 IFVAL(A$)=0THENSYS50843:P=1305:Q=PEEK(P):X=0:Y=0:CLOSE5:CLOSE15:GOTO200
  106. 515 PRINT"";:FORX=1TO4:PRINT"                                        ";:NEXT
  107. 520 PRINT"[158][196][201][211][203] [197][210][210][207][210]:":PRINT""A$","B$","C$","D$:CLOSE5:CLOSE15
  108. 525 GETA$:IFA$=""THEN525
  109. 530 RUN
  110. 535 W=W+1:IFW<1THENRETURN
  111. 540 W=0:IFZ=0THENZ=1:I=0:M$=T$+M$(1)+M$(2)+T$
  112. 545 I=I+1:IFI<=138THEN555
  113. 550 I=1:Z=Z+2:M$=T$+M$(Z)+M$(Z+1)+T$:TI$="000000":IFZ>N-2THENZ=0:GOTO540
  114. 555 PRINT"[158]";
  115. 560 PRINTMID$(M$,I,39);:RETURN
  116. 565 DATA"[212]HIS EDITOR HAS BEEN RELEASED TO PUBLIC DOMAIN"
  117. 570 DATA" COURTESY OF [202]AMES [208]. [193]MYX"
  118. 575 DATA "[201]F YOU HAVE ANY QUESTIONS ABOUT THIS PROGRAM"
  119. 580 DATA "OR OTHER PROGRAMS WRITTEM BY ME JUST LET"
  120. 585 DATA"ME KNOW AND I WILL SEE IF I CAN HELP. [205]Y INTERNET"
  121. 590 DATA"NAME IS [205]AVERICK@[208]HOENIX.COM AND MY SCREENNAME FOR"
  122. 595 DATA"ALL THE BBS'S AND NETWORKS I JOIN IS [205]AVERICK5"
  123. 600 DATA"OR [202]AMES [193]MYX SO JUST LEAVE EMAIL. [201] AM ON [209]LINK AND"
  124. 605 DATA"[208]HOENIX. [198]POR MORE INFO ABOUT [208]HOENIC CALL"
  125. 610 DATA" 800 869 1155"                                     "
  126. 615 [131]"----------------**********************----------"
  127. 620 [131]" AT (916) 435-2386.  (null)TAR (null)T. 10 CHR$AZELLE LENATN 96034."
  128. 625 [131]" "," "
  129. 630 [141]790:[141]775:[153]"SYSPEEK(null)(null)LEN(null) VAL(null)VALLEN(null)(null)VALOPEN:  TRACK- ";:V[178]0:L[178]1:[141]410:T2[178]V
  130. 635 [139]T2[178]0[167]770
  131. 640 [153]", SECTOR- ";:V[178]0:L[178]1:[141]410:S2[178]V:[159]15,8,15:[159]5,8,5,"#"
  132. 645 [152]15,"B-E:5,";SD$;T2;S2:[160]5:[160]15:[137]770
  133. 650 [141]775:[153]"SYS(null)VAL(null)(null)(null)(null) VAL(null)VALLEN(null)(null)VALOPEN:  ADDRESS- ";:V[178][171]1:L[178]4:[141]410:[139]V[178][171]1[167]770
  134. 655 HB[178][181](V[173]256):LB[178]V[171]256[172]HB:[159]15,8,15
  135. 660 [152]15,"M-E"[199](LB)[199](HB):[160]15:[137]770
  136. 665 [141]790:[158]50889:[153]""[163]10)"  PRINT(null)VAL(null)(null)(null)(null) PEEK(null)(null)LEN(null): OPEN";
  137. 670 V[178]MB:L[178]2:[141]410:MB[178]V
  138. 675 [151]2,MB:[141]10:[153]"OPEN"[163]26)"$"W$
  139. 680 OP[178][171]1:[159]5,8,15:[152]5,"M-R"[199](0)[199](MB)[199](0)
  140. 685 [158]50843:[160]5:P[178]1305:Q[178][194](P):X[178]0:Y[178]0:[137]200
  141. 690 [153]"OPEN   CMDCMDCMD"[163]25);MB:[137]200
  142. 695 [139][168]OP[167]55
  143. 700 [153]""[163]10)"ATNRE (null)OU (null)(null)(null)VAL (SYS(null)WAIT/SYS(null)WAIT)? TOCMD";
  144. 705 [161]A$:[139]A$[178]"N"[167][153]A$"ON":[137]770
  145. 710 [139]A$[179][177]"Y"[167]705
  146. 715 [153]A$:[141]775:[153]"SYS(null)(null)(null)RIGHT$(null)RIGHT$(null)(null):  OPENSTART- ";:V[178]0:L[178]2:[141]410:P1[178]V
  147. 720 [153]", END- ";:V[178]255:L[178]2:[141]410:P2[178]V
  148. 725 [151]2,P1:[141]10:[153]:[153][163]11)"ONSTART- $"W$", END- $";
  149. 730 [151]2,P2:[141]10:[153]W$"      ON":[159]5,8,15:[151]51024,MB
  150. 735 [129]C[178]P1[164]P2[169]32
  151. 740 W[178]32:[139]C[170]32[177]P2[167]W[178]1[170]P2[171]C
  152. 745 PX[178]1305[170]([181](C[173]38)[172]2)[170]C
  153. 750 PH[178][181](PX[173]256):PL[178]PX[171](PH[172]256)
  154. 755 [151]51023,C:[151]51025,W:[151]251,PL:[151]252,PH:[151]3,C[171]([181](C[173]38)[172]38)
  155. 760 [158]50973
  156. 765 [130]
  157. 770 [160]5:[153]:[137]300
  158. 775 [153]"                                  ON":[142]
  159. 780 [153]"ON              LENOMMAND (null)ENU            ":[142]
  160. 785 [153]""[163]10)"(null)(null)ATNLEN(null):    (null)VALLEN(null)(null)(null):  ON":[142]
  161. 790 [153]"OPEN"[163]18)"    CMDCMDCMDCMD":[153][163]28)"ON    CMDCMDCMDCMD":[142]
  162. 795 [153]""
  163. 800 [129]C[178]1[164]5:[153]"                                       ":[130]
  164. 805 [151]2,P1:[141]10:[153]"OPENONON D LEN0"W$"ONONONONON"
  165. 810 [158]51035:[158]51181:[141]825:[158]51077:P[178]1305:Q[178][194](P):X[178]0:Y[178]0:[139]OP[167]820
  166. 815 [141]785:[153][163]10)"(null)(null)ATNLEN(null):OPEN   CMDCMDCMD"T[163]20)"(null)VALLEN(null)(null)(null):   CMDCMDCMDOPEN"S:[137]200
  167. 820 [151]2,MB:[141]10:[153]""[163]10)"  PRINT(null)VAL(null)(null)(null)(null) PEEK(null)(null)LEN(null): OPEN$"W$:[137]200
  168. 825 [151]53280,11:[151]53281,0:[153]"LOAD"[163]12)"SYSSTR$RIGHT$(null)(null) LEN(null)ATNLEN(null)VAL(null) 4.0"
  169. 830 [153][163]16)"REVISED BY" :[153][163]12);  "  MID$AMES (null). ATNMYX"
  170. 835 [153][163]9)"ORTANTANTANTANTANTANPRINTSTR$(null)RIGHT$(null)VAL: 0"SD$"TANTANTANTANTANTAN^":[153][163]9)"(null)"[166]21)"(null)"
  171. 840 [153]"ORTANTANTANTANTANTANTANTANEXPCONTTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN/TANTANTANTANTANTANTAN^";
  172. 845 [129]C[178]1[164]6:[153]"(null)PRINT                                      WAIT(null)";:[130]
  173. 850 [153]"(null)PRINT                            WAIT:::ORTANTANTANTANTANTANEXP";
  174. 855 [153]"/TANTANTANTANTANTANTAN^CONTTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  175. 860 [153][163]8)"(null)POSITION:     BYTE:    (null)"
  176. 865 [153][163]8)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  177. 870 [153][163]14)"SYSLENOMMAND (null)ENU":[153][163]14)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  178. 875 [153]" SYS(null)WAIT/SYS(null)WAIT)OPEN (null)/(null) PEEKLOCK        SYSMID$WAIT)OPEN MID$UMP (null)INK"
  179. 880 [153]"   SYS@WAIT)OPEN LENHANGE PEEKYTE      SYS(null)WAIT)OPEN (null)EXT (null)TRING"
  180. 885 [153]" SYSRIGHT$WAIT/SYS(null)WAIT)OPEN (null)EMORY (null)/(null)     SYSPEEKWAIT/SYS(null)WAIT)OPEN PEEKLK/(null)EM VALXEC"
  181. 890 [153]" SYS+WAIT/SYS-WAIT)OPEN ASC/PEEK PEEKLK OR (null)EM   SYS(null)WAIT)OPEN PEEKREAK TO (null)ON"
  182. 895 [153]"SYS(null)(null)LENWAIT)OPEN STR$RIVE= 0,1" ;:[158]50889:[153]"        SYS(null)WAITOPEN TO LOAD STR$OSIT":[142]
  183. 900 SD[178]1[170][168](SD[171]1):SD$[178][201]([196](SD),1):[153]""[163]16)"PRINTSTR$(null)RIGHT$(null)VAL: 0"SD$
  184. 905 [142]
  185. 910 [141]900:[137]55
  186. 915 [139]A$[178]" "[167][141]900:[137]35
  187. 920 [153]"LOADINSERT DOSIT DISK AND PRESS ANY KEY"
  188. 925 [161]A$:[139]A$[178]""[167]925
  189. 930 [151]53280,0:[151]53281,0:[151]646,0
  190. 935 [153]"LOAD"[170][199](34)[170]"DOSIT5.0"[170][199](34)[170]",8,1ONONON"
  191. 940 [151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:  [151]198,5
  192. 945 [128]
  193. 950 [139]A$[178][199](13)[167]465
  194. 955 [139]A$[178]"E"[167][137]920
  195.