R…Œ *********************************************** REM * Žƒ€ŒŒ€ …„€Š’ˆŽ‚€ˆŸ ‡€ŠŽƒ……€’ŽŽ‚ * REM *********************************************** REM BASE:= ˆ†ˆŒ Š€‰ “”…€ Žƒ€ŒŒ€’Ž€ ‡“ REM ‚ €„…‘ŽŒ Ž‘’€‘’‚… ŠŽŒœž’…€ REM ST$:= ‘’ŽŠ€, ‘Ž„…†€™€Ÿ ŠŽ„› Š‹€‚ˆ˜ ŠŽŒ€„ REM …„€Š’ˆŽ‚€ˆŸ (KEYPAD)  REM ‡คฅแ์ จแฏฎซ์งใฅโแ๏  ซไ ขจโญ ๏ ชซ ขจ โใเ . 10 BASE=1024: REM “”… €‘Ž‹Ž†… ‘ €„…‘€ 2800 REM ‚ˆŒ€ˆ…! …‘‹ˆ ˆ‘Ž‹œ‡“…’‘Ÿ ˆ’……’€’Ž REM BASIC ‘ €‚’ŽŒ€’ˆ—…‘ŠŽ‰ €‘’Ž‰ŠŽ‰ € €‡Œ… REM Ž‡“, Ž‹€‘’œ „‹Ÿ “”…€ „€›• Žƒ€ŒŒ€’Ž€ REM „Ž‹†€ ›’œ ‚›„…‹…€ „Ž …ƒŽ ‡€ƒ“‡Šˆ  20 ST$="LD]BJFZNE@": REM “€‚‹…ˆ… …„€Š’ŽŽŒ 30 PRINT CHR"(31):PRINT:PRINT "***Ž„ƒŽ’Ž‚Š€ ", 40 PRINT "‡€ŠŽƒ……€’Ž€***" REM --- ˆ‘Ž‚€ˆ… €ŒŠˆ ‡€ŠŽŒ…‘’€ ˆ €„ˆ‘ˆ ---- 100 •=10:Y=10: GOSUB 9100: PRINT "+--------+" 110 X=10: Y=19: GOSUB 9100: PRINT "+--------+" 120 FOR I=11 TO 18: X=10: Y=I: GOSUB 9100 130 PRINT"! !": NEXT 140 X=23:Y=11:GOSUB 9100:PRINT"POƒPAMMˆP“EM" 150 PRINT TAB (23); "‡€ŠŽƒ……€’Ž" 160 PRINT TAB (23); "„‹Ÿ ŠŽ„€:": REM ‚›‚…‘’ˆ Ž„‘Š€‡Š“ REM ------- Ž‘Ž‚€Ÿ Ž–…„“€ …„€Š’ˆŽ‚€ˆŸ -------- 300 X=32:Y=13: GOSUB 9100: INPUT CODE:START=CODE*8 310 X=11:Y=11: GOSUB 9100 320 FOR I=0 TO 7:Y=11+I:BYTE=PEEK(BASE+START-I) 330 GOSUB 9000:NEXT:X=11:Y=11:GOSUB 9100 340 KEY$=CHR$(USR(-2045)):IF ASC(KEY$)=0 THEN 340 REM *** ‘Ž’ˆŽ‚Š€ „ˆ…Š’ˆ‚ …„€Š’ˆŽ‚€ˆŸ *** 350 FOR N=1 TO 10: IF KEY$=MID$(ST$,N,1) THEN 390 360 NEXT: GOTO 340 R…Œ ------ ˆ‘Ž‹…ˆ… „ˆ…Š’ˆ‚ …„€Š’ˆŽ‚€ˆŸ ---=-- 390 ON N GOT0400,420,440,460,480,500,520,540,900,300 R…Œ ------ “€‚‹…ˆ… „‚ˆ†…ˆ…Œ Š“‘Ž€ -------- 400 IF •<=11 THEN 340 410 X=X-1: GOSUB 9100: GOTO 340 420 IF X>=18 THEN 340 430 X=X+1: GOSUB 9100: GOTO 340 440 IF Y<=11 THEN 340 450 Y=Y-1: GOSUB 9100: GOTO 340 460 IF Y>=18 THEN 340 470 Y=Y+1: GOSUB 9100: GOTO 340 REM ------- “‘’€Ž‚Š€ ˆ’€ ‚ “‹œ --------- 480 GOSUB9100:PRINT" ":GOSUB9100:ADR=BASE+START+Y-11 490 BT=PEEK(ADR) AND NOT (2^(18-• )): POKE ADDR,BT 495 GOTO 340 REM --------- “‘’€Ž‚Š€ ˆ’€ ‚ …„ˆˆ–“ ----- 500 GOSUB9100:PRINT CHR$(127):GOSUB 9100 510 ADR=BASE+START+Y-11 515 POKE ADR,(PEEK (ADR) OR (2^(18-•))): GOTO 340 REM -- Ž“‹…ˆ… ‘Ž„…†ˆŒŽƒŽ ‡€ŠŽŒ…‘’€ (8 €‰’) -- 520 FOR I=0 TO 7:POKE(BASE+START+I),0:NEXT:GOTO 310 R…Œ ----- ˆ‚…‘ˆŸ ‘Ž„…†ˆŒŽƒŽ ‡€ŠŽŒ…‘’€ ------ 540 FOR I=0 ’Ž 7:ADR=BASE+START+I:B=NOT PEEK(ADR) 550 B=B AND 255:POKE ADR,B:NEXT:GOTO 210 REM ------ ‚›•Ž„ ‚ …†ˆŒ ‚‚Ž„€ BASIC --------- 900 •=10: Y=20;GOSUB 9100: STOP REM *********************************************** REM * Ž„Žƒ€ŒŒ›, ˆ‘Ž‹œ‡“…Œ›… ‚›˜…. * REM *********************************************** REM * 1). ‚›‚Ž„ €‰’€ € Š€ ‘ Ž‡ˆ–ˆˆ (X,Y) 9000 B=BYTE:GOSUB 9100 9010 FOR J=7 TO 0 STEP -1:BR=INT(B/(2^J)):GOSUB 9110 9020 B=B-BR*2^J:NEXT:PRINT:RETURN REM * 2). “€‚‹…ˆ… Ž‹Ž†…ˆ…Œ Š“‘Ž€ ‘ ŽŒŽ™œž REM /Y - Ž‘‹…„Ž‚€’…‹œŽ‘’ˆ 9100 PRINT CHR$(27);"Y";CHR$(Y+32);CHR$(X+32);:RETUN REM * 3). Žˆ’€Ÿ €‘…—€’Š€ Ž„ŽƒŽ €‰’€ € Š€… 9110 IF BR=0 THEN PRINT " ";:RETURN 9120 PRINT CHR$(127);:RETURN