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