/* compile macros */ filename mc url "https://raw.githubusercontent.com/sasjs/core/main/all.sas"; %inc mc; /* create index.html */ filename ft15f001 temp; parmcards4; options noquotelenmax; data _null_; file _webout lrecl=32767; put 'Space Invaders'; put ''; put ''; put ''; put '
'; put '
'; put '
'; put '

Move with arrow keys or swipe, fire with the space bar or touch. The invaders get faster and drop more bombs as you complete each level!

'; put '

mute | spaceinvaders on github | more projects | dwmkerr.com

'; put ''; put ''; put ''; put ''; put ''; run; ;;;; /* create web service */ %macro outyougo(); %if %substr(%mf_getplatform()XXX,4,1)=V %then %do; filename _game temp; data _null_; file _game; put 'filename _webout filesrvc parenturi="&SYS_JES_JOB_URI" '; put ' name="_webout.html" lrecl=999999;'; run; %mv_createwebservice(path=/Users/&sysuserid/My Folder , name=spaceinvaders , code=_game ft15f001 ,replace=YES ) %end; %else %do; %mm_createwebservice(path=/User Folders/&sysuserid/My Folder , name=spaceinvaders , code=ft15f001 ,replace=YES ) %end; %mend; %outyougo()