home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASIC00.ZIP / CAPSLOCK.BAS next >
Encoding:
BASIC Source File  |  1987-01-11  |  378 b   |  13 lines
  1. 10 REM CAPSLOCK.TXT (WRITES CAPSLOCK.COM)
  2. 15 FOR I = 1 TO 13: READ N:C=C+N:NEXT
  3. 20 READ N:IF N<>C THEN 60
  4. 25 RESTORE:OPEN "R",#1,"CAPSLOCK.COM",1
  5. 30 FIELD #1,1 AS N$
  6. 35 FOR I=1 TO 13:READ N:LSET N$=CHR$(N)
  7. 40 PUT 1:NEXT:CLOSE:PRINT "** CREATED **"
  8. 45 END
  9. 50 DATA 184,64,0,142,216,187,23,0,128
  10. 55 DATA 15,64,205,32,1260
  11. 60 PRINT "*** ERROR - VERIFY DATA ***"
  12. 65 END
  13.