home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_A.d64 / publication_main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  7.3 KB  |  210 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]8:[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]"YEP! DA IS'E":SC[178]1:SC$(2)[178]" WIEDA! DIE ":SC$(3)[178]"PUBLICATION!"
  15. 16 SC$(4)[178]"UND ZWAR MIT":SC$(5)[178]"  DER NEUEN  ":M$(1)[178]"EDITORIALES"
  16. 17 M$(2)[178]"ANZEIGENCORNER":M$(3)[178]"BASIC - TRICKS":M$(8)[178]"OPTIONEN":MS[178]1
  17. 18 M$(4)[178]"ZU DEN PROGGIS":M$(5)[178]"FLOYD/DARK STAR":SC$(6)[178]" ISSUE #6 ! "
  18. 19 M$(6)[178]"PROGRAMMIERCOMPO":M$(7)[178]"ALLES ANDERE"
  19. 20 [143] *** TEXTE **
  20. 21 R$(1,1)[178]"HY UND HALLO":R$(7,1)[178]"HAUPTMEN]":O(1)[178]7:R$(2,2)[178]"BIETE ZEUX"
  21. 22 R$(1,2)[178]"SUCHE ZEUX":R$(3,2)[178]"SUCHE CONTAX":R$(4,2)[178]"HAUPTMEN]":O(2)[178]4
  22. 23 R$(2,1)[178]"NEUES MAGSYS":R$(3,1)[178]"TASTATUR":R$(4,1)[178]"EINSENDUNGEN"
  23. 24 R$(5,1)[178]"ABONNEMENTS":R$(3,3)[178]"TEXTSLIDE":O(3)[178]5:R$(5,3)[178]"HAUPTMEN]"
  24. 25 R$(2,3)[178]"BASIC C000":R$(6,1)[178]"IMPRESSUM"
  25. 26 R$(1,3)[178]"TEXTWINDOW":R$(1,4)[178]"DISKFILE":R$(7,4)[178]"HAUPTMEN]":CP[178]1:Z[178]1
  26. 27 O(4)[178]7:R$(2,4)[178]"OREGON TRAIL":R$(3,4)[178]"THE DERBY":R$(4,4)[178]"DOSENFUTTER"
  27. 28 R$(5,4)[178]"GRAFIX":R$(6,4)[178]"TRACKRACER 2":R$(4,3)[178]"128'ER"
  28. 29 R$(1,7)[178]"LOOPZ":R$(2,7)[178]"WATOR-REVIEW":R$(4,7)[178]"CHARTS"
  29. 30 R$(5,7)[178]"KLAMPFENKURS":R$(6,7)[178]"HAUPTMEN]":O(7)[178]6:R$(3,7)[178]"JTR'S COMPOS"
  30. 100 [151]2040,224:[151]2041,226:[151]2042,227:[151]2043,228:[151]2044,229
  31. 101 [151]2045,230:[151]2046,231:[151]2047,232:[151]53276,126:[151]53277,120
  32. 102 [151]53285,1:[151]53286,6:[151]53288,5:[151]53250,30:[151]53287,2
  33. 103 [151]53251,225:[151]53289,5:[151]53252,154:[151]53253,225::[153]"LOAD"
  34. 104 [129]G[178]1[164]4:[151]53253[170]G[172]2,55:[130]:[151]53254,86:[151]53256,134:[151]53290,14
  35. 105 [151]53291,14:[151]53292,14:[151]53258,182:[151]53260,230:[151]53293,14:[151]211,1
  36. 106 [151]214,4:[158]58732:[153]"STOPEXPGETNEWGETNEWNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGET+ ISSUE #6"
  37. 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]
  38. 110 Z[178]CP:[153]""[163]20)"STOPCOSRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDCOS":[129]G[178]1[164]16
  39. 111 [153][163]20)"LOG                 LOG":[130]:[153][163]20)"COSRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDCOS"
  40. 112 [151]211,23:[151]214,8:[158]58732:[153]"(null)(null)PEEK(null)RIGHT$(null)(null)VAL(null)(null)VALWAIT \":G[178]1
  41. 113 [153][163]23)"RUBRIKTEXTEWAIT \":[151]214,23:[158]58732:[153]"PRINT#    ------------"
  42. 114 [151]53265,27:[151]54296,0:[151]53269,127
  43. 118 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
  44. 119 [145]C [141]1003,1000,1001,1001,1000,1002
  45. 120 [151]53248,25:[151]53249,Z[172]16[170]82
  46. 121 A[178][194](203):[161]A$:[139]A$[178]""[167][141]129:[137]118
  47. 122 [139]A$[178]""[175]Z[178]AR[167]Z[178]0
  48. 123 [139]A$[178]""[175]Z[179]AR[170]1[167]Z[178]Z[170]1
  49. 124 [139]A$[178]"ON"[175]Z[178]1[167]Z[178]AR[170]1
  50. 125 [139]A$[178]"ON"[175]Z[177]1[167]Z[178]Z[171]1
  51. 126 [139]A$[178][199](13)[167][151]2040,225:[129]X[178]1[164]100:[130]:[151]2040,224:[137]250
  52. 127 [139]A[178]63[167]200
  53. 128 [137]118
  54. 129 [151]211,4:[151]214,22:[158]58732:[151]646,F(G):G[178]G[170]1
  55. 130 [153]SC$(SC):[139]G[178]9[167]G[178]1:SC[178]SC[170]1:[139]SC[178]7[167]SC[178]1
  56. 131 [142]
  57. 200 [151]211,23:[151]214,8:[158]58732:[153]" (null)ATNCHR$@PEEKVALVAL(null)STR$VAL(null)@"
  58. 201 [153][163]23)" MAG@BEENDEN@":[153][163]25)"POKEWIRKLICH?"
  59. 202 [161]A$:[139]A$[178]""[167]202
  60. 203 [139]A$[178]"J"[176]A$[178]"Y"[167][151]53269,0:[158]64767
  61. 204 [139]A$[178]"N"[167]110
  62. 205 [137]202
  63. 250 CP[178]Z:[139]Z[178]8[167]400
  64. 251 [139]Z[178]5[167]Z$[178]"DARK STAR":[137]10000
  65. 252 [139]Z[178]6[167]Z$[178]"BASIC-COMPO":[137]10000
  66. 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)
  67. 301 [139]R$(Q,Z)[178]"HAUPTMEN]"[167]Q[178]9
  68. 302 [130]:A[178]1:F[178][171]1:[151]198,0
  69. 303 F[178]F[170]1:[151]646,F:[139]F[178]14[167]F[178][171]1
  70. 304 [151]211,22:[151]214,A[170]10:[158]58732:[153]R$(A,Z)
  71. 305 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
  72. 306 [145]C [141]1003,1000,1001,1001,1000,1002
  73. 307 B[178][194](203):[161]A$:[139]A$[178]""[167]303
  74. 308 [151]646,11:[151]211,22:[151]214,A[170]10:[158]58732:[153]R$(A,Z)
  75. 309 [139]A$[178]""[175]A[178]AN[167]A[178]0
  76. 310 [139]A$[178]""[175]A[179]AN[170]1[167]A[178]A[170]1
  77. 311 [139]A$[178]"ON"[175]A[178]1[167]A[178]AN[170]1
  78. 312 [139]A$[178]"ON"[175]A[177]1[167]A[178]A[171]1
  79. 313 [139]A$[178][199](13)[167]316
  80. 314 [139]B[178]63[167]110
  81. 315 [137]303
  82. 316 [139]R$(A,Z)[178]"HAUPTMEN]"[167]110
  83. 317 Z$[178]R$(A,Z):[137]10000
  84. 400 [151]214,8:[158]58732:[153][163]23)"   (null)(null)(null)RIGHT$(null)(null)(null)@@@":O$(1)[178]"INFORMATION":A[178]1
  85. 401 [153][163]23)"   OPTIONS@@@":O$(2)[178]"TEXT DRUCKEN":O$(3)[178]"MUSIC ."[170][196](MS)
  86. 402 O$(4)[178]"DEVICE . "[170][196](GA):O$(5)[178]"JOYSTICK . "[170][196](JOY):O$(6)[178]"HAUPTMEN]"
  87. 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
  88. 404 F[178]F[170]1:[151]646,F(F):[139]F[178]8[167]F[178]0
  89. 405 [151]211,22:[151]214,A[170]10:[158]58732:[153]O$(A)
  90. 406 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
  91. 407 [145]C [141]1003,1000,1001,1001,1000,1002
  92. 408 B[178][194](203):[161]A$:[139]A$[178]""[167]404
  93. 409 [151]646,11:[151]211,22:[151]214,A[170]10:[158]58732:[153]O$(A)
  94. 410 [139]A$[178]""[175]A[178]6[167]A[178]0
  95. 411 [139]A$[178]""[175]A[179]7[167]A[178]A[170]1
  96. 412 [139]A$[178]"ON"[175]A[178]1[167]A[178]7
  97. 413 [139]A$[178]"ON"[175]A[177]1[167]A[178]A[171]1
  98. 414 [139]A$[178][199](13)[167][145]A[137]600,500,422,419,417,110
  99. 415 [139]B[178]63[167]110
  100. 416 [137]404
  101. 417 [139]JOY[178]1[167]JOY[178]2:[137]402
  102. 418 JOY[178]1:[137]402
  103. 419 [139]GA[178]8[167]GA[178]9:[137]421
  104. 420 GA[178]8
  105. 421 [151]186,GA:[137]402
  106. 422 MS[178]MS[170]1:[139]MS[178]4[167]MS[178]1
  107. 423 [151]214,9:[158]58732:[137]401
  108. 424 [151]211,22:[151]214,18:[158]58732:[153]"KEIN TEXT IM":[153][163]23)"SPEICHER !
  109. 425 GOTO404
  110. 500 IFT$=""THEN424
  111. 501 OPEN1,4,0:CLOSE1:IFST<0THENPOKE186,GA:GOTO51002
  112. 502 OPEN2,4,7:FORG1=1TOS:FORG2=1TO14:PRINT#2,T$(G2,G1):NEXTG2,G1:CLOSE2:GOTO110
  113. 600 POKE214,8:SYS58732:PRINTTAB(23)" [201][206][198][207][210][205][193][212][201][207][206]":POKE53269,255:
  114. 601 PRINTTAB(23)" INFORMATION"
  115. 602 FORG=1TO7:PRINTTAB(22)"              ":NEXT:POKE214,11:POKE211,22:SYS58732
  116. 603 POKE53263,208:POKE53262,196:POKE53294,1
  117. 604 PRINT"[151]THIS IS THE NEW":PRINTTAB(22)"MAGSYS 3.0+ !"
  118. 605 PRINTTAB(22)"IT SEEMS TO BE":PRINTTAB(22)"SOME FINAL KIND"
  119. 606 PRINTTAB(22)"OF VERSION[220]":PRINTTAB(22)"BUT NEVER MIND."
  120. 607 PRINTTAB(22)"THERE'LL BE A":PRINTTAB(22)"NEW ONE ![152]"
  121. 608 PRINTTAB(25)"JUST TAKE'N":PRINTTAB(25)"ENJOY IT !!!"
  122. 609 GETA$:IFA$=""THENGOSUB129:GOTO609
  123. 610 GOTO110
  124. 1000 A$="+":RETURN
  125. 1001 A$="-":RETURN
  126. 1002 A$=CHR$(13):RETURN
  127. 1003 A$=" ":RETURN
  128. 10000 GOSUB51000:IFT$=Z$THENQ=LS:GOTO20000
  129. 10001 Q=1:T$=Z$:A$(Z)="[191]":POKE53269,0:POKE53265,11:T$=Z$:GA=PEEK(186)
  130. 10002 IFLEN(Z$)<12THENZ$=Z$+" ":GOTO10002
  131. 10003 Z$=Z$+".TXT":OPEN2,GA,2,Z$+",S,R":INPUT#2,A1$
  132. 10004 INPUT#2,A2$
  133. 10005 INPUT#2,S
  134. 10006 FORG1=1TOS:FORG2=1TO14
  135. 10007 INPUT#2,T$(G2,G1)
  136. 10008 NEXTG2,G1:CLOSE2
  137. 20000 FORG=54272TO54295:POKEG,0:NEXT:POKE53269,0:GOSUB50000
  138. 20001 PRINT"":POKE54296,10
  139. 20002 FORG=1TO16
  140. 20003 PRINT"                                        ";
  141. 20004 NEXTG:POKE53265,27
  142. 20005 PRINT" ISSUE #6 [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]"
  143. 20006 POKE214,23:POKE211,26:SYS58640:PRINT"             "
  144. 20007 PRINT"[145][144]PAGE     [157][157][157][157][157]"Q"[144]    [157][157][157][157]/    [157][157][157][157]"S
  145. 20008 FORG=1TO14
  146. 20009 POKE211,1:POKE214,G+5:SYS58640:PRINT"[151]"T$(G,Q):NEXTG:POKE54296,15
  147. 20011 C=INT(LOG(255.5-(PEEK(53262-JOY)OR224))/LOG(2)+2):GOSUB40000
  148. 20012 ONCGOSUB1003,1000,1001,1001,1000,1002
  149. 20013 A=PEEK(653):B=PEEK(203):GETA$:IFA$=""ANDA=0THEN20011
  150. 20014 IFA$="+"ORA$=""ORA$="[145]"ORA$=CHR$(32)THENIFQ<STHENQ=Q+1:GOTO20001
  151. 20015 IFA$="+"ORA$=""ORA$="[145]"ORA$=CHR$(32)THENIFQ=STHENQ=1:GOTO20001
  152. 20016 IF(PEEK(653) AND 2)THENA$="-"
  153. 20017 IFA$="-"ORA$="[157]"ORA$=""THENIFQ>1THENQ=Q-1:GOTO20001
  154. 20018 IFA$="-"ORA$="[157]"ORA$=""THENIFQ=1THENQ=S:GOTO20001
  155. 20019 IF(A AND 4)THEN30000
  156. 20020 IFA$=CHR$(13)THENLS=Q:CLOSE2:NA=0:SYS49152:POKE53280,2:GOTO100
  157. 20021 IF(A AND 2)THENA$=CHR$(13):GOTO20020
  158. 20022 IFA$="[133]"THEN24000
  159. 20023 IFA$="[134]"THENQ=1:GOTO20001
  160. 20024 IFA$="[135]"THENQ=S:GOTO20001
  161. 20032 GOTO20011
  162. 24000 X$="":POKE211,28:POKE214,23:SYS58732:PRINT"[144]NACH ?";
  163. 24001 POKE211,35:POKE214,23:SYS58732:PRINTX$
  164. 24002 GETA$:IFA$=""THENGOSUB40000:GOTO24002
  165. 24003 IFA$=CHR$(13)ORLEN(X$)=2THEN24006
  166. 24004 X$=X$+A$
  167. 24005 GOTO24001
  168. 24006 X=VAL(X$):IFX>SORX<1THEN20001
  169. 24007 Q=X:GOTO20001
  170. 30000 PRINT"":POKE53265,11:POKE54296,0
  171. 30001 FORG=1TO16
  172. 30002 PRINT"                                        ";
  173. 30003 NEXTG:PRINT""
  174. 30004 PRINTTAB(9)"[144][212][193][211][212][193][212][213][210][146] [164] [194][197][204][197][199][213][206][199]"
  175. 30005 PRINTTAB(9)"[145]TASTATUR[146] [163] BELEGUNG"
  176. 30006 PRINTTAB(9)"-[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]"
  177. 30007 PRINT" [171] / [173] / + / SPACE : [151]SEITE VOR"
  178. 30008 PRINT"[152] [174] / [172] / - / [183]     : [151]SEITE ZUR]CK"
  179. 30009 PRINT"[144] F1[151] SPRINGE SEITE"
  180. 30010 PRINT"[145][144] F3[151] ERSTE SEITE":PRINTTAB(20)"[145][145][152]RETURN[151] ZUR]CK"
  181. 30011 PRINT"[144] F5[151] LETZTE SEITE"TAB(27)"[145]ZUM MEN]"
  182. 30012 PRINT"[144]                   ":PRINTTAB(20)"[145][152]CTRL[151]   DIESE INFO-"
  183. 30013 PRINTTAB(27)"SEITE":POKE53265,27
  184. 30014 GETA$:IFA$=""THEN30014
  185. 30015 GOTO20001
  186. 40000 IFNA<>0THEN40003
  187. 40001 SI=54272:GOSUB51000:OPEN2,GA,2,"MUSIC ."+STR$(MS)+"*,S,R"
  188. 40002 INPUT#2,N
  189. 40003 INPUT#2,A1
  190. 40004 INPUT#2,A2
  191. 40005 INPUT#2,A3
  192. 40006 INPUT#2,B1
  193. 40007 INPUT#2,B2
  194. 40008 INPUT#2,B3
  195. 40009 NA=NA+1:POKESI+5,8*16+1:POKESI+6,3*16+3:POKESI+12,5*16+6
  196. 40010 POKESI+13,7*16+8:POKESI+19,4*16+6:POKESI+20,8*16+8
  197. 40011 POKESI,B1:POKESI+7,B2:POKESI+14,B3:POKESI+1,A1:POKESI+8,A2:POKESI+15,A3
  198. 40012 POKESI+4,33:POKESI+11,17:POKESI+18,33:IFNA=NTHENCLOSE2:NA=0
  199. 40013 RETURN
  200. 50000 PRINT"[147]":PRINT"[144] RUBRIK :[152] "A1$:PRINT"[144] THEMA  :[152] "A2$:POKE211,1
  201. 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 #6"
  202. 50003 RETURN
  203. 51000 GA=PEEK(186):OPEN1,GA,15:CLOSE1:IFST<0THEN51002
  204. 51001 RETURN
  205. 51002 POKE53265,27:POKE53269,0:PRINT"[147][144]         SO GEHT'S JA NICHT !!!"
  206. 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 ";
  207. 51004 PRINT"NICHT EIN -":PRINT" GESCHALTET.DR]CK MAL 'NE TASTE !!!"
  208. 51005 GETA$:IFA$=""THEN51005
  209. 51006 POKE53265,11:GOTO102
  210.