home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / KAYPRO / NDSKMSTR.LBR / INIT.BQS / INIT.BAS
BASIC Source File  |  2000-06-30  |  1KB  |  25 lines
  1. 10 CLOSE
  2. 50 NU$="":EK$=CHR$(27)
  3. 60 FOR LOOP=1 TO 25:PRINT:NEXT LOOP
  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 George Sofaly";SPC(8);:GOTO 300
  8. 272 IF N=4 THEN PRINT SPC(7);"Hawaiian Shell RCP/M 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. 305 PRINT STRING$(45,"*");
  20. 310 ON ERROR GOTO 1000
  21. 320 OPEN "I",1,"PARA.DAT"
  22. 330 CLOSE
  23. 350 CHAIN "DESK.BAS"
  24. 1000 IF ERR=53 AND ERL=320 THEN CLOSE:RUN"INSTALL.BAS"
  25. 1010 END