home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / GANG-VALIDATED (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  63 lines
  1. 1 REM *********************************
  2. 2 REM * GANG VALIDATED   JAN 87       *
  3. 3 REM *********************************
  4. 4 REM * WILL CORLEY                   *
  5. 5 REM * 7551 TWILIGHT DR.             *
  6. 6 REM * SACRAMENTO, CA                *
  7. 7 REM * 95822                         *
  8. 8 REM *********************************
  9. 9 DC$="":FOR X=1 TO 65:READ A:DC$=DC$+CHR$(A):NEXT
  10. 10 POKE 53280,11:POKE 53281,12:PRINT "[147]"
  11. 11 PRINT TAB(9) "GANG VALIDATED   1541"
  12. 12 PRINT TAB(9) "[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  13. 13 PRINT TAB(8)"(C) 1987 BY WILL CORLEY"
  14. 14 CLOSE 15:FOR X=1 TO 4:D=7+X
  15. 15 OPEN 15,D,15:CLOSE 15:A(X)=ST:NEXT
  16. 16 FOR X=1 TO 4:IF A(X)<>0 THEN 21
  17. 17 D=X+7:CLOSE 15:OPEN 15,D,15
  18. 18 PRINT#15,"M-W" CHR$(0) CHR$(6) CHR$(34) MID$(DC$,1,34)
  19. 19 PRINT#15,"M-W" CHR$(34) CHR$(6) CHR$(31) MID$(DC$,35)
  20. 20 PRINT#15,"M-W" CHR$(12) CHR$(0) CHR$(2) CHR$(18) CHR$(0)
  21. 21 NEXT X:CLOSE 15
  22. 22 FOR X=1 TO 4:IF A(X)<>0 THEN 24
  23. 23 D=X+7:C=11+X:CLOSE C:OPEN C,D,15
  24. 24 NEXT X
  25. 25 FOR X=1 TO 4:IF A(X)<>0 THEN 28
  26. 26 C=11+X
  27. 27 PRINT#C,"M-W" CHR$(3) CHR$(0) CHR$(1) CHR$(224)
  28. 28 NEXT X
  29. 29 FOR X=1 TO 4:IF A(X)<>0 THEN 32
  30. 30 C=11+X
  31. 31 PRINT "CLOSE"C":";
  32. 32 NEXT:PRINT CHR$(20)"[145][145][145]":END
  33. 33 REM ********************************        ********************************
  34. 34 DATA 120,169,1,141,85,2,169,15,133,132
  35. 35 DATA 169,2,133,163,32,189,193,169,86,141
  36. 36 DATA 0,2,169,13,141,1,2,162,6,104
  37. 37 DATA 157,59,6,202,208,249,104,104,169,235
  38. 38 DATA 72,169,232,72,162,1,189,59,6,72
  39. 39 DATA 232,224,7,208,247,169,1,76,105,249
  40. 40 DATA 169,1,76,105,249
  41. 41 REM ********************************
  42. 42 REM * ANOTHER DEMO BY WILL CORLEY  *
  43. 43 REM ********************************
  44. 44 REM * THIS PROGRAM WILL VALIDATE   *
  45. 45 REM * UP TO 4 1541 DRIVES AT THE   *
  46. 46 REM * SAME TIME! NO WAITING FOR    *
  47. 47 REM * CONTROL TO RETURN TO THE C64 *
  48. 48 REM ********************************
  49. 49 REM * IT WOULD BE     
  50. 8276 FOR        *
  51. 50 REM * BULLETIN BOARDS THAT VALIDATE*
  52. 51 REM * A DRIVE AFTER AN ABORTED     *
  53. 52 REM * UPLOAD OR AT 'SIGN-OFF'      *
  54. 53 REM ********************************
  55. 54 REM * IF YOU CHANGE THE '86' IN    *
  56. 55 REM * DATA STATEMENT #35 TO A '73' *
  57. 56 REM * YOU CAN INITIALIZE 4 AT THE  *
  58. 57 REM * SAME TIME!                   *
  59. 58 REM ********************************
  60. 59 REM * DON'T TIE UP YOUR C64, LET   *
  61. 60 REM * YOUR DRIVE DO ALL THE WORK!  *
  62. 61 REM ********************************
  63.