90 D$ = CHR$(4): HGR2 :BO = 96: HCOLOR= 3: FOR Y = 0 TO BO STEP BO
100 HCOLOR= 1: FOR Z = Y +18 TO Y +42 STEP 6: HPLOT 1,Z TO 278,Z: NEXT : FOR Z = Y +54 TO Y +78 STEP 6: HPLOT 1,Z TO 278,Z: NEXT
110 HCOLOR= 2: HPLOT 0,Y +6 TO 279,Y +6: HPLOT 0,Y +48 TO 279,Y +48: HPLOT 0,Y +84 TO 279,Y +84: HPLOT 0,Y +90 TO 279,Y +90: HPLOT 0,Y +12 TO 279,Y +12
120 HCOLOR= 3: HPLOT 0,Y +18 TO 0,Y +42: HPLOT 0,Y +54 TO 0,Y +78: HPLOT 279,Y +18 TO 279,Y +42: HPLOT 279,Y +54 TO 279,Y +78
130 HPLOT 5,Y +44 TO 5,Y +45: HPLOT 6,Y +46 TO 8,Y +46: HPLOT 9,Y +45: HPLOT 10,Y +44 TO 10,Y +12: HPLOT 11,Y +11 TO 12,Y +11: HPLOT 13,Y +12 TO 13,Y +18:Z = Y +19: FOR X = 12 TO 6 STEP -1: HPLOT X,Z:Z = Z +1: NEXT
140 HPLOT 6,Y +26: HPLOT 5,Y +27 TO 5,Y +28: HPLOT 4,Y +29 TO 4,Y +30: HPLOT 3,Y +31 TO 3,Y +36: HPLOT 4,Y +37 TO 4,Y +38: HPLOT 5,Y +39: HPLOT 6,Y +40 TO 7,Y +40: HPLOT 8,Y +41 TO 12,Y +41: HPLOT 13,Y +40: HPLOT 14,Y +39
150 HPLOT 15,Y +38 TO 15,Y +34: HPLOT 14,Y +33: HPLOT 13,Y +32: HPLOT 12,Y +31 TO 9,Y +31: HPLOT 8,Y +32: HPLOT 7,Y +33 TO 7,Y +34
160 HPLOT 6,Y +61 TO 4,Y +61 TO 4,Y +60 TO 6,Y +60 TO 6,Y +59 TO 4,Y +59: HPLOT 3,Y +58 TO 3,Y +57: HPLOT 4,Y +56: HPLOT 5,Y +55: HPLOT 6,Y +54 TO 9,Y +54:Z = Y +55: FOR X = 10 TO 13: HPLOT X,Z:Z = Z +1: NEXT
170 HPLOT TO 13,Y +62: HPLOT 12,Y +63 TO 12,Y +64: HPLOT 11,Y +65:Z = Y +66: FOR X = 11 TO 3 STEP -1: HPLOT X,Z:Z = Z +1: NEXT : HPLOT 16,Y +57: HPLOT 16,Y +63
180 NEXT Y
190 FOR K = 1 TO 2000: NEXT : PRINT CHR$(7)
200 TEXT : HOME : VTAB 12: PRINT "OKAY TO SAVE? (Y/N)";: GET G$: PRINT G$: IF G$ = "Y" THEN PRINT D$"BSAVE STAFF,A$4000,L$1FFF"
210 TEXT : END
220 TEXT : PRINT "ERROR #" PEEK(222)" IN LINE #" PEEK(218) +256 * PEEK(219)
