1 'DMPDMP.BA by Gene Nestro
10 CLS:PRINT@40,"Wait a moment please
20 A=64704:T=0
30 RESTORE100
40 READP:IFP>=256THENBEEP:PRINT@125,"Terminated":GOTO60
50 POKEA,P:A=A+1:T=T+P:GOTO40
60 IFT<>(44047)THENPRINT@205,"There is an error":END
70 PRINT@205,"0 error":FORI=0TO1000:NEXTI
75 PRINT@205,"See ";CHR$(27);"p";" XCOPY.CO ";CHR$(27);"q on the MENU !!!":SAVEM"xcopy",64704,65018,64704:END
100 DATA33,145,253,229,126,254,255,202,210
110 DATA252,205,63,109,225,35,195,195,252
120 DATA225,14,0,6,0,121,254,63,202
130 DATA90,253,120,254,240,202,237,252,205
140 DATA26,253,205,112,253,4,195,221,252
150 DATA205,16,253,6,0,12,12,12,120
160 DATA254,240,202,6,253,205,26,253,15
170 DATA205,112,253,4,195,245,252,205,16
180 DATA253,12,12,12,12,195,213,252,229
190 DATA197,62,13,205,63,109,193,225,201
200 DATA38,0,205,134,253,245,180,103,241
210 DATA7,245,180,103,241,205,134,253,7
220 DATA7,245,180,103,241,7,245,180,103
230 DATA241,205,134,253,7,7,7,7,245
240 DATA180,103,241,7,245,180,103,241,205
250 DATA134,253,7,7,7,7,7,7,245
260 DATA180,103,241,7,180,13,13,13,13
270 DATA201,6,0,120,254,240,202,158,253
280 DATA205,134,253,13,103,7,180,205,112
290 DATA253,4,195,92,253,246,128,197,245
300 DATA205,63,109,218,128,253,241,205,63
310 DATA109,193,201,241,193,193,195,158,253
320 DATA229,197,120,105,205,164,253,193,225
330 DATA12,201,30,27,23,27,22,14,27
340 DATA15,27,32,18,13,255,62,30,205
350 DATA63,109,201,103,235,213,205,198,253
360 DATA209,123,230,7,6,1,254,0,202
370 DATA190,253,61,79,120,23,71,121,195
380 DATA176,253,58,236,255,160,200,62,1
390 DATA201,175,245,205,92,118,213,14,254
400 DATA122,12,12,87,214,50,210,207,253
410 DATA6,0,33,67,118,123,23,23,23
420 DATA210,230,253,33,77,118,9,71,205
430 DATA59,117,120,230,192,178,71,30,1
440 DATA33,236,255,205,245,116,209,241,201,999