10 DIM SCREEN$(320),A$(20),B$(320),FILNAM$(15),RM$(3),RP$(3),RT$(3)›20 ? "ENTER FILENAME";:INPUT FILNAM$›45 OPEN #1,8,0,FILNAM$›47 GOSUB 1100›50 FOR I=1 TO 16›70 ? #1;SCREEN$((I-1)*20+1,I*20)›75 NEXT I›77 ? #1;XPOS:? #1;YPOS:? #1;BOXES›78 ? #1;0:? #1;"AAA":? #1;0:? #1;"AAA":? #1;0:? #1;"AAA"›80 CLOSE #1›81 XPOS=0:YPOS=0:BOXES=0›83 OPEN #1,4,0,FILNAM$›85 FOR I=1 TO 16›100 INPUT #1;A$›102 B$((I-1)*20+1,I*20)=A$›103 NEXT I›104 INPUT #1;XPOS:INPUT #1;YPOS:INPUT #1;BOXES:INPUT #1;RM:INPUT #1;RM$:INPUT #1;RP:INPUT #1;RP$:INPUT #1;RT›105 INPUT #1;RT$:CLOSE #1›110 FOR I=1 TO 16›120 ? B$((I-1)*20+1,I*20)›140 NEXT I›150 ? XPOS,YPOS,BOXES›160 END ›1100 SCREEN$(1,20)="                    "›1105 SCREEN$(21,40)="                    "›1110 SCREEN$(41,60)="    BBBBB           "›1115 SCREEN$(61,80)="    B   B           "›1120 SCREEN$(81,100)="    Bc  B           "›1125 SCREEN$(101,120)="  BBB  cBB          "›1130 SCREEN$(121,140)="  B  c c B          "›1135 SCREEN$(141,160)="BBB B BB B   BBBBBB "›1140 SCREEN$(161,180)="B   B BB BBBBB  ΔΔB "›1145 SCREEN$(181,200)="B c  c          ΔΔB "›1150 SCREEN$(201,220)="BBBBB BBB BαBB  ΔΔB "›1155 SCREEN$(221,240)="    B     BBBBBBBBB "›1160 SCREEN$(241,260)="    BBBBBBB         "›1165 SCREEN$(261,280)="                    "›1170 SCREEN$(281,300)="                    "›1175 SCREEN$(301,320)="                    "›1180 XPOS=12:YPOS=11:BOXES=6›1185 RETURN ›