home *** CD-ROM | disk | FTP | other *** search
- 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 ********************************
-