home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-11_2001_CSW_Side_A.d64 / session.ed (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  146 lines
  1. 0 goto2
  2. 1 poke211,25:poke214,21:sys58732:printa1$:printspc(25)a2$:poke211,25:poke214,23:sys58732:printa3$"":return
  3. 2 poke53280,0:poke53281,0:poke650,128:le$="              ":print"";:xx=2:yy=2:poke53272,19:poke832,255:poke833,0:poke834,0:fori=835to850step3:pokei,129:pokei+1,0:pokei+2,0:next:poke853,255:fori=854to835+64:pokei,0:next:poke2040,13:poke2041,13:print"[147][152]
  4. 3 [153]"ortantantantantantantantantantantantantantantantantantantantantantantan=tantantantantantantantantantantantantantan^";:a$[178]"(NULL)verifycloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseprint#(NULL)              (NULL)":[129]i[178]1[164]19:[153]a$;:[130]:[153]"(NULL)verifycloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseprint#-tantantantantantantantantantantantantantan<";:[129]i[178]1[164]3:[153]a$;:[130]:[153]"/tantantantantantantantantantantantantantantantantantantantantantantan>tantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,12
  5. 4 [150][165]x(x)[178]x[172]8[170]24:[150][165]y(y)[178]y[172]8[170]50:x0[178]53248:y0[178]x0[170]1:x1[178]y0[170]1:y1[178]x1[170]1:[151]x0[170]39,1:[151]x0[170]40,1:[151]x0[170]27,0:[151]x0,[165]x(1):[151]y0,[165]y(1):[151]x1,[165]x(25):[151]y1,[165]y(2):[151]x0[170]21,3:[134]ob$(56),s(10,31,1):[131]"print#atn","printpeek","printlen","printstr$","printval","printasc","printchr$","printleft$","printright$","printmid$","print(NULL)","(NULL)","(NULL)","(NULL)
  6. 5 data"[158][207]","[154][208]","[158][209]","[155][210]","[150][211]","[212]","[213]","[214]","[215]","[216]","[159][217]","[151][218]","[129][219]","[129][220]","[255]","[223]","[150][165]","[155][162]","[152][181]","[151][161]","[152][182]","[175]","[151][163]","[152][184]","[152][183]","[156][168]","[164]","[156][169]","[192][193][157][157][129][194][195][146]","[149][196][197][157][157][198][199][146]","[155][200][201][157][157][202][203][146]","[129][204][205][157][157][206][207][146]","[150][208][209][157][157][210][211][146]","[212][213][157][157][151][214][215][146]","[159][216][217][157][157][218][219][146]
  7. 6 [131]"def(NULL)(NULL)cmdcmdprint#(NULL)(NULL)wait","pokeclosewait","pokegetwait","pokenewwait","poketab(wait","poketowait","pokefnwait":[129]i[178]1[164]56:[135]ob$(i):[130]:c[178]1:x[178]1:y[178]1:[153]""ob$(36);
  8. 7 [153]"";:[129]i[178]0[164]5:[153]:[153][166]25);:[129]j[178]1[164]7:[153]ob$(i[172]7[170]j)" ";:[130]:[130]:[153]:[153][166]25);:[129]i[178]43[164]46:[153]ob$(i)"on";:[130]:[153]:[153][166]25)"";:[129]i[178]47[164]50:[153]ob$(i)"on";:[130]:[153]"ononon"[163]37);:[129]i[178]51[164]56:[153]ob$(i)[202]("543210",i[171]50,1)"cmdcmd";:[130]:[139]cl[179][177]0[167][153]"oncmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdlevel"cl
  9. 8 a1$[178]le$:a2$[178]"<conth> for help":a3$[178]le$:[141]1
  10. 9 [151]x0[170]21,1:[139]c[177]42[137]15
  11. 10 [151]x0[170]23,0:[151]x0[170]29,0:q[178](c[173]7[171][181](c[173]7))[172]7[171]1:[139]q[178][171]1[167]q[178]6
  12. 11 p[178][165]x(25[170]2[172]q):[139]p[177]255[167][151]x0[170]16,2:[137]13
  13. 12 [151]x0[170]16,0
  14. 13 [151]x1,p[175]255:[151]y1,[165]y(2[170]2[172]([181]((c[171]1)[173]7))):[139][194](x1)[178]255[167][151]x1,0
  15. 14 [137]22
  16. 15 [139]c[177]50[137]21
  17. 16 d[178]c[171]42:q[178](d[173]4[171][181](d[173]4))[172]4[171]1:[139]q[178][171]1[167]q[178]3
  18. 17 p[178][165]x(25[170]3[172]q):[151]x0[170]23,3:[151]x0[170]29,3:[139]p[177]255[167][151]x0[170]16,2:[137]19
  19. 18 [151]x0[170]16,0
  20. 19 [151]x1,p[175]255:[151]y1,[165]y(14[170]3[172]([181]((d[171]1)[173]4))):[139][194](x1)[178]255[167][151]x1,0
  21. 20 [137]22
  22. 21 [151]x0[170]16,2:[151]x1,[165]x(37)[171]256:[151]y1,[165]y(c[171]37):[151]x0[170]23,0:[151]x0[170]29,0
  23. 22 [151]x0,[165]x(x):[151]y0,[165]y(y):[151]x0[170]21,3
  24. 23 [151]198,0:[146]198,1:[161]a$:[139]a$[178]"on"[176]a$[178]""[176]a$[178]""[176]a$[178]"cmd"[137]40
  25. 24 [139]a$[179][177]":"[175]a$[179][177]";"[175]a$[179][177]"@"[175]a$[179][177]"/"[137]30
  26. 25 [139]a$[178]"@"[175]y[177]1[167]y[178]y[171]1:[137]22
  27. 26 [139]a$[178]"/"[175]y[179]23[167]y[178]y[170]1:[137]22
  28. 27 [139]a$[178]":"[175]x[177]1[167]x[178]x[171]1:[137]22
  29. 28 [139]a$[178]";"[175]x[179]23[167]x[178]x[170]1:[137]22
  30. 29 [137]23
  31. 30 [139]x[178]xx[175]y[178]yy[167]23
  32. 31 [139]a$[179][177]"
  33. "[167]35
  34. 32 [139]c[177]42[175]c[179]51[167][139](x[178]23[176]y[178]23)[167]23
  35. 33 [151]211,x:[151]214,y:[158]58732:[153]ob$(c);:[139]c[179][177]36[137]23
  36. 34 [151]211,xx:[151]214,yy:[158]58732:[153]"verifyclose";:xx[178]x:yy[178]y:a1$[178]"new starting":a2$[178]"position    ":a3$[178]"set.  ":[141]1:[129]i[178]1[164]500:[130]:a1$[178]le$:a2$[178]le$:a3$[178]le$:[129]i[178]1[164]1000:[130]:[141]1:[137]23
  37. 35 [139]a$[179][177]" "[167]38
  38. 36 [151]211,x:[151]214,y:[158]58732:[139]c[179]43[176]c[177]50[176]x[177]22[176]y[177]22[167][153]"verifyclose";:[137]23
  39. 37 [153]"verifycloseclosecmdcmdcloseclose":[137]23
  40. 38 [139]a$[179]"0"[176]a$[177]"5"[137]48
  41. 39 c[178]51[170](5[171][197](a$)):[137]9
  42. 40 [139]c[177]50[167]c[178]1:[137]9
  43. 41 [139]a$[178]""[175]c[179]50[167]c[178]c[170]1:[137]9
  44. 42 [139]a$[178]"cmd"[175]c[177]1[167]c[178]c[171]1:[137]9
  45. 43 [139]a$[178]""[175]c[179]43[167]c[178]c[170]7:[137]9
  46. 44 [139]a$[178]""[175]c[179]47[167]c[178]c[170]4:[137]9
  47. 45 [139]a$[178]"on"[175]c[177]46[167]c[178]c[171]4:[137]9
  48. 46 [139]a$[178]"on"[175]c[177]7[167]c[178]c[171]7:[137]9
  49. 47 [137]23
  50. 48 [139]a$[179][177]"d"[167]72
  51. 49 [139][194](1024[170]x[170]40[172]y)[178]89[167]51
  52. 50 a1$[178]"this is not":a2$[178]"a switch.     ":a3$[178]le$:[141]1:[129]i[178]1[164]500:[130]:[137]8
  53. 51 s1[178][171]1:[129]i[178]0[164]10:[139](s(i,0,0)[178]x)[175](s(i,0,1)[178]y)[167]s1[178]i
  54. 52 [130]i:[139]s1[178][171]1[167]54
  55. 53 a1$[178]"switch is al-":a2$[178]"ready defined.":a3$[178]le$:[141]1:[129]i[178]1[164]500:[130]:a1$[178]le$:a2$[178]le$:[141]1:[137]72
  56. 54 s1[178]s:s[178]s[170]1:[139]s1[177]10[167]s[178]10:[137]72
  57. 55 a1$[178]"define switch ":a2$[178]le$:a3$[178]"number"[170][196](s1):[141]1:s(s1,0,0)[178]x:s(s1,0,1)[178]y:[129]i[178]1[164]1500:[130]:ak[178]1:a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1
  58. 56 a1$[178]"action"[170][196](ak):[137]58
  59. 57 a2$[178]"definition    ":a3$[178]"done.         ":[141]1:[129]i[178]1[164]1000:[130]:a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:[137]9
  60. 58 a2$[178]"source field? ":[139]ak[177]1[167]a3$[178]"<spc>=end.":[141]1:[137]66
  61. 59 a3$[178]le$:[141]1:[137]66
  62. 60 [151]198,0:[146]198,1:[161]a$:[139]a$[178]"@"[175]y[177]1[167]y[178]y[171]1
  63. 61 [139]a$[178]"/"[175]y[179]23[167]y[178]y[170]1
  64. 62 [139]a$[178]";"[175]x[179]23[167]x[178]x[170]1
  65. 63 [139]a$[178]":"[175]x[177]1[167]x[178]x[171]1
  66. 64 [151]x0,[165]x(x):[151]y0,[165]y(y):[139]a$[178]"
  67. "[176](a$[178]" "[175]ak[177]1)[167][142]
  68. 65 [137]60
  69. 66 [141]60:[139]a$[178]" "[175]ak[178]1[167]68
  70. 67 [139]a$[178]" "[137]57
  71. 68 s(s1,ak,0)[178]1024[170]x[170]40[172]y:a2$[178]"destination   ":a3$[178]"field?       ":[141]1
  72. 69 [141]60:[139]a$[178]" "[137]69
  73. 70 s(s1,ak,1)[178]1024[170]x[170]40[172]y:ak[178]ak[170]1:[151]x0[170]27,0:[139]ak[178]31[167]57
  74. 71 [137]56
  75. 72 [139]a$[179][177]"load"[167]77
  76. 73 a1$[178]"want do delete":a2$[178]"everything   ":a3$[178]"(y/n)?":[141]1
  77. 74 [151]198,0:[146]198,1:[161]a$:[139]a$[178]"y"[167][138]
  78. 75 [139]a$[178]"n"[137]8
  79. 76 [137]74
  80. 77 [139]a$[178]""[167]c[178]1:x[178]1:y[178]1:[137]9
  81. 78 [139]a$[179][177]"s"[167]93
  82. 79 a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:te$[178]"l'number:":ix[178]25:iy[178]21:bs[178]0:le[178]3:[141]122:f$[178]i$:ln[178][197](f$):[139]ln[179]36[137]81
  83. 80 a1$[178]"max 35 levels":a2$[178]"per disk!":a3$[178]"<space>":[141]1:[151]198,0:[146]198,1:[137]8
  84. 81 [139]ln[179]1[137]8
  85. 82 [139]i$[178]""[167]92
  86. 83 cl[178]ln:[159]1,8,15,"s:level"[170]f$:[160]1:k[178]0:a1$[178]"choose color  ":a2$[178]"for comment   ":a3$[178]"lines.        ":[141]1:[151]x0[170]21,0:[141]138:[129]iy[178]1[164]19:te$[178]"":ix[178]24:le[178]14:bs[178]1:[141]122:[130]:[129]i[178]1[164]19:[151]1063[170]40[172]i,93:[151]55335[170]40[172]i,12:[130]:a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1
  87. 84 [159]1,8,8,"level"[170]f$[170]",p,w":[157]1:[158]49155:[161]a$:[152]1,"
  88. ":[151]1024[170]xx[170]40[172]yy,111:[151]55296[170]xx[170]40[172]yy,1:[153]"";:a2$[178]"...checking...":a1$[178]le$:a3$[178]le$:[141]1:[151]x0[170]21,1:[129]y[178]1[164]23:[129]x[178]1[164]23:[151]x0,[165]x(x):[151]y0,[165]y(y):z[178][194](1024[170]x[170]40[172]y):[139]z[178]98[167]k[178]k[170]1
  89. 85 [139]z[178]95[167]ou[178]1024[170]x[170]40[172]y
  90. 86 [130]x,y:[151]x0[170]21,0:x[178]1:y[178]1:[151]x0,[165]x(x):[151]y0,[165]y(y):[152]1,s:[139]s[178]0[167]90
  91. 87 a1$[178]"saving        ":a2$[178]"switches...   ":a3$[178]le$:[141]1:[129]i[178]1[164]1000:[130]:[161]a$:[129]i[178]0[164]s[171]1:ak[178]0:[151]211,25:[151]214,23:[158]58732:[153]i;
  92. 88 [152]1,s(i,ak,0)"
  93. "s(i,ak,1):ak[178]ak[170]1:[129]j[178]1[164]100:[130]:[139]s(i,ak,0)[179][177]0[167]88
  94. 89 [152]1,0:[130]i
  95. 90 [152]1,k:[152]1,ou:[152]1,xx:[152]1,yy:a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:[152]1,i:[152]1,ln:[152]1,"edi":[137]91
  96. 91 a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:[160]1
  97. 92 [129]i[178]1[164]1500:[130]:a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:[141]130:[151]x0[170]21,3:[137]7
  98. 93 [139]a$[179][177]"l"[167]104
  99. 94 a1$[178]le$:a2$[178]le$:a3$[178]le$:[141]1:te$[178]"l'number:":ix[178]25:iy[178]21:bs[178]0:le[178]3:[141]122:f$[178]i$:[139]i$[178]""[167]103
  100. 95 a1$[178]"l'number: ":a2$[178]"loading...":a3$[178]le$:[141]1:cl[178][197](i$):[139]s[178]11[167]s[178]10
  101. 96 [129]i[178]0[164]s[170]1:[129]j[178]0[164]30:[129]k[178]0[164]1:s(i,j,k)[178]0:[130]k,j,i:[159]1,8,8,"level"[170]f$[170]",p,r":[158]51715:[158]51712:[132]1,s:[139]s[178]0[167]101
  102. 97 ak[178]0:[129]i[178]0[164]s[171]1
  103. 98 [132]1,j:[139]j[178]0[167]ak[178]0:[137]100
  104. 99 s(i,ak,0)[178]j:[132]1,s(i,ak,1):ak[178]ak[170]1:[137]98
  105. 100 [130]i
  106. 101 [132]1,k,ou,xx,yy,t,i,a$:[160]1:[139]a$[178]"edi"[137]103:[143]"
  107. 102 fori=1to3:a1$=le$:a2$=le$:a3$=le$:gosub1:forj=1to200:next:a1$="you may only":a2$="edit your":a3$="own levels.":gosub1:forj=1to50:nextj,i:fori=1to1500:next:run
  108. 103 fori=1to1500:next:a1$=le$:a2$=le$:a3$=le$:gosub1:gosub130:goto7
  109. 104 ifa$<>"+"anda$<>"-"goto111
  110. 105 a=55296+x+40*y:ifa$<>"+"goto108
  111. 106 i=peek(a):ifi<255thenpokea,i+1
  112. 107 goto22
  113. 108 ifa$<>"-"goto111
  114. 109 i=peek(a):ifi>0thenpokea,i-1
  115. 110 goto22
  116. 111 ifa$<>"x"goto132
  117. 112 s1=-1:fori=0tos:if(s(i,0,0)=x)and(s(i,0,1)=y)thens1=i
  118. 113 nexti:ifs1<>-1then119
  119. 114 a1$="want do delete":a2$="all switches":a3$="(y/n)?":gosub1
  120. 115 poke198,0:wait198,1:geta$:ifa$="y"goto118
  121. 116 ifa$="n"goto8
  122. 117 goto115
  123. 118 a1$="deleting all  ":a2$="switch defi-  ":a3$="nitions.      ":gosub1:fori=0to10:forj=0to31:fork=0to1:s(i,j,k)=0:nextk,j,i:s=0:a1$=le$:a2$=le$:a3$=le$:gosub1:goto22
  124. 119 a1$="deleting def. ":a2$="for switch    ":a3$="number"+str$(s1):gosub1:ifs1=10then121
  125. 120 fori=s1to9:forj=0to31:fork=0to1:s(i,j,k)=s(i+1,j,k):nextk,j,i
  126. 121 forj=0to31:fork=0to1:s(10,j,k)=0:nextk,j:a1$=le$:a2$=le$:a3$=le$:gosub1:s=s-1:goto22
  127. 122 poke214,iy:poke211,ix:sys58732:i$="":printte$"";:p=0
  128. 123 poke204,0:poke198,0:wait198,1:getx$:poke207,0:poke204,1:print" [157]";:ifp>0andasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto123
  129. 124 ifasc(x$)=13thenreturn
  130. 125 ifp=lethen123
  131. 126 ifbs=0thenifx$<"0"orx$>"9"then123
  132. 127 ifbs=1thenifx$<" "or(x$>"{$7f}"andx$<"[160]")then123
  133. 128 printx$;:i$=i$+x$:p=p+1:ifx$<>chr$(34)goto123
  134. 129 printchr$(34)"[157] [157]";:goto123
  135. 130 fori=1to19:poke214,i:poke211,25:sys58732:printle$;:next:return
  136. 131 poke214,r:poke211,25:sys58732:printa$:return
  137. 132 ifa$<>"h"goto22
  138. 133 pokex0+21,1:gosub130:a1$=le$:a2$="   <space>!   ":a3$=le$:gosub1:r=1:a$="<[154]crsr>icon":gosub131:r=18:a$="     switches)":gosub131:r=3:a$="<[154]ret> set   ":gosub131:r=16:a$="    everything":gosub131:r=6:a$="<[154]d> define  ":gosub131
  139. 134 r=13:a$="    finition":gosub131:r=8:a$="    (at cur-":gosub131:r=11:a$="<[154]x> delete   ":gosub131:r=10:a$="    tion)":gosub131:r=9:a$="    sor posi- ":gosub131:r=12:a$="    switch de-":gosub131:r=7:a$="    switch    ":gosub131:r=15:a$="<[154]clr> delete":gosub131
  140. 135 r=4:a$="<[154]spc> delete  ":gosub131:r=17:a$="     (level,":gosub131:r=2:a$="<[154]@:;/>field":gosub131:poke198,0:wait198,1:geta$:gosub130:r=18:a$="":gosub131:r=2:a$="   ling fields":gosub131:r=16:a$="cheers!":gosub131:r=8:a$="to the doku-":gosub131
  141. 136 r=10:a$="for further":gosub131:r=4:a$="<[154]s> save":gosub131:r=9:a$="mentation":gosub131:r=11:a$="information.":gosub131:r=5:a$="<[154]l> load":gosub131:r=13:a$="":gosub131:r=14:a$="":gosub131:r=15:a$="":gosub131:r=7:a$="please refer":gosub131:r=17:a$="":gosub131
  142. 137 r=1:a$="<[154]1-5> crumb-":gosub131:r=12:a$="tion.":gosub131:poke198,0:wait198,1:geta$:a2$=le$:gosub1:gosub130:pokex0+21,3:goto7
  143. 138 gosub130:fori=1to2000:next:f=1:a2$=le$:a3$="<[154]+,[154]-,[154]ret>    ":ff$="blk wht red cyn pur grn blu yel orngbrn lreddgrymgrylgrnlblulgry":fc$="[144][159][156][158][129][149][150][151][152][153][154][155]
  144. 139 a1$[178]"print#color: "[170][202](fc$,f,1)[170][202](ff$,(f[171]1)[172]4[170]1,4)[170]" ":[141]1
  145. 140 [151]198,0:[146]198,1:[161]a$:[139]a$[178]"
  146. "[167][153][202](fc$,f,1);:[137]144
  147. 141 [139]a$[178]"+"[167]f[178]f[170]1[170](f[177]15):[137]139
  148. 142 [139]a$[178]"-"[167]f[178]f[171]1[171](f[179]2):[137]139
  149. 143 [137]140
  150. 144 a1$[178]"now enter  ":a2$[178]"comments.   ":a3$[178]le$:[137]1
  151.