home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / deskmstr.lbr / INIT-DM.BAS < prev   
Encoding:
BASIC Source File  |  1985-02-10  |  896 b   |  24 lines
  1. 10 CLOSE
  2. 50 CL$=CHR$(26):NU$="":EK$=CHR$(27)
  3. 260 PRINT CL$
  4. 265 PRINT STRING$(45,"*")
  5. 267 FOR N=2 TO 21
  6. 270 PRINT "*";
  7. 271 IF N=2 THEN PRINT SPC(7);"Compliments of Donald Jenner";SPC(8);:GOTO 300
  8. 272 IF N=4 THEN PRINT SPC(5);"Washington Market Logical Systems";SPC(5);:
  9. GOTO 300
  10. 273 IF N=8 THEN PRINT SPC(12);"Presenting Desk Master";SPC(9);:GOTO 300
  11. 275 IF N=12 THEN PRINT SPC(9);"Personal Computing Magazine";SPC(7);:GOTO 300
  12. 277 IF N=17 THEN PRINT SPC(15);STRING$(14,"=");SPC(14);:GOTO 300
  13. 279 IF N=15 THEN PRINT SPC(21);"By";SPC(20);:GOTO 300
  14. 282 IF N=10 THEN PRINT SPC(20);"From";SPC(19);:GOTO 300
  15. 284 IF N=18 THEN PRINT SPC(16);"Leon LJ Starr";SPC(14);:GOTO 300
  16. 286 IF N=19 THEN PRINT SPC(15);STRING$(14,"=");SPC(14);:GOTO 300
  17. 293 PRINT SPC(43);
  18. 300 PRINT "*":NEXT
  19. 301 PRINT STRING$(45,"*");
  20. 310 CHAIN "DESK-DM.BAS"
  21. 317 END
  22. ,"=");SPC(14);:GOTO 300
  23. 293 PRINT SPC(43);
  24.