Source Code
5 DIM A$(16,1)
10 FOR B=1 TO 4
20 LET A$(B)="%X"
30 LET A$(4+B)="%:"
40 LET A$(8+B)="%O"
50 LET A$(12+B)="% "
60 NEXT B
70 FOR T=1 TO 60000
75 IF INKEY$="1" THEN GOSUB 1000
120 IF INKEY$="2" THEN GOSUB 1120
130 IF INKEY$="3" THEN GOSUB 1130
140 IF INKEY$="4" THEN GOSUB 1140
150 IF INKEY$="Q" THEN GOSUB 1150
160 IF INKEY$="W" THEN GOSUB 1160
170 IF INKEY$="E" THEN GOSUB 1170
180 IF INKEY$="R" THEN GOSUB 1180
190 IF INKEY$="A" THEN GOSUB 1190
200 IF INKEY$="S" THEN GOSUB 1200
210 IF INKEY$="D" THEN GOSUB 1210
220 IF INKEY$="F" THEN GOSUB 1220
230 IF INKEY$="Z" THEN GOSUB 1230
240 IF INKEY$="X" THEN GOSUB 1240
250 IF INKEY$="C" THEN GOSUB 1250
260 IF INKEY$="V" THEN GOSUB 1260
400 PRINT AT 2,7;"%=%=%=%=%=%=%=%=%=%=%=%=%=%=%=%="
405 PRINT AT 3,7;"% %S%P%I%N%N%E%R % T.M."
410 PRINT AT 4,7;"% %=%=%=%=%=%=%=%=%=%=%= % "
411 PRINT AT 5,7;"% % % % "
412 PRINT AT 6,7;"% %X% % %X% "
413 PRINT AT 7,7;"% % % % "
414 PRINT AT 8,7;"% %:% % %:% "
415 PRINT AT 9,7;"% % % % "
416 PRINT AT 10,7;"% %O% % %O% "
417 PRINT AT 11,7;"% % % % "
418 PRINT AT 12,7;"%=%=%= %=%=%="
419 PRINT AT 13,7;"% % % % "
423 PRINT AT 14,7;"% % %*%*%*%*%*%*%*%*%*% % "
425 PRINT AT 15,7;"% % "
430 PRINT AT 16,7;"%=%=%=%=%=%=%=%=%=%=%=%=%=%=%="
500 FOR A=1 TO 4
510 PRINT AT 6,(9+2*A);A$(A);" "
520 PRINT AT 8,(9+2*A);A$(4+A);" "
530 PRINT AT 10,(9+2*A);A$(8+A);" "
540 PRINT AT 12,(9+2*A);A$(12+A);" "
550 NEXT A
560 PAUSE 60000
570 NEXT T
\n1000 LET B$=A$(2)
\n1010 LET A$(2)=A$(13)
\n1020 LET A$(13)=A$(4)
\n1030 LET A$(4)=A$(5)
\n1040 LET A$(5)=B$
\n1050 RETURN
\n1120 LET B$=A$(3)
\n1122 LET A$(3)=A$(14)
\n1124 LET A$(14)=A$(1)
\n1126 LET A$(1)=A$(6)
\n1128 LET A$(6)=B$
\n1129 RETURN
\n1130 LET B$=A$(4)
\n1132 LET A$(4)=A$(15)
\n1134 LET A$(15)=A$(2)
\n1136 LET A$(2)=A$(7)
\n1138 LET A$(7)=B$
\n1139 RETURN
\n1140 LET B$=A$(1)
\n1142 LET A$(1)=A$(16)
\n1144 LET A$(16)=A$(3)
\n1146 LET A$(3)=A$(8)
\n1148 LET A$(8)=B$
\n1149 RETURN
\n1150 LET B$=A$(6)
\n1152 LET A$(6)=A$(1)
\n1154 LET A$(1)=A$(8)
\n1156 LET A$(8)=A$(9)
\n1158 LET A$(9)=B$
\n1159 RETURN
\n1160 LET B$=A$(7)
\n1162 LET A$(7)=A$(2)
\n1164 LET A$(2)=A$(5)
\n1166 LET A$(5)=A$(10)
\n1168 LET A$(10)=B$
\n1169 RETURN
\n1170 LET B$=A$(8)
\n1172 LET A$(8)=A$(3)
\n1174 LET A$(3)=A$(6)
\n1176 LET A$(6)=A$(11)
\n1178 LET A$(11)=B$
\n1179 RETURN
\n1180 LET B$=A$(5)
\n1182 LET A$(5)=A$(4)
\n1184 LET A$(4)=A$(7)
\n1186 LET A$(7)=A$(12)
\n1188 LET A$(12)=B$
\n1189 RETURN
\n1190 LET B$=A$(10)
\n1192 LET A$(10)=A$(5)
\n1194 LET A$(5)=A$(12)
\n1196 LET A$(12)=A$(13)
\n1198 LET A$(13)=B$
\n1199 RETURN
\n1200 LET B$=A$(11)
\n1202 LET A$(11)=A$(6)
\n1204 LET A$(6)=A$(9)
\n1206 LET A$(9)=A$(14)
\n1208 LET A$(14)=B$
\n1209 RETURN
\n1210 LET B$=A$(12)
\n1212 LET A$(12)=A$(7)
\n1214 LET A$(7)=A$(10)
\n1216 LET A$(10)=A$(15)
\n1218 LET A$(15)=B$
\n1219 RETURN
\n1220 LET B$=A$(9)
\n1222 LET A$(9)=A$(8)
\n1224 LET A$(8)=A$(11)
\n1226 LET A$(11)=A$(16)
\n1228 LET A$(16)=B$
\n1229 RETURN
\n1230 LET B$=A$(14)
\n1232 LET A$(14)=A$(9)
\n1234 LET A$(9)=A$(16)
\n1236 LET A$(16)=A$(1)
\n1238 LET A$(1)=B$
\n1239 RETURN
\n1240 LET B$=A$(15)
\n1242 LET A$(15)=A$(10)
\n1244 LET A$(10)=A$(13)
\n1246 LET A$(13)=A$(2)
\n1248 LET A$(2)=B$
\n1249 RETURN
\n1250 LET B$=A$(16)
\n1252 LET A$(16)=A$(11)
\n1254 LET A$(11)=A$(10)
\n1256 LET A$(10)=A$(3)
\n1258 LET A$(3)=B$
\n1259 RETURN
\n1260 LET B$=A$(13)
\n1262 LET A$(13)=A$(12)
\n1264 LET A$(12)=A$(15)
\n1266 LET A$(15)=A$(4)
\n1268 LET A$(4)=B$
\n1269 RETURN
\n1270 CLEAR
\n1280 SAVE "1026%8"
\n1290 RUN
