| |
DB1ZF > MSX 21.06.95 19:59l 72 Lines 2247 Bytes #-10559 (0) @ WW
BID : 216517DB0GV
Read: DG2MMV OE5LPO DL3JIN OK1IKE DF2SKE DG3KCE GUEST
Subj: ARD.BAS
Path: DB0AAB<DB0KCP<DB0CRL<DB0RBS<DB0AIS<DB0GV
Sent: 950621/1548z @DB0GV.#HES.DEU.EU [Maintal-Frank4t JO40KD 438.025 SYSOP: DF
de DB1ZF @ DB0GV.#HES.DEU.EU (Kurt)
to MSX @ WW
10 DATAFF,FF,FF,FF,FF,FF,FF,FF
20 DATAFF,FF,FF,FF,B4,63,95,AD
30 DATAA5,A3,B4,6D,FF,FF,FF,FF
40 DATAFF,FF,FF,FF,FF,FF,FF,FF
50 DATAFF,FF,F0,0F,E1,C7,C2,03
60 DATA83,81,80,41,83,81,9F,F9
70 DATA80,01,83,81,82,41,83,81
80 DATAC2,43,E2,47,F0,0F,FF,FF
90 DATAFF,FF,F0,0F,C0,03,C0,03
100 DATAC0,03,9A,AD,A2,A9,92,AD
110 DATA8A,A9,B1,49,C0,03,C0,03
120 DATAC0,03,F0,0F,FF,FF,FF,FF
130 DATAFC,7F,F2,9F,EE,EF,DE,F7
140 DATADE,F7,BE,FB,BE,FB,BE,FB
150 DATADE,F7,DE,F7,EE,EF,F2,9F
160 DATA80,03,DF,F7,E7,CF,F8,3F
170 DATAF8,3F,E6,CF,DC,77,BF,FB
180 DATABC,7B,7F,FD,7C,7D,7E,FD
190 DATA7E,FD,7E,FD,BE,FB,BE,FB
200 DATADE,F7,E6,CF,F8,3F,FF,FF
210 DATAFF,FF,88,09,93,E5,A4,13
220 DATAA9,CB,A9,CB,A4,93,93,E5
230 DATA88,89,FF,FF,00,00,3B,DC
240 DATA42,12,73,9C,0A,12,72,1C
250 DATAFF,FF,80,01,BF,7D,8F,1D
260 DATA87,0D,87,0D,8F,1D,BF,7D
270 DATA8F,3D,87,1D,87,0D,8F,05
280 DATABF,01,80,01,80,01,FF,FF
290 DATAFF,FF,80,01,B0,01,B0,01
300 DATAB0,01,B0,01,B0,01,BE,6D
310 DATABF,7D,B3,71,B3,61,B3,61
320 DATAB3,61,B3,61,80,01,FF,FF
330 DATAFF,FF,80,01,80,01,80,01
340 DATA80,01,80,01,80,01,80,01
350 DATA80,01,D5,99,D5,55,D5,59
360 DATAA9,95,80,01,FF,FF,00,00
370 DATA10,6,6,12,5,9,14,4,5
380 DATA12,7,4,14,6,1,12,9,3
390 DATA14,8,8,12,11,7,14,10,2
400 DATAC3,E7,FF,DB,C3,C3,C3,00
410 DATA7E,C3,C0,7E,03,C3,7E,00
420 DATAC3,C3,66,3C,66,C3,C3,00
430 DATA118,125,133,118,148,110
440 KEYOFF:COLOR15,4,5:SCREEN2,2
450 OPEN"GRP:"AS#1:FORI=1TO2:FORZ=1TO2
460 PSET(26+I,165+Z),1:PRINT#1,"ERSTES DEUTSCHES FERNSEHEN":NEXTZ,I
470 DRAW"C15BM95,55M+65,-33D100M-45,+23U64M-20,+10U36"
480 FORD=1TO9:FORT=1TO16:READA$,B$
490 A1$=A1$+CHR$(VAL("&H"+A$)):A2$=A2$+CHR$(VAL("&H"+B$))
500 NEXTT:SPRITE$(D)=A1$+A2$
510 A1$="":A2$="":NEXTD
520 FORD=1TO9:READX,Y,Z
530 FORB=100TO1STEP-3
540 PUTSPRITEZ,(X*10+B,Y*10+B),15
550 NEXTB,D:FORT=22TO122
560 IFT<59THENM=95:N=33ELSEM=115:N=23
570 LINE(160,T)-(M,T+N),15:NEXTT
580 FORD=1TO3:FORT=1TO8:READA$
590 A1$=A1$+CHR$(VAL("&H"+A$)):NEXTT
600 SPRITE$(D)=A1$:A1$="":NEXTD
610 FORD=1TO3:READX,Y
620 FORB=100TO1STEP-3
630 PUTSPRITED,(X+B,Y+B),5:NEXTB,D
640 LINE(26,165)-(232,175),4,BF
650 FORI=1TO2:FORZ=1TO2:PSET(17+I,165+Z),1
660 PRINT#1,"STEFAN SCHMITZ SOFTWARE 1987":NEXTZ,I
670 GOTO670
Read previous mail | Read next mail
| |
