10 CLOSE
50 NU$="":EK$=CHR$(27)
60 FOR LOOP=1 TO 25:PRINT:NEXT LOOP
265 PRINT STRING$(45,"*")
267 FOR N=2 TO 21
270 PRINT "*";
271 IF N=2 THEN PRINT SPC(7);"Compliments of George Sofaly";SPC(8);:GOTO 300
272 IF N=4 THEN PRINT SPC(7);"Hawaiian Shell RCP/M Systems   ";SPC(5);:

GOTO 300
273 IF N=8 THEN PRINT SPC(12);"Presenting Desk Master";SPC(9);:GOTO 300
275 IF N=12 THEN PRINT SPC(9);"Personal Computing Magazine";SPC(7);:GOTO 300
277 IF N=17 THEN PRINT SPC(15);STRING$(14,"=");SPC(14);:GOTO 300
279 IF N=15 THEN PRINT SPC(21);"By";SPC(20);:GOTO 300
282 IF N=10 THEN PRINT SPC(20);"From";SPC(19);:GOTO 300
284 IF N=18 THEN PRINT SPC(16);"Leon LJ Starr";SPC(14);:GOTO 300
286 IF N=19 THEN PRINT SPC(15);STRING$(14,"=");SPC(14);:GOTO 300
293 PRINT SPC(43);
300 PRINT "*":NEXT
305 PRINT STRING$(45,"*");
310 ON ERROR GOTO 1000
320 OPEN "I",1,"PARA.DAT"
330 CLOSE
350 CHAIN "DESK.BAS"
1000 IF ERR=53 AND ERL=320 THEN CLOSE:RUN"INSTALL.BAS"
1010 END