home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / 014r / protect.zip / UNPROT.BAS < prev    next >
BASIC Source File  |  1984-10-31  |  1KB  |  30 lines
  1. 100 ' -- UNPROT.BAS (DOS 2.0) -- restores files to normal -- By Doug Lankshear
  2. 110 Y=0
  3. 120 FOR I = 1 TO 80:READ X:Y=Y+X:NEXT I
  4. 130 IF Y = 7235 THEN GOTO 190
  5. 140 PRINT "Error in data statements"
  6. 150 PRINT "Correct and restart"
  7. 160 END
  8. 170 '
  9. 180 '
  10. 190 RESTORE
  11. 195 PRINT "Writing UNPROT.COM to disk in drive A: . One moment please."
  12. 200 OPEN "UNPROT.COM" FOR OUTPUT AS #1
  13. 210 FOR I = 1 TO 80
  14. 220 READ X
  15. 230 PRINT #1,CHR$(X);
  16. 240 NEXT I
  17. 250 CLOSE #1
  18. 260 PRINT "UNPROT.COM has been written to disk in drive A: . Enjoy."
  19. 270 END
  20. 280 DATA 190,128,0,254,4,138,28,136
  21. 290 DATA 0,184,0,67,185,0,0,186
  22. 300 DATA 130,0,205,33,60,2,117,10
  23. 310 DATA 180,9,186,48,1,205,33,235
  24. 320 DATA 9,144,128,225,254,184,1,67
  25. 330 DATA 205,33,195,0,0,0,0,0
  26. 340 DATA 66,97,100,32,112,97,116,104
  27. 350 DATA 110,97,109,101,32,111,114,32
  28. 360 DATA 102,105,108,101,32,110,111,116
  29. 370 DATA 32,102,111,117,110,100,13,36
  30.