10 CLS:T=1
25 READA,B:IFA<>TTHEN90
30 READC:IFC=0THEN25
35 IFB>79THEN30
40 IFC=45ANDD(1)=0THEND(1)=B
42 IFC=46ANDD(2)=0THEND(2)=B
43 IFC=43ANDD(3)=0THEND(3)=B
44 IFC=44ANDD(4)=0THEND(4)=B
45 IFC=29ANDD(5)=0THEND(5)=B
46 IFC=30ANDD(6)=0THEND(6)=B
48 IFC=60ORC=62ORC=63ORC=64THENPRINT"ROOM"A;C,:INPUT"HIT ENTER";I$
80 GOTO30
90 PRINTRIGHT$(STR$(9300+T),4)" DATA";:FORZ=1TO5:PRINTSTR$(D(Z))",";:NEXT:PRINTSTR$(D(Z))
95 IFA<>99THENFORZ=1TO6:D(Z)=0:NEXT:T=T+1:GOTO30
100 END
9001 DATA1,2,2,44,0
9002 DATA1,3,3,12,19,43,0
9003 DATA1,4,4,5,13,14,46,30,0
9004 DATA1,5,6,45,43,0
9005 DATA1,8,49,0
9006 DATA2,1,8,2,12,7,43,45,30,0
9007 DATA2,5,6,45,46,0
9008 DATA3,1,3,11,32,44,0
9009 DATA3,11,48,0
9010 DATA3,33,65,0
9011 DATA3,79,5,14,0
9012 DATA4,1,4,45,0
9013 DATA4,5,6,43,44,29,0
9014 DATA4,7,5,46,30,0
9015 DATA4,8,49,0
9016 DATA5,4,9,43,30,0
9017 DATA5,300,6,7,8,45,0
9018 DATA5,5,44,46,0
9019 DATA6,1,2,45,0
9020 DATA6,4,9,43,44,30,0
9021 DATA6,5,6,46,0
9022 DATA7,1,12,0
9023 DATA7,4,4,45,0
9024 DATA7,5,6,43,44,0
9025 DATA7,8,5,15,16,46,30,0
9026 DATA7,24,47,14,30,0
9027 DATA8,5,6,43,44,46,0
9028 DATA8,1,12,0
9029 DATA8,7,4,13,45,0
9030 DATA8,301,3,5,19,30,0
9031 DATA9,302,11,12,0
9032 DATA9,10,17,18,19,44,0
9033 DATA9,14,31,0
9034 DATA9,11,51,0
9035 DATA10,9,11,20,21,43,0
9036 DATA10,11,19,22,44,51,0
9037 DATA10,14,31,0
9038 DATA11,310,49,0
9039 DATA11,10,17,18,23,24,43,0
9040 DATA11,12,25,305,19,29,44,0
9041 DATA11,3,48,0
9042 DATA11,14,31,0
9043 DATA12,310,49,0
9044 DATA12,11,30,43,51,0
9045 DATA12,13,19,29,44,0
9046 DATA12,14,31,0
9047 DATA13,310,49,0
9048 DATA13,11,51,0
9049 DATA13,12,25,305,43,0
9050 DATA13,14,23,31,44,0
9051 DATA14,310,49,0
9052 DATA14,11,51,0
9053 DATA14,13,23,43,0
9054 DATA14,303,30,31,34,0
9055 DATA14,16,33,44,0
9056 DATA15,18,36,46,0
9057 DATA15,17,7,38,44,0
9058 DATA15,19,10,30,45,0
9059 DATA15,304,29,31,34,35,23,43,0
9060 DATA15,34,55,0
9061 DATA15,62,69,0
9062 DATA16,14,1,0
9063 DATA17,15,8,38,43,0
9064 DATA17,305,7,0
9065 DATA17,306,40,41,42,44,19,39,0
9066 DATA18,15,38,11,8,45,0
9067 DATA19,15,10,29,43,0
9068 DATA19,307,45,36,0
9069 DATA19,308,46,37,0
9070 DATA19,309,44,7,0
9071 DATA19,74,66,0
9072 DATA20,26,1,0
9073 DATA21,26,1,0
9074 DATA22,15,1,0
9075 DATA23,8,1,0
9076 DATA24,7,1,0
9077 DATA25,9,1,0
9078 DATA27,17,8,11,38,0
9079 DATA27,40,45,0
9080 DATA27,41,44,0
9081 DATA28,19,38,11,46,0
9082 DATA28,33,45,0
9083 DATA28,36,30,52,0
9084 DATA29,19,38,11,45,0
9085 DATA30,19,38,11,43,0
9086 DATA30,62,44,29,0
9087 DATA31,17,1,0
9088 DATA32,19,1,0
9089 DATA33,3,65,0
9090 DATA33,28,46,0
9091 DATA33,34,43,53,54,0
9092 DATA33,35,44,0
9093 DATA34,33,30,0
9094 DATA34,15,29,0
9095 DATA35,33,43,55,0
9096 DATA36,37,43,17,0
9097 DATA36,28,29,52,0
9098 DATA36,39,44,0
9099 DATA37,36,44,17,0
9100 DATA37,38,30,31,56,0
9101 DATA38,37,56,29,0
9102 DATA39,36,43,0
9103 DATA39,64,30,52,58,0
9104 DATA39,65,70,0
9105 DATA40,41,1,0
9106 DATA41,42,46,29,23,56,0
9107 DATA41,27,43,0
9108 DATA41,59,45,0
9109 DATA41,60,44,17,0
9110 DATA42,41,44,0
9111 DATA42,43,43,0
9112 DATA42,44,46,0
9113 DATA43,42,44,0
9114 DATA43,44,46,0
9115 DATA43,45,43,0
9116 DATA44,42,45,0
9117 DATA44,43,43,0
9118 DATA44,48,30,0
9119 DATA44,50,46,0
9120 DATA45,43,45,0
9121 DATA45,46,43,0
9122 DATA45,47,46,0
9123 DATA46,45,44,11,0
9124 DATA47,45,45,11,0
9125 DATA48,44,29,11,0
9126 DATA49,50,30,43,0
9127 DATA49,51,44,0
9128 DATA50,44,43,0
9129 DATA50,49,44,29,0
9130 DATA50,52,46,0
9131 DATA51,49,44,0
9132 DATA51,52,43,0
9133 DATA51,53,46,0
9134 DATA52,50,45,0
9135 DATA52,51,44,0
9136 DATA52,53,29,0
9137 DATA52,55,43,0
9138 DATA53,51,44,0
9139 DATA53,52,45,0
9140 DATA53,54,46,0
9141 DATA54,53,43,11,0
9142 DATA55,52,44,0
9143 DATA55,56,30,0
9144 DATA055,57,43,0
9145 DATA56,55,29,11,0
9146 DATA57,55,44,0
9147 DATA57,58,46,0
9148 DATA57,13,30,56,0
9149 DATA58,57,44,11,0
9150 DATA59,27,1,0
9151 DATA60,41,43,29,0
9152 DATA60,61,44,0
9153 DATA60,62,45,30,0
9154 DATA61,60,43,11,0
9155 DATA62,60,44,0
9156 DATA62,63,45,0
9157 DATA62,30,43,0
9158 DATA62,15,46,0
9159 DATA63,62,46,11,0
9160 DATA64,39,29,56,59,0
9161 DATA64,65,44,0
9162 DATA65,64,43,0
9163 DATA65,66,44,0
9164 DATA65,68,61,0
9165 DATA65,311,46,0
9166 DATA65,312,29,0
9167 DATA66,313,45,0
9168 DATA66,65,60,0
9169 DATA66,67,44,0
9170 DATA66,77,25,0
9171 DATA66,314,46,0
9172 DATA67,66,43,0
9173 DATA67,72,60,0
9174 DATA68,66,46,0
9175 DATA68,69,29,0
9176 DATA69,68,30,0
9177 DATA69,74,46,0
9178 DATA70,71,45,0
9179 DATA71,39,29,0
9180 DATA71,65,62,0
9181 DATA71,70,46,0
9182 DATA72,67,63,0
9183 DATA72,73,45,0
9184 DATA73,72,46,0
9185 DATA74,19,43,0
9186 DATA74,69,44,0
9187 DATA74,75,30,0
9188 DATA75,76,46,0
9189 DATA75,77,45,0
9190 DATA76,75,45,0
9191 DATA77,75,43,0
9192 DATA77,78,44,0
9193 DATA77,66,45,0
9194 DATA78,77,46,0
9195 DATA79,3,1,0
9196 DATA99,99
