home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D4.D64 / ed (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.7 KB  |  123 lines
  1. 5 PRINT"[147]LOADING DATA FILES......"
  2. 10 IFPEEK(832)<>255 THENPRINT"1";:LOAD"BOXES",8,1
  3. 15 IFPEEK (51500)<>76 THENPRINT"2";:LOAD"OBJECT",8,1
  4. 20 IFPEEK (52000)<>32 OR PEEK(52001)<>212THENPRINT"3";:LOAD"S.OBJ",8,1
  5. 30 IFPEEK (679)<>32 OR PEEK(680)<>253THENPRINT"4";:LOAD"L.OBJ",8,1
  6. 50 POKE 53287,1: POKE 650,128
  7. 70 CTAB=51200: XB=51005: YB=51006
  8. 85 FOR I=0TO39: POKE 46960+I,0:NEXT
  9. 90 POKE 53280,0:POKE53281,0:POKE 646,15: PRINTCHR$(147)
  10. 100 PRINT"          SCREEN/BLOCK EDITOR"
  11. 110 PRINT"            ALLEN WEBB 1989"
  12. 120 PRINT"            E[146]DIT BLOCKS"
  13. 130 PRINT"            D[146]ESIGN SCREENS"
  14. 140 PRINT"            S[146]AVE FILES"
  15. 150 PRINT"            L[146]OAD FILES"
  16. 155 PRINT"            EX[146]IT"
  17. 160 PRINT"         PRESS HIGHLIGHTED KEY[155]"
  18. 170 GETI$:IFI$=""THEN170
  19. 180 IFI$="E" THEN 10000
  20. 190 IFI$="D" THEN 20000
  21. 200 IFI$="X" THEN PRINT"[147]":END
  22. 210 IFI$="S"THEN40000
  23. 220 IFI$="L"THEN50000
  24. 500 GOTO 170
  25. 10000 PRINTCHR$(147);:BLOCK=1: CHAR=0: X0=223:Y0=129: XC=0: YC=0
  26. 10010 COL=PEEK(CTAB) AND 15
  27. 10071 PRINT""TAB(14)"[158]EDIT BLOCKS"
  28. 10072 PRINT"
  29. 10073 [153]"SYSNEXT BLOCK     +SYS"
  30. 10074 [153]"SYSLAST BLOCK     -SYS"
  31. 10075 [153]"SYSERASE BLOCK    ESYS"
  32. 10076 [153]"SYSNEXT CHARACTER NSYS"
  33. 10077 [153]"SYSLAST CHARACTER PSYS"
  34. 10078 [153]"SYSSET COLOUR     _SYS"
  35. 10079 [153]"SYSNEXT COLOUR    F1SYS"
  36. 10080 [153]"SYSLAST COLOUR    F3SYS"
  37. 10081 [153]"SYSPUT CHARACTER  *SYS"
  38. 10082 [153]"SYSMAIN MENU      M SYS"
  39. 10090 [151] 2040,14
  40. 10091 [151] 53276,0: [151] 53277,0: [151]53271,0
  41. 10092 [151] 53269,1
  42. 10110 [151] 46981,BLOCK: [158] 51500,151
  43. 10120 [153]"  BLOCK:       CMDCMDCMDSYS";BLOCK
  44. 10130 [153]"  CHARACTER:  ": [151]1157,CHAR: [151] 55429,7
  45. 10140 [153]"  COLOUR   ":[129]I[178]0[164]5:[151]55458[170]I,COL:[130]
  46. 10150 [153]"  CHARACTER NO:    CMDCMDCMDCMD";CHAR
  47. 10200 [151] 53249,Y0[170]8[172]YC
  48. 10210 XP[178]X0[170]8[172]XC: [151] 53264,XP[173]256:[151]53248,XP[171][194](53264)[172]256
  49. 11000 [161]I$:[139]I$[178]""[167]11000
  50. 11010 [139] I$[178]"+" [175] BLOCK [179]150 [167] BLOCK[178]BLOCK[170]1:[137]10110
  51. 11020 [139] I$[178]"-" [175] BLOCK [177]1 [167] BLOCK[178]BLOCK[171]1:[137]10110
  52. 11030 [139] I$[178]"N" [175] CHAR [179]255 [167] CHAR[178]CHAR[170]1:COL[178][194](CTAB[170]CHAR): [137]10110
  53. 11040 [139] I$[178]"P" [175] CHAR [177]0 [167] CHAR [178]CHAR[171]1:COL[178][194](CTAB[170]CHAR):[137]10110
  54. 11050 [139] I$[178]"INPUT" [167] COL[178](COL[170]1)[175] 15:[137]10110
  55. 11060 [139] I$[178]"DIM" [175] COL [177]0 [167] COL[178]COL[171]1:[137]10110
  56. 11070 [139] I$[178]""[175]XC[179]4 [167] XC[178]XC[170]1:[137]10200
  57. 11080 [139] I$[178]"CMD"[175]XC[177]0 [167] XC[178]XC[171]1:[137]10200
  58. 11090 [139] I$[178]""[175]YC[179]4 [167] YC[178]YC[170]1:[137]10200
  59. 11120 [139] I$[178]"ON"[175]YC[177]0 [167] YC[178]YC[171]1:[137]10200
  60. 11130 [139] I$[178]"_" [167] [151] CTAB[170]CHAR,COL:[137]10110
  61. 11140 [139]I$[178]"*"[167] 12000
  62. 11150 [139]I$[178]"M"[167] [151] 53269,0:[153]"LOAD";:[137]100
  63. 11160 [139]I$[178]"E"[167]12100
  64. 11500 [137]10110
  65. 12000 BA[178](BLOCK[171]1)[172]25[170]47104
  66. 12010 [151] BA[170]YC[172]5[170]XC,CHAR
  67. 12020 [151]46981 ,BLOCK: [158]51500,151:[137]11000
  68. 12100 BA[178](BLOCK[171]1)[172]25[170]47104
  69. 12110 [129]I[178]0[164]25:[151]BA[170]I,32:[130]
  70. 12120 [137]10110
  71. 12200 [143]
  72. 20000 [153][199](147): SCREEN[178]1: X0[178]24: Y0[178]49: XC[178]0:YC[178]0:BLOCK[178]1
  73. 20010 [158] 51500,SCREEN
  74. 20020 [151] 2040,13
  75. 20021 [151] 53276,0: [151] 53277,1: [151]53271,1
  76. 20022 [151] 53269,1
  77. 20500 [151] 53249,Y0[170]40[172]YC
  78. 20510 XP[178]X0[170]40[172]XC: [151] 53264,XP[173]256:[151]53248,XP[171][194](53264)[172]256
  79. 21000 [161]I$:[139]I$[178]""[167]21000
  80. 21010 [139] I$[178]"+"[175] SCREEN[179]150 [167] SCREEN[178]SCREEN[170]1:[141] 25000:[137]21000
  81. 21020 [139] I$[178]"-"[175] SCREEN[177]1 [167] SCREEN[178]SCREEN[171]1:[141] 25000:[137]21000
  82. 21030 [139]I$[178]"E"[167]24000
  83. 21040 [139] I$[178]""[175]XC[179]7 [167] XC[178]XC[170]1:[137]20500
  84. 21050 [139] I$[178]"CMD"[175]XC[177]0 [167] XC[178]XC[171]1:[137]20500
  85. 21060 [139] I$[178]""[175]YC[179]4 [167] YC[178]YC[170]1:[137]20500
  86. 21170 [139] I$[178]"ON"[175]YC[177]0 [167] YC[178]YC[171]1:[137]20500
  87. 21180 [139]I$[178]"*"[167]26000
  88. 21190 [139]I$[178]"M"[167] [151] 53269,0:[153]"LOAD";:[137]100
  89. 21200 [139] I$[178]"X" [167] 30000
  90. 22000 [137] 21000
  91. 24000 SA[178](SCREEN[171]1)[172]40[170]40960: [129]I[178]0[164]40:[151] SA[170]I,0:[130]
  92. 24010 [141] 25000:[137]21000
  93. 25000 [153][199](147):[158]51500,SCREEN:[142]
  94. 26000 SA[178](SCREEN[171]1)[172]40[170]40960
  95. 26010 [151] SA[170]YC[172]8[170]XC,BLOCK:[141]25000:[137]21000
  96. 30000 [153]"LOAD";:[151]53269,0
  97. 30010 [151] 46981,BLOCK: [158] 51500,151
  98. 30020 [153]"SYSCURRENT SCREEN     CMDCMDCMDCMD";SCREEN
  99. 30030 [153]"SYSCURRENT BLOCK      CMDCMDCMDCMD";BLOCK
  100. 30040 [153]"NEXT BLOCK       SYS+"
  101. 30050 [153]"PREVIOUS BLOCK   SYS-"
  102. 30060 [153]"NEXT SCREEN      SYSN"
  103. 30070 [153]"PREVIOUS SCREEN  SYSP"
  104. 30080 [153]"DESIGN SCREEN    SYSXLIST"
  105. 31000 [161]I$:[139]I$[178]""[167]31000
  106. 31010 [139]I$[178]"+"[175]BLOCK[179]150[167]BLOCK[178]BLOCK[170]1:[137]30010
  107. 31020 [139]I$[178]"-"[175]BLOCK[177]1  [167]BLOCK[178]BLOCK[171]1:[137]30010
  108. 31030 [139]I$[178]"X" [167] [153]"LOAD":[137]20010
  109. 31032 [139]I$[178]"N"[175]SCREEN[179]150[167]SCREEN[178]SCREEN[170]1:[137]30010
  110. 31034 [139]I$[178]"P"[175]SCREEN[177]1[167]SCREEN[178]SCREEN[171]1:[137]30010
  111. 31040 [137]31000
  112. 40000 [153]"LOAD              SAVE DATA"
  113. 40010 [133]"FILE NAME";FI$
  114. 40020 [153]"SAVING....."
  115. 40030 [158] 52000 FI$,8,2,40960,51456
  116. 40040 [153]"LOAD";:[137]100
  117. 50000 [153]"LOAD              LOAD DATA"
  118. 50010 [133]"FILE NAME";FI$
  119. 50020 [153]"LOADING....."
  120. 50030 [158] 679,FI$,8,40960
  121. 50035 [158] 679,"BOXES",8,832
  122. 50040 [153]"LOAD";:[137]100
  123.