home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / SAMPLE02.ZIP / CALEPSON.BAS < prev    next >
BASIC Source File  |  1983-02-13  |  640b  |  12 lines
  1. 1440 T$ = STRING$(4,157)+CHR$(152) : M$(1)=CHR$(134)+T$+T$+T$+T$+T$+T$+STRING$(4,157)+CHR$(149)
  2. 1450 T$ = "    "+CHR$(156) : M$(2)=CHR$(156)+T$+T$+T$+T$+T$+T$+"    "+CHR$(156):M$(3)=M$(2)
  3. 1480 T$ = STRING$(4,157)+CHR$(159) : M$(4)=CHR$(150)+T$+T$+T$+T$+T$+T$+STRING$(4,157)+CHR$(151)
  4. 1490 T$ = STRING$(4,157)+CHR$(158) : M$(19)=CHR$(153)+T$+T$+T$+T$+T$+T$+STRING$(4,157)+CHR$(154)
  5. 1500 FOR I = 5 TO 18:M$(I) = M$(I-3):NEXT I
  6. 1740 IF YR = 4 THEN DAYS(2)=29
  7. 1750 IF YR = 8 THEN DAYS(2)=29
  8. 65000 '         SAVE"calepson",a
  9. O 18:M$(I) = M$(I-3):NEXT I
  10. 1740 IF YR = 4 THEN DAYS(2)=29
  11. 1750 IF YR = 8 THEN DAYS(2)=29
  12. 65000 '         SA