home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / publication_main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  143 lines
  1. 1 rem"  publication-magsys v2.0 by zeitgeist
  2. 2 [143]"----------------------------------------
  3. 3 rem""(NULL)
  4. 11 ga=peek(186):ifa=0thena=1:load"charset*",ga,1
  5. 12 poke53272,29:dim t$(15,25),ab$(20),ab(20):jo=2:poke198,0
  6. 13 gosub50000:cp=1:an=9:l=16
  7. 14 forg=1toan:c$(g)="[190]":next
  8. 100 poke53280,0:poke53281,15:print"[147][144]"
  9. 101 m$(6)="anzeigen":m$(8)="optionen":m$(7)="alles andere"
  10. 102 m$(1)="hy und hallo !":m$(3)="zu den proggis":m$(4)="public tests"
  11. 103 m$(2)="reporter":m$(5)="hard-/software":poke53269,127
  12. 104 print"[144][208]@[213]@[194]@[204]@[201]@[195]@[193]@[212]@[201]@[207]@[206]"
  13. 105 print"p@u@b@l@i@c@a@t@i@o@n":z=cp
  14. 106 print" [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] issue #3"
  15. 107 forg=1toan-1:poke211,1:poke214,g*2+5:sys58732:print"[152]"c$(g)"[144] "m$(g):next
  16. 130 poke53248,24:poke53249,z*16+92
  17. 131 poke53250,50:poke53251,55:poke53252,37
  18. 132 poke53253,55:poke53254,130:poke53255,227:poke53257,227:poke53259,227
  19. 133 poke53256,153:poke53258,176:poke53260,200:poke53261,227
  20. 150 geta$:ifa$<>""then155
  21. 151 ifs=1thenpoke2041,226:poke2042,227:s=0
  22. 152 forg=1to99:nextg:poke2041,227:poke2042,226:s=1:forg=1to99:nextg
  23. 153 gosub30000
  24. 155 ifa$=chr$(145)andz=1thenz=9
  25. 156 ifa$=chr$(17)andz=8thenz=0
  26. 157 ifa$=chr$(145)thenz=z-1
  27. 158 ifa$=chr$(17)thenz=z+1
  28. 159 ifa$=chr$(13)thencp=z:goto170
  29. 162 poke53248,24:poke53249,z*16+92:goto150
  30. 170 poke2040,225:forg=1to120:nextg:poke2040,224:c$(z)="[191]"
  31. 171 ifz=8then1000
  32. 172 poke53265,11:z$=m$(z):goto10000
  33. 1000 m$(3)="directory":m$(4)="information":m$(5)="hauptmen]":ma=5:mx=27:my=17
  34. 1001 m$(2)="joystick #"+str$(jo):m$(1)="device #"+str$(peek(186)):gosub49000
  35. 1002 on a goto 1003,1020,1005,1012,100
  36. 1003 ifpeek(186)=8thenpoke186,9:goto1001
  37. 1004 poke186,8:goto1001
  38. 1005 ga=peek(186):print"[147]":poke53272,21:poke53269,0:open1,ga,0,"$":poke781,1
  39. 1006 sys65478:geta$,a$:e$=chr$(0)
  40. 1007 geta$,a$,h$,l$:ifstthensys65484:close1:gosub47000:goto1011
  41. 1008 printasc(h$+e$)+256*asc(l$+e$);
  42. 1009 geta$,b$:ifa$thenprinta$b$;:goto1009
  43. 1010 printa$:goto1007
  44. 1011 poke53272,29:goto100
  45. 1012 poke2047,232:poke53269,255:poke53262,180:poke53263,105:poke53276,126
  46. 1013 poke211,23:poke214,7:sys58732:print"[144][212][200][197]@[208][213][194][204][201][195][193][212][201][207][206]"
  47. 1014 printtab(23)"the@publication":printtab(23)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151]"
  48. 1015 printtab(23)"this is the long":printtab(23)"awaited magsys"
  49. 1016 printtab(23)"v2.0 !!!":printtab(23)"no crediz -"
  50. 1017 printtab(23)"everything was":printtab(23)"simply coded"
  51. 1018 printtab(23)"by me !":gosub47000:goto100
  52. 1020 ifjo=1thenjo=2:goto1001
  53. 1021 jo=1:goto1001
  54. 10000 ifis$=z$thenq=1:s=i1:q=i2:goto20000
  55. 10001 ga=peek(186):forg=1to18:ab$(g)="":next:ab=1:open2,ga,2,"o:"+z$+"*,s,r"
  56. 10002 forg=1to18
  57. 10003 input#2,ab$(g):input#2,ab(g)
  58. 10005 nextg
  59. 10006 input#2,s
  60. 10007 input#2,a1$
  61. 10008 input#2,a2$
  62. 10009 forg1=1tos
  63. 10010 forg2=1to14
  64. 10011 input#2,t$(g2,g1)
  65. 10012 nextg2:nextg1:close2:q=1:is$=z$:i1=s:poke53265,27
  66. 11000 print"":forg=1to3:print"                                        ";:nextg
  67. 11001 print"rubrik :[144] ";a1$
  68. 11002 print"[145]thema  : [144]";a2$
  69. 20000 poke53269,126
  70. 20001 print""
  71. 20002 forg=1to16
  72. 20003 print"                                        ";
  73. 20004 nextg:poke53265,27
  74. 20005 print" issue #3 [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]"
  75. 20006 poke214,23:poke211,26:sys58640:print"             "
  76. 20007 print"[145][144]page     [157][157][157][157][157]"q"[144]    [157][157][157][157]/    [157][157][157][157]"s
  77. 20008 forg=1to14
  78. 20009 poke211,1:poke214,g+5:sys58640:print"[151]"t$(g,q):nextg
  79. 20010 a=peek(653):geta$:ifa$=""thengosub30000
  80. 20011 ifa$=""ora$="[145]"ora$=chr$(32)ora$="+"thenifq<sthenq=q+1:goto20001
  81. 20012 ifa$="[157]"ora$=""ora$="-"or(a and 2)thenifq>1thenq=q-1:goto20001
  82. 20013 ifa$=chr$(13)theni2=q:goto100
  83. 20014 ifa$="[133]"theng=q:goto20019
  84. 20015 ifa$="[134]"thenq=1:goto20001
  85. 20016 ifa$="[135]"thenq=s:goto20001
  86. 20017 ifa$="[136]"then20024
  87. 20018 goto20010
  88. 20019 g$="":forg=1to3:poke214,23:poke211,26:sys58640:print"nach ?[144] ";g$
  89. 20020 gosub47000:ifa$=chr$(13)theng=3:goto20022
  90. 20021 ifasc(a$)<48orasc(a$)>57then20020
  91. 20022 g$=g$+a$:next:g=val(g$):ifg>sorg<1theng=q
  92. 20023 q=g:goto20001
  93. 20024 poke214,23:poke211,26:sys58640:print"?[144]            [157][157][157][157][157][157][157][157][157][157][157]";ab$(ab)
  94. 20025 gosub47000:ifa$=chr$(13)thenq=ab(ab):goto20001
  95. 20026 ifa$="[145]"ora$=""thenifab$(ab+1)<>"[160]"thenab=ab+1
  96. 20027 ifa$=""ora$="[157]"thenifab>1thenab=ab-1
  97. 20028 goto20024
  98. 30000 j=int(log(255.5-(peek(56322-jo)or224))/log(2)+2)
  99. 30001 on j goto 30002,30003,30004,30004,30003,30005
  100. 30002 return
  101. 30003 a$=chr$(145):return
  102. 30004 a$=chr$(17):return
  103. 30005 a$=chr$(13):return
  104. 47000 rem *** taste ***
  105. 47001 geta$:ifa$=""then47003
  106. 47002 return
  107. 47003 j=int(log(255.5-(peek(56322-jo)or224))/log(2)+2)
  108. 47004 ifj<>1thenreturn
  109. 47005 goto47000
  110. 48000 print"":forg=1to9
  111. 48001 print"               ":nextg
  112. 48999 return
  113. 49000 gosub48000
  114. 49001 forg=1toma:poke646,11:poke214,g+my:poke211,mx:sys58640:printm$(g):nextg
  115. 49002 a=1:g=0
  116. 49003 g=g+1:ifg=15theng=0
  117. 49004 poke646,g:poke214,a+my:poke211,mx:sys58640:printm$(a)
  118. 49005 geta$:ifa$=""thengosub30000
  119. 49006 ifa$=""then49003
  120. 49007 poke646,11:poke214,a+my:poke211,mx:sys58640:printm$(a)
  121. 49008 ifa$="[145]"thenifa>1thena=a-1
  122. 49009 ifa$=""thenifa<mathena=a+1
  123. 49010 ifa$=chr$(13)then49012
  124. 49011 goto49003
  125. 49012 poke646,11:poke214,a+my:poke211,mx:sys58640:printm$(a):return
  126. 50000 rem *** sprites ***
  127. 50001 poke2046,231:poke53277,0
  128. 50002 poke2040,224:poke2041,226:poke2042,227:poke2043,228:poke2044,229
  129. 50003 poke2045,230:poke53264,2:poke53286,11:poke53285,1:poke53276,254
  130. 50004 poke53287,1:poke53288,12:poke53289,12:poke53290,12:poke53291,12
  131. 50005 poke53292,12:poke53293,12:poke53294,12:return
  132. 51000 rem
  133. 51001 rem *****************************
  134. 51002 rem *                           *
  135. 51003 rem * publication - magsys v2.0 *
  136. 51004 rem * was done by zeitgeist/h-t *
  137. 51005 rem *                           *
  138. 51006 rem * c= - routine was done in  *
  139. 51007 rem * february '96 to complete  *
  140. 51008 rem * the new magsys !          *
  141. 51009 rem *                           *
  142. 51010 rem *****************************
  143.