NOTICE TEXTE n° 1 (27.2 Ko)
1000 ;'KEY 0,CHR$(13)+" ":key 1,"mode 2:list ":key 2,"save"+chr$(34)+"intro"+chr$(34)+",a"+chr$(13):key 3,"renum 1000,1000"+chr$(13):speed key 20,1
1010 ;'========================================================================
1020 ;'------------------------------------------------------------------------
1030 ;'**** Spidersoftware's T E R R A - I N T R O ****
1040 ;'**** -------------------------------------------------------------- ****
1050 ;'**** Quelltext fuer den Maschienencode von PRODATRON's erstem Intro ****
1060 ;'**** -------------------------------------------------------------- ****
1070 ;'**** geschrieben im Jahre 91 von PRODATRON auf dem Amstrad CPC-6128 ****
1080 ;'------------------------------------------------------------------------
1090 ;'========================================================================
1100 ;
1110 ;'========================================================================
1120 ;'*** V O R B E R E I T U N G E N ***
1130 ;'========================================================================
1140 ;
1150 INTRO: ORG #8000 ;Startadresse
1160 ;
1170 NEXTLN: EQU #BC26 ;SCR NEXT LINE
1180 OUTPUT: EQU #BB5A ;TXT OUTPUT
1190 ADDTIC: EQU #BCE9 ;KL ADD TICKER
1200 DELTIC: EQU #BCEC ;KL DEL TICKER
1210 TSTKEY: EQU #BB1E ;KM TEST KEY
1220 SETINK: EQU #BC32 ;SCR SET INK
1230 SNDRES: EQU #BCA7 ;SOUND RESET
1240 SNDENV: EQU #BCBC ;SOUND AMPL ENV
1250 SNDENT: EQU #BCBF ;SOUND TONE ENV
1260 SNDQUE: EQU #BCAA ;SOUND QUEUE
1270 ;
1280 ;'========================================================================
1290 ;'*** B I L D S C H I R M A U F B A U ***
1300 ;'========================================================================
1310 ;
1320 ;'---------------------------------------- Bildschirmfarben schwarz machen
1330 ;
1340 BLACK: LD B,16 ;Inks auf 0
1350 BLACK1: LD A,28
1360 CALL OUTPUT
1370 LD A,B
1380 DEC A
1390 CALL OUTPUT
1400 LD A,0
1410 CALL OUTPUT
1420 CALL OUTPUT
1430 DJNZ BLACK1
1440 LD A,29 ;BORDER auf 0
1450 CALL OUTPUT
1460 LD A,0
1470 CALL OUTPUT
1480 CALL OUTPUT
1490 LD A,4 ;MODE 0
1500 CALL OUTPUT
1510 LD A,0
1520 CALL OUTPUT
1530 ;
1540 ;'----------------------------------------------------- Symbols definieren
1550 ;
1560 SYMB: LD HL,SYMTAB
1570 LD B,230
1580 SYMB1: PUSH BC
1590 LD A,25
1600 CALL OUTPUT
1610 LD A,B
1620 CALL OUTPUT
1630 LD B,8
1640 SYMB2: LD A,(HL) ;A mit Matrix-Bytes
1650 INC HL
1660 CALL OUTPUT
1670 DJNZ SYMB2
1680 POP BC
1690 INC B
1700 LD A,252
1710 CP B ;alle Zeichen definiert:
1720 JR NZ,SYMB1 ;NEIN:weiter
1730 ;
1740 ;'-------------------------------------------- Bildschirmaufbau durch Text
1750 ;
1760 SCRINI: LD HL,TXTDAT
1770 SCRIN1: LD A,(HL)
1780 CP 255
1790 JP Z,GRAFK
1800 CALL OUTPUT
1810 INC HL
1820 JR SCRIN1
1830 ;
1840 ;'---------------------------------------------------- Symbol-Matrix Daten
1850 ;
1860 SYMTAB:
1870 DEFB 255,64,32,16,8,4,2,1 ;230
1880 DEFB 1,2,4,8,16,32,64,255 ;231
1890 DEFB 128,64,32,16,8,4,2,255 ;232
1900 DEFB #81,#82,#84,#88,#90,#A0,#C0,#80 ;233
1910 DEFB #81,#41,#21,#11,9,5,3,1 ;234
1920 DEFB 128,64,32,16,8,4,2,1 ;235
1930 DEFB 1,2,4,8,16,32,64,128 ;236
1940 DEFB 255,0,0,0,0,0,0,0 ;237
1950 DEFB 0,0,0,0,0,0,0,255 ;238
1960 DEFB 128,128,128,128,128,128,128,128 ;239
1970 DEFB 1,1,1,1,1,1,1,1 ;240
1980 DEFB 255,0,0,0,0,0,0,255 ;241
1990 DEFB 0,#EE,#88,#88,#AC,#A8,#A8,#EE ;242
2000 DEFB 0,#EA,#AE,#AA,#CA,#AA,#AA,#AA ;243
2010 DEFB 0,#EE,#AA,#AA,#EA,#AA,#AA,#AA ;244
2020 DEFB 0,#A0,#A0,#E0,64,64,64,64 ;245
2030 DEFB 0,14,8,8,10,10,10,14 ;246
2040 DEFB 0,#EE,#8 A,#8 A,#CC,#8 A,#8 A,#EA ;247
2050 DEFB 0,#AE,#EA,#AA,#AE,#AA,#AA,#AA ;248
2060 DEFB 0,#EA,#AA,#AE,#A4,#A4,#A4,#A4 ;249
2070 DEFB 255,128,128,128,128,128,128,128 ;250
2080 DEFB 255,1,1,1,1,1,1,1 ;251
2090 ;
2100 ;'--------------------------------------------------- Bildschirmtext-Daten
2110 ;
2120 TXTDAT:
2130 DEFB 14,0,15,1,143,143,143,133,15,4
2140 DEFM " SPIDERSOFT "
2150 DEFB 15,1,138,143,143,143,15,2,143,143,143,133,15,5
2160 DEFM " presents "
2170 DEFB 15,2,138,143,143,143,15,3,143,143,143,133
2180 DEFS 12,9
2190 DEFB 15,3,138,143,143,143,15,7,242,243,244,245,14,1,15,6
2200 GAME: DEFM "NAME OF GAME"
2210 DEFB 14,0,15,7,246,247,248,249,26,0,19,7,17,14,1,12,10,10,15,15
2220 DEFB 230,237,237,241,237,235,32,230,237,237,241,237,235,32,250,241,237,237,241,251
2230 DEFB 32,239,240,32,239,240,32,32,239,240,32,239,240,32,233,32,239,240,32,234
2240 DEFB 32,239,240,32,239,240,32,32,239,240,32,239,240,32,32,32,239,240,32,32
2250 DEFB 32,239,32,241,238,236,32,32,239,240,32,239,240,32,32,32,239,240,32,32
2260 DEFB 32,239,240,32,32,32,32,32,239,240,32,239,240,32,32,32,239,240,32,32
2270 DEFB 32,239,240,32,32,32,32,32,239,240,32,239,240,32,32,32,239,240,32,32
2280 DEFB 231,238,238,232,32,32,32,231,238,238,241,238,236,32,32,231,238,238,232
2290 DEFB 26,0,19,20,24,14,0
2300 DEFB 15,12,22,1,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,11
2310 DEFB 15,13,22,1,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,11
2320 DEFB 15,14,22,1,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,9,129,11
2330 DEFB 15,15,22,1,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,9,130,11
2340 DEFB 10,10,10
2350 DEFB 15,15,22,1,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,11
2360 DEFB 15,14,22,1,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,11
2370 DEFB 15,13,22,1,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,9,132,11
2380 DEFB 15,12,22,1,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,9,136,11,11,11,11,11,32
2390 DEFB 255
2400 ;
2410 ;'----------------------------------------------------------- Sprite-Daten
2420 ;
2430 SPRTE1:
2440 DEFB #3,#C3,#0 F,#CF,#3,#C3,#0 F,#CF,#8 B,#43,#87,#4 F,#8 B,#43,#87,#4 F
2450 DEFB #CF,#3,#C3,#0 F,#CF,#3,#C3,#0 F,#4 F,#8 B,#43,#87,#4 F,#8 B,#43,#87
2460 DEFB #0 F,#CF,#3,#C3,#0 F,#CF,#3,#C3,#87,#4 F,#8 B,#43,#87,#4 F,#8 B,#43
2470 DEFB #C3,#0 F,#CF,#3,#C3,#0 F,#CF,#3,#43,#87,#4 F,#8 B,#43,#87,#4 F,#8 B
2480 SPRTE2:
2490 DEFB #CF,#0 F,#C3,#3,#CF,#0 F,#C3,#3,#8 F,#4 B,#83,#47,#8 F,#4 B,#83,#47
2500 DEFB #0 F,#C3,#3,#CF,#0 F,#C3,#3,#CF,#4 B,#83,#47,#8 F,#4 B,#83,#47,#8 F
2510 DEFB #C3,#3,#CF,#0 F,#C3,#3,#CF,#0 F,#83,#47,#8 F,#4 B,#83,#47,#8 F,#4 B
2520 DEFB #3,#CF,#0 F,#C3,#3,#CF,#0 F,#C3,#47,#8 F,#4 B,#83,#47,#8 F,#4 B,#83
2530 ;
2540 ;'----------------------------------------------------------------- Farben
2550 ;
2560 COLORS: DEFB 26,7,17,21,24,6,0,1
2570 ;
2580 ;'------------------------------------------------------- Interrupttabelle
2590 ;
2600 INTTAB: DEFS 9
2610 DEFB 129
2620 DEFW INKSCR
2630 ;
2640 ;'----------------------------------------------------- Sprites darstellen
2650 ;
2660 SPRITE: ;HL=Spriteadr.;DE=Bildadr.
2670 LD B,16
2680 LD C,4
2690 SPRIT1: PUSH DE
2700 PUSH BC
2710 LD B,0
2720 LDIR
2730 POP BC
2740 POP DE
2750 EX DE,HL
2760 CALL NEXTLN
2770 EX DE,HL
2780 DJNZ SPRIT1
2790 RET
2800 ;
2810 RAHMN: ;HL=Spriteadr.;DE=Bildadr.
2820 LD B,20
2830 RAHMN1: PUSH BC
2840 PUSH HL
2850 PUSH DE
2860 CALL SPRITE
2870 POP DE
2880 INC DE
2890 INC DE
2900 INC DE
2910 INC DE
2920 POP HL
2930 POP BC
2940 DJNZ RAHMN1
2950 RET
2960 ;
2970 GRAFK: LD HL,SPRTE1
2980 LD DE,49552
2990 CALL RAHMN
3000 LD HL,SPRTE2
3010 LD DE,50592
3020 CALL RAHMN
3030 ;
3040 ;'------------------------------------------------ Bildschirmfarben setzen
3050 ;
3060 COLOR: LD HL,COLORS
3070 LD B,8
3080 COLOR1: LD A,28
3090 CALL OUTPUT
3100 LD A,B
3110 DEC A
3120 CALL OUTPUT
3130 LD A,(HL)
3140 CALL OUTPUT
3150 CALL OUTPUT
3160 INC HL
3170 DJNZ COLOR1
3180 LD A,29
3190 CALL OUTPUT
3200 LD A,3
3210 CALL OUTPUT
3220 CALL OUTPUT
3230 ;
3240 ;'---------------------------------------------------- Sound installierung
3250 ;
3260 SNDINI: CALL SNDRES
3270 LD HL,LAUTDB
3280 SNDIN1: LD A,(HL)
3290 CP 255
3300 JR Z,SNDIN2
3310 INC HL
3320 PUSH HL
3330 CALL SNDENV
3340 POP HL
3350 LD BC,16
3360 ADD HL,BC
3370 JR SNDIN1
3380 SNDIN2: LD HL,TONDB
3390 SNDIN3: LD A,(HL)
3400 CP 255
3410 JR Z,SNDIN4
3420 INC HL
3430 PUSH HL
3440 CALL SNDENT
3450 POP HL
3460 LD BC,16
3470 ADD HL,BC
3480 JR SNDIN3
3490 SNDIN4: LD HL,SNDIDB
3500 LD DE,8
3510 LD BC,DE
3520 CALL ADDTIC
3530 ;
3540 ;'========================================================================
3550 ;'*** L A U F S C H R I F T ***
3560 ;'========================================================================
3570 ;
3580 INITLS: LD HL,6
3590 LD A,(HL)
3600 CP #80
3610 JR Z,INITL1
3620 LD HL,#B736
3630 LD DE,#B7D2
3640 JR INITL2
3650 INITL1: LD HL,#B296
3660 LD DE,#B1D7
3670 INITL2: LD C,(HL)
3680 INC HL
3690 LD B,(HL)
3700 LD (CHRADR),BC
3710 EX DE,HL
3720 LD (HL),1
3730 INC HL
3740 LD (HL),1
3750 LAUFS: CALL SCROLL
3760 LD A,47
3770 CALL TSTKEY
3780 JP NZ,ENDE
3790 LD DE,50990
3800 CALL SETLN
3810 LD HL,PIXLZG
3820 INC (HL)
3830 LD DE,50991
3840 CALL SETLN
3850 LD A,(PIXLZG)
3860 INC A
3870 LD (PIXLZG),A
3880 CP 9
3890 JR NZ,LAUFS
3900 CALL INKSCR
3910 LD A,1
3920 LD (PIXLZG),A
3930 LD HL,(TEXTZG)
3940 INC HL
3950 LD (TEXTZG),HL
3960 LD A,(HL)
3970 CP 0
3980 JR NZ,LAUFS
3990 LD HL,TEXT
4000 LD (TEXTZG),HL
4010 JR LAUFS
4020 ;
4030 TEXTZG: DEFW TEXT
4040 PIXLZG: DEFB 1
4050 CHRADR: DEFW 0
4060 ;
4070 SCROLL: CALL #BD19
4080 LD B,16
4090 LD DE,50912
4100 SCROL1: PUSH BC
4110 PUSH DE
4120 LD HL,DE
4130 INC HL
4140 INC HL
4150 LD BC,78
4160 LDIR
4170 POP HL
4180 CALL #BC26
4190 EX DE,HL
4200 POP BC
4210 DJNZ SCROL1
4220 RET
4230 ;
4240 SETLN: LD HL,(TEXTZG)
4250 LD A,(HL)
4260 LD L,A
4270 LD H,0
4280 ADD HL,HL
4290 ADD HL,HL
4300 ADD HL,HL
4310 LD BC,(CHRADR)
4320 ADD HL,BC
4330 LD B,8
4340 SETLN1: PUSH BC
4350 LD A,(PIXLZG)
4360 LD B,A
4370 LD A,(HL)
4380 SETLN2: RLCA
4390 DJNZ SETLN2
4400 EX DE,HL
4410 JR C,SETLN3
4420 LD A,0
4430 JR SETLN4
4440 SETLN3: LD A,252
4450 SETLN4: LD (HL),A
4460 PUSH AF
4470 CALL #BC26
4480 POP AF
4490 LD (HL),A
4500 CALL #BC26
4510 EX DE,HL
4520 POP BC
4530 INC HL
4540 DJNZ SETLN1
4550 RET
4560 ENDE: LD HL,SNDIDB
4570 CALL DELTIC
4580 ;
4590 ;'========================================================================
4600 ;'*** F A R B S C R O L L I N G ***
4610 ;'========================================================================
4620 ;
4630 FTAB1: DEFB 1,2,14,23
4640 FTAB2: DEFB 3,6,7,15
4650 AKINK1: DEFB 0
4660 ;
4670 SCINK1: INC C
4680 LD A,4
4690 CP C
4700 RET NZ
4710 LD C,0
4720 RET
4730 ;
4740 SUBINK: ADD HL,BC
4750 PUSH HL
4760 PUSH BC
4770 PUSH DE
4780 LD A,D
4790 LD B,(HL)
4800 LD C,(HL)
4810 CALL SETINK
4820 POP DE
4830 POP BC
4840 POP HL
4850 INC D
4860 RET
4870 ;
4880 INKSCR: LD HL,FTAB1
4890 LD BC,(AKINK1)
4900 LD B,0
4910 LD D,8
4920 INKSC1: PUSH HL
4930 PUSH BC
4940 CALL SUBINK
4950 POP BC
4960 CALL SCINK1
4970 POP HL
4980 LD A,12
4990 CP D
5000 JR NZ,INKSC1
5010 LD HL,FTAB2
5020 LD BC,(AKINK1)
5030 LD B,0
5040 CALL SCINK1
5050 LD A,C
5060 LD (AKINK1),A
5070 INKSC2: PUSH HL
5080 PUSH BC
5090 CALL SUBINK
5100 POP BC
5110 CALL SCINK1
5120 POP HL
5130 LD A,16
5140 CP D
5150 JR NZ,INKSC2
5160 RET
5170 ;
5180 ;'========================================================================
5190 ;'*** S O U N D ***
5200 ;'========================================================================
5210 ;
5220 SOUND: LD HL,(SNDZGR)
5230 LD B,3
5240 LD A,(HL)
5250 CP 255
5260 JR NZ,SOUND1
5270 LD HL,SNDDAT
5280 LD (SNDZGR),HL
5290 RET
5300 SOUND1: PUSH HL
5310 PUSH BC
5320 CALL SNDQUE
5330 POP BC
5340 POP HL
5350 LD DE,9
5360 ADD HL,DE
5370 DJNZ SOUND1
5380 LD (SNDZGR),HL
5390 RET
5400 ;
5410 SNDIDB: DEFS 9
5420 DEFB 129
5430 DEFW SOUND
5440 ;
5450 SNDZGR: DEFW SNDDAT
5460 ;
5470 ;'------------------------------------------------------------ Sound-Daten
5480 ;
5490 LAUTDB: DEFB 2,4,1,14,1,1,0,10,1,-3,1,3,-1,20,0,0,0
5500 DEFB 3,4,1,15,1,1,0,10,1,-2,1,3,-1,20,0,0,0
5510 DEFB 4,4,1,14,1,1,0,10,1,-3,1,3,-1,20,0,0,0,255
5520 TONDB: DEFB 255
5530 SNDDAT:
5540 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
5550 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
5560 DEFB #84,#4,#0,#7 E,#2,#0,#0 F,#40,#0
5570 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5580 DEFB #82,#3,#0,#7 F,#0,#0,#0 F,#40,#0
5590 DEFB #84,#4,#0,#3 F,#1,#0,#0 F,#40,#0
5600 DEFB #81,#2,#0,#77,#0,#0,#0 F,#40,#0
5610 DEFB #82,#3,#0,#BC,#3,#0,#0 F,#40,#0
5620 DEFB #84,#4,#0,#7 B,#1,#0,#0 F,#40,#0
5630 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5640 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
5650 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
5660 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
5670 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
5680 DEFB #84,#4,#0,#7 E,#2,#0,#0 F,#40,#0
5690 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5700 DEFB #82,#3,#0,#7 F,#0,#0,#0 F,#40,#0
5710 DEFB #84,#4,#0,#3 F,#1,#0,#0 F,#40,#0
5720 DEFB #81,#2,#0,#8 E,#0,#0,#0 F,#40,#0
5730 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
5740 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
5750 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5760 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
5770 DEFB #84,#4,#0,#AA,#1,#0,#0 F,#40,#0
5780 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
5790 DEFB #82,#3,#0,#FA,#1,#0,#0 F,#40,#0
5800 DEFB #84,#4,#0,#FD,#0,#0,#0 F,#40,#0
5810 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
5820 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
5830 DEFB #84,#4,#0,#7 E,#2,#0,#0 F,#40,#0
5840 DEFB #81,#2,#0,#8 E,#0,#0,#0 F,#40,#0
5850 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
5860 DEFB #84,#4,#0,#1 C,#1,#0,#0 F,#40,#0
5870 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5880 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
5890 DEFB #84,#4,#0,#3 F,#1,#0,#0 F,#40,#0
5900 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
5910 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
5920 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
5930 DEFB #81,#2,#0,#77,#0,#0,#0 F,#40,#0
5940 DEFB #82,#3,#0,#77,#0,#0,#0 F,#40,#0
5950 DEFB #84,#4,#0,#77,#0,#0,#0 F,#40,#0
5960 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
5970 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
5980 DEFB #84,#4,#0,#A4,#2,#0,#0 F,#40,#0
5990 DEFB #81,#2,#0,#8 E,#0,#0,#0 F,#40,#0
6000 DEFB #82,#3,#0,#8 E,#0,#0,#0 F,#40,#0
6010 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
6020 DEFB #81,#2,#0,#FD,#0,#0,#0 F,#40,#0
6030 DEFB #82,#3,#0,#FD,#0,#0,#0 F,#40,#0
6040 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
6050 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
6060 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
6070 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
6080 DEFB #81,#2,#0,#BE,#0,#0,#0 F,#40,#0
6090 DEFB #82,#3,#0,#BC,#3,#0,#0 F,#40,#0
6100 DEFB #84,#4,#0,#77,#0,#0,#0 F,#40,#0
6110 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
6120 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
6130 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
6140 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
6150 DEFB #82,#3,#0,#7 F,#0,#0,#0 F,#40,#0
6160 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
6170 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
6180 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
6190 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
6200 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
6210 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
6220 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
6230 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
6240 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
6250 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
6260 DEFB #81,#2,#0,#FD,#0,#0,#0 F,#40,#0
6270 DEFB #82,#3,#0,#FD,#0,#0,#0 F,#40,#0
6280 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
6290 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
6300 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
6310 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
6320 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
6330 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
6340 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
6350 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
6360 DEFB #82,#3,#0,#F6,#2,#0,#0 F,#40,#0
6370 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
6380 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
6390 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
6400 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
6410 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
6420 DEFB #82,#3,#0,#FA,#1,#0,#0 F,#40,#0
6430 DEFB #84,#4,#0,#FA,#1,#0,#0 F,#40,#0
6440 DEFB #81,#2,#0,#50,#0,#0,#0 F,#40,#0
6450 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
6460 DEFB #84,#4,#0,#FD,#0,#0,#0 F,#40,#0
6470 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
6480 DEFB #82,#3,#0,#9 F,#0,#0,#0 F,#40,#0
6490 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
6500 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
6510 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
6520 DEFB #84,#4,#0,#3 F,#1,#0,#0 F,#40,#0
6530 DEFB #81,#2,#0,#96,#0,#0,#0 F,#40,#0
6540 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
6550 DEFB #84,#4,#0,#18,#2,#0,#0 F,#40,#0
6560 DEFB #81,#2,#0,#86,#0,#0,#0 F,#40,#0
6570 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
6580 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
6590 DEFB #81,#2,#0,#64,#0,#0,#0 F,#40,#0
6600 DEFB #82,#3,#0,#64,#0,#0,#0 F,#40,#0
6610 DEFB #84,#4,#0,#64,#0,#0,#0 F,#40,#0
6620 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
6630 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
6640 DEFB #84,#4,#0,#66,#1,#0,#0 F,#40,#0
6650 DEFB #81,#2,#0,#86,#0,#0,#0 F,#40,#0
6660 DEFB #82,#3,#0,#86,#0,#0,#0 F,#40,#0
6670 DEFB #84,#4,#0,#86,#0,#0,#0 F,#40,#0
6680 DEFB #81,#2,#0,#B3,#0,#0,#0 F,#40,#0
6690 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
6700 DEFB #84,#4,#0,#0 C,#1,#0,#0 F,#40,#0
6710 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
6720 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
6730 DEFB #84,#4,#0,#18,#2,#0,#0 F,#40,#0
6740 DEFB #81,#2,#0,#77,#0,#0,#0 F,#40,#0
6750 DEFB #82,#3,#0,#5 A,#2,#0,#0 F,#40,#0
6760 DEFB #84,#4,#0,#2 D,#1,#0,#0 F,#40,#0
6770 DEFB #81,#2,#0,#96,#0,#0,#0 F,#40,#0
6780 DEFB #82,#3,#0,#DE,#1,#0,#0 F,#40,#0
6790 DEFB #84,#4,#0,#DE,#1,#0,#0 F,#40,#0
6800 DEFB #81,#2,#0,#C9,#0,#0,#0 F,#40,#0
6810 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
6820 DEFB #84,#4,#0,#EF,#0,#0,#0 F,#40,#0
6830 DEFB #81,#2,#0,#B3,#0,#0,#0 F,#40,#0
6840 DEFB #82,#3,#0,#2 D,#1,#0,#0 F,#40,#0
6850 DEFB #84,#4,#0,#2 D,#1,#0,#0 F,#40,#0
6860 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
6870 DEFB #82,#3,#0,#0 C,#1,#0,#0 F,#40,#0
6880 DEFB #84,#4,#0,#0 C,#1,#0,#0 F,#40,#0
6890 DEFB #81,#2,#0,#0 C,#1,#0,#0 F,#40,#0
6900 DEFB #82,#3,#0,#0 C,#1,#0,#0 F,#40,#0
6910 DEFB #84,#4,#0,#0 C,#1,#0,#0 F,#40,#0
6920 DEFB #81,#2,#0,#0 C,#1,#0,#0 F,#40,#0
6930 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
6940 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
6950 DEFB #81,#2,#0,#92,#1,#0,#0 F,#40,#0
6960 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
6970 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
6980 DEFB #81,#2,#0,#92,#1,#0,#0 F,#40,#0
6990 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
7000 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
7010 DEFB #81,#2,#0,#3 F,#1,#0,#0 F,#40,#0
7020 DEFB #82,#3,#0,#3 F,#1,#0,#0 F,#40,#0
7030 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7040 DEFB #81,#2,#0,#7 B,#1,#0,#0 F,#40,#0
7050 DEFB #82,#3,#0,#BC,#3,#0,#0 F,#40,#0
7060 DEFB #84,#4,#0,#77,#0,#0,#0 F,#40,#0
7070 DEFB #81,#2,#0,#52,#1,#0,#0 F,#40,#0
7080 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
7090 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7100 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
7110 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
7120 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
7130 DEFB #81,#2,#0,#3 F,#1,#0,#0 F,#40,#0
7140 DEFB #82,#3,#0,#3 F,#1,#0,#0 F,#40,#0
7150 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7160 DEFB #81,#2,#0,#52,#1,#0,#0 F,#40,#0
7170 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
7180 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
7190 DEFB #81,#2,#0,#AA,#1,#0,#0 F,#40,#0
7200 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
7210 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7220 DEFB #81,#2,#0,#FD,#0,#0,#0 F,#40,#0
7230 DEFB #82,#3,#0,#FA,#1,#0,#0 F,#40,#0
7240 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
7250 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
7260 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
7270 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
7280 DEFB #81,#2,#0,#1 C,#1,#0,#0 F,#40,#0
7290 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
7300 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
7310 DEFB #81,#2,#0,#3 F,#1,#0,#0 F,#40,#0
7320 DEFB #82,#3,#0,#7 E,#2,#0,#0 F,#40,#0
7330 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7340 DEFB #81,#2,#0,#52,#1,#0,#0 F,#40,#0
7350 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
7360 DEFB #84,#4,#0,#D5,#0,#0,#0 F,#40,#0
7370 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
7380 DEFB #82,#3,#0,#D5,#0,#0,#0 F,#40,#0
7390 DEFB #84,#4,#0,#A9,#0,#0,#0 F,#40,#0
7400 DEFB #81,#2,#0,#AA,#1,#0,#0 F,#40,#0
7410 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7420 DEFB #84,#4,#0,#8 E,#0,#0,#0 F,#40,#0
7430 DEFB #81,#2,#0,#8 E,#0,#0,#0 F,#40,#0
7440 DEFB #82,#3,#0,#8 E,#0,#0,#0 F,#40,#0
7450 DEFB #84,#4,#0,#D5,#0,#0,#0 F,#40,#0
7460 DEFB #81,#2,#0,#C9,#0,#0,#0 F,#40,#0
7470 DEFB #82,#3,#0,#F4,#3,#0,#0 F,#40,#0
7480 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
7490 DEFB #81,#2,#0,#BE,#0,#0,#0 F,#40,#0
7500 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7510 DEFB #84,#4,#0,#7 B,#1,#0,#0 F,#40,#0
7520 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
7530 DEFB #82,#3,#0,#FA,#1,#0,#0 F,#40,#0
7540 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
7550 DEFB #81,#2,#0,#7 F,#0,#0,#0 F,#40,#0
7560 DEFB #82,#3,#0,#7 F,#0,#0,#0 F,#40,#0
7570 DEFB #84,#4,#0,#7 F,#0,#0,#0 F,#40,#0
7580 DEFB #81,#2,#0,#71,#0,#0,#0 F,#40,#0
7590 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7600 DEFB #84,#4,#0,#0 C,#1,#0,#0 F,#40,#0
7610 DEFB #81,#2,#0,#86,#0,#0,#0 F,#40,#0
7620 DEFB #82,#3,#0,#86,#0,#0,#0 F,#40,#0
7630 DEFB #84,#4,#0,#86,#0,#0,#0 F,#40,#0
7640 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
7650 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
7660 DEFB #84,#4,#0,#E1,#0,#0,#0 F,#40,#0
7670 DEFB #81,#2,#0,#96,#0,#0,#0 F,#40,#0
7680 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7690 DEFB #84,#4,#0,#A4,#2,#0,#0 F,#40,#0
7700 DEFB #81,#2,#0,#8 E,#0,#0,#0 F,#40,#0
7710 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
7720 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
7730 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
7740 DEFB #82,#3,#0,#53,#3,#0,#0 F,#40,#0
7750 DEFB #84,#4,#0,#53,#3,#0,#0 F,#40,#0
7760 DEFB #81,#2,#0,#D5,#0,#0,#0 F,#40,#0
7770 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7780 DEFB #84,#4,#0,#1 C,#1,#0,#0 F,#40,#0
7790 DEFB #81,#2,#0,#BE,#0,#0,#0 F,#40,#0
7800 DEFB #82,#3,#0,#38,#2,#0,#0 F,#40,#0
7810 DEFB #84,#4,#0,#52,#1,#0,#0 F,#40,#0
7820 DEFB #81,#2,#0,#A9,#0,#0,#0 F,#40,#0
7830 DEFB #82,#3,#0,#FA,#1,#0,#0 F,#40,#0
7840 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
7850 DEFB #81,#2,#0,#92,#1,#0,#0 F,#40,#0
7860 DEFB #82,#3,#0,#A4,#2,#0,#0 F,#40,#0
7870 DEFB #84,#4,#0,#A4,#2,#0,#0 F,#40,#0
7880 DEFB #81,#2,#0,#A4,#2,#0,#0 F,#40,#0
7890 DEFB #82,#3,#0,#F4,#3,#0,#0 F,#40,#0
7900 DEFB #84,#4,#0,#F4,#3,#0,#0 F,#40,#0
7910 DEFB #81,#2,#0,#F4,#3,#0,#0 F,#40,#0
7920 DEFB #82,#3,#0,#86,#3,#0,#0 F,#40,#0
7930 DEFB #84,#4,#0,#86,#3,#0,#0 F,#40,#0
7940 DEFB #81,#2,#0,#3 F,#1,#0,#0 F,#40,#0
7950 DEFB #82,#3,#0,#24,#3,#0,#0 F,#40,#0
7960 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
7970 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
7980 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
7990 DEFB #84,#4,#0,#96,#0,#0,#0 F,#40,#0
8000 DEFB #81,#2,#0,#92,#1,#0,#0 F,#40,#0
8010 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
8020 DEFB #84,#4,#0,#86,#0,#0,#0 F,#40,#0
8030 DEFB #81,#2,#0,#86,#0,#0,#0 F,#40,#0
8040 DEFB #82,#3,#0,#86,#0,#0,#0 F,#40,#0
8050 DEFB #84,#4,#0,#64,#0,#0,#0 F,#40,#0
8060 DEFB #81,#2,#0,#66,#1,#0,#0 F,#40,#0
8070 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
8080 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
8090 DEFB #81,#2,#0,#6 A,#0,#0,#0 F,#40,#0
8100 DEFB #82,#3,#0,#6 A,#0,#0,#0 F,#40,#0
8110 DEFB #84,#4,#0,#86,#0,#0,#0 F,#40,#0
8120 DEFB #81,#2,#0,#0 C,#1,#0,#0 F,#40,#0
8130 DEFB #82,#3,#0,#AA,#1,#0,#0 F,#40,#0
8140 DEFB #84,#4,#0,#B3,#0,#0,#0 F,#40,#0
8150 DEFB #81,#2,#0,#B3,#0,#0,#0 F,#40,#0
8160 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
8170 DEFB #84,#4,#0,#6 A,#0,#0,#0 F,#40,#0
8180 DEFB #81,#2,#0,#2 D,#1,#0,#0 F,#40,#0
8190 DEFB #82,#3,#0,#5 A,#2,#0,#0 F,#40,#0
8200 DEFB #84,#4,#0,#77,#0,#0,#0 F,#40,#0
8210 DEFB #81,#2,#0,#77,#0,#0,#0 F,#40,#0
8220 DEFB #82,#3,#0,#DE,#1,#0,#0 F,#40,#0
8230 DEFB #84,#4,#0,#96,#0,#0,#0 F,#40,#0
8240 DEFB #81,#2,#0,#EF,#0,#0,#0 F,#40,#0
8250 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
8260 DEFB #84,#4,#0,#C9,#0,#0,#0 F,#40,#0
8270 DEFB #81,#2,#0,#C9,#0,#0,#0 F,#40,#0
8280 DEFB #82,#3,#0,#2 D,#1,#0,#0 F,#40,#0
8290 DEFB #84,#4,#0,#B3,#0,#0,#0 F,#40,#0
8300 DEFB #81,#2,#0,#0 C,#1,#0,#0 F,#40,#0
8310 DEFB #82,#3,#0,#0 C,#1,#0,#0 F,#40,#0
8320 DEFB #84,#4,#0,#9 F,#0,#0,#0 F,#40,#0
8330 DEFB #81,#2,#0,#9 F,#0,#0,#0 F,#40,#0
8340 DEFB #82,#3,#0,#3 F,#1,#0,#0 F,#40,#0
8350 DEFB #84,#4,#0,#3 F,#1,#0,#0 F,#40,#0
8360 DEFB #81,#2,#0,#3 F,#1,#0,#0 F,#40,#0
8370 DEFB #82,#3,#0,#92,#1,#0,#0 F,#40,#0
8380 DEFB #84,#4,#0,#92,#1,#0,#0 F,#40,#0
8390 DEFB #81,#2,#0,#92,#1,#0,#0 F,#40,#0
8400 DEFB #82,#3,#0,#18,#2,#0,#0 F,#40,#0
8410 DEFB #84,#4,#0,#18,#2,#0,#0 F,#40,#0
8420 DEFB 255
8430 ;
8440 ;'------------------------------------------------------------- Text-Daten
8450 ;
8460 TEXT: DEFM "P D T - Intro == >> frei fuer Text... "
8470 DEFS 4000
8480 DEFM "ENDE!"