1(kern-mk-sprite-set 'ss_u4_shapes 32 32 16 16 0 0 "shapes.png") 2(kern-mk-sprite-set 'ss_frame 16 16 4 4 0 0 "frame.png") 3(kern-mk-sprite-set 'ss_u4_charset 8 16 8 16 0 0 "charset.png") 4 5(kern-mk-sprite 's_null ss_u4_shapes 1 126 #f 0 ) 6(kern-mk-sprite 'ls_whirlpool ss_u4_charset 4 28 #f 0 ) 7 8(kern-mk-sprite 's_frame_ulc ss_frame 1 0 #f 0 ) 9(kern-mk-sprite 's_frame_td ss_frame 1 1 #f 0 ) 10(kern-mk-sprite 's_frame_urc ss_frame 1 2 #f 0 ) 11(kern-mk-sprite 's_frame_endu ss_frame 1 3 #f 0 ) ; top of vertical bar, currently unused 12(kern-mk-sprite 's_frame_tr ss_frame 1 4 #f 0 ) 13(kern-mk-sprite 's_frame_plus ss_frame 1 5 #f 0 ) ; center crosspiece, currently unused 14(kern-mk-sprite 's_frame_tl ss_frame 1 6 #f 0 ) 15(kern-mk-sprite 's_frame_vert ss_frame 1 7 #f 0 ) 16(kern-mk-sprite 's_frame_llc ss_frame 1 8 #f 0 ) 17(kern-mk-sprite 's_frame_tu ss_frame 1 9 #f 0 ) 18(kern-mk-sprite 's_frame_lrc ss_frame 1 10 #f 0 ) 19(kern-mk-sprite 's_frame_endb ss_frame 1 11 #f 0 ) ; bottom of vertical bar, currently unused 20(kern-mk-sprite 's_frame_endl ss_frame 1 12 #f 0 ) 21(kern-mk-sprite 's_frame_horz ss_frame 1 13 #f 0 ) 22(kern-mk-sprite 's_frame_endr ss_frame 1 14 #f 0 ) 23(kern-mk-sprite 's_frame_dot ss_frame 1 15 #f 0 ) ; disconnected disk, currently unused 24 25(kern-set-frame s_frame_ulc 26 s_frame_urc 27 s_frame_llc 28 s_frame_lrc 29 s_frame_td 30 s_frame_tu 31 s_frame_tl 32 s_frame_tr 33 s_null 34 s_frame_horz 35 s_frame_vert 36 s_frame_endl 37 s_frame_endr) 38(kern-set-ascii ss_u4_charset 32) 39(kern-set-cursor ls_whirlpool) 40