SUBROUTINE MAZDRW IMPLICIT INTEGER (A-Z) # # THIS SUBROUTINE DRAWS THE INITIAL PACMAN MAZE (BOARD) ON THE VT100 # INCLUDE/NL SY:UVT100.DAT INCLUDE/NL SY:PACMAN.CMN BYTE MAZE(62,24) EQUIVALENCE (MAZE,LN01) DATA LN01 / ULCOR,27*HORIZ,URCOR,4*SPACE,ULCOR,27*HORIZ,URCOR/ DATA LN02 / VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,VERT, 4*SPACE,VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,VERT / DATA LN03 / VERT,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,ULCOR,16*HORIZ, URCOR,DOTCHR,VERT,4*SPACE,VERT,DOTCHR,ULCOR,16*HORIZ,URCOR,DOTCHR, ULCOR,4*HORIZ,URCOR,DOTCHR,VERT / DATA LN04 / VERT,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR,LLCOR,16*HORIZ, LRCOR,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR,LLCOR,16*HORIZ,LRCOR,DOTCHR, LLCOR,4*HORIZ,LRCOR,DOTCHR,VERT / DATA LN05 / VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,VERT / DATA LN06 / VERT,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,ULCOR,4*HORIZ, URCOR,DOTCHR,TRIGHT,12*HORIZ,TDOWN,2*HORIZ,TDOWN,12*HORIZ,TLEFT, DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,VERT / DATA LN07 / VERT,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR,VERT,4*SPACE,VERT, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,VERT,2*SPACE,VERT,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,VERT,4*SPACE,VERT,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR,VERT / DATA LN08 / VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, VERT,4*SPACE,TRIGHT,12*HORIZ,TLEFT,DOTCHR,LLCOR,2*HORIZ,LRCOR, DOTCHR,TRIGHT,12*HORIZ,TLEFT,4*SPACE,VERT,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,VERT / DATA LN09 / TRIGHT,6*HORIZ,URCOR,DOTCHR,VERT,4*SPACE,VERT, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,VERT,4*SPACE,VERT,DOTCHR,ULCOR,6*HORIZ,TLEFT / DATA LN10 / LLCOR,6*HORIZ,LRCOR,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR, ULCOR,12*HORIZ,4*DOOR,12*HORIZ,URCOR,DOTCHR,LLCOR,4*HORIZ,LRCOR, DOTCHR,LLCOR,6*HORIZ,LRCOR / DATA LN11 / SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,VERT,28*SPACE,VERT, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE / DATA LN12 / ULCOR,6*HORIZ,URCOR,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR, LLCOR,28*HORIZ,LRCOR,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,ULCOR, 6*HORIZ,URCOR / DATA LN13 / VERT,6*SPACE,VERT,DOTCHR,VERT,4*SPACE,VERT,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,VERT,4*SPACE,VERT,DOTCHR,VERT,6*SPACE,VERT / DATA LN14 / TRIGHT,6*HORIZ,LRCOR,DOTCHR, LLCOR,4*HORIZ,LRCOR,DOTCHR,TRIGHT,12*HORIZ,TDOWN,2*HORIZ,TDOWN, 12*HORIZ,TLEFT,DOTCHR,LLCOR,4*HORIZ,LRCOR,DOTCHR,LLCOR,6*HORIZ, TLEFT / DATA LN15 / VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,VERT,2*SPACE,VERT, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,VERT / DATA LN16 / VERT,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,ULCOR, 17*HORIZ,URCOR,DOTCHR,VERT,2*SPACE,VERT,DOTCHR,ULCOR,17*HORIZ,URCOR, DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,VERT / DATA LN17 / VERT,DOTCHR,LLCOR,2*HORIZ,URCOR,SPACE,VERT,DOTCHR, LLCOR,17*HORIZ,LRCOR,DOTCHR,LLCOR,2*HORIZ,LRCOR,DOTCHR,LLCOR, 17*HORIZ,LRCOR,DOTCHR,VERT,SPACE,ULCOR,2*HORIZ,LRCOR,,DOTCHR, VERT / DATA LN18 / VERT,DOTCHR,SPACE,DOTCHR,VERT,SPACE,VERT,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,VERT,SPACE,VERT,DOTCHR,SPACE,DOTCHR,SPACE, VERT / DATA LN19 / LLCOR,HORIZ,HORIZ,URCOR,DOTCHR,LLCOR,HORIZ,LRCOR,DOTCHR, ULCOR,4*HORIZ,URCOR,DOTCHR,TRIGHT,12*HORIZ,TDOWN,2*HORIZ,TDOWN, 12*HORIZ,TLEFT,DOTCHR,ULCOR,4*HORIZ,URCOR,DOTCHR,LLCOR,HORIZ,LRCOR, DOTCHR,ULCOR,HORIZ,HORIZ,LRCOR / DATA LN20 / ULCOR,HORIZ,HORIZ,LRCOR,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, VERT,4*SPACE,VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,VERT,2*SPACE,VERT, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,VERT,4*SPACE,VERT,DOTCHR,SPACE,DOTCHR, SPACE,DOTCHR,SPACE,DOTCHR,SPACE,VERT / DATA LN21 / VERT,DOTCHR,ULCOR,6*HORIZ,LRCOR,4*SPACE,LLCOR,12*HORIZ, URCOR,DOTCHR,VERT,2*SPACE,VERT,DOTCHR,ULCOR,12*HORIZ,LRCOR,4*SPACE, LLCOR,6*HORIZ,URCOR,DOTCHR,VERT / DATA LN22 / VERT,DOTCHR,LLCOR,24*HORIZ,LRCOR,DOTCHR,LLCOR,2*HORIZ, LRCOR,DOTCHR,LLCOR,24*HORIZ,LRCOR,DOTCHR,VERT / DATA LN23 / VERT,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE,DOTCHR,SPACE, DOTCHR,SPACE,VERT / DATA LN24 / LLCOR,60*HORIZ,LRCOR / CALL UVT100(ED,2) #ERASE SCREEN CALL UVT100(SCS,0,1) #ASCII CHARACTER SET CALL UVT100(SCS,1,2) #GRAPHICS CHARACTER SET WRITE (5,100) SHFOUT #SELECT GRAPHICS SET DO I = 1,24 [ CALL UVT100(CUP,I,1) WRITE (5,100) (MAZE(J,I),J=1,62) ] ROW = 18 COLUMN = 32 RETURN 100 FORMAT (62A1) END