home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / publication_main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  209 lines
  1. 1 rem" magsys 3.0 done by zeitgeist/high-tech
  2. 2 [143]"----------------------------------------
  3. 3 rem" take the rest -
  4. 4 [143]" get the publication !
  5. 5 rem"
  6. 7 [143]" some kind of
  7. 8 rem" fuckin' lameness !
  8. 9 [143]""[204]
  9. 10 [151]53265,11:[151]198,0:ga[178][194](186)
  10. 11 [139]a[178]0[167]a[178]1:[147]"charset.2*",ga,1
  11. 12 [151]53281,7:[151]53280,2:[151]53272,29:[156]:ar[178]7:[151]788,52:ga[178][194](186)
  12. 13 [134] t$(14,25),ab$(20),ab(20):q[178]1:joy[178]1:f(1)[178]6:f(2)[178]4:f(3)[178]14
  13. 14 [129]g[178]1[164]ar:a$(g)[178]"cos":[130]:f(4)[178]1:f(5)[178]15:f(6)[178]12:f(7)[178]11:f(8)[178]0
  14. 15 sc$(1)[178]"hy und hallo":sc[178]1:sc$(2)[178]" zur nummer ":sc$(3)[178]" vier eures "
  15. 16 sc$(4)[178]"lieblingsmag":sc$(5)[178]"publication!":m$(1)[178]"editoriales"
  16. 17 m$(2)[178]"anzeigencorner":m$(3)[178]"basic - tricks":m$(7)[178]"optionen":ms[178]1
  17. 18 m$(4)[178]"zu den proggis":m$(5)[178]"interview":m$(6)[178]"hard-/software"
  18. 20 [143] *** texte **
  19. 21 r$(1,1)[178]"hy und hallo":r$(7,1)[178]"hauptmen]":o(1)[178]7:r$(2,2)[178]"biete zeux"
  20. 22 r$(1,2)[178]"suche zeux":r$(3,2)[178]"suche contax":r$(4,2)[178]"hauptmen]":o(2)[178]4
  21. 23 r$(2,1)[178]"neues magsys":r$(3,1)[178]"tastatur":r$(4,1)[178]"einsendungen"
  22. 24 r$(5,1)[178]"abonnements":r$(4,3)[178]"joystick":o(3)[178]6:r$(6,3)[178]"hauptmen]"
  23. 25 r$(2,3)[178]"flacker fx":r$(3,3)[178]"basic-musik":r$(6,1)[178]"impressum"
  24. 26 r$(1,3)[178]"basic-tips":r$(1,4)[178]"futurewriter":r$(7,4)[178]"hauptmen]":cp[178]1:z[178]1
  25. 27 o(4)[178]7:r$(2,4)[178]"die demos":r$(3,4)[178]"hotel":r$(4,4)[178]"scroll-maker"
  26. 28 r$(5,4)[178]"mafia-tool":r$(6,4)[178]"wator":r$(5,3)[178]"file reader":o(6)[178]6
  27. 29 r$(1,6)[178]"pc-slave":r$(2,6)[178]"geo-fax":r$(3,6)[178]"64net":r$(4,6)[178]"godot"
  28. 30 r$(5,6)[178]"centrum":r$(6,6)[178]"hauptmen]"
  29. 100 [151]2040,224:[151]2041,226:[151]2042,227:[151]2043,228:[151]2044,229
  30. 101 [151]2045,230:[151]2046,231:[151]2047,232:[151]53276,126:[151]53277,120
  31. 102 [151]53285,1:[151]53286,6:[151]53288,5:[151]53250,30:[151]53287,2
  32. 103 [151]53251,225:[151]53289,5:[151]53252,154:[151]53253,225::[153]"load"
  33. 104 [129]g[178]1[164]4:[151]53253[170]g[172]2,55:[130]:[151]53254,86:[151]53256,134:[151]53290,14
  34. 105 [151]53291,14:[151]53292,14:[151]53258,182:[151]53260,230:[151]53293,14:[151]211,1
  35. 106 [151]214,4:[158]58732:[153]"stopexpgetnewgetnewnewgetnewgetnewgetnewgetnewgetnewgetnewgetnewgetnewgetnewgetnewget+ issue #4"
  36. 108 [129]g[178]1[164]ar:[151]211,1:[151]214,g[172]2[170]4:[158]58732:[153]""a$(g)"poke "m$(g):[130]
  37. 110 z[178]cp:[153]""[163]20)"stopcosrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndcos":[129]g[178]1[164]16
  38. 111 [153][163]20)"log                 log":[130]:[153][163]20)"cosrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndrndcos"
  39. 112 [151]211,23:[151]214,8:[158]58732:[153]"(NULL)(NULL)peek(NULL)right$(NULL)(NULL)val(NULL)(NULL)valwait \":g[178]1
  40. 113 [153][163]23)"rubriktextewait \":[151]214,23:[158]58732:[153]"print#    ------------"
  41. 114 [151]53265,27:[151]54296,0:[151]53269,127
  42. 118 [141]129:c[178][181]([188](255.5[171]([194](53262[171]joy)[176]224))[173][188](2)[170]2)
  43. 119 [145]c [141]1003,1000,1001,1001,1000,1002
  44. 120 [151]53248,25:[151]53249,z[172]16[170]82
  45. 121 a[178][194](203):[161]a$:[139]a$[178]""[167][141]129:[137]118
  46. 122 [139]a$[178]""[175]z[178]ar[167]z[178]0
  47. 123 [139]a$[178]""[175]z[179]ar[170]1[167]z[178]z[170]1
  48. 124 [139]a$[178]"on"[175]z[178]1[167]z[178]ar[170]1
  49. 125 [139]a$[178]"on"[175]z[177]1[167]z[178]z[171]1
  50. 126 [139]a$[178][199](13)[167][151]2040,225:[129]x[178]1[164]100:[130]:[151]2040,224:[137]250
  51. 127 [139]a[178]63[167]200
  52. 128 [137]118
  53. 129 [151]211,4:[151]214,22:[158]58732:[151]646,f(g):g[178]g[170]1
  54. 130 [153]sc$(sc):[139]g[178]9[167]g[178]1:sc[178]sc[170]1:[139]sc[178]6[167]sc[178]1
  55. 131 [142]
  56. 200 [151]211,23:[151]214,8:[158]58732:[153]" (NULL)atnchr$@peekvalval(NULL)str$val(NULL)@"
  57. 201 [153][163]23)" mag@beenden@":[153][163]25)"pokewirklich?"
  58. 202 [161]a$:[139]a$[178]""[167]202
  59. 203 [139]a$[178]"j"[176]a$[178]"y"[167][151]53269,0:[158]64767
  60. 204 [139]a$[178]"n"[167]110
  61. 205 [137]202
  62. 250 cp[178]z:[139]z[178]7[167]400
  63. 251 [139]z[178]5[167]z$[178]"interview":[137]10000
  64. 300 an[178]o(z):[129]q[178]1[164]9:[151]211,22:[151]214,q[170]10:[158]58732:[153]"poke"r$(q,z)
  65. 301 [139]r$(q,z)[178]"hauptmen]"[167]q[178]9
  66. 302 [130]:a[178]1:f[178][171]1:[151]198,0
  67. 303 f[178]f[170]1:[151]646,f:[139]f[178]14[167]f[178][171]1
  68. 304 [151]211,22:[151]214,a[170]10:[158]58732:[153]r$(a,z)
  69. 305 [141]129:c[178][181]([188](255.5[171]([194](53262[171]joy)[176]224))[173][188](2)[170]2)
  70. 306 [145]c [141]1003,1000,1001,1001,1000,1002
  71. 307 b[178][194](203):[161]a$:[139]a$[178]""[167]303
  72. 308 [151]646,11:[151]211,22:[151]214,a[170]10:[158]58732:[153]r$(a,z)
  73. 309 [139]a$[178]""[175]a[178]an[167]a[178]0
  74. 310 [139]a$[178]""[175]a[179]an[170]1[167]a[178]a[170]1
  75. 311 [139]a$[178]"on"[175]a[178]1[167]a[178]an[170]1
  76. 312 [139]a$[178]"on"[175]a[177]1[167]a[178]a[171]1
  77. 313 [139]a$[178][199](13)[167]316
  78. 314 [139]b[178]63[167]110
  79. 315 [137]303
  80. 316 [139]r$(a,z)[178]"hauptmen]"[167]110
  81. 317 z$[178]r$(a,z):[137]10000
  82. 400 [151]214,8:[158]58732:[153][163]23)"   (NULL)(NULL)(NULL)right$(NULL)(NULL)(NULL)@@@":o$(1)[178]"information":a[178]1
  83. 401 [153][163]23)"   options@@@":o$(2)[178]"text drucken":o$(3)[178]"music ."[170][196](ms)
  84. 402 o$(4)[178]"device . "[170][196](ga):o$(5)[178]"joystick . "[170][196](joy):o$(6)[178]"hauptmen]"
  85. 403 [129]g[178]1[164]6:[151]211,22:[151]214,g[170]10:[158]58732:[153]"poke"o$(g):[130]:f[178]1
  86. 404 f[178]f[170]1:[151]646,f(f):[139]f[178]8[167]f[178]0
  87. 405 [151]211,22:[151]214,a[170]10:[158]58732:[153]o$(a)
  88. 406 [141]129:c[178][181]([188](255.5[171]([194](53262[171]joy)[176]224))[173][188](2)[170]2)
  89. 407 [145]c [141]1003,1000,1001,1001,1000,1002
  90. 408 b[178][194](203):[161]a$:[139]a$[178]""[167]404
  91. 409 [151]646,11:[151]211,22:[151]214,a[170]10:[158]58732:[153]o$(a)
  92. 410 [139]a$[178]""[175]a[178]6[167]a[178]0
  93. 411 [139]a$[178]""[175]a[179]7[167]a[178]a[170]1
  94. 412 [139]a$[178]"on"[175]a[178]1[167]a[178]7
  95. 413 [139]a$[178]"on"[175]a[177]1[167]a[178]a[171]1
  96. 414 [139]a$[178][199](13)[167][145]a[137]600,500,422,419,417,110
  97. 415 [139]b[178]63[167]110
  98. 416 [137]404
  99. 417 [139]joy[178]1[167]joy[178]2:[137]402
  100. 418 joy[178]1:[137]402
  101. 419 [139]ga[178]8[167]ga[178]9:[137]421
  102. 420 ga[178]8
  103. 421 [151]186,ga:[137]402
  104. 422 ms[178]ms[170]1:[139]ms[178]4[167]ms[178]1
  105. 423 [151]214,9:[158]58732:[137]401
  106. 424 [151]211,22:[151]214,18:[158]58732:[153]"kein text im":[153][163]23)"speicher !
  107. 425 goto404
  108. 500 ift$=""then424
  109. 501 open1,4,0:close1:ifst<0thenpoke186,ga:goto51002
  110. 502 open2,4,7:forg1=1tos:forg2=1to14:print#2,t$(g2,g1):nextg2,g1:close2:goto110
  111. 600 poke214,8:sys58732:printtab(23)" [201][206][198][207][210][205][193][212][201][207][206]":poke53269,255:
  112. 601 printtab(23)" information"
  113. 602 forg=1to7:printtab(22)"              ":next:poke214,11:poke211,22:sys58732
  114. 603 poke53263,208:poke53262,196:poke53294,1
  115. 604 print"[151]this is the new":printtab(22)"magsys 3.0+ !"
  116. 605 printtab(22)"it seems to be":printtab(22)"some final kind"
  117. 606 printtab(22)"of version[220]":printtab(22)"but never mind."
  118. 607 printtab(22)"there'll be a":printtab(22)"new one ![152]"
  119. 608 printtab(25)"just take'n":printtab(25)"enjoy it !!!"
  120. 609 geta$:ifa$=""thengosub129:goto609
  121. 610 goto110
  122. 1000 a$="+":return
  123. 1001 a$="-":return
  124. 1002 a$=chr$(13):return
  125. 1003 a$=" ":return
  126. 10000 gosub51000:ift$=z$thenq=ls:goto20000
  127. 10001 q=1:t$=z$:a$(z)="[191]":poke53269,0:poke53265,11:t$=z$:ga=peek(186)
  128. 10002 iflen(z$)<12thenz$=z$+" ":goto10002
  129. 10003 z$=z$+".txt":open2,ga,2,z$+",s,r":input#2,a1$
  130. 10004 input#2,a2$
  131. 10005 input#2,s
  132. 10006 forg1=1tos:forg2=1to14
  133. 10007 input#2,t$(g2,g1)
  134. 10008 nextg2,g1:close2
  135. 20000 forg=54272to54295:pokeg,0:next:poke53269,0:gosub50000
  136. 20001 print"":poke54296,10
  137. 20002 forg=1to16
  138. 20003 print"                                        ";
  139. 20004 nextg:poke53265,27
  140. 20005 print" issue #4 [144][169][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][170]"
  141. 20006 poke214,23:poke211,26:sys58640:print"             "
  142. 20007 print"[145][144]page     [157][157][157][157][157]"q"[144]    [157][157][157][157]/    [157][157][157][157]"s
  143. 20008 forg=1to14
  144. 20009 poke211,1:poke214,g+5:sys58640:print"[151]"t$(g,q):nextg:poke54296,15
  145. 20011 c=int(log(255.5-(peek(53262-joy)or224))/log(2)+2):gosub40000
  146. 20012 oncgosub1003,1000,1001,1001,1000,1002
  147. 20013 a=peek(653):b=peek(203):geta$:ifa$=""anda=0then20011
  148. 20014 ifa$="+"ora$=""ora$="[145]"ora$=chr$(32)thenifq<sthenq=q+1:goto20001
  149. 20015 ifa$="+"ora$=""ora$="[145]"ora$=chr$(32)thenifq=sthenq=1:goto20001
  150. 20016 if(peek(653) and 2)thena$="-"
  151. 20017 ifa$="-"ora$="[157]"ora$=""thenifq>1thenq=q-1:goto20001
  152. 20018 ifa$="-"ora$="[157]"ora$=""thenifq=1thenq=s:goto20001
  153. 20019 if(a and 4)then30000
  154. 20020 ifa$=chr$(13)thenls=q:close2:na=0:sys49152:poke53280,2:goto100
  155. 20021 if(a and 2)thena$=chr$(13):goto20020
  156. 20022 ifa$="[133]"then24000
  157. 20023 ifa$="[134]"thenq=1:goto20001
  158. 20024 ifa$="[135]"thenq=s:goto20001
  159. 20025 ifa$="[136]"then25000
  160. 20032 goto20011
  161. 24000 x$="":poke211,28:poke214,23:sys58732:print"[144]nach ?";
  162. 24001 poke211,35:poke214,23:sys58732:printx$
  163. 24002 geta$:ifa$=""thengosub40000:goto24002
  164. 24003 ifa$=chr$(13)orlen(x$)=2then24006
  165. 24004 x$=x$+a$
  166. 24005 goto24001
  167. 24006 x=val(x$):ifx>sorx<1then20001
  168. 24007 q=x:goto20001
  169. 30000 print"":poke53265,11:poke54296,0
  170. 30001 forg=1to16
  171. 30002 print"                                        ";
  172. 30003 nextg:print""
  173. 30004 printtab(9)"[144][212][193][211][212][193][212][213][210][146] [164] [194][197][204][197][199][213][206][199]"
  174. 30005 printtab(9)"[145]tastatur[146] [163] belegung"
  175. 30006 printtab(9)"-[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]"
  176. 30007 print" [171] / [173] / + / space : [151]seite vor"
  177. 30008 print"[152] [174] / [172] / - / [183]     : [151]seite zur]ck"
  178. 30009 print"[144] f1[151] springe seite"
  179. 30010 print"[145][144] f3[151] erste seite":printtab(20)"[145][145][152]return[151] zur]ck"
  180. 30011 print"[144] f5[151] letzte seite"tab(27)"[145]zum men]"
  181. 30012 print"[144]                   ":printtab(20)"[145][152]ctrl[151]   diese info-"
  182. 30013 printtab(27)"seite":poke53265,27
  183. 30014 geta$:ifa$=""then30014
  184. 30015 goto20001
  185. 40000 ifna<>0then40003
  186. 40001 si=54272:gosub51000:open2,ga,2,"music ."+str$(ms)+"*,s,r"
  187. 40002 input#2,n
  188. 40003 input#2,a1
  189. 40004 input#2,a2
  190. 40005 input#2,a3
  191. 40006 input#2,b1
  192. 40007 input#2,b2
  193. 40008 input#2,b3
  194. 40009 na=na+1:pokesi+5,8*16+1:pokesi+6,3*16+3:pokesi+12,5*16+6
  195. 40010 pokesi+13,7*16+8:pokesi+19,4*16+6:pokesi+20,8*16+8
  196. 40011 pokesi,b1:pokesi+7,b2:pokesi+14,b3:pokesi+1,a1:pokesi+8,a2:pokesi+15,a3
  197. 40012 pokesi+4,33:pokesi+11,17:pokesi+18,33:ifna=nthenclose2:na=0
  198. 40013 return
  199. 50000 print"[147]":print"[144] rubrik :[152] "a1$:print"[144] thema  :[152] "a2$:poke211,1
  200. 50001 poke214,4:sys58732:print"[144][189][161][162][161][162][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][170] issue #4"
  201. 50003 return
  202. 51000 ga=peek(186):open1,ga,15:close1:ifst<0then51002
  203. 51001 return
  204. 51002 poke53265,27:poke53269,0:print"[147][144]         so geht's ja nicht !!!"
  205. 51003 printtab(9)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print"[151] du hast dein device ja gar ";
  206. 51004 print"nicht ein -":print" geschaltet.dr]ck mal 'ne taste !!!"
  207. 51005 geta$:ifa$=""then51005
  208. 51006 poke53265,11:goto102
  209.