MV - CPCEMU Disk-File Disk-Info *Track-Info  NеБВГДЕЖЗИЙ#PDTPACKBIN21CENTURQT1c 21CENTURQT2 21CENTURQT3,21CENTURQT4y !"#$%&'(ADVANCEDASMЂ)*+,-./012345678ADVANCEDASM9:;ADVANCEDTXT-<=>?@AALPHA QT0BALPHA QT1ЂCDEFGHIJKLMNOPQRALPHA QT1 STALPHA QT2WUVWXYZ[\]^_ALPHA QT3`ALPHA QT4ЂabcdefghijklmnopALPHA QT41qrstuvwALPHA QT5hxyz{|}~ЂЃ‚ѓ„ALPHA QT6{…†‡€‰Љ‹ЊЌЋЏђ‘’“”ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееPDTPACK p‰‰ „±$$$яяINK 0,0:BORDER 0:INK 1,26 1010 PRINT" иЉ­ ў ,‚ ў ,Dтї" PRODATRON OF BENG! DEMOCODE ASSEMBLER-PACK IVьї" ==============================================================================;ї" Released at the 31.10.1992Vї" ------------------------------------------------------------------------------ї"9$ї" Tach Maedels und Jungs!.ї"U8ї" Das hier soll'n Infotext zu dieser Disc darstellen (wer's glaubt). Also, hierUBї" sind alle Quelltexte zu meinen ersten drei Demo-Productionen fuer die AmstradULї" CPC-Kisten drauf (hoff ich jedenfalls). Es muessten sich folgende Dateien aufVї" der Scheibe befinden:`ї"Ujї" - 21.Century-Demo: 21CENTUR.QT1, 21CENTUR.QT2, 21CENTUR.QT3, 21CENTUR.QT39tї" - Advanced-Demo: ADVANCED.ASM, ADVANCED.TXTU~ї" - Alpha-Demo: ALPHA.QT0, ALPHA.QT1, ALPHA.QT2, ALPHA.QT3, ALPHA.QT4,3€ї" ALPHA.QT5, ALPHA.QT6’ї" Uњї" So, nun viel Spass beim Anglotzen. Ihr koennt euch selbstverstaendlich alles,U¦ї" was an Routis drinsteckt, rausgrapschen. Aber wenn ihr das dann in das eigeneU°ї" Demo reinfummelt, waer's vielleicht ganz nett, wenn das vermerkt wird. Is mirUєї" aber scheiss egal, ich werd's sowieso merken.. Die Veroeffentlichung fuer dieUДї" PRODATRON-MEGADEMO DISC I QUELLTEXTE (muesst ihr euch holen, das Teil!!!!) isUОї" nich. In diese Dimensionen (protz, protz...) muesst ihr euch selber vorkaemp-TШї" fen. Ich hoffe, dass diese ASM-Dingsens fuer manche eine Hilfe sein werden,Uвї" wenn nich, kann man nix machen.............................PRODATRON OF BENG!мѓ »­ „±$$$яяINK 0,0:BORDER 0:INK 1,26 1010 PRINT" PRODATRON OF BENG! DEMOCODE ASSEMBLER-PACK I 1020 PRINT".. Die Veroeffentlichung fuer dieUДї" PRODATRON-MEGADEMO DISC I QUELLTEXTE (muesst ihr euch holen, das Teil!!!!) isUОї" niNOLIST ORG #6400 SOUND1 EQU #8900 ; WRITE "21CENTUR.0" ; DEMO CALL INTRO CALL PART1 CALL PART2 CALL SCRINI LD HL,PART3 LD DE,#5000 CALL LADEN JP #5000 ; INTRO CALL SCRINI LD HL,SCRNAM0 LD DE,#4000 CALL LADEN LD A,2 CALL #BC0E CALL #4000 LD HL,F3TAB CALL FARB3 JP #BB18 ; PART1 CALL SCRINI CALL LADEN1 LD Track-Info  NеБВГДЕЖЗИЙHL,F3TAB CALL FARB3 CALL #8900 CALL GWINIT CALL STARS CALL #8903 LD HL,BLOCK4 JP #BCEC ; GWINIT LD HL,BLOCK4 LD DE,2 LD BC,2 JP #BCE9 ; BLOCK4 DEFS 9 DEFB 129 DEFW GHOSTW ; GHOSTW LD A,(OUTAKT) OR A JR NZ,SPROUT CPL LD (OUTAKT),A LD A,(SPALTE) INC A CP 9 JR NZ,GHOSTW2 LD A,(ZEILE) INC A CP 5 JR NZ,GHOSTW1 LD A,1 GHOSTW1 LD (ZEILE),A LD A,1 GHOSTW2 LD (SPALTE),A ADD A,A LD H,A LD A,(ZEILE) LD L,A ADD A,A ADD A,L LD L,A CALL #BC1A LD (ADRBILD),HL LD HL,(ZGTEXT) INC HL GHOSTW3 LD (ZGTEXT),HL LD A,(HL) OR A LD HL,MSTEXT JR Z,GHOSTW3 SUB 64 LD HL,#3FB0 LD DE,5*16 LD B,A GHOSTW4 ADD HL,DE DJNZ GHOSTW4 LD (ADRSPRI),HL RET ; SPROUT LD DE,(ADRBILD) LD HL,(ADRSPRI) LD A,(REIHENR) CP 16 JR NZ,SPROUT1 XOR A LD (REIHENR),A LD (OUTAKT),A RET SPROUT1 INC A LD (REIHENR),A PUSH DE LD BC,5 LDIR POP DE EX DE,HL CALL #BC26 EX DE,HL LD (ADRBILD),DE LD (ADRSPRI),HL RET ; ZGTEXT DEFW MSTEXT-1 ADRBILD DEFW 0 ADRSPRI DEFW 0 REIHENR DEFB 0 OUTAKT DEFB 0 SPALTE DEFB 0 ZEILE DEFB 1 ; STARS LD HL,STARADR1 CALL STARINI LD HL,STARADR2 CALL STARINI LD HL,STARADR3 CALL STARINI LD HL,STARADR4 CALL STARINI ; SSCROLL CALL #BD19 LD HL,STARADR2 CALL STARC LD HL,STARADR3 CALL STARC CALL #BD19 LD HL,STARADR2 CALL STARC LD HL,STARADR4 CALL STARC CALL #BD19 LD HL,STARADR2 CALL STARC LD HL,STARADR3 CALL STARC CALL #BB09 CP 32 RET Z LD BC,1 SSCROL1 DEC BC LD A,B OR C JR NZ,SSCROL1 JR SSCROLL ; STARINI LD B,20 LD DE,0 STARI1 PUSH DE PUSH BC PUSH HL LD A,R SRL A SRL A SRL A INC A LD HL,#C000 ADD HL,DE LD DE,80 LD B,A STARI2 ADD HL,DE DJNZ STARI2 LD A,(HL) OR A JR NZ,STARI3 LD (HL),1 STARI3 POP DE EX DE,HL LD (HL),E INC HL LD (HL),D INC HL POP BC POP DE LD (HL),E INC HL INC DE INC DE INC DE INC DE DJNZ STARI1 RET ; STARC LD B,20 ;20 sterne STARC1 LD E,(HL) ;de mit bildadr INC HL LD D,(HL) INC HL ;hl auf starpos LD A,(DE) ;a mit bildbyte CP 1 JR NZ,STARC2 ;wenn eins XOR A ;loeschen LD (DE),A STARC2 DEC DE ;bildadr-1 LD A,(HL) ;a mit starpos OR A JR NZ,STARC4 ;nicht 0, weiter ; PUSH HL PUSH BC LD HL,#C000+159 LD DE,80 LD A,R SRL A SRL A SRL A LD B,A STARC3 ADD HL,DE DJNZ STARC3 LD A,80 EX DE,HL POP BC POP HL ; STARC4 DEC A ;starpos minus 1 LD (HL),A ;eintragen LD A,(DE) OR A JR NZ,STARC5 LD A,1 ;stern auf bildschirm LD (DE),A STARC5 DEC HL ;hl auf adr DEC HL LD (HL),E ;neue adr eintragen INC HL LD (HL),D INC HL INC HL ;hl auf naechsten stern DJNZ STARC1 RET ; STARADR1 DEFS 20*3 STARADR2 DEFS 20*3 STARADR3 DEFS 20*3 STARADR4 DEFS 20*3 ; SOUND EQU #8100 ; PART2 CALL SCRINI ;Bildschirm-Init CALL LADEN2 ;Screen und Musik laden CALL STARIN ;Sterne scrollen CALL WARTE CALL FARB2 ;PDT-Sprite,Rahmen sTrack-Info  NеБВГДЕЖЗИЙichtbar CALL WARTE CALL INKIN ;3D-Scroller ein CALL WARTE CALL SOUNDIN ;Sound ein CALL LAUFS ;Laufschrift CALL #BCC8 JP #BCA7 ;und alles wieder ausschalten ; WARTE CALL WARTE2 CALL WARTE2 WARTE2 CALL WARTE0 CALL WARTE0 CALL WARTE0 WARTE0 LD BC,#FFFF WARTE1 DEC BC LD A,B OR C JR NZ,WARTE1 RET ; LADEN PUSH DE LD B,12 CALL #BC77 POP HL CALL #BC83 JP #BC7A ; LADEN1 LD HL,SCRNAM1 LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUSNAM1 LD DE,SOUND1 CALL LADEN LD HL,FNTNAM LD DE,#4000 JP LADEN ; LADEN2 LD HL,SCRNAM LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUSNAM LD DE,SOUND JP LADEN ; SCRINI XOR A CALL #BC0E LD HL,257 CALL #BC3E LD BC,0 CALL #BC38 LD HL,F1TAB JR FARB3 FARB2 LD HL,F2TAB FARB3 LD B,16 FARB4 PUSH BC PUSH HL LD A,(HL) LD C,A LD A,B DEC A LD B,C CALL #BC32 POP HL POP BC INC HL DJNZ FARB4 RET ; STARIN LD B,20 LD HL,STARADR LD DE,0 STARIN1 PUSH DE PUSH BC PUSH HL LD A,R SRL A SRL A SRL A SRL A INC A LD HL,#C000 ADD HL,DE LD DE,80 LD B,A STARIN2 ADD HL,DE DJNZ STARIN2 LD A,(HL) OR A JR NZ,STARIN3 LD (HL),1 STARIN3 POP DE EX DE,HL LD (HL),E INC HL LD (HL),D INC HL POP BC POP DE LD (HL),E INC HL INC DE INC DE INC DE INC DE DJNZ STARIN1 LD HL,BLOCK1 LD DE,1 LD BC,1 JP #BCE9 ; INKIN LD HL,BLOCK2 LD DE,4 LD BC,4 CALL #BCE9 LD HL,BLOCK3 LD DE,50 LD BC,50 JP #BCE9 ; SOUNDIN CALL #BD19 JP SOUND ; STARSC LD HL,STARADR ;hl auf staradr LD B,20 ;20 sterne STARSC1 LD E,(HL) ;de mit bildadr INC HL LD D,(HL) INC HL ;hl auf starpos LD A,(DE) ;a mit bildbyte CP 1 JR NZ,STARSC2 ;wenn eins XOR A ;loeschen LD (DE),A STARSC2 DEC DE ;bildadr-1 LD A,(HL) ;a mit starpos OR A JR NZ,STARSC4 ;nicht 0, weiter ; PUSH HL PUSH BC LD HL,#C000+159 LD DE,80 LD A,R SRL A SRL A SRL A SRL A LD B,A STARSC3 ADD HL,DE DJNZ STARSC3 LD A,80 EX DE,HL POP BC POP HL ; STARSC4 DEC A ;starpos minus 1 LD (HL),A ;eintragen LD A,(DE) OR A JR NZ,STARSC5 LD A,1 ;stern auf bildschirm LD (DE),A STARSC5 DEC HL ;hl auf adr DEC HL LD (HL),E ;neue adr eintragen INC HL LD (HL),D INC HL INC HL ;hl auf naechsten stern DJNZ STARSC1 RET ; LAUFS CALL SCROLL LD DE,50910 CALL SETLN LD HL,PIXLZG INC (HL) LD DE,50911 CALL SETLN LD A,(PIXLZG) INC A LD (PIXLZG),A CP 9 JR NZ,LAUFS LD A,1 LD (PIXLZG),A LD HL,(TEXTZG) INC HL LD (TEXTZG),HL LD A,(HL) CP 0 JR NZ,LAUFS1 LD HL,MESSAG LD (TEXTZG),HL LAUFS1 CP 128 JR NZ,LAUFS2 LD HL,#BD19 LD A,(HL) XOR 6 LD (HL),A LAUFS2 CALL #BB09 CP 32 RET Z JP LAUFS ; SCROLL CALL #BD19 CALL #BD19 LD B,8 LD DE,50832 SCROL1 PUSH BC PUSH DE LD H,D LD L,E INC HL INC HL LD BC,78 LDIR POP HL CALL #BC26 Track-Info  NеБВГДЕЖЗИЙ CALL #BC26 EX DE,HL POP BC DJNZ SCROL1 RET ; SETLN CALL #B906 LD HL,(TEXTZG) LD A,(HL) LD L,A LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD BC,#3800 ADD HL,BC LD B,8 SETLN1 PUSH BC LD A,(PIXLZG) LD B,A LD A,(HL) SETLN2 RLCA DJNZ SETLN2 EX DE,HL PUSH HL LD HL,(SCINKZ) LD A,(HL) INC HL LD (SCINKZ),HL POP HL JR C,SETLN4 XOR A SETLN4 LD (HL),A CALL #BC26 CALL #BC26 EX DE,HL POP BC INC HL DJNZ SETLN1 LD HL,SCINKT LD (SCINKZ),HL JP #B909 ; INKSCR LD B,4 INKSCR0 LD C,15 LD HL,DINK INKSCR1 PUSH BC PUSH HL LD A,(HL) LD B,A LD A,C LD C,B CALL #BC32 POP HL POP BC INC HL INKSCR2 DEC C DJNZ INKSCR1 LD DE,DINK LD A,(DE) LD HL,DINK+1 LD BC,3 LDIR LD (DE),A RET ; INKCHG LD A,(INKCNT) INC A LD (INKCNT),A CP 15 RET NZ XOR A LD (INKCNT),A LD A,(INKZGR) INC A LD (INKZGR),A CP 7 JR NZ,INKCHG3 XOR A LD (INKZGR),A INKCHG3 ADD A,A ADD A,A LD L,A LD H,0 LD DE,DINKTB ADD HL,DE LD DE,DINK LD BC,4 LDIR LD A,(INKRIC) CPL LD (INKRIC),A OR A JR Z,INKCHG1 LD A,12 LD (INKSCR0+1),A INKCHG2 LD (INKSCR2),A RET INKCHG1 LD A,15 LD (INKSCR0+1),A LD A,13 JR INKCHG2 ; DINK DEFB 6,6,3,3 DINKTB DEFB 06,06,03,03,09,09,18,18,01,02,11,20 DEFB 12,12,24,24,04,04,08,08,11,11,20,20,9,18,19,12 INKCNT DEFB 0 INKZGR DEFB 0 INKRIC DEFB 0 SCINKZ DEFW SCINKT SCINKT DEFB 195,15,207,3,3,48,204,12 TEXTZG DEFW MESSAG PIXLZG DEFB 1 BLOCK1 DEFS 9 DEFB 129 DEFW STARSC BLOCK2 DEFS 9 DEFB 129 DEFW INKSCR BLOCK3 DEFS 9 DEFB 129 DEFW INKCHG STARADR DEFS 20*3 F1TAB DEFB 00,00,00,00,00,00,00,26,00,00,00,00,00,00,00,00 F2TAB DEFB 00,00,00,00,19,18,09,26,16,06,00,20,11,02,01,00 F3TAB DEFB 03,23,20,14,11,02,01,26,09,18,07,60,40,30,26,00 SCRNAM0 DEFM "21CENTUR.1 " FNTNAM DEFM "21CENTUR.2 " SCRNAM1 DEFM "21CENTUR.3 " MUSNAM1 DEFM "21CENTUR.4 " SCRNAM DEFM "21CENTUR.5 " MUSNAM DEFM "21CENTUR.6 " PART3 DEFM "21CENTUR.8 " ; READ "21CENTUR.QT2" ; LIST LAENGE TUR.0" ; DEMO CALL INTRO CALL PART1 CALL PS 20*3 F1TAB DEFB 00,00,00,00,00,00,00,26,00,00,00,00,00,00,00,00 F2TAB DEFB 00,00,00,00,19,18,09,26,16,06,00,20,11,02,01,ormationszeile"ѓ »|WCLOSЕ­ ѓ јў ,ў ,Цt ћ шп м ф°|WPEО,я (яEц)ф,я (яEц)ф,я (яEц)ф xрпя (яEц)ф yрпя (яEц)ф|WOPEО,, xр, yр, xрф , yрф,"Titel","Information" жп жфЎ жп л ћ шп м |WCLOSЕ° жп<~ Ў яCп""л t — ћ шп м ж|WCLOSЕ°|WPEО,,,(€ А=================================(’ А*** Uebersicht Teil 1+Teil 2 ***(њ А=================================Њ¦ ­ ў ,ў ,‚ » є ї я()" U E B E MSTEXT DEFM"a_[cCENbTURYDEMOPRESENbccTEDcBYc" DEFM"cPRODAbcTRONcOFcSPIDERbcSOFTWARE" DEFM"HIc\c\c\AcREALLYNEWcDEbcMOMAKERc" DEFM"IScPROUDTOcSHOWcYOUcHIScFIRSTccc" DEFM"CREATIONALLcTHEcROUTINESOFcTHISc" DEFM"DEMOcWEbREcWRITbTENcBYccME^cPDT^" DEFM"THEcMAbcSTERcOFcTHEcMNEbMONICS\]" DEFM"THEcMUbcSIKcWAScTAKENcccFROMcTHE" DEFM"FRENCHccDISKFANbZINEccccCRACKcNc" DEFM"ROMcIII[THANXcTOTHEcAUbcTHORS\[[" DEFM"IcHADcTODOcTHAT^BECAUSEcIcAMcNOT" DEFM"GOODcINccSOUNDbcRIPPING[cBUTcIcc" DEFM"cTHINK^cTHEcMUbcSIKcIScccNOTcTOc" DEFM"BAD[[[[[THEcGRAbFIX^YOUcSEEcUNbc" DEFM"DERcTHIScLITTLEccGHOSTbcWRITER^c" DEFM"WAScTAbcKENcFROMTHEcVERYcGREATcc" DEFM"ADVANCEDOCPcARTbSTUDIO[[THEcDEMO" DEFM"bNOTTHATccFROMcccLOGONbcSYSTEMcb" DEFM"WAScFIbccNISHEDccINcFEbcBRUARc`a" DEFM"AFTERcAccFEWcDAYSOFcHARDWORK[[[[" DEFM"cIFcYOUcWANTcTOccFINISHcTHISc_[c" DEFM"PARTcOFcTHEcDEMOYOUcHAVETOcPRESS" DEFM"THEcLONGSPACEKEY[[[[[[[[[[[[[[[[" DEFM"PLEAScBENOTcTOOccHARD^IFccYOUccc" DEFM"cTHINK^cTHATcTHEa_[CENbcTURYDEMO" DEFM"cIScNOTcSOcTrack-Info  NеБВГДЕЖЗИЙGOOD[ITcScONbLYcMYc_[" DEFM"DEMOcANDcIcHAVEcTOcLEARN[[[[[[[[" DEFM"SO^cTHATWAScALL^THIScIScTHEcENDc" DEFM"OFcTHIScMESSAGE[cIFcYOUccDOcNOTc" DEFM"cPRESSccTHEcSPEbCIALLONGSPACEKEY" DEFM"THEcDEMOccWILLccccSTARccAGAIN\[[" DEFM"GOODcBYEcccccccccccccccccccccccc" DEFM"cccccccccccccccccccccccccccccccc" DEFB 0 ; MESSAG DEFM"LABER LABER LABER, HIER STEHT DER TEXT, ALLES KAPIERT?? JETZT WIRD FAST M" DEFM"ODER REINGESCHALTET",128," UND WIEDER RAUS DAMIT",128,"ENDE MIT 0......",0 cREALLYNEWcDEbcMOMAKERc" the 2 1 . C E N T U R Y - D E M O ....... " DEFM"OK, OK, you are right, there are many Demos, which are better, but I thin" DEFM"k, this is not the worsest. I hope, the Scroller is not to fast fo" DEFM"r you. Puuuhhhh!!!!! Jetzt habe ich aber wirklich kein Bock mehr, " DEFM"weiter auf Englisch zu schreiben, Ihr muesst wissen, dass ich absolut kei" DEFM"n Sprachgenie bin. Also,.. a BIG SORRY to all the people, who don't" DEFM" speak German...... Ach ja, falls dieser dummNOLIST ORG #5000 ; WRITE "21CENTUR.8" ; PART3 LD HL,FNTNAM LD DE,#1300 CALL LADEN LD HL,SPRNAM LD DE,#7800 CALL LADEN LD HL,MUSNAM LD DE,#6A00 CALL LADEN LD A,2 CALL #BC0E LD HL,F2TAB CALL FARB3 ; PART30 CALL #6A00 LD B,9 PART31 PUSH BC CALL AUF CALL #BB09 CP 32 JR Z,ENDE CALL AB CALL #BB09 CP 32 JR Z,ENDE POP BC DJNZ PART31 CALL #BCC8 CALL #BCA7 JR PART30 ; ENDE POP BC CALL #BCC8 CALL #BCA7 CALL SCRINI LD HL,PT4NAM LD DE,#6000 CALL LADEN JP #6000 ; AUF LD B,65 LD HL,#7800 AUF1 PUSH BC PUSH HL CALL SPRITE CALL HORI POP HL POP BC LD DE,39 ADD HL,DE DJNZ AUF1 RET ; AB LD B,65 LD HL,#81E7 AB1 PUSH BC PUSH HL CALL SPRITE CALL HORI POP HL POP BC LD DE,39 OR A SBC HL,DE DJNZ AB1 RET ; ;HL=SPEICHERADR ; SPRITE LD IX,BILDADR LD BC,256*200+39 SPRITE1 LD E,(IX+0) LD D,(IX+1) INC IX INC IX PUSH BC LD B,0 LDIR POP BC DJNZ SPRITE1 RET ; WARTE CALL WARTE2 CALL WARTE2 WARTE2 CALL WARTE0 CALL WARTE0 CALL WARTE0 WARTE0 LD BC,#FFFF WARTE1 DEC BC LD A,B OR C JR NZ,WARTE1 RET ; LADEN PUSH DE LD B,12 CALL #BC77 POP HL CALL #BC83 JP #BC7A ; SCRINI XOR A CALL #BC0E LD HL,257 CALL #BC3E LD BC,0 CALL #BC38 LD HL,F1TAB FARB3 LD B,16 FARB4 PUSH BC PUSH HL LD A,(HL) LD C,A LD A,B DEC A LD B,C CALL #BC32 POP HL POP BC INC HL DJNZ FARB4 RET ; HORI CALL HSCRLL LD A,(HORLINE) CP 14 JR NZ,HORI4 LD A,1 LD (HORLINE),A LD HL,(HORTZGR) INC HL HORI1 LD A,(HL) OR A JR NZ,HORI2 LD HL,HORTEXT JR HORI1 HORI2 LD (HORTZGR),HL SUB 64 LD B,A LD HL,#10C4 LD DE,11*52 HORI3 ADD HL,DE DJNZ HORI3 LD (HORADR),HL LD HL,#4D18 HORI5 LD DE,#E7B7 LD BC,11 LDIR LD DE,#EFB7 LD BC,11 LDIR LD DE,#F7B7 LD BC,11 LDIR LD DE,#FFB7 LD BC,11 LDIR RET HORI4 INC A LD (HORLINE),A LD HL,(HORADR) CALL HORI5 LD (HORADR),HL RET ; HORADR DEFW 0 HORLINE DEFB 14 HORTZGR DEFW HORTEXT-1 ; HSCRLL CALL #BD19 LD IX,BILDADR LD B,196 HSCRLL1 PUSH BC LD BC,55 LD L,(IX+0) LD H,(IX+1) ADD HL,BC EX DE,HL LD L,(IX+8) LD H,(IX+9) ADD HL,BC LD BC,11 LDIR POP BC INC IX INC IX DJNZ HSCRLL1 RET ; F1TAB DEFB 00,00,00,00,00,00,00,26,Track-Info  NеБВГДЕЖЗИЙ00,00,00,00,00,00,00,00 F2TAB DEFB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,26,00 SPRNAM DEFM "21CENTUR.7 " MUSNAM DEFM "21CENTUR.9 " FNTNAM DEFM "21CENTUR.A " PT4NAM DEFM "21CENTUR.E " BILDADR DEFW #C000,#C800,#D000,#D800,#E000,#E800,#F000,#F800,#C050,#C850,#D050,#D850,#E050,#E850,#F050 DEFW #F850,#C0A0,#C8A0,#D0A0,#D8A0,#E0A0,#E8A0,#F0A0,#F8A0,#C0F0,#C8F0,#D0F0,#D8F0,#E0F0,#E8F0 DEFW #F0F0,#F8F0,#C140,#C940,#D140,#D940,#E140,#E940,#F140,#F940,#C190,#C990,#D190,#D990,#E190 DEFW #E990,#F190,#F990,#C1E0,#C9E0,#D1E0,#D9E0,#E1E0,#E9E0,#F1E0,#F9E0,#C230,#CA30,#D230,#DA30 DEFW #E230,#EA30,#F230,#FA30,#C280,#CA80,#D280,#DA80,#E280,#EA80,#F280,#FA80,#C2D0,#CAD0,#D2D0 DEFW #DAD0,#E2D0,#EAD0,#F2D0,#FAD0,#C320,#CB20,#D320,#DB20,#E320,#EB20,#F320,#FB20,#C370,#CB70 DEFW #D370,#DB70,#E370,#EB70,#F370,#FB70,#C3C0,#CBC0,#D3C0,#DBC0,#E3C0,#EBC0,#F3C0,#FBC0,#C410 DEFW #CC10,#D410,#DC10,#E410,#EC10,#F410,#FC10,#C460,#CC60,#D460,#DC60,#E460,#EC60,#F460,#FC60 DEFW #C4B0,#CCB0,#D4B0,#DCB0,#E4B0,#ECB0,#F4B0,#FCB0,#C500,#CD00,#D500,#DD00,#E500,#ED00,#F500 DEFW #FD00,#C550,#CD50,#D550,#DD50,#E550,#ED50,#F550,#FD50,#C5A0,#CDA0,#D5A0,#DDA0,#E5A0,#EDA0 DEFW #F5A0,#FDA0,#C5F0,#CDF0,#D5F0,#DDF0,#E5F0,#EDF0,#F5F0,#FDF0,#C640,#CE40,#D640,#DE40,#E640 DEFW #EE40,#F640,#FE40,#C690,#CE90,#D690,#DE90,#E690,#EE90,#F690,#FE90,#C6E0,#CEE0,#D6E0,#DEE0 DEFW #E6E0,#EEE0,#F6E0,#FEE0,#C730,#CF30,#D730,#DF30,#E730,#EF30,#F730,#FF30,#C780,#CF80,#D780 DEFW #DF80,#E780,#EF80,#F780,#FF80 ; HORTEXT DEFM"HELLO[EVERYBODY[[I[AM[BACK[AGAIN[[THIS[THIRD[PART[IS[CALLED[THE[KISS[ME" DEFM"[BABY[PART[BECAUSE[I[COULDN[T[FIND[AN[OTHER[NAME[[BUT[I[THINK[THE[GRAPH" DEFM"IC[IS[NOT[BAD[[THE[FONT[WAS[CONVERTED[FROM[THE[PC[[THANX[TO[STEPHAN[M[[" DEFM"THE[NICE[SPRITE[ON[THE[LEFT[SIDE[WAS[TAKEN[FROM[MARCO[VIETHS[OVERSCAN[S" DEFM"HOW[[BECAUSE[I[HAD[NO[EXPERIENCE[IN[PROGRAMMING[THE[OVERSCAN[MODE[A[HAD" DEFM"[TO[SCROLL[THE[GIRL[UP[AND[DOWN[[BUT[NOW[PRESS[SPACE[AND[START[THE[NEXT" DEFM"[PART[[[GOOD[BYE[[[PDT[OF[SS[[[[[",0 ; LIST LAENGE  CALL #BC77 POP HL CALL #BC83 JP #BC7A ; LADEN1 LD HL,SCRNAM1 LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUSNAM1 LD DE,SOUND1 CALL LADEN LD HL,FNTNAM LD DE,#4000 JP LADEN ; LADEN2 LD HL,SCRNAM LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUSNAM LD DE,SOUND JP LADEN ; SCRINI XOR A CALL #BC0E LDNOLIST ORG #6000 ; WRITE "21CENTUR.E" ; DEMO CALL PART4 CALL PART5 RET ; PART5 LD HL,SCR2NAM LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUS2NAM LD DE,#4000 CALL LADEN LD HL,FNTNAM LD DE,#9000 CALL LADEN LD A,12 CALL #BB90 CALL #BB09 ; CALL LAUFAIN ; LAUFB LD A,(BON) OR A JR Z,LAUFB CALL HSCRLL LD A,(CHRPOS) OR A JR NZ,LAUFB5 LAUFB1 LD HL,(MES2ZGR) LD A,(HL) OR A JR NZ,LAUFB2 LD HL,MES2TXT LD (MES2ZGR),HL JR LAUFB1 LAUFB2 LD B,10 LD DE,CHRADR LAUFB3 PUSH BC LD A,(HL) PUSH HL PUSH DE SUB 64 LD B,A LD HL,#8FA6 LD DE,90 LAUFB4 ADD HL,DE DJNZ LAUFB4 EX DE,HL POP HL LD (HL),E INC HL LD (HL),D INC HL EX DE,HL POP HL INC HL POP BC DJNZ LAUFB3 LD (MES2ZGR),HL LD A,18 LD (CHRPOS),A LAUFB5 DEC A LD (CHRPOS),A LD DE,#F78F LD IY,CHRADR LD B,10 LAUFB6 PUSH BC LD L,(IY+0) LD H,(IY+1) LD BC,5 LDIR LD (IY+0),L LD (IY+1),H INC IY INC IY POP BC DJNZ LAUFB6 JR LAUFB ; BON DEFB 0 ; CHRPOS DEFB 0 CHRADR DEFS 10*2 ; APOS DEFB 4 AWAIT DEFB 0 ; LAUFA LD A,(AWAIT) OR A JR Z,LAUFA0 DEC A LD (AWAIT),A RET LAUFA0 CALL VSCRLL LD A,(APOS) DEC A JR Z,LAUFA1 LD (APOS),A RET LAUFA1 LD A,4 LD (APOS),A LD HL,(MES1ZGR) LD A,(HL) INC HL LD (MES1ZGR),HL Track-Info  NеБВГДЕЖЗИЙ OR A JR Z,LAUF0 CP 240 JR NC,LAUFA2 PUSH AF LD HL,20*256+12 CALL #BB75 POP AF JP #BB5D ; LAUF0 LD HL,MES1TXT LD (MES1ZGR),HL RET ; LAUFA2 CP 240 JR Z,HORION CP 241 JR Z,HORIOFF CP 242 JR Z,FARBON CP 243 JR Z,FARBOFF CP 244 JR Z,SNDON CP 245 JR Z,SNDOFF CP 246 JR Z,SAWART CP 247 JR Z,BLICK1 CP 248 JR Z,BLICK2 CP 249 JR Z,BLICK3 CP 250 JR Z,BLICK4 ; SAWART LD A,150 LD (AWAIT),A RET ; BLICK1 XOR A BLICK LD BC,#BC06 OUT (C),C LD B,#BD OUT (C),A RET ; BLICK2 LD A,12 JR BLICK ; BLICK3 LD A,16 JR BLICK ; BLICK4 LD A,25 JR BLICK ; HORION LD HL,MES2TXT LD (MES2ZGR),HL LD HL,1 LD (BON),HL RET ; HORIOFF XOR A LD (BON),A RET ; FARBON LD HL,F3TAB JP FARB3 ; FARBOFF LD HL,F1TAB JP FARB3 ; SNDON LD HL,SNDBLK LD DE,1 LD BC,1 JP #BCE9 ; SNDOFF LD HL,SNDBLK CALL #BCEC JP #BCA7 ; SNDBLK DEFS 9 DEFB 129 DEFW #4006 ; LAUFAIN LD HL,LFABLK LD DE,LAUFA LD B,129 JP #BCD7 ; LFABLK DEFS 9 ; VSCRLL LD DE,#C370 LD HL,#C371 LD BC,79 LDIR LD DE,#CB70 LD HL,#CB71 LD BC,79 LDIR LD DE,#D370 LD HL,#D371 LD BC,79 LDIR LD DE,#DB70 LD HL,#DB71 LD BC,79 LDIR LD DE,#E370 LD HL,#E371 LD BC,79 LDIR LD DE,#EB70 LD HL,#EB71 LD BC,79 LDIR LD DE,#F370 LD HL,#F371 LD BC,79 LDIR LD DE,#FB70 LD HL,#FB71 LD BC,79 LDIR RET ; HSCRLL LD IY,BILDADR LD B,70 HSCRLL1 PUSH BC LD E,(IY+0) LD D,(IY+1) LD L,(IY+2) LD H,(IY+3) LD BC,50 LDIR POP BC INC IY INC IY DJNZ HSCRLL1 RET ; PART4 LD HL,PDTNAM LD DE,#9000 CALL LADEN CALL FUELL CALL RESET CALL EINGABE LD HL,MUSNAM LD DE,#550 CALL LADEN LD HL,SCRNAM LD DE,#4000 CALL LADEN CALL SCRINI LD A,1 CALL #BC0E CALL #4000 LD HL,F2TAB CALL FARB3 LD BC,257 CALL #BC38 ; CALL WARTE2 CALL MOVEA CALL WARTE0 CALL MOVEB CALL #1805 CALL SCRINI RET ; MOVEA LD BC,44*256+1 LD HL,#9433 MOVEA1 LD DE,#C01C PUSH BC PUSH HL LD B,C LD C,25 CALL SPROUT LD BC,#3000 CALL WARTE1 POP HL LD BC,25 OR A SBC HL,BC POP BC INC C DJNZ MOVEA1 RET ; MOVEB LD BC,9*256+44 MOVEB1 LD HL,#9000 LD DE,#C01C PUSH BC LD B,C LD C,25 CALL SPROUT LD BC,#4000 CALL WARTE1 POP BC INC C DJNZ MOVEB1 RET ; FUELL LD HL,#550 LD BC,#5AA0 FUELL0 LD DE,FUELDAT FUELL1 LD A,(DE) OR A JR Z,FUELL0 LD (HL),A INC DE INC HL DEC BC LD A,B OR C JR NZ,FUELL1 RET ; FUELDAT DEFB 68,84,68,68,85,68,85,85,87,85,87,87,83,87,83,83,75,83,75,75,75,74 DEFB 75,74,74,78,74,78,78,76,78,76,76,92,76,92,92,84,92,84,0 ; RESET CALL #BBFF LD H,0 LD D,39 LD L,0 LD E,24 CALL #BB66 LD A,1 CALL #BB90 XOR A CALL #BB96 LD HL,257 CALL #BB75 LD HL,RESMES RESET1 LD A,(HL) OR A RET Z CALL #BB5A INC HL JR RESET1 ; RESMES DEFB 13,10 DEFB " Schneider 128K Microcomputer (v3)",13,10 DEFB 13,10 DEFB 32,164,Track-Info  NеБВГДЕЖЗИЙ"1985 Amstrad Consumer Electronics plc" DEFB " and Locomotive Software Ltd.",13,10 DEFB 13,10 DEFB " BASIC 1.1",13,10 DEFB 13,10 DEFB "Ready",13,10,0 EINMES DEFB "run",34,"amiga-wb",0 ; EINGABE CALL #BB81 CALL WARTE2 LD HL,EINMES EINGAB1 LD A,(HL) OR A JP Z,#BB84 CALL #BB5A CALL WARTE0 INC HL JR EINGAB1 ; SPROUT PUSH DE PUSH BC LD B,0 LDIR POP BC POP DE EX DE,HL CALL #BC26 EX DE,HL DJNZ SPROUT RET ; WARTE CALL WARTE2 CALL WARTE2 WARTE2 CALL WARTE0 CALL WARTE0 CALL WARTE0 WARTE0 LD BC,#FFFF WARTE1 DEC BC LD A,B OR C JR NZ,WARTE1 RET ; LADEN PUSH DE LD B,12 CALL #BC77 POP HL CALL #BC83 JP #BC7A ; SCRINI XOR A CALL #BC0E SCRINI0 LD HL,257 CALL #BC3E LD BC,0 CALL #BC38 LD HL,F1TAB FARB3 LD B,16 FARB4 PUSH BC PUSH HL LD A,(HL) LD C,A LD A,B DEC A LD B,C CALL #BC32 POP HL POP BC INC HL DJNZ FARB4 RET ; PDTNAM DEFM "21CENTUR.C " MUSNAM DEFM "21CENTUR.D " SCRNAM DEFM "21CENTUR.B " FNTNAM DEFM "21CENTUR.H " SCR2NAM DEFM "21CENTUR.G " MUS2NAM DEFM "21CENTUR.F " ; F1TAB DEFB 00,00,00,26,00,00,00,00,00,00,00,00,00,00,00,00 F2TAB DEFB 00,00,00,00,00,00,00,00,00,00,00,00,26,00,15,01 F3TAB DEFB 15,18,06,26,05,25,12,13,24,20,02,01,08,04,26,00 ; BILDADR DEFW #C50F,#CD0F,#D50F,#DD0F,#E50F,#ED0F,#F50F,#FD0F,#C55F,#CD5F,#D55F DEFW #DD5F,#E55F,#ED5F,#F55F,#FD5F,#C5AF,#CDAF,#D5AF,#DDAF,#E5AF,#EDAF DEFW #F5AF,#FDAF,#C5FF,#CDFF,#D5FF,#DDFF,#E5FF,#EDFF,#F5FF,#FDFF,#C64F DEFW #CE4F,#D64F,#DE4F,#E64F,#EE4F,#F64F,#FE4F,#C69F,#CE9F,#D69F,#DE9F DEFW #E69F,#EE9F,#F69F,#FE9F,#C6EF,#CEEF,#D6EF,#DEEF,#E6EF,#EEEF,#F6EF DEFW #FEEF,#C73F,#CF3F,#D73F,#DF3F,#E73F,#EF3F,#F73F,#FF3F,#C78F,#CF8F DEFW #D78F,#DF8F,#E78F,#EF8F,#F78F,#FF8F ; DEFS 50*32 MES1ZGR DEFW MES1TXT MES1TXT DEFB 248 DEFB "PRODATRON PRESENTS:",246," " DEFB " THE ENDPART OF ",246," " DEFB " HIS 1.PRODUCTION ",246," " DEFB "Hallo ihr Bengels!!! Das hier ist der Laberscroller" DEFB ".... Irgendwas fehlt noch... Na klar, diese unh" DEFB "eimliche bedrueckende Stille... Da muss unbedingt etwas gegen unt" DEFB "ernommen werden!!!! ",244,246,"Wow, gut was?? ",246 DEFB " Aber irgenwie kommt sich der Scroller noch so einsam vor...." DEFB " ",242,246,"Huebsche Grafik. ",246," He, wisst " DEFB "ihr Deppen ueberhaupt noch, wie dieses Demo heisst?? Nein? Na da" DEFB "nn glotzt mal nach unten!!!! ",249,246,"Na also, jetz" DEFB "t wisst ihrs wieder... Aber wie ich sehe, is noch viel Platz" DEFB " auf der Scheibe. ",250,246,"So, dass reicht erstmal. " DEFB " Jetzt muss ich noch schnell die Credits loswerden. " DEFB " ",240 DEFM "Na das klappt ja hervorragend. Also wenn e" DEFM "uch mein Gesuelze auf die Nerven geht, dann lest u" DEFM "nten bei den Credits weiter. Jetzt erstma" DEFM "l.... A MESSAGE TO P007 AND TO FEFESSE: " DEFM "Sorry, I have taken the sound from your INTOX-Demo" DEFM ". I think it's one of the best Sounds on CPC, so" DEFM " I couldn't resist... Jetzt ge" DEFM "ht's in Deutsch weiter. Gerade sitzt DEXTER" DEFM " neben mir, der huebsche Bubi aus dem Nachbardorf!" DEFM ".... Oh, die Bezeichnung 'huebscher Bubi' " DEFM "hat ihm wohl gar nicht gefallen, jedenfalls schl" DEFM "iesse ich das aus seinen gut gezielten Schlaegen.." DEFM "... Jetzt mach ich erstmal Schluss, der Typ will " DEFM "unbedingt noch ' Stuff Swappen ' , wie er immer zu" DEFM " sagen pflegt... Jeah, I'm" DEFM " back und DEXTER is jetzt endlich weg!! Ha, de" DEFM "r Penner hat mir tatsaechlich geglaubt, dass ich d" DEFM "ie scrollende 3D-Flaeche im zweiten Part mit kompl" DEFM "izierten Vektor-Berechnungsroutinen erzeugt habe, " DEFM "die die Flaeche bei jedem Frame-Fly neu aufbauen. " DEFM "Von Farb-Scrolling hat dTrack-Info  NеБВГДЕЖЗИЙer wohl noch nie was gehoe" DEFM "rt. Hallo CPC-LORD HELMCHEN!!! Wow, D" DEFM "u schreibst jetzt auch Demos ?!? Mach weiter s" DEFM "o , nur nicht den Mut verliehren... " DEFM "Hi CAESAR!!! Wie sieht's aus mit Deinen Assemb" DEFM "ler-Kenntnissen?? Schon den ersten Scroller pro" DEFM "grammiert??? Ich sitz hier gerade rum und warte" DEFM " schon wieder seit einem Monat auf Deine naechste " DEFM "Ladung.. Vielleicht koenntest Du ja mit dem Swa" DEFM "ppen ein bischen spurten?!? Oder liegt das alle" DEFM "s an dem Postweg zwischen DEUTSCHLAND und den NIED" DEFM "ERLANDEN. Wie ich sehe, hat da ",241 DEFM "unten sich gerade der H-Scroller verabschiedet, es wird also Zeit, " DEFM "langsam Schluss zu machen ... ",249,"Tja jetzt haette ich a" DEFM "lso endlich mein erstes Demo vollendet, vielleicht werden bald ne" DEFM "ue folgen... ",248,"Noch 10 Sekunden, bis zur vollstaendig" DEFM "en Verdunkelung: 10 9 8 7 6 " DEFM " 5 4 3 2 1 0 ",243 DEFM " Und dunkel ward es und die Stille kam... ",245 DEFM " Also, tschau Leute, das sprach " DEFM "P R O D A T R O N , MASTER of the MNEMONICS " DEFB 246,0 ; MES2ZGR DEFW MES2TXT MES2TXT DEFM"iii\[STiii" DEFM"iCENTURXhi" DEFM"iiiDEMOiii" DEFM"iiiiiiiiii" DEFM"iHIiGUXSdi" DEFM"hhhhhhhhhh" DEFM"iTHISiiISi" DEFM"THEiSECOND" DEFM"iSCROLLERi" DEFM"OFiMXiENDh" DEFM"iiPARTifii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"THEiiiiiii" DEFM"CREDITSiii" DEFM"iiiiiiiiii" DEFM"[fPARTiiii" DEFM"hhhhhhhhhh" DEFM"INTROhPART" DEFM"iiiiiiiiii" DEFM"CODINGiBXi" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"GFWiFROMii" DEFM"iiiOCPiART" DEFM"iiiiSTUDIO" DEFM"iiiiiiiiii" DEFM"FONTiBXiii" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"SOUNDiFROM" DEFM"iiCRACKhNh" DEFM"iiiROMiIII" DEFM"iiiiiiiiii" DEFM"\fPARTiiii" DEFM"hhhhhhhhhh" DEFM"MAINhPARTi" DEFM"iiiiiiiiii" DEFM"CODINGiBXi" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"GFWiBXiiii" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"SOUNDiFROM" DEFM"iiCRACKhNh" DEFM"iiiROMiIII" DEFM"iiiiiiiiii" DEFM"]fPARTiiii" DEFM"hhhhhhhhhh" DEFM"KISShMEhii" DEFM"BABXhPARTi" DEFM"iiiiiiiiii" DEFM"CODINGiBXi" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"GFWiFROMii" DEFM"iiMARCOiVf" DEFM"iOVERSCANh" DEFM"iiiiAhIIhS" DEFM"iiiiiiiiii" DEFM"SOUNDiFROM" DEFM"iiCRACKhNh" DEFM"iiiROMiIII" DEFM"iiiiiiiiii" DEFM"FONTiiiiii" DEFM"iCONVERTED" DEFM"iiiFROMiPC" DEFM"iiiiiiiiii" DEFM"^fPARTiiii" DEFM"hhhhhhhhhh" DEFM"AMIGAhPART" DEFM"iiiiiiiiii" DEFM"CODINGiBXi" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"GFWiBXiiii" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"SOUNDiFROM" DEFM"iiiTMChMAh" DEFM"iiGIChDEMO" DEFM"iiiiiiiiii" DEFM"_fPARTiiii" DEFM"hhhhhhhhhh" DEFM"ENDhPARTii" DEFM"iiiiiiiiii" DEFM"CODINGiBXi" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"GFWiBXiiii" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"SOUNDiBXii" DEFM"iiiFEFESSE" DEFM"iiiiiiiiii" DEFM"FONTiBXiii" DEFM"iPRODATRON" DEFM"iiiiiiiiii" DEFM"hhhhhhhhhh" DEFM"iiiiiiiiii" DEFM"iANDiHEREi" DEFM"SOMEiOTHER" DEFM"iINFORMAhi" DEFM"iiTIONSiii" DEFM"ABOUTiiTHE" DEFM"iii\[STiii" DEFM"iCENTURXhi" DEFM"iiiDEMOiii" DEFM"iiiiiiiiii" DEFM"CODEDiFROM" DEFM"iiiTHEiiii" DEFM"[^fZ\f[cc\" DEFM"iiTOiTHEii" DEFM"\\fZ\f[cc\" DEFM"iINiiONLXi" DEFM"ciDAXSiddd" DEFM"iiiiiiiiii" DEFM"iTHEiDATEi" DEFM"iTODAXiiii" DEFM"\]fZ\f[cc\" DEFM"iiiiiiiiii" DEFM"hhhhhhhhhh" DEFM"iiiiiiiiii" DEFM"iTHATiiISi" DEFM"iALLiiFORi" DEFM"iTHISiiHhi" DEFM"iSCROLLERi" DEFM"iiiiiiiiii" DEFM"IiHOPEiXOU" DEFM"LIKEiiTHIS" DEFM"LITTLEiDEh" DEFM"iiMOdedeii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iGOODiBXEi" DEFM"iiiiiiiiii" DEFM"iiiSAXSiii" DEFM"iiiiiiiiii" DEFM"iPRODATRON" DEFM"iiiiiiiiOF" DEFM"iiiSPIDERh" DEFM"iiiiiiSOFT" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFB 0 ; LIST LAENGE  LD HL,SCORi" DEFM"iTHISiiHhi" DEFM"iSCROLLERi" DEFM"iiiiiiiiii" DEFM"IiHOPEiXOU" DEFM"LIKEiiTHIS" DEFM"LITTLEiDEh" DEFM"iiMOdedeii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iGOODiBXEi" DEFM"iiiiiiiiii" DEFM"iiiSAXSiii" DEFM"iiiiiiiiii" DEFM"iPRODATRON" DEFM"iiiiiiiiOF" DEFM"iiiSPIDERh" DEFM"iiiiiiSOFT" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" DEFM"iiiiiiiiii" Track-Info  Nе Б В Г Д Е Ж З И ЙCE4F,#D64F,#DE4F,#E64F,#EE4F,#F64F,#FE4F,#C69F,#CE9F,#D69F,#DE9F DEFW #E69F,#EE9F,#F69F,#FE9F,#C6EF,#CEEF,#D6EF,#DEEF,#E6EF,#EEEF,#F6EF DEFW #FEEF,#C73F,#CF3F,#D73F,#DF3F,#E73F,#EF3F,#F73F,#FF3F,#C78F,#CF8F DEFW #D78F,#DF8F,#E78F,#EF8F,#F78F,#FF8F ; DEFS 50*32 MES1ZGR DEFW MES1TXT MES1TXT DEFB 248 DEFB "PRODATRON PRESENTS:",246," " DEFB " THE ENDPART OF ",246," " DEFB " HIS 1.PRODUCTION ",246," " DEFB "Hallo ihr NOLIST WRITE "ADVANCED.002 ; ORG #2000 ; TICKER EQU #BCE9 SETINK EQU #BC32 SETBOR EQU #BC38 LROMON EQU #B906 LROMOFF EQU #B909 CHRADR EQU #3800 INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; DEMO CALL TITEL CALL PART1 CALL PART2 CALL PART3 CALL 0 ; TITEL CALL SCRINI LD HL,TITNAM LD DE,#4000 CALL LADEN CALL #4000 LD HL,SNDNAM LD DE,#7FE0 CALL LADEN CALL #7FE0 LD A,1 LD BC,26*256+26 CALL SETINK CALL #BB18 CALL #BCC8 JP #BCA7 ; PART1 CALL SCRINI LD HL,MS1NAM LD DE,#10A0 CALL LADEN LD HL,FNTNAM LD DE,#6000 CALL LADEN LD HL,SPRNAM LD DE,#8000 CALL LADEN CALL STARIN ; LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL EI LD BC,#7F10 ;BORDER 0 OUT (C),C LD BC,#7F54 OUT (C),C LD BC,#7F00 ;INK 0,0 OUT (C),C LD BC,#7F54 OUT (C),C LD BC,#7F01 ;INK 1,26 OUT (C),C LD BC,#7F4B OUT (C),C LD BC,#7F04 ;INK 4,20 OUT (C),C LD BC,#7F53 OUT (C),C LD BC,#7F05 ;INK 5,0 OUT (C),C LD BC,#7F54 OUT (C),C LD BC,#7F06 ;INK 6,7 OUT (C),C LD BC,#7F45 OUT (C),C ; FRAMEFL LD B,#F5 ;AUF FRAME-FLY WARTEN IN A,(C) RRA JR NC,FRAMEFL ; LD BC,#7F8C ;MODE 0 OUT (C),C LD BC,#7F02 ;INK 2,1 OUT (C),C LD BC,#7F44 OUT (C),C LD BC,#7F03 ;INK 3,11 OUT (C),C LD BC,#7F57 OUT (C),C ; LAUFSCR LD HL,#C690 LD B,24 LAUFSC1 PUSH BC LD E,L LD D,H INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD BC,#7B0 ADD HL,BC LD A,H CP #C0 JR NC,LAUFSC2 LD BC,#3FAF SBC HL,BC LAUFSC2 POP BC DJNZ LAUFSC3 JR STARSC LAUFSC3 JP LAUFSC1 ; STARSC LD HL,STARADR ;hl auf staradr LD B,20 ;20 sterne STARSC1 LD E,(HL) ;de mit bildadr INC HL LD D,(HL) INC HL ;hl auf starpos LD A,(DE) ;a mit bildbyte CP 128 JR NZ,STARSC2 ;wenn eins XOR A ;loeschen LD (DE),A STARSC2 INC DE ;bildadr-1 LD A,(HL) ;a mit starpos OR A JR NZ,STARSC4 ;nicht 0, weiter PUSH HL PUSH BC LD HL,#C000+160 LD DE,80 LD A,R SRL A SRL A SRL A LD B,A STARSC3 ADD HL,DE DJNZ STARTrack-Info  Nе Б В Г Д Е Ж З И ЙSC3 LD A,80 EX DE,HL POP BC POP HL STARSC4 DEC A ;starpos minus 1 LD (HL),A ;eintragen LD A,(DE) OR A JR NZ,STARSC5 LD A,128 ;stern auf bildschirm LD (DE),A STARSC5 DEC HL ;hl auf adr DEC HL LD (HL),E ;neue adr eintragen INC HL LD (HL),D INC HL INC HL ;hl auf naechsten stern DJNZ STARSC1 ; LAUFPR LD A,(SFNTPS) OR A JR NZ,LAUFPR2 LD HL,(ZGRMES) LAUFPR0 LD A,(HL) OR A JR NZ,LAUFPR1 LD HL,TXTMES JR LAUFPR0 LAUFPR1 INC HL LD (ZGRMES),HL SUB 64 LD B,A LD HL,#5F40 LD DE,192 LAUFPR5 ADD HL,DE DJNZ LAUFPR5 LD (SFNTAD),HL LD A,8 LAUFPR2 DEC A LD (SFNTPS),A LD DE,(SFNTAD) LD B,24 LD HL,#C6DF LAUFPR3 PUSH BC LD A,(DE) LD (HL),A INC DE LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,LAUFPR4 LD BC,#3FAF SBC HL,BC LAUFPR4 POP BC DJNZ LAUFPR3 LD (SFNTAD),DE ; LD BC,#7F8D ;MODE 1 OUT (C),C LD BC,#7F02 ;INK 2,8 OUT (C),C LD BC,#7F4D OUT (C),C LD BC,#7F03 ;INK 3,4 OUT (C),C LD BC,#7F58 OUT (C),C ; SPRITE LD HL,(SPRPOS) LD DE,5*80+#C000 ADD HL,DE LD DE,#8000 LD B,17 SPRITE1 PUSH BC PUSH HL LD (HL),0 INC HL EX DE,HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD BC,41 ADD HL,BC EX DE,HL LD (HL),0 POP HL LD BC,#1000 ADD HL,BC LD A,H CP #C0 JR NC,SPRITE2 LD BC,#3FAF SBC HL,BC SPRITE2 POP BC DJNZ SPRITE5 JR SPRITE0 SPRITE5 JP SPRITE1 SPRITE0 LD A,(SPRPOS) CP 37 JR NZ,SPRITE3 LD A,#FF LD (SPRRIC),A SPRITE3 CP 1 JR NZ,SPRITE4 LD (SPRRIC),A SPRITE4 LD A,(SPRPOS) LD HL,SPRRIC ADD (HL) LD (SPRPOS),A ; CALL #1112 ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP Z,FRAMEFL ; LD HL,(INTBUF) LD (#38),HL JP #BCA7 ; ; PART2 CALL SCRINI LD HL,CHRCOP LD DE,#9800 LD BC,CHRCOP1-CHRCOP LDIR CALL #9800 LD HL,GRFNAM LD DE,#4000 CALL LADEN CALL #4000 LD HL,MUSNAM LD DE,#6170 CALL LADEN ; LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL EI LD BC,#7F10 ;BORDER 0 OUT (C),C LD BC,#7F54 PUSH BC OUT (C),C ;INK 0,0 LD BC,#7F00 OUT (C),C POP BC OUT (C),C CALL #6170 ; FRAME LD B,#F5 ;AUF FRAME-FLY WARTEN IN A,(C) RRA JR NC,FRAME ; BTEILA LD BC,#7F8C ;MODE 0 OUT (C),C LD BC,#7F01 ;INK 1,26 OUT (C),C F1A LD BC,#7F54 OUT (C),C LD BC,#7F02 ;INK 2,5 OUT (C),C F1B LD BC,#7F54 OUTTrack-Info  Nе Б В Г Д Е Ж З И Й (C),C LD BC,#7F07 ;INK 7,20 OUT (C),C F1C LD BC,#7F54 OUT (C),C LD BC,#7F08 ;INK 8,11 OUT (C),C F1D LD BC,#7F54 OUT (C),C LD BC,#7F09 ;INK 9,2 OUT (C),C F1E LD BC,#7F54 OUT (C),C LD BC,#7F0A ;INK 10,1 OUT (C),C F1F LD BC,#7F54 OUT (C),C ; SCRLLA LD A,(SCRLON) OR A JR Z,SCRLLA0 DEC A LD (SCRLON),A HALT HALT JP KEYTST ; SCRLLA0 LD HL,#C5B0+80 LD B,24 SCRLLA1 PUSH BC LD E,L LD D,H INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD BC,#7CF ADD HL,BC LD A,H CP #C0 JR NC,SCRLLA2 LD BC,#3F5F+80 SBC HL,BC SCRLLA2 POP BC DJNZ SCRLLA1 ; KEYTST LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP NZ,ENDE ; BTEILB LD HL,TBFTAB HALT LD BC,#7F8D ;MODE 1 OUT (C),C LD BC,#7F02 ;INK 2,8 OUT (C),C LD BC,#7F4D OUT (C),C LD BC,#7F03 ;INK 3,4 OUT (C),C LD BC,#7F58 OUT (C),C LD B,29 LD A,(TBFTAB+28) LD E,A BTEILB1 PUSH BC LD A,(HL) LD BC,#7F01 OUT (C),C OUT (C),A LD (HL),E INC HL LD E,A DEFS 34 POP BC DJNZ BTEILB1 ; BTEILC LD BC,#7F01 ;INK 1,26 OUT (C),C F2A LD BC,#7F54 OUT (C),C LD BC,#7F02 ;INK 2,18 OUT (C),C F2B LD BC,#7F54 OUT (C),C LD BC,#7F03 ;INK 3,6 OUT (C),C F2C LD BC,#7F54 OUT (C),C ; SCRLLB LD HL,#C780 LD B,8 SCRLLB1 PUSH BC LD E,L LD D,H LD A,(HL) INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD (DE),A LD BC,#7B0 ADD HL,BC POP BC DJNZ SCRLLB0 JR MESPRT SCRLLB0 JP SCRLLB1 ; MESPRT LD A,(SCRLON) OR A JR NZ,BTEILD LD HL,(MESZGR) LD A,(HL) CP 4 JP Z,MESFN4 JR NC,MESPRT1 OR A JP NZ,MESPRT2 LD HL,MESTXT-1 LD A,32 MESPRT1 INC HL LD (MESZGR),HL LD L,A LD H,0 ADD HL,HL Track-Info  Nе Б В Г Д Е Ж З И Й ADD HL,HL ADD HL,HL LD DE,#9000 ADD HL,DE EX DE,HL LD BC,#800 LD HL,#C5DF+80 CALL MESCHR LD HL,#C67F CALL MESCHR LD HL,#C71F-80 CALL MESCHR ; BTEILD HALT LD BC,#7F8E OUT (C),C DEFS 18 LD HL,TCFTAB LD B,44 LD A,(TCFTAB+39) LD E,A BTEILD1 PUSH BC LD A,(HL) LD BC,#7F01 OUT (C),C OUT (C),A DEFS 34 LD (HL),E INC HL LD E,A POP BC DJNZ BTEILD2 JR BTEILE BTEILD2 JP BTEILD1 ; BTEILE LD BC,#7F8D OUT (C),C LD BC,#7F01 ;INK 1,24 OUT (C),C F3A LD BC,#7F54 OUT (C),C LD BC,#7F02 ;INK 2,15 OUT (C),C F3B LD BC,#7F54 OUT (C),C LD BC,#7F03 ;INK 3,6 OUT (C),C F3C LD BC,#7F54 OUT (C),C CALL #618A JP FRAME ; MESCHR PUSH DE LD A,(DE) ;1 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;2 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;3 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;4 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;5 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;6 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;7 LD (HL),A INC DE ADD HL,BC LD A,(DE) ;8 LD (HL),A POP DE RET ; MESPRT2 CP 1 JR Z,MESFN1 CP 2 JR Z,MESFN2 ; MESFN3 LD A,#4A LD (F3A+1),A LD A,#4E LD (F3B+1),A LD A,#4C LD (F3C+1),A JR MESPRT3 ; MESFN1 LD A,#4B LD (F1A+1),A LD A,#5D LD (F1B+1),A LD A,#53 LD (F1C+1),A LD A,#57 LD (F1D+1),A LD A,#55 LD (F1E+1),A LD A,#44 LD (F1F+1),A JR MESPRT3 ; MESFN2 LD A,#4B LD (F2A+1),A LD A,#52 LD (F2B+1),A LD A,#4C LD (F2C+1),A JR MESPRT3 ; MESFN4 LD A,150 LD (SCRLON),A ; MESPRT3 LD HL,(MESZGR) INC HL LD (MESZGR),HL JP BTEILD ; SCRINI LD A,2 CALL #BC0E LD HL,257 CALL #BC3E ; SCHWARZ LD BC,16*256 SCHWAR1 PUSH BC LD A,B DEC A LD BC,0 CALL SETINK POP BC DJNZ SCHWAR1 JP SETBOR ; CHRCOP CALL LROMON LD HL,CHRADR LD DE,#9000 LD BC,#800 LDIR JP LROMOFF CHRCOP1 ; LADEN LD B,12 PUSH DE CALL INOPEN POP HL CALL INDIRE JP INCLOSE ; ENDE LD HL,(INTBUF) LD (#38),HL JP #BCA7 ; STARIN LD B,20 LD HL,STARADR LD DE,80*256 STARIN1 PUSH DE PUSH BC PUSH HL LD A,R SRL A SRL A SRL A INC A LD HL,#C000 LD D,0 ADD HL,DE LD DE,80 LD B,A STARIN2 ADD HL,DE DJNZ STARIN2 POP DE EX DE,HL LD (HL),E INC HL LD (HL),D INC HL POP BC POP DE LD (HL),D INC HL INC E INC E INC E INC E DEC D DEC D DEC D DEC D DJNZ STARIN1 RET ; PART3 CALL SCRINI LD HL,SC3NAM LD DE,#4000 CALL LADEN LD A,1 CALL #BC0E CALL #4000 LD HL,MS3NAM LD DE,#4D00 CALL LADEN CALL #4D00 ; LD A,1 LD BC,10*256+10 CALL SETINK LD A,2 LD BC,26*256+26 CALL SETINK LD A,3 LD BC,15*256+15 CALL SETINK ; HRDSCR CALL #BD19 LD BC,#BC02 OUT (C),C LD A,(HORPOS) LD B,#BD OUT (C),A DEC A CP -1 JR NZ,HRDSCR1 LD A,63 HRDSCR1 LD (HORPOS),A JR HRDSCR ; HORPOSTrack-Info  Nе Б В Г Д Е Ж З И Й DEFB 46 ; STARADR DEFS 20*3 ; TBFTAB DEFB 85,85,87,85,87,87,83,87,83,83,75,83,75,75,74,75,74,74,78,74,78,78 DEFB 76,78,76,76,92,76,92 TCFTAB DEFB 68,68,85,85,87,87,83,83,75,75,83,83,87,87,85,85,68,68,84,84,86,86 DEFB 82,82,86,86,84,84,76,76,78,78,74,74,78,78,76,76,84,84,77,77,88,88 ; SCRLON DEFB 50 ; GRFNAM DEFM "ADVANCED.000" MUSNAM DEFM "ADVANCED.001" TITNAM DEFM "ADVANCED.003" FNTNAM DEFM "ADVANCED.004" SNDNAM DEFM "ADVANCED.005" MS1NAM DEFM "ADVANCED.006" SPRNAM DEFM "ADVANCED.007" SC3NAM DEFM "ADVANCED.008" MS3NAM DEFM "ADVANCED.009" ; INTBUF DEFW 0 SPRPOS DEFW 1 SPRRIC DEFB 1 ; SFNTAD DEFW 0 SFNTPS DEFB 0 ; ZGRMES DEFW TXTMES MESZGR DEFW MESTXT ; READ "ADVANCED.TXT" EQU #BC384,84,76,76,78,78,74,74,78,78,76,76,84,84,77,77,88,88 ; SCRLON DEFB 50 ; GRFNAM DEFM "ADVANCED.000" MUSNAM DEFM "ADVANCED.001" TITNAM DEFM "ADVANCED.003" FNTNAM DEFM "ADVANCED.004" SNDNAM DEFM "ADVANCED.005" MS1NAM DEFM "ADVANCED.006" SPRN0 SFNTPS DEFB 0 ; ZGRMES DEFW TXTMES MESZGR DEFW MESTXT ; READ "ADVANCED.TXT"  EQU #BC32 SETBOR EQU #BC34,78,78,76,76,84,84,77,77,88,88 ; SCRLON DEFB 50 ; GRFNAM DEFM "ADVANCED.000" MUSNAM DEFM "ADVANCED.001" TITNAM DEFM "ADVANCED.003" FNTNAM DEFM "ADVANCED.004" SNDNAM DEFM "ADVANCED.005" MS1NAM DEFM "ADVANCED.006" SPRNAM DEFM "ADVANCED.007" SC3NAM DEFM "ADVANCED.008" MS3NAM DEFM "ADVANCED.009" ; INTBUF DEFW 0 SPRPOS DEFW 1 SPRRIC DEFB 1 ; SFNTAD DEFW TXTMES DEFM "iiiiiiiiiiiiiiiiiiiiiiWELCOMEiTOiTHEiADVANCEDfDEMOiddiiiiiTHISiDEMOiISi" DEFM "MYiSECONDiPRODUCTIONhiBUTiITiISiTHEiFIRSTiPRODATRONfDEMOiWHICHiCONTAINSi" DEFM "SCREENfMODEfSPLITTINGiANDiCOLORfRASTERSgggiiiiiINiTHISiPARThiEVERYTHING" DEFM "iISiMADEiWITHiSOFTWAREfROUTINEShiTHEREiAREiNOiDIRTYiHARDWAREfTRICKSdiii" DEFM "iiiNOhiNOhiiIiAMiNOTiAGAINSTiHARDWAREfTRICKShiBUTiIiCANiNOTiPROGRAMiTHE" DEFM "MiUPiTOiNOWgggiiiiiiiiIiTHINKhiTHISiDEMOiWILLiRUNiONiEVERYiAMSTRADfCPCf" DEFM "COMPUTERhiBUTiIiAMiNOTiSUREgiiiiiITiWASiWRITTENiINiMARCHi[cc\iONiTHEiCP" DEFM "Cf`[\biBYiMEhiPRODATRONgiiiiiiNOWiITiISiCEBITfc\fTIMEiBUTiIiCANiNOTiCOM" DEFM "EiTOiTHEiAMSTRADfMEETINGhiBECAUSEiIiHAVEiAiSWIMMINGfRACEiATiTHEiWEEKEND" DEFM "ggggifiWHATiAiSHITdddifiiiiiiiiiiHAVEiYOUiSEENiMYiFIRSTiDEMOhiTHEi\[STi" DEFM "CENTURYfDEMOieeeiiiiiIiAMiNOTiSUREhiTHATiTHISiADVANCEDfDEMOiISiBETTERhi" DEFM "ITiISiNOTiSOiLARGEhiBUTiITiHASiMOREiMODERNiROUTINESiTHENiTHEi\[STiCENTU" DEFM "RYfDEMOgiiiiiiiTHEiSOUNDiINiTHISiDEMOiCOMESiFROMiSILKWORMhiITiWASiRIPPE" DEFM "DiBYiANiUNKNOWNiPERSONgiiiiiWHATiDOiYOUiTHINKiABOUTiTHISiNICEiFONTeeiii" DEFM "ITiISiMYiOWNiCREATIONddiiiBUTiIiMUSTiSAYhiTHATiIiHAVEiLOOKEDiONiONEiOFi" DEFM "THEiFONTSiINiiTiHiEiiiDiEiMiOiiBYiLOGONfSYSTEMhiWHENiIiHAVEiMADEiITgggi" DEFM "iiiiTHEiBIGiPRODATRONfSPRITEiYOUiSEEiATiTHEiTOPiOFiTHISiSCREENiWASiPAIN" DEFM "TEDiBYiMEgiiiiiIFiYOUiWANTiTOiLEAVEiTHISiPARThiPRESSiSPACEgiTHENiTHEiNE" DEFM "XTiPARThiTHEiiMiAiIiNifiPiAiRiTiiWILLiBEiSTARTEDgiiiiiiiiiPERHAPSiMYiNE" DEFM "XTiDEMOiWILLiBEiANiOVERSCANiDEMOhiBUTiIiCANiNOTiPROMISEiTHATgggggiiiiii" DEFM "iiiiiiiWELLhiIiMEANiTHISiISiALLiFORiTHISiSCROLLERhiPRESSiSPACEiORiWATCH" DEFM "iTHISiMESSAGEiAGAINgggiiiiiiiiiGOODiBYTEhiiiiiiiiYOURSiPRODATRONhiiMAST" DEFM "ERiOFiTHEiMNEMONICSiiiiiiiiiiii[\giMARCHi[cc\iiiiiiiiiiiiiiiiiiiiiiiiii" DEFB 0 ; MESTXT DEFM 4,"Hello everybody!!! " DEFM " PRODATRON is proud to present ",4 DEFM " " DEFM " you the main-part of his newest production....",4 DEFM " " DEFM " T H E A D V A N C E D - D E M O !!!! ",1,4 DEFM " " DEFM " Aber jetzt geht's in Deutsch weiter: " DEFM " Zuerst eine Stellungnahme zu diesem Demo: ",4 DEFM " Nachdem ich mit grosser Begeisterung diesen ",4 DEFM " ersten Part an einem Tag gecoded habe, ",4 DEFM " kam ploetzlich das grosse Black-Out und ich ",4 DEFM " hatte keinen Bock mehr zum weiterproggen..... ",4 DEFM " Aber was solls,mies ist das Demo ja wohl nich ",3,4 DEFM " " DEFM " Noch was zum Sound in diesem Part: ",4 DEFM " Den kennt jetzt wohl bereits jeder. ",4 DEFM " Ich hab ihn aus'em KNS-Intro herausgehackt... ",4 DEFM " " DEFM " Da mir im Moment nichts Dolles einfaellt, ",2,4 DEFM " will ich erstmal 'n paar Greetinx loswerdeTrack-Info  NеБВГДЕЖЗИЙn: ",4 DEFM "GREETINX are going to..... " DEFM " A L I E N ",4 DEFM " Was haellst Du von diesem Part?? ",4 DEFM " Leider habe ich Dein MEGADEMO noch nicht.... ",4 DEFM " " DEFM " C A E S A R of V I C T O R Y ",4 DEFM "Tut mir echt leid, das Dein Bike futsch ist... ",4 DEFM "Willst Du Dir jetzt immer noch den PLUS holen? ",4 DEFM " " DEFM " L E A T H E R R E B E L ",4 DEFM " Dein FASTLOADER wird immer besser!! ",4 DEFM " Hoffentlich haelt er durch.... ",4 DEFM " " DEFM " S . E . C . ",4 DEFM " Dein ILLUSION-Demo war echt laessig! ",4 DEFM " Ich kann nur sagen: Mach weiter so.... ",4 DEFM " " DEFM " C P C - L O R D H E L M C H E N ",4 DEFM " Ich warte schon ganz gespannt auf Dein erstes ",4 DEFM "RASTER-DEMO!!.... " DEFM " " DEFM "Und ausserdem:...... " DEFM "STEPAHN M. DEXTER BYTEFOX MICKEY " DEFM "NEUTERFECIT THE WHOLE LOGON-SYSTEM CREW MALIBU-CODE" DEFM "RS THRILLER AND WEEE BETA SOFT COLOGNE AST" DEFM "ERIX ELMSOFT NEW WAY CRACKING and all othe" DEFM "r CPC-Demowriters.... " DEFM "Nun kommen wir zu den Credits:... " DEFM " TITELSCREEN: Gfx was converted from PC ",4 DEFM " Sound was taken from a READONLY-Demo ",4 DEFM " INTRO-PART: Gfx and Font by PRODATRON ",4 DEFM " Coding by PRODATRON,Sound from Silkworm ",4 DEFM " MAIN-PART: Gfx from Amiga-Show and by PDT ",4 DEFM " Coding by PRODATRON, ",4 DEFM " Sound from Cybernoid II on Atari ST ",4 DEFM " END-PART: Gfx from Amiga-Dia-Show ",4 DEFM " Sound was taken from Crack'n'Rom III ",4 DEFM " " DEFM "Das wars, Leute, drueckt Space fuer'n END-PART!",4 DEFM " Der END-PART enthaelt uebrigens Overscan und ",4 DEFM " Hardwarescrolling (hoe, hoe, hoe....)!! ",4 DEFM " " DEFM "Bis zum naechsten Demo... " DEFM "13.03.1992 ",4,4,4,0 ONDiPRODUCTIONhiBUTiITiISiTH DEFM " Sound was taken from Crack'n'Rom III ",4 DEFM " " DEFM "Das wars, Leute, drueckt Space fuer'n END-PART!",4 DEFM " Der END-PART enthaelt uebrigens Overscan und ",4 DEFM " Hardwarescrolling (hoe, hoe, hoe....)!! ",4 DEFM " " DEFM "Bis zum naechsten Demo... ORG #400 ; WRITE "ALPHA.BIN" ; TITEL LD A,2 CALL #BC0E LD BC,0 LD A,0 CALL #BC32 LD BC,0 CALL #BC38 LD BC,0 LD A,1 CALL #BC32 LD HL,#2A00 LD DE,#8900 LD BC,#1400 LDIR LD HL,#600 LD DE,#4000 LD BC,#2400 LDIR CALL #8900 CALL #4000 LD BC,26*256+26 LD A,1 CALL #BC32 CALL #BB18 CALL #8903 CALL #BC0E ; LD HL,PART2 LD B,7 CALL #BC77 EX DE,HL CALL #BC83 PUSH HL JP #BC7A ; PART2 DEFM "ALPHA.B"D BC,0 LD A,0 HL,#2A00 LD DE,#8900 LD BC,#1400 LDIR LD HL,#600 LD DE,#4000 LD BC,#2400 LDIR CALL #8900 CALL #4000 LD BC,26*256+26 LD A,1 CALL #BC32 NOLIST WRITE "ALPHA.B-B" ORG #800 ; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; CALL BLACK LD HL,#2200 LD DE,#4000 LD BC,#1400 LDIR CALL #4000 LD HL,FILE LD DE,#2200 CALL LADEN ; DI LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL LD B,#F5 FRAME0 IN A,(C) RRA Track-Info  NеБВГДЕЖЗИЙ JR NC,FRAME0 CALL SPUSH LD (STBUF),SP LD SP,#800 ; OVERSC LD BC,#BC01 OUT (C),C LD BC,#BD00+48 OUT (C),C LD BC,#BC02 OUT (C),C LD BC,#BD00+50 OUT (C),C LD BC,#BC06 OUT (C),C LD BC,#BD00+34 OUT (C),C LD BC,#BC07 OUT (C),C LD BC,#BD00+35 OUT (C),C LD BC,#BC0C OUT (C),C LD BC,#BD00+45 OUT (C),C LD BC,#BC0D OUT (C),C LD BC,#BD00+0 OUT (C),C ; COPY LD HL,#C000 LD DE,#8000 LD BC,#3FFF LDIR CALL #4000 LD HL,#5500 LD DE,#4600 LD BC,#1A00 LDIR LD HL,#6F00 LD DE,#7F00 LD BC,#300 LDIR LD HL,#2200 LD DE,#6000 LD BC,#1E00 LDIR EI ; FRAME1 LD B,#F5 FRAME IN A,(C) RRA JR NC,FRAME ; TEILA LD BC,#7F8D ;MODE 1 OUT (C),C FA LD DE,1*256+84 ;INK 1,8 OUT (C),D OUT (C),E LD DE,2*256+84 ;INK 2,4 OUT (C),D OUT (C),E LD DE,3*256+84 ;INK 3,9 OUT (C),D OUT (C),E LD HL,4*#800+#8200+983 CALL SCROLL HALT ; TEILB LD BC,#7F8C ;MODE 0 OUT (C),C FB1 LD DE,12*256+84 OUT (C),D OUT (C),E FC LD DE,1*256+84 OUT (C),D OUT (C),E LD DE,2*256+84 OUT (C),D OUT (C),E LD DE,3*256+84 OUT (C),D OUT (C),E LD DE,4*256+84 OUT (C),D OUT (C),E LD DE,5*256+84 OUT (C),D OUT (C),E LD DE,6*256+84 OUT (C),D OUT (C),E LD DE,7*256+84 OUT (C),D OUT (C),E LD DE,8*256+84 OUT (C),D OUT (C),E LD DE,9*256+84 OUT (C),D OUT (C),E LD DE,13*256+84 OUT (C),D OUT (C),E FB LD DE,10*256+84 OUT (C),D OUT (C),E LD DE,11*256+84 OUT (C),D OUT (C),E PUSH HL LD A,(CHRPOS) DEC A JR NZ,TEILB3 TEILB6 LD HL,(MS1ZGR) TEILB1 LD A,(HL) INC HL CP 4 JR NC,TEILB2 OR A JR Z,TEILB0 LD (MS1ZGR),HL PUSH AF CP 3 CALL Z,FAON POP AF PUSH AF CP 2 CALL Z,FDON POP AF CP 1 CALL Z,FCON JR TEILB6 TEILB0 LD HL,MS1TXT JR TEILB1 TEILB2 LD (MS1ZGR),HL LD L,A LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,#7E00 ADD HL,DE LD (CHRADR),HL LD A,4 TEILB3 LD (CHRPOS),A LD HL,(CHRADR) LD DE,4*#800+#8200+986+46 LD C,A LD B,8 TEILB4 CALL CHRPIX CALL CHRPIX INC HL DJNZ TEILB4 HALT LD B,40 LD HL,FTAB2 LD A,(FTAB2+39) LD E,A TEILB5 PUSH BC LD A,(HL) LD BC,#7F0F OUT (C),C OUT (C),A LD (HL),E INC HL LD E,A DEFS 34 POP BC DJNZ TEILB5 HALT POP HL CALL SCROLL HALT ; TEILC LD B,#7F FE LD DE,1*256+84 OUT (C),D OUT (C),E LD HL,FTAB1 PUSH HL LD B,14 TEILC1 PUSH BC LD C,B INC C LD B,#7F OUT (C),C LD A,(HL) OUT (C),A INC HL POP BC DJNZ TEILC1 POP DE LD HL,FTAB1+1 LD A,(DE) LD BC,13 LDIR LD (DE),A ; LD A,(GWPAUSE) DEC A JR NZ,LAUFPR7 LD A,2 LAUFPR7 LD (GWPAUSE),A JP Z,LAUFPR CALL FBON CALL FEON JR TEILD ; LAUFPR LD A,(SFNTPS) OR A JR NZ,LAUFPR2 LD HL,(MS2ZGR) LAUFPR0 LD A,(HL) OR A JR NZ,LAUFPR1 LD HL,MS2TXT JR LAUFPR0 LAUFPR1 INC HL LD (MS2ZGR),HL SUB 64 LD B,A LD HL,#6000-192 LD DE,19Track-Info  NеБВГДЕЖЗИЙ2 LAUFPR5 ADD HL,DE DJNZ LAUFPR5 LD (SFNTAD),HL LD A,8 LAUFPR2 DEC A LD (SFNTPS),A LD A,(SCRPOS) LD HL,14*96+#C000+4 LD C,A LD B,0 ADD HL,BC INC A CP 88 JR NZ,LAUFPR6 XOR A LAUFPR6 LD (SCRPOS),A LD DE,(SFNTAD) LD B,24 LAUFPR3 PUSH BC LD A,(DE) LD (HL),A INC HL LD (HL),0 INC DE LD BC,#800-1 ADD HL,BC LD A,H CP #C0 JR NC,LAUFPR4 LD BC,#3F9F SBC HL,BC LAUFPR4 POP BC DJNZ LAUFPR3 LD (SFNTAD),DE ; TEILD HALT LD BC,#7F8D ;MODE 1 OUT (C),C LD DE,1*256+75 ;INK 1,26 OUT (C),D OUT (C),E LD DE,2*256+77 ;INK 2,8 OUT (C),D OUT (C),E LD DE,3*256+88 ;INK 3,4 OUT (C),D OUT (C),E ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP NZ,WEITER ; SOUND LD HL,(SNDCNT) DEC HL LD A,L OR H JR NZ,SOUND1 CALL #4D1A LD HL,8480 SOUND1 LD (SNDCNT),HL CALL #475D JP FRAME1 ; WEITER DI LD SP,#7FFF CALL SPOP LD HL,(INTBUF) LD (#38),HL LD SP,(STBUF) EI CALL #BCA7 CALL BLACK LD HL,WEITER1 LD DE,#BE80 LD BC,#30 PUSH DE LDIR RET WEITER1 LD HL,FILE2 LD B,12 CALL INOPEN EX DE,HL CALL INDIRE PUSH HL JP INCLOSE FILE2 DEFM "ALPHA .D " ; LADEN LD B,12 PUSH DE CALL INOPEN POP HL CALL INDIRE JP INCLOSE ; SCROLL LD B,8 SCROLL1 PUSH BC LD E,L LD D,H INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD BC,#1000-50 ADD HL,BC LD A,H CP #C0 JR C,SCROLL2 LD BC,#3FA0 SBC HL,BC SCROLL2 POP BC DJNZ SCROLL1 RET ; CHRPIX PUSH BC LD A,(HL) LD B,C CHRPIX1 RRA RRA DJNZ CHRPIX1 JR NC,CHRPIX2 LD B,#AA CHRPIX2 RLA LD A,B JR NC,CHRPIX3 OR #55 CHRPIX3 EX DE,HL LD (HL),A LD BC,#1000 ADD HL,BC LD A,H CP #C0 JR C,CHRPIX4 LD BC,#3FA0 SBC HL,BC CHRPIX4 EX DE,HL POP BC RET ; FAON LD HL,FA+1 LD DE,FATAB LD B,3 ; FARBON LD C,7 FARBON1 LD A,(DE) LD (HL),A LD A,B LD B,0 ADD HL,BC LD B,A INC DE DJNZ FARBON1 RET ; FCON LD HL,FC+1 LD DE,FCTAB LD B,10 JP FARBON ; FDON LD BC,40 LD HL,FDTAB LD DE,FTAB2 LDIR RET ; FBON LD HL,(FBTBCN) DEC HL LD A,L OR H JR NZ,FBON1 LD HL,600 FBON1 LD (FBTBCN),HL RET NZ LD A,(FBTBZG) LD C,A INC A CP 6 JR NZ,FBON2 XOR A FBON2 LD (FBTBZG),A LD A,C ADD A LD C,A LD B,0 LD HL,FBTATrack-Info  NеБВГДЕЖЗИЙB ADD HL,BC LD A,75 LD (FB1+1),A LD DE,FB+1 EX DE,HL LD B,2 JP FARBON ; FEON LD HL,(FETBCN) DEC HL LD A,L OR H JR NZ,FEON1 LD HL,600 FEON1 LD (FETBCN),HL RET NZ LD A,(FETBZG) LD B,0 LD C,A ADD 14 CP 5*14 JR NZ,FEON2 XOR A FEON2 LD (FETBZG),A LD HL,FETAB ADD HL,BC LD A,85 LD (FE+1),A LD DE,FTAB1 LD BC,14 LDIR RET ; SPUSH LD A,(#A700) ;LAUFWERK LD (SPOP4+1),A LD HL,(#BD38) ;JUMP RESTORE RES 7,H LD (SPOP1+1),HL LD HL,(#BB01) ;KM INITIALISE RES 7,H LD (SPOP2+1),HL LD HL,(#BB4F) ;TXT INITIALISE RES 7,H LD (SPOP3+1),HL LD HL,(#BC00) ;SCR INITIALISE RES 7,H LD (SPOP5+1),HL RET ; SPOP LD HL,SPOP0 LD DE,#BE80 LD BC,#30 PUSH DE LDIR RET SPOP0 EXX LD BC,#7F88 OUT (C),C XOR A EX AF,AF' CALL #44 SPOP1 CALL 0 SPOP2 CALL 0 SPOP3 CALL 0 SPOP5 CALL 0 LD BC,#7F8D OUT (C),C EXX LD HL,#ABFF LD C,#07 CALL #BCCE SPOP4 LD A,0 LD (#A700),A RET ; BLACK LD B,16 BLACK1 PUSH BC LD A,B DEC A LD BC,0 CALL #BC32 POP BC DJNZ BLACK1 LD BC,0 JP #BC38 ; FILE DEFM "ALPHA .A " INTBUF DEFW 0 STBUF DEFW 0 FTAB1 DEFB 84,84,84,84,84,84,84,84,84,84,84,84,84,84 FTAB2 DEFB 75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75 DEFB 75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75 CHRPOS DEFB 1 CHRADR DEFW 0 MS1ZGR DEFW MS1TXT MS2ZGR DEFW MS2TXT SNDCNT DEFW 1 SFNTAD DEFW 0 SFNTPS DEFB 0 SCRPOS DEFB 0 GWPAUSE DEFB 1 FBTBZG DEFB 0 FBTBCN DEFW 500 FETBZG DEFB 0 FETBCN DEFW 600 ; FATAB DEFB 77,88,86 ;A PRODATRON PRODUCTION FBTAB DEFB 92,76,86,82,68,85,78,74,88,77,85,83 ;ALPHA-DEMO FCTAB DEFB 68,85,87,92,76,78,74,67,75,83 ;DOUBLE-DRAGON GRAFIK FDTAB DEFB 93,93,87,87,83,83,75,75,83,83,87,87,93,93,86,86,82,82,89,89,75,75 DEFB 89,89,82,82,86,86,78,78,74,74,75,75,74,74,78,78,64,64 ;SCROLLER FETAB DEFB 76,76,76,76,76,76,76,76,76,76,76,76,76,76 DEFB 84,68,88,85,87,95,83,75,83,95,87,85,88,68 DEFB 84,92,76,77,94,78,74,75,74,78,94,77,76,92 DEFB 86,94,82,66,90,89,75,89,90,66,82,94,86,84 DEFB 84,68,85,92,88,93,76,69,77,86,70,87,94,64 ; MS1TXT DEFM "Hey you small boy, sitting in front of yout great CPC!! PRODATRON o" DEFM "f 'THE REJECTS' is speaking again in his latest DEMO!",2," It's not a" DEFM " demo like the other PDT-DEMOS... there is something differen" DEFM "t in this Demo... It's called A L P H A - D E M O !!!!!!" DEFM " And it's my FIRST OVERSCAN-DEMO !!! ",3," Hope you " DEFM "like this second part of the Alpha-Prod",1,"atron-Demo... " DEFM "Let's go on, und zwar in Deutsch: Also, wenn ihr euch die Greetin" DEFM "x und Messages ansehen wollt, dann tut ihr das richtige, wenn ihr bei " DEFM "dem Ghostwriter ganz unten weiterlest. Hier oben wird naemlich jetz" DEFM "t nur noch weiter dumm rumgezueltzt.... Erstmal was zum Demo: " DEFM "Dieses Demo ist, wie schon gesagt, mein dritter Versuch auf dem CPC ei" DEFM "n Gemisch aus Gedoedel und grafischem Klim-Bim zu produzieren. Ist e" DEFM "s mir gelungen???? NEIN ???!!! SCHITT! Na vielleicht klap" DEFM "pt es ja dann beim vierten Versuch (wait for my next demo!!).... " DEFM " Der Sound in diesem Part stammt von Deflektor. Ich habe ihn aber a" DEFM "us dem BMC-FULLSCREENLOADER zu TEENAGE MUTANT HERO TURTLES gehackt, we" DEFM "il das immer am einfachsten ist. Also ein Sorry und gleichzeitig ei" DEFM "n Dankeschoen gehen hiermit erstmal an BLACK MISSION... Die beide" DEFM "n Lausbuben, die hier links und rechts von diesem Scroller euch bedroh" DEFM "en (keine Angst, sie tun euch nichts, durch das dicke Monitorglas kom" DEFM "men sie nicht hindurch) stammen vom Titelpic zu Double Dragon. " DEFM "Den uebrigen Firlefanz auf diesem Screen hab ich selbst gepainted (sie" DEFM "ht man ja...). Jetzt mal was anTrack-Info  NеБВГДЕЖЗИЙderes.... Folgende Informati" DEFM "on duerfte fuer alle Post-Swapper interessant sein: Wisst ihr schon" DEFM ", wie ihr die Post bescheissen koennt, und so 'ne Menge Porto spart???" DEFM " Also, dann hoert mal zu: Ihr beschmiert die Briefmarken mit eine" DEFM "m Prittstift, nicht zu dick, sonst faellt's ja auf. Diese praeparier" DEFM "ten Marken klebt ihr dann auf den Brief und schickt ihn ab. Der Empf" DEFM "aenger kann den Poststempel nun ganz leicht mit Wasser abkriegen, da j" DEFM "a zwischen dem Stempel und der Marke der Klebefilm sitzt, und schon is" DEFM "t die gebrauchte Marke wieder einsatzbereit... Gut was? Ein Tha" DEFM "nx geht hier an CAESAR of VICTORY, der mir den Trick verraten hat. " DEFM " Also Jungs, ich muss mich jetzt wieder verabschieden, aber ich de" DEFM "nke, dass dieser Scroller lang genug war. Drueckt SPACE, dann geht's " DEFM "weiter mit dem naechsten Part... " DEFM "Das war's Alter, drueck jetzt endlich Space, sonst bist du gezwungen, " DEFM "dir dieses Gesuelze nochmal anzuhoeren!! " DEFM "28.03.1992 10:59:20 Uhr ",0 ; MS2TXT DEFM "____________________________________________" DEFM "____________________________________________" DEFM "____________________________________________" DEFM "_HI_GUYS_d_THIS_IS_THESMALL_GHOST_WRITER_OF_THE_\g_PART" DEFM "_FROM__THE_ALPHAfDEMOdHERE_I_WILLWRITE__SOME_GREETINXh_" DEFM "MESSAGESgggLET_S_BEGIN______________SgEgC___ICH__HOFFEh" DEFM "DU_HAST_ERfFOLG_IM_MCf_NACHHILFE_FUER_CAESARDREI__PARTS" DEFM "DEINER__ILfLUSIONSERIEKENNE__ICHgGEHT_SOggggICH__HOFFEh" DEFM "DU_STEIGERSDICH_NOCHdd_____________DEXTER____DU_DUMMER_" DEFM "_ROUTINENf_KLAUERdddddEINFACH__INDEIN_[gDEMOMEIN_SCROLf" DEFM "_LER_REINf__BAUENddSO_GEHTS_NICHTUND_MIT_DERGRAFIK_HAST" DEFM "DU_DICH_BEfSTIMMT_SEHR_BLAMIERTh__VON_WEGEN__VOM_AMIGA_" DEFM "KONVERTIERTICH_GLAUBEhDASS_ES_BEfREITS_JEDERWEISSh_DASS" DEFM "DIESE__GRAfFIK_VON_OCPARTfSTUDIO_ISTggg________________" DEFM "CPCfLORD_HgDEINE_DEMOSWERDEN_ALLfMAEHLIG_IMfMER_BESSERg" DEFM "_ABER__ICH__RATE_DIRh_LIEBER_EIN__GROSSES_h_STATT_VIELE" DEFM "_KLEINE_ZU_SCHREIBENg____________CAESAR_OgVg_DER_TRICK_" DEFM "__MIT_DEN__MARKEN__ISTGENIALdABER_KOENNTEST_DU_DICH_MIT" DEFM "DEM_SWAPPEN_NICHT_EIN_BISCHEN_BEfEILENed_ICH_BIN__HALT_" DEFM "SEHR__UNGEfDULDIGgVERf_STEHE_GAR_NICHT_DEINE_DISCfMOTg_" DEFM "WARUM__TUST_DU__NICHT_ALLES_AUF_BNUR_DIEhDIENICHT_AUF_B" DEFM "LAUFEN__UNDUNVERZICHTf_BAR_SINDh__AUF_AgICH__HAB_JETZT_" DEFM "cOO__PROGShABER_NUR_]O]fZOELLERd____________BIG__HELLOS" DEFM "ARE_GOINGTO__LgREBEL_____ALIEN___STEPHAN_Mg_THAT_WAS_IT" DEFM "___________GREETINX_TOTHIS_HEROES__MICKEY_______BSC____" DEFM "CADJO__CLANLOGONSYSTEM__PARADOX___MALIBUfCg_BLCgMISSION" DEFM "__ELMSOFT____ASTERIX__NEW_WAY_CRgAND_ALL_THEREST_OF_THE" DEFM "CPCfGANGggg___________WOWhDU_BIST_JA__IMMER_NOCH_DA_UND" DEFM "GLOTZT__DIRDIESEN_WRIfTER_ANdGANZSCHOEN_TAPf_FERd_LOSh_" DEFM "DRUECK_SPAf_CEh_SONST__GEHTS_VON_VORNE_LOSgg",0 ; LIST ENDADR DEFB 0; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; TO__LgREBEL_____ALIEN___STEPHAN_Mg_THAT_WAS_IT" DEFM "___________GREETINX_TOTHIS_HEROES__MICKEY_______BSC____" DEFM "CADJO__CLANLOGONSYSTEM__PARADOX___MALIBUfCg_BLCgMISSION" DEFM "__ELMSOFT____ASTERIX__NEW_WAY_CRgAND_ALL_THEREST_OF_THE" DEFM "CPCfGANGggg___________WOWhDU_BIST_JA__IMMER_NOCH_DA_UND" DEFM "GLOTZT__DIRDIESEN_WRIfTER_ANdGANZSCHOEN_TAPf_FERd_LOSh_" DEFM "DRUECK_SPALIEN___STEPHAN_Mg_THAT_WAS_IT" DEFM "___________GREETINX_TOTHIS_HEROES__MICKEY_______BSC____" DEFM "CADJO__CLANLOGONSYSTEM__PARADOX___MALIBUfCg_BLCgMISSION" DEFM "__ELMSOFT____ASTERIX__NEW_WAY_CRgAND_ALL_THEREST_OF_THE" DEFM "CPCfGANGggg___________WOWhDU_BIST_JA__IMMER_NOCH_DA_UND" DEFM "GLOTZT__DIRDIESEN_WRIfTER_ANdGANZSCHOEN_TAPf_FERd_LOSh_" DEFM "DRUECK_SPAf_CEh_SONST__GEHTS_VON_VORNE_LOSgg",0 ; LIST ENDADR DEFB 0 ORG #800 ; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; NOLIST WRITE "ALPHA.BIN ; ORG #7C00 ; INIT LD B,16 INIT1 PUSH BC LD A,B DEC A LD B,0 LD C,0 CALL #BC32 POP BC DJNZ INIT1 LD BC,0 CALL #BC38 CALL #4000 LD BC,#BC01 OUT (C),C LD BC,#BD00+41 OUT (C),C LD BC,#BC06 OUT (C),C LD BC,#BD00+32 OUT (C),C LD BC,#BC07 OUT (C),C Track-Info  NеБВГДЕЖЗИЙ LD BC,#BD00+34 OUT (C),C LD HL,#5000 LD DE,#4000 LD BC,#1300 LDIR XOR A CALL #4000 ; STARIN LD B,20 LD HL,STARADR LD DE,80*256 STARIN1 PUSH DE PUSH BC PUSH HL LD A,R AND #F0 INC A LD HL,82*7+#C000 LD D,0 ADD HL,DE LD DE,82 LD B,A STARIN2 ADD HL,DE DJNZ STARIN2 POP DE EX DE,HL LD (HL),E INC HL LD (HL),D INC HL POP BC POP DE LD (HL),D INC HL INC E INC E INC E INC E DEC D DEC D DEC D DEC D DJNZ STARIN1 ; LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL EI ; LD BC,#7F8D ;MODE 1 OUT (C),C LD B,#7F LD DE,2*256+75 ;INK 2,26 OUT (C),D OUT (C),E LD DE,1*256+64 ;INK 1,13 OUT (C),D OUT (C),E LD DE,3*256+83 ;INK 3,20 OUT (C),D OUT (C),E ; FRAME LD B,#F5 FRAME1 IN A,(C) RRA JR NC,FRAME1 ; STARSC LD HL,STARADR ;hl auf staradr LD B,20 ;20 sterne STARSC1 LD E,(HL) ;de mit bildadr INC HL LD D,(HL) INC HL ;hl auf starpos LD A,(DE) ;a mit bildbyte CP 8 JR NZ,STARSC2 ;wenn eins XOR A ;loeschen LD (DE),A STARSC2 INC DE ;bildadr-1 LD A,(HL) ;a mit starpos OR A JR NZ,STARSC4 ;nicht 0, weiter PUSH HL PUSH BC LD HL,82*7+#C000 LD DE,82 LD A,R SRL A SRL A SRL A LD B,A STARSC3 ADD HL,DE DJNZ STARSC3 LD A,80 EX DE,HL POP BC POP HL STARSC4 DEC A ;starpos minus 1 LD (HL),A ;eintragen LD A,(DE) OR A JR NZ,STARSC5 LD A,8 ;stern auf bildschirm LD (DE),A STARSC5 DEC HL ;hl auf adr DEC HL LD (HL),E ;neue adr eintragen INC HL LD (HL),D INC HL INC HL ;hl auf naechsten stern DJNZ STARSC1 ; LD A,(STATUS) OR A JP Z,LOESCH DEC A JP Z,RUNTER DEC A JP Z,RAUF ; LD HL,WARTE DEC (HL) JP NZ,BERGSCR LD (HL),250 XOR A LD (STATUS),A LD (SCRPOS),A LD HL,12*82+#C001 LD (SCRADR),HL JP BERGSCR ; LOESCH LD A,(SCRPOS) CP 50 JR NZ,LOESCH1 LD A,1 LD (STATUS),A XOR A LD (SCRPOS),A LD HL,12*82+#C001 LD (SCRADR),HL LD HL,(TXTZGR) LOESCHA LD A,(HL) OR A JR NZ,LOESCHB LD HL,TXTMES JR LOESCHA LOESCHB LD B,9 EX DE,HL LD HL,CHRADR PUSH HL LOESCHC PUSH BC LD A,(DE) INC DE PUSH DE PUSH HL LD DE,200 SUB 64 LD HL,#6300-200 LD B,A LOESCHD ADD HL,DE DJNZ LOESCHD EX DE,HL POP HL LD (HL),E INC HL LD (HL),D INC HL POP DE POP BC DJNZ LOESCHC LD (TXTZGR),DE JP BERGSCR LOESCH1 INC A LD (SCRPOS),A LD HL,(SCRADR) PUSH HL LD E,L LD D,H INC DE LD (HL),0 LD BC,80 LDIR POP HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,LOESCH2 LD BC,#3FAD SBC HL,BC LOESCH2 LD (SCRADR),HL JP BERGSCR ; RUNTER LD A,(SCRPOS) CP 25 JR NZ,RUNTER0 LD HL,(SCRADR) LD BC,#800-79 SBC HL,BC LD (SCRADR),HL XOR A LD (SCRPOS),A LD HL,CHRADR LD B,9 RUNTERA LD E,(HL) INC HL LD D,(HL) DEC HL DEC DE LD (HL),E INC HL LD Track-Info  NеБВГДЕЖЗИЙ (HL),D INC HL DJNZ RUNTERA LD A,2 LD (STATUS),A JP BERGSCR RUNTER0 INC A LD (SCRPOS),A LD HL,(SCRADR) PUSH HL LD BC,#1000 ADD HL,BC LD A,H CP #C0 JR NC,RUNTER1 LD BC,#3FAD SBC HL,BC RUNTER1 LD (SCRADR),HL POP DE LD HL,CHRADR LD B,9 RUNTER2 PUSH BC LD C,(HL) INC HL LD B,(HL) DEC HL PUSH HL LD L,C LD H,B LD BC,8 LDIR INC DE LD C,L LD B,H POP HL LD (HL),C INC HL LD (HL),B INC HL POP BC DJNZ RUNTER2 JP BERGSCR ; RAUF LD A,(SCRPOS) CP 25 JR NZ,RAUF1 LD A,3 LD (STATUS),A JP BERGSCR RAUF1 INC A LD (SCRPOS),A LD HL,(SCRADR) PUSH HL LD BC,#1000 OR A SBC HL,BC LD A,H CP #C0 JR NC,RAUF2 LD BC,#3FAE ADD HL,BC RAUF2 LD (SCRADR),HL POP DE LD HL,CHRADR+17 LD B,9 RAUF3 PUSH BC LD B,(HL) DEC HL LD C,(HL) INC HL PUSH HL LD L,C LD H,B LD BC,8 LDDR DEC DE LD C,L LD B,H POP HL LD (HL),B DEC HL LD (HL),C DEC HL POP BC DJNZ RAUF3 ; BERGSCR LD B,0 BERGSC1 DJNZ BERGSC1 CALL BSCR CALL BCNT ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JR Z,SOUND ; LD HL,(INTBUF) LD (#38),HL CALL #BCA7 XOR A CALL #BC0E LD HL,WEITER LD DE,#BE80 PUSH DE LD BC,#20 LDIR RET WEITER LD HL,PART2 LD B,7 CALL #BC77 EX DE,HL CALL #BC83 PUSH HL JP #BC7A PART2 DEFM "ALPHA.B" ; SOUND LD HL,(SNDCNT) DEC HL LD A,L OR H JR NZ,SOUND1 XOR A CALL #4000 LD HL,5500 SOUND1 LD (SNDCNT),HL CALL #4003 JP FRAME ; BSCR RET LD HL,#C002 CALL SCROLL LD HL,#D002 CALL SCROLL LD HL,#E002 CALL SCROLL LD HL,#F002 CALL SCROLL LD HL,#C054 CALL SCROLL LD HL,#D054 CALL SCROLL LD HL,#E054 CALL SCROLL LD HL,#F054 CALL SCROLL LD HL,#C0A6 CALL SCROLL LD HL,#D0A6 CALL SCROLL LD HL,#E0A6 CALL SCROLL LD HL,#F0A6 CALL SCROLL LD HL,#C0F8 CALL SCROLL LD HL,#D0F8 CALL SCROLL LD HL,#E0F8 CALL SCROLL LD HL,#F0F8 CALL SCROLL LD HL,#C14A CALL SCROLL LD HL,#D14A CALL SCROLL LD HL,#E14A CALL SCROLL LD HL,#F14A CALL SCROLL LD HL,#C19C CALL SCROLL LD HL,#D19C CALL SCROLL LD HL,#E19C CALL SCROLL LD HL,#F19C CALL SCROLL LD HL,#C1EE CALL SCROLL LD HL,#D1EE CALL SCROLL LD HL,#E1EE CALL SCROLL LD HL,#F1EE ; SCROLL LD E,L LD D,H LD A,(HL) INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI Track-Info  NеБВГДЕЖЗИЙ LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LD (DE),A RET ; BCNT LD A,(BSCRCNT) DEC A LD (BSCRCNT),A RET NZ XOR A LD (BSCR),A LD A,#C9 LD (BCNT),A RET ; SNDCNT DEFW 1 INTBUF DEFW 0 CHRADR DEFS 9*2 SCRADR DEFW 0 SCRPOS DEFB 0 TXTZGR DEFW TXTMES WARTE DEFB 1 STATUS DEFB 3 STARADR DEFS 20*3 BSCRCNT DEFB 255 TXTMES DEFM "`````````","PRODATRON","`OF``THE`","`REJECTS`","PRESENTS`","``A`NEW``" DEFM "CREATION^","HIS`FIRST","OVERSCAN`","``DEMO\``","ITS``NAME","```IS````" DEFM "ALPHADEMO","`````````","THANX`AND","GREETINGS","ARE`GOING","```TO````" DEFM "``ALIEN``","S^MENDORF","`L^REBEL`","CAESAR]V]","BLACK`MI^","NEUTERFE^" DEFM "`MICKEY``","`AND`ALL`","``DEMO]``","WRITERS\\","`````````",0  DR DEFW 0 SCRPOS DEFB 0 TXTZGR DEFW TXTMES WARTE DEFB 1 STATUS DEFB 3 STARADR DEFS 20*3 BSCRCNT DEFB 255 TXTMES DE ORG #400 ; XOR A CALL #BC0E LD A,#C9 LD (0),A LD HL,PART1 CALL STARTEN LD HL,PART2 CALL STARTEN LD HL,#41C3 LD (#38),HL CALL #BCA7 XOR A CALL #BC0E LD HL,PART3 CALL STARTEN ; JP 0 ; STARTEN LD B,7 CALL #BC77 EX DE,HL CALL #BC83 PUSH HL JP #BC7A ; PART1 DEFM "ALPHA.D" PART2 DEFM "ALPHA.C" PART3 DEFM "ALPHA.B"  CALL #BC0E LD A,#C9 LD (0),A LD HL,PART1 CALL STARTEN LD HL,PART2 CALL STARTEN LD HL,#41C3 LD (#38),HL CALL #BCA7 XOR A CALL #BC0E LD HL,PART3 CALL STARTEN ; JP 0 ; STARTEN LD B,7 CALL #BC77 EX DE,HL CALL #BC83 PUSH HL JP #BC7A ; PART1 DEFM "ALPHA.D" PART2 DEFM NOLIST WRITE "ALPHA ; ORG #2000 ; OVERSC LD BC,#BC01 OUT (C),C LD BC,#BD00+48 OUT (C),C LD BC,#BC02 OUT (C),C LD BC,#BD00+50 OUT (C),C LD BC,#BC06 OUT (C),C LD BC,#BD00+34 OUT (C),C LD BC,#BC07 OUT (C),C LD BC,#BD00+35 OUT (C),C LD BC,#BC0C OUT (C),C LD BC,#BD00+45 OUT (C),C LD BC,#BC0D OUT (C),C LD BC,#BD00+0 OUT (C),C ; DI LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL LD B,#F5 FRAME0 IN A,(C) RRA JR NC,FRAME0 CALL SPUSH LD (STBUF),SP LD SP,#3FFF ; CLEAR LD HL,#8000 LD DE,#8001 LD (HL),0 LD BC,#7FFF LDIR ; BILD LD HL,#5440-#3C00 LD DE,6*4+#8202 LD BC,72*256+8 CALL SPRUPX LD HL,#5448-#3C00 LD DE,14*4+#8206 LD BC,72*256+8 CALL SPRUPX ; LD HL,#4000-#3C00 LD DE,#8200 LD BC,72*256+24 CALL SPRUP LD HL,#46C0-#3C00 LD DE,9*4+#8200 LD BC,72*256+24 CALL SPRUP LD HL,#4D80-#3C00 LD DE,18*4+#8200 LD BC,72*256+24 CALL SPRUP ; LD DE,#C000 CALL BILDA LD DE,#C000+960 CALL BILDA LD DE,#C000 CALL BILDB LD DE,#C000+92 CALL BILDB ; LD B,4 LD DE,96*13+#C000 BILD1 PUSH BC PUSH DE LD HL,#5900-#3C00 LD BC,32*256+24 CALL SPRDWN POP HL LD BC,24 ADD HL,BC EX DE,HL POP BC DJNZ BILD1 ; LD HL,#4000 LD DE,#1000 LD BC,#1000 LDIR Track-Info  NеБВГДЕЖЗИЙ EI ; FRAME LD B,#F5 FRAME1 IN A,(C) RRA JR NC,FRAME1 ; TEILA LD BC,#7F8D ;MODE 1 OUT (C),C TA0 LD DE,1*256+84 ;INK 1,26 OUT (C),D OUT (C),E TA1 LD DE,2*256+84 ;INK 2,4 OUT (C),D OUT (C),E TA2 LD DE,3*256+84 ;INK 3,8 OUT (C),D OUT (C),E ; LD HL,(SCLADR) LD A,(SCLRIC) OR A JP Z,SCRLA DEC A JP Z,SCRLB DEC A JP Z,SCRLC DEC A JP Z,SCRLD JP SCRLE TEILB HALT ; LD BC,#7F01 LD DE,67*256+88 LD A,83 OUT (C),C OUT (C),D INC C OUT (C),C OUT (C),E INC C OUT (C),C OUT (C),A DEFS 49 LD HL,ERFTAB LD D,84 LD BC,#7F00 OUT (C),C LD IX,LAUT LD C,(IX+0) ; CALL RAST INC IX LD C,(IX+0) LD B,123 L1 DJNZ L1 DEFS 3 CALL RAST INC IX LD C,(IX+0) LD B,123 L2 DJNZ L2 DEFS 3 CALL RAST HALT ; LD B,#7F LD DE,1*256+64 ;INK 1,13 OUT (C),D OUT (C),E LD DE,2*256+75 ;INK 2,26 OUT (C),D OUT (C),E LD DE,3*256+83 ;INK 3,20 OUT (C),D OUT (C),E ; LD A,(SCLTYP) OR A JR Z,TEILC DEC A JP Z,SCTRLA DEC A JP Z,SCTRLB JP SCTRLC ; TEILC LD HL,(SCLADR) LD BC,35 ADD HL,BC LAUFPR PUSH HL LD A,(SFNTPS) OR A LAUFRET JR NZ,LAUFPR2 LD HL,(MS1ZGR) LAUFPR0 LD A,(HL) OR A JR NZ,LAUFPR1 LD HL,MS1TXT JR LAUFPR0 LAUFPR1 INC HL LD (MS1ZGR),HL CP 2 JP Z,LPSUBB JP C,LPSUBA CP 4 JP Z,LPSUBD JP C,LPSUBC CP 6 JP Z,LPSUBF JP C,LPSUBE SUB 64 LD B,A LD HL,#5000-225 LD DE,225 LAUFPR5 ADD HL,DE DJNZ LAUFPR5 LD (SFNTAD),HL LD A,9 LAUFPR2 DEC A LD (SFNTPS),A POP HL LD DE,(SFNTAD) LD B,25 LAUFPR3 PUSH BC LD A,(DE) LD (HL),A INC HL LD (HL),0 INC DE LD BC,#800-1 ADD HL,BC LD A,H CP #C0 JR NC,LAUFPR4 LD BC,#3F9F SBC HL,BC LAUFPR4 POP BC DJNZ LAUFPR3 LD (SFNTAD),DE ; LD C,8 CALL LAUTST LD (LAUT+0),A LD C,9 CALL LAUTST LD (LAUT+1),A LD C,10 CALL LAUTST LD (LAUT+2),A ; LOGO LD HL,(LOGCNT) DEC HL LOGO1 LD (LOGCNT),HL LD A,L OR H JR NZ,TEILD LD A,(LOGFZG) LD E,A ADD A,A LD C,A LD B,0 LD HL,LOGFRB ADD HL,BC LD A,(HL) LD (TA1+1),A INC HL LD A,(HL) LD (TA2+1),A LD A,75 LD (TA0+1),A LD A,E INC A CP 6 JR NZ,LOGO2 XOR A LOGO2 LD (LOGFZG),A LD HL,1000 JR LOGO1 ; TEILD LD DE,(SPRADR) PUSH DE LD B,26 LD HL,#6D00 SPRITE PUSH BC PUSH DE LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR C,SPRITE1 LD BC,#3FA0 SBC HL,BC SPRITE1 POP BC EX DE,HL DJNZ SPRITE POP HL LD A,(SPRXDF) INC HL CP 1 JR Z,SPRITE2 DEC HL DEC HL SPRITE2 LD E,A LD A,(SPRXPS) ADD A,E LD (SPRXPS),A LD A,(SPRYDF) LD E,A LD BC,#800 CP 1 JR NZ,SPRITE3 ADD HL,BC LD A,H CP #C0 JR C,SPRITE4 LD BC,#3FA0 SBC HL,BC JR SPRITE4 SPRITE3 OR A SBC HL,BC LD A,H CP Track-Info  NеБВГДЕЖЗИЙ #82 JR NC,SPRITE4 LD BC,#3FA0 ADD HL,BC SPRITE4 LD (SPRADR),HL LD A,(SPRYPS) ADD A,E LD (SPRYPS),A OR A JR NZ,SPRITE5 INC A LD (SPRYDF),A SPRITE5 CP 24 JR NZ,SPRITE6 LD A,-1 LD (SPRYDF),A SPRITE6 LD A,(SPRXPS) OR A JR NZ,SPRITE7 INC A LD (SPRXDF),A SPRITE7 CP 82 JR NZ,SPRITE8 LD A,-1 LD (SPRXDF),A SPRITE8 HALT ; LD BC,#7F8C ;MODE 0 OUT (C),C LD DE,2*256+84 OUT (C),D OUT (C),E LD DE,3*256+84 OUT (C),D OUT (C),E CALL SINUS ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP NZ,WEITER ; CALL #10C4 JP FRAME ; WEITER DI LD SP,#7FFF CALL SPOP LD HL,(INTBUF) LD (#38),HL LD SP,(STBUF) EI CALL #BCA7 CALL BLACK LD HL,WEITER1 LD DE,#BE80 LD BC,#30 PUSH DE LDIR RET WEITER1 LD HL,FILE2 LD B,12 CALL INOPEN EX DE,HL CALL INDIRE PUSH HL JP INCLOSE FILE2 DEFM "ALPHA .E " ; LPSUBA LD HL,0 LPSUB LD (SCLTYP),HL JP LAUFRET LPSUBB LD HL,257 JR LPSUB LPSUBC LD HL,770 JR LPSUB LPSUBD LD HL,259 JR LPSUB LPSUBE XOR A LD (SINUS),A JP LAUFRET LPSUBF LD B,#7F LD DE,15*256+75 OUT (C),D OUT (C),E JP LAUFRET ; BILDA LD B,24 BILDA1 PUSH BC PUSH DE LD HL,#58C0-#3C00 LD BC,16*256+4 CALL SPRDWN POP DE POP BC INC DE INC DE INC DE INC DE DJNZ BILDA1 RET ; BILDB LD B,6 BILDB1 PUSH BC PUSH DE LD HL,#58C0-#3C00 LD BC,16*256+4 CALL SPRDWN POP HL LD BC,96*2 ADD HL,BC EX DE,HL POP BC DJNZ BILDB1 RET ; SPRUP PUSH BC PUSH DE LD B,0 LDIR POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR C,SPRUP1 LD BC,#3FA0 SBC HL,BC SPRUP1 EX DE,HL POP BC DJNZ SPRUP RET ; SPRDWN PUSH BC PUSH DE LD B,0 LDIR POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,SPRDWN1 LD BC,#3F9F SBC HL,BC SPRDWN1 EX DE,HL POP BC DJNZ SPRDWN RET ; SPRUPX PUSH BC PUSH DE LD B,0 LDIR LD BC,8 ADD HL,BC POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR C,SPRUPX1 LD BC,#3FA0 SBC HL,BC SPRUPX1 EX DE,HL POP BC DJNZ SPRUPX RET ; LAUTST LD B,#F4 OUT (C),C LD BC,#F6C0 OUT (C),C LD C,0 OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD H,#82 OUT (C),H DEC B OUT (C),C SRL A INC A CP 9 RET C LD A,8 RET ; SCRLA LD B,25 SCRLA1 PUSH BC PUSH HL LD E,L LD D,H INC HL CALL LCOPY POP HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,SCRLA2 LD BC,#3F9F SBC HL,BC SCRLA2 POP BC DJNZ SCRLA1 JP TEILB ; SCRLB LD A,(SCLYPTrack-Info  NеБВГДЕЖЗИЙS) DEC A LD (SCLYPS),A PUSH HL LD BC,#800 OR A SBC HL,BC LD A,H CP #C0 JR NC,SCRLB1 LD BC,#3FA0 ADD HL,BC SCRLB1 LD (SCLADR),HL POP DE EX DE,HL INC HL LD B,26 SCRLB2 PUSH BC PUSH HL PUSH DE CALL LCOPY LDI POP HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,SCRLB3 LD BC,#3F9F SBC HL,BC SCRLB3 EX DE,HL POP HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,SCRLB4 LD BC,#3F9F SBC HL,BC SCRLB4 POP BC DJNZ SCRLB2 JP TEILB ; SCRLC LD A,(SCLYPS) INC A LD (SCLYPS),A PUSH HL LD BC,#800 OR A ADD HL,BC LD A,H CP #C0 JR NC,SCRLC1 LD BC,#3F9F SBC HL,BC SCRLC1 LD (SCLADR),HL POP HL LD BC,3*96 ADD HL,BC LD D,H LD E,L LD BC,#800 OR A SBC HL,BC LD A,H CP #C0 JR NC,SCRLC2 LD BC,#3FA0 ADD HL,BC SCRLC2 INC HL LD B,26 SCRLC3 PUSH BC PUSH HL PUSH DE CALL LCOPY LDI POP HL LD BC,#800 OR A SBC HL,BC LD A,H CP #C0 JR NC,SCRLC4 LD BC,#3FA0 ADD HL,BC SCRLC4 EX DE,HL POP HL LD BC,#800 OR A SBC HL,BC LD A,H CP #C0 JR NC,SCRLC5 LD BC,#3FA0 ADD HL,BC SCRLC5 POP BC DJNZ SCRLC3 JP TEILB ; SCRLD LD B,25 DEC HL LD (SCLADR),HL LD A,(SCLXPS) DEC A LD (SCLXPS),A SCRLD1 PUSH BC PUSH HL LD E,L LD D,H INC HL INC HL CALL LCOPY LDI POP HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,SCRLD2 LD BC,#3F9F SBC HL,BC SCRLD2 POP BC DJNZ SCRLD1 JP TEILB ; SCRLE INC HL LD (SCLADR),HL LD A,(SCLXPS) INC A LD (SCLXPS),A DEC HL LD B,25 SCRLE1 LD (HL),0 LD DE,#800 ADD HL,DE LD A,H CP #C0 JR NC,SCRLE2 LD DE,#3F9F SBC HL,DE SCRLE2 DJNZ SCRLE1 HALT JP TEILB ; LCOPY LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI RET ; SCTRLA LD A,(SCLYPS) CP 36 JR C,SCTRLA1 LD A,1 SCTRLA0 LD (SCLRIC),A JP TEILC SCTRLA1 CP 3 JP NC,TEILC LD A,2 JR SCTRLA0 ; SCTRLB LD A,(SCLXPS) CP 49 JR C,SCTRLB1 LD A,3 SCTRLB0 LD (SCLRIC),A JP TEILC SCTRLB1 CP 2 JP NC,TEILC LD A,4 JR SCTRLB0 ; SCTRLC LD D,0 LD A,(SCLXPS) CP 2 JR NC,SCTRLC1 LD A,1 LD (SCLRIC),A LD D,1 SCTRLC1 LD A,(SCLYPS) CP 3 JR NC,SCTRLC2 LD A,4 LD (SCLRIC),A SCTRLC2 LD A,(SCLXPS) CP 49 JR C,SCTRLC3 LD A,2 LD (SCLRIC),A SCTRLC3 LD A,(SCLYPS) CP 36 JP C,TEILC LD A,D OR A JP NZ,TEILC LD A,3 LD (SCLRIC),A JP TEILC ; RAST LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1A DJNZ RAST1A LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2A DJNZ RAST2A DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1B DJNTrack-Info  NеБВГДЕЖЗИЙZ RAST1B LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2B DJNZ RAST2B DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1C DJNZ RAST1C LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2C DJNZ RAST2C DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1D DJNZ RAST1D LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2D DJNZ RAST2D DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1E DJNZ RAST1E LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2E DJNZ RAST2E DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1F DJNZ RAST1F LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2F DJNZ RAST2F DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1G DJNZ RAST1G LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2G DJNZ RAST2G DEFB 0 ; LD E,(HL) INC HL LD B,#7F OUT (C),E LD B,C RAST1H DJNZ RAST1H LD B,#7F LD E,(HL) INC HL OUT (C),E OUT (C),D LD A,9 SUB C LD B,A RAST2H DJNZ RAST2H DEFB 0 RET ; SINUS RET LD A,(SINPOS) LD BC,#7F00+84 OUT (C),A OUT (C),C INC A CP 16 JR NZ,SINUS1 LD A,2 SINUS1 LD (SINPOS),A OUT (C),A LD C,67 OUT (C),C RET ; SPUSH LD A,(#A700) ;LAUFWERK LD (SPOP4+1),A LD HL,(#BD38) ;JUMP RESTORE RES 7,H LD (SPOP1+1),HL LD HL,(#BB01) ;KM INITIALISE RES 7,H LD (SPOP2+1),HL LD HL,(#BB4F) ;TXT INITIALISE RES 7,H LD (SPOP3+1),HL LD HL,(#BC00) ;SCR INITIALISE RES 7,H LD (SPOP5+1),HL RET ; SPOP LD HL,SPOP0 LD DE,#BE80 LD BC,#30 PUSH DE LDIR RET SPOP0 EXX LD BC,#7F88 OUT (C),C XOR A EX AF,AF' CALL #44 SPOP1 CALL 0 SPOP2 CALL 0 SPOP3 CALL 0 SPOP5 CALL 0 LD BC,#7F8D OUT (C),C EXX LD HL,#ABFF LD C,#07 CALL #BCCE SPOP4 LD A,0 LD (#A700),A RET ; BLACK LD B,16 BLACK1 PUSH BC LD A,B DEC A LD BC,0 CALL #BC32 POP BC DJNZ BLACK1 LD BC,0 JP #BC38 ; INTBUF DEFW 0 STBUF DEFW 0 SCLADR DEFW 5*96+#C000+26 SCLTYP DEFB 0 ;0=NORMAL,1=VERT,2=HORI,3=BOX (,4=VERT) SCLRIC DEFB 0 ;0=KEINE,1=HOCH,2=RUNTER,3=LINKS,4=RECHTS (,5=LO,6=RO,7=LU,8,RU) SCLXPS DEFB 21 ;MIN-1 MAX-50 SCLYPS DEFB 23 ;MIN-1 MAX-38 MS1ZGR DEFW MS1TXT SFNTAD DEFW 0 SFNTPS DEFB 0 LAUT DEFB 1,1,1 ERFTAB DEFB 92,88,76,88,78,77,74,79,74,79,78,77,76,88,92,88 DEFB 68,88,85,88,87,77,83,79,83,79,87,77,85,88,68,88 DEFB 86,88,82,88,82,77,89,79,89,79,82,77,82,88,86,88 LOGFRB DEFB 88,77,68,85,86,82,94,74,92,76,70,83 LOGCNT DEFW 750 LOGFZG DEFB 0 SINPOS DEFB 15 SPRADR DEFW 961+#8200 SPRXPS DEFB 0 SPRYPS DEFB 7 SPRXDF DEFB 1 ;1=RECHTS,-1=LINKS SPRYDF DEFB 1 ;1=RUNTER,-1=HOCH ; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; MS1TXT DEFM"`````````````````````````````````RRRRAAAAAAAAAHHHHHHHH\\\\\\\\\`````````" DEFM"``P`R`O`D`A`T`R`O`N``IS`BACK`AGAIN`NOW^^^^^```WITH`THE`THIRD`PART`OF`THE" DEFM"`ALPHA]DEMO\\\``````",2,"WHAT`DO`YOU`THINK`ABOUT`THIS`SMALL`SCROLLER````" DEFM"````ISN`T`IT`NICE``````````BUT`I`CAN`DO`MUCH`MORE^^^^````WHAT`S`ABOUT`MO" DEFM"VING`HORIZONTAL`",3,"^^^^```YEEAAAHH_`THAT`S`REALTrack-Info  NеБВГДЕЖЗИЙLY`NOT`BAD\",6,"``````N" DEFM"OW`I`WANT`TO`SHOW`YOU`THE`THIRD`AND`LAST`EFFECT^^^",4,"``IT`S`ONLY`A`KOM" DEFM"BI",5,"NATION^^^````LOOK`AT`THE`GREAT`GRAPHIC`ON`THE`TOP`OF`THIS`OVERSCA" DEFM"N]SCREEN\``IT`S`MY`OWN`CREATION_`I`PROMISE^``BUT`I`HAVE`PAINTED`IT`WITH`" DEFM"THE`HELP`OF`A`SCREEN`IN`THE`]PARADISE`DEMO]`FROM`PARADOX^^^```GLUCKS\```" DEFM"SHIT_`MY`ENGLISH`IS`NOT`THE`BEST^^^``BUT`I`TRY`TO`DO`THE`BEST\\``OR`````" DEFM"LET`S`GO`ON^^^^```",1,"STOP`MOVING\\\^^^^^```CONTINUE^^^^^",4,"``````I`T" DEFM"HINK_`THIS`IS`THE`BEST`DEMO]PART`I`HAVE`EVER`WRITTEN\\``DO`YOU`AGREE````" DEFM"``THIS`PART`IS`MY`FIRST`PART_`WHICH`CONTAINS`RASTER]SPLITT]EQUALIZER`AND" DEFM"`SOME`OTHER`THINGS^^^\\",3,"``````NO`I`WANT`TO`PRESENT`YOU`A`NEW`CPC]GRO" DEFM"UP_`CALLED`",2,"``]`THE`REJECTS`]````I`HOPE`YOU`DON`T`FORGET`THIS`GREAT`" DEFM"NAME\\``]`THE`REJECTS`]`",4,"`IS`A`GANG`OF`CPC]HEROES_`WHICH`ONLY`CONSIS" DEFM"TS`OF`COOL`GUYS^^^^`_`SWAPPERS_`CODERS_`PAINTERS_`DEMO]WRITERS_`CRACKERS" DEFM"_`HACKERS_````^^^AND`SO`ON\\`````MEMBERS`ARE^^^````````",3,"LEATHER`REBE" DEFM"L_`THE`PUBLISHER`OF`THE`GREAT`FANZINE`]FASTLOADER]^`HE`IS`THE`FOUNDER`OF`" DEFM"THE`NEW`GROUP^``````````NEUTERFECIT_`A`CODER`AND`CRACKER^`NOW`HE`WANT`S`" DEFM"TO`BE`THE`GRAPHIST`OF`THE`REJECTS^`````````````PRODATRON_`" DEFM"THAT`S`ME\",2,"``````PERHAPS`S^E^C^`AND`CAESAR`WILL`COME`TO`THE`REJECTS_" DEFM"`TOO\\```````THE`]REJECTS]`WERE`BORN`IN`APRIL`OF`THIS`YEAR_`NINE" DEFM"TEENHUNDRED]NINETYTWO_`WHEN`I`WRITE`THE`ALPHA]DEMO^``]SORRY_`THIS`FONT`DO" DEFM"ESN`T`CONTAINS`NUMBERS^^^]`````LIKE`IN`EVERY`OTHER`DEMO`WE`ARE`COMING`TO" DEFM"`THE`GREETINX`NOW^^^^",4,"````HELLOS`ARE`GOING`TO^^^^`````````LEATHER`RE" DEFM"BEL``````````NEUTERFECIT``````````ALIEN``````````CAESAR``````````STEPHAN" DEFM"`M^``````````DEXTER``````````S^E^C^``````````CPC`LORD`HELMCHEN``````````" DEFM"^^^AND`THE`POOR`GUY_`WHO`IS`WATCHING`THIS`NICE`DEMO\\\\```````````````",1 DEFM"I`THINK`THAT`WAS`ALL`NOW_`PRESS`SPACE`FOR`LOADING`THE`NEXT`PART`OR`DIE\\" DEFM"``````````````PRODATRON`OF`THE`REJECTS``````````````````````````````````" DEFB 0  ORG #2000 ; OVERSC LD BC,#BC01 OUT (C),C LD BC,#BD00`````````LEATHER`RE" DEFM"BEL``````````NEUTERFECIT``````````ALIEN``````````CAESAR``````````STEPHAN" DEFM"`M^``````````DEXTER``````````S^E^C^``````````CPC`LORD`HELMCHEN``````````" DEFM"^^^AND`THE`POOR`GUY_`WHO`IS`WATCHING`THIS`NICE`DEMO\\\\```````````````",1 DEFM"I`THINK`THAT`WAS`ALL`NOW_`PRESS`SPACE`FOR`LOADING`THE`NEXT`PART`OR`DIE\\" DEFM"``````````````PRODATRON`OF`THE`REJECT н н н н н н н н н н н н н н н н н н н н н н Й:я&ю$8>2э&ГЗ!юТЗ!>с:ю&ю18>2э&ГЗ!юТЗ!>с:ю&ю0>2э&:я&ю0>2э&:ю&ю18>2э&:я&ю$ЪЗ!z·ВЗ!>2э&ГЗ!^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘Gю^#нYAю^#нYнQ> ‘GюЙЙ:G'TнyнI<ю >2G'нyCнIЙъБN'\XLXNMJOJONMLX\XDXUXWMSOSOWMUXDXVXRXRMYOYORMRXVXXMDUVR^J\LFSоБ…ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQ NOLIST ORG #2000 WRITE "ALPHA.BIN" ; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; INIT CALL #4000 LD HL,#5800 LD DE,#4000 LD BC,#2600 LDIR ; OVEROFF LD BC,#BC01 OUT (C),C LD BC,#BD00+40 OUT (C),C LD BC,#BC02 OUT (C),C LD BC,#BD00+46 OUT (C),C LD BC,#BC06 OUT (C),C LD BC,#BD00+25 OUT (C),C LD BC,#BC07 OUT (C),C LD BC,#BD00+30 OUT (C),C LD BC,#BC0C OUT (C),C LD BC,#BD30 OUT (C),C LD BC,#BC0D OUT (C),C LD BC,#BD00+0 OUT (C),C ; LD A,6 CALL #4000 LD BC,250 INIT1 PUSH BC CALL #4003 CALL #BD19 POP BC DEC BC LD A,C OR B JR NZ,INIT1 ; LD HL,(#38) LD (INTBUF),HL LD HL,#C9FB ;INTERRUPTS ABFANGEN LD (#38),HL EI ; LD BC,#7F8C ;MODE 0 OUT (C),C LD DE,1*256+75 OUT (C),D OUT (C),E LD DE,2*256+85 OUT (C),D OUT (C),E LD DE,3*256+76 OUT (C),D OUT (C),E LD DE,4*256+92 OUT (C),D OUT (C),E LD DE,5*256+78 OUT (C),D OUT (C),E LD DE,6*256+74 OUT Track-Info  NеБВГДЕЖЗИЙ (C),D OUT (C),E LD DE,7*256+90 OUT (C),D OUT (C),E LD DE,8*256+82 OUT (C),D OUT (C),E LD DE,9*256+68 OUT (C),D OUT (C),E LD DE,10*256+87 OUT (C),D OUT (C),E LD DE,11*256+77 OUT (C),D OUT (C),E LD DE,12*256+94 OUT (C),D OUT (C),E LD DE,13*256+71 OUT (C),D OUT (C),E LD DE,14*256+88 OUT (C),D OUT (C),E ; FRAME LD B,#F5 ;AUF FRAME-FLY WARTEN FRAME1 IN A,(C) RRA JR NC,FRAME1 ; LAUFPR LD A,(SFNTPS) OR A JR NZ,LAUFPR2 LD HL,(ZGRMES) LAUFPR0 LD A,(HL) OR A JR NZ,LAUFPR1 LD HL,TXTMES JR LAUFPR0 LAUFPR1 INC HL LD (ZGRMES),HL SUB 65 LD L,A LD H,0 LD DE,CADRTB ADD HL,HL ADD HL,DE LD E,(HL) INC HL LD D,(HL) EX DE,HL LD (SFNTAD),HL LD A,8 LAUFPR2 DEC A LD (SFNTPS),A LD DE,(SFNTAD) LD B,24 LD HL,21*80+#C000+79 LAUFPR3 PUSH BC LD A,(DE) LD (HL),A INC DE LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,LAUFPR4 LD BC,#3FAF SBC HL,BC LAUFPR4 POP BC DJNZ LAUFPR3 LD (SFNTAD),DE ; LD HL,1680+#C000 CALL COPY LD HL,#800+1680+#C000 CALL COPY HALT LD HL,#800*2+1680+#C000 CALL COPY ; LD HL,TBFTAB LD B,64 LD A,(TBFTAB+63) LD E,A RASTER PUSH BC LD A,(HL) LD BC,#7F0F OUT (C),C OUT (C),A LD (HL),E INC HL LD E,A DEFS 34 POP BC DJNZ RASTER ; LD HL,#800*3+1680+#C000 CALL COPY LD HL,#800*4+1680+#C000 CALL COPY LD HL,#800*5+1680+#C000 CALL COPY LD HL,#800*6+1680+#C000 CALL COPY LD HL,#800*7+1680+#C000 CALL COPY ; LD HL,TAFTAB LD B,32 LD A,(TAFTAB+31) LD E,A RASTER1 PUSH BC LD A,(HL) LD BC,#7F0F OUT (C),C OUT (C),A LD (HL),E INC HL LD E,A DEFS 34 POP BC DJNZ RASTER1 ; SOUND LD HL,(SNDCNT) DEC HL LD A,L OR H JR NZ,SOUND1 LD A,2 CALL #4000 LD HL,5820 SOUND1 LD (SNDCNT),HL CALL #4003 ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP Z,FRAME ; LD HL,(INTBUF) LD (#38),HL CALL #BCA7 BLACK LD B,16 BLACK1 PUSH BC LD A,B DEC A LD BC,0 CALL #BC32 POP BC DJNZ BLACK1 LD BC,0 CALL #BC38 ; LD HL,WEITER1 LD DE,#BE80 LD BC,#30 PUSH DE LDIR RET WEITER1 LD HL,FILE2 LD B,12 CALL INOPEN EX DE,HL CALL INDIRE PUSH HL JP INCLOSE FILE2 DEFM "ALPHA .E " ; COPY LD E,L LD D,H INC HL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI Track-Info  NеБВГДЕЖЗИЙLDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI RET ; TBFTAB DEFB 86,86,82,90,82,90,90,75,75,90,90,82,90,82,86,86,85,85,87,83,87,83 DEFB 83,75,75,83,83,87,83,87,85,85 DEFB 76,76,78,74,78,74,74,75,75,74,74,78,74,78,76,76,88,88,77,79,77,79 DEFB 79,75,75,79,79,77,79,77,88,88 ; TAFTAB DEFB 85,68,85,85,87,85,87,87,83,87,83,83,75,83,75,75,75,74,75,74,74,78 DEFB 74,78,78,76,78,76,76,92,76,92 ; CADRTB DEFW #7E00,#7EC0,#7F80,#8040,#8100,#81C0,#8280,#8340,#8400,#84C0,#8580 DEFW #8640,#8700,#87C0,#8880,#8940,#8A00,#8AC0,#8B80,#8C40,#8D00,#8DC0 DEFW #8E80,#8F40,#9000,#90C0,#9180,#9240,#9300,#93C0,#9480,#9540,#9600 DEFW #96C0,#9780,#9840,#9900,#99C0,#9A80,#9B40,#9C00,#9CC0 ; SNDCNT DEFW 1 SFNTAD DEFW 0 SFNTPS DEFB 0 INTBUF DEFW 0 ZGRMES DEFW TXTMES TXTMES DEFM "iiiiiiiiiiiiiiiiii" DEFM"HIi]]]iHEREiISiLEATHERiREBELiOFiTHEiREJECTSiWITHiHISiGUEST`PARTiINiTHEiA" DEFM"LPHA`DEMOi[i[i[i[iFIRSTiAiBIGiTHANXiAREiGOINGiTOiPRODATRONiOFiTHEiREJECT" DEFM"SiFORiTHISiPARTiINiTHISiGREATiDEMOi[i[i[i[iSECONDiIiWANTiTOiREVIEWiMYiPA" DEFM"PER`FANZINEiiCPC`FASTLOADERii[iTHISiFANZINEiISiBORNiINiTHEiSECONDiHALFiO" DEFM"FiTHEiYEARiIhhIi[iFIRSTiITiWASiAiMAGiWITHigiPAGESiONLYiANDiNOBODYiKNOWSi" DEFM"IT[iTHENiOASiTOOKiITiBEHINDiHISiCCiNOc[iTHEiSECONDiHADiIOiPAGESiANDiWASiQ" DEFM"UITiBETTER\iBECAUSEiALIENiHADiHELPEDiMEiWITHiHISiARTICLESiANDiHISiGREATi" DEFM"ASSEMBLER`KURSiFORiDEMOWRITER[iTHISiSECONDiISSUEiWASiAGAINiTOOKiBEHINDiT" DEFM"HEiCC\iBUTiIiHADiNOTiTHEiSUCSESSiWITHiTHIS[iNOWiTHEiCPC`FASTLOADERiHADiI" DEFM"diPAGESiANDiAiLOTiOFiPEOPLEiWRITEiINiTHISiFANZINEiANDiIiPUBLISHEDiITiMYS" DEFM"ELF[iITiCOSTSiONLYia\dOiDMiANDiTOiORDERiITiATi_iCLFiC`OiJOERNiGRUNERTiii" DEFM"iiMENZELSTR[hiiiiiW`cIOOiDUISBURGiIiiiiGERMANYiiii[i[i[i[i[i[i[LETSiTALK" DEFM"iABOUTiSEX\iAEHHH\iOHiNOi\iMEANINGiREJECTSi[i[i[iTHISiNEWiGROUPiISiBORNi" DEFM"INiTHEiUSA\iAEHH\iOHiNOi\iMEANINGiEUROPEiINiAPRILiOFiTHEiIhha[iITiCONTAI" DEFM"NSiATiTHEiBEGINNIGiaiMEMBERSi_iPRODATRONiANDiMEi`iLEATHERiREBELi`[iNOWiW" DEFM"EiAREiSEARCHINGiFORiNEWiMEMBERS[iWHENiYOUiAREiINTERESTEDiFORiTHISiGROUPi" DEFM"WRITEiAGATrack-Info  NеБВГДЕЖЗИЙINiTO_iLEATHERiREBELiiC`OiiJOERNiGRUNERTi\iMENZELSTR[hi\iW`cIOO" DEFM"iDUISBURGiIi\iGERMANY\iTHIRDiCOMESiTHEiCLASSICiGREETINXiANDiMESSAGESiINi" DEFM"NOiSPECIALiORDERiORiSO\iYOOHHH_iFIRSTiIiGREETiTHEiREJECTSiTEAMi_iPRODATR" DEFM"ONiANDiNEUTERFECITi[i[i[i[iALSOiGREETSiTOi`iINiNOiSPECIALiORDERi`i_[i[i[i" DEFM"ALIENiiiiHEY\iWHEREiAREiYOURiMEGA`DEMOiii[i[i[iK`OSiiiTHANXiFORiYOURiDEMO" DEFM"SiANDiYOURiARTIKELSiFORiTHEiCPC`FASTLOADERiii[i[i[iDSCi`iHIiTOiYOUi]i`i[" DEFM"i[i[iCROWNiiiGREATiCRUNCHERiANDiDISC`FILEiCOPYiii[i[i[iOASiiiHEYiYOURiCC" DEFM"NOeiAREiREALLYiGREATi]]]iWHATiDOiYOUiTHINKiABOUTiAiCOMMONiFANZINEiINiIhhb" DEFM"i^^iii[i[i[iPHOENIXiiiYOUiAREiSOiSLOWi]]]]iii[i[i[iBIOS`MARABUiiiYOURiRU" DEFM"NDSCHLAGiISiVERYiGOODiii[i[i[iMViiiYOURiANIMATORiANDiCOPYMATEiAREiQUITiG" DEFM"OODiii[i[i[iSTEPHANiM[iiiTHANXiFORiPRINTiOUTiTHEiCPC`FASTLOADERiii[i[i[i" DEFM"RADEKiKA[iiiHOPEiTOiHEARiFROMiYOUiiiO[K[iTHATiSiALLiFORiTHEiGREETSi[i[i[" DEFM"i[i[i[iHEYiYOUi]iDOiYOUiLIKEiTHISiPICiOVERiTHISiSCREENi^^iNOi^^iTHENiPRE" DEFM"SSiSPACEiFORiSEEiTHEiNEXTiPARTiWITHiAiVERYiGOODiLOGO[i[i[iLEATHERiREBELi" DEFM"OFiTHEiREJECTSiINiAPRILiIhha[iGOODiNIGHTiEUROPEi[i[i[iJAAAA\iJETZTiGEHTS" DEFM"iENDLICHiINiDEUTSCHiWEITERi_iICHiFREUEiMICHiZUiSEHENiDASSiSICHiINiDERiSZ" DEFM"ENEiJAiALLERHANDiGETANiHAT[iOASiHATiSICHiUEBRIGENSiAUFiDERiCEBITiGEOUTET" DEFM"[iERiHATiSICHiENDLICHiDERiOEFFENTLICHKEITiGEZEIGT[iEGSiHATiDERiCPCAIiSEI" DEFM"NEiPAENG`VERSIONiZAPiTiBALLSiVERKAUFT\iERiHATiSATTEifOOiDMiKASIERTiUNDiD" DEFM"IEiSPRITE`TECHNIKENiSOLLENiEINSAMEiSPITZEiSEIN[iEGSiHATiESiUEBRIGENSiFER" DEFM"TIGiGEBRACHTiMEHRiSPRITESiAUFiDEMiALTENiDARZUSTELLEN\iALSiESiBEIMiCPCiPLU" DEFM"SiMOEGLICHiIST[iDIEiPRODUKTIONiDESiCPCiPLUSiWURDEiUEBRIGENSiEINGESTELLT\i" DEFM"ESiWURDENiZUiWENIGiVERKAUFT[iEGSiKANNiAUSSERDEMiSEINiSPIELiCYBORGSiNICHTi" DEFM"VERKAUFENiUNDiESiWIRDiNUNiINiKLEINERENiVERSEANDENiINiDEUTSCHLANDiVERKAUFT" DEFM"[iBEVORiMALiMITiMIRiKOMMT\iERSCHEINTiNUNiMUSIZIERiMITiMIR[iESiSOLLiZIEMLI" DEFM"CHiGUTiSEINiUNDidOiDMiKOSTENiBEIiALLiSYSTEMiSOFTWARE[i[i[iDIESENiTEXTiHA" DEFM"BEiICHiUEBRIGENSiMITiDEMiNEUENiTEXTVERARBEITUNGSSYSTEMiCPC`WORDiGEMACHT[" DEFM"iISTiJETZTiBEIMiMB`VERSANDiZUMiVERKAUFiANGEBOTENiUNDiISTiIMiMOMENTiDASiBE" DEFM"STEiTEXTVERARBEITUNGS`PROGRAMM[i[i[i[iDASiGANZEiHATiSICHiJAiJETZTiINiEINE" DEFM"iSZENE`NEWSiRUBRIKiVERWANDELTi^]iICHiHOFFEiESiWARiNICHTiZUiLANGWEILIGi]]" DEFM"iBISiDANNi\iiLEATHERiREBELiOFiTHEiREJECTSiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" DEFB 0 PHA.BIN" ; INOPEN EQU #BC77 INDIRE EQU #BC83 INCLOSE EQU #BC7A ; NOLIST WRITE "ALPHA ; ORG #2000 ; OVERSC LD BC,#BC01 OUT (C),C LD BC,#BD00+48 OUT (C),C LD BC,#BC02 OUT (C),C LD BC,#BD00+50 OUT (C),C LD BC,#BC06 OUT (C),C LD BC,#BD00+34 OUT (C),C LD BC,#BC07 OUT (C),C LD BC,#BD00+35 OUT (C),C LD BC,#BC0C OUT (C),C LD BC,#BD00+45 OUT (C),C LD BC,#BC0D OUT (C),C LD BC,#BD00+0 OUT (C),C ; DI LD HL,#C9FB LD (#38),HL LD SP,#7FFF EI ; CLEAR LD HL,#8000 LD DE,#8001 LD (HL),0 LD BC,#7FFF LDIR ; BILD LD B,6 LD DE,#8200 BILD1 PUSH BC PUSH DE LD HL,#6320 LD BC,16*256+16 CALL SPRUP POP HL LD BC,16 ADD HL,BC EX DE,HL POP BC DJNZ BILD1 ; LD DE,#8200+962 LD HL,#4000 LD BC,256*40+52 CALL SPRUP LD DE,#8200+1018 LD HL,#4820 LD BC,48*256+36 CALL SPRUP LD DE,#C000+58 LD HL,48*36+#4820 LD BC,144*256+36 CALL SPRDWN ; COPY LD HL,#6C60 LD DE,#4000 LD BC,#1240 LDIR ; FARBEN LD BC,#7F04 LD L,78 OUT (C),C OUT (C),L INC C LD DE,64*256+75 LD HL,68*256+83 OUT (C),C OUT (C),D INC C OUT (C),C OUT (C),E INC C OUT (C),C OUT (C),H INC C OUT (C),C OUT (C),L INC C LD DE,85*256+87 LD HL,86*256+82 OUT (C),C OUT (C),D INC C OUT (C),C OUT (C),E INC C OUT (C),C OUT (C),H INC Track-Info  NеБВГДЕЖЗИЙC OUT (C),C OUT (C),L INC C LD DE,88*256+77 LD HL,79*256+84 OUT (C),C OUT (C),D INC C OUT (C),C OUT (C),E INC C OUT (C),C OUT (C),H INC C OUT (C),C OUT (C),L XOR A OUT (C),A OUT (C),L ; FRAME LD B,#F5 FRAME1 IN A,(C) RRA JR NC,FRAME1 ; TEILA LD BC,#7F8D ;MODE 1 OUT (C),C LD DE,1*256+88 ;INK 1,4 LD HL,77*256+75 ;INK 2,8 - INK 3,26 OUT (C),D OUT (C),E INC D OUT (C),D OUT (C),H INC D OUT (C),D OUT (C),L ; LD HL,(SCLADR) CALL SCROLL ; HALT LD BC,PDTRAS LD HL,(RASPOS) ADD HL,BC JP (HL) PDTRAS DEFS 38 LD HL,PDTFTB LD BC,#7F00 OUT (C),C LD C,84 LD B,#7F R1 LD D,7 PDTRA1 LD A,(HL) CALL RLNA INC HL DEC D LD IX,1 JR NZ,PDTRA1 R2 LD D,7 DEFS 63 PDTRA2 LD A,(HL) CALL RLNB INC HL DEC D LD IX,1 JR NZ,PDTRA2 R3 LD D,7 DEFS 63 PDTRA3 LD A,(HL) CALL RLNB INC HL DEC D LD IX,1 JR NZ,PDTRA3 R4 LD D,7 DEFS 63 PDTRA4 LD A,(HL) CALL RLNC INC HL DEC D LD IX,1 JR NZ,PDTRA4 R5 LD D,7 DEFS 63 PDTRA5 LD A,(HL) CALL RLND INC HL DEC D LD IX,1 JR NZ,PDTRA5 R6 LD D,7 DEFS 63 PDTRA6 LD A,(HL) CALL RLNE INC HL DEC D LD IX,1 JR NZ,PDTRA6 ; TEILB LD BC,#7F8C ;MODE 0 OUT (C),C LD DE,1*256+92 LD HL,76*256+74 OUT (C),D OUT (C),E INC D OUT (C),D OUT (C),H INC D OUT (C),D OUT (C),L ; LD HL,(SCLADR) LD BC,96 ADD HL,BC CALL SCROLL ; TEILBE CALL RASSCR CALL RASLAR CALL RASFSC CALL RASFILL ; TEILC LD A,(SCLTYP) OR A CALL Z,LAUFPR LD A,(SCLCNT) DEC A JR NZ,TEILC2 LD A,(SCLPOS) DEC A JR NZ,TEILC1 LD A,(SCLTYP) CPL LD (SCLTYP),A OR A CALL Z,FBCHNG LD HL,#C000-284 LD (SCLADR),HL LD A,6 TEILC1 LD (SCLPOS),A LD HL,(SCLADR) LD BC,3*96 ADD HL,BC LD (SCLADR),HL LD A,52 TEILC2 LD (SCLCNT),A ; CALL REJCOPY ; SOUND LD HL,(SNDCNT) SOUND1 DEC HL LD A,H OR L JR NZ,SOUND2 LD A,2 CALL #4000 LD HL,11400 JR SOUND1 SOUND2 LD (SNDCNT),HL CALL #4003 ; TASTEN LD BC,#F40E OUT (C),C LD B,#F6 IN A,(C) AND #30 LD C,A OR #C0 OUT (C),A OUT (C),C INC B LD A,#92 OUT (C),A PUSH BC SET 6,C INC C INC C INC C INC C INC C LD B,#F6 OUT (C),C LD B,#F4 IN A,(C) POP BC LD E,#82 OUT (C),E DEC B OUT (C),C CP 255 JP NZ,0 ; JP FRAME ; REJCOPY RET LD HL,#8210 CALL THSCRL LD HL,#8270 ; THSCRL LD B,8 THSCRL1 PUSH BC PUSH HL LD E,L LD D,H INC HL LD A,(DE) CALL SCRLL LD (DE),A POP HL LD BC,#800 ADD HL,BC POP BC DJNZ THSCRL1 RET ; SPRUP PUSH BC PUSH DE LD B,0 LDIR POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 JR C,SPRUP1 LD BC,#3FA0 SBC HL,BC SPRUP1 EX DE,HL POP BC DJNZ SPRUP RET ; SPRDWN PUSH BC PUSH DE LD B,0 LDIR POP DE EX DE,HL LD BC,#800 ADD HL,BC LD A,H CP #C0 Track-Info  NеБВГДЕЖЗИЙ JR NC,SPRDWN1 LD BC,#3F9F SBC HL,BC SPRDWN1 EX DE,HL POP BC DJNZ SPRDWN RET ; RLNA OUT (C),A DEFS 6 OUT (C),C DEFS 2 OUT (C),A DEFS 6 OUT (C),C OUT (C),A DEFS 6 OUT (C),C RET ; RLNB OUT (C),A OUT (C),C OUT (C),A OUT (C),C OUT (C),A OUT (C),C OUT (C),A OUT (C),C DEFS 1 OUT (C),A OUT (C),C DEFS 3 RET ; RLNC OUT (C),A DEFS 6 OUT (C),C DEFS 2 OUT (C),A OUT (C),C OUT (C),A OUT (C),C DEFS 1 OUT (C),A OUT (C),C DEFS 3 RET ; RLND OUT (C),A OUT (C),C DEFS 8 OUT (C),A OUT (C),C OUT (C),A OUT (C),C DEFS 1 OUT (C),A OUT (C),C DEFS 3 RET ; RLNE OUT (C),A OUT (C),C DEFS 8 OUT (C),A DEFS 6 OUT (C),C DEFS 3 OUT (C),A OUT (C),C DEFS 3 RET ; RASSCR RET LD A,(RASPOS) LD HL,RASDIF ADD A,(HL) LD (RASPOS),A CP 0 JR NZ,RASSC1 LD (HL),1 RASSC1 CP 33 RET NZ LD (HL),-1 RET ; RASFSC RET LD HL,PDTFTB+1 LD BC,41 LD DE,PDTFTB LD A,(DE) LDIR LD (DE),A RET ; RASLAR RET LD A,(RLCNT) DEC A CALL Z,RASLA2 LD (RLCNT),A RET RASLA2 LD A,(RASGRO) LD (R1+1),A LD (R2+1),A LD (R3+1),A LD (R4+1),A LD (R5+1),A LD (R6+1),A LD HL,RASGDF ADD A,(HL) LD (RASGRO),A CP 1 JR NZ,RASLA1 LD (HL),1 RASLA1 CP 7 LD A,4 RET NZ LD (HL),-1 RET ; SCROLL LD B,8 SCROLL1 PUSH BC PUSH HL LD E,L LD D,H INC HL CALL SCRL LD BC,#800 POP HL ADD HL,BC POP BC DJNZ SCROLL1 RET ; SCRLL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI SCRL LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI LDI RET ; LAUFPR LD A,(SFNTPS) OR A JR NZ,LAUFPR2 LD HL,(ZGRMES) LAUFPR0 LD A,(HL) CP 6 JP Z,PAT6 JR NC,LAUFPR1 CP 1 JR NC,LAUFPRA LD HL,MESTXT JR LAUFPR0 LAUFPRA JP Z,PAT1 SUB 2 JP Z,PAT2 DEC A JP Z,PAT3 DEC A JP Z,PAT4 JP PAT5 LAUFPR1 INC HL LD (ZGRMES),HL SUB 64 LD B,A LD DE,64 LD HL,#6420-64 LAUFPR5 ADD HL,DE DJNZ LAUFPR5 LD (SFNTAD),HL LD A,4 LAUFPR2 DEC A LD (SFNTPS),A LD HL,(SCLADR) LD BC,51 ADD HL,BC LD DE,(SFNTAD) LD B,16 LAUFPR3 PUSH BC LD A,(DE) LD (HL),A INC DE LD BC,#800 ADD HL,BC LD A,H CP #C0 JR NC,LAUFPR4 LD BC,#3F9F SBC HL,BC LAUFPR4 POP BC DJNZ LAUFPR3 LD (SFNTAD),DE RET ; PAT2 PUSH HL CALL COLCOPY POP HL JR PATCH1 PAT1 LD DE,RASFILL JR PATCH PAT3 LD DE,RASSCR JR PATCH PAT4 LD DE,RASFSC JR PATCH PAT5 LD DE,REJCOPY JR PATCH PAT6 LD DE,RASLAR PATCH EX DE,HL Track-Info  Nе Б В Г Д Е Ж З И Й LD (HL),0 EX DE,HL PATCH1 INC HL JP LAUFPR0 ; RASFILL RET LD A,(FILLCNT) DEC A JR NZ,RASFIL1 LD A,#C9 LD (RASFILL),A RET RASFIL1 LD (FILLCNT),A LD HL,(FILLPOS) LD (HL),75 INC HL LD (FILLPOS),HL RET ; COLCOPY LD HL,PDTBUNT LD DE,PDTFTB LD BC,42 LDIR RET ; FBCHNG LD A,(FBCNT) LD HL,(FBCHPS) DEC A JR NZ,FBCHNG1 LD A,6 LD HL,FBCHTB FBCHNG1 LD (FBCNT),A LD BC,#7F0D LD A,(HL) OUT (C),C OUT (C),A INC HL INC C LD A,(HL) OUT (C),C OUT (C),A INC HL INC C LD A,(HL) OUT (C),C OUT (C),A INC HL LD (FBCHPS),HL RET ; FBCHTB DEFB 85,87,83,92,76,71,86,82,75,93,95,83,76,78,74,88,77,79 FBCHPS DEFW FBCHTB FBCNT DEFB 1 SNDCNT DEFW 1 PDTFTB DEFB 84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84 DEFB 84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,84,0 PDTBUNT DEFB 85,87,83,67,75,75,67,83,87,85,76,78,74,67,75,75,67,74,78,76,86,94 DEFB 82,90,67,75,75,67,90,82,94,86,88,77,79,67,75,75,67,79,77,88,0 RASPOS DEFW 16 RASDIF DEFB 1 RASGRO DEFB 7 RASGDF DEFB -1 RLCNT DEFB 1 SCLADR DEFW #C004 SCLCNT DEFB 52 SCLPOS DEFB 6 SCLTYP DEFB 0 SFNTAD DEFW 0 SFNTPS DEFB 0 ZGRMES DEFW MESTXT FILLCNT DEFB 43 FILLPOS DEFW PDTFTB ; MESTXT ; DEFM"aaaaaaaaaaaaa" DEFM"aaaTHISaISaaa" DEFM"aaaaaaaaaaaaa" DEFM"aaaTHEaENDaaa" DEFM"aaaaaaaaaaaaa",1 DEFM"aaaaaaaaaaaaa" ; DEFM"aTHISaISaTHEa" DEFM"aaaENDaaOFaaa",2 DEFM"aALPHA`DEMO[a" DEFM"aaaWRITTENaaa" DEFM"aINaAPRILaOFa" DEFM"CMMXCIIaBY]]]" ; DEFB 3 DEFM"aaPRODATRONaa" DEFM"aaaOFaaTHEaaa" DEFM"aaaREJECTSaaa",5 DEFM"THEaMASTERaOF" DEFM"THEaMNEMONICS" DEFM"[a[a[a[a[a[a[" ; DEFM"THEaBESTaDEMO" DEFM"aIaHAVEaEVERa" DEFM"WRITTEN]]]][[",4 DEFM"aNOWaaWEaAREa" DEFM"COMINGaTOaTHE" DEFM"aaCREDITSa_aa" ; DEFM"TITELaPART_aa" DEFM"`````````````" DEFM"GFX_aaaaaaPDT" DEFM"MUS_aaF]C'N'R" DEFM"THANXaTOaS]M]" DEFM"aaaFORaPC`GFX" ; DEFM"INTROaPART_aa" DEFM"`````````````" DEFM"CODING_aaaPDT" DEFM"GFX_aaaaaaPDT" DEFM"FONT_aaaaaPDT",6 DEFM"MUS_SOT]BEAST" ; DEFM"SECONDaPART_a" DEFM"`````````````" DEFM"CODING_aaaPDT" DEFM"GFX_aaaaaaPDT" DEFM"FONT_aaaaaPDT" DEFM"MUS_DEFLEKTOR" ; DEFM"GUESTaPART_aa" DEFM"`````````````" DEFM"CODING_aaaPDT" DEFM"GFX_aL]aREBEL" DEFM"FONT_aaaaaPDT" DEFM"MUS_SUPERCARS" ; DEFM"MAINaPART_aaa" DEFM"`````````````" DEFM"CODING_aaaPDT" DEFM"GFX_aaaaaaPDT" DEFM"FONT_aaaaaPDT" DEFM"MUS_CHAIN`RE]" ; DEFM"ENDaPART_aaaa" DEFM"`````````````" DEFM"CODING_aaaPDT" DEFM"GFX_aaaaaaPDT" DEFM"FONT_aaaaaPDT" DEFM"MUS_SOT]BEAST" ; DEFM"HEREaaAaSHORT" DEFM"MESS]aTOaDSC_" DEFM"SORRY^SORRY^S" DEFM"ORRY^SORRY^SO" DEFM"RRY^SORRY^FOR" DEFM"MYaBADaLETTER" ; DEFM"THATaWASaIT]]" DEFM"IaMaSADaCAUSE" DEFM"THISaDEMOaaIS" DEFM"aREADYaANDaIa" DEFM"aDONaTaaKNOWa" DEFM"WHATaTOaDO]]]" ; DEFM"aWAITaFORaMYa" DEFM"NEXTaDEMO[[[[" DEFM"aITaaWILLaBEa" DEFM"aBETTERaTHANa" DEFM"THISaONE]]]]]" DEFM"aaaaaaaaaaaaa" ; DEFM"BUTaIaCANaNOT" DEFM"PROMISEaTHAT]" DEFM"PERHAPSaTHERE" DEFM"AREaHARDWARE`" DEFM"SCROLLSaINaMY" DEFM"NEXTaCREATION" ; DEFM"NOWaIaWANTaTO" DEFM"GREETaALLaTHE" DEFM"aPEOPLE^aWHOa" DEFM"MADEaITaaPOS`" DEFM"aSIBLE^aTHATa" DEFM"THEaALPHADEMO" ; DEFM"aaEXISTSaINaa" DEFM"aTHISaaFORM_a" DEFM"LEATHERaREBEL" DEFM"`HEaMADEaTHEa" DEFM"aGFX^TEXTaOFa" DEFM"THEaGUESTPART" ; DEFM"aaaaALIENaaaa" DEFM"a`HEaGAVEaMEa" DEFM"MANYaHELPFULL" DEFM"aaHINTSaFORaa" DEFM"aPROGRAMMINGa" DEFM"aaaaDEMOS]aaa" ; DEFM"aaSTEPHANaMaa" DEFM"a`HEaGAVEaMEa" DEFM"THEaNICEaaGFX" DEFM"INaTHEaTITEL`" DEFM"PART]aITaWASa" DEFM"TAKENaFROMaPC" ; DEFM"BLACKaMISSION" DEFM"`SORRY^aBUTaI" DEFM"aHAVEaaTAKENa" DEFM"aSOMEaTHINGSa" DEFM"aaFROMaYOURaa" DEFM"CRACK`LOADER]" ; DEFM"GOODaBY^FOLKS" DEFM"aaaaaaaaaaaaa" DEFM"aaaaPRODATRON" DEFM"aaaaaaaOFaTHE" DEFM"aaaaaaREJECTS" DEFM"`````````````" ; DEFM"aaaaaaaaaaaaa" DEFM"aaaaaaaaaaaaa" DEFM"aaaaaaaaaaaaa" DEFM"aaaaaaaaaaaaa" DEFM"aaaaaaaaaaaaa" DEFM"aaaaaaaaaaaaa",0 HA $$$яя WRITE "ALPHA ; ORG #2000 ; OVERSC LD BC,#BC01 OUT (C),C LD BC,#BD00 DEFM"BLACKaMISSION" DEFM"`SORRY^aBUTaI" DEFM"aHAVEaaTAKENa" DEFM"aSOMEaTHINGSa" DEFM"aaFROMaYOURaa" DEFM"CRACK`LOADER]" Track-Info ! Nе!Б!В!Г!Д!Е!Ж!З!И!ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info " Nе"Б"В"Г"Д"Е"Ж"З"И"ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info # Nе#Б#В#Г#Д#Е#Ж#З#И#ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info $ Nе$Б$В$Г$Д$Е$Ж$З$И$ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info % Nе%Б%В%Г%Д%Е%Ж%З%И%ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info & Nе&Б&В&Г&Д&Е&Ж&З&И&ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info ' Nе'Б'В'Г'Д'Е'Ж'З'И'ЙееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееTrack-Info ( Nе(Б(В(Г(Д(Е(Ж(З(И(Й