10 Y=30:DIM U(Y),H(Y),L(Y),J(Y),T1(Y),CA(Y),CD(Y),RT(Y),TR(Y)
20 POKE 53269,0:PRINT"[147]":POKE 53280,11:POKE 53281,11:Y=RND(-TI)
30 ML$="[162]"+CHR$(8)+"[189]<"+CHR$(3)+"[149]X[202]"+CHR$(16)+CHR$(248)+"L[191][163]":POKE 835,0
40 POKE 53272,PEEK(53272)AND 240 OR 12
50 POKE 836,208:POKE 830,0:POKE 831,216:POKE828,0:POKE 829,56:POKE 56334,0
60 POKE 1,51:ML$=ML$:SYS(PEEK(51)+256*PEEK(52)):POKE 1,55:POKE56334,1
70 FOR I=12296 TO 12487:READ J:POKE I,J:NEXT
80 YY=7:XX=12:GOSUB530:PRINT"[159]CUAGI MDACOGKI"
90 YY=11:XX=8:GOSUB530:PRINT"IBJPDM KE LHAYDMN [158]Q[159] KM [158]R
100 [141]700:[139] KT$[179][177]"1" [175] KT$[179][177]"2" [167]100
110 NP[178][197](KT$):[139] NP[178]2 [167] YY[178]15:[137]160
120 COMPUTER[178]1:YY[178]15:XX[178]9:[141]530:[153]"OPENCKJLBODM EGMNO SYSYOPEN KM SYSI
130 GOSUB700:IF KT$<>"Y" AND KT$<>"N" THEN130
140 TU=0:IF KT$="Y" THEN TU=1
150 GOTO190
160 YY=15:XX=7:GOSUB530:PRINT"[159]IBJPDM KE SKYNOGCTN [158]Q[159] KM [158]R
170 [141]700:[139] KT$[179][177]"1" [175] KT$[179][177]"2" [167]170
180 [151] 828,[197](KT$)[171]1:F2[178][194](828)
190 YY[178]19:XX[178]14:[141]530:[153]"OPENLHDAND WAGO"
200 M$[178]"(null)USRUSR(null)CMDCMDCMDCMDSGN  +CMDCMDCMDCMDSGN  +CMDCMDCMDCMD(null)ANDANDSQR":B$[178]"ONONON":PL(0)[178]15:PL(1)[178]10
210 P$(1)[178]"V CMDCMD  ":P$(2)[178]"V CMDCMD V":P$(3)[178]"VVCMDCMD V":P$(4)[178]"VVCMDCMDVV"
220 UP[178]79:LM[178]91:RM[178]251:DN[178]207:CL(0)[178]15:CL(1)[178]10:MV[178]1:MA[178]1:MD[178]1
230 [129] J[178]0 [164] 24:[151] 54272[170]J,0:[135] X:[151] 54272[170]J,X:[130]
240 [129] V[178]1 [164] 30:[135] J(V):[130]
250 SV[178]53248:MX[178]79:MY[178]92:[151] 2042,11:[129] I[178]0 [164]62:[135] Q:[151] 704[170]I,Q:[130]
260 [129] I[178]1 [164] 30:[135] CD(I),CA(I):[130]
270 [151] 53280,6:[151] 53281,6:[153] [199](31)"LOAD";
280 [129] I[178]0 [164] 23:[153]"                                       "
290 [151] 1063[170](40[172]I),160:[151] 55335[170](40[172]I),6:[130]
300 [153]"                                       STOP":[151]2023,160:[151]56295,6
310 [151] 53281,11:[153] [166]14)"OPENCUAGI MDACOGKISTOP"
320 [129] I[178]1 [164] 5:[153] [166]8)M$B$M$B$M$B$M$B$M$B$M$:[130]
330 [153]"                                ":[151] SV[170]41,7:[141]690
340 X[178]TU:[137]370
350 FG[178]0:[129] H[178]1 [164] 30:[139] U(H)[177][178]J(H) [167] FG[178]1:[141]710
360 [130]:[139] FG[178]1 [167]350
370 X[178][171]X[170]1:PN[178]PN[170]1
380 [139] COMPUTER [175] [168] X [167] [151] 53269,0:RD[178]0:[137]970
390 [151] SV[170]41,CL(X):[137]540
400 H[178]MV
410 [139] L(H)[179][177]X[170]1 [175] L(H) [167]380
420 U(H)[178]U(H)[170]1:FS(X)[178]FS(X)[170]1:[139] L(H)[178]0 [167] L(H)[178]X[170]1
430 [141]510:[153] P$(U(H))
440 [139] U(H)[177][178]J(H) [167] [151] 53269,0:[141]710:[137]350
450 [137]370
460 XX[178]15:YY[178]24:[141]530:[153]"OPENFAJD WAITOPENKXDM":[129] Z[178]1 [164] 2000:[130]
470 XX[178]8:YY[178]24:[141]530:[153]"LMDNN WAITOPENEGMDPBOOKI WAITOPENOK WAITOPENLHAY"
480 [146] 56320[170]X[172]F2,16,16:[138]
490 [139] L(O)[179][177]X[170]1 [167] FS(X)[178]FS(X)[170]U(O):FS([171]X[170]1)[178]FS([171]X[170]1)[171]U(O)
500 L(O)[178]X[170]1:U(O)[178]U(O)[170]1:[141]520:[153] P$(U(O)):[142]
510 XX[178]5[170](4[172]CA(H)):YY[178]4[172]CD(H):[151] 646,CL(X):[141]530:[142]
520 XX[178]5[170](4[172]CA(O)):YY[178]4[172]CD(O):[151] 646,CL(X):[141]530:[142]
530 [151] 783,0:[151] 781,YY:[151] 782,XX:[158] 65520:[142]
540 [151] 53269,4
550 JY[178]15[171]([194](56320[170]X[172]F2)[175]15):JB[178][194](56320[170]X[172]F2)[175]16
560 [139] JB[178]0 [167]400
570 [139] JY[178]8 [167] JY[178]3
580 [139] JY[179]1 [176] JY[177]4 [167]550
590 [145] JY [137]600,620,640,660
600 [139] MX[171]4[179]UP [167]550
610 MX[178]MX[171]32:MV[178]MV[171]6:MD[178]MD[171]1:[137]680
620 [139] MX[170]4[177]DN [167]550
630 MX[178]MX[170]32:MV[178]MV[170]6:MD[178]MD[170]1:[137]680
640 [139] MY[170]4[177]RM [167]550
650 MY[178]MY[170]32:MV[178]MV[170]1:MA[178]MA[170]1:[137]680
660 [139] MY[171]4[179]LM [167]550
670 MY[178]MY[171]32:MV[178]MV[171]1:MA[178]MA[171]1
680 [141]690:[137]550
690 [151] SV[170]4,MY:[151] SV[170]5,MX:[142]
700 KT$[178]"":[151] 198,0:[146] 198,1:[161] KT$:[142]
710 [151] 54276,64:[151] 54290,128:[151] 24276,65:[151] 54290,129:[129] V[178]1 [164] 4
720 [141]510:[151] 646,PL(X):[153]"ONCMD"M$:[141]510:[153]"STOPONCMD"M$
730 [129] TD[178]1 [164] 125:[130]:[130]
740 U(H)[178]U(H)[171]J(H)
750 [139] U(H)[177]0 [167] [141]510:[153] P$(U(H)):[137]770
760 L(H)[178]0
770 [139] CD(H)[178]1 [167]790
780 O[178]H[171]6:[141]490
790 [139] CA(H)[178]1 [167]810
800 O[178]H[171]1:[141]490
810 [139] CA(H)[178]6 [167]830
820 O[178]H[170]1:[141]490
830 [139] CD(H)[178]5 [167]850
840 O[178]H[170]6:[141]490
850 [139] FS(0)[179]1 [176] FS(1)[179]1 [167]460
860 [142]
870 LP[178]0:[139] CD(H)[178]1 [167]890
880 [139] L(H[171]6)[178]2 [167] KZ[178]H[171]6:[137]960
890 [139] CA(H)[178]1 [167]910
900 [139] L(H[171]1)[178]2 [167] KZ[178]H[171]1:[137]960
910 [139] CA(H)[178]6 [167]930
920 [139] L(H[170]1)[178]2 [167] KZ[178]H[170]1:[137]960
930 [139] CD(H)[178]5 [167] [142]
940 [139] L(H[170]6)[178]2 [167] KZ[178]H[170]6:[137]960
950 [142]
960 LP[178]1:[142]
970 [129] I[178]1 [164] 30:RT(I)[178]0:TR(I)[178]0:[130]
980 XT[178]0:[129] I[178]1 [164] 30:[139] L(I)[178]2 [167]1000
990 T1(XT[170]1)[178]I:XT[178]XT[170]1
1000 [130]:RD[178]0
1010 XX[178]16:YY[178]24:[141]530:[153]"OPENOUGITGIF"
1020 [129] I[178]30 [164] 30[171]XT [169][171]1:RT(I)[178]0:[130]:[129] I[178]1 [164] XT
1030 H[178]T1(I):[141]870
1040 [139] FG[178]1 [175] LP [175] U(H)[177]0 [167]1220
1050 [139] U(H)[170]1[178]J(H) [175] LP[178]1 [175] U(KZ)[170]1[178]J(KZ) [167] RT(I)[178]6:[137]1170
1060 [139] U(H)[170]1[178]J(H) [175] LP[178]1 [167] RT(I)[178]2:[137]1170
1070 [139] U(H)[170]1[178]J(H) [175] LP[178]0 [167] RT(I)[178]1:[137]1170
1080 [139] J(H)[178]2 [175] LP[178]0 [175] U(H)[178]1 [167] RT(I)[178]1:[137]1170
1090 [139] J(H)[178]2 [175] LP[178]0 [175] U(H)[178]0 [167] RT(I)[178]4:[137]1170
1100 [139] J(H)[178]2 [175] LP[178]1 [175] U(H)[178]1 [167] RT(I)[178]4:[137]1170
1110 [139] U(KZ)[170]1[178]J(KZ) [167] RT(I)[178]1:[137]1170
1120 [139] U(H)[170]2[177][178]J(H) [175] LP[178]1 [175] U(KZ)[170]1[179] J(KZ) [167] RT(I)[178]5:[137]1170
1130 [139] U(H)[170]2[177][178]J(H) [175] LP[178]0 [167] RT(I)[178]3:[137]1170
1140 [139] U(H)[170]2[177][178]J(H) [167] RT(I)[178]2:[137]1170
1150 [139] LP[178]0 [167] RT(I)[178]2:[137]1170
1160 RT(I)[178]1
1170 [130] I:TC[178]1:ZT[178]0:AB[178]6
1180 [129] I[178]1 [164] XT:[139] RT(I)[178]AB [167] TR(TC)[178]I:ZT[178]ZT[170]1:TC[178]TC[170]1
1190 [130]:[139] ZT[177]0 [167]1210
1200 AB[178]AB[171]1:[137]1180
1210 DH[178][181](ZT[172][187](1))[170]1:HD[178]TR(DH):H[178]T1(HD)
1220 XX[178]15:YY[178]24:[141]530:[153]"           ":FG[178]FG[170]1:[137]410
1230 [131] 126,102,102,126,102,102,102,0,102,102,102,102,102,102,126,0
1240 [131] 126,98,96,96,96,98,126,0,126,98,96,120,96,98,126,0,126,98
1250 [131] 98,120,96,96,96,0,126,102,96,110,102,102,126,0,126,90,24,24
1260 [131] 24,90,126,0,96,96,96,96,98,98,126,0,102,118,126,126,110,102
1270 [131] 102,0,99,119,127,107,99,99,99,0,126,102,102,102,102,102,126
1280 [131] 0,126,102,102,126,96,96,96,0,126,102,102,126,120,108,102,0
1290 [131] 126,102,96,126,6,102,126,0,126,90,24,24,24,24,24,0,124,102
1300 [131] 102,124,102,102,124,0,56,24,24,24,24,24,60,0,60,54,6,12,48
1310 [131] 48,62,0,30,12,12,12,12,108,124,0,230,108,120,112,120,108
1320 [131] 230,0,231,102,102,126,102,102,231,0,0,8,16,124,222,190,254
1330 [131] 124,198,198,198,214,254,238,198,0,231,102,102,102,102,60,24
1340 [131] 0,0,4,0,12,64,10,0,0,0,0,12,64,12,0,0,4,0,12,128,12,0,0,50
1350 [131] 244,47,2,3,3,3,3,2,3,4,4,4,4,3,3,4,4,4,4,3,3,4,4,4,4,3,2,3
1360 [131] 3,3,3,2,0,0,0,0,0,0,120,0,30,192,0,3,192,0,3,192,0,3,0,0,0
1370 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,192,0
1380 [131] 3,192,0,3,192,0,3,120,0,30,0,0,0,1,1,1,2,1,3,1,4,1,5,1,6,2,1
1390 [131] 2,2,2,3,2,4,2,5,2,6,3,1,3,2,3,3,3,4,3,5,3,6,4,1,4,2,4,3,4
1400 [131] 4,4,5,4,6,5,1,5,2,5,3,5,4,5,5,5,6