10 CLOSE
50 CL$=CHR$(26):NU$="":EK$=CHR$(27)
260 PRINT CL$
265 PRINT STRING$(45,"*")
267 FOR N=2 TO 21
270 PRINT "*";
271 IF N=2 THEN PRINT SPC(7);"Compliments of Donald Jenner";SPC(8);:GOTO 300
272 IF N=4 THEN PRINT SPC(5);"Washington Market Logical 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
301 PRINT STRING$(45,"*");
310 CHAIN "DESK-DM.BAS"
317 END