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