home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / colo / cls.bas < prev    next >
BASIC Source File  |  1984-10-05  |  512b  |  12 lines
  1. 10 SUM=0: READ CHECKSUM
  2. 20 FOR N=1 TO 27: READ X: SUM=SUM+X: NEXT
  3. 30 IF SUM<>CHECKSUM THEN PRINT "ERROR, CHK DATA": END
  4. 40 RESTORE: READ X
  5. 50 OPEN "R",1,"CLS.COM",1
  6. 60 FIELD 1,1 AS X$: FOR I=1 TO 27: READ X:LSET X$=CHR$(X):PUT 1:NEXT
  7. 70 DATA 2395,30,43,192,80,184,0,6,185,0,0,186,79 
  8. 80 DATA 24,183,7,205,16,180,2,186,0,0,183,0,205,16,203
  9. 90 REM    CREATES THE FILE CLS.COM ON THE DISK
  10. 100 REM TYPING CLS WHILE IN DOS WILL CLEAR THE DISPLAY
  11. ,0,0,183,0,205,16,203
  12. 90 REM    CREATES THE FILE CLS.COM ON