1 REM" MAGSYS 3.0 DONE BY ZEITGEIST/HIGH-TECH
2 [143]"----------------------------------------
3 REM" TAKE THE REST -
4 [143]" GET THE PUBLICATION !
5 REM"
7 [143]" SOME KIND OF
8 REM" FUCKIN' LAMENESS !
9 [143]""[204]
10 [151]53265,11:[151]198,0:GA[178][194](186)
11 [139]A[178]0[167]A[178]1:[147]"CHARSET.2*",GA,1
12 [151]53281,7:[151]53280,2:[151]53272,29:[156]:AR[178]7:[151]788,52:GA[178][194](186)
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
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
15 SC$(1)[178]"HY UND HALLO":SC[178]1:SC$(2)[178]" ZUR NUMMER ":SC$(3)[178]" VIER EURES "
16 SC$(4)[178]"LIEBLINGSMAG":SC$(5)[178]"PUBLICATION!":M$(1)[178]"EDITORIALES"
17 M$(2)[178]"ANZEIGENCORNER":M$(3)[178]"BASIC - TRICKS":M$(7)[178]"OPTIONEN":MS[178]1
18 M$(4)[178]"ZU DEN PROGGIS":M$(5)[178]"INTERVIEW":M$(6)[178]"HARD-/SOFTWARE"
20 [143] *** TEXTE **
21 R$(1,1)[178]"HY UND HALLO":R$(7,1)[178]"HAUPTMEN]":O(1)[178]7:R$(2,2)[178]"BIETE ZEUX"
22 R$(1,2)[178]"SUCHE ZEUX":R$(3,2)[178]"SUCHE CONTAX":R$(4,2)[178]"HAUPTMEN]":O(2)[178]4
23 R$(2,1)[178]"NEUES MAGSYS":R$(3,1)[178]"TASTATUR":R$(4,1)[178]"EINSENDUNGEN"
24 R$(5,1)[178]"ABONNEMENTS":R$(4,3)[178]"JOYSTICK":O(3)[178]6:R$(6,3)[178]"HAUPTMEN]"
25 R$(2,3)[178]"FLACKER FX":R$(3,3)[178]"BASIC-MUSIK":R$(6,1)[178]"IMPRESSUM"
26 R$(1,3)[178]"BASIC-TIPS":R$(1,4)[178]"FUTUREWRITER":R$(7,4)[178]"HAUPTMEN]":CP[178]1:Z[178]1
27 O(4)[178]7:R$(2,4)[178]"DIE DEMOS":R$(3,4)[178]"HOTEL":R$(4,4)[178]"SCROLL-MAKER"
28 R$(5,4)[178]"MAFIA-TOOL":R$(6,4)[178]"WATOR":R$(5,3)[178]"FILE READER":O(6)[178]6
29 R$(1,6)[178]"PC-SLAVE":R$(2,6)[178]"GEO-FAX":R$(3,6)[178]"64NET":R$(4,6)[178]"GODOT"
30 R$(5,6)[178]"CENTRUM":R$(6,6)[178]"HAUPTMEN]"
100 [151]2040,224:[151]2041,226:[151]2042,227:[151]2043,228:[151]2044,229
101 [151]2045,230:[151]2046,231:[151]2047,232:[151]53276,126:[151]53277,120
102 [151]53285,1:[151]53286,6:[151]53288,5:[151]53250,30:[151]53287,2
103 [151]53251,225:[151]53289,5:[151]53252,154:[151]53253,225::[153]"LOAD"
104 [129]G[178]1[164]4:[151]53253[170]G[172]2,55:[130]:[151]53254,86:[151]53256,134:[151]53290,14
105 [151]53291,14:[151]53292,14:[151]53258,182:[151]53260,230:[151]53293,14:[151]211,1
106 [151]214,4:[158]58732:[153]"STOPEXPGETNEWGETNEWNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGETNEWGET+ ISSUE #4"
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]
110 Z[178]CP:[153]""[163]20)"STOPCOSRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDCOS":[129]G[178]1[164]16
111 [153][163]20)"LOG                 LOG":[130]:[153][163]20)"COSRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDRNDCOS"
112 [151]211,23:[151]214,8:[158]58732:[153]"(null)(null)PEEK(null)RIGHT$(null)(null)VAL(null)(null)VALWAIT \":G[178]1
113 [153][163]23)"RUBRIKTEXTEWAIT \":[151]214,23:[158]58732:[153]"PRINT#    ------------"
114 [151]53265,27:[151]54296,0:[151]53269,127
118 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
119 [145]C [141]1003,1000,1001,1001,1000,1002
120 [151]53248,25:[151]53249,Z[172]16[170]82
121 A[178][194](203):[161]A$:[139]A$[178]""[167][141]129:[137]118
122 [139]A$[178]""[175]Z[178]AR[167]Z[178]0
123 [139]A$[178]""[175]Z[179]AR[170]1[167]Z[178]Z[170]1
124 [139]A$[178]"ON"[175]Z[178]1[167]Z[178]AR[170]1
125 [139]A$[178]"ON"[175]Z[177]1[167]Z[178]Z[171]1
126 [139]A$[178][199](13)[167][151]2040,225:[129]X[178]1[164]100:[130]:[151]2040,224:[137]250
127 [139]A[178]63[167]200
128 [137]118
129 [151]211,4:[151]214,22:[158]58732:[151]646,F(G):G[178]G[170]1
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
131 [142]
200 [151]211,23:[151]214,8:[158]58732:[153]" (null)ATNCHR$@PEEKVALVAL(null)STR$VAL(null)@"
201 [153][163]23)" MAG@BEENDEN@":[153][163]25)"POKEWIRKLICH?"
202 [161]A$:[139]A$[178]""[167]202
203 [139]A$[178]"J"[176]A$[178]"Y"[167][151]53269,0:[158]64767
204 [139]A$[178]"N"[167]110
205 [137]202
250 CP[178]Z:[139]Z[178]7[167]400
251 [139]Z[178]5[167]Z$[178]"INTERVIEW":[137]10000
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)
301 [139]R$(Q,Z)[178]"HAUPTMEN]"[167]Q[178]9
302 [130]:A[178]1:F[178][171]1:[151]198,0
303 F[178]F[170]1:[151]646,F:[139]F[178]14[167]F[178][171]1
304 [151]211,22:[151]214,A[170]10:[158]58732:[153]R$(A,Z)
305 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
306 [145]C [141]1003,1000,1001,1001,1000,1002
307 B[178][194](203):[161]A$:[139]A$[178]""[167]303
308 [151]646,11:[151]211,22:[151]214,A[170]10:[158]58732:[153]R$(A,Z)
309 [139]A$[178]""[175]A[178]AN[167]A[178]0
310 [139]A$[178]""[175]A[179]AN[170]1[167]A[178]A[170]1
311 [139]A$[178]"ON"[175]A[178]1[167]A[178]AN[170]1
312 [139]A$[178]"ON"[175]A[177]1[167]A[178]A[171]1
313 [139]A$[178][199](13)[167]316
314 [139]B[178]63[167]110
315 [137]303
316 [139]R$(A,Z)[178]"HAUPTMEN]"[167]110
317 Z$[178]R$(A,Z):[137]10000
400 [151]214,8:[158]58732:[153][163]23)"   (null)(null)(null)RIGHT$(null)(null)(null)@@@":O$(1)[178]"INFORMATION":A[178]1
401 [153][163]23)"   OPTIONS@@@":O$(2)[178]"TEXT DRUCKEN":O$(3)[178]"MUSIC ."[170][196](MS)
402 O$(4)[178]"DEVICE . "[170][196](GA):O$(5)[178]"JOYSTICK . "[170][196](JOY):O$(6)[178]"HAUPTMEN]"
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
404 F[178]F[170]1:[151]646,F(F):[139]F[178]8[167]F[178]0
405 [151]211,22:[151]214,A[170]10:[158]58732:[153]O$(A)
406 [141]129:C[178][181]([188](255.5[171]([194](53262[171]JOY)[176]224))[173][188](2)[170]2)
407 [145]C [141]1003,1000,1001,1001,1000,1002
408 B[178][194](203):[161]A$:[139]A$[178]""[167]404
409 [151]646,11:[151]211,22:[151]214,A[170]10:[158]58732:[153]O$(A)
410 [139]A$[178]""[175]A[178]6[167]A[178]0
411 [139]A$[178]""[175]A[179]7[167]A[178]A[170]1
412 [139]A$[178]"ON"[175]A[178]1[167]A[178]7
413 [139]A$[178]"ON"[175]A[177]1[167]A[178]A[171]1
414 [139]A$[178][199](13)[167][145]A[137]600,500,422,419,417,110
415 [139]B[178]63[167]110
416 [137]404
417 [139]JOY[178]1[167]JOY[178]2:[137]402
418 JOY[178]1:[137]402
419 [139]GA[178]8[167]GA[178]9:[137]421
420 GA[178]8
421 [151]186,GA:[137]402
422 MS[178]MS[170]1:[139]MS[178]4[167]MS[178]1
423 [151]214,9:[158]58732:[137]401
424 [151]211,22:[151]214,18:[158]58732:[153]"KEIN TEXT IM":[153][163]23)"SPEICHER !
425 GOTO404
500 IFT$=""THEN424
501 OPEN1,4,0:CLOSE1:IFST<0THENPOKE186,GA:GOTO51002
502 OPEN2,4,7:FORG1=1TOS:FORG2=1TO14:PRINT#2,T$(G2,G1):NEXTG2,G1:CLOSE2:GOTO110
600 POKE214,8:SYS58732:PRINTTAB(23)" [201][206][198][207][210][205][193][212][201][207][206]":POKE53269,255:
601 PRINTTAB(23)" INFORMATION"
602 FORG=1TO7:PRINTTAB(22)"              ":NEXT:POKE214,11:POKE211,22:SYS58732
603 POKE53263,208:POKE53262,196:POKE53294,1
604 PRINT"[151]THIS IS THE NEW":PRINTTAB(22)"MAGSYS 3.0+ !"
605 PRINTTAB(22)"IT SEEMS TO BE":PRINTTAB(22)"SOME FINAL KIND"
606 PRINTTAB(22)"OF VERSION[220]":PRINTTAB(22)"BUT NEVER MIND."
607 PRINTTAB(22)"THERE'LL BE A":PRINTTAB(22)"NEW ONE ![152]"
608 PRINTTAB(25)"JUST TAKE'N":PRINTTAB(25)"ENJOY IT !!!"
609 GETA$:IFA$=""THENGOSUB129:GOTO609
610 GOTO110
1000 A$="+":RETURN
1001 A$="-":RETURN
1002 A$=CHR$(13):RETURN
1003 A$=" ":RETURN
10000 GOSUB51000:IFT$=Z$THENQ=LS:GOTO20000
10001 Q=1:T$=Z$:A$(Z)="[191]":POKE53269,0:POKE53265,11:T$=Z$:GA=PEEK(186)
10002 IFLEN(Z$)<12THENZ$=Z$+" ":GOTO10002
10003 Z$=Z$+".TXT":OPEN2,GA,2,Z$+",S,R":INPUT#2,A1$
10004 INPUT#2,A2$
10005 INPUT#2,S
10006 FORG1=1TOS:FORG2=1TO14
10007 INPUT#2,T$(G2,G1)
10008 NEXTG2,G1:CLOSE2
20000 FORG=54272TO54295:POKEG,0:NEXT:POKE53269,0:GOSUB50000
20001 PRINT"":POKE54296,10
20002 FORG=1TO16
20003 PRINT"                                        ";
20004 NEXTG:POKE53265,27
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]"
20006 POKE214,23:POKE211,26:SYS58640:PRINT"             "
20007 PRINT"[145][144]PAGE     [157][157][157][157][157]"Q"[144]    [157][157][157][157]/    [157][157][157][157]"S
20008 FORG=1TO14
20009 POKE211,1:POKE214,G+5:SYS58640:PRINT"[151]"T$(G,Q):NEXTG:POKE54296,15
20011 C=INT(LOG(255.5-(PEEK(53262-JOY)OR224))/LOG(2)+2):GOSUB40000
20012 ONCGOSUB1003,1000,1001,1001,1000,1002
20013 A=PEEK(653):B=PEEK(203):GETA$:IFA$=""ANDA=0THEN20011
20014 IFA$="+"ORA$=""ORA$="[145]"ORA$=CHR$(32)THENIFQ<STHENQ=Q+1:GOTO20001
20015 IFA$="+"ORA$=""ORA$="[145]"ORA$=CHR$(32)THENIFQ=STHENQ=1:GOTO20001
20016 IF(PEEK(653) AND 2)THENA$="-"
20017 IFA$="-"ORA$="[157]"ORA$=""THENIFQ>1THENQ=Q-1:GOTO20001
20018 IFA$="-"ORA$="[157]"ORA$=""THENIFQ=1THENQ=S:GOTO20001
20019 IF(A AND 4)THEN30000
20020 IFA$=CHR$(13)THENLS=Q:CLOSE2:NA=0:SYS49152:POKE53280,2:GOTO100
20021 IF(A AND 2)THENA$=CHR$(13):GOTO20020
20022 IFA$="[133]"THEN24000
20023 IFA$="[134]"THENQ=1:GOTO20001
20024 IFA$="[135]"THENQ=S:GOTO20001
20025 IFA$="[136]"THEN25000
20032 GOTO20011
24000 X$="":POKE211,28:POKE214,23:SYS58732:PRINT"[144]NACH ?";
24001 POKE211,35:POKE214,23:SYS58732:PRINTX$
24002 GETA$:IFA$=""THENGOSUB40000:GOTO24002
24003 IFA$=CHR$(13)ORLEN(X$)=2THEN24006
24004 X$=X$+A$
24005 GOTO24001
24006 X=VAL(X$):IFX>SORX<1THEN20001
24007 Q=X:GOTO20001
30000 PRINT"":POKE53265,11:POKE54296,0
30001 FORG=1TO16
30002 PRINT"                                        ";
30003 NEXTG:PRINT""
30004 PRINTTAB(9)"[144][212][193][211][212][193][212][213][210][146] [164] [194][197][204][197][199][213][206][199]"
30005 PRINTTAB(9)"[145]TASTATUR[146] [163] BELEGUNG"
30006 PRINTTAB(9)"-[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]--[152]"
30007 PRINT" [171] / [173] / + / SPACE : [151]SEITE VOR"
30008 PRINT"[152] [174] / [172] / - / [183]     : [151]SEITE ZUR]CK"
30009 PRINT"[144] F1[151] SPRINGE SEITE"
30010 PRINT"[145][144] F3[151] ERSTE SEITE":PRINTTAB(20)"[145][145][152]RETURN[151] ZUR]CK"
30011 PRINT"[144] F5[151] LETZTE SEITE"TAB(27)"[145]ZUM MEN]"
30012 PRINT"[144]                   ":PRINTTAB(20)"[145][152]CTRL[151]   DIESE INFO-"
30013 PRINTTAB(27)"SEITE":POKE53265,27
30014 GETA$:IFA$=""THEN30014
30015 GOTO20001
40000 IFNA<>0THEN40003
40001 SI=54272:GOSUB51000:OPEN2,GA,2,"MUSIC ."+STR$(MS)+"*,S,R"
40002 INPUT#2,N
40003 INPUT#2,A1
40004 INPUT#2,A2
40005 INPUT#2,A3
40006 INPUT#2,B1
40007 INPUT#2,B2
40008 INPUT#2,B3
40009 NA=NA+1:POKESI+5,8*16+1:POKESI+6,3*16+3:POKESI+12,5*16+6
40010 POKESI+13,7*16+8:POKESI+19,4*16+6:POKESI+20,8*16+8
40011 POKESI,B1:POKESI+7,B2:POKESI+14,B3:POKESI+1,A1:POKESI+8,A2:POKESI+15,A3
40012 POKESI+4,33:POKESI+11,17:POKESI+18,33:IFNA=NTHENCLOSE2:NA=0
40013 RETURN
50000 PRINT"[147]":PRINT"[144] RUBRIK :[152] "A1$:PRINT"[144] THEMA  :[152] "A2$:POKE211,1
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"
50003 RETURN
51000 GA=PEEK(186):OPEN1,GA,15:CLOSE1:IFST<0THEN51002
51001 RETURN
51002 POKE53265,27:POKE53269,0:PRINT"[147][144]         SO GEHT'S JA NICHT !!!"
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 ";
51004 PRINT"NICHT EIN -":PRINT" GESCHALTET.DR]CK MAL 'NE TASTE !!!"
51005 GETA$:IFA$=""THEN51005
51006 POKE53265,11:GOTO102