{{include unfinished_page}} ,{t},{BSIZE:1 0|SIZE:100%} ,{BSIZE:0}¢«[[3¾Ï BASIC]] ,{BSIZE:0|RIGHT}[[4¾Ï BASIC¤ÎÆâÉô¹½Â¤]] ¢ª !!3.13 ¥¹¥Æ¡¼¥È¥á¥ó¥È {{svg ¿ÞP97.svg}} ---- !ABS{{anchor ABS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÀäÂÐÃͤòÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ABS(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT ABS(-1.2) ¡Úɽ¼¨¡Û1.2 ---- !ASC{{anchor ASC}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»ú¼°>¤Î¥­¥ã¥é¥¯¥¿¥³¡¼¥É¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ASC(<ʸ»ú¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT ASC("a") ¡Úɽ¼¨¡Û97 ,²ò¡¡Àâ{SIZE:100|CENTER} »ØÄꤷ¤¿<ʸ»ú¼°>¤¬¤¤¤¯¤Ä¤«¤Îʸ»ú¤«¤é¤Ê¤ëʸ»úÎó¤Î¾ì¹ç¤Ï¡¢°ìÈֺǽé¤Îʸ»ú¤Î¥­¥ã¥é¥¯¥¿¥³¡¼¥É¤¬ÊÖ¤µ¤ì¤Þ¤¹¡£Ê¸»ú¤È¥­¥ã¥é¥¯¥¿¥³¡¼¥É¤ÎÂбþ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¥­¥ã¥é¥¯¥¿¥³¡¼¥Éɽ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CHR$,CHR$}}¡¢¥­¥ã¥é¥¯¥¿¥³¡¼¥Éɽ ---- !ATN{{anchor ATN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎµÕÀµÀÜ(¥¢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥È)¤ò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ATN(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT ATN(1)*4 ¡Úɽ¼¨¡Û3.1415926535898 ---- !AUTO{{anchor AUTO}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¹Ô¤ÎÀèƬ¤Ë¹ÔÈÖ¹æ¤ò¼«Æ°Åª¤ËȯÀ¸¤µ¤»¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} AUTO [<¹ÔÈÖ¹æ>][,<Áýʬ>] ,ʸ¡¡Îã{SIZE:100|CENTER} AUTO 1000,100 ,²ò¡¡Àâ{SIZE:100|CENTER} ºÇ½é¤Î¹ÔÈÖ¹æ¤âÈÖ¹æ¤ÎÁý²Ãʬ¤â¾Êά¤Ç¤­¤Þ¤¹¤¬¡¢¤³¤Î¾ì¹ç¤Ï¡¢¼«Æ°Åª¤Ë10¤¬ºÎÍѤµ¤ì¤Þ¤¹¡£ Î㤨¤Ð¡¢ AUTO ¹ÔÈÖ¹æ¤Ï10¤òÀèƬ¤Ë20¡¢30¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¤ÈÉÕ¤±¤é¤ì¤Þ¤¹¡£ AUTO 100 ¹ÔÈÖ¹æ¤Ï100¤òÀèƬ¤Ë110¡¢120¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¤ÈÉÕ¤±¤é¤ì¤Þ¤¹¡£ AUTO ,5 ¹ÔÈÖ¹æ¤Ï10¤òÀèƬ¤Ë15¡¢20¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¤ÈÉÕ¤±¤é¤ì¤Þ¤¹¡£ ¥×¥í¥°¥é¥àÃæ¤Ë¤¹¤Ç¤Ë¸ºß¤¹¤ë¹Ô¤ÈƱ¤¸¹ÔÈֹ椬ȯÀ¸¤·¤¿¾ì¹ç¤Ë¤Ï¡¢¹ÔÈÖ¹æ¤Î¸å¤Ë¥¢¥¹¥¿¥ê¥¹¥¯(*)¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£¤³¤Î¤È¤­¡¢²¿¤âÆþÎϤ·¤Ê¤¤¤Ç¥ê¥¿¡¼¥ó¥­¡¼¤ò²¡¤»¤Ð¡¢¤½¤Î¹Ô¤ÏÁ°¤ÎÆâÍƤΤޤޤǤ¹¡£ AUTOµ¡Ç½¤òÃæ»ß¤·¤¿¤¤¤È¤­¤Ï¡¢[CTRL]+[C]¥­¡¼¤Þ¤¿¤Ï[CTRL]+[STOP]¥­¡¼¤ò²¡¤·¤Þ¤¹¡£ ---- !BASE{{anchor BASE} ,µ¡¡¡Ç½{SIZE:100|CENTER} ²èÌ̽ÐÎϤ˴ØÏ¢¤¹¤ëVRAM¾å¤Î¥Æ¡¼¥Ö¥ë¤Î¥¢¥É¥ì¥¹¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} BASE(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT BASE(10) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¥Ã¥³Æâ¤Î¿ôÃͤǻØÄꤵ¤ì¤¿VRAM¾å¤Î¥Æ¡¼¥Ö¥ë¤Î¥¢¥É¥ì¥¹¤òÊÖ¤·¤Þ¤¹¡£MSX1¤Ç¤Ï¡¢VDP¤È¤·¤ÆTMS9918¡¢MSX2¤Ç¤ÏV9938¡¢MSX2+¤Ç¤ÏV9958¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# VDP,VDP}} ---- !BEEP{{anchor BEEP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥Ô¡¼¥«¡¼¤òÌĤ餷¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} BEEP ,²ò¡¡Àâ{SIZE:100|CENTER} SET BEEPÌ¿Îá¤ÇÀßÄꤷ¤¿²»¿§¤ÈÂ礭¤µ¤Ç¡¢¥¹¥Ô¡¼¥«¡¼¤òÌĤ餷¤Þ¤¹¡£ ¼¡¤Î¤è¤¦¤Ë¡¢PRINTÌ¿Îá¤ÇCHR$(7)¤ò¼Â¹Ô¤·¤Æ¤â¡¢BEEP¤ÈƱ¤¸·ë²Ì¤¬ÆÀ¤é¤ì¤Þ¤¹¡£ PRINT CHR$(7) ,»²¡¡¾È{SIZE:100|CENTER} ¥³¥ó¥È¥í¡¼¥ë¥³¡¼¥Éɽ ---- !BIN${{anchor BIN$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ò2¿Ê¿ô¤Îʸ»úÎó¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} BIN$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT BIN$(50) ¡Úɽ¼¨¡Û110010 ,»²¡¡¾È{SIZE:100|CENTER} {{# VAL,VAL}}¡¢{{# OCT$,OCT$}}¡¢{{# HEX$,HEX$}} ---- !BLOAD{{anchor BLOAD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} µ¡³£¸ì¥×¥í¥°¥é¥à¡¢¤Þ¤¿¤Ï²èÌ̥ǡ¼¥¿¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤ß¤Þ¤¹(¥í¡¼¥É¤¹¤ë)¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} BLOAD<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>[[,R]|[,S][,<¥ª¥Õ¥»¥Ã¥È>] ,ʸ¡¡Îã{SIZE:100|CENTER} BLOAD "A:DEMO",R ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤷ¤¿µ¡³£¸ì¥×¥í¥°¥é¥à¥Õ¥¡¥¤¥ë¤ò¥á¥â¥ê¾å¤Ë¥í¡¼¥É¤·¤Þ¤¹¡£¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤Ï¥Õ¥¡¥¤¥ë̾¤ò¾Êά¤¹¤ë¤³¤È¤¬½ÐÍè¤Þ¤¹¤¬¡¢¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤Ï¾Êά¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤ÎÃæ¤Ç<¥Ç¥Ð¥¤¥¹Ì¾>¤ò¾Êά¤¹¤ë¤È¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥Ç¥£¥¹¥¯¥É¥é¥¤¥Ö(¥«¥ì¥ó¥È¥É¥é¥¤¥Ö)¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤òÂоݤȤ¹¤ë¾ì¹ç¤Ï"CAS:"¤È¤·¤Þ¤¹¡£ <¥ª¥Õ¥»¥Ã¥È>¤ò¾Êά¤¹¤ë¤Èµ¡³£¸ì¥×¥í¥°¥é¥à¤ÏBSAVE¤Ç¥»¡¼¥Ö¤¹¤ë¤È¤­¤Ë»ØÄꤷ¤¿<³«»Ï¥¢¥É¥ì¥¹>¤«¤é¥í¡¼¥É¤·¤Þ¤¹¤¬¡¢<¥ª¥Õ¥»¥Ã¥È>¤ò»ØÄꤷ¤¿¾ì¹ç¤Ë¤Ï¡¢¥»¡¼¥Ö¤Îº¹°Û¤Ë»ØÄꤵ¤ì¤Æ³«»Ï¥¢¥É¥ì¥¹¤Ë¡¢<¥ª¥Õ¥»¥Ã¥È>¤ò²Ã¤¨¤¿ÈÖÃϤ«¤é¥í¡¼¥É¤·¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢<¥ª¥Õ¥»¥Ã¥È>¤òÉÕ¤±¤Æ¥í¡¼¥É¤¹¤ë¥×¥í¥°¥é¥à¤Ï¡¢¥ê¥í¥±¡¼¥¿¥Ö¥ë¤ÊÀ­¼Á¤ò»ý¤Ã¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ R¥ª¥×¥·¥ç¥ó¤ò»ØÄꤹ¤ë¤È¡¢¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¸å¡¢BSAVE¤Ç»ØÄꤷ¤Æ¤ª¤¤¤¿¼Â¹Ô³«»Ï¥¢¥É¥ì¥¹¤«¤é¡¢¤¿¤À¤Á¤Ë¼Â¹Ô¤µ¤ì¤Þ¤¹¡£¤³¤Î¤È¤­¡¢´û¤Ë³«¤«¤ì¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤¬¤¢¤ì¤Ð¥Õ¥¡¥¤¥ë¤Ï³«¤«¤ì¤¿¤Þ¤Þµ¡³£¸ì¥×¥í¥°¥é¥à¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ S¥ª¥×¥·¥ç¥ó¤ò»ØÄꤹ¤ë¤È¡¢¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë¤ÎÆâÍƤ¬VRAM¤Ë¥í¡¼¥É¤µ¤ì¤Þ¤¹¡£<¥ª¥Õ¥»¥Ã¥È>¤ò¾Êά¤¹¤ë¾ì¹ç¤Ë¤Ï¥«¥ó¥Þ(,)¤â¾Êά¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# BSAVE,BSAVE}} ---- !BSAVE{{anchor BSAVE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} µ¡³£¸ì¥×¥í¥°¥é¥à¡¢¤Þ¤¿¤Ï²èÌ̥ǡ¼¥¿¤òÊݸ(¥»¡¼¥Ö)¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} BSAVE<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>,<³«»Ï¥¢¥É¥ì¥¹>,<½ªÎ»¥¢¥É¥ì¥¹>[ [,<¼Â¹Ô³«»Ï¥¢¥É¥ì¥¹>¡Ã[,S] ] ,ʸ¡¡Îã{SIZE:100|CENTER} BSAVE "B:DEMO",&HA100,&HA2FF ,²ò¡¡Àâ{SIZE:100|CENTER} <³«»Ï¥¢¥É¥ì¥¹>¤«¤é<½ªÎ»¥¢¥É¥ì¥¹>¤Þ¤Ç¤Î¥á¥â¥ê¾å¤ËÃÖ¤«¤ì¤Æ¤¤¤ëµ¡³£¸ì¥×¥í¥°¥é¥à¤ò¡¢<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ë¥»¡¼¥Ö¤·¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤ÎÃæ¤Î<¥Ç¥Ð¥¤¥¹Ì¾>¤ò¾Êά¤·¤¿¾ì¹ç¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤Ë¥»¡¼¥Ö¤µ¤ì¤Þ¤¹¡£¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤Î¾ì¹ç¤Ï"CAS:"¤È¤·¤Æ¤¯¤À¤µ¤¤¡£ <¼Â¹Ô³«»Ï¥¢¥É¥ì¥¹>¤ò»ØÄꤷ¤Æ¤ª¤¯¤È¡¢BLOAD¤ÇR¥ª¥×¥·¥ç¥ó¤ò»ØÄꤷ¤Æ¡¢¥×¥í¥°¥é¥à¤Î¥í¡¼¥É¸å¤Ë¼«Æ°Åª¤Ë<¼Â¹Ô³«»Ï¥¢¥É¥ì¥¹>¤«¤é¼Â¹Ô¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ S¥ª¥×¥·¥ç¥ó¤ò»ØÄꤹ¤ë¤È¡¢²èÌ̥ǡ¼¥¿¤ò¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë¤È¤·¤Æ¥»¡¼¥Ö¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !CALL{{anchor CALL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ³ÈÄ¥¥¹¥Æ¡¼¥È¥á¥ó¥È¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL<³ÈÄ¥¥¹¥Æ¡¼¥È¥á¥ó¥È̾>[(<°ú¿ô>[,<°ú¿ô>¡¦¡¦¡¦])] ,²ò¡¡Àâ{SIZE:100|CENTER} ³ÈÄ¥ROM¥«¡¼¥È¥ê¥Ã¥¸¤Ê¤É¤Ç¶¡µë¤µ¤ì¤ë³ÈÄ¥¥¹¥Æ¡¼¥È¥á¥ó¥È¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£CALL¤Ï_(¥¢¥ó¥À¡¼¥¹¥³¥¢)¤ÇÂåÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !CALL AKCNV ¡Ú2+¡Û{{anchor CALL_AKCNV}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÎó>Ãæ¤ÎÁ´¤Æ¤Îʸ»ú¤òÁ´³Ñʸ»ú¤ËÊÑ´¹¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL AKCNV(<ʸ»úÊÑ¿ô,<ʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL AKCNV(A$,"ABC´Á»úŽ²ŽÛŽÊ") 20 PRINT A$ ¡Úɽ¼¨¡Û£Á£Â£Ã´Á»ú¥¤¥í¥Ï ,²ò¡¡Àâ{SIZE:100|CENTER} Ⱦ³Ñʸ»ú(¥«¥¿¥«¥Ê¡¢±Ñ¿ô»úÅù)¤òÁ´³Ñ¤Îʸ»ú¤ËÊÑ´¹¤·¤Þ¤¹¡£¤â¤È¤â¤ÈÁ´³Ñ¤Îʸ»ú¤Ï¤½¤Î¤Þ¤Þ¤Ç¤¹¡£ ---- !CALL ANK ¡Ú2+¡Û{{anchor CALL_ANK}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¥É¥é¥¤¥Ð¤ò½ªÎ»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL ANK ,ʸ¡¡Îã{SIZE:100|CENTER} CALL ANK ,²ò¡¡Àâ{SIZE:100|CENTER} ´Á»ú¥â¡¼¥É¤ò½ªÎ»¤·¡¢ANK¥â¡¼¥É¤È¤Ê¤ê¤Þ¤¹¡£¤¿¤À¤·¡¢´Á»ú¥É¥é¥¤¥ÐÍѤ˳ÎÊݤµ¤ì¤¿¥á¥â¥ê¤Ï²òÊü¤µ¤ì¤Þ¤»¤ó¡£ ---- !CALL CLS ¡Ú2+¡Û{{anchor CALL_CLS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¥â¡¼¥É¤Î²èÌ̤ò¥¯¥ê¥¢¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL CLS ,ʸ¡¡Îã{SIZE:100|CENTER} CALL CLS ,²ò¡¡Àâ{SIZE:100|CENTER} ´Á»ú¥â¡¼¥É¤Ç¤ÏÄ̾ï¤ÎCLS¤Ï»È¤¨¤Þ¤»¤ó¡£´Á»ú¥â¡¼¥É°Ê³°¤Ç¤âCALL CLS¤ÏÍ­¸ú¤Ç¤¹¡£ ---- !CALL FORMAT ¡ÚDisk¡Û{{anchor CALL_FORMAT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤ò¥Õ¥©¡¼¥Þ¥Ã¥È(½é´ü²½)¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL FORMAT ,ʸ¡¡Îã{SIZE:100|CENTER} CALL FORMAT ,²ò¡¡Àâ{SIZE:100|CENTER} Disk BASIC¤äMSX-DOS¤Ç»ÈÍѤǤ­¤ë¤è¤¦¤Ë¡¢¥Ç¥£¥¹¥¯¤ò½é´ü²½¤·¤Þ¤¹¡£¼Â¹Ô¤¹¤ë¤È¥É¥é¥¤¥Ö̾¤ò¤­¤¤¤Æ¤¯¤ë¤Î¤Ç¡¢»ØÄꤷ¤Þ¤¹¡£´Ö°ã¤Ã¤Æ´û¤Ë»ÈÍѤ·¤Æ¤¤¤ë¥Ç¥£¥¹¥¯¤ò¥Õ¥©¡¼¥Þ¥Ã¥È¤·¤Æ¤·¤Þ¤¦¤È¡¢¤½¤ÎÃæ¤Î¥Ç¡¼¥¿¤Ï´°Á´¤Ë¼º¤ï¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£½½Ê¬Ãí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£ ---- !CALL JIS ¡Ú2+¡Û{{anchor CALL_JIS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÎó>¤ÎºÇ½é¤Î2¥Ð¥¤¥È¤ò16¿Ê4·å¤ÎJIS¥³¡¼¥É¤ËÊÑ´¹¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL JIS(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL JIS(A$,"´Á»ú") 20 PRINT A$ ¡Úɽ¼¨¡Û3441 ---- !CALL KACNV ¡Ú2+¡Û{{anchor CALL_KACNV}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÎó>Ãæ¤ÎȾ³Ñʸ»ú¤ËÊÑ´¹¤Ç¤­¤ëʸ»ú¤ò¤¹¤Ù¤ÆȾ³Ñʸ»ú¤ËÊÑ´¹¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KACNV(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} ,²ò¡¡Àâ{SIZE:100|CENTER} ,»²¡¡¾È{SIZE:100|CENTER} 10 CALL KACNV(A$,"10¿Í¤Î¥×¥í¥°¥é¥Þ¡¼") 20 PRINT A$ ¡Úɽ¼¨¡Û10¿ÍŽÉŽÌŽßŽÛŽ¸ŽÞŽ×ŽÏŽ° ---- !CALL KANJI ¡Ú2+¡Û{{anchor CALL_KANJI}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¥É¥é¥¤¥Ð¤òµ¯Æ°¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KANJI[n] ,ʸ¡¡Îã{SIZE:100|CENTER} CALL KANJI3 ,²ò¡¡Àâ{SIZE:100|CENTER} n¤Ï0¡¢£±¡¢£²¡¢£³¤Î¤¦¤Á¤É¤ì¤«1ʸ»ú¤Ç¡¢´Á»ú¥Õ¥©¥ó¥È¤ÈSCREEN¤Î¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤ò»ØÄꤷ¤Þ¤¹¡£¾Êά¤¹¤ë¤È0¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:80},{BSIZE:0|SIZE:100},{BSIZE:0|SIZE:200} ,¥â¡¼¥É,ʸ»ú¤ÎÂ礭¤µ,ɽ¼¨Ê¸»ú¿ô ,{c},{BSIZE:0 0 1 0},{BSIZE:0 0 1 0},{BSIZE:0 0 1 0} ,,(Á´³ÑX¡ßY),(ºÇÂç²£¡ß½Ä) ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,KANJI0,16¡ß16,32¡ß13 ,KANJI1,12¡ß16,40¡ß13 ,KANJI2,16¡ß16,32¡ß24 ,KANJI3,12¡ß16,40¡ß24 CALL KANJI(¤Þ¤¿¤ÏCALL KANJI0)¤Ï¥Õ¥©¥ó¥È¤òMSX¤Îɸ½à´Á»úROM¤«¤é¼è¤Ã¤Æɽ¼¨¤·¤Þ¤¹¡£ CALL KANJI1¤Ï¥Õ¥©¥ó¥È¤òMSX¤Îɸ½à´Á»úROM¤«¤é¤È¤ê¡¢²£16¥É¥Ã¥È¤ò12¥É¥Ã¥È¤Ë°µ½Ì¤·¤Æɽ¼¨¤·¤Þ¤¹¡£¤¿¤À¤·¡¢¾¾²¼ÅÅ´ï¤Î»ÅÍͤˤè¤ë12¥É¥Ã¥È¥Õ¥©¥ó¥ÈROM¤¬¥·¥¹¥Æ¥à¤Ë¸ºß¤¹¤ë¾ì¹ç¤Ï¤³¤ì¤òɽ¼¨¤·¤Þ¤¹¡£ CALL KANJI2¤ÏCALL KANJI(¤Þ¤¿¤ÏCALL KANJI0)¤ÈƱ¤¸¤Ç¤¹¤¬¡¢¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤¬»ÈÍѤµ¤ì½ÄÊý¸þ¤Îɽ¼¨Ê¸»ú¿ô¤¬Áý²Ã¤·¤Þ¤¹¡£ CALL KANJI3¤ÏCALL KANJI1¤ÈƱ¤¸¤Ç¤¹¤¬¡¢¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤¬»ÈÍѤµ¤ì½ÄÊý¸þ¤Îɽ¼¨Ê¸»ú¿ô¤¬Áý²Ã¤·¤Þ¤¹¡£ MSXɸ½à¤ÎÆüËܸì¥Õ¥í¥ó¥È¥¨¥ó¥É¥×¥í¥»¥Ã¥µ(°Ê²¼¡¢MSX-JE)¤¬¤¢¤ì¤Ð¡¢¤³¤Î¥¹¥Æ¡¼¥È¥á¥ó¥È¤Î¼Â¹Ô»þ¤Þ¤¿¤Ï¥·¥¹¥Æ¥à¤ÎΩ¤Á¾å¤²»þ¤ËÁȤ߹þ¤Þ¤ì¤Þ¤¹¡£Ä¾ÀÜÆþÎϥ⡼¥É(ANK)¤È´ÖÀÜÆþÎϥ⡼¥É(´Á»ú)¤Ï¡¢[CTRL]+[SPACE]¤â¤·¤¯¤Ï[GRAPH]+[SELECT]¤Ë¤è¤Ã¤ÆÀÚ¤êÂؤ¨¤é¤ì¤Þ¤¹¡£MSX-JE¤¬Â¸ºß¤·¤Ê¤¤¤È¤­¤Ï¡¢Ã±´Á»úÊÑ´¹µ¡Ç½¤¬»ÈÍѤǤ­¤Þ¤¹¡£ MSXµ¯Æ°¸å¤Î°ìÈֺǽé¤ÎCALL KANJI¤Î¼Â¹Ô»þ¤Ë¤ÏÃí°Õ¤¬É¬ÍפǤ¹¡£¤½¤Î»þÅÀ¤Ç¤ÎHIMEM(CLEARʸ¤Ë¤è¤ë)¤ÎÀßÄê¤Ï¥­¥ã¥ó¥»¥ë¤µ¤ì¡¢Á´¤Æ¤ÎÊÑ¿ô¤ª¤è¤Ó¥½¥Õ¥È¥¦¥§¥¢¥¹¥¿¥Ã¥¯(FOR/NEXT¡¢GOSUB/RETURNÍÑ)¤¬¥¯¥ê¥¢¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ï´Á»ú¥É¥é¥¤¥Ð¤Î¥ï¡¼¥¯¥¨¥ê¥¢(¤â¤·¤¢¤ì¤ÐMSX-JE¤â)¤ò³ÎÊݤ¹¤ë½èÍý¤¬¹Ô¤ï¤ì¤ë¤«¤é¤Ç¤¹¡£2²óÌܰʹߤμ¹ԤÏÌäÂê¤Ê¤¯¹Ô¤ï¤ì¤Þ¤¹¡£ CALL KANJIÌ¿Îá¤Ê¤É¤ò¼Â¹Ô¤·¡¢´Á»úɽ¼¨¤¬¤Ç¤­¤ë¾õÂÖ¤ò¡Ö´Á»ú¥â¡¼¥É¡×¤È¸Æ¤Ó¤Þ¤¹¡£¤µ¤é¤Ë´Á»ú¥â¡¼¥É¤Ç¤«¤ÄSCREENʸ¤Ç0¤â¤·¤¯¤Ï1¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¾õÂÖ¤ò¡Ö´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¡×¤È¸Æ¤Ó¡¢´Á»ú¥â¡¼¥É¤Ç¤«¤ÄSCREENʸ¤Ç2°Ê¾å¤Î²èÌ̥⡼¥É¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¾õÂÖ¤ò¡Ö´Á»ú¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É¡×¤È¸Æ¤Ó¤Þ¤¹¡£ BASIC¤Î¥³¥Þ¥ó¥ÉÂÔ¤Á¤Î¾õÂ֤ǤϴÁ»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ë¤Ê¤Ã¤Æ¤ª¤ê¡¢´Á»ú¤ÎÆþ½ÐÎϤ¬²Äǽ¤Ç¤¹¡£´Á»ú¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É¤Ç¤Ï¥×¥í¥°¥é¥à¤Ë¤è¤ë´Á»ú¤Î½ÐÎϤΤߤ¬²Äǽ¤Ç¤¹¡£ '''´Á»ú¥â¡¼¥É¤Ë¤ª¤±¤ëWIDTH''' ¢£´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É ¡¡CALL KANJI¼Â¹Ô¸å¤ÎWIDTH¤ÏANK¥â¡¼¥É¤Ç¤ÎWIDTH¤ò¤â¤È¤Ë¡¢°Ê²¼¤Î¤è¤¦¤Ë·èÄꤵ¤ì¤Þ¤¹¡£CALL KANJI¼Â¹Ô¸å¤ËľÀÜSCREENʸ¤äWIDTHʸ¤Ç»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ 1.ANK¥â¡¼¥É¤ÇSCREEN 0¤ò»ÈÍѤ·¤Æ¤¤¤¿¾ì¹ç¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0},{BSIZE:0} ,,¢£,KANJI0¤«KANJI2 ,, ,ANK¥â¡¼¥É¤Ç¤ÎWIDTH¤ÎÃͤÎ4/5¤¬´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤ÎWIDTH¤Ë¤Ê¤ê¤Þ¤¹¡£ ,,¢£,KANJI1¤«KANJI3 ,, ,ANK¥â¡¼¥É¤Ç¤ÎWIDTH¤ÎÃͤ¬¤½¤Î¤Þ¤Þ´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤ÎWIDTH¤Ë¤Ê¤ê¤Þ¤¹¡£ 2.ANK¥â¡¼¥É¤ÇSCREEN 1¤ò»ÈÍѤ·¤Æ¤¤¤¿¾ì¹ç¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0},{BSIZE:0} ,,¢£,KANJI0¤«KANJI2 ,, ,ANK¥â¡¼¥É¤Ç¤ÎWIDTH¤ÎÃͤ¬¤½¤Î¤Þ¤Þ´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤ÎWIDTH¤Ë¤Ê¤ê¤Þ¤¹¡£ ,,¢£,KANJI1¤«KANJI3 ,, ,ANK¥â¡¼¥É¤Ç¤ÎWIDTH¤ÎÃͤÎ5/4¤¬´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤ÎWIDTH¤Ë¤Ê¤ê¤Þ¤¹¡£ ¢£´Á»ú¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ¡¡¾ï¤Ëɽ¼¨¤Ç¤­¤ëºÇÂç¤ËÀßÄꤵ¤ì¤Þ¤¹¡£ '''WIDTH¤Ë¤è¤ëSCREEN¥â¡¼¥É¤ÎÁªÂò''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0},{BSIZE:0} ,,¢£,KANJI0¤«KANJI2 ,, ,WIDTH¤¬26¤«¤é32¤Î»þ¤Ï256¥É¥Ã¥È¥â¡¼¥É(VDP¤ÎGRAPHIC 4¥â¡¼¥É)¤¬¡¢33¤«¤é64¤Î»þ¤Ï512¥É¥Ã¥È¥â¡¼¥É(VDP¤ÎGRAPHIC 6¥â¡¼¥É)¤¬ÁªÂò¤µ¤ì¤Þ¤¹¡£ ,,¢£,KANJI1¤«KANJI3 ,, ,WIDTH¤¬26¤«¤é40¤Î»þ¤Ï256¥É¥Ã¥È¥â¡¼¥É(VDP¤ÎGRAPHIC 4¥â¡¼¥É)¤¬¡¢41¤«¤é80¤Î»þ¤Ï512¥É¥Ã¥È¥â¡¼¥É(VDP¤ÎGRAPHIC 6¥â¡¼¥É)¤¬ÁªÂò¤µ¤ì¤Þ¤¹¡£ ---- !CALL KEXT ¡Ú2+¡Û{{anchor CALL_KEXT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <µ¡Ç½>¤¬0¤Ê¤é<ʸ»úÎó>Ãæ¤ÎȾ³Ñʸ»ú¤À¤±¤ò¡¢1¤Ê¤éÁ´³Ñʸ»ú¤À¤±¤òÈ´¤­½Ð¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KEXT(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>,<µ¡Ç½>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KEXT(A$,"º£·îŽÊÎÉŽ²Å·µ¤ŽÃŽÞŽ½",0) 20 PRINT A$ ¡Úɽ¼¨¡ÛŽÊŽ²ŽÃŽÞŽ½ ---- !CALL KINSTR ¡Ú2+¡Û{{anchor CALL_KINSTR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¤ò´Þ¤àʸ»úÎó¤ò¸¡º÷¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KINSTR(<¿ôÃÍÊÑ¿ô>[,<¿ô¼°>],<ʸ»úÎó1>,<ʸ»úÎó2>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KINSTR(A,"A °¡ B","B") 20 PRINT A ¡Úɽ¼¨¡Û3 ,²ò¡¡Àâ{SIZE:100|CENTER} <ʸ»úÎó1>¤ÎÃ椫¤é<ʸ»úÎó2>¤òõ¤·¤À¤·¡¢¸«¤Ä¤«¤ì¤Ð¤½¤Î°ÌÃÖ¤ò¡¢¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð0¤ò<¿ôÃÍÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£<¿ô¼°>¤Ïõ¤·»Ï¤á¤ë°ÌÃÖ¤òʸ»ú¿ô¤òñ°Ì¤È¤·¤Æ»ØÄꤹ¤ë¤â¤Î¤Ç¡¢¾Êά¤·¤¿¾ì¹ç¤Ï1¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£ ---- !CALL KLEN ¡Ú2+¡Û{{anchor CALL_KLEN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¤ò´Þ¤àʸ»úÎó¤Îʸ»ú¿ô¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KLEN(<¿ôÃÍÊÑ¿ô>,<ʸ»úÎó>[,<µ¡Ç½>]) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KLEN(A,"º£ÆüŽÊÎÉŽ²Å·µ¤¤Ç¤¹") 20 PRINT A ¡Úɽ¼¨¡Û9 ,²ò¡¡Àâ{SIZE:100|CENTER} <µ¡Ç½>¤¬0(¤â¤·¤¯¤Ï¾Êά)¤Î»þ¤Ï<ʸ»úÎó>¤ÎÁ´ÂΤÎʸ»ú¿ô¤ò¡¢1¤Î¤È¤­¤Ï<ʸ»úÎó>Ãæ¤ÎȾ³Ñʸ»ú¿ô¤ò¡¢2¤Î¤È¤­¤Ï<ʸ»úÎó>Ãæ¤ÎÁ´³Ñʸ»ú¿ô¤ò<¿ôÃÍÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ---- !CALL KMID ¡Ú2+¡Û {{anchor CALL_KMID}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¤ò´Þ¤àʸ»úÎó¤Î°ìÉô¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KMID(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>,<¿ô¼°1>[,<¿ô¼°2>]) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KMID(A$,"º£Æü¤ÏŽÖ¤¤Å·µ¤¤Ç¤¹",3,3) 20 PRINT A$ ¡Úɽ¼¨¡Û¤ÏŽÖ¤¤ ,²ò¡¡Àâ{SIZE:100|CENTER} <ʸ»úÎó>Ãæ¤Î<¿ô¼°1>ÈÖÌܤÎʸ»ú¤«¤é<¿ô¼°2>ʸ»úʬ¤À¤±È´¤­½Ð¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£<¿ô¼°2>¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¤Ï<¿ô¼°1>ÈÖÌܤÎʸ»ú¤«¤é½ª¤ï¤ê¤Þ¤ÇÁ´¤Æ¤Îʸ»ú¤¬ÂåÆþ¤µ¤ì¤Þ¤¹¡£ ---- !CALL KNJ {{anchor CALL_KNJ}}¡Ú2+¡Û ,µ¡¡¡Ç½{SIZE:100|CENTER} ´Á»ú¥³¡¼¥É¤ËÁêÅö¤¹¤ë´Á»ú¤ò³ÍÆÀ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KNJ(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KNJ(A$,"3441") 20 PIRNT A$ ¡Úɽ¼¨¡Û´Á ,²ò¡¡Àâ{SIZE:100|CENTER} <ʸ»úÎó>¤Ç»ØÄꤵ¤ì¤ë4·å¤Î´Á»ú¥³¡¼¥É¤ËÁêÅö¤¹¤ë´Á»ú1ʸ»ú¤ò<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£´Á»ú¥³¡¼¥É¤¬8000H̤Ëþ¤Ç¤¢¤ì¤ÐJIS¡¢¤½¤ì°Ê¾å¤Î¾ì¹ç¤Ï¥·¥Õ¥ÈJIS¤È¤ß¤Ê¤·¤Þ¤¹¡£ ---- !CALL KTYPE ¡Ú2+¡Û{{anchor CALL_KTYPE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»ú¤Î¥¿¥¤¥×¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL KTYPE(<¿ôÃÍÊÑ¿ô>,<ʸ»úÎó>,<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL KTYPE(T,"ŽºŽÚŽÊ´Á»ú",4) 20 PRINT T ¡Úɽ¼¨¡Û1 ,²ò¡¡Àâ{SIZE:100|CENTER} <ʸ»úÎó>Ãæ¤Î<¿ô¼°>ÈÖÌܤÎʸ»ú¤Î¥¿¥¤¥×¤ò<¿ôÃÍÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£¥¿¥¤¥×¤Ï¡¢0=Ⱦ³Ñ¡¢1=Á´³Ñ¤Ç¤¹¡£ ---- !CALL MEMINI ¡Ú2¡Û{{anchor CALL_MEMINI}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¥Ç¥£¥¹¥¯¤Ç»È¤¦¥á¥â¥ê¤Î¾å¸Â¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL MEMINI(<¥á¥â¥ê¥Ç¥£¥¹¥¯¤Î¾å¸Â>) ,ʸ¡¡Îã{SIZE:100|CENTER} CALL MEMINI(&H7000) ¡Úɽ¼¨¡Û27904 bytes allocated ,²ò¡¡Àâ{SIZE:100|CENTER} ÈϰϤϡ¢0¡Á&H7FFF¤Ç¤¹¡£½é´ü¾õÂ֤Ǥϡ¢&H7FFF¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ CALL MEMINIÌ¿Î᤬¼Â¹Ô¤µ¤ì¤ë¤È¡¢¥á¥â¥ê¥Ç¥£¥¹¥¯¤Ë³ä¤êÅö¤Æ¤é¤ì¤¿¥á¥â¥ê¤ÎÎ̤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ ---- !CALL MFILES ¡Ú2¡Û{{anchor CALL_MFILES}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¥Ç¥£¥¹¥¯Ãæ¤Î¥Õ¥¡¥¤¥ë̾¤òɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL MFILES ,ʸ¡¡Îã{SIZE:100|CENTER} CALL MFILES ---- !CALL MKILL ¡Ú2¡Û{{anchor CALL_MKILL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¥Ç¥£¥¹¥¯Æâ¤Î¥Õ¥¡¥¤¥ë¤òºï½ü¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL MKILL(<¥Õ¥¡¥¤¥ë̾>) ,ʸ¡¡Îã{SIZE:100|CENTER} CALL MKILL("SAMPLE") ---- !CALL MNAME ¡Ú2¡Û{{anchor CALL_MNAME}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¥Ç¥£¥¹¥¯Æâ¤Î¥Õ¥¡¥¤¥ë̾¤òÉÕ¤±Âؤ¨¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL MNAME(<¿·¥Õ¥¡¥¤¥ë̾>AS<µì¥Õ¥¡¥¤¥ë̾>) ,ʸ¡¡Îã{SIZE:100|CENTER} CALL MNAME("TEST" AS "TEST.AA") ---- !CALL PALETTE ¡Ú2+¡Û{{anchor CALL_PALETTE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥«¥é¡¼¥Ñ¥ì¥Ã¥È¤Î½é´ü²½¤Þ¤¿¤ÏÀßÄê¤ò¹Ô¤¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL PALETTE[(<¥Ñ¥ì¥Ã¥ÈÈÖ¹æ>,<ÀÖµ±ÅÙ>,<Îе±ÅÙ>,<²«µ±ÅÙ>)] ,ʸ¡¡Îã{SIZE:100|CENTER} CALL PALETTE(15,4,4,4) ,²ò¡¡Àâ{SIZE:100|CENTER} CALL KANJI¥¹¥Æ¡¼¥È¥á¥ó¥È¤Ë¤è¤ê²èÌ̤ò´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Ë¤·¤¿¤È¤­¤Ë¡¢¥Ñ¥ì¥Ã¥È¤òÊѹ¹¤¹¤ë¤¿¤á¤Ë»ÈÍѤ·¤Þ¤¹¡£´Á»ú¥â¡¼¥É¤Ç¤Ê¤¤¤È¤­¤Ç¤â»ÈÍѤǤ­¤Þ¤¹¡£ ¥Ñ¥é¥á¡¼¥¿¤ò¤¹¤Ù¤Æ¾Êά¤·¤¿¾ì¹ç¤Ï¡¢¥Ñ¥ì¥Ã¥È¤ò½é´ü¾õÂ֤ˤ·¤Þ¤¹¡£¥Ñ¥é¥á¡¼¥¿¤¬»ØÄꤵ¤ì¤¿¾ì¹ç¡¢<¥Ñ¥ì¥Ã¥ÈÈÖ¹æ>¤Ç»ØÄꤵ¤ì¤¿¥Ñ¥ì¥Ã¥È¤ò<ÀÖµ±ÅÙ>¡¢<Îе±ÅÙ>¡¢<Àĵ±ÅÙ>¤Î¿§¤ËÀßÄꤷ¤Þ¤¹¡£¤Ê¤ª¡¢¥Ñ¥ì¥Ã¥ÈÈÖ¹æ¤ä³Æµ±ÅÙ¤ò¾Êά¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ---- !CALL SJIS ¡Ú2+¡Û{{anchor CALL_SJIS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÎó>¤ÎºÇ½é¤Î2¥Ð¥¤¥È¤ò16¿Ê4·å¤Î¥·¥Õ¥ÈJIS¥³¡¼¥É¤ËÊÑ´¹¤·¤Æ<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL SJIS(<ʸ»úÊÑ¿ô>,<ʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CALL SJIS(A$,"´Á»ú") 20 PRINT A$ ¡Úɽ¼¨¡Û3441 ---- !CALL SYSTEM ¡ÚDisk¡Û{{anchor CALL_SYSTEM}} ,µ¡¡¡Ç½{SIZE:100|CENTER} MSX-DOS¤òµ¯Æ°¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CALL SYSTEM ,ʸ¡¡Îã{SIZE:100|CENTER} CALL SYSTEM ,²ò¡¡Àâ{SIZE:100|CENTER} SYSTEM¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¤È¡¢DOS¤ËÌá¤ëÁ°¤Ë¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤ÏÊĤ¸¤é¤ì¡¢¥á¥â¥êÃæ¤Î¥×¥í¥°¥é¥à¤ä¥Ç¡¼¥¿¤Ï¼º¤ï¤ì¤Þ¤¹¡£ ¤³¤ÎÌ¿Î᤬¼Â¹Ô¤Ç¤­¤ë¤Î¤Ï¡¢MSX-DOS¤«¤éDisk BASIC¤òµ¯Æ°¤·¤¿¾ì¹ç¤À¤±¤Ç¤¹¡£¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ï¡¢¡ÖIllegal function call¡×¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£ ---- !CDBL {{anchor CDBL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤòÇÜÀºÅټ¿ô¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CDBL(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT CDBL(1/3) ¡Úɽ¼¨¡Û.33333333333333 ---- !CHR$ {{anchor CHR$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤ò»ý¤Äʸ»ú¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CHR$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT CHR$(65) ¡Úɽ¼¨¡ÛA ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤Ï0¡Á255¤ÎÈϰϤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Ê¸»ú¤È¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤ÎÂбþ¤Ë¤Ä¤¤¤Æ¤Ï¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥Éɽ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ASC,ASC}}{{# ¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥Éɽ,¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥Éɽ}} ---- ! CINT {{anchor CINT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î¾®¿ôÅÀ°Ê²¼¤òÀÚ¤ê¼Î¤Æ¤Æ¡¢¼Â¿ô¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CINT(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT CINT(123.45678) ¡Úɽ¼¨¡Û123 ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤ¬-32768¡Á32767¤ÎÈϰϳ°¤Î¤È¤­¤Ï¡¢¡ÖOverflow¡×¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£ ---- ! CIRCLE {{anchor CIRCLE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤˱ߤäÂʱߤòÉÁ¤­¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CIRCLE[STEP](X,Y),<Ⱦ·Â>[,<¥«¥é¡¼¥³¡¼¥É>][,<³«»Ï³ÑÅÙ>][,<½ªÎ»³ÑÅÙ>][,<ÈæΨ>] ,ʸ¡¡Îã{SIZE:100|CENTER} CIRCLE(128,96),50,1 ,²ò¡¡Àâ{SIZE:100|CENTER} SCREEN2°Ê¾å¤Î²èÌ̤DZߤòÉÁ¤­¤Þ¤¹¡£Ãæ¿´ºÂɸ¤ÏX¼´Êý¸þ¤Ë255(SCREEN 6¡¢7¤Ç¤Ï511)¡¢Y¼´Êý¸þ¤Ë191(SCREEN 5°Ê¹ß¤Ç¤Ï211)¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢¤½¤ÎÈÏ°ÏÆâ¤Î¿ôÃͤò»ØÄê¤Ç¤­¤Þ¤¹¡£¤Þ¤¿¡¢STEP¤òÍѤ¤¤ÆÃæ¿´¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹(STEP¤òÍѤ¤¤¿»ØÄê¤ÎÊýË¡¤Ë¤Ä¤¤¤Æ¤Ï{{# LINE,LINE}}Ì¿Îá¤ò»²¾È)¡£ ¿§¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¿§¤Ç±ß¤¬ÉÁ¤«¤ì¤Þ¤¹¡£¿§¤Î»ØÄê¤ò¾Êά¤¹¤ë¤È¡¢COLOR¤Ç»ØÄꤵ¤ì¤¿Á°·Ê¿§¤¬ÍѤ¤¤é¤ì¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0},{BSIZE:0} ,,¢£,¸Ì¤ÈÀð·Á ,, ,"'''CIRCLE(128,96),50,1,3/4*3.14,1/4*3.14'''" ,, ,¤Î¤è¤¦¤Ë¡¢±ß¤Î³«»Ï³ÑÅÙ(3/4*3.14)¤È½ªÎ»³ÑÅÙ(1/4*3.14)¤ò»ØÄꤹ¤ì¤Ð¡¢¤½¤ÎÈϰϤθ̤¬ÉÁ¤«¤ì¤Þ¤¹¡£¤½¤ì¤¾¤ì¤Ë¥Þ¥¤¥Ê¥¹µ­¹æ¤ò¤Ä¤±¤ë¤È¡¢Àð·Á¤¬ÉÁ¤«¤ì¤Þ¤¹¡£³«»Ï³ÑÅÙ¡¢½ªÎ»³ÑÅ٤λØÄê¤Ï¡¢-2¦Ð¤«¤é2¦Ð¤ÎÈÏ°ÏÆâ¤Ç¹Ô¤¤¤Þ¤¹¡£ ,,¢£,Â汧 ,, ,"'''CIRCLE(128,96),50,1,,,0.8'''" ,, ,¤Î¤è¤¦¤Ë¡¢ºÇ¸å¤ËÈæΨ(0.8)¤ò»ØÄꤹ¤ì¤Ð¡¢Âʱߤ¬ÉÁ¤«¤ì¤Þ¤¹¡£ÈæΨ¤Ï¡Ö¿âľÊý¸þ¤ÎȾ·Â/¿åÊ¿Êý¸þ¤ÎȾ·Â¡×¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£Ãͤ¬1¤è¤ê¾®¤µ¤¤¤È²£¤ËÊ¿¤Ù¤Ã¤¿¤¤ÂʱߤȤʤꡢ1¤è¤êÂ礭¤¤¤È½Ä¤ËºÙŤ¤ÂʱߤȤʤê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SCREEN,SCREEN}}¡¢{{# COLOR,COLOR}} ---- !CLEAR ,µ¡¡¡Ç½{SIZE:100|CENTER} ÊÑ¿ô¤Î½é´ü²½¤È»ÈÍѤ¹¤ë¥á¥â¥êÎΰè¤ÎÂ礭¤µ¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CLEAR[<ʸ»úÎóÎΰè¤ÎÂ礭¤µ>[,<¥á¥â¥ê¤Î¾å¸Â>]] ,ʸ¡¡Îã{SIZE:100|CENTER} CLEAR 200,&HD000 ,²ò¡¡Àâ{SIZE:100|CENTER} CLEAR¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤¹¤Ù¤Æ¤ÎÊÑ¿ô¤¬½é´ü²½¤µ¤ì¡¢DEFÌ¿Îá(DEF FN¡¢DEFINT/SGN/DBL/STR)¤ÎÄêµÁ¤Ï̵¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£½é´ü²½¤µ¤ì¤ë¤È¡¢¿ôÃÍÊÑ¿ô¤Ï0¤Ë¡¢Ê¸»úÊÑ¿ô¤Ï¥Ì¥ë(²¿¤âʸ»ú¤¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Ê¤¤¾õÂÖ)¤Ë¤Ê¤ê¤Þ¤¹¡£ ¤Þ¤¿¡¢ '''CLEAR 300,&HD000''' ¤Î¤è¤¦¤Ê»ØÄê¤Ç¤Ï¡¢ÊÑ¿ô¤Î½é´ü²½¤Î¤Û¤«¤Ë¡¢Ê¸»úÊÑ¿ô¤ÎÆâÍƤò¤·¤Þ¤Ã¤Æ¤ª¤¯Ê¸»úÎóÎΰè¤ÎÂ礭¤µ(¤³¤Î¾ì¹ç¡¢300)¤È¡¢BASIC¤¬»ÈÍѤ¹¤ë¥á¥â¥ê¤Î¾å¸Â(¤³¤Î¾ì¹ç¡¢&HD000)¤òÀßÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Ê¸»úÎóÎΰè¤ÎÂ礭¤µ¤Ï¡¢¥á¥â¥ê¤Îµö¤¹¸Â¤ê¤ÎÃͤޤǻØÄê¤Ç¤­¤Þ¤¹¡£¾Êά¤·¤¿¤È¤­¤Ï200¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¥á¥â¥ê¤Î¾å¸Â¤Ï&H831F¡Á&HF380¤ÎÈϰϤǻØÄê¤Ç¤­¤Þ¤¹¡£¤·¤«¤·¡¢Disk BASIC¤Ê¤É¤Î¥ï¡¼¥¯¥¨¥ê¥¢¤ò²õ¤µ¤Ê¤¤¤è¤¦¤ËÃí°Õ¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¥á¥â¥ê¤Î¾å¸Â¤ò¤òÀßÄꤹ¤ë¤È¤­¤Ï¡¢Ê¸»úÎóÎΰè¤ÎÂ礭¤µ¤ò¾Êά¤Ç¤­¤Þ¤»¤ó¡£¥á¥â¥ê¤Î¾å¸Â¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡Ö[[4.2 ¥æ¡¼¥¶¡¼¥¨¥ê¥¢¤Î¾ÜºÙ|4¾Ï BASIC¤ÎÆâÉô¹½Â¤]]¡×¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# FRE,FRE}} ---- !CLOAD ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥«¥»¥Ã¥È¥Æ¡¼¥×¤Î¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CLOAD[<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>] ,ʸ¡¡Îã{SIZE:100|CENTER} CLOAD "TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¥»¥Ã¥È¥Æ¡¼¥×¤ËCSAVE¤Ç¥»¡¼¥Ö¤µ¤ì¤¿¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¤·¤Þ¤¹¡£ CLOAD¤¬¼Â¹Ô¤µ¤ì¤ë¤È¡¢<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë̾¤Î¥×¥í¥°¥é¥à¤ò¥«¥»¥Ã¥È¥Æ¡¼¥×¾å¤Çõ¤·¤Þ¤¹¡£Ãµ¤·¤Æ¤¤¤ëºÇÃæ¤ËÊÌ¤Î¥×¥í¥°¥é¥à¤ò¸«¤Ä¤±¤ë¤È¡ÖSkip:¥Õ¥¡¥¤¥ë̾¡×¤È²èÌ̤Ëɽ¼¨¤µ¤ì¡¢»ØÄꤵ¤ì¤¿¥×¥í¥°¥é¥à¤¬¸«¤Ä¤«¤ë¤È¡ÖFound:¥Õ¥¡¥¤¥ë̾¡×¤Èɽ¼¨¤·¤Æ¥í¡¼¥É¤ò³«»Ï¤·¤Þ¤¹¡£ CLOAD¤Î¸å¤í¤Ë»ØÄꤹ¤ë¥Õ¥¡¥¤¥ë̾¤ò¾Êά¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¾Êά¤·¤¿¤È¤­¤Ï¡¢CLOAD¤¬¼Â¹Ô¤µ¤ì¤ÆºÇ½é¤Ë¤ß¤Ä¤±¤¿¥×¥í¥°¥é¥à(CSAVE¤Ç¥»¡¼¥Ö¤µ¤ì¤¿¤â¤Î)¤ò¥í¡¼¥É¤·¤Þ¤¹¡£CLOADÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î¤È¤­¥á¥â¥ê¾å¤Ë¤¢¤Ã¤¿¥×¥í¥°¥é¥à¤Ï̵¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢CLOAD¤Ç¡¢SAVEÌ¿Îá¤Ë¤è¤Ã¤Æ¥»¡¼¥Ö¤µ¤ì¤¿¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CSAVE,CSAVE}}¡¢{{# LOAD,LOAD}} ---- !CLOAD? ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥«¥»¥Ã¥È¥Æ¡¼¥×¤Î¥×¥í¥°¥é¥à¤È¥á¥â¥ê¾å¤Î¥×¥í¥°¥é¥à¤òÈæ³Ó¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CLOAD?[<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>] ,ʸ¡¡Îã{SIZE:100|CENTER} CLOAD? "TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Ë¤¢¤ë¥×¥í¥°¥é¥à(LISTÌ¿Îá¤Ç²èÌ̤Ëɽ¼¨¤µ¤ì¤ë¤â¤Î)¤È¡¢¥«¥»¥Ã¥È¥Æ¡¼¥×¤Ë¥»¡¼¥Ö¤µ¤ì¤¿¥×¥í¥°¥é¥à¤¬Æ±¤¸¤«¤É¤¦¤«Ä´¤Ù¤Þ¤¹¡£Æ±¤¸¤Ç¤¢¤ì¤Ð¡ÖOk¡×¤Èɽ¼¨¤µ¤ì¡¢°ã¤Ã¤Æ¤¤¤ë¤È¡ÖVeriffy error¡×¤Èɽ¼¨¤µ¤ì¤Þ¤¹¡£CLOADÌ¿Îá¤Ï¡¢ÉáÄÌCSAVEÌ¿Îá¤ò¼Â¹Ô¤·¤¿¸å¤Ë¡¢¥»¡¼¥Ö¤¬Àµ¤·¤¯¹Ô¤ï¤ì¤¿¤«¤É¤¦¤«¤ò³Îǧ¤¹¤ë¤¿¤á¤Ë»È¤ï¤ì¤Þ¤¹¡£ CLOAD?¤Î¸å¤í¤Ë»ØÄꤹ¤ë¥Õ¥¡¥¤¥ë̾¤ò¾Êά¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¾Êά¤·¤¿¤È¤­¤Ï¡¢CLOAD?¤¬¼Â¹Ô¤µ¤ì¤ÆºÇ½é¤Ë¸«¤Ä¤±¤¿¥×¥í¥°¥é¥à(CSAVE¤Ç¥»¡¼¥Ö¤µ¤ì¤¿¤â¤Î)¤òÈæ³Ó¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CSAVE,CSAVE}}¡¢{{# LOAD,LOAD}} ---- !CLOSE ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CLOSE [[#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>[,[#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>]¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} CLOSE #1 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤ËÂбþ¤¹¤ë¥Õ¥¡¥¤¥ë¤òÊĤ¸¤Þ¤¹¡£»ØÄꤷ¤¿<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ï¡¢°Ê¹ß¤ÎOPENʸ¤Ç»ØÄꤹ¤ë¤È¤³¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¤¤¤Ã¤¿¤óÊĤ¸¤¿¥Õ¥¡¥¤¥ë¤ò¤â¤¦°ìÅÙ³«¤¯¤È¤­¤Ë¤Ï¡¢Â¾¤Î¥Õ¥¡¥¤¥ë¤¬»È¤Ã¤Æ¤¤¤Ê¤¤<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ê¤é¤Ð¡¢¤É¤Î<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ç¤â»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ CLOSE¤Ç¤Ï¡¢<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤òÊ£¿ô»ØÄꤹ¤ë¤³¤È¤Ë¤è¤ê¡¢°ìÅÙ¤ËÊ£¿ô¤Î¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤Þ¤¿<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤ò¾Êά¤¹¤ë¤È¡¢¤½¤Î¤È¤­³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤ò¤¹¤Ù¤ÆÊĤ¸¤Þ¤¹¡£ ÊĤ¸¤¿¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤Ï¡¢ºÆ¤ÓOPENʸ¤Ç³«¤¯¤Þ¤ÇÆþ½ÐÎϤò¹Ô¤¦¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£CLOSEʸ¤Ï¡¢¥Õ¥¡¥¤¥ë¤¬½ÐÎÏÍѤ˥ª¡¼¥×¥ó¤µ¤ì¤Æ¤¤¤¿¾ì¹ç¤Ë¤Ï¡¢¥Ð¥Ã¥Õ¥¡¤Ë»Ä¤Ã¤Æ¤¤¤¿¥Ç¡¼¥¿¤ÎÁݤ­½Ð¤·¤ò¹Ô¤¦¤Î¤Ç¡¢¥Õ¥¡¥¤¥ë¤Ø¤Î½ÐÎϽèÍý¤òÀµ¤·¤¯½ªÎ»¤¹¤ë¤¿¤á¤Ë¤Ï¡¢É¬¤ºCLOSEʸ¤ò¼Â¹Ô¤·¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£ ENDʸ¡¢NEWʸ¤ò¼Â¹Ô¤¹¤ë¤È¡¢¼«Æ°Åª¤Ë¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤¬ÊĤ¸¤é¤ì¤Þ¤¹¤¬¡¢STOPʸ¤Ï¥Õ¥¡¥¤¥ë¤òÊĤ¸¤Ê¤¤¤Î¤ÇÃí°Õ¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OPEN,OPEN}}¡¢{{# END,END}}¡¢{{# NEW,NEW}} ---- !CLS ,µ¡¡¡Ç½{SIZE:100|CENTER} ²èÌ̤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ëʸ»ú¤ä³¨¤ò¾Ã¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CLS ,ʸ¡¡Îã{SIZE:100|CENTER} CLS ,²ò¡¡Àâ{SIZE:100|CENTER} CLS¤Ï¡¢KEY ON»ØÄê¤Çɽ¼¨¤µ¤ì¤Æ¤¤¤ë¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤò½ü¤¤¤Æ¡¢Ê¸»ú¡¢ÅÀ¡¢Àþ¡¢³¨¤Ê¤É²èÌ̤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤ò¤¹¤Ù¤Æ¾Ã¤·¤Þ¤¹¡£ ¤Þ¤¿¡¢CLS¤¬¼Â¹Ô¤µ¤ì¤ë¤È¡¢¥Æ¥­¥¹¥È²èÌ̤ξì¹ç¡¢¥«¡¼¥½¥ë¤Ï²èÌÌ°ìÈÖ¾å¤Îº¸Ã¼¤Ë°ÜÆ°¤·¤Þ¤¹¤¬¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤ǤÏLP(ºÇ½ª»²¾ÈÅÀ)¤ÏÊѲ½¤·¤Þ¤»¤ó¡£ CLS¤Ï´Á»ú¥â¡¼¥É¤Ç¤Ï»ÈÍѤǤ­¤Þ¤»¤ó¡£(Illegal function call¤Ë¤Ê¤ë)¡£´Á»ú¥â¡¼¥É¤Ç²èÌ̤ò¾Ã¤¹¤È¤­¤ÏCALL CLSÌ¿Îá¤ò»È¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}}¡¢{{# CALL CLS,CALL CLS}} ---- !COLOR ,µ¡¡¡Ç½{SIZE:100|CENTER} ²èÌ̤理ò»ØÄꤷ¤Þ¤¹¡£½ñ¼°1°Ê³°¤ÏÁ´¤ÆMSX2°Ê¹ßÀìÍѤǤ¹¡£ ,½ñ¡¡¼°1{SIZE:100|CENTER} COLOR[<Á°·Ê¿§>][,<ÇØ·Ê¿§>][,<¼þÊÕ¿§>] ,½ñ¡¡¼°2{SIZE:100|CENTER} COLOR=(<¥Ñ¥ì¥Ã¥ÈÈÖ¹æ>,,,) ,½ñ¡¡¼°3{SIZE:100|CENTER} COLOR=RESTORE ,½ñ¡¡¼°4{SIZE:100|CENTER} COLOR[=NEW] ,ʸ¡¡Îã1{SIZE:100|CENTER} COLOR 1,5,8 ,²ò¡¡Àâ1{SIZE:100|CENTER} ¿§¤Ï¡¢¤½¤ì¤¾¤ì°Ê²¼¤Î0¡Á15(SCREEN6¤Ç¤Ï0¡Á3)¤Þ¤Ç¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:40},{BSIZE:0|SIZE:30},{BSIZE:0},{BSIZE:0|SIZE:30},{BSIZE:0|SIZE:30},{BSIZE:0} ,,0,Æ©ÌÀ(¼þÊÕ¿§¤ÈƱ¤¸¿§),,8,ÀÖ ,,1,¹õ ,,9,ÌÀ¤ë¤¤ÀÖ ,,2,ÎÐ ,,10,²« ,,3,ÌÀ¤ë¤¤ÎÐ ,,11,ÌÀ¤ë¤¤²« ,,4,°Å¤¤ÀÄ ,,12,°Å¤¤ÎÐ ,,5,ÌÀ¤ë¤¤ÀÄ ,,13,»ç ,,6,°Å¤¤ÀÖ ,,14,³¥ ,,7,¿å¿§ ,,15,Çò ÅŸ»ÅêÆþ»þ¤Ë¤Ï¡¢COLOR¤Ï¡ÖCOLOR 15,4,7¡×¤ËÀßÄꤵ¤ì¡¢SCREENʸ¤ò¼Â¹Ô¤·¤¿¤È¤­¤Ë¤Ï¡¢¥«¥é¡¼¥Ñ¥ì¥Ã¥È¤Ï¾åµ­¤Î¤è¤¦¤ËÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ SCREEN 8°Ê³°¤Ç¤Ï¡¢½ñ¼°2¤ÎCOLOR=¤ò»È¤Ã¤Æ¤³¤ì¤é¤Î¿§¤ò512¿§¤ÎÃ椫¤éÁª¤ó¤Ç¼«Í³¤ËÀßÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ¤Ê¤ª¡¢¥×¥í¥°¥é¥àÃæ¤Ç¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤ò»ØÄꤹ¤ë¤È¡¢¤½¤ì¤Þ¤Ç¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç»È¤ï¤ì¤Æ¤¤¤¿¿§¤¬¤½¤Î¤Þ¤Þ»È¤ï¤ì¤Æ¤¤¤Þ¤¹¡£ SCREEN 8¤Î¿§¤Ï¡¢0¡Á255¤¬»È¤¨¤Þ¤¹¡£ 00000000 8¥Ó¥Ã¥È¤Î¿§¥³¡¼¥É GGGRRRBB Green¡¢Red¡¢Blue¤Î³Æ¥Ó¥Ã¥È Î㤨¤Ð¡¢ÌÀ¤ë¤¤ÎФÏ&B11100000(=224)¡¢°Å¤¤»ç¤Ê¤é&B00000101(=5)¤Ê¤É¤È¤Ê¤ê¤Þ¤¹¡£ SCREEN 10¤Ç¤Ï0¡Á15¡¢SCREEN 11¡¢12¤Ç¤Ï0¡Á255¤¬»È¤¨¤Þ¤¹¡£SCREEN 10¤Ç¤ÏYJK/RGBº®ºß¥â¡¼¥É¤ÎRGBÉôʬ¤Î¤ß¤Î»ØÄê¤Ê¤Î¤Ç¡¢SCREEN 7°Ê²¼¤Î¥«¥é¡¼¥Ñ¥ì¥Ã¥È¤Î»ØÄê¤ÈÁ´¤¯Æ±¤¸¤È¹Í¤¨¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£SCREEN 11°Ê¹ß¤Ç¤Ï¥«¥é¡¼¥³¡¼¥É¤ÏVRAM¤ÎÃͤȹͤ¨¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¢YJKÊý¼°¤ÎÀ­³Ê¾å¤³¤ì¤òñ½ã¤Ë²ò¼á¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£¾Ü¤·¤¯¤ÏV9958¤ÎYJK¥â¡¼¥É¤Ë´Ø¤¹¤ëµ­½Ò¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:40},{BSIZE:0},{BSIZE:0} ,,¢£,Á°·Ê¿§ ,, ,¥Æ¥­¥¹¥È²èÌÌ(SCREEN 0¤ª¤è¤Ó1¤Î¥Æ¥­¥¹¥È¥â¡¼¥É)¤Îʸ»ú¤Î¿§¤ä¡¢¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤ÎÅÀ¤äÀþ¤Î¿§¤Ç¤¹¡£¤¿¤À¤·¡¢¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤ÇÅÀ¤äÀþ¤Ê¤É¤òÉÁ¤¯¤È¤­¤Ë¤Ï¡¢³ÆÌ¿Îá¤Ç¿§¤Î»ØÄê¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£³ÆÌ¿Îá¤Ç¿§¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î»ØÄê¤ÎÊý¤¬Í¥À褵¤ì¤Þ¤¹¡£Á°·Ê¿§¤À¤±¤òÊѤ¨¤ë¤Ë¤ÏÎ㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£ ,, ,'''COLOR 9''' ,,¢£,ÇØ·Ê¿§ ,, ,¥Æ¥­¥¹¥È²èÌ̤䥰¥é¥Õ¥£¥Ã¥¯²èÌ̤ÎÃϤο§¤Î¤³¤È¤Ç¤¹¡£¥Æ¥­¥¹¥È²èÌ̤Ǥϡ¢Ì¿Îá¼Â¹Ô¸å¤Ë»ØÄꤷ¤¿ÇØ·Ê¿§¤ËÊѤ¨¤é¤ì¤Þ¤¹¡£¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤Ǥϡ¢SCREEN¤«CLS¤ò¼Â¹Ô¤·¤¿¸å¤ËÇØ·Ê¿§¤¬ÊѤ¨¤é¤ì¤Þ¤¹¡£ÇØ·Ê¿§¤À¤±¤òÊѤ¨¤ë¤Ë¤Ï¡¢Î㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£ ,, ,"'''COLOR ,4'''" ,,¢£,¼þÊÕ¿§ ,, ,²èÌ̾岼¤ÎBASIC¤Ç»È¤¨¤Ê¤¤Éôʬ¤Î¤³¤È¤Ç¤¹¡£¼þÊÕ¿§¤À¤±¤òÊѤ¨¤ë¤Ë¤Ï¡¢Î㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£ ,, ,"'''COLOR ,,13'''" {{svg ¿Þ2.10.svg}} ¿Þ2.10 ²èÌÌ¿§ ,ʸ¡¡Îã2{SIZE:100|CENTER} 10 SCREEN 5 20 COLOR= (0,0,7,7) ,²ò¡¡Àâ2{SIZE:100|CENTER} SCREEN 6¤Ç¤Ï0¡Á3¡¢SCREEN 8°Ê³°¤Ç¤Ï0¡Á15¤Î¥Ñ¥ì¥Ã¥È¤Ë¿§¤ò³ä¤êÅö¤Æ¤Þ¤¹¡£¾å¤ÎÎã¤Ç¤Ï¥Ñ¥ì¥Ã¥È0¤Ë0¡¢7¡¢7¡¢¤Ä¤Þ¤ê &B000 &B111 &B111 RRR GGG BBB (RGB³Æ3¥Ó¥Ã¥È¡¢0¡Á7¤ÎÃÍ) ¤Î·ë²Ì¤È¤·¤ÆÌÀ¤ë¤¤¿å¿§¤ò³ä¤êÅö¤Æ¤Æ¤¤¤Þ¤¹¡£³ä¤êÅö¤Æ¤¿¸å¤Ï¡¢½ñ¼°1¤Ë¤·¤¿¤¬¤Ã¤Æ¿§¤òÀßÄꤷ¤Þ¤¹¡£ ½é´ü¾õÂ֤Ǥϡ¢½ñ¼°1¤ÇÀâÌÀ¤·¤¿¥«¥é¡¼ÈÖ¹æ¤È¥Ñ¥ì¥Ã¥ÈÈֹ椬Ʊ¤¸¤Ë¤Ê¤ë¤è¤¦¤ËÀßÄꤷ¤Æ¤¢¤ê¤Þ¤¹¡£ ,ʸ¡¡Îã3{SIZE:100|CENTER} COLOR=RESTORE ,²ò¡¡Àâ{SIZE:100|CENTER} VRAM¾å¤Î¥Ñ¥ì¥Ã¥È¥Æ¡¼¥Ö¥ë¤Î¾ðÊó¤Ë¤·¤¿¤¬¤Ã¤Æ¥Ñ¥ì¥Ã¥È¤òÀßÄꤷ¤Þ¤¹¡£ ,ʸ¡¡Îã4{SIZE:100|CENTER} COLOR=NEW ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Ñ¥ì¥Ã¥È¤ò½é´ü¾õÂ֤˥»¥Ã¥È¤·¤Þ¤¹¡£=NEW¤Ï¾Êά¤·¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CALL KANJI,CALL KANJI}}¡¢{{# CLS,CLS}}¡¢{{# SCREEN,SCREEN}}¡¢{{# VRAM¥Þ¥Ã¥×,VRAM¥Þ¥Ã¥×}}¡¢{{# V9958,V9958}} ---- !COLOR SPRITE ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¤Î1¥é¥¤¥óËè¤Î¿§¤ò·è¤á¤Þ¤¹¡£ ,½ñ¡¡¼°1{SIZE:100|CENTER} COLOR SPRITE$(<¥×¥ì¡¼¥óÈÖ¹æ>)=<ʸ»ú¼°> ,ʸ¡¡Îã1{SIZE:100|CENTER} COLOR SPRITE$(0)=CHR$(1)+CHR$(7) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¤Î¿§¤â¼ÂºÝ¤Ë¤Ï¡¢¥Ñ¥ì¥Ã¥ÈÈÖ¹æ¤Ç»ØÄꤷ¤Þ¤¹¡£¤³¤ÎÎã¤Ç¤Ï¥×¥ì¡¼¥ó0¤Î1¥é¥¤¥óÌܤò¹õ¤Ë¡¢2¥é¥¤¥óÌܤò¿å¿§¤Ë¤·¤Æ¤¤¤Þ¤¹¡£¥¹¥×¥é¥¤¥È¤Î1¥é¥¤¥óËè¤Ë¿§¤ò¤Ä¤±¤é¤ì¤ë¤Î¤Ï¡¢SCREEN¥â¡¼¥É4°Ê¹ß¤Î»þ¤À¤±¤Ç¤¹¡£¿§¥³¡¼¥É¤Ë¤Ä¤¤¤Æ¤ÏCOLOR¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£¤Ê¤ª¿§¥³¡¼¥É¤¬15¤òĶ¤¨¤ë¾ì¹ç¡¢¾å°Ì4¥Ó¥Ã¥È¤Ï¼¡¤Î¤è¤¦¤Ê°ÕÌ£¤ò»ý¤Á¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:40|TOP},{BSIZE:0} ,'''bit7''',32¥É¥Ã¥Èº¸¥·¥Õ¥Èɽ¼¨¡£ ,'''bit6''',PUT SPRITE¤ò¼Â¹Ô¤·¤¿¤È¤­Ï¢Â³¤·¤¿¥×¥ì¡¼¥ó¤òƱ»þ¤ËÆ°¤«¤¹¡£¤³¤Î¤È¤­½Å¤Ê¤Ã¤¿Éôʬ¤Î¿§¥³¡¼¥É¤ÏOR¤µ¤ì¤Æɽ¼¨¤µ¤ì¡¢¾×Æͤϸ¡½Ð¤µ¤ì¤Ê¤¤*¡£ ,'''bit5''',¾×Æͤò¸¡½Ð¤·¤Ê¤¤¡£ ,'''bit4''',̤»ÈÍÑ¡£ *bit6¤¬ON¤Î¤È¤­¤Ïɽ¼¨¤¬Ê£»¨¤Ë¤Ê¤ê¤Þ¤¹¡£¾Ü¤·¤¯¤Ï¡ÖÂè4Éô VDP¡×¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0},{BSIZE:0} ,{{svg ¿Þ2.11.svg}},"¤¹¤Ù¤Æ¤ÎSPRITE$¤òSTRING$(32,255)¤È¤·¡¢¥¹¥×¥é¥¤¥ÈÌÌ0¤¬&B00000111(¿å¿§)¡¢¥¹¥×¥é¥¤¥ÈÌÌ1¤¬&B01001000(bit6¤¬ON¤µ¤ì¤¿ÀÖ)¤Î¤È¤­¡£" ,¿Þ2.11 bit6¤¬ON¤Î»þ¤Î¥¹¥×¥é¥¤¥È bit6¤¬ON¤Î¥¹¥×¥é¥¤¥ÈÌ̤¬Ï¢Â³¤·¤Æ¤¤¤ë¤È¡¢1¤Ä¤ÎPUT SPRITEÌ¿Îá¤Ç¤½¤ì¤é¤òÆ°¤«¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ {{svg ¿Þ2.12.svg}} ¿Þ2.12 bit6¤¬ON¤Î»þ¤ÎPUT SPRITEÌ¿Îá SCREEN 8¤Î¥¹¥×¥é¥¤¥È¤À¤±¤Ï¼¡¤Î¤è¤¦¤Ê16¿§¤Ë¸ÇÄꤵ¤ì¤Þ¤¹¡£ ɽ2.7 SCREEN 8¤Î¥¹¥×¥é¥¤¥È¿§ ,{c CS},{CENTER|SIZE:80} ,{c},{CENTER|SIZE:100},{CS},{CS},{CS},{CS},{CS},{CS},{CS},{CS} ,¥«¥é¡¼ÈÖ¹æ,0,1,2,3,4,5,6,7 ,¿§ ,¹õ,°Å¤¤ÀÄ,°Å¤¤ÀÖ,°Å¤¤»ç,°Å¤¤ÎÐ,°Å¤¤¿å¿§,°Å¤¤²«¿§,³¥¿§ ,¥«¥é¡¼ÈÖ¹æ,8,9,10,11,12,13,14,15 ,¿§ ,È©¿§,ÀÄ,ÀÖ,»ç,ÎÐ,¿å¿§,²«¿§,Çò ,½ñ¡¡¼°2{SIZE:100|CENTER} COLOR SPRITE(<¥×¥ì¡¼¥óÈÖ¹æ>)=<¼°> ,ʸ¡¡Îã2{SIZE:100|CENTER} COLOR SPRITE(1)=15 ¥×¥ì¡¼¥ó1Á´ÂΤòÇò¤Ë¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}}¡¢{{# SPRITE,SPRITE}} ---- !CONT {{anchor CONT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} Ää»ß¤·¤¿¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òºÆ³«¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CONT ,ʸ¡¡Îã{SIZE:100|CENTER} CONT ,²ò¡¡Àâ{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤Î¼Â¹ÔÄä»ß¸å¡¢¡ÖCONT¡×¤ÈÆþÎϤ¹¤ë¤È¡¢Ää»ß¤·¤¿¼¡¤Îʸ¤«¤é¼Â¹Ô¤¬ºÆ³«¤µ¤ì¤Þ¤¹¡£¥×¥í¥°¥é¥à¤Î¼Â¹ÔÄä»ß¤Ï¡¢[CTRL]+[STOP]¥­¡¼ÆþÎϤä¥×¥í¥°¥é¥àʸÃæ¤ÎSTOPʸ¤äENDʸ¤Ë¤è¤ë¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤Þ¤¿INPUT$´Ø¿ô¤Î¥­¡¼ÆþÎÏÂÔ¤Á¤ò[CTRL]+[STOP]¥­¡¼¤Ç»ß¤á¤¿¾ì¹ç¤Ï¡¢CONT¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ¼Â¹ÔÄä»ßÃæ¤ËLISTÌ¿Îá¤äPRINTÌ¿Îá¤Ê¤É¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤¹¤¬¡¢¥×¥í¥°¥é¥à¤½¤Î¤â¤Î¤ÎÊѹ¹¤ò¹Ô¤Ã¤¿¤È¤­¤Ï¡¢CONT¤Ë¤è¤ë¼Â¹Ô¤ÎºÆ³«¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# STOP,STOP}}¡¢{{# END,END}} ---- !COPY ¡Ú2¡Û¡ÚDisk¡Û{{anchor COPY}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤äVRAM¤ÎÆâÍÆ¡¢ÇÛÎó¤ò¥³¥Ô¡¼¤·¤Þ¤¹¡£½ñ¼°1°Ê³°¤ÏÁ´¤ÆSCREEN¥â¡¼¥É¤¬5°Ê¹ß¤ÇÍ­¸ú¤Ê¤Î¤ÇMSX2°Ê¹ßÀìÍѤǤ¹¡£¥Ñ¥é¥á¡¼¥¿¤Ë<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤ò´Þ¤à½ñ¼°¤ÏÁ´¤ÆDisk BASIC¤Ç¤Î¤ßÍ­¸ú¤Ç¤¹¡£ÏÀÍý±é»»»Ò¤È¤·¤Æ¤Ï¡¢AND¡¢OR¡¢XOR¡¢PSET¡¢PRESET¤¬»ØÄê²Äǽ¤Ç¤¹¡£ ,½ñ¡¡¼°1{SIZE:100|CENTER} COPY<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯1> [TO <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯2>] ,½ñ¡¡¼°2{SIZE:100|CENTER} COPY (<¥½¡¼¥¹ºÂɸ1>)-(<¥½¡¼¥¹ºÂɸ2>)[,<¥½¡¼¥¹¥Ú¡¼¥¸>] TO (<¥Ç¥¹¥Æ¥£¥Í¡¼¥·¥ç¥óºÂɸ>)[,<¥Ç¥¹¥Æ¥£¥Í¡¼¥·¥ç¥ó¥Ú¡¼¥¸>][,<ÏÀÍý±é»»»Ò>] ,½ñ¡¡¼°3{SIZE:100|CENTER} COPY (<¥½¡¼¥¹ºÂɸ1>)-(<¥½¡¼¥¹ºÂɸ2>)[,<¥½¡¼¥¹¥Ú¡¼¥¸>] TO <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯¤Þ¤¿¤ÏÇÛÎó̾> ,½ñ¡¡¼°4{SIZE:100|CENTER} COPY <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯¤Þ¤¿¤ÏÇÛÎó̾>[,<Êý¸þ>] TO (<¥Ç¥¹¥Æ¥£¥Í¡¼¥·¥ç¥óºÂɸ>)[,<¥Ç¥¹¥Æ¥£¥Í¡¼¥·¥ç¥ó¥Ú¡¼¥¸>][,<ÏÀÍý±é»»»Ò>] ,½ñ¡¡¼°5{SIZE:100|CENTER} COPY <ÇÛÎó̾> TO <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯> ,½ñ¡¡¼°6{SIZE:100|CENTER} COPY <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯> TO <ÇÛÎó̾> ,½ñ¡¡¼°7{SIZE:100|CENTER} COPY SCREEN [<¥â¡¼¥É>] ,ʸ¡¡Îã1{SIZE:100|CENTER} COPY "A:SAMPLE.DAT" TO "SAMPLE.BAK" ,²ò¡¡Àâ1{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯1>¤ò<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯2>¤Ç»ØÄꤷ¤¿¥É¥é¥¤¥Ö¤Ø¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë̾¤Ç¥³¥Ô¡¼¤·¤Þ¤¹¡£¤³¤ÎCOPY¥³¥Þ¥ó¥É¤Ï¥Ç¥£¥¹¥¯ÁõÃִ֤ΤߤÇÍ­¸ú¤Ç¤¹¡£ »ØÄê¤ÎÊýË¡¤Ï4¼ïÎढ¤ê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:40},{BSIZE:0},{BSIZE:0} ,,¢£,'''<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯1>¤À¤±¤ò»ØÄꤷ¤¿¾ì¹ç''' ,, ,'''COPY "B:SAMPLE.DAT"''' ,, ,¤³¤Î¾ì¹ç¡¢SAMPLE.DAT¤Ï¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤ËƱ¤¸Ì¾Á°(SAMPLE.DAT)¤Ç¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ,,¢£,'''<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯2>¤Ç¥É¥é¥¤¥Ö̾¤À¤±¤ò»ØÄꤷ¤¿¾ì¹ç''' ,, ,'''COPY "A:SAMPLE.DAT" TO "B:"''' ,, ,¤³¤Î¾ì¹ç¡¢SAMPLE.DAT¤Ï¡¢¥É¥é¥¤¥ÖB¤ËƱ¤¸Ì¾Á°¤Ç¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ,,¢£,'''<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯2>¤Ç¥Õ¥¡¥¤¥ë̾¤À¤±¤ò»ØÄꤷ¤¿¾ì¹ç''' ,, ,'''COPY "B:SAMPLE.DAT" TO "SAMPLE.BAK"''' ,, ,¤³¤Î¾ì¹ç¡¢SAMPLE.DAT¤Ï¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤ËSAMPLE.BAK¤È¤¤¤¦Ì¾Á°¤Ç¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ,,¢£,'''<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯2>¤Ç¥É¥é¥¤¥Ö̾¤È¥Õ¥¡¥¤¥ë̾¤È¤ò»ØÄꤷ¤¿¾ì¹ç''' ,, ,'''COPY "A:SAMPLE.DAT" TO "B:SAMPLE.BAK"''' ,, ,¤³¤Î¾ì¹ç¡¢SAMPLE.DAT¤Ï¡¢¥É¥é¥¤¥ÖB¤ËSAMPLE.BAK¤È¤¤¤¦Ì¾Á°¤Ç¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ,ʸ¡¡Îã2{SIZE:100|CENTER} 10 SCREEN 5 20 COPY(10,10)-(100,120),1 TO (30,30),0,XOR ,²ò¡¡Àâ2{SIZE:100|CENTER} VRAM¾å¤ÎĹÊý·Á¤ÎÎΰè¤ò¾¤ÎÎΰè¤Ë¥³¥Ô¡¼¤·¤Þ¤¹¡£¥Ú¡¼¥¸¤ò¾Êά¤·¤¿¾ì¹ç¤Ï¤½¤ì¤¾¤ì¥¢¥¯¥Æ¥£¥Ö¥Ú¡¼¥¸¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£ÏÀÍý±é»»»Ò¤ò¾Êά¤·¤¿¾ì¹ç¤ÏPSET¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£ COPYÌ¿Îá¤Ç²èÌÌÈϰϳ°¤Ë¥³¥Ô¡¼¤·¤¿¾ì¹ç¡¢¥¹¥×¥é¥¤¥È¤¬É½¼¨¤µ¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£Î㤨¤Ð¡¢ COPY(0,0)-(255,39) TO (0,211) ¤ò¼Â¹Ô¤¹¤ë¤È²èÌ̥ǡ¼¥¿¤ò¥¹¥×¥é¥¤¥È¤Ê¤É¤Î¥Ç¡¼¥¿¥¨¥ê¥¢¤Ë½ñ¤¤¤Æ¤·¤Þ¤¦¤Î¤Ç¡¢¥¹¥×¥é¥¤¥È¤Î¥´¥ß¤¬É½¼¨¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£VDP(V9938¡¢V9958)¤Ï¥Ï¡¼¥É¥¦¥§¥¢¥¹¥¯¥í¡¼¥ë¤Îµ¡Ç½¤ò»ý¤Ã¤Æ¤ª¤ê¡¢COPYʸ¤Ç¤Ï¡¢¤½¤Îµ¡Ç½¤ò½½Ê¬À¸¤«¤¹¤¿¤á¤Ë²èÌÌɽ¼¨Èϰϳ°¤Ë²èÌ̥ǡ¼¥¿¤ò¥³¥Ô¡¼¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢²èÌÌɽ¼¨Èϰϳ°¤Ë²èÌ̥ǡ¼¥¿¤ò¥³¥Ô¡¼¤¹¤ë¤È¤­¤Ë¤Ï¡¢¥¹¥×¥é¥¤¥È¤òVDPÌ¿Îá¤Ç¾Ã¤·¤Æ²¼¤µ¤¤¡£VDP¥ì¥¸¥¹¥¿¤ÎR#8¤Îbit1¤ò1¤Ë¤¹¤ë¤È¡¢¥¹¥×¥é¥¤¥È¤Îɽ¼¨¤¬¶Ø»ß¤µ¤ì¤Þ¤¹¡£¶ñÂÎŪ¤Ë¤Ï¡¢°Ê²¼¤ÎÌ¿Îá¤ò¼Â¹Ô¤·¤Þ¤¹¡£ VDP(9)=VDP(9) OR 2 ,ʸ¡¡Îã3{SIZE:100|CENTER} 10 SCREEN 8 20 DIM B%(327) 30 COPY(100,100)-(120,130),0 TO B% ,²ò¡¡Àâ3{SIZE:100|CENTER} VRAM¾å¤ÎĹÊý·Á¤ÎÎΰè¤ÎÆâÍƤòÇÛÎó¤ä¥Õ¥¡¥¤¥ë¤Ë¥³¥Ô¡¼¤·¤Þ¤¹¡£ÇÛÎó¤Î¾ì¹ç¤ÏɬÍפÊÂ礭¤µ°Ê¾å¤Î¤â¤Î¤ò³ÎÊݤ·¤Æ¤ª¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£É¬ÍפʥХ¤¥È¿ôN¤Ï¼¡¤Î¤è¤¦¤Ë·×»»¤µ¤ì¤Þ¤¹¡£ '''N=INT(X*Y/K+5)''' ¤¿¤À¤·X¤Ï²£¡¢Y¤Ï½Ä¤Î¥É¥Ã¥È¿ô¡¢K¤ÏÄê¿ô¤Ç¡¢ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0} ,,SCREEN 5¤È7¤Ç¤Ï2 ,,SCREEN 6¤Ç¤Ï4 ,,SCREEN 8°Ê¹ß¤Ç¤Ï1 ¤È¤·¤Æµá¤á¡¢¼¡¤ËÇÛÎó¤Î·¿¤Ë¤è¤Ã¤Æ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0|SIZE:80},{BSIZE:0} ,,À°¿ô·¿ ,(N+1)\2 ,,ñÀºÅÙ·¿ ,(N+3)\4 ,,ÇÜÀºÅÙ·¿ ,(N+7)\8 ¤È¤·¤ÆºÇÄã¸ÂɬÍפÊÍ×ÁÇ¿ô¤¬ÆÀ¤é¤ì¤Þ¤¹¡£Ê¸Îã3¤Î¥±¡¼¥¹¤Ç¤Ï '''N=INT((120-100+1)*(130-100+1)/1+5):N=656''' '''(N+1)\2=328''' ¤«¤éDIM B%(327)¤È¤Ê¤ê¤Þ¤¹¡£ ,ʸ¡¡Îã4{SIZE:100|CENTER} 10 SCREEN 7 20 COPY "TEST",1 TO (100,100),1,AND ,²ò¡¡Àâ4{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤Þ¤¿¤ÏÇÛÎó¤ÎÆâÍƤò²èÌ̤ËžÁ÷¤·¤Þ¤¹¡£Êý¸þ¤Ï¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤à¸þ¤­¤Ç¡¢ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:40},{BSIZE:0|SIZE:20},{BSIZE:0} ,,0,º¸¾å¤«¤é±¦²¼ ,,1,±¦¾å¤«¤éº¸²¼ ,,2,º¸²¼¤«¤é±¦¾å ,,3,±¦²¼¤«¤éº¸¾å ¤Î¤É¤ì¤«¤Ç¤¹¡£ ,ʸ¡¡Îã5{SIZE:100|CENTER} 10 DIM A%(100) 20 COPY A% TO "TEST" ,²ò¡¡Àâ5{SIZE:100|CENTER} ÇÛÎó¤ÎÆâÍƤò¥Õ¥¡¥¤¥ë¤Ë¥»¡¼¥Ö¤·¤Þ¤¹¡£ ,ʸ¡¡Îã6{SIZE:100|CENTER} 10 DIM A%(100) 20 COPY "TEST" TO A% ,²ò¡¡Àâ6{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤«¤éÇÛÎó¤ËÆâÍƤò¥³¥Ô¡¼¤·¤Æ¤­¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤Ï¤â¤È¤â¤È½ñ¼°3¤ä½ñ¼°5¤Çºî¤Ã¤¿¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤é¤º¡¢ÇÛÎó¤Ï½½Ê¬¤ÊÂ礭¤µ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ,ʸ¡¡Îã7{SIZE:100|CENTER} 10 SCREEN 8 20 COPY SCREEN ,²ò¡¡Àâ7{SIZE:100|CENTER} ³°Éô¥Ó¥Ç¥ª¿®¹æ¤ò¥Ç¥¸¥¿¥ë²½¤·¡¢VRAM¤ËÁ÷¤ê¤Þ¤¹¡£<¥â¡¼¥É>¤Ï0¤Ê¤éÄ̾ï¤Ç¡¢1¤Ê¤é¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤Ç¤¹¡£¤³¤Îµ¡Ç½¤Ï²èÁü¼è¤ê¹þ¤ßÁõÃÖ¤¬¤Ä¤Ê¤¬¤Ã¤Æ¤¤¤ë¾ì¹ç¤Ë¤Î¤ßÍ­¸ú¤Ç¤¹¡£¤É¤Î¥¹¥¯¥ê¡¼¥ó¤Ç¤É¤Î¥â¡¼¥É¤Ç¼è¤ê¹þ¤ß¤¬¤Ç¤­¤ë¤«¤Ï¤½¤Î¼è¤ê¹þ¤ßÁõÃÖ¤ÎÀ­Ç½¤Ë°Í¸¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SET PAGE,SET PAGE}}¡¢{{# LINE,LINE}} ---- !COS ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î;¸¹(¥³¥µ¥¤¥ó)¤ò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} COS(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT COS(3.14159) ¡Úɽ¼¨¡Û-.99999999999649 ---- !CSAVE {{anchor CSAVE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Ë¤¢¤ë¥×¥í¥°¥é¥à¤ò¥«¥»¥Ã¥È¥Æ¡¼¥×¤Ë¥»¡¼¥Ö¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CSAVE<¥Õ¥¡¥¤¥ë̾>[,<¥Ü¡¼¥ì¡¼¥È>] ,ʸ¡¡Îã{SIZE:100|CENTER} CSAVE "TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Ë¤¢¤ë¥×¥í¥°¥é¥à(LISTÌ¿Îá¤Ç²èÌ̤Ëɽ¼¨¤µ¤ì¤ë¤â¤Î)¤ò¡¢¥«¥»¥Ã¥È¥Æ¡¼¥×¤ËÊݸ¤·¤Þ¤¹¡£ ¥Õ¥¡¥¤¥ë̾¤Î¸å¤í¤Ë¼¡¤Î¤è¤¦¤Ë»ØÄꤹ¤ì¤Ð¡¢¥»¡¼¥Ö¤¹¤ë¤È¤­¤ÎÁᤵ¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£»ØÄê¤Ç¤­¤ë¤Î¤Ï1¤«2¤Ç¤¹¡£ CSAVE "TEST",1 2¤È»ØÄꤹ¤ë¤È1¤ÎÇܤή¤µ¤Ç¥»¡¼¥Ö¤µ¤ì¤Þ¤¹¤¬¡¢¥«¥»¥Ã¥È¥ì¥³¡¼¥À¤ÎÀ­Ç½¤Ë¤è¤Ã¤Æ¤Ï¤¦¤Þ¤¯¥»¡¼¥Ö¤Ç¤­¤Ê¤¤¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¥»¡¼¥Ö¤Î®¤µ¤Ï¡¢SCREENÌ¿Îá¤Ç¤â»ØÄê¤Ç¤­¡¢CSAVE¤Ç¾Êά¤µ¤ì¤¿¤È¤­¤Ë¤Ï¡¢SCREENÌ¿Îá¤Î»ØÄ꤬»È¤ï¤ì¤Þ¤¹¡£ ¤¦¤Þ¤¯¥»¡¼¥Ö¤µ¤ì¤¿¤«¤É¤¦¤«¤Ï¡¢CLOAD?Ì¿Îá¤Ç³Îǧ¤·¤Æ¤¯¤À¤µ¤¤¡£¥»¡¼¥Ö¤µ¤ì¤¿¥×¥í¥°¥é¥à¤Ï¡¢CLOADÌ¿Îá¤ò»È¤Ã¤Æ¥í¡¼¥É¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ CSAVE¤ÈSAVE¤È¤Î°ã¤¤¤Ë¤Ä¤¤¤Æ¤Ï¡¢SAVEÌ¿Îá¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLOAD,CLOAD}}¡¢{{# CLOAD?,CLOAD?}}¡¢{{# SAVE,SAVE}} ---- !CSNG {{anchor CSNG}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤòñÀºÅټ¿ô¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CSNG(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT CSNG(123.45678) ¡Úɽ¼¨¡Û123.456 ---- !CSRLIN {{anchor CSRLIN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Æ¥­¥¹¥È²èÌ̤Υ«¡¼¥½¥ë¤Î¹Ô°ÌÃÖ¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CSRLIN ,ʸ¡¡Îã{SIZE:100|CENTER} A=CSRLIN ,²ò¡¡Àâ{SIZE:100|CENTER} CSRLIN¤Ï¡¢¸½ºß¥«¡¼¥½¥ë¤¬²¿¹ÔÌܤˤ¢¤ë¤Î¤«¤ò¡¢°ìÈÖ¾å¤Î¹Ô¤ò0¤È¤·¤¿ÃͤÇÄ´¤Ù¤Þ¤¹¡£ CSRLIN¤Ï¡¢¥Æ¥­¥¹¥È²èÌ̤ǤΤ߻Ȥ¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# POS,POS}} ---- !CVI¡¢CVS¡¢CVD {{anchor CVI}}{{anchor CVS}}{{anchor CVD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤ò¿ôÃͥǡ¼¥¿¤ËÊÑ´¹¤·¤¿ÃͤòÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} CVI(<2¥Ð¥¤¥Èʸ»úÎó>) CVS(<4¥Ð¥¤¥Èʸ»úÎó>) CVD(<8¥Ð¥¤¥Èʸ»úÎó>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT CVI(A$) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Ç¥£¥¹¥¯¾å¤Î¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤«¤éÆɤ߹þ¤ó¤À¿ôÃͥǡ¼¥¿¤Ïʸ»ú·¿¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤¿¤á¡¢¤³¤ì¤é¤Î´Ø¿ô¤ò»È¤Ã¤Æ¿ôÃÍ·¿¤ËÊÑ´¹¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£CVI¤Ï2ʸ»ú(2¥Ð¥¤¥È=16¥Ó¥Ã¥È)¤Îʸ»úÎó¤òÀ°¿ôÃͤˡ¢CVS¤Ï4ʸ»ú¤Îʸ»úÎó¤òñÀºÅټ¿ôÃͤˡ¢CVD¤Ï8ʸ»ú¤Îʸ»úÎó¤òÇÜÀºÅټ¿ôÃͤˤ½¤ì¤¾¤ìÊÑ´¹¤·¤Þ¤¹¡£ ¤³¤ÎÊÑ´¹¤Ï¡¢Î㤨¤Ð¡¢CVI¤Î¾ì¹ç¡¢¼¡¤Î¤è¤¦¤Ë¹Ô¤ï¤ì¤Þ¤¹¡£ A$="90"¤Î¾ì¹ç¡¢¤¹¤Ê¤ï¤ÁA$=CHR$(&H39)+CHR$(&H30)¤Î¾ì¹ç¤Ë¤Ï¡¢CVI(A$)¤ÎÃͤϡ¢¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤ò¿ôÃͥǡ¼¥¿¤È¤ß¤Ê¤·¡¢&H3039(=12345)¤È¤Ê¤ê¤Þ¤¹¡£ CVS¡¢CVD¤Î¾ì¹ç¤Ï¡¢³Æ¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤òÀµµ¬²½¤µ¤ì¤¿ÉâÆ°¾®¿ôÅÀ·Á¼°¤Î¿ôÃͥǡ¼¥¿¤È¤ß¤Ê¤·¤Þ¤¹¡£ ---- !DATA {{anchor DATA}} ,µ¡¡¡Ç½{SIZE:100|CENTER} READʸ¤ÇÆɤ߹þ¤à¤¿¤á¤Î¥Ç¡¼¥¿¤ò¥×¥í¥°¥é¥àÃæ¤ËÍÑ°Õ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DATA<Äê¿ô>[,<Äê¿ô>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 READ A,B 20 DATA 1,2 ,²ò¡¡Àâ{SIZE:100|CENTER} <Äê¿ô>¤Ïʸ»ú·¿¤«¿ôÃÍ·¿¤Ç¡¢READʸ¤Ç¤½¤Î¥Ç¡¼¥¿¤òÆɤ߹þ¤àÊÑ¿ô¤Î·¿¤È°ìÃפ·¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤³¤ÎÎã¤Ç¤Ï¿ôÃÍ·¿¤ÎÊÑ¿ôA¤ª¤è¤ÓB¤Ë¡¢¤½¤ì¤¾¤ì1¤È2¤È¤¤¤¦¿ôÃͤ¬ÂåÆþ¤µ¤ì¤Þ¤¹¡£ DATAʸÃæ¤Î¥Ç¡¼¥¿¤Ï¡¢1¹Ô¤Ë¼ý¤Þ¤ëÈÏ°ÏÆâ¤Ç¤¤¤¯¤Ä¤Ç¤â¥«¥ó¥Þ¤Ç¶èÀڤäƵ­½Ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£DATAʸÃæ¤Î¥³¥í¥ó(:)¤Ï°úÍÑÉä¤Ë°Ï¤Þ¤ì¤Æ¤¤¤Ê¤¤¸Â¤ê¥Þ¥ë¥Á¥¹¥Æ¡¼¥È¥á¥ó¥È¤Î¶èÀÚ¤ê¤È²ò¼á¤µ¤ì¤Þ¤¹¡£DATAʸ¤ÏREADʸ¤Ë¤è¤Ã¤ÆÆɤ߹þ¤Þ¤ì¤Ê¤¤¸Â¤ê²¿¤ÎƯ¤­¤â¤·¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# READ,READ}}¡¢{{# RESTORE,RESTORE}} ---- !DEF FN {{anchor DEF FN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ·×»»¼°¤òÄêµÁ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} <̾Á°>[<°ú¿ô>[,<°ú¿ô>[,<°ú¿ô>¡¦¡¦¡¦])]=<´Ø¿ô¤ÎÄêµÁ¼°> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 DEF FN A(X)=X*X*3.14 20 FOR I=10 TO 20 STEP 5 30 PRINT FN A(I) 40 NEXT ¡Úɽ¼¨¡Û314 706.5 1256 ,²ò¡¡Àâ{SIZE:100|CENTER} 10¹Ô¤Ç±ß¤ÎÌÌÀѤò½Ð¤¹·×»»¼°¤òFN A(X)¤È¤·¤ÆÄêµÁ¤·¡¢¤½¤Î¼°¤ò30¹Ô¤ÇI¤È¤¤¤¦ÊÑ¿ô¤ò»È¤Ã¤ÆÃͤòÊѤ¨¤Ê¤¬¤é¸Æ¤Ó½Ð¤·¤Æ¤¤¤Þ¤¹¡£ DEF FN¤Ï¡¢Ì¾Á°(¾å¤Î¾ì¹çA)¤Ç¡¢·×»»¼°¤òÄêµÁ¤·¤Æ¤ª¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Ì¾Á°¤Ï±Ñ»ú¤Ç»Ï¤Þ¤ë2ʸ»ú°ÊÆâ¤Î±Ñ¿ô»ú¤Ç¤Ä¤±¤Þ¤¹¡£Ì¾Á°¤Î¼¡¤Ë¥«¥Ã¥³¤Ç°Ï¤ó¤ÀÊÑ¿ô(¾å¤Î¾ì¹çX)¤ò»ØÄꤷ¤Æ¡¢·×»»¼°(¾å¤Î¾ì¹çX*X*3.14)¤òÄêµÁ¤·¤Þ¤¹¡£¥«¥Ã¥³Æâ¤ÎÊÑ¿ô¤È·×»»¼°¤ÎÃæ¤ÎÊÑ¿ô¤ÏÂбþ¤·¤Æ¤¤¤Þ¤¹¡£ ÄêµÁ¤·¤¿·×»»¼°¤Ï¡ÖFN ̾Á°(ÊÑ¿ô)¡×¤È¤¤¤¦·Á¤Ç¸Æ¤Ó½Ð¤»¤Þ¤¹¡£ÄêµÁ¤ò¹Ô¤Ã¤¿¤È¤­¤ÎÊÑ¿ô¤Ï²¾¤Î¤â¤Î¤Ê¤Î¤Ç¡¢¸Æ¤Ó½Ð¤¹¤È¤­¤Ë¤Ï¥«¥Ã¥³Æâ¤Ç¤½¤Î¤È¤­¤É¤­¤ÇɬÍפÊÊÑ¿ô(¾å¤Î¾ì¹çI)¤ËÊѤ¨¤Æ»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !DEFINT / SNG / DBL / STR {{anchor DEFINT}}{{anchor DEFSNG}}{{anchor DEFDBL}}{{anchor DEFSTR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÊÑ¿ô¤Î·¿¤òÀë¸À¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DEFINT <ʸ»ú¤ÎÈÏ°Ï>[,<ʸ»ú¤ÎÈÏ°Ï>¡¦¡¦¡¦] DEFSNG <ʸ»ú¤ÎÈÏ°Ï>[,<ʸ»ú¤ÎÈÏ°Ï>¡¦¡¦¡¦] DEFDBL <ʸ»ú¤ÎÈÏ°Ï>[,<ʸ»ú¤ÎÈÏ°Ï>¡¦¡¦¡¦] DEFSTR <ʸ»ú¤ÎÈÏ°Ï>[,<ʸ»ú¤ÎÈÏ°Ï>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 DEFINT A,B 20 DEFSTR C-E 30 A=3.12:B=0.33 40 C="3.12":D="0.33":E="ABC" 50 PRINT A,B 60 PRINT C,D,E ¡Úɽ¼¨¡Û 3 0 3.12 0.33 ABC ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤ÎÎã¤Ç¤ÏÊÑ¿ôA¡¢B¤òÀ°¿ô·¿¤Ë¡¢ÊÑ¿ôC¡¢D¡¢E¤òʸ»ú·¿¤ËÀë¸À¤·¤Æ¤¤¤Þ¤¹¡£ÊÑ¿ô¤Î»ØÄê¤Ï¡¢±Ñ»ú1»ú(Îã A)¤¢¤ë¤¤¤Ï±Ñ»ú1»ú-±Ñ»ú1»ú(Îã A-Z)¤È¤¤¤¦·Á¤Ç¹Ô¤¤¤Þ¤¹¡£·¿¤Ï°Ê²¼¤Î¤è¤¦¤ËÀßÄꤵ¤ì¤Þ¤¹¡£ DEFINT À°¿ô·¿ DEFSNG ñÀºÅټ¿ô·¿ DEFDBL ÇÜÀºÅټ¿ô·¿ DEFSTR ʸ»ú·¿ ·¿Àë¸À¤¬¹Ô¤ï¤ì¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤Ï¡¢¤¹¤Ù¤ÆÇÜÀºÅټ¿ô¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£¤Þ¤¿¡¢DEFÌ¿Îá¤Ç¤Î·¿Àë¸À¤è¤ê¤â¡¢·¿Àë¸Àʸ»ú¤Ç¤Î»ØÄê¤ÎÊý¤¬Í¥À褵¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLEAR,CLEAR}} ---- !DEF USR {{anchor DEF USR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} µ¡³£¸ì¥×¥í¥°¥é¥à¤Î¼Â¹Ô³«»ÏÈÖÃϤò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DEF USR[<ÈÖ¹æ>]=<³«»ÏÈÖÃÏ> ,ʸ¡¡Îã{SIZE:100|CENTER} DEF USR2=&HE000 ,²ò¡¡Àâ{SIZE:100|CENTER} USR¤ò»È¤Ã¤Æ¸Æ¤Ó½Ð¤¹µ¡³£¸ì¥×¥í¥°¥é¥à¤Î¡¢¼Â¹Ô³«»ÏÈÖÃÏ(&HE000)¤ò»ØÄꤷ¤Þ¤¹¡£DEF USR¤Î¼¡¤Ë¤Ï¡¢Ê£¿ô¤Îµ¡³£¸ì¥×¥í¥°¥é¥à¤ò»È¤¦¤È¤­¤Ë¶èÊ̤¹¤ë¤¿¤á¤ÎÈÖ¹æ(2)¤òÉÕ¤±¤Þ¤¹¡£»ØÄê¤Ç¤­¤ë¤Î¤Ï¡¢0¤«¤é9¤Þ¤Ç¤ÎÃͤǤ¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLEAR,CLEAR}}¡¢{{# USR,USR}}¡¢¡Ö[[5¾Ï ¥Þ¥·¥ó¸ì¤È¤Î¥ê¥ó¥¯]]¡× ---- !DELETE {{anchor DELETE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿¥×¥í¥°¥é¥à¹Ô¤òºï½ü¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DELETE<¹ÔÈÖ¹æ¤ÎÈÏ°Ï> ,ʸ¡¡Îã{SIZE:100|CENTER} DELETE 50-100 ,²ò¡¡Àâ{SIZE:100|CENTER} ¹ÔÈÖ¹æ¤Î»ØÄê¤ÎÊýË¡¤Ë¤è¤Ã¤Æ¡¢¤µ¤Þ¤¶¤Þ¤Ê·Á¤Îºï½ü¤¬¹Ô¤¨¤Þ¤¹¡£°Ê²¼¤Ë¡¢¤½¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£ '''DELETE 10''' ¹ÔÈÖ¹æ10¤Î¹Ô¤òºï½ü¤·¤Þ¤¹¡£ '''DELETE -100''' ¥×¥í¥°¥é¥à¤ÎÀèƬ¤«¤é¹ÔÈÖ¹æ100¤Þ¤Ç¤Î¹Ô¤òºï½ü¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LIST,LIST}}¡¢{{# MERGE,MERGE}}¡¢{{# NEW,NEW}}¡¢{{# RENUM,RENUM}} ---- !DIM {{anchor DIM}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÇÛÎóÊÑ¿ô¤ò»È¤¦¤³¤È¤òÀë¸À¤·¡¢¤½¤ì¤ò¥á¥â¥êÎΰè¤Ë³ä¤êÅö¤Æ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DIM<ÊÑ¿ô̾>(<ź»ú¤ÎºÇÂçÃÍ>[,<ź»ú¤ÎºÇÂçÃÍ>¡¦¡¦¡¦]) ,ʸ¡¡Îã{SIZE:100|CENTER} DIM A(11),B%(100),C$(2,3) ,²ò¡¡Àâ{SIZE:100|CENTER} DIM¤Ï¡¢»ÈÍѤ¹¤ëÇÛÎóÊÑ¿ô¤ÎºÇÂçÃͤòÀßÄꤷ¡¢Æ±»þ¤Ë¥á¥â¥ê¾å¤Ë¤½¤ÎÇÛÎó¤ÎÎΰè¤ò³ÎÊݤ·¤Þ¤¹¡£ÀßÄê¤Ç¤­¤ëºÇ¾®¤ÎÃͤÏ0¡¤ºÇÂç¤ÎÃͤϥá¥â¥êÍÆÎ̤¬µö¤¹ÈϰϤǤ¹¡£ÀßÄê¤ò¹Ô¤ï¤Ê¤¤¾ì¹ç¤Ï¡¢ÃͤÏ10(Í×ÁÇ¿ô¤Ïź»ú0¡Á10¤Ç11¸Ä)¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£ ÉÔÍפˤʤä¿ÇÛÎóÊÑ¿ô¤Ï¡¢ERASEÌ¿Îá¤Çºï½ü¤Ç¤­¤Þ¤¹¡£¤Þ¤¿¡¢Àë¸À¤·¤Æ¤¢¤ëÇÛÎóÊÑ¿ô¤Ï¡¢CLEARÌ¿ÎᤫERASEÌ¿Îá¤ò¼Â¹Ô¤·¤Ê¤¤¤ÈºÆÀë¸À¤Ç¤­¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ERASE,ERASE}}¡¢{{# CLEAR,CLEAR}} ---- !DRAW {{anchor DRAW}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤˿޷Á¤òÉÁ¤­¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DRAW<ʸ»ú¼°> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 2 20 A$="A0C15S4BM150,80L40D12R8U6R24D6R8U12" 30 B$="BM134,86F12D8L32U8E12" 40 C$="C8BM132,92L4G4D4F4R4E4U4H4" 50 DRAW "XA$;":DRAW "XB$;" 60 DRAW XC$ 70 GOTO 70 ¡Úɽ¼¨¡Û☏ ,²ò¡¡Àâ{SIZE:100|CENTER} ³Æʸ»úÊÑ¿ô¤ËÂåÆþ¤µ¤ì¤¿Ê¸»ú¼°¤¬¡¢50¹Ô¤Î»ØÄê¤Ç¼Â¹Ô¤µ¤ì¤Æ¡¢²èÌ̤ËÅÅÏô郎ÉÁ¤«¤ì¤Þ¤¹¡£ DRAW¤Ç¤Î»ØÄê¤Ï¼¡¤Î¤è¤¦¤Ê·Á¤Ç¹Ô¤¤¤Þ¤¹¡£ DRAW "ʸ»ú¼°" DRAW ʸ»úÊÑ¿ô DRAW "Xʸ»úÊÑ¿ô;" ʸ»ú¼°¤Ï¡¢Àþ¤òÉÁ¤¯¤¿¤á¤Î¾ðÊó¤Çµ­¹æ¤È¿ôÃͤǤǤ­¤Æ¤¤¤Æ¡¢DRAW¤Ë³¤±¤Æ°úÍÑÉä¤Ç°Ï¤ó¤Ç»ØÄꤷ¤Þ¤¹¡£Ê¸»úÊÑ¿ô¤ò»È¤Ã¤Æ»ØÄꤹ¤ë¤È¤­¤Ï¡¢¤¢¤é¤«¤¸¤á¤½¤Îʸ»úÊÑ¿ô¤Ë¡¢Àþ¤òÉÁ¤¯¤¿¤á¤Î¾ðÊó(ʸ»ú¼°)¤òÂåÆþ¤·¤Æ¤ª¤­¤Þ¤¹¡£Ê¸»úÊÑ¿ô¤òÍѤ¤¤ë¤È¤­¤Ë¤Ï¡¢"Xʸ»úÊÑ¿ô;"¤È»ØÄꤷ¤Æ¤â(50¹Ô)¡¢Ã±¤Ëʸ»úÊÑ¿ô¤À¤±»ØÄꤷ¤Æ¤â(60¹Ô)¡¢·ë²Ì¤ÏƱ¤¸¤Ç¤¹¡£ »ØÄꤹ¤ëµ­¹æ¤Ë¤Ï¡¢°ÜÆ°¡¢²óž¡¢¿§¡¢¥µ¥¤¥º¤Î4¼ïÎà¤Î¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ ɽ2.8 DRAWʸ¤Î»ØÄê°ìÍ÷ ,{c BSZ},{BSIZE:0} ,{c BS1},{BSIZE:0 1} ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:30|CENTER},{BSIZE:1|SIZE:40},{BSIZE:1|SIZE:60},{BSIZE:1|SIZE:130},{BSIZE:1|SIZE:130},{BSIZE:1 0} , ,µ­¹æ,¿ôÃÍ,°Õ¡¡Ì£ ,Îã ,È÷¹Í ,{c},{BSZ},{BS1},{BS1},{BS1},{BS1},{BSZ} ,°Ü{{br}}Æ°{{br}}Ì¿{{br}}Îá{ROWS:11} ,U ,µ÷Î¥,¾å¤Ø°ÜÆ° ,U10 ,{ROWS:8|TOP}µ÷Î¥¤Ï²èÌ̤Î1ÅÀ¤òñ°Ì¤È¤¹¤ë(ñ°Ì¤Ï¥µ¥¤¥ºÌ¿Îá¤ÇÊѹ¹²Äǽ)¼Ð¤áÊý¸þ¤È¾å²¼º¸±¦Êý¸þ¤ÇƱ¤¸µ÷Î¥¤ò»ØÄꤷ¤Æ¤â¡¢²èÌ̾å¤Ç¤Î¼ÂºÝ¤Î°ÜÆ°µ÷Î¥¤Ï°Û¤Ê¤ë¡£ , ,D ,¡· ,²¼ ¡· ,D5 , , ,L ,¡· ,º¸ ¡· ,L8 , , ,R ,¡· ,±¦ ¡· ,R12 , , ,E ,¡· ,±¦¾å ¡· ,E7 , , ,F ,¡· ,±¦²¼ ¡· ,F20 , , ,G ,¡· ,º¸²¼ ¡· ,G15 , , ,H ,¡· ,º¸¾å ¡· ,H40 , ,{c},{BSIZE:1 0 0 0},{BSIZE:1 1 0 1},{BSIZE:1 1 0 1},{BSIZE:1 1 0 1},{BSIZE:1 1 0 1},{BSIZE:1 0 0 0} , ,M ,"ºÂɸ{{br}}(X,Y)","(X,Y)¤Þ¤ÇÉÁ²è","M100,100",X¤ÎÁ°¤Ë+¤«-¤ò¤Ä¤±¤ë¤ÈÁêÂкÂɸ»ØÄê , ,B ,¤Ê¤·,°ÜÆ°¤Î¤ß ,"BM50,50" ,U¡ÁM¤Þ¤Ç¤Îµ­¹æ¤Ë¤Ä¤±¤ÆÍѤ¤¤ë¡£ , ,N {BSIZE:0 1},¤Ê¤·{BSIZE:0 1},LP°ÜÆ°¤·¤Ê¤¤{BSIZE:0 1},NL10 {BSIZE:0 1},U¡ÁM¤Þ¤Ç¤Îµ­¹æ¤Ë¤Ä¤±¤ÆÍѤ¤¤ë¡£{BSIZE:0} ,²ó{{br}}ž{{br}}Ì¿{{br}}Îá,A ,0¡Á3,90ÅÙñ°Ì¤Ç²óž,A1U12L4D12,0¡Á270Å٤βóž¡£»ØÄꤷľ¤¹¤Þ¤ÇÍ­¸ú¡£ ,¿§{{br}}Ì¿{{br}}Îá ,C ,0¡Á255,¿§»ØÄê,C8D10,¿§¥³¡¼¥É¤ÎÈϰϤϲèÌ̥⡼¥É¤Ë¤è¤ë¡£ ,¥µ{{br}}¥¤{{br}}¥º{{br}}Ì¿{{br}}Îá,S,1¡Á255,°ÜÆ°µ÷Î¥¤Îñ°Ì,S20U12L4D12,¾ÊάÃͤÏ4¤Ç¡¢¤³¤ì¤¬²èÌÌ1¥É¥Ã¥Èʬ¡£ ¢£¿ôÃÍÊÑ¿ô¤Î»ØÄê ¤Ê¤ª¡¢¼¡¤Î·Á¼°¤Ç¿ôÃÍÊÑ¿ô¤â»ØÄê¤Ç¤­¤Þ¤¹¡£ DRAW "=ÊÑ¿ô̾;" Î㤨¤Ð 10 SCREEN 2 20 A=10:B=120 30 DRAW "BM=A;,=B;U20" 40 GOTO 40 ¤È¤¤¤¦¥×¥í¥°¥é¥à¤Ï(100,120)¤Î°ÌÃÖ¤Þ¤ÇÀþ¤ò°ú¤«¤º¤Ë°ÜÆ°¤·¡¢¤½¤³¤«¤é¾å¤Ë20ÅÀʬ¤ÎÀþ¤ò°ú¤¯¤È¤¤¤¦¤â¤Î¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}} ---- !DSKF ¡ÚDisk¡Û{{anchor DISKF}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤Î»Ä¤êÍÆÎ̤ò¥¯¥é¥¹¥¿Ã±°Ì¤ÇÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} DSKF(<¥É¥é¥¤¥ÖÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT DSKF(1) ,²ò¡¡Àâ{SIZE:100|CENTER} <¥É¥é¥¤¥ÖÈÖ¹æ>¤Ç»ØÄꤵ¤ì¤¿¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤Î»Ä¤êÍÆÎ̤ò¥¯¥é¥¹¥¿Ã±°Ì¤ÇÊÖ¤·¤Þ¤¹¡£1¥¯¥é¥¹¥¿¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£ ,{c BSZ},{BSIZE:0} ,{c BS1},{BSIZE:1 0} ,{t},{BSIZE:2,0} ,{c},{BS1|SIZE:200},{BS1},{BS1},{BS1},{BS1} ,¥á¥Ç¥£¥¢ ,¥µ¥¤¥º ,{c},{BSZ},{BSZ},{BSZ},{BSZ},{BSZ} ,¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯ ,1024¥Ð¥¤¥È ,RAM¥Ç¥£¥¹¥¯* ,512¥Ð¥¤¥È(2M¥Ð¥¤¥È¤Þ¤Ç) , ,1024¥Ð¥¤¥È(2M¡Á4M¥Ð¥¤¥È) ,¥Ï¡¼¥É¥Ç¥£¥¹¥¯ ,²ÄÊѡ̥ϡ¼¥É¥Ç¥£¥¹¥¯¤Î½é´ü²½(Îΰè³ÎÊÝ)¤Î¤È¤­¡¢»ØÄꤹ¤ëÎΰè¤ÎÂ礭¤µ¤Ë¤è¤ê1K¥Ð¥¤¥È¡¢2K¥Ð¥¤¥È¡¢4K¥Ð¥¤¥È¡¢8K¥Ð¥¤¥È¡¢16K¥Ð¥¤¥È¡¢32K¥Ð¥¤¥È¡¢64K¥Ð¥¤¥È¤«¤éÁªÂò¤¹¤ë¡£¡Í *MSX-DOS2¤ÎRAMDISK¥³¥Þ¥ó¥É¤ÇÀßÄꤹ¤ë¤â¤Î¡£ ---- !END {{anchor END}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤ò½ªÎ»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} END ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PRINT "ŽÊŽÙŽ¶ŽÞ" 20 END 30 PRINT "ŽºŽÅŽ²" 40 END ,²ò¡¡Àâ{SIZE:100|CENTER} ENDÌ¿Îá¤Ï¥×¥í¥°¥é¥à¤ò½ªÎ»¤µ¤»¤Þ¤¹¡£¥×¥í¥°¥é¥àÆâ¤Ë¤¤¤¯¤ÄÃÖ¤¤¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£ ¤Þ¤¿¡¢¥×¥í¥°¥é¥à¤ÎºÇ¸å¤ÎEND(¤³¤Î¾ì¹ç¡¢40¹Ô)¤Ï¾Êά¤·¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£ ¾å¤ÎÎã¤Ç¤Ï¡¢20¹Ô¤ËEND¤¬¤¢¤ë¤Î¤Ç¡¢¤½¤Î¸å¤Î¹Ô¤Ï¼Â¹Ô¤µ¤ì¤º¡¢¡ÖŽºŽÅŽ²¡×¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£ ---- !EOF {{anchor EOF}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤¬½ªÎ»¤·¤¿¤«¤É¤¦¤«¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} EOF(<¥Õ¥¡¥¤¥ëÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} IF EOF(1) THEN CLOSE1 ,²ò¡¡Àâ{SIZE:100|CENTER} EOF¤Ï¡¢¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ç»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤¬½ª¤ï¤Ã¤¿¤«¤É¤¦¤«Ä´¤Ù¤ë¤â¤Î¤Ç¡¢½ª¤ï¤Ã¤Æ¤¤¤ì¤ÐŽ°1¤ò¡¢¤Þ¤ÀÅÓÃæ¤Ç¤¢¤ì¤Ð0¤ò·ë²Ì¤È¤·¤ÆÊÖ¤·¤Þ¤¹¡£EOF¤Ë³¤¯¥«¥Ã¥³Æâ¤Î¿ôÃͤϡ¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ç¡¢OPENÌ¿Îá¤Ç»ØÄꤵ¤ì¤Æ¤¤¤ë¤â¤Î¤ÈÂбþ¤·¤Æ¤¤¤Þ¤¹¡£Ä´¤Ù¤ë¥Õ¥¡¥¤¥ë¤Ï¡¢OPENÌ¿Îá¤ÎINPUT¥â¡¼¥É¤Ç³«¤«¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OPEN,OPEN}}¡¢{{# INPUT#,INPUT#}} !ERASE {{anchor ERASE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÇÛÎóÊÑ¿ô¤òºï½ü¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ERASE<ÇÛÎóÊÑ¿ô̾>[,<ÇÛÎóÊÑ¿ô̾>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} ERASE A ,²ò¡¡Àâ{SIZE:100|CENTER} DIM¤Ç»ØÄꤷ¤¿ÇÛÎóÊÑ¿ô¤òºï½ü¤·¡¢³ä¤êÅö¤Æ¤é¤ì¤¿¥á¥â¥ê¤ò»È¤¨¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# DIM,DIM}} ---- !ERL¡¢ERR {{anchor ERL}}{{anchor ERR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¨¥é¡¼¥³¡¼¥É¤ä¥¨¥é¡¼¤Îµ¯¤³¤Ã¤¿¹ÔÈÖ¹æ¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ERR ERL ,ʸ¡¡Îã{SIZE:100|CENTER} 10 ON ERROR GOTO 40 20 A%=A%+10 30 GOTO 20 40 IF ERR<>6 THEN 80 50 PRINT ERL;"Ž·ŽÞŽ®Ž³ŽÃŽÞŽ´Ž×Ž°ŽÊŽ¯Ž¾Ž²" 60 A%=0:PRINT "Ž¼Ž®ŽØŽ¼ŽÏŽ¼ŽÀ" 70 RESUME 80 ON ERROR GOTO 0 ,²ò¡¡Àâ{SIZE:100|CENTER} 40¹Ô¤ÇȯÀ¸¤·¤¿¥¨¥é¡¼¥³¡¼¥É¤¬6¤«¤É¤¦¤«¤ÎȽÄê¤ò¹Ô¤¤¡¢6¤Ê¤é50¹Ô¤Ç¥¨¥é¡¼¤ÎȯÀ¸¤·¤¿¹ÔÈÖ¹æ¤òɽ¼¨¤·¡¢60¹Ô¤Ç¥¨¥é¡¼¤ËÂФ¹¤ë½èÍý¤ò¹Ô¤Ã¤Æ¤¤¤Þ¤¹¡£ ¤³¤Î¤è¤¦¤Ë¡¢ERL¤äERR¤òÍѤ¤¤ë¤È¡¢¥¨¥é¡¼¤¬È¯À¸¤·¤¿¤È¤­¡¢¥¨¥é¡¼¤Îµ¯¤³¤Ã¤¿¹ÔÈÖ¹æ(ERL)¤ä¥¨¥é¡¼¥³¡¼¥É(ERR)¤òÃΤ뤳¤È¤¬½ÐÍè¤Þ¤¹¡£ ERL¤äERR¤ÏÉáÄÌ¡¢ON ERROR GOTOÌ¿Îá¤Ç¥¸¥ã¥ó¥×¤¹¤ë¥¨¥é¡¼½èÍý¤ÎÁàºî¤Ç»È¤ï¤ì¤Þ¤¹¡£¥À¥¤¥ì¥¯¥È¥â¡¼¥É¤Ç¥¨¥é¡¼¤¬È¯À¸¤·¤¿¤È¤­¤Ë¤Ï¡¢ERL¤ÎÃͤÏ65535¤È¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON ERROR GOTO,ON ERROR GOTO}}¡¢{{# ERROR,ERROR}} ---- !ERROR {{anchor ERROR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤ò¥¨¥é¡¼¾õÂ֤ˤ·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ERROR<¥¨¥é¡¼¥³¡¼¥É> ,ʸ¡¡Îã{SIZE:100|CENTER} ERROR 23 ,²ò¡¡Àâ{SIZE:100|CENTER} ERROR¤Ç0¤«¤é255¤Þ¤Ç¤ÎÃͤò»ØÄꤹ¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥×¥í¥°¥é¥à¤ò¥¨¥é¡¼¾õÂ֤ˤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¥á¥Ã¥»¡¼¥¸¤¬ÍÑ°Õ¤µ¤ì¤Æ¤¤¤ë¥¨¥é¡¼¥³¡¼¥É¤ò»ØÄꤹ¤ë¤È¡¢²èÌ̤ËÂбþ¤¹¤ë¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ ¥¨¥é¡¼¥³¡¼¥É23¡¢26¡Á49¡¢60¡Á255¤Ë¤Ï¥á¥Ã¥»¡¼¥¸¤¬ÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢ON ERROR GOTOʸ¤ÈÊ»¤»¤ÆÆȼ«¤Î¥¨¥é¡¼½èÍý¤ò¹Ô¤¦¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON ERROR GOTO,ON ERROR GOTO}}¡¢[¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸É½] ---- !EXP {{anchor EXP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¼«Á³Âпô¤ÎÄì¡Öe¡×¤Î<¿ô¼°>¾è¤ò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} EXP(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT EXP(1) ¡Úɽ¼¨¡Û2.7182818284588 ---- !FIELD {{anchor FIELD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥é¥ó¥À¥àÆþ½ÐÎϥХåե¡Ãæ¤ËÊÑ¿ôÎΰè¤ò³ä¤êÅö¤Æ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} FIELD[#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>,<¥Õ¥£¡¼¥ë¥ÉÉý>AS<ʸ»úÊÑ¿ô>[,<¥Õ¥£¡¼¥ë¥ÉÉý>AS<ʸ»úÊÑ¿ô>]¡¦¡¦¡¦ ,ʸ¡¡Îã{SIZE:100|CENTER} FIELD#1, 15 AS A$, 10 AS B$ ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤È¤ÏOPENʸ¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤Ë¤Ä¤±¤¿ÈÖ¹æ¤Î¤³¤È¤Ç<¥Õ¥£¡¼¥ë¥ÉÉý>¤È¤Ï<ʸ»úÊÑ¿ô>¤Ë³ä¤êÅö¤Æ¤é¤ì¤ëʸ»ú¿ô¤Î¤³¤È¤Ç¤¹¡£¤Þ¤¿<ʸ»úÊÑ¿ô>¤Ï¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤ò¥¢¥¯¥»¥¹¤¹¤ë¤È¤­»È¤ï¤ì¤ëÊÑ¿ô̾¤Ç¤¹¡£ FIELDʸ¤Ï¡¢GETʸ¤Ë¤è¤ë¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤Ø¤Î¥Ç¡¼¥¿¤ÎÆɤ߹þ¤ß¡¢¤¢¤ë¤¤¤ÏPUTʸ¤Ë¤è¤ë¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤«¤é¤Î¥Ç¡¼¥¿¤Î½ñ¤­½Ð¤·¤ò²Äǽ¤Ë¤¹¤ë¤¿¤á¤ËGET¡¢PUTʸ¤ÎÁ°¤Ë¼Â¹Ô¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ Î㤨¤Ð¡¢ '''FIELD1, 15 AS A$, 10 AS B$''' ¤Ç¤Ï¡¢¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡Ãæ¤ÎºÇ½é¤Î15ʸ»ú(¥Ð¥¤¥È)¤òA$¤È¤¤¤¦Ê¸»úÊÑ¿ô¤Ë³ä¤êÅö¤Æ¡¢¼¡¤Î10ʸ»ú¤¬B$¤Ë³ä¤êÅö¤Æ¤é¤ì¤Þ¤¹¡£ FIELDʸ¤Ï¡¢¼ÂºÝ¤Ë¤Ï¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤Ë¥Ç¡¼¥¿¤òÃÖ¤¯¤³¤È¤Ï¤»¤º¡¢¤³¤ì¤ÏLSET¡¢RSETʸ¤Ç¹Ô¤ï¤ì¤Þ¤¹¡£ FIELDʸ¤Ç³ä¤êÅö¤Æ¤é¤ì¤ëÁí¥Ð¥¤¥È¿ô¤Ï¡¢OPEN»þ¤Ë·è¤á¤¿¥ì¥³¡¼¥ÉŤò±Û¤¨¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£Ëü°ì¡¢±Û¤¨¤¿¾ì¹ç¤Ë¤Ï¡¢¡ÖField overflow¡×¥¨¥é¡¼¤¬À¸¤¸¤Þ¤¹¡£ ¤Ê¤ª¡¢1¤Ä¤Î¥Õ¥¡¥¤¥ëÈÖ¹æ¤ËÂФ·¤Æ¡¢²¿²ó¤«¤Ëʬ¤±¤ÆFIELDʸ¤ò¼Â¹Ô¤·¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£¤³¤Î¤È¤­¡¢°ÊÁ°¤Ë¼Â¹Ô¤µ¤ì¤¿FIELDʸ¤â¡¢¤½¤Î¸úÎϤòÊÝ»ý¤·¤Þ¤¹¡£FIELDʸ¤Ï¡¢¼Â¹Ô¤¹¤ë¤¿¤Ó¤ËºÇ½é¤Î1ʸ»ú¤«¤é¥Ð¥Ã¥Õ¥¡¤òÄêµÁ¤¹¤ë¤¿¤á¡¢Æ±°ì¥Ç¡¼¥¿¤ËÂФ·Ê£¿ô¤ÎÎΰè¤òÄêµÁ¤¹¤ë¸ú²Ì¤ò¤â¤Á¤Þ¤¹¡£ FIELDʸ¤ÇÄêµÁ¤·¤¿Ê¸»úÊÑ¿ô¤Ï¡¢¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡Ãæ¤ÎÂбþ¤¹¤ë¥Ç¡¼¥¿¤ò»Ø¤·¤Æ¤¤¤Þ¤¹¤¬¡¢FIELDʸ¤Î¼Â¹Ô¸å¤ËÆþÎÏ´Ø·¸¤Îʸ¡¢¤Þ¤¿¤ÏÂåÆþʸ¤Îº¸ÊդǻÈÍѤ¹¤ë¤È¡¢¤½¤ÎÊÑ¿ô¤Ïʸ»úÎó¤Îµ­²±Îΰè¤Ë°Ü¤ê¡¢¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤«¤é¤Ï¾Ã¤¨¤Æ¤·¤Þ¤¦¤Î¤ÇÃí°Õ¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£ ---- !FILES¡¢LFILES {{anchor FILES}}{{anchor LFILES}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤ÎÃæ¤Î¥Õ¥¡¥¤¥ë̾¤òɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} [L]FILES [<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>] ,ʸ¡¡Îã{SIZE:100|CENTER} FILES "*.BAS" LFILES "B:" ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥¡¥¤¥ë̾¤òɽ¼¨¤·¤Þ¤¹¡£»ØÄê¥Õ¥¡¥¤¥ë¤¬¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯Ãæ¤Ë¤Ê¤±¤ì¤Ð¡¢¡ÖFile not found¡×¥¨¥é¡¼¤¬À¸¤¸¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¤Ï¡¢¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥Ç¥£¥¹¥¯¥É¥é¥¤¥ÖÃæ¤ÎÁ´¥Õ¥¡¥¤¥ë̾¤òɽ¼¨¤·¤Þ¤¹¡£ »ØÄꤹ¤ë¥Õ¥¡¥¤¥ë̾¤Ë¤Ï¡¢µ¿ÌäÉä(?)¤ò´Þ¤à¤³¤È¤¬¤Ç¤­¡¢¥Õ¥¡¥¤¥ë̾¤ä¡¢³ÈÄ¥»ÒÃæ¤Î1ʸ»ú¤ÎÂå¤ï¤ê¤ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤Þ¤¿¡¢¥Õ¥¡¥¤¥ë̾¡¢³ÈÄ¥»Ò¤Îʸ»úÃæ¤Ë¥¢¥¹¥¿¥ê¥¹¥¯(*)¤òÍѤ¤¤ë¤È¡¢Ç¤°Õ¤Î¥Õ¥¡¥¤¥ë̾¡¢¤Þ¤¿¤Ï³ÈÄ¥»Ò¤ÎÂå¤ï¤ê¤È¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç¡¢¥Ç¥£¥¹¥¯¥É¥é¥¤¥Ö¤¬»ØÄꤵ¤ì¤Æ¤¤¤ì¤Ð¡¢¤½¤Î¥Ç¥£¥¹¥¯¥É¥é¥¤¥ÖÃæ¤Î»ØÄê¥Õ¥¡¥¤¥ë¤¬½ÐÎϤµ¤ì¡¢¤½¤¦¤Ç¤Ê¤¤¤È¤­¤Ï¡¢¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥Ç¥£¥¹¥¯¥É¥é¥¤¥Ö(¥«¥ì¥ó¥È¥É¥é¥¤¥Ö)¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£ LFILES¤Ï½ÐÎÏÀ褬¥×¥ê¥ó¥¿¤Ç¤¢¤ë¤³¤È¤ò½ü¤­¡¢FILES¤È¤Þ¤Ã¤¿¤¯Æ±¤¸¤Ç¤¹¡£ ---- !FIX ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤξ®¿ôÅÀ°Ê²¼¤ò¼è¤êµî¤Ã¤¿Ãͤò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} FIX(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT FIX(-1.2) ¡Úɽ¼¨¡Û-1 ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤ¬Àµ¤Î¤È¤­¤ÏINT¤ÈƱ¤¸¤Ç¤¹¤¬¡¢Éé¤Î¤È¤­¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:100},{BSIZE:1 0|SIZE:60},{BSIZE:1 0|SIZE:260} ,¼°,·ë²Ì,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,FIX(-1.2),-1,¾®¿ôÅÀ°Ê²¼ÀÚ¤ê¼Î¤Æ ,INT(-1.2),-2,-2.3¤òĶ¤¨¤Æ¤Ê¤¤ºÇÂç¤ÎÀ°¿ô ---- !FOR¡ÁNEXT ,µ¡¡¡Ç½{SIZE:100|CENTER} FOR¤«¤éNEXT¤Þ¤Ç¤Î´Ö¤Ç»ØÄꤵ¤ì¤¿Áàºî¤ò¡¢»ØÄꤵ¤ì¤¿²ó¿ô¤À¤±·«¤êÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} FOR<ÊÑ¿ô̾>=<½é´üÃÍ>TO<½ªÃÍ>[STEP<Áýʬ>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 FOR I=0 TO 10 STEP 2 20 PRINT I 30 PRINT "ŽÙŽ°ŽÌŽß" 40 NEXT I 50 END ,²ò¡¡Àâ{SIZE:100|CENTER} FOR¤Ç·«¤êÊÖ¤·¤Î²ó¿ô¤ò»ØÄꤷ¡¢FOR¤ÈNEXT¤Î´Ö¤ÎÁàºî¤ò¤½¤Î²ó¿ô¤À¤±·«¤êÊÖ¤·¹Ô¤¤¤Þ¤¹¡£FOR¤Î¼¡¤Ë¡ÖI=0¡×¤Î·Á¤Ç¡¢·«¤êÊÖ¤·¤Î½é´üÃÍ(0)¤òÀßÄꤷ¤Þ¤¹¡£TO¤Î¼¡¤Ç·«¤êÊÖ¤·¤ÎºÇ½ªÃÍ(10)¤òÀßÄꤷ¤Þ¤¹¡£ºÇ¸å¤ËSTEP¤Ë³¤±¤Æ½é´üÃͤȺǽªÃͤȤδ֤ÎÁýʬ(2)¤ò»ØÄꤷ¤Þ¤¹¡£ ¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤¬NEXT(40¹Ô)¤Þ¤ÇÍè¤ë¤È¡¢ÊÑ¿ôI¤¬Áýʬ¤À¤±Áý¤ä¤µ¤ì¤Þ¤¹¡£¤½¤·¤Æ¡¢ºÇ½ªÃͤò±Û¤¨¤Æ¤¤¤Ê¤±¤ì¤ÐFOR(10¹Ô)¤ËÌá¤ê¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢½é´üÃͤ¬ºÇ½ªÃͤè¤ê¤âÂ礭¤¯ÀßÄꤵ¤ì¤Æ¤¤¤ë¤È¤­¤â¡¢FORʸ¤«¤éNEXTʸ¤Þ¤Ç¤Î¥×¥í¥°¥é¥à¤Ï°ìÅټ¹Ԥµ¤ì¤Þ¤¹¡£ ¤³¤Î¥×¥í¥°¥é¥à¤Ç¤Ï¡¢10¹Ô¤Î»ØÄê¤Ç¡¢I¤¬0¡¢2¡¢4¡¢6¡¢8¡¢10¤ÈÁý¤¨¤Þ¤¹¤Î¤Ç¡¢20¹Ô¤È30¹Ô¤Ï6²ó¼Â¹Ô¤µ¤ì¡¢¡Ö¥ë¡¼¥×¡×¤ÏÊÑ¿ôI¤ÎÃͤȤȤâ¤Ë6²óɽ¼¨¤µ¤ì¤Þ¤¹¡£I¤¬ºÇ½ªÃÍ10¤ÈƱ¤¸¤Ë¤Ê¤Ã¤¿¤È¤³¤í¤Ç¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤ÏFOR¡ÁNEXT¤«¤é½Ð¤Æ¡¢NEXT¤Î¼¡¤Î¹Ô¤Ë°Ü¤ê¤Þ¤¹¡£ FOR¡ÁNEXT¤ÎSTEP°Ê²¼¤Ï¾Êά¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¾Êά¤·¤¿¤È¤­¤ÏÁýʬ¤Ï+1¤Ë¤Ê¤ê¤Þ¤¹¡£ ---- !FRE ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¤Î̤»ÈÍÑÎΰè¤ÎÂ礭¤µ¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} FRE(<°ú¿ô>) ,ʸ¡¡Îã1{SIZE:100|CENTER} PRINT FRE(0) ,²ò¡¡Àâ1{SIZE:100|CENTER} °ú¿ô¤¬¿ôÃͤξì¹ç¤Ï¡¢BASIC¤¬»È¤Ã¤Æ¤¤¤Ê¤¤¥á¥â¥ê¤ÎÂ礭¤µ(¥æ¡¼¥¶¡¼¥¨¥ê¥¢¤Î̤»ÈÍÑÎΰè)¤¬¥Ð¥¤¥È¿ô¤ÇÊÖ¤µ¤ì¤Þ¤¹¡£°ú¿ô¤Ï¡¢¿ôÃͤǤ¢¤ì¤Ð²¿¤Ç¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£ ,ʸ¡¡Îã2{SIZE:100|CENTER} PRINT FRE("A") ,²ò¡¡Àâ2{SIZE:100|CENTER} °ú¿ô¤¬Ê¸»úÎó¤Î¾ì¹ç¤Ï¡¢¤Þ¤ºÊ¸»úÎΰè¤ÎÀ°Íý¤¬¹Ô¤ï¤ì¡¢¤½¤ì¤«¤é̤»ÈÍѤÎʸ»úÎΰè¤ÎÂ礭¤µ¤¬¥Ð¥¤¥È¿ô¤Ç½Ð¤µ¤ì¤Þ¤¹¡£¤³¤Î°ú¿ô¤Ï¡¢Ê¸»úÎó¤Ç¤¢¤ì¤Ð²¿¤Ç¤â(¶õʸ»ú¤Ç¤â)¤«¤Þ¤¤¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLEAR,CLEAR}}¡¢[¥á¥â¥ê¥Þ¥Ã¥×] ---- !GET ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤«¤é¡¢¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤Ë1¥ì¥³¡¼¥É¤òÆɤ߹þ¤ß¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} GET [#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>[,<¥ì¥³¡¼¥ÉÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} GET #1,1 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ï¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤òOPENʸ¤Ë¤è¤Ã¤Æ³«¤¤¤¿¤È¤­¤Ë»ØÄꤷ¤¿ÈÖ¹æ¤Ç¤¹¡£<¥ì¥³¡¼¥ÉÈÖ¹æ>¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢Ä¾Á°¤ÎGET¡¢PUTʸ¤Ç»²¾È¤µ¤ì¤¿¥ì¥³¡¼¥É¤Î¼¡¤Î¥ì¥³¡¼¥É¤¬¥Ð¥Ã¥Õ¥¡¤ËÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£¥ì¥³¡¼¥ÉÈÖ¹æ¤È¤·¤Æ»ØÄê²Äǽ¤ÊºÇÂç¤Î¿ô¤Ï¡¢4,294,967,295¤Ç¤¹¡£ ---- !GET DATE {{anchor GET DATE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÊÑ¿ô>¤Ë¸½ºß¤ÎÆüÉÕ¤òÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} GET DATE <ʸ»úÊÑ¿ô>[,A] ,ʸ¡¡Îã{SIZE:100|CENTER} GET DATE A$ ,²ò¡¡Àâ{SIZE:100|CENTER} ¸½ºß¤ÎÆüÉÕ¤ò»ØÄꤷ¤¿<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£¥ª¥×¥·¥ç¥ó¤ÎA¤òÉÕ¤±¤ë¤È¡¢¥¢¥é¡¼¥à¤ÎÀßÄꤵ¤ì¤¿ÆüÉÕ¤¬ÂåÆþ¤µ¤ì¤Þ¤¹¡£ÆüÉդϡ¢¡Ö85/04/03¡×¤Î¤è¤¦¤Ëǯ·îÆü¤¬¥¹¥é¥Ã¥·¥å¤Ç¶èÀÚ¤é¤ì¡¢·îÆü¤¬1·å¤Î¾ì¹ç¤Ï04¤Î¤è¤¦¤Ë2·å¤È¤Ê¤ê¤Þ¤¹¡£ ---- !GET TIME {{anchor GET TIME}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÊÑ¿ô>¤Ë¸½ºß¤Î»þ¹ï¤òÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} GET TIME <ʸ»úÊÑ¿ô>[,A] ,ʸ¡¡Îã{SIZE:100|CENTER} GET TIME T$ ,²ò¡¡Àâ{SIZE:100|CENTER} ¸½ºß¤Î»þ¹ï¤ò»ØÄꤷ¤¿<ʸ»úÊÑ¿ô>¤ËÂåÆþ¤·¤Þ¤¹¡£¥ª¥×¥·¥ç¥ó¤ÎA¤òÉÕ¤±¤ë¤È¡¢¥¢¥é¡¼¥à¤ÎÀßÄꤵ¤ì¤¿»þ¹ï¤¬ÂåÆþ¤µ¤ì¤Þ¤¹¡£»þ¹ï¤Ï¡¢¡Ö11:20:03¡×¤Î¤è¤¦¤Ë»þʬÉ䬥³¥í¥ó(:)¤Ç¶èÀÚ¤é¤ì¡¢»þ¹ï¤¬1·å¤Î¾ì¹ç¤Ï03¤Î¤è¤¦¤Ë2·å¤È¤Ê¤ê¤Þ¤¹¡£ ---- !GOSUB ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} GOSUB<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 GOSUB 30 20 END 30 PRINT "ŽºŽºŽ¶Ž×Ž»ŽÌŽÞŽÙŽ°ŽÁŽÝ" 40 PLAY "CDE" 50 PRINT "GOSUBŽÉŽÂŽ·ŽÞŽÉŽ·ŽÞŽ®Ž³ŽÍŽÓŽÄŽÞŽÙ" 60 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} GOUSUBÌ¿Îá¤Ç»ØÄꤷ¤¿¹Ô¤Ç»Ï¤Þ¤ë¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£¸Æ¤Ó½Ð¤µ¤ì¤¿¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¡¢RETURNÌ¿Îá¤Ë¤è¤Ã¤ÆGOSUB¤Î¼¡¤Îʸ¤Þ¤¿¤Ï¹Ô¤ËÌá¤ê¤Þ¤¹¡£¥µ¥Ö¥ë¡¼¥Á¥ó¤È¤Ï¡¢GOSUB¤Ç»ØÄꤹ¤ë¹Ô¤«¤é¡¢RETURN¤Î¹Ô¤Þ¤Ç¤ÎÆÈΩ¤·¤¿1¤Ä¤Î¥×¥í¥°¥é¥à¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# RETURN,RETURN}}¡¢{{# GOTO,GOTO}} ---- !GOTO ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} GOTO<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PRINT "10Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½":GOTO 30 20 PRINT "20Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½":END 30 PRINT "30Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½" 40 GOTO 20 ¡Úɽ¼¨¡Û10Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½ 30Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½ 20Ž·ŽÞŽ®Ž³ŽÃŽÞŽ½ ,²ò¡¡Àâ{SIZE:100|CENTER} 10¹Ô¤Ç¡¢30¹Ô¤ËÈô¤Ö¤è¤¦¤Ë»ØÄꤷ¤Æ¤¤¤ë¤Î¤Ç¡¢20¹Ô¤ÎENDÌ¿Îá¤òÈô¤Ó±Û¤·¤Æ30¹Ô¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£¤½¤Î¤¢¤È¡¢40¹Ô¤«¤é20¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Æ¡¢¥×¥í¥°¥é¥à¤Ï½ªÎ»¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON GOTO,ON GOTO}}¡¢{{# ON GOSUB,ON GOSUB}}¡¢{{# GOSUB,GOSUB}} ---- !HEX$ {{anchor HEX$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î¿ôÃͤò16¿Ê¿ô¤Îʸ»úÎó¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} HEX$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT HEX$(12) ¡Úɽ¼¨¡ÛC ,»²¡¡¾È{SIZE:100|CENTER} {{# VAL,VAL}}¡¢{{# BIN$,BIN$}}¡¢{{# OCT$,OCT$}}¡¢{{# STR$,STR$}} ---- !IF¡ÁTHEN¡ÁELSE¡¢IF¡ÁGOTO¡ÁELSE ,µ¡¡¡Ç½{SIZE:100|CENTER} ¾ò·ïȽÃǤò¹Ô¤¤¡¢¤½¤Î·ë²Ì¤Ë±þ¤¸¤¿Áàºî¤ò¹Ô¤¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} IF<¾ò·ï>THEN<ʸ¤Þ¤¿¤Ï¹ÔÈÖ¹æ>[ELSE<ʸ¤Þ¤¿¤Ï¹ÔÈÖ¹æ>] IF<¾ò·ï>GOTO<¹ÔÈÖ¹æ>[ELSE<ʸ¤Þ¤¿¤Ï¹ÔÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A=A+1 20 PRINT A 30 IF A=20 THEN PRINT "ŽÊŽÀŽÁ" ELSE 10 40 END ,²ò¡¡Àâ{SIZE:100|CENTER} IF¤Ë³¤±¤Æ¾ò·ï¤ò»ØÄꤷ¤Þ¤¹¡£¤½¤Î¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤¿(0°Ê³°¤ÎÃͤò¼è¤ë)¤È¤­¤ÏTHEN°Ê²¼¤Î»ØÄ꤬¼Â¹Ô¤µ¤ì¡¢¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤Ê¤¤(0¤òÃͤȤ·¤Æ¼è¤ë)¤È¤­¤ÏELSE°Ê²¼¤Î»ØÄ꤬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ ELSE°Ê²¼¤Î»ØÄê¤Ï¾Êά¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤½¤Î¾ì¹ç¡¢¾ò·ï¤¬Ëþ¤¿¤µ¤ì¤Ê¤«¤Ã¤¿¤È¤­¤Ï¼¡¤Î¹Ô¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ THEN¡¢ELSE¤Î¸å¤í¤Î»ØÄê¤Ï¡¢Ê¸¤Ç¤â¹ÔÈÖ¹æ¤Ç¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£THEN¤Î¸å¤í¤Ë¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¾ì¹ç¡¢THEN¤ÎÂå¤ï¤ê¤ËGOTO¤ò»È¤Ã¤Æ¡¢IF¡ÁGOTO¡ÁELSE¤È¤¤¤¦·Á¤Ë¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ ¾ò·ï¤Ë¤Ï¡¢°Ê²¼¤Î¤è¤¦¤ÊÈæ³Ó±é»»»Ò¤ÈÏÀÍý±é»»»Ò¤È¤¬»È¤¨¤Þ¤¹¡£ÏÀÍý±é»»»Ò¤Ï¡¢Ê£¿ô¤Î¾ò·ï¤ò»ØÄꤹ¤ë¤È¤­¤ËÍѤ¤¤Þ¤¹¡£ Èæ³Ó±é»»¤Ï¾ò·ï¤¬À®Î©¤·¤¿¤È¤­¤Ë¤Ï¡Ö-1¡×¡¢À®Î©¤·¤Ê¤¤¤È¤­¤Ë¤Ï¡Ö0¡×¤òÃͤȤ·¤ÆÊÖ¤·¤Þ¤¹¡£ ɽ2.9 Èæ³Ó±é»» ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0},{BSIZE:1 0},{BSIZE:1 0} ,Èæ³Ó±é»»»Ò,°ÕÌ£,Îã ,{c},{BSIZE:0|SIZE:100},{BSIZE:0|SIZE:250},{BSIZE:0|SIZE:200} ,¼°1=¼°2,¼°1¤¬¼°2¤ÈÅù¤·¤¤ ,IF A$="y" ,¼°1<>¼°2,¼°1¤¬¼°2¤ÈÅù¤·¤¯¤Ê¤¤,IF A<>0 ,¼°1<¼°2,¼°1¤¬¼°2¤è¤ê¾®¤µ¤¤,IF A<10 ,¼°1>¼°2,¼°1¤¬¼°2¤è¤êÂ礭¤¤,IF A>B ,¼°1<=¼°2{{br}}(¼°1=<¼°2),¼°1¤¬¼°2¤ÈÅù¤·¤¤¤«¡¢¾®¤µ¤¤,IF A<=B+1 ,¼°1>=¼°2{{br}}(¼°1=>¼°2),¼°1¤¬¼°2¤ÈÅù¤·¤¤¤«¡¢Â礭¤¤,IF A>="Z" ɽ2.10 ÏÀÍý±é»» ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0},{BSIZE:1 0},{BSIZE:1 0} ,ÏÀÍý±é»»»Ò,Îã,°ÕÌ£ ,{c},{BSIZE:0|SIZE:100},{BSIZE:0|SIZE:180},{BSIZE:0} ,NOT,IF NOT (A=1) ,A¤¬1¤Ç¤Ê¤±¤ì¤ÐTHEN°Ê²¼¤ò¼Â¹Ô ,AND,IF A=0 AND B=3,A¤¬0¤ÇB¤¬3¤Î¤È¤­¤Î¤ßTHEN°Ê²¼¤ò¼Â¹Ô ,OR ,IF A<0 OR B=0 ,A¤¬0¤è¤ê¾®¤µ¤¤¤«¡¢B¤¬0¤Î¤È¤­¤ËTHEN°Ê²¼¤ò¼Â¹Ô ---- !INKEY$ ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥­¡¼¤¬²¡¤µ¤ì¤Æ¤¤¤ì¤Ð¤½¤Îʸ»ú¤ò¡¢²¡¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¶õʸ»ú(¥Ì¥ë)¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INKEY$ ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$=INKEY$ 20 IF A$='"' THEN 10 30 PRINT A$;"=";HEX$(ASC(A$)) 40 GOTO 10 ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤Î¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥­¡¼¥Ü¡¼¥É¤«¤éÂǤÁ¹þ¤Þ¤ì¤¿Ê¸»ú¤È¡¢¤½¤Îʸ»ú¤Î¥¢¥¹¥­¡¼¥³¡¼¥É¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£ INKEY$¤Ï¡¢[CTRL]+[C]¤È[CTRL]+[STOP]°Ê³°¤Î¥³¥ó¥È¥í¡¼¥ëʸ»ú¤âÆɤ߼è¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# INPUT,INPUT}}¡¢{{# LINE INPUT,LINE INPUT}}¡¢{{# INPUT$,INPUT$}}¡¢[¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥Éɽ] ---- !INP ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿ÆþÎϥݡ¼¥È¤«¤é¥Ç¡¼¥¿¤ò³ÍÆÀ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INP(<¥Ý¡¼¥ÈÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} A=INP(15) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¥Ã¥³Æâ¤Î¥Ý¡¼¥ÈÈÖ¹æ(15)¤Ç»ØÄꤵ¤ì¤¿ÆþÎϥݡ¼¥È¤«¤é1¥Ð¥¤¥È¤Î¥Ç¡¼¥¿¤òÆɤ߼è¤ê¡¢¤½¤ÎÃͤòA¤ËÂåÆþ¤·¤Þ¤¹¡£¥Ý¡¼¥ÈÈÖ¹æ¤Ë´Ø¤·¤Æ¤Ï¡¢´¬Ëö¤Î¡ÖI/O¥Þ¥Ã¥×¡×¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ INP´Ø¿ô¤Ï¡¢¥Ï¡¼¥É¥¦¥§¥¢¤ÈÈó¾ï¤ËÌ©Ã夷¤¿´Ø¿ô¤Ç¡¢Â¾¤ÎMSXµ¡¼ï¤Ç¤ÏÊÖ¤¹Ãͤ¬°ã¤¦¾ì¹ç¤â¤¢¤ê¤Þ¤¹¡£MSX¤Î¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤¿¤á¡¢¹­¤¯¸øɽ¤¹¤ë¥×¥í¥°¥é¥à¤Ë¤Ï»ÈÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OUT,OUT}}¡¢{{# WAIT,WAIT}} ---- !{{anchor INPUT,INPUT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥­¡¼¥Ü¡¼¥É¤«¤éÆþÎϤµ¤ì¤ë¥Ç¡¼¥¿¤ò»ØÄꤷ¤¿ÊÑ¿ô¤ØÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INPUT["<¥×¥í¥ó¥×¥Èʸ>";]<ÊÑ¿ô̾>[,<ÊÑ¿ô̾>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 INPUT"ŽÃŽÞŽ°ŽÀ";A 20 PRINT A * A:GOTO 10 ,²ò¡¡Àâ{SIZE:100|CENTER} INPUTÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¤È¡¢µ¿ÌäÉä(?)¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¡¢¥×¥í¥°¥é¥à¤Ï¥­¡¼¥Ü¡¼¥É¤«¤é¤Î¥Ç¡¼¥¿ÆþÎÏÂÔ¤Á¤Ë¤Ê¤ê¤Þ¤¹¡£²¿¤«¿ôÃͤòÆþÎϤ¹¤ë¤È¤½¤Î¿ôÃͤÏ?¤Ë³¤¤¤Æ²èÌ̤Ëɽ¼¨¤µ¤ì¡¢¤½¤ÎÃͤ¬»ØÄꤵ¤ì¤¿ÊÑ¿ôA¤ËÂåÆþ¤µ¤ì¤Þ¤¹¡£ °úÍÑÉä(")¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎó(¾å¤ÎÎã¤Î¾ì¹ç"ŽÃŽÞŽ°ŽÀ")¤Ï¡¢¥×¥í¥ó¥×¥Èʸ¤È¸Æ¤Ð¤ì¤ë¤â¤Î¤Ç¡¢¤³¤ì¤ò»ØÄꤷ¤Æ¤¤¤ì¤Ð¡¢?¤ÎÁ°¤Ë¤½¤Îʸ»úÎó¤¬É½¼¨¤µ¤ì¤Æ¡¢¥á¥Ã¥»¡¼¥¸¤ÎÌò³ä¤ò²Ì¤¿¤·¤Þ¤¹¡£ ÊÑ¿ô¤Ï¡¢¥«¥ó¥Þ(,)¤Ç¶èÀڤäÆÊ£¿ô¸Ä»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¤³¤Î¾ì¹ç¡¢ÆþÎϤ¹¤ë¥Ç¡¼¥¿¤â¥«¥ó¥Þ¤Ç¶èÀڤäơ¢ÊÑ¿ô¤Î¿ô¤À¤±ÆþÎϤ·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎϤ¹¤ë¥Ç¡¼¥¿¤Î¸Ä¿ô¤¬Â­¤ê¤Ê¤¤¤È¡¢¡Ö??¡×¤Èɽ¼¨¤µ¤ì¤ÆÆþÎÏÂÔ¤Á¤È¤Ê¤ê¡¢¸Ä¿ô¤¬Â¿¤¤¤È¡Ö?Extra ignored¡×¤Èɽ¼¨¤µ¤ì¡¢Í¾Ê¬¤ËÆþÎϤµ¤ì¤¿¥Ç¡¼¥¿¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£¤Þ¤¿¡¢Âбþ¤¹¤ëÊÑ¿ô¤Î·¿¤È¥Ç¡¼¥¿¤Î·¿¤Ï¡¢°ìÃפ·¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£·¿¤¬°ã¤Ã¤Æ¤¤¤¿¾ì¹ç¤Ë¤Ï¡¢¡ÖRedo from start¡×¤Èɽ¼¨¤µ¤ì¤ÆºÆ¤ÓÆþÎÏÂÔ¤Á¤È¤Ê¤ê¤Þ¤¹¡£ ---- !{{anchor INPUT #,INPUT #}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤ß¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INPUT #<¥Õ¥¡¥¤¥ëÈÖ¹æ>,<ÊÑ¿ô>[,<ÊÑ¿ô>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} INPUT #1,A,B ,²ò¡¡Àâ{SIZE:100|CENTER} ¤¢¤é¤«¤¸¤áOPENʸ¤ÇINPUT¥â¡¼¥É¤ò»ØÄꤷ¤Æ³«¤¤¤Æ¤ª¤¤¤¿¥Õ¥¡¥¤¥ë¤«¤é¥Ç¡¼¥¿¤òÆɤ߹þ¤ß¡¢ÊÑ¿ô¤Ë¥»¥Ã¥È¤·¤Þ¤¹¡£INPUT #ʸ¤Ï¥Ç¡¼¥¿¤òÆɤ߹þ¤àÂоݤ¬¥Õ¥¡¥¤¥ë¤Ç¤¢¤ë¤³¤È¤ò½ü¤±¤Ð¡¢INPUTʸ¤È¤Û¤ÜƱ¤¸¤Ç¤¹¡£ <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ï¡¢OPENʸ¤Ç»ØÄꤷ¤¿ÈÖ¹æ¤Ç¤¹¡£ INPUT #ʸ¤ÇÆɤ߹þ¤à¥Ç¡¼¥¿¤Ï¡¢PRINT #ʸ¤Ç½ñ¤­½Ð¤·¤¿³Æ¥Ç¡¼¥¿¤ÈÂбþ¤·¤¿½ç¤ËÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ<ÊÑ¿ô>¤Î·¿¤Ï¥Õ¥¡¥¤¥ë¤«¤éÆþÎϤ¹¤ë¥Ç¡¼¥¿¤Î·¿¤ÈÂбþ¤·¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£ ¥Õ¥¡¥¤¥ëÃæ¤Î¥Ç¡¼¥¿¤Î¤¦¤Á¡¢Àè¤Ë³¤¯¥¹¥Ú¡¼¥¹¡¢¥é¥¤¥ó¥Õ¥£¡¼¥É¤Ï̵»ë¤µ¤ì¡¢¥¹¥Ú¡¼¥¹¡¢¥é¥¤¥ó¥Õ¥£¡¼¥É°Ê³°¤ÎºÇ½é¤Îʸ»ú¤¬¥Ç¡¼¥¿¤Î»Ï¤Þ¤ê¤È¤µ¤ì¤Þ¤¹¡£¥Ç¡¼¥¿¤Ï¡¢¥¹¥Ú¡¼¥¹¡¢¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¡¢¥é¥¤¥ó¥Õ¥£¡¼¥É¡¢¥«¥ó¥Þ¤Ë¤è¤Ã¤Æ¶èÀÚ¤é¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ¥Õ¥¡¥¤¥ëÃæ¤Î¥Ç¡¼¥¿¤¬Ê¸»úÎ󷿤ξì¹ç¤Ë¤Ï¡¢ºÇ½é¤Îʸ»ú¤¬°úÍÑÉä(")¤Ç¤¢¤ë¤È¡¢¤½¤Îʸ»ú·¿¥Ç¡¼¥¿¤Ï¡¢ºÇ½é¤Î°ú¿ô¤«¤é¼¡¤Î°úÍÑÉä¤Þ¤Ç¤Î´Ö¤ËÆɤ߹þ¤Þ¤ì¤¿Ê¸»ú¤Ç¹½À®¤µ¤ì¤ì¤Æ¤¤¤ë¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢°úÍÑÉä¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎóÃæ¤Ë¤Ï¡¢°úÍÑÉä¤òʸ»ú¤È¤·¤ÆÆþ¤ì¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ºÇ½é¤Îʸ»ú¤¬°úÍÑÉä°Ê³°¤Î¤È¤­¤Ï¡¢Ê¸»úÎó¤Ï¡¢°Ï¤Þ¤ì¤Æ¤¤¤Ê¤¤¤â¤Î¤È¤·¤Æ°·¤ï¤ì¡¢¥«¥ó¥Þ¡¢¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¡¢¥é¥¤¥ó¥Õ¥£¡¼¥É¡¢¤Þ¤¿¤Ï255ʸ»ú¤ÎÆɤ߹þ¤ß½ªÎ»¤Ë¤è¤Ã¤Æ¶èÀÚ¤é¤ì¤Þ¤¹¡£¿ôÃÍ¡¢¤Þ¤¿¤Ïʸ»ú·¿¥Ç¡¼¥¿¤ÎÆɤ߹þ¤ßÃæ¤Ë¡¢¥Õ¥¡¥¤¥ë¤Î½ª¤ï¤ê(EOF)¤Ë㤷¤¿¤È¤­¤Ï¡¢¤½¤Î¥Ç¡¼¥¿¹àÌܤϤ½¤³¤Ç¶èÀÚ¤é¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# INPUT,INPUT}}¡¢{{# OPEN,OPEN}}¡¢{{# PRINT #,PRINT #}} ---- !INPUT$ {{anchor INPUT$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤«¤é»ØÄꤵ¤ì¤¿Ä¹¤µ¤Îʸ»ú¤ò³ÍÆÀ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INPUT$(<ʸ»úÎó>[,[#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>]) ,ʸ¡¡Îã{SIZE:100|CENTER} WD$=INPUT$(6,#2) ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ç»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤«¤é<ʸ»ú¿ô>ʬ¤Îʸ»úÎó¤òÆɤ߽Ф·¤Þ¤¹¡£ INPUT$¤Ï¡¢[CTRL]+[STOP]¡¢[CTRL]+[C]¤ò½ü¤¯¤¹¤Ù¤Æ¤Îʸ»ú¤ò¤½¤Î¤Þ¤ÞÆɤ߽Ф¹¤Î¤Ç¡¢INPUTʸ¤äLINE INPUTʸ¤Ç¤ÏÆþÎϤ¹¤ë¤³¤È¤Î¤Ç¤­¤Ê¤¤¥é¥¤¥ó¥Õ¥£¡¼¥É¥³¡¼¥É¤ä¥ê¥¿¡¼¥ó¥³¡¼¥É¤âÆþÎϤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ #¤Î¤¢¤È¤Î¿ôÃͤϡ¢Æɤ߽Ф¹¥Õ¥¡¥¤¥ë¤Î¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ç¡¢OPENÌ¿Îá¤Ç»ØÄꤵ¤ì¤¿¤â¤Î¤ÈÂбþ¤·¤Æ¤¤¤Þ¤¹¡£¥Õ¥¡¥¤¥ëÈֹ椬¾Êά¤µ¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¥­¡¼¥Ü¡¼¥É¤«¤éÆþÎϤµ¤ì¤¿¥Ç¡¼¥¿¤òÆɤ߽Ф·¤Þ¤¹¤¬¡¢INPUTÌ¿Îá¤È°Û¤Ê¤ê¡¢ÆþÎϤµ¤ì¤¿Ê¸»ú¤Ï²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£ [CTRL]+[STOP]¤Ç¤³¤ÎÆþÎϤòÃæÃǤ·¤¿¾ì¹ç¡¢CONT¤Ï¼Â¹Ô¤Ç¤­¤Þ¤»¤ó¡£ ¥«¥Ã¥³Æâ¤ÎºÇ½é¤Î¿ôÃͤϡ¢Æɤ߽Ф¹Ê¸»ú¿ô¤ò»ØÄꤷ¤Æ¤¤¤Þ¤¹¡£¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÆþÎϤòÆɤ߽Ф¹¾ì¹ç¡¢INPUT$¤Ï»ØÄꤵ¤ì¤¿Ê¸»ú¿ô¤Îʸ»ú¤¬ÆþÎϤµ¤ì¤ë¤Î¤òÂÔ¤Á³¤±¤Þ¤¹¤¬¡¢¤¹¤Ç¤Ë¥­¡¼¥Ü¡¼¥É¥Ð¥Ã¥Õ¥¡¤ËÆþÎϺѤߤΥǡ¼¥¿¤¬¤¢¤ë¤È¤­¤Ë¤Ï¡¢¥Ð¥Ã¥Õ¥¡¤ÎÃæ¤Îʸ»ú¤«¤éÀè¤ËÆɤ߽Ф·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OPEN,OPEN}}¡¢{{# INPUT,INPUT}}¡¢{{# LINE INPUT,LINE INPUT}} ---- !INSTR {{anchor INSTR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¤¢¤ëʸ»úÎó¤ÎÃ椫¤é»ØÄꤵ¤ì¤¿Ê¸»úÎó¤òÁܤ·¡¢¸«¤Ä¤«¤Ã¤¿°ÌÃÖ¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INSTR([<¿ô¼°>,]<ʸ»úÎó1>,<ʸ»úÎó2>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER MSX" 20 PRINT INSTR(A$,"M") 30 END ¡Úɽ¼¨¡Û7 ,²ò¡¡Àâ{SIZE:100|CENTER} °ú¿ô¤ÎºÇ½é¤Îʸ»úÎó(A$)¤ÎÃ椫¤é¡¢2ÈÖÌܤÎʸ»úÎó(¡ÖM¡×)¤ò¤µ¤¬¤·¤Þ¤¹¡£¤³¤ÎÎã¤Î¾ì¹ç¡¢¡ÖM¡×¤ÏA$¤ÎƬ¤«¤é¿ô¤¨¤Æ7ÈÖÌܤˤ¢¤¿¤ë¤Î¤Ç¡¢·ë²Ì¤Ï7¤Ë¤Ê¤ê¤Þ¤¹¡£ »ØÄꤵ¤ì¤¿Ê¸»úÎ󤬸«¤Ä¤«¤é¤Ê¤«¤Ã¤¿¤È¤­¤Ï¡¢·ë²Ì¤Ï0¤Ë¤Ê¤ê¤Þ¤¹¡£¤Þ¤¿¡¢INSTR(6,A$,"M")¤Î¤è¤¦¤Ë¡¢ºÇ½é¤Ë¿ôÃͤòÆþ¤ì¤Æ¡¢¤µ¤¬¤·»Ï¤á¤ë°ÌÃÖ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ ---- !INT {{anchor INT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>°Ê²¼¤ÎºÇÂç¤ÎÀ°¿ô¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INT(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT INT(-1.2) ¡Úɽ¼¨¡Û-2 ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤ÎÃͤ¬Àµ¤Î¤È¤­¤ÏFIX¤ÈƱ¤¸¤Ç¤¹¤¬¡¢Éé¤Î¤È¤­¤Ï°Û¤Ê¤ê¤Þ¤¹¡£FIX¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ---- !INTERVAL ON/OFF/STOP {{anchor INTERVAL ON}}{{anchor INTERVAL OFF}}{{anchor INTERVAL STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ON INTERVAL GOSUBÌ¿Îá¤ÎÀßÄê¤ò¼Â¹Ô¤¹¤ë¤«¤É¤¦¤«¤ò·èÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} INTERVAL ON INTERVAL OFF INTERVAL STOP ,ʸ¡¡Îã{SIZE:100|CENTER} ON INTERVAL=100 GOSUB 100:INTERVAL ON ,²ò¡¡Àâ{SIZE:100|CENTER} INTERVAL ON¤Ï¡¢ON INTERVAL GOSUB¤ÎÀßÄê¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤Ë»ØÄꤷ¡¢°Ê¸å¡¢»ØÄꤷ¤¿»þ´Ö¤´¤È¤Ë¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£INTERVAL OFF¤Ï¡¢ÀßÄê¤Ë¤è¤ë¥¸¥ã¥ó¥×¤ò¶Ø»ß¤·¤Þ¤¹¡£INTERVAL STOP¤Ï¡¢ÀßÄê¤Ë¤è¤ë¥¸¥ã¥ó¥×¤ò°ì»þ»ß¤á¡¢¸å¤ÇINTERVAL ON¤¬»ØÄꤵ¤ì¤ë¤Èľ¤Á¤Ë¥¸¥ã¥ó¥×¤ò¼Â¹Ô¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON INTERVAL GOSUB,ON INTERVAL GOSUB}} ---- !KEY {{anchor KEY}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤòÄêµÁ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} KEY<¥­¡¼ÈÖ¹æ>,<ʸ»úÎó> ,ʸ¡¡Îã{SIZE:100|CENTER} KEY 1,"LOAD" ,²ò¡¡Àâ{SIZE:100|CENTER} ¿ôÃͤϥե¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÈÖ¹æ¤ËÂбþ¤µ¤»¤ë¤¿¤á¡¢1¡Á10¤Þ¤Ç¤ÎÃͤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÄêµÁ¤Ç¤­¤ëʸ»úÎó¤Ï¡¢ºÇÂç15ʸ»ú¤Þ¤Ç¤Îʸ»ú¤ª¤è¤Ó¥³¥ó¥È¥í¡¼¥ëʸ»ú¤Ç¤¹(¥³¥ó¥È¥í¡¼¥ëʸ»ú¤Ï¡¢CHR$¤ò»È¤Ã¤Æɽ¸½¤·¤Þ¤¹)¡£°ìÅÙÄêµÁ¤·¤¿¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤϡ¢¤¢¤é¤¿¤ËÄêµÁ¤·Ä¾¤¹¤«¡¢°ìöÅŸ»¤òÀڤäƺƤÓÅŸ»¤òÆþ¤ì¤ë¤Þ¤ÇÊѤï¤ê¤Þ¤»¤ó¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CHR$,CHR$}}¡¢{{# KEY LIST,KEY LIST}}¡¢{{# KEY ON,KEY ON}}¡¢{{# KEY OFF,KEY OFF}} ---- !KEY LIST {{anchor KEY LIST}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤò²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} KEY LIST ,ʸ¡¡Îã{SIZE:100|CENTER} KEY LIST ,²ò¡¡Àâ{SIZE:100|CENTER} [F1]¡Á[F10]¤Þ¤Ç¤Î¤¹¤Ù¤Æ¤Î¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤò²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ ÅŸ»ÅêÆþ»þ¤Ë¤Ï¡¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤϰʲ¼¤Î¤è¤¦¤ËÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:60},{BSIZE:0} ,F1 ,"""color""" ,F2 ,"""auto""" ,F3 ,"""goto""" ,F4 ,"""list""" ,F5 ,"""run""+CHR$(13)" ,F6 ,"""color 15,4,7""+CHR$(13)" ,F7 ,"""cload""+CHR$(34) (MSX2+¤Ç¤Ï""load""+CHR$(34))" ,F8 ,"""cont""+CHR$(13)" ,F9 ,"""list.""+CHR$(13)+CHR$(31)+CHR$(31)" ,F10,CHR$(12)+"run"+CHR$(13) ,»²¡¡¾È{SIZE:100|CENTER} {{# KEY,KEY}}¡¢{{# KEY ON,KEY ON}}¡¢{{# KEY OFF,KEY OFF}} ---- !KEY(n) ON/OFF/STOP {{anchor KEY(n) ON}}{{anchor KEY(n) OFF}}{{anchor KEY(n) STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤ËÆÃÊ̤ʽèÍý¤ò¹Ô¤¦¤«¤É¤¦¤«¤ò·èÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} KEY(<¥­¡¼ÈÖ¹æ>)ON KEY(<¥­¡¼ÈÖ¹æ>)OFF KEY(<¥­¡¼ÈÖ¹æ>)STOP ,ʸ¡¡Îã{SIZE:100|CENTER} 10 ON KEY GOSUB 40,60 20 KEY(1) ON:KEY(2) ON 30 GOTO 30 40 PRINT "F1Ž¶ŽÞŽµŽ»ŽÚŽÏŽ¼ŽÀ" 50 KEY(1) STOP:RETURN 60 PRINT "F2Ž¶ŽÞŽµŽ»ŽÚŽÏŽ¼ŽÀ" 70 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤ÎÌ¿Îá¤Ï¡¢ON KEY GOSUB¤Ë¤è¤Ã¤ÆÄêµÁ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¼Â¹Ô¤òµö²Ä¤¹¤ë¤«(ON)¡¢¶Ø»ß¤¹¤ë¤«(OFF)¡¢°ì»þÄä»ß¤¹¤ë¤«(STOP)¤ò·èÄꤷ¤Þ¤¹¡£ ¥«¥Ã¥³Æâ¤Î¿ôÃͤϡ¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤Î¥­¡¼ÈÖ¹æ¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹¡£Î㤨¤Ð¡¢KEY(1) ON ¤ò¼Â¹Ô¤¹¤ë¤È¡¢[F1]¤ò²¡¤¹¤´¤È¤Ë¡¢ON KEY GOSUB¤Ë¤è¤êÄêµÁ¤µ¤ì¤Æ¤¤¤ë½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¸Æ¤Ó½Ð¤µ¤ì¤Þ¤¹¡£¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¼Â¹Ô¤µ¤ì¤Æ¤¤¤ë´Ö¤Ï¡¢KEY(1) STOP ¤¬¼«Æ°Åª¤Ë¼Â¹Ô¤µ¤ì¤ë¤Î¤Ç¡¢¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¼Â¹Ô¤¬½ª¤ï¤ë¤Þ¤Ç¤Ï¡¢Â¿½Å¤Ë¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¸Æ¤Ó½Ð¤µ¤ì¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£KEY(2) OFF ¤ò¼Â¹Ô¤¹¤ë¤È¡¢[F2]¤ò²¡¤·¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¡£KEY(3) STOP ¤ò¼Â¹Ô¤¹¤ë¤È¡¢[F3]¤ò²¡¤·¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¤¬¡¢ºÆ¤ÓKEY(3) ON ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢½èÍý¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£¤³¤ÎÌ¿Îá¤Ï¡¢KEY(3) ON ¤Î¾õÂ֤ǤΤßÍ­¸ú¤Ç¤¹¡£ ¾å¤Î¥×¥í¥°¥é¥à¤Ç¤Ï¡¢[F1]¤Ë´Ø¤·¤Æ¡¢°ìöKEY ON¤·¤Æ¤¤¤Þ¤¹¤¬(20¹Ô)¡¢¤½¤Î½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤ÇKEY STOP¤·¤Æ¤¤¤ë¤Î¤Ç(50¹Ô)¡¢°ìÅÙ[F1]¥­¡¼¤¬²¡¤µ¤ì¤Æ¤·¤Þ¤¦¤È¡¢2ÅÙÌܤ«¤é¤Ï¡ÖF1Ž¶ŽÞŽµŽ»ŽÚŽÏŽ¼ŽÀ¡×¤È¤¤¤¦¥á¥Ã¥»¡¼¥¸¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON KEY GOSUB,ON KEY GOSUB}} ---- !KEY ON/OFF {{anchor KEY ON}}{{anchor KEY OFF}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤò²èÌ̤β¼Éô¤Ëɽ¼¨¤¹¤ë¤«¤·¤Ê¤¤¤«¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} KEY ON KEY OFF ,ʸ¡¡Îã{SIZE:100|CENTER} KEY ON KEY OFF ,²ò¡¡Àâ{SIZE:100|CENTER} KEY ON¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤ÎÆâÍƤ¬²èÌ̤κDz¼¹Ô¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£ÉáÄ̤ξõÂ֤ǤÏ[F1]¡Á[F5]¤Þ¤Ç¤¬¡¢¥·¥Õ¥È¥­¡¼¤ò²¡¤·¤Æ¤¤¤ë¤È¤­¤Ï[F6]¡Á[F10]¤Þ¤Ç¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ KEY OFF¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤Îɽ¼¨¤¬¤È¤ê¤ä¤á¤é¤ì¤Þ¤¹¡£KEY ON/OFF ¤Ï SET SCREEN Ì¿Îá¤Ë¤è¤ê¡¢½é´ü¾õÂÖ¤òÅÐÏ¿¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# KEY,KEY}}¡¢{{# KEY LIST,KEY LIST}} ---- !KILL {{anchor KILL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤ò¾Ãµî¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} KILL<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯> ,ʸ¡¡Îã{SIZE:100|CENTER} KILL "A:SAMPLE.BAK" ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò¾Ãµî¤·¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯¤Î»ØÄê¤Ë¤Ï¡¢¥ï¥¤¥ë¥É¥«¡¼¥É(?¤ä*)¤ò»È¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬Í½ÁÛ³°¤Î¥Õ¥¡¥¤¥ë¤Þ¤Ç¾Ãµî¤·¤Æ¤·¤Þ¤ï¤Ê¤¤¤è¤¦½½Ê¬Ãí°Õ¤¬É¬ÍפǤ¹¡£¤Þ¤¿¡¢¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯Ãæ¤Ç¡¢¥É¥é¥¤¥Ö̾¤¬»ØÄꤵ¤ì¤Æ¤Ê¤¤¾ì¹ç¤Ï¡¢¼«Æ°Åª¤Ë¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥É¥é¥¤¥Ö(¥«¥ì¥ó¥È¥É¥é¥¤¥Ö)¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆKILL¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¤È¡¢¡ÖFile still open¡×¥¨¥é¡¼¤È¤Ê¤ê¤Þ¤¹¡£ ---- !LEFT$ {{anchor LEFT$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»úÎó>¤Îº¸Â¦¤«¤é»ØÄꤵ¤ì¤¿¿ô¤Îʸ»úÎó¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LEFT$(<ʸ»ú¼°>,<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER HOME COMPUTER" 20 B$=LEFT$(A$,5) 30 PRINT B$:END ¡Úɽ¼¨¡ÛSUPER ,²ò¡¡Àâ{SIZE:100|CENTER} Í¿¤¨¤é¤ì¤¿Ê¸»úÎó(A$)¤Îº¸Â¦¤«¤é¡¢¿ôÃÍ(5)¤Ç»ØÄꤵ¤ì¤¿¿ô¤Îʸ»ú¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£ »ØÄꤷ¤¿¿ô¤¬¡¢Ê¸»úÎó¤ÎÁíʸ»ú¿ô¤è¤êÂ礭¤¤¤È¤­¤Ï¡¢Ê¸»úÎ󤬤½¤Î¤Þ¤Þ¼è¤ê½Ð¤µ¤ì¤Þ¤¹¡£ ---- !LEN {{anchor LEN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ʸ»ú¼°>¤Ç»ØÄꤵ¤ì¤¿Ê¸»úÎó¤ÎÁíʸ»ú¿ô¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LEN(<ʸ»ú¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER HOME COMPUTER" 20 PRINT LEN(A$) 30 END ¡Úɽ¼¨¡Û19 ,²ò¡¡Àâ{SIZE:100|CENTER} LEN ¤Ï¥³¥ó¥È¥í¡¼¥ë¥³¡¼¥É¤ä¶õÇò¤âʸ»ú¤È¤·¤Æ¿ô¤¨¤Þ¤¹¡£ ---- !LET {{anchor LET}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÊÑ¿ô¤ËÃͤòÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} [LET]<ÊÑ¿ô̾>=<¼°> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 LET A=10 20 B = 20 30 PRINT A;B ¡Úɽ¼¨¡Û10 20 ,²ò¡¡Àâ{SIZE:100|CENTER} ÂåÆþ¤¹¤ë¤â¤Î¤Ï¡¢Ê¸»úÎó¤Ç¤â¿ôÃͤǤ⹽¤¤¤Þ¤»¤ó¡£LET¤Ï¾Êά¤Ç¤­¤ë¤Î¤Ç¡¢ÉáÄ̤ϻȤ¤¤Þ¤»¤ó¡£ ---- !LINE {{anchor LINE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤˿ôÃͤä»Í³Ñ¤òÉÁ¤­¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LINE[ [STEP](X1,Y1)]-[STEP](X2,Y2)[,<¥«¥é¡¼¥³¡¼¥É>][,B[F]][,<ÏÀÍý±é»»»Ò>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 COLOR 15,4,7:SCREEN 2 20 LINE(88,56)-(168,136),6,BF 30 LINE(128,76)-(108,116),15 40 LINE -STEP(40,-25),15 50 LINE -STEP(-40,0),15 60 LINE -STEP(40,25),15 70 LINE -(128,-76),15 80 GOTO 80 ,²ò¡¡Àâ{SIZE:100|CENTER} 10¹Ô¤Ç¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤ò»ØÄꤷ¤Æ¤«¤é¡¢20¹Ô¤ÇÀÖ¤¯Åɤê¤Ä¤Ö¤µ¤ì¤¿»Í³Ñ¤òÉÁ¤­¡¢30¹Ô¤«¤é70¹Ô¤Ç¤½¤Î»Í³Ñ¤ÎÃæ¤ËÀ±¤òÉÁ¤¤¤Æ¤¤¤Þ¤¹¡£ LINE¤Ï¡¢(X1,Y1)¤Ç»ØÄꤷ¤¿»ëÅÀ¤È(X2,Y2)¤Ç»ØÄꤷ¤¿½ªÅÀ¤È¤ò·ë¤ÖľÀþ¤ò°ú¤­¤Þ¤¹¡£X¼´Êý¸þ¤Ë¤Ï¡¢SCREEN 2¡Á5¤ª¤è¤Ó8°Ê¹ß¤Ç¤Ï255¡¢SCREEN 6¤È7¤Ï511¤Þ¤Ç¡¢Y¼´Êý¸þ¤Ë¤Ï¡¢SCREEN 2¡Á4¤Ç¤Ï191¡¢SCREEN 5°Ê¹ß¤Ç¤Ï211¤Þ¤Ç¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢0¤«¤é¤³¤ÎÃͤÎÈϰϤÎÅÀ¤ò»ØÄꤹ¤ë¤È¡¢²èÌ̤ËÀþ¤¬ÉÁ¤«¤ì¤Þ¤¹¡£ ¿§¤ò»ØÄꤹ¤ë¤È¡¢»ØÄꤷ¤¿¿§¤ÇÀþ¤¬°ú¤«¤ì¤Þ¤¹¡£¾Êά¤·¤¿¾ì¹ç¤Ï¡¢COLOR¤Ç»ØÄꤷ¤Æ¤¤¤ëÁ°·Ê¿§¤¬»È¤ï¤ì¤Þ¤¹¡£¿§¤È»ØÄꤹ¤ëÃͤȤÎÂбþ¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ <¥«¥é¡¼¥³¡¼¥É>¤Î¸å¤ËB¤ò»ØÄꤹ¤ë¤È¡¢(X1,Y1)¤«¤é(X2,Y2)¤ò·ë¤ÖÀþ¤òÂгÑÀþ¤Ë¤·¤¿»Í³Ñ¤¬ÉÁ¤«¤ì¤Þ¤¹¡£BF¤ò»ØÄꤷ¤¿¤È¤­¤Ë¤Ï¡¢»Í³Ñ¤ÎÃ椬»ØÄꤵ¤ì¤¿¿§¤ÇÅɤê¤Ä¤Ö¤µ¤ì¤Þ¤¹(20¹Ô»²¾È)¡£LINE¤ÎºÇ¸å¤Ë<ÏÀÍý±é»»»Ò>¤ò»ØÄꤹ¤ë¤È¡¢LINE¤Î¿§¤ò¼¡¤Î¤è¤¦¤ËÁàºî¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤¿¤À¤·¤³¤Î»ØÄ꤬¤Ç¤­¤ë¤Î¤Ï¡¢SCREEN 5°Ê¹ß¤Ë¸Â¤é¤ì¤Þ¤¹¡£ C¤ò»ØÄ꿧¡¢SC¤òLINE¤Î²¼¤Ë¤Ê¤ë¿§¤È¤·¤¿¤È¤­¤Ï¡¢ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:90},{BSIZE:0} ,,AND ,C AND SC ,,OR ,C OR SC ,,XOR ,NOT(C) AND SC ,,PSET ,C ,,PRESET ,NOT(C) ,,TAND ,C AND SC(C=0¤Ê¤éC=SC) ,,TOR ,C OR SC(C=0¤Ê¤éC=SC) ,,TXOR ,NOT(C) AND SC(C=0¤Ê¤éC=SC) ,,TPSET ,C(C=0¤Ê¤éC=SC) ,,TPRESET,NOT(C) (C=0¤Ê¤éC=SC) ¤¬¼ÂºÝ¤Î¿§¤È¤Ê¤ê¤Þ¤¹¡£ (X1,Y1)¤ò¾Êά¤·¤Æ-(X2,Y2)¤À¤±¤¬»ØÄꤵ¤ì¤ë¤È¡¢ºÇ½ª»²¾ÈÅÀ¤«¤é(X2,Y2)¤Þ¤Ç¤ò·ë¤ó¤ÀÀþ¤¬°ú¤«¤ì¤Þ¤¹(70¹Ô»²¾È)¡£ºÇ½ª»²¾ÈÅÀ¤È¤¤¤¦¤Î¤Ï¡¢Àþ¤äÅÀ¤Ê¤É¤òÉÁ¤¯¤Î¤Ë1ÈֺǸå¤Ë»ØÄꤵ¤ì¤¿ÅÀ¤Î¤³¤È¤Ç¤¹¡£ ¤â¤¦1¤Ä¤ÎLINE¤Î»ØÄê¤Ï¡¢STEP¤òÍѤ¤¤¿¤â¤Î¤Ç¤¹¡£STEP¤ò¤Ä¤±¤Æ»ØÄꤵ¤ì¤¿ÅÀ¤Ï¡¢ºÇ½ª»²¾ÈÅÀ¤«¤é¥«¥Ã¥³¤ÎÃæ¤Ç»ØÄꤷ¤¿ÃͤÎʬ¤À¤±°ÜÆ°¤·¤¿ÅÀ¤ò¼¨¤·¤Þ¤¹¡£Î㤨¤Ð¡¢ºÇ½ª»²¾ÈÅÀ¤¬(100,100)¤Ç¤¢¤Ã¤¿¤È¤¹¤ë¤È¡¢STEP(20,-30)¤È¤¤¤¦¤Î¤Ï¡¢(120,70)¤ÎÅÀ¤ò»Ø¤¹¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢STEP¤òÍѤ¤¤Æ°ú¤«¤ì¤ëÀþ¤Ï¡¢ºÇ½ª»²¾ÈÅÀ¤È¤½¤³¤«¤é¤Îµ÷Î¥¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤ëÅÀ¤È¤ò·ë¤ó¤À¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹¡£(40¡¢50¡¢60¹Ô»²¾È)¡£ 80¹Ô¤Ç80¹Ô¼«¿È¤Ë¥¸¥ã¥ó¥×¤·¤Æ¤¤¤ë¤Î¤Ï¡¢¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤Ǥϡ¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤¬½ª¤ï¤ë¤Èľ¤Á¤Ë¥Æ¥­¥¹¥È²èÌ̤˰ܤäƤ·¤Þ¤¦¤«¤é¤Ç¤¹¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤ÏSCREEN¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SCREEN,SCREEN}}¡¢{{# COLOR,COLOR}} ---- !LINE INPUT {{anchor LINE INPUT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥­¡¼¥Ü¡¼¥É¤«¤éÆþÎϤµ¤ì¤ë1¹ÔÁ´ÂΤÎʸ»úÎó¤ò¤½¤Î¤Þ¤Þʸ»úÊÑ¿ô¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LINE INPUT["<¥×¥í¥ó¥×¥Èʸ>";]<ʸ»ú·¿ÊÑ¿ô̾> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 LINE INPUT"ŽÃŽÞŽ°ŽÀ";A$ 20 PRINT A$ 30 GOTO 10 ,²ò¡¡Àâ{SIZE:100|CENTER} LINE INPUTÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥×¥í¥°¥é¥à¤Ï¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÆþÎÏÂÔ¤Á¤Î¾õÂ֤ˤʤê¤Þ¤¹¡£¤³¤Î¤È¤­¡¢µ¿ÌäÉä(?)¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£°Ê¹ß¡¢²¿¤«¥Ç¡¼¥¿¤òÆþÎϤ¹¤ë¤È¡¢¥ê¥¿¡¼¥ó¥­¡¼¤ò²¡¤¹¤Þ¤Ç¤ËÆþÎϤµ¤ì¤¿Ê¸»ú¥Ç¡¼¥¿¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¡¢¤½¤ì¤¬¤½¤Î¤Þ¤Þʸ»ú·¿ÊÑ¿ô¤ËÂåÆþ¤µ¤ì¤Þ¤¹¡£¥­¡¼¥Ü¡¼¥É¤«¤éÆþÎϤǤ­¤ëʸ»úÎó¤ÎŤµ¤Ï¡¢254ʸ»ú°ÊÆâ¤Ç¤¹¡£¤Þ¤¿¡¢LINE INPUTÌ¿Îá¤Ç¤Ï¡¢¥«¥ó¥Þ(,)¤ä°úÍÑÉä(")¤â¥Ç¡¼¥¿¤È¤·¤ÆÆþÎϤǤ­¤Þ¤¹¡£ ¤Ê¤ª¡¢INPUTÌ¿ÎáƱÍÍ¡¢°úÍÑÉä(")¤òÍѤ¤¤Æ¥×¥í¥ó¥×¥Èʸ¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# INPUT,INPUT}} ---- !LINE INPUT # {{anchor LINE INPUT #}} ,µ¡¡¡Ç½{SIZE:100|CENTER} 1¹Ôñ°Ì¤Î¥Ç¡¼¥¿¤ò¥Õ¥¡¥¤¥ë¤«¤éʸ»úÎóÊÑ¿ô¤ØÆɤ߹þ¤ß¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LINE INPUT #<¥Õ¥¡¥¤¥ëÈÖ¹æ>,<ʸ»úÎó·¿ÊÑ¿ô̾> ,ʸ¡¡Îã{SIZE:100|CENTER} LINE INPUT #1,A$ ,²ò¡¡Àâ{SIZE:100|CENTER} ¤¢¤é¤«¤¸¤áOPENʸ¤ÇINPUT¥â¡¼¥É¤ò»ØÄꤷ¤Æ³«¤¤¤Æ¤ª¤¤¤¿¥Õ¥¡¥¤¥ë¤«¤é¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¥³¡¼¥É¡Ü¥é¥¤¥ó¥Õ¥£¡¼¥É¥³¡¼¥É¤Ç¶èÀÚ¤é¤ì¤Æ¤¤¤ë1¹Ôñ°Ì(255ʸ»ú°ÊÆâ)¤Î¥Ç¡¼¥¿¤ò»ØÄꤷ¤¿Ê¸»úÊÑ¿ô¤ËÆɤ߹þ¤ß¤Þ¤¹¡£ SAVEʸ¤Ç¥¢¥¹¥­¡¼·Á¼°¤Î¥×¥í¥°¥é¥à¥Õ¥¡¥¤¥ë¤òºîÀ®¤·¤¿¾ì¹ç¡¢°ì¹Ô°ì¹Ô¤Ï¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¥³¡¼¥É(CHR$(13))¤È¥é¥¤¥ó¥Õ¥£¡¼¥É¥³¡¼¥É(CHR$(10))¤È¤Ç¶èÀÚ¤é¤ì¤Æ½ñ¤­½Ð¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤Þ¤¿¡¢PRINT#ʸ¤ÇºîÀ®¤·¤¿¥Õ¥¡¥¤¥ë¤Ë¤ÏPRINT#ʸ¤ò¼Â¹Ô¤¹¤ë¤´¤È¤Ë¿ôÃͤäʸ»úÎó¤ÎʤӤ¬¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¥³¡¼¥É¡Ü¥é¥¤¥ó¥Õ¥£¡¼¥É¥³¡¼¥É¤Ç¶èÀÚ¤é¤ì¤Æ½ñ¤­½Ð¤µ¤ì¤Æ¤¤¤Þ¤¹¡£LINE INPUT#ʸ¤Ï¤³¤ì¤é¤Î¥Õ¥¡¥¤¥ë¤«¤é¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¥³¡¼¥É¡Ü¥é¥¤¥ó¥Õ¥£¡¼¥É¥³¡¼¥É¤Ë¤Ï¤µ¤Þ¤ì¤Æ¤¤¤ë¥Ç¡¼¥¿¤òÆɤ߹þ¤à¤È¤­¤Ë»È¤¤¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤ÏOPENʸ¤Ç»ØÄꤷ¤¿ÈÖ¹æ¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OPEN,OPEN}}¡¢{{# CLOSE,CLOSE}}¡¢{{# PRINT#,PRINT#}}¡¢{{# LINE INPUT,LINE INPUT}} ---- !LIST¡¢LLIST {{anchor LIST}}{{anchor LLIST}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¤Ë¤¢¤ë¥×¥í¥°¥é¥à¤ò²èÌ̤Ëɽ¼¨¡¢¥×¥ê¥ó¥¿¤Ë°õºþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} [L]LIST[<¹ÔÈÖ¹æ1>][-[<¹ÔÈÖ¹æ2>]] ,ʸ¡¡Îã{SIZE:100|CENTER} LIST 100-200 ,²ò¡¡Àâ{SIZE:100|CENTER} ¹ÔÈÖ¹æ1¤ÈƱ¤¸¤«¹ÔÈÖ¹æ1°Ê¾å¤ÇºÇ¤â¶á¤¤ÈÖ¹æ¤Î¹Ô¤«¤é¡¢¹ÔÈÖ¹æ2¤Þ¤¿¤Ï¹ÔÈÖ¹æ2°Ê²¼¤ÇºÇ¤â¶á¤¤ÈÖ¹æ¤Î¹Ô¤Þ¤Ç¤Î¥×¥í¥°¥é¥à¤ò²èÌ̤Ëɽ¼¨(LLIST¤Ï¥×¥ê¥ó¥¿¤Ë°õºþ)¤·¤Þ¤¹¡£ LIST ¥×¥í¥°¥é¥à¤ÎÀèƬ¤«¤éºÇ¸å¤Þ¤Ç¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ LIST 50 ¹ÔÈÖ¹æ50¤Î¹Ô¤Î¤ßɽ¼¨¤µ¤ì¤Þ¤¹¡£ LIST -100 ¥×¥í¥°¥é¥à¤ÎÀèƬ¤«¤é100¹ÔÌܤޤǤ¬É½¼¨¤µ¤ì¤Þ¤¹¡£ LIST 200- ¥×¥í¥°¥é¥à¤Î200¹ÔÌܤ«¤éºÇ¸å¤Þ¤Ç¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ LIST¤Îµ¡Ç½¤òÃæÃǤ·¤¿¤¤¤È¤­¤Ï[STOP]¥­¡¼¤ò²¡¤·¤Æ²¼¤µ¤¤¡£[STOP]¥­¡¼¤ò¤â¤¦°ìÅÙ²¡¤»¤Ðɽ¼¨¤òºÆ³«¤·¤Þ¤¹¡£¤Þ¤¿¡¢LIST¤Îµ¡Ç½¤ò½ªÎ»¤·¤¿¤¤¤È¤­¤Ï¡¢[CTRL]+[STOP]¥­¡¼¤ò²¡¤·¤Æ²¼¤µ¤¤¡£ LIST¤ÎÂå¤ï¤ê¤ËLLIST¤òÍѤ¤¤ì¤Ð¡¢¥×¥í¥°¥é¥à¤ò¥×¥ê¥ó¥¿¤Ë°õºþ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !LOAD {{anchor LOAD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤ò¥á¥â¥ê¾å¤ËÆɤ߹þ¤ß¤Þ¤¹(¥í¡¼¥É¤¹¤ë)¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LOAD<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>[,R] ,ʸ¡¡Îã{SIZE:100|CENTER} LOAD "A:TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} LOAD¥³¥Þ¥ó¥É¤Ï<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤷ¤¿¥×¥í¥°¥é¥à¤ò¥á¥â¥ê¾å¤Ë¥í¡¼¥É¤·¤Þ¤¹¡£LOADʸ¤ò¼Â¹Ô¤¹¤ë¤È¡¢LOADʸ¼Â¹ÔÁ°¤Ë¥á¥â¥ê¾å¤Ë¤¢¤Ã¤¿¥×¥í¥°¥é¥à¤Ï¾Ãµî¤µ¤ì¤Þ¤¹¡£¤Þ¤¿¡¢¤¹¤Ù¤Æ¤Î³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤ÏÊĤ¸¤é¤ì¡¢ÊÑ¿ô¤ÎÃͤϽé´ü²½¤µ¤ì¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Î¥Ç¥Ð¥¤¥¹Ì¾¤ò¾Êά¤¹¤ë¤È¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤«¤é¥í¡¼¥É¤·¤Þ¤¹¡£ ¤Þ¤¿¡¢¥Õ¥¡¥¤¥ë̾¤Ï¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆÍѤ¤¤ë»þ¤Î¤ß¾Êά¤Ç¤­¡¢¤³¤Î¾ì¹ç¤ÏLOAD"CAS:"¤È¤·¤Þ¤¹¡£¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë¤Î¾ì¹ç¤Ï¥×¥í¥°¥é¥à¤Î¥»¡¼¥Ö·Á¼°¤¬¡¢¥Ð¥¤¥Ê¥ê¤Ç¤â¥¢¥¹¥­¡¼¤Ç¤â¤«¤Þ¤¤¤Þ¤»¤ó¤¬¡¢¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤Ç¤Ï¥¢¥¹¥­¡¼·Á¼°¤Ç¥»¡¼¥Ö¤·¤¿¤â¤Î¤Ë¸Â¤é¤ì¤Þ¤¹¡£¥«¥»¥Ã¥È¾å¤Î¥Ð¥¤¥Ê¥ê·Á¼°¤Î¥×¥í¥°¥é¥à(CSAVE¤·¤¿¤â¤Î)¤ÏCLOAD¤Ç¤Î¤ß¥í¡¼¥É¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ R¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È¥Õ¥¡¥¤¥ë¤Ï³«¤¤¤¿¤Þ¤Þ¤Ç¡¢¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¸å¡¢¤¿¤À¤Á¤Ë¼Â¹Ô¤ò³«»Ï¤·¤Þ¤¹¡£ LOAD¤Ï¡¢»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤ò¸«¤Ä¤±¤Æ¥×¥í¥°¥é¥à¤Î¥í¡¼¥É¤ò³«»Ï¤¹¤ë¤Þ¤Ç¤Ï¡¢¥á¥â¥ê¾å¤Î¥×¥í¥°¥é¥à¤òÊݸ¤·¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SAVE,SAVE}}¡¢{{# CLOAD,CLOAD}} ---- !LOC {{anchor LOC}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ëÃæ¤Î¸½ºß¤Î°ÌÃÖ¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LOC(<¥Õ¥¡¥¤¥ëÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} IF LOC(1) > 50 THEN STOP ,²ò¡¡Àâ{SIZE:100|CENTER} ¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤ò»ØÄꤷ¤¿¤È¤­¤Ï¡¢LOC´Ø¿ô¤Ï¡¢ºÇ¸å¤ËÆɤó¤À¤ê½ñ¤¤¤¿¤ê¤·¤¿¥ì¥³¡¼¥ÉÈÖ¹æ¤òÃͤȤ·¤ÆÊÖ¤·¤Þ¤¹¡£¤¿¤À¤·¡¢¥ª¡¼¥×¥óľ¸å¤ÏLOC´Ø¿ô¤ÎÃͤÏ0¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ ¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤ò»ØÄꤷ¤¿¤È¤­¤Ï¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤¬¥ª¡¼¥×¥ó¤µ¤ì¤Æ¤«¤éÆɤ߽Фµ¤ì¤¿¤ê½ñ¤­¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤Î¥Ð¥¤¥È¿ô¤òÊÖ¤·¤Þ¤¹(¤¿¤À¤·256¥Ð¥¤¥È¤ò1ñ°Ì¤È¤¹¤ë)¡£¥Õ¥¡¥¤¥ë¤ò¥·¡¼¥±¥ó¥·¥ã¥ëÆþÎϥ⡼¥É¤Ç¥ª¡¼¥×¥ó¤·¤¿¾ì¹ç¤Ï¡¢BASIC¤ÏºÇ½é¤Î¥»¥¯¥¿¤ò¼«Æ°Åª¤ËÆɤà¤Î¤Ç¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤òÆɤàÁ°¤Ç¤âLOC´Ø¿ô¤ÎÃͤÏ256¤È¤Ê¤ê¤Þ¤¹¡£ ---- !LOCATE {{anchor LOCATE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Æ¥­¥¹¥È²èÌ̤Υ«¡¼¥½¥ë°ÌÃÖ¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LOCATE[][,][,<¥«¡¼¥½¥ë¥¹¥¤¥Ã¥Á>] ,ʸ¡¡Îã{SIZE:100|CENTER} LOCATE 10,12 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¡¼¥½¥ë¤ò»ØÄꤹ¤ë°ÌÃ֤ذÜÆ°¤·¤Þ¤¹¡£(10,12)¤Ê¤é¡¢²èÌ̤κ¸Â¦¤«¤é11·åÌÜ¡¢¾å¤«¤é13¹ÔÌܤΰÌÃÖ¤ò°ÕÌ£¤·¤Æ¤¤¤Þ¤¹(0¤«¤é»ØÄꤹ¤ë¤¿¤á)¡£LOCATEÌ¿Îá¤Ç¥«¡¼¥½¥ë°ÌÃÖ¤ò»ØÄꤷ¤Æ¤«¤é¡¢PRINT¤äINPUT¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤½¤Î°ÌÃÖ¤Ëʸ»ú¤ä?¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£»ØÄꤵ¤ì¤¿°ÌÃÖ¤¬²èÌ̤ÎÈϰϤòĶ¤¨¤Æ¤¤¤ë¤È¡¢²£¡¢½Ä¤È¤â¡¢¤½¤ì¤òĶ¤¨¤Ê¤¤ºÇÂç¤ÎÃͤËÀßÄꤷľ¤µ¤ì¤Þ¤¹¡£ <¥«¡¼¥½¥ë¥¹¥¤¥Ã¥Á>¤Ï¡¢0¤Ê¤éÆþÎÏÂÔ¤Á¤Î»þ¤Î¤ß¥«¡¼¥½¥ë¤òɽ¼¨¡¢0°Ê³°¤Ê¤é¾ï¤Ëɽ¼¨¤È¤Ê¤ê¤Þ¤¹¡£LOCATE¤Ï¡¢¥Æ¥­¥¹¥È²èÌ̤ª¤è¤Ó´Á»ú¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É¤Ç¤Î¤ß»È¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !LOF {{anchor LOF}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤ÎÂ礭¤µ¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LOF(<¥Õ¥¡¥¤¥ëÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} IF NM%>LOF(1) THEN PRINT"INVALID ENTRY" ,²ò¡¡Àâ{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¼ÂºÝ¤ÎÂ礭¤µ¤ò¥Ð¥¤¥Èñ°Ì¤ÇÊÖ¤·¤Þ¤¹¡£ ---- !LOG {{anchor LOG}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î¼«Á³Âпô¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LOG(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT LOG(10) ¡Úɽ¼¨¡Û2.302585092994 ---- !LPOS {{anchor LPOS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥ê¥ó¥¿¤Î¥Ø¥Ã¥É¤Î°ÌÃÖ¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LPOS(<¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} A=LPOS(0) ,²ò¡¡Àâ{SIZE:100|CENTER} ¸½ºß¤Î¥×¥ê¥ó¥¿¤Î¥Ø¥Ã¥É°ÌÃÖ¤òÄ´¤Ù¡¢¤½¤Î·ë²Ì¤òA¤ËÂåÆþ¤·¤Þ¤¹¡£LPOS¤Ë¤è¤Ã¤ÆÆÀ¤é¤ì¤ëÃͤϡ¢¥×¥ê¥ó¥¿¥Ð¥Ã¥Õ¥¡¾å¤Î¥×¥ê¥ó¥¿¥Ø¥Ã¥É¤Î°ÌÃ֤ʤΤǡ¢É¬¤º¤·¤â¼ÂºÝ¤Î(ʪÍýŪ¤Ê)¥×¥ê¥ó¥¿¥Ø¥Ã¥É¤Î°ÌÃ֤Ȥϸ¤ê¤Þ¤»¤ó¡£¥«¥Ã¥³Æâ¤Î¿ôÃͤϷÁ¼°Åª¤Ê¤â¤Î¤Ê¤Î¤Ç¡¢²¿¤Ç¤¢¤Ã¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LPRINT,LPRINT}}¡¢{{# WIDTH,WIDTH}} ---- !LPRINT {{anchor LPRINT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥ê¥ó¥¿¤Ëʸ»úÎó¤ä¿ôÃͤò°õºþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LPRINT[<¼°>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="ABC":A=123 20 LPRINT A$,A 30 LPRINT "DEF" ,²ò¡¡Àâ{SIZE:100|CENTER} LPRINT¤Ë³¤±¤Æ»ØÄꤵ¤ì¤¿¿ôÃÍ(¤³¤Î¾ì¹ç¡¢45)¤äʸ»úÎó(DEF)¤ò¥×¥ê¥ó¥¿¤Ë½ÐÎϤ·¤Þ¤¹¡£¤Þ¤¿¡¢¿ôÃÍÊÑ¿ô(A)¤äʸ»úÊÑ¿ô(A$)¤¬»ØÄꤵ¤ì¤ë¤È¡¢¤½¤ì¤é¤ÎÊÑ¿ô¤ËÂåÆþ¤µ¤ì¤Æ¤¤¤ë¿ôÃͤäʸ»úÎ󤬥ץê¥ó¥¿¤Ë½ÐÎϤµ¤ì¤Þ¤¹¡£ LPRINTÌ¿Îá¤Ï¡¢½ÐÎÏÀ褬¥×¥ê¥ó¥¿¤Ç¤¢¤ë¤³¤È¤ò½ü¤±¤Ð¡¢¤½¤Îµ¡Ç½¤ä»È¤¤Êý¤ÏPRINTÌ¿Îá¤ÈÁ´¤¯Æ±¤¸¤Ç¤¹¤Î¤Ç¡¢¤½¤Á¤é¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# PRINT,PRINT}}¡¢{{# PRINT USING,PRINT USING}}¡¢{{# LPRINT USING,LPRINT USING}} ---- !LPRINT USING {{anchor LPRINT USING}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤ä¿ôÃͤò»ØÄꤷ¤¿½ñ¼°¤Ç¥×¥ê¥ó¥¿¤Ë°õºþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LPRINT¡¡USING<½ñ¼°>;<¼°>¡¦¡¦¡¦ ,²ò¡¡Àâ{SIZE:100|CENTER} LPRINT USING¤ò¼Â¹Ô¤¹¤ë¤È¡¢°úÍÑÉä(")¤Ç°Ï¤Þ¤ì¤¿½ñ¼°¤Ë¤·¤¿¤¬¤Ã¤Æ¡¢»ØÄꤵ¤ì¤¿Ê¸»úÎó¤ä¿ôÃͤ¬ÊÔ½¸¤µ¤ì¡¢¤½¤Î·ë²Ì¤¬¥×¥ê¥ó¥¿¤Ë½ÐÎϤµ¤ì¤Þ¤¹¡£ LPRINT USINGÌ¿Îá¤Ï¡¢½ÐÎÏÀ褬¥×¥ê¥ó¥¿¤Ç¤¢¤ë¤³¤È¤ò½ü¤±¤Ð¡¢¤½¤Îµ¡Ç½¤ä»È¤¤Êý¤ÏPRINT USINGÌ¿Îá¤ÈÁ´¤¯Æ±¤¸¤Ç¤¹¤Î¤Ç¡¢¤½¤Á¤é¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# PRINT USING,PRINT USING}}¡¢{{# LPRINT,LPRINT}} ---- !LSET¡¢RSET {{anchor LSET}}{{anchor RSET}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥é¥ó¥À¥àÆþ½ÐÎÏÍѥХåե¡¤Ë¥Ç¡¼¥¿¤òžÁ÷¤·¤Þ¤¹(PUT¥³¥Þ¥ó¥É¤Î¤¿¤á¤Î½àÈ÷)¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} LSET<ʸ»ú·¿ÊÑ¿ô>=<ʸ»ú¼°> RSET<ʸ»ú·¿ÊÑ¿ô>=<ʸ»ú¼°> ,ʸ¡¡Îã{SIZE:100|CENTER} LSET D$=MKI$(D) ,²ò¡¡Àâ{SIZE:100|CENTER} <ʸ»ú¼°>¤Îʸ»ú¤¬¡¢FIELDʸ¤Ç»ØÄꤵ¤ì¤¿Ê¸»ú¤è¤êû¤¤¾ì¹ç¤Ï¡¢LSETʸ¤Ç¤Ïº¸µÍ¤á¡¢RSET¤Ç¤Ï±¦µÍ¤á¤Ç¥Õ¥£¡¼¥ë¥ÉÆâ¤òËä¤á¡¢Í¾Ê¬¤Ê½ê¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£µÕ¤ËFIELDʸ¤Ç¤Î³ä¤êÅö¤Æ¤è¤êŤ¤¾ì¹ç¤Ï¡¢LSETʸ¡¢RSETʸξÊý¤È¤âʸ»úÎó¤Î±¦Â¦¤¬¼º¤ï¤ì¤Þ¤¹¡£¤Þ¤¿¡¢¿ôÃͥǡ¼¥¿¤ò°·¤¦¤È¤­¤Ï¡¢¤¢¤é¤«¤¸¤á¤½¤ì¤é¤òʸ»ú·¿¥Ç¡¼¥¿¤ËÊÑ´¹¤·¤Æ¤ª¤«¤Í¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤½¤ì¤é¤Ë¤Ä¤¤¤Æ¤Ï¡¢MKI$¡¢MKS$¡¢MKD$¤Î³Æ´Ø¿ô¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ LSETʸ¡¢RSETʸ¤ÏFIELDʸ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤Ê¸»ú·¿ÊÑ¿ô¤Ë¤Ä¤¤¤Æ¤â¡¢¤½¤Î¥Õ¥£¡¼¥ë¥ÉÆâ¤Çº¸µÍ¤á¤Ê¤¤¤·±¦µÍ¤á¤ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ï¡¢¥×¥ê¥ó¥È½ÐÎϤι½À®¤ËºÝ¤·¤ÆÍøÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !MAXFILES {{anchor MAXFILES}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ÈÍѤ¹¤ë¥Õ¥¡¥¤¥ë¤Î¿ô¤òÄêµÁ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MAXFILES=<¥Õ¥¡¥¤¥ë¿ô> ,ʸ¡¡Îã{SIZE:100|CENTER} MAXFILES=3 ,²ò¡¡Àâ{SIZE:100|CENTER} OPENʸ¤Ç³«¤¤¤Æ»ÈÍѤ¹¤ë¥Õ¥¡¥¤¥ë¤Î¿ô¤òÄêµÁ¤·¤Þ¤¹¡£°Ê¹ß¡¢»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤òƱ»þ¤Ë³«¤¤¤Æ»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ÄêµÁ¤·¤Ê¤¤¤È¤­¤Ï¡¢MAXFILES=1¤ËÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£<¥Õ¥¡¥¤¥ë¿ô>¤Ï0¡Á15¤ÎÈϰϤò»ý¤Ä¼°¤Ç¡¢¥Õ¥¡¥¤¥ë1¸Ä¤Ë¤Ä¤¤¤Æ267¥Ð¥¤¥È¤Î¥Õ¥¡¥¤¥ë¥³¥ó¥È¥í¡¼¥ë¥Ö¥í¥Ã¥¯Îΰ褬³ÎÊݤµ¤ì¤Þ¤¹¡£MAXFILESʸ¤ò¼Â¹Ô¤¹¤ë¤È¡¢ÊÑ¿ô¤¬¤¹¤Ù¤Æ½é´ü²½¤µ¤ì¡¢¸½ºß¥ª¡¼¥×¥ó¤·¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤Ï¥¯¥í¡¼¥º¤µ¤ì¤Þ¤¹¡£¤Þ¤¿¡¢°ÊÁ°¤ÎÊÑ¿ô¤Î·¿Àë¸À¤Ê¤É¤Ï̵¸ú¤Ë¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLEAR,CLEAR}}¡¢{{# OPEN,OPEN}} ---- !MERGE {{anchor MERGE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¢¥¹¥­¡¼·Á¼°¤ÇÊݸ¤µ¤ì¤Æ¤¤¤ë¥×¥í¥°¥é¥à¤ò¥á¥â¥ê¾å¤Î¥×¥í¥°¥é¥à¤Ë¥Þ¡¼¥¸(º®¹ç)¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MERGE<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯> ,ʸ¡¡Îã{SIZE:100|CENTER} MERGE "CAS:TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Î¥×¥í¥°¥é¥à¤Ë<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤷ¤¿¥×¥í¥°¥é¥à¥Õ¥¡¥¤¥ë¤òº®¹ç¤·¤Æ1¤Ä¤Î¥×¥í¥°¥é¥à¤Ë¤·¡¢¥á¥â¥ê¾å¤ËÃÖ¤­¤Þ¤¹¡£<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤹ¤ë¥Õ¥¡¥¤¥ë¤ÏSAVE"",Aʸ¤ò»È¤Ã¤Æ¥¢¥¹¥­¡¼·Á¼°¤Ç¥»¡¼¥Ö¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢¥É¥é¥¤¥Ö̾¤ò»ØÄꤷ¤Æ¤¤¤ì¤Ð¥¨¥é¡¼¤È¤Ê¤ê¡¢CAS:¤ò»ØÄꤷ¤Æ¤¤¤ì¤Ð¥Æ¡¼¥×¤¬²ó¤ê³¤±¤Þ¤¹¡£<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Î¥Ç¥Ð¥¤¥¹Ì¾¤ò¾Êά¤¹¤ë¤È¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£¥Õ¥¡¥¤¥ëÃæ¤Î¥×¥í¥°¥é¥à¤È¡¢¥á¥â¥êÃæ¤Î¥×¥í¥°¥é¥à¤ËƱ°ì¹ÔÈֹ椬¤¢¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢¥Õ¥¡¥¤¥ëÃæ¤Î¹Ô¤Ç¥á¥â¥êÃæ¤Î¹Ô¤òÃÖ¤­´¹¤¨¤Þ¤¹¡£MERGE¥³¥Þ¥ó¥É¤Ï¼Â¹Ô¤ò½ªÎ»¤¹¤ë¤È¡¢¥³¥Þ¥ó¥É¥ì¥Ù¥ë¤Ë¤â¤É¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SAVE,SAVE}}¡¢{{# LOAD,LOAD}} ---- !MID$ ­¡ {{anchor MID$ ­¡}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤ÎÃ椫¤é»ØÄꤵ¤ì¤¿¿ô¤Îʸ»úÎó¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MID$(<ʸ»úÎó>,<¼°1>[,<¼°2>]) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER HOME COMPUTER" 20 PRINT MID$(A$,7,4) 30 END ¡Úɽ¼¨¡ÛHOME ,²ò¡¡Àâ{SIZE:100|CENTER} ʸ»úÎó(A$)¤Îº¸¤«¤é¿ô¤¨¤Æ7ÈÖÌܤÎʸ»ú¤«¤é¡¢4¤Ä¤Îʸ»ú¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£¼è¤ê½Ð¤·¤¿¤¤Ê¸»ú¿ô(¤³¤Î¾ì¹ç¤Ï4)¤¬¾Êά¤µ¤ì¤¿¤È¤­¤ä¡¢Ê¸»úÎó¤Î»Ä¤ê¤Îʸ»ú¿ô¤è¤ê¤âÂ礭¤¤¤È¤­¤Ï¡¢»ØÄꤷ¤¿°ÌÃְʹߤΤ¹¤Ù¤Æ¤Îʸ»úÎ󤬼è¤ê½Ð¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LEFT$,LEFT$}}¡¢{{# RIGHT$,RIGHT$}}¡¢{{# MID$­¢,MID$­¢}} ---- !MID$ ­¢ {{anchor MID$ ­¢}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÊÑ¿ô¤Î°ìÉô¤ò¾¤Îʸ»úÎó¤ÈÃÖ¤­´¹¤¨¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MID$(<ʸ»úÊÑ¿ô>,<¼°1>[,<¼°2>])=<ʸ»úÎó> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER HOME COMPUTER" 20 MID$(A$,7,4)="¥Û¡¼¥à" 30 PRINT A$:END ¡Úɽ¼¨¡ÛSUPER ¥Û¡¼¥à COMPUTER ,²ò¡¡Àâ{SIZE:100|CENTER} ʸ»úÎó(A$)¤Îº¸¤«¤é¿ô¤¨¤Æ7ÈÖÌܤ«¤é4ʸ»ú¤ò¡¢±¦ÊÕ¤Îʸ»úÎó("¥Û¡¼¥à")¤ÈÃÖ¤­´¹¤¨¤Þ¤¹¡£¤³¤ÎÂåÆþʸ¤ò¼Â¹Ô¤·¤Æ¤â¡¢¤â¤È¤Îʸ»úÎó¤ÎŤµ¤ÏÊѤï¤ê¤Þ¤»¤ó¡£¤Þ¤¿¡¢Ê¸»ú¿ô(4)¤ò¾Êά¤¹¤ë¤È<ʸ»úÎó>¤Îʸ»ú¿ô¤È¸«¤Ê¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# MID$­¡,MID$­¡}} ---- !MKI$¡¢MKS$¡¢MKD$ {{anchor MKI$}}{{anchor MKS$}}{{anchor MKD$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ³Æ¿ôÃͤòÆâÉôɽ¸½¤ËÂбþ¤·¤¿¥­¥ã¥é¥¯¥¿¥³¡¼¥É¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MKI$ (<À°¿ôɽµ­>) MKS$ (<ñÀºÅÙɽµ­>) MKD$ (<ÇÜÀºÅÙɽµ­>) ,ʸ¡¡Îã{SIZE:100|CENTER} RSET A$=MKI$(123) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤Ç¤Ï¡¢Ê¸»ú¥Ç¡¼¥¿¤·¤«°·¤¨¤Ê¤¤¤Î¤Ç¡¢¿ôÃͥǡ¼¥¿¤Ïʸ»ú·¿¥Ç¡¼¥¿¤ËÊÑ´¹¤·¤Æ¥Ç¥£¥¹¥¯¤Ë½ñ¤­¹þ¤ß¡¢Æɤ߽Ф¹ºÝ¤ÏµÕ¤Ëʸ»ú·¿¥Ç¡¼¥¿¤ò¿ôÃÍ·¿¥Ç¡¼¥¿¤ËÊÑ´¹¤·¤Þ¤¹¡£MKI$¤ÏÀ°¿ôÃͤò2¥Ð¥¤¥È¤Îʸ»úÎó¤Ë¡¢MKS$¤ÏñÀºÅÙ¿ôÃͤò4¥Ð¥¤¥È¤Îʸ»úÎó¤Ë¡¢¤½¤·¤ÆMKD$¤ÏÇÜÀºÅÙ¿ôÃͤò8¥Ð¥¤¥È¤Îʸ»úÎó¤Ë¤½¤ì¤¾¤ìÊÑ´¹¤·¤Þ¤¹¡£ ¿ôÃͤ«¤éʸ»ú¤Ø¤ÎÊÑ´¹¤Ï¿ôÃͤ¬»ý¤ÄÆâÉôɽ¸½(2¿Ê¿ôɽ¸½)¤ÎÃͤò¤½¤Î¤Þ¤Þ¤½¤ì¤ËÂбþ¤¹¤ë¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤Ë¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¹Ô¤ï¤ì¤Þ¤¹¡£¤³¤ÎµÕ¤ÎÆ°ºî¤ò¤¹¤ë´Ø¿ô¤È¤·¤ÆCVI¡¢CVS¡¢CVD´Ø¿ô¤¬ÍÑ°Õ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ---- !MOTOR {{anchor MOTOR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥«¥»¥Ã¥È¥ì¥³¡¼¥À¤Î¥â¡¼¥¿¡¼¤òON¡¢OFF¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} MOTOR[ON¤Þ¤¿¤ÏOFF] ,ʸ¡¡Îã{SIZE:100|CENTER} MOTOR ON ,²ò¡¡Àâ{SIZE:100|CENTER} ¥ê¥â¡¼¥Èü»Ò¤Î¤¢¤ë¥«¥»¥Ã¥È¥ì¥³¡¼¥À¤òÀܳ¤·¤¿¤È¤­¤Ë¡¢¥â¡¼¥¿¡¼¤ÎON¡¢OFF¤ò¹Ô¤Ã¤Æ¡¢¥«¥»¥Ã¥È¥Æ¡¼¥×¤ÎÁáÁ÷¤ê¡¢´¬¤­Ìᤷ¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤·¤Þ¤¹¡£MOTOR ON¤È»ØÄꤹ¤ë¤È¥â¡¼¥¿¡¼¤¬ON¤Ë¤Ê¤ê¡¢MOTOR OFF¤È¤¹¤ë¤ÈOFF¤Ë¤Ê¤ê¤Þ¤¹¡£MOTOR¤È¤À¤±»ØÄꤹ¤ë¤È¡¢¸½ºß¥â¡¼¥¿¡¼¤¬ON¤Ê¤éOFF¤Ë¡¢OFF¤Ê¤éON¤Ë¤Ê¤ê¤Þ¤¹¡£ ---- !NAME {{anchor NAME}}¡ÚDisk¡Û ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤Î̾Á°¤òÊѹ¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} NAME<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>AS<¥Õ¥¡¥¤¥ë̾> ,ʸ¡¡Îã{SIZE:100|CENTER} NAME"TEST.BAS" AS "TEMP.BAS" ,²ò¡¡Àâ{SIZE:100|CENTER} Êѹ¹¤·¤è¤¦¤È¤¹¤ë¥Õ¥¡¥¤¥ë¤Ï¸ºß¤·¤Æ¤¤¤ë¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤Þ¤¿¡¢ÉÕ¤±¤è¤¦¤È¤¹¤ë̾Á°¤ÈƱ¤¸¥Õ¥¡¥¤¥ë¤Ï¸ºß¤·¤Æ¤¤¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¥É¥é¥¤¥Ö̾¤ò¾Êά¤¹¤ë¤È¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö(¸½ºßÁªÂò¤µ¤ì¤Æ¤¤¤ë¥É¥é¥¤¥Ö)¤¬ÁªÂò¤µ¤ì¤Þ¤¹¡£NAME¥³¥Þ¥ó¥É¤¬¼Â¹Ô¤µ¤ì¤ë¤È¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤Î̾Á°¤ÏÊѹ¹¤µ¤ì¤Þ¤¹¤¬¡¢¥Õ¥¡¥¤¥ë¤Î¸ºß¤¹¤ë°ÌÃ֤䡢ÀêÍ­¤¹¤ëÂ礭¤µ¤Ê¤É¤ÏÊѲ½¤·¤Þ¤»¤ó¡£ ---- !NEW {{anchor NEW}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¤Ë¤¢¤ë¥×¥í¥°¥é¥à¤òºï½ü¤·¡¢¤¹¤Ù¤Æ¤ÎÊÑ¿ô¤ò½é´ü²½¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} NEW ,ʸ¡¡Îã{SIZE:100|CENTER} NEW ,²ò¡¡Àâ{SIZE:100|CENTER} NEW¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥á¥â¥ê¤Ë¤¢¤ë¥×¥í¥°¥é¥à¤Ï¤¹¤Ù¤Æºï½ü¤µ¤ì¡¢ÄêµÁ¤µ¤ì¤Æ¤¤¤ëÊÑ¿ô¤Ï¤¹¤Ù¤Æ½é´ü²½¤µ¤ì¡¢³«¤«¤ì¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤Ï¤¹¤Ù¤ÆÊĤ¸¤é¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# DELETE,DELETE}}¡¢{{# ERASE,ERASE}} ---- !OCT$ {{anchor OCT$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Î¿ôÃͤò8¿Ê¿ô¤Îʸ»úÎó¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} OCT$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT OCT$(100) ¡Úɽ¼¨¡Û144 ,»²¡¡¾È{SIZE:100|CENTER} {{# BIN$,BIN$}}¡¢{{# HEX$,HEX$}} ---- !ON ERROR GOTO {{anchor ON ERROR GOTO}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¨¥é¡¼¤¬µ¯¤³¤Ã¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¹Ô¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON ERROR GOTO <¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 ON ERROR GOTO 60 20 A$=INKEY$ 30 IF A$="Y" THEN 80 40 A%=A%+100 50 GOTO 20 60 PRINT "Ž¼Ž®ŽØ":A%=0 70 RESUME 80 ON ERROR GOTO 0 ,²ò¡¡Àâ{SIZE:100|CENTER} 10¹Ô¤Ç¡¢¥¨¥é¡¼¤¬µ¯¤³¤Ã¤¿¤È¤­60¹Ô¤Ë¥¸¥ã¥ó¥×¤¹¤ë¤è¤¦¤Ë»ØÄꤷ¤Æ¤¢¤ë¤Î¤Ç¡¢40¹Ô¤ÎA%¤¬32767¤òĶ¤¨¤Æ¡ÖOverFlow¡×¥¨¥é¡¼¤¬µ¯¤­¤ë¤È60¹Ô¤Ë¥¸¥ã¥ó¥×¤·¡¢A%¤Ë0¤òÂåÆþ¤·¤Þ¤¹¡£ ¤¢¤é¤«¤¸¤á¡¢¥¨¥é¡¼¤ò½èÍý¤¹¤ëÉôʬ¤ò¥×¥í¥°¥é¥àÃæ¤ËÆþÎϤ·¤Æ¤ª¤­¡¢¥×¥í¥°¥é¥à¤ÎºÇ½é¤ËON ERROR GOTO¤Ç¤½¤ÎÉôʬ¤ÎºÇ½é¤Î¹Ô¤ò»ØÄꤷ¤Æ¤ª¤±¤Ð¡¢¥¨¥é¡¼¤¬µ¯¤­¤¿¤È¤­¤Ë¡¢¥¨¥é¡¼½èÍýÍѤλØÄ꤬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£¥¨¥é¡¼½èÍýÍѤλØÄê¤ÎºÇ¸å¤Ë¤ÏRESUMEÌ¿Îá¤òÃÖ¤¯¤È¡¢¥¨¥é¡¼½èÍý¤ò½ªÎ»¤µ¤»¡¢¤â¤È¤Î¥×¥í¥°¥é¥à¤òºÆ³«¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹(70¹Ô»²¾È)¡£ ON ERROR GOTO Ì¿Îá¤Ï¡¢Â¾¤ÎON ERROR GOTOÌ¿Îá¡¢RUN¡¢CLEAR¡¢NEW¤¬¼Â¹Ô¤µ¤ì¤ë¤Þ¤ÇÍ­¸ú¤Ç¤¹¤Î¤Ç¡¢¤½¤Î¤Þ¤Þ¥×¥í¥°¥é¥à¤ò½ªÎ»¤¹¤ë¤È¡¢¥À¥¤¥ì¥¯¥È¥â¡¼¥É¤Ç¥¿¥¤¥×¥ß¤Ê¤É¤ò¤·¤Æ¤â¡¢ºÆ¤Ó¥¨¥é¡¼½èÍýÍѤιԤإ¸¥ã¥ó¥×¤·¡¢¥×¥í¥°¥é¥à¤¬¼Â¹Ô¤µ¤ì¤Æ¤¤¤·¤Þ¤¤¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤Æ¥×¥í¥°¥é¥à¤Î½ªÎ»Ä¾Á°¤Ë¤Ï¡¢ON ERROR GOTO¤Î»ØÄê¤ò̵¸ú¤Ë¤¹¤ë¡¢ON ERROR GOTO 0¤ò¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤(80¹Ô»²¾È)¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# RESUME,RESUME}}¡¢{{# ERL,ERL}}¡¢{{# ERROR,ERROR}} ---- !ON GOTO¡¢ON GOSUB {{anchor ON GOTO}}{{anchor ON GOSOUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¼°>¤Ç»ØÄꤵ¤ì¤¿¤¤¤º¤ì¤«¤Î¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON<¼°>GOSUB<¹ÔÈÖ¹æ>[,<¹ÔÈÖ¹æ>¡¦¡¦¡¦] ON<¼°>GOTO<¹ÔÈÖ¹æ>[,<¹ÔÈÖ¹æ>¡¦¡¦¡¦] ,ʸ¡¡Îã1{SIZE:100|CENTER} 10 INPUT "1 Ž¶ 2 Ž¦ ŽµŽ¼ŽÃŽ¸ŽÀŽÞŽ»Ž²";A 20 ON A GOTO 100,200 30 GOTO 10 100 PRINT "100Ž·ŽÞŽ®Ž³ŽÆŽ¼ŽÞŽ¬ŽÝŽÌŽßŽ¼ŽÏŽ¼ŽÀ":END 200 PRINT "200Ž·ŽÞŽ®Ž³ŽÆŽ¼ŽÞŽ¬ŽÝŽÌŽßŽ¼ŽÏŽ¼ŽÀ":END ,ʸ¡¡Îã2{SIZE:100|CENTER} 10 INPUT "1 Ž¶ 2 Ž¦ ŽµŽ¼ŽÃŽ¸ŽÀŽÞŽ»Ž²";A 20 ON A GOSUB 100,200 30 GOTO 10 100 PRINT "100Ž·ŽÞŽ®Ž³ŽÆŽ¼ŽÞŽ¬ŽÝŽÌŽßŽ¼ŽÏŽ¼ŽÀ":RETURN 200 PRINT "200Ž·ŽÞŽ®Ž³ŽÆŽ¼ŽÞŽ¬ŽÝŽÌŽßŽ¼ŽÏŽ¼ŽÀ":RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} ON ¤È GOTO¡¢¤¢¤ë¤¤¤ÏON ¤È GOSUB¤Î´Ö¤ÎÃÍ(A)¤Ë±þ¤¸¤Æ¡¢GOTO¡¢GOSUB¤Î¸å¤í¤Ç»ØÄꤷ¤¿¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ON GOTO¤Ï»ØÄꤷ¤¿¹Ô¤Ë¥¸¥ã¥ó¥×¤·¡¢ON GOSUB¤Ï»ØÄꤷ¤¿¹Ô¤Ç»Ï¤Þ¤ë¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£(GOSUB»²¾È)¡£ GOTO¡¢GOSUB¤Î¸å¤í¤Î»ØÄê¤Ï¡¢º¸¤«¤é1¡¢2¡¢£³¡¢¡¦¡¦¡¦¤È¤¤¤¦¿ô¤ËÂбþ¤·¤Æ¤¤¤Æ¡¢Î㤨¤Ð¡¢¾å¤ÎÎã¤Ç¤Ï¡¢1¤¬²¡¤µ¤ì¤ì¤Ð100¹Ô¤Ë¡¢2¤¬²¡¤µ¤ì¤ì¤Ð200¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ Âбþ¤¹¤ë¹ÔÈֹ椬¤Ê¤¤¤È¤­(¾å¤ÎÎã¤Ç¤Ï0¤ä3°Ê¾å¤Î¿ôÃͤòÆþÎϤ·¤¿¾ì¹ç)¤Ï¡¢¼¡¤ÎÌ¿Î᤬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£Éé¤Î¿ô¤¬»ØÄꤵ¤ì¤¿¤È¤­¤Ï¡¢Illegal function call¥¨¥é¡¼¤È¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# GOTO,GOTO}}¡¢{{# GOSUB,GOSUB}} ---- !ON INTERVAL GOSUB {{anchor ON INTERVAL GOSUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿»þ´Ö¤´¤È¤Ë¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¸Æ¤Ó½Ð¤·¤ò¹Ô¤¦¤è¤¦¤ËÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON INTERVAL=<»þ´Ö>GOSUB<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 ON INTERVAL=600 GOSUB 40 20 INTERVAL ON 30 GOTO 30 40 PRINT"*"; 50 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} INTERVAL ¤Ç»ØÄꤹ¤ë»þ´Ö¤Ï¡¢1¤«¤é65535¤Þ¤Ç¤Î¿ôÃͤǡ¢Ã±°Ì¤Ï1/60ÉäǤ¹¡£ON INTERVAL GOSUBÌ¿Îá¤Ï¡¢ÀßÄê¤ò¹Ô¤¦¤À¤±¤Ç¤¹¡£ÀßÄê¸å¤ËINTERVAL ON¤ò»ØÄꤷ¤Æ½é¤á¤Æ¡¢»ØÄꤷ¤¿»þ´Ö¤¬¤¿·Ð¤Ä¤È¥µ¥Ö¥ë¡¼¥Á¥ó¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£¥µ¥Ö¥ë¡¼¥Á¥ó¤«¤éÌá¤ë¤Ë¤Ï¡¢RETURNÌ¿Îá¤ò»È¤¤¤Þ¤¹¡£¤Þ¤¿¡¢RETURN¤ËÌá¤êÀè¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ RETURNÌ¿Î᤬¼Â¹Ô¤µ¤ì¤ë¤Þ¤Ç¤Ï¡¢INTERVAL STOP¤¬¼Â¹Ô¤µ¤ì¤¿¤È¤­¤ÈƱ¤¸¾õÂ֤ˤʤäƤ¤¤ë¤Î¤Ç¡¢Â¿½Å¤Ë¥¤¥ó¥¿¡¼¥Ð¥ë³ä¤ê¹þ¤ß¤¬¤«¤«¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£ ¾å¤Î¥×¥í¥°¥é¥à¤Ï10É䴤ȤˡÖ*¡×¤òɽ¼¨¤¹¤ë¤â¤Î¤Ç¤¹¡£10¹Ô¤Ç¡¢ON INTERVAL¤Ç»ØÄꤷ¤¿»þ´Ö(600)¤´¤È¤Ë¡¢GOSUB¤Ç»ØÄꤵ¤ì¤¿¹Ô(40¹Ô)¤Ë¥¸¥ã¥ó¥×¤¹¤ë¤è¤¦¤ËÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# INTERVAL ON,INTERVAL ON}}¡¢{{# INTERVAL OFF,INTERVAL OFF}}¡¢{{# INTERVAL STOP,INTERVAL STOP}} ---- !ON KEY GOSUB {{anchor ON KEY GOSUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¹Ô¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON KEY GOSUB[<¹ÔÈÖ¹æ>][,<¹ÔÈÖ¹æ>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 ON A GOSUB 40,60 20 KEY(1)ON:KEY(2)ON 30 GOTO 30 40 PRINT "F1Ž¶ŽÞ ŽµŽ»ŽÚŽÏŽ¼ŽÀ" 50 RETURN 60 PRINT "F2Ž¶ŽÞ ŽµŽ»ŽÚŽÏŽ¼ŽÀ" 70 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¡¢¸Æ¤Ó½Ð¤¹¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¹ÔÈÖ¹æ¤ò»ØÄꤷ¤Þ¤¹¡£ ON KEY GOSUB¤Ë³¤¯¹ÔÈÖ¹æ(40¤È60)¤¬¡¢¼ÂºÝ¤Ë½èÍý¤ò¹Ô¤¦¥µ¥Ö¥ë¡¼¥Á¥ó¤ÎÀèƬ¹Ô¤Ç¡¢»ØÄꤵ¤ì¤¿¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼([F1]¤È[F2])¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¤Ï¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤Ï¤³¤³¤Ë°Ü¤ê¤Þ¤¹¡£ ¹ÔÈÖ¹æ¤ÎʤӤνç½ø¤Ï¡¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤Î¥­¡¼ÈÖ¹æ¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹¡£¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤Ï[F1]¤«¤é[F10]¤Þ¤Ç¤¢¤ë¤Î¤Ç¡¢ºÇÂç10¸Ä¤Î¹ÔÈֹ椬ʤ٤é¤ì¤Þ¤¹¡£ ¸Æ¤Ó½Ð¤µ¤ì¤¿¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¡¢GOSUBÌ¿ÎáƱÍÍ¡¢RETURNÌ¿Îá¤Ë¤è¤Ã¤Æ¥¸¥ã¥ó¥×¤·¤¿¼¡¤Î¹Ô¤ËÌá¤ê¤Þ¤¹¡£¤Þ¤¿¡¢RETURN¤ËÌá¤êÀè¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¤¿¤À¤·¡¢¤³¤ÎÌ¿Îá¤Ï¡¢¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤Î½èÍý¤ÎÄêµÁ¤ò¹Ô¤¦¤À¤±¤Ç¡¢¤³¤ì¤À¤±¤Ç¤Ï½èÍý¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¡£¾å¤Î¥×¥í¥°¥é¥à¤Ç¤â¡¢20¹Ô¤¬¼Â¹Ô¤µ¤ì¤Æ¡¢½é¤á¤Æ40¹Ô¤È60¹Ô¤¬¼Â¹Ô¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¾Ü¤·¤¯¤Ï¡¢KEY(n) ON/OFF/STOP¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# KEY(n) ON,KEY(n) ON}}¡¢{{# KEY(n) OFF,KEY(n) OFF}}¡¢{{# KEY(n) STOP,KEY(n) STOP}} ---- !ON SPRITE GOSUB {{anchor ON SPRITE GOSUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¹Ô¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON SPRITE GOSUB<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 1,1 20 SPRITE$(0)=STRING$(8,CHR$(&B11111111)) 30 ON SPRITE GOSUB 90 40 PUT SPRITE 0,(100,100),1,0 50 SPRITE ON 60 X=255 70 PUT SPRITE 1,(X,100),6,0 80 X=X-1:GOTO 70 90 REM SUB 100 X=255 110 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} 30¹Ô¤Ç¡¢¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¤Ï¡¢90¹Ô¤Ë¥¸¥ã¥ó¥×¤¹¤ë¤è¤¦¤Ë»ØÄꤷ¤Æ¤¤¤Þ¤¹¡£ ON SPRITE GOSUB¤ò¼Â¹Ô¤·¤Æ¤ª¤­¡¢SPRITE ON¤ò¼Â¹Ô¤¹¤ë¤È¡¢²èÌ̾å¤Ç¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¡¢ON SPRITE GOSUB¤Ç»ØÄꤷ¤¿¹Ô(90)¤Ø¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£¥¸¥ã¥ó¥×¤·¤¿¹Ô°Ê¹ß¤Ç¡¢¥¹¥×¥é¥¤¥È¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Î½èÍý¤ò¹Ô¤Ã¤¿¤¢¤È¤Ï¡¢RETURN¤Ç¸µ¤Î¹Ô¤ØÌá¤ê¤Þ¤¹¡£¤Þ¤¿¡¢RETURN¤ËÌá¤êÀè¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ ¤Ê¤ª¡¢SCREEN 4°Ê¹ß¤Î¥¹¥×¥é¥¤¥È¤ÇÆüì¤Ê¥«¥é¡¼¥³¡¼¥É¤ò»ý¤Ä¤â¤Î¤Ï¾×Æͤ·¤Æ¤â³ä¤ê¹þ¤ß¤òµ¯¤³¤·¤Þ¤»¤ó¡£¾Ü¤·¤¯¤ÏCOLOR SPRITEʸ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SPRITE ON,SPRITE ON}}¡¢{{# SPRITE OFF,SPRITE OFF}}¡¢{{# SPRITE STOP,SPRITE STOP}} ---- !ON STOP GOSUB {{anchor ON STOP GOSUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} [CTRL]+[STOP]¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¹Ô¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON STOP GOSUB<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} ON STOP GOSUB 100 ,²ò¡¡Àâ{SIZE:100|CENTER} [CTRL]+[STOP]¥­¡¼¤¬²¡¤µ¤ì¤ë¤È¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤Ï100¹Ô°Ê¹ß¤Ë°Ü¤ê¤Þ¤¹¡£ON STOP¡¡GOSUB¤Ï¡¢[CTRL]+[STOP]¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¡¢Ê¬´ô¤¹¤ë¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤â¤Î¤Ç¤¹¡£ON KEY GOSUB¤Ë³¤¯¹ÔÈÖ¹æ(¤³¤Î¾ì¹ç¡¢100)¤¬¡¢¼ÂºÝ¤Ë½èÍý¤ò¹Ô¤¦¥µ¥Ö¥ë¡¼¥Á¥ó¤ÎÀèƬ¹Ô¤Ë¤Ê¤ê¤Þ¤¹¡£¸Æ¤Ó½Ð¤µ¤ì¤¿¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¡¢GOSUBÌ¿ÎáƱÍÍ¡¢RETURNÌ¿Îá¤Ë¤è¤Ã¤Æ¥¸¥ã¥ó¥×¤·¤¿¼¡¤Î¹Ô¤ËÌá¤ê¤Þ¤¹¡£¤Þ¤¿¡¢RETURN¤ËÌá¤êÀè¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ON KEY GOSUB¤ÎÀâÌÀ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON KEY GOSUB,ON KEY GOSUB}}¡¢{{# STOP ON,STOP ON}}¡¢{{# STOP OFF,STOP OFF}}¡¢{{# STOP STOP,STOP STOP}} ---- !ON STRIG GOSUB {{anchor ON STRIG GOSUB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¹Ô¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} ON STRIG GOSUB<¹ÔÈÖ¹æ>[,<¹ÔÈÖ¹æ>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} ON STRIG GOSUB,100,200 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1¤¬²¡¤µ¤ì¤¿¤é¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤ò100¹Ô°Ê¹ß¤Ë°Ü¤·¡¢¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1¤¬²¡¤µ¤ì¤¿¤é¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤ò200¹Ô°Ê¹ß¤Ë°Ü¤·¤Þ¤¹¡£ ¤³¤ÎÌ¿Îá¤Ï¡¢¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¡¢Ê¬´ô¤¹¤ë¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤â¤Î¤Ç¤¹¡£ON STRIG GOSUB¤Ë³¤¯¹ÔÈÖ¹æ(¤³¤Î¾ì¹ç¡¢100¤È200)¤¬¡¢¼ÂºÝ¤Ë½èÍý¤ò¹Ô¤¦¥µ¥Ö¥ë¡¼¥Á¥ó¤ÎÀèƬ¹Ô¤Ç¡¢»ØÄꤵ¤ì¤¿¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¤Ï¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤Ï¤³¤³¤Ë°Ü¤ê¤Þ¤¹¡£ ¹ÔÈÖ¹æ¤ÏºÇÂç5¸Ä¤Þ¤Ç»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¡¢º¸Â¦¤«¤é½ç¤Ë°Ê²¼¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤ÈÂбþ¤·¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0} ,¹ÔÈÖ¹æ,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,1ÈÖÌÜ,¥­¡¼¥Ü¡¼¥É¤Î¥¹¥Ú¡¼¥¹¥­¡¼ ,2ÈÖÌÜ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,3ÈÖÌÜ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,4ÈÖÌÜ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ,5ÈÖÌÜ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤Æ¤¤¤ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ¤¿¤À¤·¡¢¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Ë¤è¤Ã¤Æ¤Ï¡¢¥È¥ê¥¬¥Ü¥¿¥ó2¤Î¤Ê¤¤¤â¤Î¤â¤¢¤ê¤Þ¤¹¡£ ¸Æ¤Ó½Ð¤µ¤ì¤¿¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¡¢GOSUBÌ¿ÎáƱÍÍ¡¢RETURNÌ¿Îá¤Ë¤è¤Ã¤Æ¥¸¥ã¥ó¥×¤·¤¿¼¡¤Î¹Ô¤ËÌá¤ê¤Þ¤¹¡£¤Þ¤¿¡¢RETURN¤ËÌá¤êÀè¤Î¹ÔÈÖ¹æ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¤¿¤À¤·¡¢¤³¤ÎÌ¿Îá¤Ï¡¢¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤È¤­¤Î½èÍý¤ÎÄêµÁ¤ò¹Ô¤¦¤À¤±¤Ç¡¢¤³¤ì¤À¤±¤Ç¤Ï½èÍý¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¡£STRIG(n) ON/OFF/STOP ¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# STRIG(n) ON,STRIG(n) ON}}¡¢{{# STRIG(n) OFF,STRIG(n) OFF}}¡¢{{# STRIG(n) OFF,STRIG(n) STOP}}¡¢{{# ON KEY GOSUB,ON KEY GOSUB}} ---- !OPEN {{anchor OPEN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Õ¥¡¥¤¥ë¤ò³«¤­¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} OPEN<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>[FOR<¥â¡¼¥É>]AS#<¥Õ¥¡¥¤¥ëÈÖ¹æ>[LEN=<¥ì¥³¡¼¥ÉĹ>] ,ʸ¡¡Îã{SIZE:100|CENTER} OPEN "SAMPLE.DAT" FOR OUTPUT AS #1 ,²ò¡¡Àâ{SIZE:100|CENTER} OPENʸ¤Ï¡¢¥Õ¥¡¥¤¥ë¤ò»ÈÍѤ¹¤ë¤Ë¤¢¤¿¤Ã¤Æ¥Ð¥Ã¥Õ¥¡¥¨¥ê¥¢¤ò³ä¤êÅö¤Æ¡¢¥¢¥¯¥»¥¹¥â¡¼¥É¤ò·èÄꤷ¤Þ¤¹¡£°ìÅÙ¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó¤¹¤ë¤È¡¢°Ê¹ß¤Ï¡¢<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ç¥Ç¡¼¥¿¤Î¤ä¤ê¤È¤ê¤ò¹Ô¤¤¤Þ¤¹¡£°Ê²¼¤ÎÌ¿Îá¤ä´Ø¿ô¤ò»ÈÍѤ¹¤ëÁ°¤Ë¤Ï¡¢¤¢¤é¤«¤¸¤áOPENʸ¤ò¼Â¹Ô¤·¤Æ¤ª¤¯¤³¤È¤¬É¬ÍפǤ¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:150},{BSIZE:0|SIZE:150} ,,EOF,FIELD ,,GET,INPUT# ,,"INPUT$(n,#m)",LINE INPUT# ,,LOC,LOF ,,PRINT#,PRINT#USING ,,PUT,VARPTR(#n) <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç¥É¥é¥¤¥Ö̾¤ò¾Êά¤·¤¿¤È¤­¤Ï¡¢¸½ºß¤Î¥Ç¥£¥¹¥¯¥É¥é¥¤¥Ö¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£ <¥â¡¼¥É>¤Ï¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë¥¢¥¯¥»¥¹¥â¡¼¥É¤ò·èÄꤹ¤ë¤â¤Î¤Ç¡¢¼¡¤Î4¼ïÎब¤¢¤ê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:150},{BSIZE:0} ,,FOR INPUT ,´û¸¤Î¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤«¤éÆþÎϤò¹Ô¤¦¡£ ,,FOR OUTPUT ,¿·¤·¤¯¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤òºî¤ê½ÐÎϤò¹Ô¤¦¡£ ,,FOR APPEND ,´û¸¤Î¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤Ë¿·¤¿¤Ê¥Ç¡¼¥¿¤òÄɲýÐÎϤ¹¤ë¡£ ,,<¥â¡¼¥É>¾Êά,¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆÆþ½ÐÎϤò¹Ô¤¦¡£ <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ï¡¢1¤«¤é15¤Þ¤Ç¤ÎÃͤòÍѤ¤¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¢MAXFILESʸ¤Ç»ØÄꤷ¤¿¿ô¤òĶ¤¨¤Æ»ØÄꤹ¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£¤Þ¤¿¡¢´û¤Ë¥ª¡¼¥×¥ó¤µ¤ì¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤¬»ÈÍѤ·¤Æ¤¤¤ëÈÖ¹æ¤òÍѤ¤¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ ¥·¡¼¥±¥ó¥·¥ã¥ëÆþÎϥ⡼¥É¤ª¤è¤ÓÄɲå⡼¥É¤Ç¤Ï¡¢»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Ê¤¤¤È¡¢¡ÖFile not found¡×¥¨¥é¡¼¤È¤Ê¤ê¤Þ¤¹¡£¥·¡¼¥±¥ó¥·¥ã¥ë½ÐÎϥ⡼¥É¤Ç¤Ï¡¢¾ï¤Ë»ØÄꤵ¤ì¤¿Ì¾Á°¤Î¥Õ¥¡¥¤¥ë¤ò¿·¤·¤¯ºî¤ê¡¢Æ±°ì̾¤Î¥Õ¥¡¥¤¥ë¤¬¤¢¤Ã¤¿¾ì¹ç¤Ë¤Ï¤½¤Î¥Õ¥¡¥¤¥ë¤Ïºï½ü¤µ¤ì¤Þ¤¹¡£¥é¥ó¥À¥àÆþ½ÐÎϥ⡼¥É¤Ç¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Ê¤¤¾ì¹ç¤Ë¤Ï¿·¤¿¤Ëºî¤é¤ì¤Þ¤¹¡£<¥ì¥³¡¼¥ÉĹ>¤Ï¡¢¥é¥ó¥À¥àÆþ½ÐÎϥ⡼¥É¤Ç¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó¤·¤¿¤È¤­¤Î¡¢¥ì¥³¡¼¥ÉŤòÀßÄꤹ¤ë¤â¤Î¤Ç¤¹¡£¤³¤ì¤Ï1¤«¤é256¤ÎÈϰϤǡ¢¾Êά¤·¤¿¾ì¹ç¤Ï256¤ËÀßÄꤵ¤ì¤Þ¤¹¡£¥·¡¼¥±¥ó¥·¥ã¥ëÆþÎÏ¡¢¤¢¤ë¤¤¤Ï¥é¥ó¥À¥àÆþ½ÐÎϥ⡼¥É¤ò»ØÄꤹ¤ë¾ì¹ç¤Ë¤Ï¡¢1¤Ä¤Î¥Õ¥¡¥¤¥ë¤òÊ£¿ô¤ÎOPENʸ¤Ë¤è¤ê³«¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¾ì¹ç¡¢°Û¤Ê¤ë¥Õ¥¡¥¤¥ëÈÖ¹æ¤Ë¤è¤ê»ØÄꤹ¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¤¬¡¢¥·¡¼¥±¥ó¥·¥ã¥ë½ÐÎϥ⡼¥É¤ò»ØÄꤹ¤ë¾ì¹ç¤Ë¤Ï¡¢1¤Ä¤Î¥Õ¥¡¥¤¥ë¤òÊ£¿ô¤ÎOPENʸ¤Ë¤è¤ê³«¤¯¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£ '''¢£¥Õ¥¡¥¤¥ë¤Î»ØÄê''' OPEN¤Ë³¤¯<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤òÁàºî¤¹¤ë¾ì½ê¤È¥Õ¥¡¥¤¥ë̾¤ò»ØÄꤷ¤Þ¤¹¡£¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë°Ê³°¤Ç¤Ï¼¡¤Î7¤Ä¤¬¤¢¤ê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:260},{BSIZE:0} ,,¥«¥»¥Ã¥È¥ì¥³¡¼¥À,¡ÈCAS:¥Õ¥¡¥¤¥ë̾(6ʸ»ú°ÊÆâ)¡É¤È»ØÄꤹ¤ë ,,¥á¥â¥ê¥Ç¥£¥¹¥¯ ,¡ÈMEM:¥Õ¥¡¥¤¥ë̾¡É¤È»ØÄꤹ¤ë ,,¥Ç¥£¥¹¥×¥ì¥¤¤Î¥Æ¥­¥¹¥È²èÌÌ,¡ÈCRT:¡É¤È»ØÄꤹ¤ë ,,¥Ç¥£¥¹¥×¥ì¥¤¤Î¥°¥é¥Õ¥£¥Ã¥¯²èÌÌ,¡ÈGRP:¡É¤È»ØÄꤹ¤ë ,,¥×¥ê¥ó¥¿,¡ÈLPT:¡É¤È»ØÄꤹ¤ë ,,¥³¥ó¥½¡¼¥ë¥Ç¥Ð¥¤¥¹,¡ÈCON:¡É¤È»ØÄꤹ¤ë ,,¥Ì¥ë¥Ç¥Ð¥¤¥¹,¡ÈNUL:¡É¤È»ØÄꤹ¤ë ¥³¥ó¥½¡¼¥ë¥Ç¥Ð¥¤¥¹¤Ï¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÆɤ߹þ¤ß¡¢²èÌ̤ؤνñ¤­¹þ¤ß¤Ë»ÈÍѤ·¤Þ¤¹¡£Î㤨¤Ð¡¢ '''COPY "TEST.DOC" TO "CON"''' ¤È¤¹¤ë¤È¡¢TEST.DOC¤ÎÆâÍƤò²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ ¥Ì¥ë¥Ç¥Ð¥¤¥¹¤Ï¼ÂºÝ¤Ë¤Ï²¿¤â¤·¤Þ¤»¤ó¡£½ÐÎÏʸ»ú¤Ï̵»ë¤µ¤ì¡¢ÆþÎϤϾï¤Ë¥¨¥ó¥É¥ª¥Ö¥Õ¥¡¥¤¥ë([CTRL]+[Z])¤È¤Ê¤ê¤Þ¤¹¡£ ¥Õ¥¡¥¤¥ë̾¤¬É¬ÍפʤΤϡ¢¥Ç¥£¥¹¥¯¥Õ¥¡¥¤¥ë¤ª¤è¤Ó¡¢CAS:¤äMEM:¤À¤±¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLOSE,CLOSE}}¡¢{{# INPUT#,INPUT#}}¡¢{{# PRINT#,PRINT#}}¡¢{{# MAXFILES,MAXFILES}}¡¢{{# INPUT$,INPUT$}}¡¢{{# EOF,EOF}} ---- !OUT {{anchor OUT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿½ÐÎϥݡ¼¥È¤Ë¥Ç¡¼¥¿¤òÁ÷¤ê¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} OUT<¥Ý¡¼¥ÈÈÖ¹æ>,<¼°> ,ʸ¡¡Îã{SIZE:100|CENTER} OUT &H22,&H80 ,²ò¡¡Àâ{SIZE:100|CENTER} &H22¤Î¥Ý¡¼¥ÈÈÖ¹æ¤Ç»ØÄꤵ¤ì¤¿½ÐÎϥݡ¼¥È¤Ø¡¢&H80¤È¤¤¤¦¥Ç¡¼¥¿¤òÁ÷¤ê¤Þ¤¹¡£¥Ý¡¼¥ÈÈÖ¹æ¤Ë´Ø¤·¤Æ¤Ï¡¢I/O¥Þ¥Ã¥×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ OUT¤Ï¡¢¥Ï¡¼¥É¥¦¥§¥¢¤ÈÈó¾ï¤ËÌ©Ã夷¤¿Ì¿Îá¤Ç¡¢³Æ¡¹¤ÎMSX¤Ç°Û¤Ê¤ëÆ°ºî¤ò¤¹¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£MSX¤Î¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤¿¤á¡¢¹­¤¯¸øɽ¤¹¤ë¥×¥í¥°¥é¥à¤Ë¤Ï»ÈÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# INP,INP}} ---- !PAD {{anchor PAD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¿¥Ã¥Á¥Ñ¥Í¥ë¤Î¾õÂÖ¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PAD(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} X=PAD(1) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¿¥Ã¥Á¥Ñ¥Í¥ë¤¬²¡¤µ¤ì¤Æ¤¤¤¿¤é¡¢¤½¤ÎÅÀ¤ÎXºÂɸ¤òÊÑ¿ôX¤ËÂåÆþ¤·¤Þ¤¹¡£ PAD¤Ë³¤¯¥«¥Ã¥³Æâ¤Ë¤Ï¡¢0¤«¤é19¤Þ¤ÇÃͤ¬Æþ¤ê¤Þ¤¹¡£PADÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¤È¡¢»ØÄê¤Ë¤è¤Ã¤Æ¡¢°Ê²¼¤Î·ë²Ì¤¬ÊÖ¤µ¤ì¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:100},{BSIZE:1 0|SIZE:450},{BSIZE:1 0} ,¿ôÃÍ,°ÕÌ£,½Ð¤µ¤ì¤ëÃÍ ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,0¡¢4,¥¿¥Ö¥ì¥Ã¥È¤Î¥Ç¡¼¥¿¤¬Í­¸ú¤«¤É¤¦¤«¤òÄ´¤Ù¤ë ,Í­¸ú=-1 , , ,̵¸ú=0 ,1¡¢5,¥¿¥Ö¥ì¥Ã¥È¤¬²¡¤µ¤ì¤Æ¤¤¤ëÅÀ¤ÎXºÂɸ¤òÄ´¤Ù¤ë ,XºÂɸ ,2¡¢6,¥¿¥Ö¥ì¥Ã¥È¤¬²¡¤µ¤ì¤Æ¤¤¤ëÅÀ¤ÎYºÂɸ¤òÄ´¤Ù¤ë ,YºÂɸ ,3¡¢7,¥¿¥Ö¥ì¥Ã¥È¾å¤Î¥¹¥¤¥Ã¥Á¤¬²¡¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë ,²¡¤µ¤ì¤Æ¤¤¤ë=-1 , , ,²¡¤µ¤ì¤Æ¤¤¤Ê¤¤=0 ,*8 ,¥é¥¤¥È¥Ú¥ó¤Î¥Ç¡¼¥¿¤¬Í­¸ú¤«¤É¤¦¤«¤òÄ´¤Ù¤ë ,Í­¸ú=-1 , , ,̵¸ú=0 ,*9 ,¥é¥¤¥È¥Ú¥ó¤ÎXºÂɸ¤òÄ´¤Ù¤ë ,XºÂɸ ,*10 ,¥é¥¤¥È¥Ú¥ó¤ÎYºÂɸ¤òÄ´¤Ù¤ë ,YºÂɸ ,*11 ,¥é¥¤¥È¥Ú¥ó¤Î¥¹¥¤¥Ã¥Á¤¬²¡¤µ¤ì¤Æ¤¤¤ë¤«¤É¤¦¤«¤òÄ´¤Ù¤ë ,²¡¤µ¤ì¤Æ¤¤¤ë=-1 , , ,²¡¤µ¤ì¤Æ¤¤¤Ê¤¤=0 ,*12¡¢*16,¥Þ¥¦¥¹¤Þ¤¿¤Ï¥È¥é¥Ã¥¯¥Ü¡¼¥ë¤Î¥Ç¡¼¥¿¤òÍ¿¤¨¤ë ,¾ï¤Ë-1 ,*13¡¢*17,¥Þ¥¦¥¹¤Þ¤¿¤Ï¥È¥é¥Ã¥¯¥Ü¡¼¥ë¤ÎXºÂɸ¤òÄ´¤Ù¤ë ,XºÂɸ ,*14¡¢*18,¥Þ¥¦¥¹¤Þ¤¿¤Ï¥È¥é¥Ã¥¯¥Ü¡¼¥ë¤ÎYºÂɸ¤òÄ´¤Ù¤ë ,YºÂɸ ,*15¡¢*19,¥Þ¥¦¥¹¤Þ¤¿¤Ï¥È¥é¥Ã¥¯¥Ü¡¼¥ë¤Î¥Ç¡¼¥¿¤òÍ¿¤¨¤ë ,¾ï¤Ë0 ,Ãí°Õ{SIZE:100|CENTER} 0¡Á3¤Þ¤¿¤Ï12¡Á15¤Ï¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿ÁõÃÖ¤ò¡¢4¡Á7¤Þ¤¿¤Ï16¡Á19¤Ï¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿ÁõÃÖ¤òÄ´¤Ù¤Þ¤¹¡£¤¿¤À¤·¡¢*¤Î¤Ä¤¤¤¿ÁõÃÖ(8¡Á19)¤ÏMSX BASIC ver 2.0°Ê¹ß¤ÇÍ­¸ú¤Ç¤¹¡£ ¤É¤Î¼þÊÕÁõÃÖ¤âºÂɸ¤òÄ´¤Ù¤ëÁ°¤Ë¤Ï¤½¤Î¥Ç¡¼¥¿¤¬Í­¸ú¤«¤É¤¦¤«¤ò³Îǧ¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤½¤ì¤¾¤ìPAD(0)¤Þ¤¿¤Ï(4)¡¢PAD(8)¡¢PAD(12)¤Þ¤¿¤ÏPAD(16)¤ò¼Â¹Ô¤·¤Æ¡¢¤½¤ÎÃͤ¬-1¤Ç¤¢¤Ã¤¿¤é¾¤Î¥Ç¡¼¥¿¤òÄ´¤Ù¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# STRIG,STRIG}}¡¢{{# PDL,PDL}} ---- !PAINT {{anchor PAINT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤Ρ¢»ØÄꤵ¤ì¤¿¶­³¦¿§¤Ç¤«¤³¤Þ¤ì¤¿Éôʬ¤ò»ØÄꤵ¤ì¤¿¿§¤ÇÅɤê¤Ä¤Ö¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PAINT[STEP](X,Y)[,<Îΰ迧>][,<¶­³¦¿§>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 3 20 CIRCLE(128,96),50,11 30 PAINT(128,96),6,11 40 GOTO 40 ,²ò¡¡Àâ{SIZE:100|CENTER} (128,96)¤òÃæ¿´ÅÀ¤Ë¤·¤Æ¡¢²«¿§¤Ç½ñ¤«¤ì¤¿±ß¤ÎÃæ¤òÀÖ¤ÇÅɤê¤Þ¤¹¡£ PAINT¤Î»ØÄê¤Ï¼¡¤Î·Á¤Ç¹Ô¤¤¤Þ¤¹¡£ '''PAINT(X,Y)¡¢Îΰ迧¡¢¶­³¦¿§''' PAINT¤Ï(X,Y)¤Ç»ØÄꤷ¤¿°ÌÃÖ¤ò´Þ¤à¶­³¦¿§¤Ç°Ï¤Þ¤ì¤¿Îΰè¤ò¡¢Îΰ迧¤ÇÅɤê¤Ä¤Ö¤·¤Þ¤¹¡£¿§¤Î»ØÄê¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ (X,Y)¤Î»ØÄê¤ÏSTEP¤ò»È¤Ã¤Æ¹Ô¤¦¤³¤È¤â¤Ç¤­¤Þ¤¹¡£STEP¤Ë¤Ä¤¤¤Æ¤Ï¡¢LINE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ¶­³¦¿§¤ÏSCREEN 3¤ª¤è¤Ó5°Ê¾å¤Ç¤À¤±»È¤¨¤Þ¤¹¡£SCREEN 2¤ä4¤Ç¤Ï¡¢Îΰ迧¤ÈƱ¤¸¿§¤Ç°Ï¤Þ¤ì¤¿Îΰ褬¡¢Îΰ迧¤Ç»ØÄꤷ¤¿¿§¤ÇÅɤé¤ì¤Þ¤¹¡£Î㤨¤Ð¡¢¾å¤ÎÎã¤òSCREEN 2¤Ç¹Ô¤¦¤È¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ 10 SCREEN 2 20 CIRCLE(128,96),50,11 30 PAINT(128,96),11 40 GOTO 40 Îΰ迧¤Î»ØÄê¤ò¾Êά¤¹¤ë¤È¡¢COLOR¤Ç»ØÄꤷ¤Æ¤¤¤ëÁ°·Ê¿§¤¬»È¤ï¤ì¤Þ¤¹¡£¶­³¦¿§¤Î»ØÄê¤ò¾Êά¤¹¤ë¤È¡¢Îΰ迧¤Ç»ØÄꤷ¤¿¤â¤Î¤ÈƱ¤¸¿§¤¬»È¤ï¤ì¤Þ¤¹¡£PAINT¤ò¼Â¹Ô¤·¤¿¤È¤­¤Ë¡¢»ØÄꤷ¤¿¶­³¦¿§(SCREEN 2¤Î¾ì¹ç¤Ë¤ÏÎΰ迧)¤Ç°Ï¤Þ¤ì¤¿Îΰ褬¤Ê¤¤¤È¡¢²èÌÌ°ìÌ̤¬»ØÄꤷ¤¿Îΰ迧¤ÇÅɤê¤Ä¤Ö¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SCREEN,SCREEN}}¡¢{{# COLOR,COLOR}} ---- !PDL {{anchor PDL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Ñ¥É¥ë¤Î¾õÂÖ¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PDL(<¥Ñ¥É¥ëÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} X=PDL(2) ,²ò¡¡Àâ{SIZE:100|CENTER} Îã¤Ç¤Ï¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥Ñ¥É¥ë¤Î¾õÂÖ¤òÄ´¤Ù¡¢¤½¤Î·ë²Ì¤òÊÑ¿ôX¤ËÂåÆþ¤·¤Þ¤¹¡£ PDL¤Ë³¤¯¥«¥Ã¥³Æâ¤Ë¤Ï¡¢1¤«¤é12¤Þ¤Ç¤ÎÃͤ¬Æþ¤ê¤Þ¤¹¡£¿ôÃͤ¬´ñ¿ô(1¡¢3¡¢5¡¢7¡¢9¡¢11)¤Ê¤é¤Ð¡¢¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥Ñ¥É¥ë¤¬»ØÄꤵ¤ì¡¢¶ö¿ô(2¡¢4¡¢6¡¢8¡¢10¡¢12)¤Ê¤é¤Ð¡¢¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥Ñ¥É¥ë¤¬»ØÄꤵ¤ì¤Þ¤¹¡£ PDLÌ¿Îá¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥Ñ¥É¥ë¤Î¾õÂÖ¤¬¤½¤Î²óž¤ÎÅٹ礤¤Ë¤è¤Ã¤Æ¡¢0¡Á255¤Î´Ö¤ÎÃͤÇÆÀ¤é¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# PAD,PAD}}¡¢{{# STRIG,STRIG}} ---- !PEEK {{anchor PEEK}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Ë»ØÄꤵ¤ì¤¿ÈÖÃϤÎÆâÍƤòÆɤ߽Ф·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PEEK(<ÈÖÃÏ>) ,ʸ¡¡Îã{SIZE:100|CENTER} A=PEEK(&HA000) ,²ò¡¡Àâ{SIZE:100|CENTER} Îã¤Ç¤Ï¥«¥Ã¥³Æâ¤Ç»ØÄꤵ¤ì¤¿ÈÖÃÏ(&HA000)¤Î¥á¥â¥ê¤ÎÆâÍƤ¬¡¢¿ôÃͤȤ·¤ÆA¤ËÂåÆþ¤µ¤ì¤Þ¤¹¡£Æɤ߹þ¤ßÈÖÃϤϡ¢-32768¡Á65535¤ÎÈϰϤοôÃͤǻØÄꤷ¤Þ¤¹(¿ôÃͤ¬Éé¤Î¾ì¹ç¤Ï¡¢¤½¤ÎÃͤË65536¤ò²Ã¤¨¤ì¤Ð¼ÂºÝ¤ÎÈÖÃϤòÃΤ뤳¤È¤¬¤Ç¤­¤Þ¤¹)¡£Æɤ߹þ¤Þ¤ì¤ë¥Ç¡¼¥¿¤Ï¡¢0¡Á255¤ÎÃͤò»ý¤Ä¿ôÃͤǤ¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# POKE,POKE}}¡¢¥á¥â¥ê¥Þ¥Ã¥× ---- !PLAY ­¡ {{anchor PLAY ­¡}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ²»³Ú¤ò±éÁÕ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PLAY<ʸ»ú¼°1>[,<ʸ»ú¼°2>][,<ʸ»ú¼°3>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PLAY "O4L4T180V8" 20 PLAY "GAGAGGE2" 30 PLAY "EFEFEECR" 40 PLAY "E2CDE2CD" 50 PLAY "EFGGDEDR" 60 PLAY "GAGAGGE2" 70 PLAY "EFEFEECR" 80 PLAY "A2GEGGEC" 90 PLAY "EEDDC2" ,²ò¡¡Àâ{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿µ­¹æ¤Ë¤·¤¿¤¬¤Ã¤Æ¡¢²»³Ú¤ò±éÁÕ¤·¤Þ¤¹¡£10¹Ô¤Ç¤Ï¡¢±éÁդΤ¿¤á¤Î¥Æ¥ó¥Ý(¤Ï¤ä¤µ)¤ä²»ÎÌ¡¢²»³¬¤Î²»°è¤Ê¤É¤ò»ØÄꤷ¤Æ¤¤¤Þ¤¹¡£ ʸ»ú¼°¤Ï¡¢²»³Ú¤ò±éÁÕ¤¹¤ë¤¿¤á¤Îµ­¹æ¤òÁȤ߹ç¤ï¤»¤¿¤â¤Î¤Ç°úÍÑÉä¤Ç°Ï¤ß¤Þ¤¹¡£Ê¸»úÊÑ¿ô¤Ç»ØÄꤹ¤ë¤È¤­¤Ï¡¢¤½¤Îʸ»úÊÑ¿ô¤Ë±éÁÕÍѤε­¹æ¤òÂåÆþ¤·¤Æ¤ª¤­¤Þ¤¹("Xʸ»úÊÑ¿ô;")¤È»ØÄꤷ¤Æ¤â¡¢Ã±¤Ëʸ»úÊÑ¿ô¤À¤±¤ò»ØÄꤷ¤Æ¤â¡¢·ë²Ì¤ÏÊѤï¤ê¤Þ¤»¤ó)¡£µ­¹æ¤Ë¤Ï²»¤Î¹â¤µ¡¢²»¤ÎŤµ¡¢Â®¤µ(¥Æ¥ó¥Ý)¡¢²»¤ÎÂ礭¤µ¡¢²»¿§¤Î»ØÄê¤Î5¼ïÎब¤¢¤ê¤Þ¤¹¡£ PLAY¤Ç¤Ï¡¢3¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤ò»È¤¦¤³¤È¤¬¤Ç¤­¡¢ºÇÂç3½Åϲ»¤Þ¤Ç½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Ê¸»ú¼°1¡¢Ê¸»ú¼°2¡¢Ê¸»ú¼°3¤Ï¤½¤ì¤¾¤ì¥Á¥ã¥ó¥Í¥ë1¡¢2¡¢3¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹¡£Ê¸»ú¼°¤Ë²¿¤â»ØÄꤷ¤Ê¤±¤ì¤Ð¡¢¤½¤Î¥Á¥ã¥ó¥Í¥ë¤«¤é¤Ï²»¤¬¤Ç¤Þ¤»¤ó¡£ °Ê²¼¤Ç¡¢³Æµ­¹æ¤Ë¤Ä¤¤¤Æ¤Î²òÀâ¤ò¹Ô¤¤¤Þ¤¹¡£ ,Îã{SIZE:100|CENTER} '''PLAY "C","E","G"''' '''¢£²»¤Î¹â¤µ''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100|TOP},{BSIZE:0|TOP} ,A¡ÁG,"²»¤Î¹â¤µ¤ò²»³¬Ì¾¤Çɽ¸½¤¹¤ë¡£A¡ÁG¤Î¸å¤í¤Ë#¡¢+¤ò¤Ä¤±¤ë¤ÈȾ²»¾å¤¬¤ê¡¢-¤òÉÕ¤±¤ë¤ÈȾ²»²¼¤¬¤ë¡£" ,O1¡Á8,²»³¬¤Î²»°è¤ò1¡Á8¤Î¿ôÃͤǻØÄꤹ¤ë¡£½é´üÃͤÏO4¡£Î㤨¤Ð¡¢O5¤ÏO4¤è¤ê1¥ª¥¯¥¿¡¼¥Ö¾å¤Î²»³¬¤ò»Ø¤¹¡£ ,N0¡Á96,²»¤Î¹â¤µ¤ò0¡Á96¤Î¿ôÃͤÇɽ¸½¤¹¤ë¡£N1¤ÏO1¤ÎC#¤ÈƱ¤¸¹â¤µ¡¢N96¤ÏO8¤ÎB¤ÈƱ¤¸¡£N0¤ÏR(µÙÉä)¤ÈƱ¤¸¡£ {{svg ¿Þ2.13.svg}} '''¿Þ2.13 ²»¤Î¹â¤µ''' ,Îã{SIZE:100|CENTER} '''PLAY "CDE"''' '''PLAY "O3CDEO4CDEO5CDE"''' '''PLAY "N36N38N40"''' '''¢£²»¤ÎŤµ''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100|TOP},{BSIZE:0|TOP} ,L1¡Á64,²»¤ÎŤµ¤ò1/¿ôÃͲ»¤Ë¤¹¤ë¡£L1¤ÏÁ´²»Éä(4Çï)¡¢L2¤Ï2ʬ²»Éä(2Çï)¡¢L64¤Ï64ʬ²»Éä(1/16Çï)¡£1²»¤À¤±Ä¹¤µ¤òÊѤ¨¤ë¤È¤­¤Ï¡¢²»³¬Ì¾¤Î¤¦¤·¤í¤Ë¿ôÃͤÀ¤±¤ò¤Ä¤±¤ë¡£ ,.(¥Ô¥ê¥ª¥É),²»³¬Ì¾¡¢µÙÉä¤Î¸å¤í¤ËÉÕ¤±¤Æ²»¤ÎŤµ¤ò1.5Çܤ¹¤ë¡£ ,R¿ôÃÍ,µÙÉä¤ò»ØÄꤹ¤ë¡£¿ôÃͤλØÄê¤ÎÊýË¡¤Ï¡¢L¤Î¤È¤­¤ÈƱ¤¸¡£¿ôÃͤò¾Êά¤¹¤ë¤ÈR4¤È¤ß¤Ê¤µ¤ì¤ë¡£ ,Îã{SIZE:100|CENTER} '''PLAY "L2CEGL4CEGL8CEG"''' '''PLAY "L4CEGCE8G"''' '''PLAY "L4CD.E..F..."''' '''PLAY "CR4DR2E"''' '''¢£Â®¤µ(¥Æ¥ó¥Ý)''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100|TOP},{BSIZE:0|TOP} ,T32¡Á255,¥Æ¥ó¥Ý¤ò»ØÄꤹ¤ë¡£¿ôÃͤÇ1ʬ´Ö¤Ë±éÁÕ¤¹¤ë4ʬ²»Éä¤Î¿ô¤ò»ØÄꤹ¤ë¡£½é´üÃͤÏT120 ,Îã{SIZE:100|CENTER} '''PLAY "T64CEGT128CEG"''' '''¢£²»¤ÎÂ礭¤µ''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100|TOP},{BSIZE:0|TOP} ,V0¡Á15,²»Î̤ò»ØÄꤹ¤ë¡£¿ô¤¬Â礭¤¤¤Û¤É²»¤âÂ礭¤¯¤Ê¤ë¡£ ,Îã{SIZE:100|CENTER} '''PLAY "V2CV4DV6EV8FV10G"''' '''¢£²»¿§''' ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100|TOP},{BSIZE:0|TOP} ,S0¡Á15,²»ÎÌÊѲ½¤ÎÇȤò»ØÄꤹ¤ë¡£V¤È¤Ï°ì½ï¤Ë»ØÄê¤Ç¤­¤Ê¤¤¡£¿ôÃͤËÂбþ¤¹¤ëÇÈ·Á¤Ï¼¡¤Î¿Þ¤ÎÄ̤ꡣ {{svg ¿Þ2.14.svg}} '''¿Þ2.14 ¥¨¥ó¥Ù¥í¡¼¥×·Á¾õ''' ,Îã{SIZE:100|CENTER} 10 FOR J=8 TO 14 20 PLAY "S=J;M1000CDE" 30 NEXT M1¡Á65535 ²»ÎÌÊѲ½¤ÎÇȤμþ´ü¤ò»ØÄꤹ¤ë¡£ {{svg ¿Þ2.15.svg}} '''¿Þ2.15 ¥¨¥ó¥Ù¥í¡¼¥×¼þ´ü''' ,Îã{SIZE:100|CENTER} 10 FOR J=100 TO 3000 STEP 100 20 PLAY "S8M=J;CDE" 30 NEXT O¡¢L¡¢T¡¢V¤Î»ØÄê¤Ï¡¢¼¡¤ËÊ̤ÎÃͤǻØÄ꤬¹Ô¤ï¤ì¤ë¤Þ¤ÇÍ­¸ú¤Ç¤¹¡£¤Þ¤¿V¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¥Á¥ã¥ó¥Í¥ë¤ÎS¤äM¤Î»ØÄê¤Ï¥­¥ã¥ó¥»¥ë¤µ¤ì¤Þ¤¹¡£ '''¢£¿ôÃÍ»ØÄê¤Ç¤Î»ØÄê''' ¤Ê¤ª¡¢¼¡¤Î·Á¼°¤Ç¿ôÃÍÊÑ¿ô¤â»ØÄê¤Ç¤­¤Þ¤¹¡£ <µ­¹æ>=¿ôÃÍÊÑ¿ô; ,Îã{SIZE:100|CENTER} 10 FOR J=1 TO 64 20 PLAY "L=J;CDE" 30 NEXT '''ɽ2.11 ¥Þ¥¯¥í°ìÍ÷''' ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:60|TOP},{BSIZE:1 0|SIZE:80|TOP},{BSIZE:1 0|SIZE:100|TOP},{BSIZE:1 0|SIZE:400|TOP},{BSIZE:1 0|SIZE:120|TOP} , ,µ­¹æ ,°Õ¡¡Ì£ ,È÷¡¡¹Í,Îã ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,²»Äø,A¡ÁG ,¥é¡Á¥½ ,²»³¬Ì¾ ,PLAY"CDE" , ,#¡¢+ ,¥·¥ã¡¼¥× ,Ⱦ²»¾å¤²¤ë,PLAY"CD#" , ,- ,¥Õ¥é¥Ã¥È ,Ⱦ²»²¼¤²¤ë,PLAY"CD-" , ,O¿ôÃÍ,¥ª¥¯¥¿¡¼¥Ö,²»°è»ØÄê¡£ÈϰϤÏ1¡Á8(¾ÊάÃÍ4),PLAY"O5C" , ,N¿ôÃÍ,²»Äø ,¤¹¤¦¤Á¤ÎÈϰϤÏ0¡Á96¤ÇȾ²»¤º¤Ä¾å¤¬¤ë¡£0¤ÏµÙÉä,PLAY"N36" ,²»Ä¹,L¿ôÃÍ,²»ÉäĹ ,ÈϰϤÏ1¡Á64(¾ÊάÃÍ4)¡£ºÆ»ØÄê¤Þ¤Ç¤Î²»ÉäĹ,PLAY"L4C" , ,¿ôÃÍ ,²»ÉäĹ ,²»Éä¤Î¸å¤Î¿ôÃͤϡ¢¤½¤Î²»¤ÎŤµ¤À¤±»ØÄê,PLAY"C32" , ,. ,ÉäÅÀ ,A¡ÁG¡¢N¡¢R¤Î¸å¤ËÉÕ¤±¤ÆŤµ¤ò1.5Çܤ¹¤ë,PLAY"C4." , ,R¿ôÃÍ,µÙÉäĹ ,L¤ÈƱ¤¸»ØÄê¤À¤¬µÙÉä¤ÏÊ̤˴ÉÍý¤µ¤ì¤ë,PLAY"CR8" ,®¤µ,T¿ôÃÍ,¥Æ¥ó¥Ý ,ÈϰϤÏ32¡Á255(¾ÊάÃÍ120) ,PLAY"T64" ,²»ÎÌ,V¿ôÃÍ,²»ÎÌ ,ÈϰϤÏ0¡Á15 ,PLAY"V8C" ,²»¿§,S¿ôÃÍ,ÇÈ·Á ,ÈϰϤÏ0¡Á15¡£V¤È°ì½ï¤Ë¤Ï»ØÄê¤Ç¤­¤Ê¤¤ ,PLAY"S10" , ,M¿ôÃÍ,¼þÇÈ¿ô ,ÈϰϤÏ1¡Á65535¡£S¤È¤È¤â¤ËÍѤ¤¤ë ,PLAY"M10" ---- !PLAY ­¢ {{anchor PLAY ­¢}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ²»³Ú¤ò±éÁÕÃ椫¤É¤¦¤«¤òÄ´¤Ù¤ë´Ø¿ô¤Ç¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PLAY(<¥Ü¥¤¥¹¥Á¥ã¥ó¥Í¥ëÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="O4L4T120V4" 20 PLAY A$,A$,A$ 30 PLAY "C","E","G" 40 PLAY "C","F","A" 50 PLAY "B","A","G" 60 IF PLAY(0)=0 THEN 30 70 GOTO 60 ,²ò¡¡Àâ{SIZE:100|CENTER} PLAY(¿ôÃÍ)¤Ï¡¢³Æ¥Á¥ã¥ó¥Í¥ë¤Ç¡¢»ØÄꤷ¤¿²»³Ú¤ò±éÁÕÃ椫¤É¤¦¤«¤òÄ´¤Ù¤Þ¤¹¡£±éÁÕÃæ¤Ç¤¢¤ë¤È-1¡¢¤½¤¦¤Ç¤Ê¤±¤ì¤Ð0¤¬Í¿¤¨¤é¤ì¤Þ¤¹¡£ ¾å¤Î¥×¥í¥°¥é¥à¤Ï¤Þ¤º10¹Ô¤Ç²»³¬¤Î²»°è¡¢²»¤ÎŤµ¤Ê¤É¤ÎÀßÄê¤ò¹Ô¤Ã¤Æ20¹Ô¤Ç¤½¤ì¤ò3¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤Ç¼Â¹Ô¤µ¤»¤Æ¤¤¤Þ¤¹¡£30¹Ô¤«¤é50¹Ô¤Ç²»¤ò½Ð¤·¡¢60¹Ô¤Ç±éÁÕ¤¬½ª¤ï¤Ã¤¿¤«¤É¤¦¤«¤òÄ´¤Ù¤Æ¡¢½ª¤ï¤Ã¤Æ¤¤¤¿¤é30¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£70¹Ô¤Ç60¹Ô¤Ë¥¸¥ã¥ó¥×¤·¤Æ¤¤¤ë¤Î¤Ï¡¢PLAY¤ÎÃͤ¬0¤Ë¤Ê¤ë¤Î¤òÂԤĤ¿¤á¤Ç¤¹¡£¥×¥í¥°¥é¥à¤Ç¤Ï¡¢50¹Ô¤Ë³¤¤¤Æ60¹Ô¤¬¤¹¤°¼Â¹Ô¤µ¤ì¤ë¤Î¤Ç¤¹¤¬¡¢±éÁդϳ¤¤¤Æ¤¤¤ë¤Î¤Ç¡¢1ÅÙ¤À¤±60¹Ô¤ÇÄ´¤Ù¤Æ¤âPLAY¤ÎÃͤÏ-1¤Ç¡¢30¹Ô¤Ø¤Î¥¸¥ã¥ó¥×¤¬¹Ô¤ï¤ì¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤«¤é¤Ç¤¹¡£ PLAY¤Î»ØÄê¤Ï¼¡¤Î·Á¤Ç¹Ô¤¤¤Þ¤¹¡£ PLAY(¥Á¥ã¥ó¥Í¥ë) ¥Á¥ã¥ó¥Í¥ë¤Ï0¡Á3¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:50},{BSIZE:0} ,,0,¥Á¥ã¥ó¥Í¥ë1¡¢2¡¢3(¤É¤ì¤«¤¬±éÁÕÃæ¤Ç¤¢¤ì¤Ð-1¤È¤Ê¤ë) ,,1,¥Á¥ã¥ó¥Í¥ë1 ,,2,¥Á¥ã¥ó¥Í¥ë2 ,,3,¥Á¥ã¥ó¥Í¥ë3 ---- !POINT {{anchor POINT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̾å¤Î»ØÄꤷ¤¿ÅÀ¤Î¿§¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} POINT(X,Y) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 R=RND(-TIME) 20 C=INT(RND(1)*15+1) 30 COLOR ,C,C 40 SCREEN 2 50 A=POINT(128,96) 60 SCREEN 1 70 PRINT A 80 END ,²ò¡¡Àâ{SIZE:100|CENTER} POINT¤Ï¡¢»ØÄꤷ¤¿ºÂɸ¤Î¿§¤òÄ´¤Ù¤Æ¡¢¥«¥é¡¼ÈÖ¹æ¤ÇÊÖ¤·¤Þ¤¹¡£¤¿¤À¤·¡¢¥¹¥×¥é¥¤¥È¤Î¿§¤ÏÄ´¤Ù¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£ ¾å¤Î¥×¥í¥°¥é¥à¤ÏÍð¿ô¤ò»È¤Ã¤Æ²èÌ̤理òÊѤ¨¡¢50¹Ô¤Ç¤½¤Î¿§¤òÄ´¤Ù¤Æ¤¤¤Þ¤¹¡£¤½¤Î¤¢¤È60¹Ô¤Ç²èÌ̤òÀÚ¤êÂؤ¨¡¢70¹Ô¤Ç¥«¥é¡¼ÈÖ¹æ¤òɽ¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}} ---- !POKE {{anchor POKE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¾å¤Î»ØÄꤵ¤ì¤¿ÈÖÃϤ˥ǡ¼¥¿¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} POKE<ÈÖÃÏ>,<¥Ç¡¼¥¿> ,ʸ¡¡Îã{SIZE:100|CENTER} POKE &HA000,57 ,²ò¡¡Àâ{SIZE:100|CENTER} ½ñ¤­¹þ¤ßÈÖÃϤϡ¢-32768¡Á65535¤ÎÈϰϤοôÃͤǻØÄꤷ¤Þ¤¹(¿ôÃͤ¬Éé¿ô¤Î¾ì¹ç¤Ï¡¢¤½¤ÎÃͤË65536¤ò²Ã¤¨¤ì¤Ð¼ÂºÝ¤ÎÈÖÃϤòÃΤ뤳¤È¤¬¤Ç¤­¤Þ¤¹)¡£½ñ¤­¹þ¤à¥Ç¡¼¥¿¤Ï¡¢0¡Á255¤ÎÃͤò»ý¤Ä¿ôÃͤǤ¹¡£ ¤³¤ÎÌ¿Îá¤Ï¡¢¸½ºß¤Î¥á¥â¥êÆâÍƤò½ñ¤­¤«¤¨¤Æ¤·¤Þ¤¦¤¿¤á¡¢ÉÔÍѰդ˻Ȥ¦¤È¥¨¥é¡¼¤ä¥·¥¹¥Æ¥à¤Î˽Áö¤Î¸¶°ø¤Ë¤Ê¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£»È¤¦¤È¤­¤Ë¤Ï¡¢¥á¥â¥ê¥Þ¥Ã¥×¤Ê¤É¤Ç»ÈÍѤǤ­¤ëÎΰ褫¤É¤¦¤«¤ò³Îǧ¤·¤Æ¤¯¤À¤µ¤¤¡£ ¾å¤ÎÎã¤Ç¤Ï¡¢¥á¥â¥ê¾å¤Î&HA000ÈÖÃϤË57¤È¤¤¤¦¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CLEAR,CLEAR}}¡¢{{# PEEK,PEEK}}¡¢¥á¥â¥ê¥Þ¥Ã¥× ---- !POS {{anchor POS}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Æ¥­¥¹¥È²èÌ̾å¤Î¥«¡¼¥½¥ë¤Î¿åÊ¿°ÌÃÖ¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} POS(<¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 FOR I=10 TO 99 20 A=POS(0) 30 IF A>12 THEN PRINT 40 PRINT I; 50 NEXT ,²ò¡¡Àâ{SIZE:100|CENTER} POS¤Ï¥«¡¼¥½¥ë¤¬º¸¤«¤é²¿·åÌܤˤ¢¤ë¤«¤ò¡¢°ìÈÖº¸¤Î°ÌÃÖ¤ò0¤È¤·¤¿ÃͤÇÄ´¤Ù¤Þ¤¹¡£°ú¤­¿ô¤Ï²¾¤Î¤â¤Î¤Ê¤Î¤Ç¡¢¤É¤ó¤Ê¿ôÃͤǤ⤫¤Þ¤¤¤Þ¤»¤ó¡£POS¤Ï¡¢¥Æ¥­¥¹¥È²èÌ̤ǤΤ߻Ȥ¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ¾å¤Î¥×¥í¥°¥é¥à¤Ï¡¢Ã±¤Ë10¤«¤é99¤Þ¤Ç¤ÎÃͤò²èÌ̤Ëɽ¼¨¤¹¤ë¤â¤Î¤Ç¤¹¤¬¡¢20¹Ô¤ÇPOS¤ò»È¤Ã¤Æ¥«¡¼¥½¥ë¤Î¿åÊ¿°ÌÃÖ¤òÄ´¤Ù¡¢30¹Ô¤Ç¡¢¤½¤ÎÃͤ¬12¤ò±Û¤¨¤¿¤é²þ¹Ô¤ò¹Ô¤¦¤è¤¦¤Ë»Ø¼¨¤·¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CSRLIN,CSRLIN}} ---- !PRINT {{anchor PRINT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Æ¥­¥¹¥È²èÌ̤Ëʸ»úÎó¤ä¿ôÃͤòɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PRINT[<¼°>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="ABC":A=123 20 PRINT A$,A 30 PRINT A$;A 40 PRINT 50 PRINT 456"DEF"; 60 PRINT "IIII" ¡Úɽ¼¨¡Û ABC 123 ABC 123 456 DEFIIII ,²ò¡¡Àâ{SIZE:100|CENTER} PRINT¤Ë³¤±¤Æ¿ôÃÍ(456)¤äʸ»úÎó(DEF¡¢IIII)¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¿ôÃÍ¡¢Ê¸»úÎ󤬲èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£¤Þ¤¿¡¢¿ôÃÍÊÑ¿ô(A)¤äʸ»úÊÑ¿ô(A$)¤¬»ØÄꤵ¤ì¤ë¤È¡¢¤½¤ì¤é¤ÎÊÑ¿ô¤ËÂåÆþ¤µ¤ì¤Æ¤¤¤ë¿ôÃÍ(123)¤ä¿ôÃÍ(ABC)¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£PRINT¤À¤±¤ò»ØÄꤹ¤ë¤È(40¹Ô)²þ¹Ô¤¬¹Ô¤ï¤ì¤Þ¤¹¡£ ¿ôÃͤòɽ¼¨¤¹¤ë¾ì¹ç¡¢¤½¤Î¸å¤í¤Ëɬ¤º¶õÇò¤¬1¤ÄÆþ¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¿ôÃͤÎÁ°¤Ë¤ÏÉä¹æÍѤη夬ÍÑ°Õ¤µ¤ì¤Æ¡¢¥×¥é¥¹¤Î¤È¤­¤Ë¤Ï¶õÇò¡¢¥Þ¥¤¥Ê¥¹¤Î¤È¤­¤Ë¤Ï¥Þ¥¤¥Ê¥¹Éä¹æ¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ Ê£¿ô¤Î¥Ç¡¼¥¿¤òɽ¼¨¤¹¤ë¾ì¹ç¡¢¤½¤ì¤é¤Î¶èÀÚ¤ê¤È¤·¤Æ¡¢¥«¥ó¥Þ(,)¡¢¥»¥ß¥³¥í¥ó(;)¡¢¶õÇò¤¬»È¤¨¤Þ¤¹¡£¥«¥ó¥Þ¤ò»È¤¦¤È(20¹Ô)¡¢PRINT¤Î¸å¤í¤Î´ñ¿ôÈÖÌܤΥǡ¼¥¿¤Ï²èÌ̤ΰìÈÖº¸¤ÎÎó¤Ëɽ¼¨¤µ¤ì¡¢¶ö¿ôÈÖÌܤΥǡ¼¥¿¤Ï15·åÌܤËɽ¼¨¤µ¤ì¤Þ¤¹¡£¤¿¤À¤·¾å¤ÎÎã¤Î¾ì¹ç¡¢2ÈÖÌܤΥǡ¼¥¿¤¬¿ôÃͤʤΤǸ«¤«¤±¾å¤Ï16·åÌܤËɽ¼¨¤µ¤ì¤Þ¤¹¡£ ¶èÀÚ¤ê¤Ë¥»¥ß¥³¥í¥ó¤¢¤ë¤¤¤Ï¶õÇò¤ò»È¤¦¤È(30¹Ô¡¢50¹Ô)¡¢PRINT¤Î¸å¤í¤Î¥Ç¡¼¥¿¤¬¤Ä¤Ê¤¬¤Ã¤Æ²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£°ìÈֺǸå¤Î¥Ç¡¼¥¿¤Î¸å¤í¤Ë¥»¥ß¥³¥í¥ó¤òÃÖ¤¯¤È¡¢¼¡¤ÎPRINTʸ¤Î¥Ç¡¼¥¿¤¬Á°¤Î¥Ç¡¼¥¿¤Ë¤Ä¤Ê¤¬¤Ã¤Æɽ¼¨¤µ¤ì¤Þ¤¹(50¹Ô¤È60¹Ô)¡£ PRINT¤Î¾Êά·Á¤È¤·¤Æ?(µ¿ÌäÉä)¤ò»È¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !PRINT # {{anchor PRINT #}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤Ë¥Ç¡¼¥¿¤ò½ÐÎϤ·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PRINT #<¥Õ¥¡¥¤¥ëÈÖ¹æ>,[<¼°>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT #1,A$ ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ï¡¢¤½¤Î¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤¬½ÐÎϥ⡼¥É¤È¤·¤Æ¥ª¡¼¥×¥ó¤µ¤ì¤¿¤È¤­¤Ë»ØÄꤵ¤ì¤¿ÈÖ¹æ¤Ç¤¹¡£ <¼°>¤Ï¡¢¥Õ¥¡¥¤¥ë¤Ë½ñ¤­¹þ¤Þ¤ì¤ë¿ôÃͼ°¤Þ¤¿¤Ïʸ»ú¼°¤Ç¤¹¡£ PRINT#ʸ¤Ï²èÌ̤˽ÐÎϤ¹¤ë¤Î¤ÈƱ¤¸¤â¤Î¤ò¥Õ¥¡¥¤¥ë¤Ë½ÐÎϤ·¤Þ¤¹¡£¤½¤Î¤¿¤á¡¢¥Ç¡¼¥¿¤òÆɤà¤È¤­¤ËÀµ¤·¤¯ÆþÎϤǤ­¤ë¤è¤¦¤Ë¡¢½ñ¤­¹þ¤à¥Ç¡¼¥¿¤òŬÀڤ˶èÀÚ¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¥·¡¼¥±¥ó¥·¥ã¥ë¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë¥Ç¡¼¥¿¤Î½ÐÎϤˤ⡢PRINT# USINGʸ¤¬ÍÑ°Õ¤·¤Æ¤¢¤ê¤Þ¤¹¡£¥«¥ó¥Þ(,)¤Ï¾Êά¤Ç¤­¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# OPEN,OPEN}}¡¢{{# CLOSE,CLOSE}}¡¢{{# INPUT #,INPUT #}}¡¢{{# LINE INPUT #,LINE INPUT #}}¡¢{{# INPUT$,INPUT$}}¡¢{{# PRINT# USING,PRINT# USING}}¡¢{{# PRINT,PRINT}}¡¢{{# LPRINT,LPRINT}} ---- !PRINT USING {{anchor PRINT USING}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤ä¿ôÃͤò»ØÄꤷ¤¿½ñ¼°¤Ç¥Æ¥­¥¹¥È²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PRINT USING<½ñ¼°>;<¼°>¡¦¡¦¡¦ ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="ABCDE":B$="ZYXWV" 20 A=123.45:B=-98.765 30 'ŽÓŽ¼ŽÞŽÚŽÂ 40 PRINT USING "!";A$,B$ 50 PRINT USING "& &";A$ 60 PRINT USING "@ MNL @";A$,B$ 70 'Ž½Ž³ŽÁ 80 PRINT USING "+####.####";A,B 90 PRINT USING "####.###-";B 100 PRINT USING "**##.###";B 110 PRINT USING "\\##.###";B 120 PRINT USING "**##.###";A 130 PRINT USING "####.###";A 140 PRINT USING "####.###^^^^";A 150 PRINT USING "##";A 160 PRINT USING "ŽºŽÞŽ³Ž¹Ž²###.###";B ¡Úɽ¼¨¡Û AZ ABC ABCDE MNL ZYXWV +123.4500 -98.7650 98.765- *-98.765 -\98.765 *123.450 123.450 123.450E+00 %123 ŽºŽÞŽ³Ž¹Ž² -98.765 ,²ò¡¡Àâ{SIZE:100|CENTER} PRINT USING¤Î¸å¤í¤Ë»ØÄꤷ¤¿¡¢½ñ¼°Ê¸»úÎó¤Ç¥»¥ß¥³¥í¥ó(;)°Ê²¼¤Îʸ»úÎó¤ä¿ôÃͤòÊÔ½¸¤·¤Æɽ¼¨¤·¤Þ¤¹¡£ Ê£¿ô¤Î¥Ç¡¼¥¿¤òɽ¼¨¤¹¤ë¤È¤­¤Ë¤Ï¡¢¥«¥ó¥Þ(,)¤«¥»¥ß¥³¥í¥ó¤Ç¶èÀÚ¤ê¤Þ¤¹¡£¥«¥ó¥Þ¤Ç¶èÀڤäƤ⥻¥ß¥³¥í¥ó¤Ç¶èÀڤäƤâƱ¤¸¤Ç¤¹¡£ ½ñ¼°¤Ë¤Ï¡¢Ê¸»úÎó¤òÊÔ½¸¤¹¤ë¤â¤Î¤È¿ôÃͤòÊÔ½¸¤¹¤ë¤â¤Î¤È¤¬¤¢¤ê¤Þ¤¹¡£°Ê²¼¤Ë½ñ¼°¤È¤·¤Æ»È¤¦µ­¹æ¤òÀâÌÀ¤·¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:20},{BSIZE:0|SIZE:80|TOP},{BSIZE:0|TOP} ,,'''¢£Ê¸»úÎó¤òÊÔ½¸¤¹¤ë¤â¤Î'''{COLS:2} ,,! ,ʸ»úÎó¤Îº¸Â¦1»ú¤òɽ¼¨¤¹¤ë¡£ ,,&¶õÇò&,ʸ»úÎó¤Îº¸Â¦¤«¤é¡¢»ØÄꤷ¤¿¶õÇò¤Î¿ô+2ʸ»ú¤òɽ¼¨¤¹¤ë¡£ ,,@ ,@¤ò»ØÄꤷ¤¿Ê¸»úÎó¤ÇÃÖ¤­´¹¤¨¤ë¡£ ,,'''¢£¿ôÃͤòÊÔ½¸¤¹¤ë¤â¤Î'''{COLS:2} ,,# ,¿ôÃͤò#¤Ç»ØÄꤷ¤¿·å¿ô¤À¤±É½¼¨¤¹¤ë¡£ ,,. ,¾®¿ôÅÀ¤Î°ÌÃÖ¤ò»ØÄꤹ¤ë¡£ ,,+- ,¿ôÃͤËÀµÉéÉä¹æ¤òÉÕ¤±¤ë¡£½ñ¼°¤Îº¸Ã¼¤ËÉÕ¤±¤ë¤È¡¢¿ôÃͤÎÁ°¤Ë¡¢±¦Ã¼¤ËÉÕ¤±¤ë¤È¿ôÃͤθå¤í¤ËÀµÉéÉä¹æ¤òÉÕ¤±¤ë¡£ ,,** ,½ñ¼°¤Îº¸Ã¼¤ò**¤Ë¤·¤Æ¤ª¤¯¤È¡¢¿ôÃͤÎÀ°¿ôÉô¤Î·å¿ô¤¬½ñ¼°¤Î»ØÄê¤è¤ê¾®¤µ¤¤¤È¤­¤Ë¡¢¾®¤µ¤¤Ê¬¤À¤±*¤¬É½¼¨¤µ¤ì¤ë¡£ ,,\\ ,½ñ¼°¤Îº¸Ã¼¤ò\\¤Ë¤·¤Æ¤ª¤¯¤È¡¢¿ôÃͤÎľÁ°¤Ë\¤¬ÉÕ¤±¤é¤ì¤ë¡£\\¤Ï»Ø¿ô·Á¼°¤Î½ñ¼°»ØÄê¤ò¤·¤Æ¤¤¤ë¤È¤­¤Ë¤Ï»È¤¨¤Ê¤¤¡£ ,,**\ ,½ñ¼°¤Îº¸Ã¼¤ò**\¤Ë¤·¤Æ¤ª¤¯¤È¡¢¿ôÃͤÎľÁ°¤Ë\¤¬ÉÕ¤±¤é¤ì¡¢À°¿ôÉô¤Î·å¿ô¤¬½ñ¼°¤Î»ØÄê¤è¤ê¾®¤µ¤¤¤È¤­¤Ë¡¢¾®¤µ¤¤Ê¬¤À¤±*¤¬É½¼¨¤µ¤ì¤ë¡£**\¤Ï»Ø¿ô·Á¼°¤Î½ñ¼°»ØÄê¤ò¤·¤Æ¤¤¤ë¤È¤­¤Ë¤Ï»È¤¨¤Ê¤¤¡£ ,,"," ,",¤òÀ°¿ôÉô¤Î#¤È#¤Î´Ö¡¢¤¢¤ë¤¤¤Ï¾®¿ôÅÀ¤Îº¸Â¦¤ËÃÖ¤¤¤¿¤È¤­¤Ë¤Ï¡¢À°¿ôÉô¤¬3·åËè¤Ë¥«¥ó¥Þ¤Ç¶èÀÚ¤é¤ì¤Æɽ¼¨¤µ¤ì¤ë¡£¾®¿ôÅÀ¤è¤ê±¦¤ËÃÖ¤¤¤¿»þ¤Ë¤Ï¡¢¿ôÃͤα¦¤Ë¥«¥ó¥Þ¤¬ÉÕ¤±¤é¤ì¤ë¡£¥«¥ó¥Þ(,)¤Ï»Ø¿ô·Á¼°¤Î½ñ¼°»ØÄê¤ò¤·¤Æ¤¤¤ë¤È¤­¤Ë¤Ï»È¤¨¤Ê¤¤¡£" ,,^^^^ ,^^^^¤ò#¤Î¸å¤í¤ËÉÕ¤±¤ë¤È¡¢¿ôÃͤ¬»Ø¿ô·Á¼°¤Çɽ¼¨¤µ¤ì¤ë¡£½ñ¼°¤Ë+¤Þ¤¿¤Ï-¤ò»ØÄꤷ¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢¿ôÃͤ¬Àµ¤Ê¤é¿ôÃͤÎÁ°¤Ë¶õÇò¤¬1¤Ä¡¢Éé¤Ê¤é¿ôÃͤÎÁ°¤Ë-¤¬É½¼¨¤µ¤ì¤ë¡£ ,,% ,ɽ¼¨¤·¤è¤¦¤È¤¹¤ëÊÔ½¸ºÑ¤ß¤Î¿ôÃͤ¬½ñ¼°¤Ç»ØÄꤷ¤¿·å¿ô¤è¤êÂ礭¤¤¤È¡¢¿ôÃͤÎÁ°¤Ë%¤¬ÉÕ¤±¤é¤ì¤ë¡£ ½ñ¼°¤ÎÃæ¤Ë¤³¤ì¤é¤Îµ­¹æ°Ê³°¤Îʸ»ú¤òÃÖ¤¯¤Èʸ»ú¤Î°ÌÃ֤˱þ¤¸¤Æ¿ôÃͤÎÁ°¤ä¸å¤í¤Ë¤½¤Îʸ»ú¤¬É½¼¨¤µ¤ì¤Þ¤¹(160¹Ô»²¾È)¡£ ---- !PRINT# USING {{anchor PRINT # USING}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤Ë»ØÄꤷ¤¿½ñ¼°¤Ç¥Ç¡¼¥¿¤ò½ñ¤­½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PRINT#<¥Õ¥¡¥¤¥ëÈÖ¹æ>,USING<½ñ¼°>;<¼°>¡¦¡¦¡¦ ,ʸ¡¡Îã{SIZE:100|CENTER} 10 OPEN"CRT:"FOR OUTPUT AS #1 20 A=123:B=-45 30 A$="SUPER" 40 PRINT #1,USING"####.##-";A;B 50 PRINT #1,USING"@ MSX";A$ 60 CLOSE ,²ò¡¡Àâ{SIZE:100|CENTER} PRINT# USING¤ò¼Â¹Ô¤¹¤ë¤È¡¢½ñ¼°Ê¸»úÎó¤Ë¤·¤¿¤¬¤Ã¤Æ¡¢»ØÄꤵ¤ì¤¿Ê¸»úÎó¤ä¿ôÃͤ¬ÊÔ½¸¤µ¤ì¡¢¤½¤Î·ë²Ì¤¬¥Õ¥¡¥¤¥ë¤Ë½ñ¤­½Ð¤µ¤ì¤Þ¤¹¡£PRINT# USING¤Ï¡¢¥Ç¡¼¥¿¤ò»ØÄꤵ¤ì¤¿½ñ¼°¤Ë¤·¤¿¤¬¤Ã¤Æ½ÐÎϤ¹¤ë¤³¤È¤ò½ü¤±¤Ð¡¢¤½¤Îµ¡Ç½¤ÏPRINT#¤ÈƱ¤¸¤Ç¤¹¡£¤Þ¤¿¡¢½ñ¼°¤ò»È¤Ã¤¿ÊÔ½¸ÊýË¡¤Ï¡¢PRINT USING¤ÈƱ¤¸¤Ç¤¹¤Î¤Ç¡¢¤½¤Á¤é¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# PRINT#,PRINT#}}¡¢{{# PRINT USING,PRINT USING}} ---- !PSET¡¢PRESET {{anchor PSET}}{{anchor PRESET}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̾å¤ËÅÀ¤òÉÁ¤¤¤¿¤ê(PSET)¡¢ÉÁ¤¤¤Æ¤¢¤ëÅÀ¤ò¾Ã¤·¤¿¤ê(PRESET)¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PSET[STEP](X,Y)[,<¥«¥é¡¼¥³¡¼¥É>][,<ÏÀÍý±é»»»Ò>] PRESET[STEP](X,Y)[,<¥«¥é¡¼¥³¡¼¥É>][,<ÏÀÍý±é»»»Ò>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 3 20 X=INT(RND(1)*255) 30 Y=INT(RND(1)*192) 40 C=INT(RND(1)*15+1) 50 PSET(X,Y),C 60 FOR I=0 TO 100:NEXT 70 PRESET(X,Y) 80 GOTO 20 ,²ò¡¡Àâ{SIZE:100|CENTER} PSET¤Ï¡¢(X,Y)¤Ç»ØÄꤷ¤¿°ÌÃÖ¤ËC¤Ç»ØÄꤵ¤ì¤¿¿§¤ÎÅÀ¤òÉÁ¤­¤Þ¤¹(¿§¤Î»ØÄê¤ò¾Êά¤¹¤ë¤È¡¢COLORÌ¿Îá¤Ç»ØÄꤷ¤¿Á°·Ê¿§¤¬»È¤ï¤ì¤Þ¤¹)¡£ PRESET¤Ç¿§¤Î»ØÄê¤ò¾Êά¤¹¤ë¤È¡¢»ØÄꤷ¤¿°ÌÃÖ¤ËÉÁ¤«¤ì¤Æ¤¤¤ëÅÀ¤ò¾Ã¤·¤Þ¤¹(¤³¤Î¤È¤­ÇØ·Ê¿§°Ê³°¤Î¿§¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¿§¤ÇÅÀ¤¬ÉÁ¤«¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤)¡£¤³¤ì¤é¤Î»ØÄê¤Ë¤ÏSTEP¤ò»È¤¦¤³¤È¤â¤Ç¤­¤Þ¤¹¡£STEP¤Ë¤Ä¤¤¤Æ¤ÏLINE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢¿§¥³¡¼¥É¤Î¸å¤Ë¤Ï<ÏÀÍý±é»»»Ò>¤ò»ØÄê¤Ç¤­¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤âLINE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}}¡¢{{# LINE,LINE}} ---- !PUT ¡ÚDisk¡Û{{anchor PUT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥é¥ó¥À¥àÆþ½ÐÎϥХåե¡Ãæ¤Î¥Ç¡¼¥¿¤ò¥é¥ó¥À¥à¥Õ¥¡¥¤¥ë¤Ø½ÐÎϤ·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PUT[#]<¥Õ¥¡¥¤¥ëÈÖ¹æ>[,<¥ì¥³¡¼¥ÉÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} PUT#1,1 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ç»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë¥Ð¥Ã¥Õ¥¡¤ÎÆâÍƤò½ñ¤­½Ð¤·¤Þ¤¹¡£»ØÄꤵ¤ì¤¿¥Õ¥¡¥¤¥ë¤Ï¡¢¥é¥ó¥À¥à¥¢¥¯¥»¥¹¤Î¥â¡¼¥É¤Ç¥ª¡¼¥×¥ó¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ <¥ì¥³¡¼¥ÉÈÖ¹æ>¤Ï¡¢1¤«¤é4,294,967,295¤Þ¤Ç¤¬Í­¸ú¤Ç¡¢¥Ð¥Ã¥Õ¥¡Ãæ¤Î¥Ç¡¼¥¿¤¬»ØÄꤵ¤ì¤¿¥ì¥³¡¼¥É¤Ë½ñ¤­¹þ¤Þ¤ì¤Þ¤¹¡£<¥ì¥³¡¼¥ÉÈÖ¹æ>¤¬¾Êά¤µ¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢Ä¾Á°¤ÎGETʸ¡¢PUTʸ¤Ç»²¾È¤µ¤ì¤¿¥ì¥³¡¼¥É¤Î¼¡¤Î¥ì¥³¡¼¥É¤Ë½ñ¤­¹þ¤Þ¤ì¤Þ¤¹¡£ ¤Ê¤ª¡¢½ñ¤­½Ð¤¹¥Ç¡¼¥¿¤Ï¤¢¤é¤«¤¸¤áFIELDʸ¡¢LSETʸ¡¢RSETʸ¤Ë¤è¤ê½àÈ÷¤·¤Æ¤ª¤«¤Í¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ¥Ð¥Ã¥Õ¥¡¤ÎºÇ¸å¤ò±Û¤¨¤Æ¥ê¡¼¥É¤Þ¤¿¤Ï¥é¥¤¥È¤·¤è¤¦¤È¤¹¤ë¤È¡ÖField overflow¡×¥¨¥é¡¼¤È¤Ê¤ê¤Þ¤¹¡£ ---- !PUT KANJI ¡Ú2¡Û{{anchor PUT KANJI}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥°¥é¥Õ¥£¥Ã¥¯²èÌ̤˴Á»ú¤òɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PUT KANJI[(X,Y)],<´Á»ú¥³¡¼¥É>[,<¥«¥é¡¼¥³¡¼¥É>[,<ÏÀÍý±é»»»Ò>[,<¥â¡¼¥É>]]] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 5:X=0:Y=0:I=&H2121 20 PUT KANJI(X,Y),I 30 X=X+16:IF X=256 THEN X=0 ELSE 50 40 Y=Y+16:IF Y=208 THEN A$=INPUT$(1):CLS:Y=0 50 I=I+1 60 IF (I AND 255 OR 128)=128 THEN I=I+160 70 IF I=&H2820 THEN I=&H3020 80 IF I<&H4F53 THEN 20 90 END ,²ò¡¡Àâ{SIZE:100|CENTER} <´Á»ú¥³¡¼¥É>¤ÏJIS´Á»ú¥³¡¼¥É¤Ç¡¢MSX2¤Ç¤Ï&H2121¤«¤é&H4F53¡¢MSX2+¤Ç¤Ï&H2121¤«¤é&H737C¤ÎÃͤò¼è¤ê¤Þ¤¹¡£<ÏÀÍý±é»»»Ò>¤Ë¤Ä¤¤¤Æ¤ÏLINE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£<¥â¡¼¥É>¤Ï0¡Á2¤Ç¼¡¤Î¤è¤¦¤Ê°ÕÌ£¤ò»ý¤Á¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:60},{BSIZE:0|SIZE:60},{BSIZE:0} ,,0,16¡ß16¥Î¡¼¥Þ¥ë(¾ÊάÃÍ) ,,1,¶ö¿ô¥é¥¤¥ó¤À¤±¤ò½Ä8¥É¥Ã¥È¤Çɽ¼¨ ,,2,´ñ¿ô¥é¥¤¥ó¤À¤±¤ò½Ä8¥É¥Ã¥È¤Çɽ¼¨ ¥â¡¼¥É1¤È¥â¡¼¥É2¤Ï¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤Ç»È¤¤¤Þ¤¹¡£´Á»úROM¤¬¥·¥¹¥Æ¥à¤Ë¤Ê¤¤¾ì¹ç¤Ï²¿¤âɽ¼¨¤·¤Þ¤»¤ó¡£PUT KANJI¤ÏSCREEN 5°Ê¹ß¤Ç¤Î¤ßÍ­¸ú¤Ç¤¹¡£ ¤³¤ÎÎã¤Ç¤Ï¡¢´Á»úROM¤ËÆþ¤Ã¤Æ¤¤¤ëʸ»ú¤ò½ç¤Ë²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ÅÓÃ桢;ʬ¤Ê¶õÇòÉôʬ¤ÏÈô¤Ð¤·¤Æ¤¤¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LINE,LINE}}¡¢{{# SCREEN,SCREEN}} ---- !PUT SPRITE {{anchor PUT SPRITE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥ó¤ò²èÌ̤Ëɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} PUT SPRITE<¥¹¥×¥é¥¤¥ÈÌÌÈÖ¹æ>[,[STEP](X,Y)][,<¥«¥é¡¼¥³¡¼¥É>][,<¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥óÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 1,2 20 SPRITE$(0)=STRING$(32,CHR$(&B11111111)) 30 PUT SPRITE0,(100,100),1,0 40 END ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤Î¥×¥í¥°¥é¥à¤ÏSPRITE$Ì¿Îá¤Ë¤è¤Ã¤Æ¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥óÈÖ¹æ0¤ËÄêµÁ¤µ¤ì¤Æ¤¤¤ë»Í³Ñ¤¤ÌÏÍͤò¡¢¥¹¥×¥é¥¤¥ÈÌÌ0ÈÖ¤ò»È¤Ã¤Æ¡¢²èÌ̤Î(100,100)¤Î°ÌÃ֤ˡ¢¹õ¤Çɽ¼¨¤·¤Þ¤¹¡£¤Ê¤ª¡¢¥×¥í¥°¥é¥à¤¬½ª¤ï¤Ã¤Æ¤â¥¹¥×¥é¥¤¥È¤Ï²èÌ̤«¤é¾Ã¤¨¤Þ¤»¤ó¡£¥¹¥×¥é¥¤¥È¤ò¾Ã¤¹¤Ë¤Ï¡¢YºÂɸ¤Ë209¤«208(SCREEN 4°Ê¹ß¤Ç¤Ï217¤«216)¤ò»ØÄꤷ¤ÆPUT SPRITE¤ò¼Â¹Ô¤¹¤ë¤«¡¢SCREENÌ¿Îá¤ÎÂè2¥Ñ¥é¥á¡¼¥¿¤ÇºÆÅÙ¥¹¥×¥é¥¤¥È¤ÎÂ礭¤µ¤ò»ØÄꤷ¤Þ¤¹¡£¥¹¥×¥é¥¤¥ÈÌÌÈÖ¹æ¤Ï0¡Á31¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£1¤Ä¤Î¥¹¥×¥é¥¤¥ÈÌ̤ˤϡ¢1¤Ä¤Î¥Ñ¥¿¡¼¥ó¤À¤±¤·¤«É½¼¨¤Ç¤­¤Þ¤»¤ó¡£¤¹¤Ç¤Ë¥Ñ¥¿¡¼¥ó¤¬É½¼¨¤·¤Æ¤¢¤ëÌ̤ò»ØÄꤹ¤ë¤È¡¢Àè¤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤¿¥Ñ¥¿¡¼¥ó¤Ï¾Ã¤µ¤ì¤Þ¤¹¡£ ¥¹¥×¥é¥¤¥ÈÌ̤Î0¡Á31¤ÏƱ»þ¤Ëɽ¼¨¤Ç¤­¤Þ¤¹¤¬¡¢²£Êý¸þ¤Ë5¤Ä°Ê¾å(SCREEN 4°Ê¹ß¤Ç¤Ï9¤Ä°Ê¾å)¤Î¥Ñ¥¿¡¼¥ó¤¬Ê¤֤ȡ¢5¤Ä°Ê¹ß(SCREEN 4°Ê¹ß¤Ç¤Ï9¤Ä¤á°Ê¹ß)¤Î¥Ñ¥¿¡¼¥ó¤Ï²èÌ̤«¤é¾Ã¤¨¤Þ¤¹¡£ (X,Y)¤Ç¡¢¥Ñ¥¿¡¼¥ó¤òɽ¼¨¤¹¤ë°ÌÃÖ¤ò»ØÄꤷ¤Þ¤¹¡£X¤Ï-32¡Á255¤ÎÃͤò¡¢Y¤Ï-32¡Á191¤ÎÃÍ(SCREEN 4°Ê¹ß¤Ç¤Ï¡Á211)¤ò»ØÄꤷ¤Þ¤¹¡£STEP¤ò¤Ä¤±¤Æ°ÌÃÖ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¤¬¡¢¤³¤ì¤Ë¤Ä¤¤¤Æ¤ÏLINE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£(X,Y)¤ò¾Êά¤¹¤ë¤È¡¢¤½¤Î¥¹¥×¥é¥¤¥ÈÌ̤ǻȤï¤ì¤Æ¤¤¤ëÃͤ¬»È¤ï¤ì¤Þ¤¹¡£¤³¤Î(X,Y)¤Ï¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥óº¸¾å¶ù¤Î°ÌÃÖ¤ò»Ø¤·¤Æ¤¤¤Þ¤¹¡£ ¥Ñ¥¿¡¼¥ó¤¬Æ±¤¸°ÌÃ֤˽Ťʤë¤È¡¢¥¹¥×¥é¥¤¥ÈÌÌÈÖ¹æ¤Î¾®¤µ¤¤Êý¤Î¥Ñ¥¿¡¼¥ó¤¬¼êÁ°¤Ë½Å¤Ê¤Ã¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£ Y¤Ë208(SCREEN 4°Ê¹ß¤Ç¤Ï216)¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¥¹¥×¥é¥¤¥ÈḬ̀ʹߤΥѥ¿¡¼¥ó¤¬²èÌ̤«¤é¾Ã¤µ¤ì¤Þ¤¹¡£Y¤Ë209(SCREEN 4¤Ç¤Ï217)¤ò»ØÄꤹ¤ë¤È¡¢»ØÄꤷ¤¿¥¹¥×¥é¥¤¥ÈÌ̤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤¿¥Ñ¥¿¡¼¥ó¤¬¾Ã¤µ¤ì¤Þ¤¹¡£ ¿§¤Ï¡¢É½¼¨¤¹¤ë¥Ñ¥¿¡¼¥ó¤Î¿§¤Ç0¡Á15¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£¾Êά¤¹¤ë¤ÈCOLORʸ¤Ç»ØÄꤷ¤Æ¤¤¤ëÁ°·Ê¿§¤È¤Ê¤ê¤Þ¤¹¡£¥«¥é¡¼ÈÖ¹æ¤È¿§¤È¤ÎÂбþ¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿SCREEN 4°Ê¹ß¤Î³Æ¥¹¥×¥é¥¤¥ÈÌ̤Ǥϡ¢1¥é¥¤¥óËè¤Ë¿§¤òÉÕ¤±¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR SPRITE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ¥¹¥×¥é¥¤¥ÈÈÖ¹æ¤Ï¡¢SPRITE$¤Ç»ØÄꤷ¤¿ÈÖ¹æ¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}}¡¢{{# COLOR SPRITE,COLOR SPRITE}}¡¢{{# SPRITE$,SPRITE$}}¡¢{{# SCREEN,SCREEN}} ---- !READ {{anchor READ}} ,µ¡¡¡Ç½{SIZE:100|CENTER} DATA¤ÇÍÑ°Õ¤·¤¿¿ôÃͤäʸ»ú¤Î¥Ç¡¼¥¿¤òÆɤ߹þ¤ß¡¢ÊÑ¿ô¤ËÂåÆþ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} READ<ÊÑ¿ô>[,<ÊÑ¿ô>¡¦¡¦¡¦] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 READ A$,A,B$,B 20 PRINT B$,B,A$,A 30 DATA Ž±Ž¶Ž¸Ž×,3.5 40 DATA Ž»ŽÞŽµŽ³,2.3 ,²ò¡¡Àâ{SIZE:100|CENTER} 30¹Ô¡¢40¹Ô¤Î¥Ç¡¼¥¿¤òREAD¤ÇÆɤ߹þ¤ß¡¢¡ÖŽ±Ž¶Ž¸Ž×¡×¤òA$¡¢3.5¤òA¡¢¡ÖŽ»ŽÞŽµŽ³¡×¤òB$¡¢2.3¤òB¤Ë¤½¤ì¤¾¤ìÂåÆþ¤·¤Æ¤¤¤Þ¤¹¡£ READ¤Ï¡¢¹ÔÈÖ¹æ¤Î¾®¤µ¤¤DATA¤Î¥Ç¡¼¥¿¤«¤é½ç¤ËÆɤ߹þ¤ß¡¢»ØÄꤷ¤¿ÊÑ¿ô¤ËÂåÆþ¤·¤Æ¤¤¤­¤Þ¤¹¡£DATA¤Ï¡¢READ¤ÇÆɤ߽Фµ¤ì¤ë¿ôÃͤ䡢ʸ»ú¤òÍÑ°Õ¤·¤Þ¤¹¡£¤³¤ì¤é¤Î¿ôÃͤäʸ»ú¤Î¤³¤È¤ò¥Ç¡¼¥¿¤È¤¤¤¤¤Þ¤¹¡£¥Ç¡¼¥¿¤Ï¡¢1¹Ô¤Ç¤Ï255ʸ»ú°ÊÆâ¤Ç¡¢¥«¥ó¥Þ(,)¤Ç¶èÀڤäƻØÄꤷ¤Þ¤¹¡£¥Ç¡¼¥¿¤òÊ£¿ô¹Ô»ØÄꤹ¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¤¬¡¢¤½¤Î¾ì¹ç¤â¤½¤ì¤é¤Î¥Ç¡¼¥¿¤ÏϢ³¤·¤¿¤â¤Î¤È¸«¤Ê¤µ¤ì¤Þ¤¹¡£¥Ç¡¼¥¿¤Ï¡¢À°¿ô¡¢Ã±ÀºÅټ¿ô¡¢ÇÜÀºÅټ¿ô¡¢Ê¸»úÄê¿ô¤Î¤É¤ì¤Ç¤â¤«¤Þ¤¤¤Þ¤»¤ó¤¬¡¢READʸ¤Ç»ØÄꤹ¤ëÊÑ¿ô¤Î·¿¤È¤½¤ì¤¾¤ìÂбþ¤·¤Æ¤¤¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¥Ç¡¼¥¿¤È¤·¤Æ¡¢Ê¸»úÎó¤ÎÀèƬ¤äºÇ¸å¤Ë¶õÇò¡¢¥Ô¥ê¥ª¥É(.)¡¢¥«¥ó¥Þ(,)¤¬¤¢¤ë¤È¤­¤Ë¤Ï¡¢¤½¤Îʸ»úÎó¤ò°úÍÑÉä(")¤Ç°Ï¤ß¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# DATA,DATA}}¡¢{{# RESTORE,RESTORE}} ---- !REM {{anchor REM}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥àÃæ¤ËÃí¼á¤òÆþ¤ì¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} REM[<Ãí¼áʸ>] ,ʸ¡¡Îã{SIZE:100|CENTER} REM MSX ,²ò¡¡Àâ{SIZE:100|CENTER} REM¤Ë³¤¯Ê¸»úÎó¤Ï¡¢¥×¥í¥°¥é¥àÃæ¤ÎÃí¼á¤Ë¤Ê¤ë¤À¤±¤Ç¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤Ë¤ÏÁ´¤¯´Ø·¸¤·¤Þ¤»¤ó¡£¥×¥í¥°¥é¥à¤ò¸«¤ä¤¹¤¯¤¹¤ë³Ð¤¨½ñ¤­¤È¤·¤Æ»ÈÍѤ·¤Æ²¼¤µ¤¤¡£REM¤ÎÂå¤ï¤ê¤Ë¥¢¥Ý¥¹¥È¥í¥Õ¥£(')¤òÍѤ¤¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð¡¢¾å¤ÎÎã¤ò¡¢ 'MSX ¤È¤·¤Æ¤â¡¢¤«¤Þ¤¤¤Þ¤»¤ó¡£ ---- !RENUM {{anchor RENUM}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤Î¹ÔÈÖ¹æ¤òÉÕ¤±Ä¾¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RENUM[<¿·¹ÔÈÖ¹æ>][,<µì¹ÔÈÖ¹æ>][,<Áýʬ>] ,ʸ¡¡Îã{SIZE:100|CENTER} RENUM 200,100,20 ,²ò¡¡Àâ{SIZE:100|CENTER} µì¹ÔÈֹ椬100¤Î¤È¤³¤í¤«¤é¹ÔÈÖ¹æ¤ÎÉÕ¤±¤«¤¨¤¬¹Ô¤ï¤ì¤Þ¤¹¡£¿·¤·¤¤¹ÔÈÖ¹æ¤ÎºÇ½é¤ÎÈÖ¹æ¤Ï200¤Ç¡¢°Ê¸å20¤º¤ÄÁý¤¨¤¿¹ÔÈֹ椬ÉÕ¤±¤é¤ì¤Þ¤¹¡£¿·¹ÔÈÖ¹æ¤ÎºÇ½é¤ÎÈÖ¹æ(¤³¤Î¾ì¹ç¡¢200)¡¢¿·¹ÔÈÖ¹æ¤ÎÁý²Ãʬ(¤³¤Î¾ì¹ç¡¢20)¤È¤â¡¢¾Êά¤¹¤ë¤È10¤¬ºÎÍѤµ¤ì¤Þ¤¹¡£¹ÔÈÖ¹æ¤ÎÉÕ¤±¤«¤¨¤ò»Ï¤á¤ë¤È¤³¤í(¤³¤Î¾ì¹ç¡¢100)¤ò»ØÄꤷ¤Ê¤¤¤È¡¢¤½¤Î¥×¥í¥°¥é¥à¤ÎÀèƬ¤«¤é¿·¤·¤¤ÈÖ¹æ¤ËÊѤï¤ê¤Þ¤¹¡£ Î㤨¤Ð¡¢ RENUM ¥×¥í¥°¥é¥àÁ´ÂΤιÔÈÖ¹æ¤òÉÕ¤±¤«¤¨¤Þ¤¹¡£¿·¤·¤¤¹ÔÈÖ¹æ¤Ï10¤«¤é»Ï¤Þ¤ê¡¢20¡¢30¡¦¡¦¡¦¤ÈÉÕ¤±¤é¤ì¤Þ¤¹¡£ RENUM 100,50 ¹ÔÈÖ¹æ50¤Ë¿·¤·¤¤¹ÔÈÖ¹æ¤È¤·¤Æ100¤¬ÉÕ¤±¤é¤ì¡¢°Ê¹ß110¡¢120¡¦¡¦¡¦¤ÈÉÕ¤±Ä¾¤µ¤ì¤Þ¤¹¡£ RENUM 100,,100 ¥×¥í¥°¥é¥àÁ´ÂΤιÔÈÖ¹æ¤òÉÕ¤±¤«¤¨¤Þ¤¹¡£¿·¤·¤¤¹ÔÈÖ¹æ¤Ï100¤«¤é»Ï¤Þ¤ê¡¢200¡¢300¡¦¡¦¡¦¤ÈÉÕ¤±¤é¤ì¤Þ¤¹¡£ RENUM¤Ï¡¢GOTO¡¢GOSUB¡¢THEN¡¢ELSE¡¢ON¡ÁGOTO¡¢ON¡ÁGOSUB¡¢ERL¤Ê¤É¤Ç»È¤ï¤ì¤Æ¤¤¤ë¹ÔÈÖ¹æ¤â¡¢¿·¤·¤¤¹ÔÈÖ¹æ¤Ë¹ç¤ï¤»¤ÆÊѹ¹¤·¤Þ¤¹¡£ ---- !RESTORE {{anchor RESTORE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} READ¤ÇÆɤàDATA¤ò»ØÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RESTORE[<¹ÔÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 RESTORE 50 20 READ A$,A 30 PRINT A$,A 40 DATA Ž±Ž¶Ž¸Ž×,3.5 50 DATA Ž»ŽÞŽµŽ³,2.3 ,²ò¡¡Àâ{SIZE:100|CENTER} RESTORE¤Ç¹ÔÈÖ¹æ(50)¤ò»ØÄꤷ¡¢READ¤Ç¤É¤ÎDATA¤«¤éÆɤ߻Ϥá¤ë¤«¤ò·è¤á¤Þ¤¹¡£¤³¤ì¤Ë¤è¤ê¡¢A$¤Ë¤Ï¡ÖŽ»ŽÞŽµŽ³¡×¡¢A¤Ë¤Ï2.3¤¬ÂåÆþ¤µ¤ì¤Þ¤¹¡£ ¹ÔÈֹ椬¾Êά¤µ¤ì¤ë¤È¡¢READ¤Ï¥×¥í¥°¥é¥à¤ÎºÇ½é¤ÎDATA¤«¤éÆɤ߻Ϥá¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# READ,READ}}¡¢{{# DATA,DATA}} ---- !RESUME {{anchor RESUME}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¨¥é¡¼½èÍý¤ò½ªÎ»¤·¡¢¸µ¤Î¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òºÆ³«¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RESUME[0]¤Þ¤¿¤ÏNEXT¤Þ¤¿¤Ï<¹ÔÈÖ¹æ> ,ʸ¡¡Îã{SIZE:100|CENTER} RESUME 100 ,²ò¡¡Àâ{SIZE:100|CENTER} ON ERROR GOTO¤Ç¥¸¥ã¥ó¥×¤·¤¿¥¨¥é¡¼½èÍý¤ÎÁàºî¤ò½ªÎ»¤·¡¢¸µ¤Î¥×¥í¥°¥é¥à¤Î100¹Ô¤«¤éºÆ¤Ó¼Â¹Ô¤òºÆ³«¤·¤Þ¤¹¡£RESUME 0¤È»ØÄꤹ¤ë¤È¡¢¥¨¥é¡¼¤¬È¯À¸¤·¤¿¹Ô¤«¤é¥×¥í¥°¥é¥à¤¬ºÆ³«¤µ¤ì¤Þ¤¹¡£¤³¤Î¾ì¹ç¡¢0¤Ï¾Êά¤Ç¤­¤Þ¤¹¡£RESUME NEXT¤È»ØÄꤹ¤ë¤È¡¢¥¨¥é¡¼¤¬È¯À¸¤·¤¿¼¡¤Î¹Ô¤«¤é¥×¥í¥°¥é¥à¤¬ºÆ³«¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON ERROR GOTO,ON ERROR GOTO}} ---- !RETURN {{anchor RETURN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥µ¥Ö¥ë¡¼¥Á¥ó¤«¤éÌá¤ê¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RETURN[<¹ÔÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 GOSUB 40 20 GOSUB 60 30 END 40 PRINT"40Ž·ŽÞŽ®Ž³" 50 RETURN 60 PRINT"60Ž·ŽÞŽ®Ž³" 70 RETURN 30 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥µ¥Ö¥ë¡¼¥Á¥ó¤ò½ªÎ»¤·¡¢¤½¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤·¤¿¼¡¤Î¹Ô¤ËÌá¤ê¤Þ¤¹¡£¤Þ¤¿¡¢¾å¤Î70¹Ô¤Î¤è¤¦¤Ë¡¢RETURN¤Î¸å¤í¤Ë¹ÔÈÖ¹æ¤ò»ØÄꤷ¤Æ¡¢Éüµ¢¤¹¤ë¹Ô¤ò»ØÄê¤Ç¤­¤Þ¤¹¡£¾å¤Î¥×¥í¥°¥é¥à¤¬¼Â¹Ô¤µ¤ì¤ë½çÈ֤ϡ¢10¡¢40¡¢50¡¢20¡¢60¡¢70¡¢30¹Ô¤È¤Ê¤ê¤Þ¤¹¡£ ¤Ê¤ª¡¢¥µ¥Ö¥ë¡¼¥Á¥ó¤ÎÃæ¤ÇCLEARÌ¿Îá¤äMAXFILESÌ¿ÎáÅù¤ò»È¤¦¤È¡¢RETURN¤Ë¤è¤ëÉüµ¢¤¬¤Ç¤­¤Ê¤¯¤Ê¤ê¤Þ¤¹¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# GOSUB,GOSUB}}¡¢{{# ON GOSUB,ON GOSUB}} ---- !RIGHT$ {{anchor RIGHT$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤Î±¦Â¦¤«¤é»ØÄꤵ¤ì¤¿¿ô¤Îʸ»úÎó¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RIGHT$(<ʸ»úÎó>,<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="SUPER HOME COMPUTER" 20 PRINT RIGHT(A$,8) 30 END ¡Úɽ¼¨¡ÛCOMPUTER ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¥Ã¥³Æâ¤Îʸ»úÎó(A$)¤Î±¦Â¦¤«¤é¡¢¿ôÃÍ(8)¤Ç»ØÄꤵ¤ì¤¿¿ô¤Îʸ»úÎó¤ò¼è¤ê½Ð¤·¤Þ¤¹¡£»ØÄꤷ¤¿¿ô¤¬Ê¸»úÎó¤ÎÁíʸ»ú¿ô¤è¤êÂ礭¤¤¤È¤­¤Ï¡¢Ê¸»úÎ󤬤½¤Î¤Þ¤Þ¼è¤ê½Ð¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LEFT$,LEFT$}}¡¢{{# MID$,MID$}} ---- !RND {{anchor RND}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤¿0°Ê¾å1̤Ëþ¤ÎÍð¿ô¤òȯÀ¸¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RND(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT RND(1) ¡Úɽ¼¨¡Û.748299301545582 ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤¬Àµ¤Î¤È¤­¤Ï¡¢Æ±¤¸Íð¿ô¤ÎʤӤο·¤·¤¤Íð¿ô¤òÊÖ¤·¤Þ¤¹¡£ <¿ô¼°>¤¬0¤Î¤È¤­¤Ï¡¢Æ±¤¸Íð¿ô¤ÎʤӤÎÁ°²ó»È¤Ã¤¿ÃͤòÊÖ¤·¤Þ¤¹¡£ <¿ô¼°>¤¬Éé¤Î¤È¤­¤Ï¡¢¤½¤ÎÃͤËÂбþ¤·¤¿¸ÇÍ­¤ÎÍð¿ô¤ÎʤӤòºî¤ê¤Þ¤¹¡£ RND¤ÎÍð¿ô¤ÎʤӤϡ¢¥×¥í¥°¥é¥à¤¬¼Â¹Ô¤µ¤ì¤ë¤¿¤Ó¤ËƱ¤¸¤â¤Î¤¬»È¤ï¤ì¤Þ¤¹¤¬¡¢RND(-TIME)¤ò1ÅÙÀèƬ¤ËÍѤ¤¤ì¤Ð¡¢Ëè²óÊ̤ÎÍð¿ô¤ÎʤӤòºî¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ ---- !RUN {{anchor RUN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¤Ë¤¢¤ë¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤ò³«»Ï¤·¤Þ¤¹¡£¤¢¤ë¤¤¤Ï¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤«¤é¥Õ¥¡¥¤¥ë¤ò¥á¥â¥ê¤Ë¥í¡¼¥É¤·¡¢¤½¤Î¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} RUN[<¹ÔÈÖ¹æ>]¤Þ¤¿¤ÏRUN"<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>"[,R] ,ʸ¡¡Îã{SIZE:100|CENTER} RUN"NEWFILE" ,²ò¡¡Àâ{SIZE:100|CENTER} <¹ÔÈÖ¹æ>¤ò»ØÄꤹ¤ë¤È¡¢¤½¤Î¹Ô¤«¤é¼Â¹Ô¤¬»Ï¤Þ¤ê¤Þ¤¹¡£»ØÄê¤Î¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢ºÇ¤â¼ã¤¤¹ÔÈֹ椫¤é¼Â¹Ô¤¬»Ï¤Þ¤ê¤Þ¤¹¡£ <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤¬»ØÄꤵ¤ì¤ë¤È¡¢»ØÄꤵ¤ì¤¿¥×¥í¥°¥é¥à¤¬¥í¡¼¥É¸å¡¢¼Â¹Ô¤ò³«»Ï¤·¤Þ¤¹¡£<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>Ãæ¤Ç¥Ç¥Ð¥¤¥¹Ì¾¤ò¾Êά¤¹¤ë¤È¡¢¥«¥ì¥ó¥È¥É¥é¥¤¥Ö¤«¤é¥í¡¼¥É¤µ¤ì¤Þ¤¹¡£RUN¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤¹¤ë¤È¡¢¤¹¤Ù¤Æ¤Î³«¤¤¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¤ÏÊĤ¸¡¢ÌÜŪ¤Î¥×¥í¥°¥é¥à¤ò¥í¡¼¥É¤¹¤ëÁ°¤Ë¥á¥â¥ê¤ÎÆâÍƤ¬¥¯¥ê¥¢¤µ¤ì¤Þ¤¹¡£R¥ª¥×¥·¥ç¥ó¤òÉÕ¤±¤¿¾ì¹ç¤Ë¤Ï¡¢¤¹¤Ù¤Æ¤Î¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤Ï³«¤¤¤¿¤Þ¤Þ¤Ë¤Ê¤ê¤Þ¤¹¡£ ---- !SAVE {{anchor SAVE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥á¥â¥ê¤ÎBASIC¥×¥í¥°¥é¥à¤òÊݸ(¥»¡¼¥Ö)¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SAVE<¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>[,A] ,ʸ¡¡Îã{SIZE:100|CENTER} SAVE"A:COM2",A ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Õ¥¡¥¤¥ë¥¹¥Ú¥Ã¥¯>¤Ç»ØÄꤵ¤ì¤ë¥Õ¥¡¥¤¥ë¤Ë¥×¥í¥°¥é¥à¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£¥Ç¥Ð¥¤¥¹Ì¾¤ò¾Êά¤¹¤ë¤È¡¢¸½ºß»ÈÍѤ·¤Æ¤¤¤ë¥Ç¥£¥¹¥¯¥É¥é¥¤¥Ö(¥«¥ì¥ó¥È¥É¥é¥¤¥Ö)¤Ë½ÐÎϤµ¤ì¤Þ¤¹¡£¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤ËÊݸ¤¹¤ë¾ì¹ç¤Ï¡¢¥Õ¥¡¥¤¥ë̾¤Ï8ʸ»ú°Ê²¼¤Ç¡¢³ÈÄ¥»Ò¤Ï3ʸ»ú°ÊÆâ¤Ç»ØÄꤷ¤Þ¤¹¡£¤â¤·»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë̾¤¬¤¹¤Ç¤Ë¥Ç¥£¥¹¥¯¾å¤Ë¸ºß¤¹¤ë¾ì¹ç¤Ï¡¢¸Å¤¤¥Õ¥¡¥¤¥ë¤Ï¾Ãµî¤µ¤ì¡¢¿·¤·¤¤¤â¤Î¤ËÊѹ¹¤µ¤ì¤Þ¤¹¡£ A¥ª¥×¥·¥ç¥ó¤¬»ØÄꤵ¤ì¤¿¾ì¹ç¤Ë¤Ï¡¢¥×¥í¥°¥é¥à¤Ï¥¢¥¹¥­¡¼·Á¼°¤ÇÊݸ¤µ¤ì¡¢¥ª¥×¥·¥ç¥ó¤Î»ØÄ꤬¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢ÆâÉôɽ¸½·Á¼°(¥Ð¥¤¥Ê¥ê·Á¼°)¤Ë°µ½Ì¤µ¤ì¤Æ¥×¥í¥°¥é¥à¤ÎÊݸ¤¬¹Ô¤ï¤ì¤Þ¤¹¡£¥¢¥¹¥­¡¼·Á¼°¤ÎÊݸ¤Ï¡¢ÆâÉôɽ¸½·Á¼°¤è¤ê¤â¡¢Â¿¤¯¤Î¥Ç¥£¥¹¥¯¥¹¥Ú¡¼¥¹¤òɬÍפȤ·¤Þ¤¹¤¬¡¢Êݸ¤µ¤ì¤¿¥×¥í¥°¥é¥à¤Î¥Õ¥¡¥¤¥ë¤Ë¥í¡¼¥É°Ê³°¤ÎÁàºî¤ò²Ã¤¨¤ë¾ì¹ç¤Ë¤Ï¡¢¥¢¥¹¥­¡¼·Á¼°¤Ç¤Ê¤±¤ì¤Ð¼Â¹Ô¤Ç¤­¤Þ¤»¤ó¡£¤Þ¤¿¡¢¥¢¥¹¥­¡¼·Á¼°¤ÇÊݸ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Ï¡¢¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤È¤·¤ÆÆɤ߽Ф¹¤³¤È¤â¤Ç¤­¤Þ¤¹¡£ ¥«¥»¥Ã¥È¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤ÎÊݸ¤Ç¤Ï¡¢ÆâÉôɽ¸½(¥Ð¥¤¥Ê¥ê)·Á¼°¤Ç¤ÏCSAVE¡¢¥¢¥¹¥­¡¼·Á¼°¤Ç¤ÏSAVE¤È»È¤¤Ê¬¤±¤Þ¤¹¤¬¡¢¥Ç¥£¥¹¥¯¤ËÂФ·¤Æ¤ÏSAVE" "¤ÇÆâÉôɽ¸½·Á¼°¡¢SAVE" ",A¤Ç¥¢¥¹¥­¡¼·Á¼°¤È¤¤¤¦¤è¤¦¤Ë¡¢¥ª¥×¥·¥ç¥ó¤Ë¤è¤Ã¤Æ»È¤¤Ê¬¤±¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# LOAD,LOAD}}¡¢{{# CSAVE,CSAVE}}¡¢{{# MERGE,MERGE}} ---- !SCREEN {{anchor SCREEN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ²èÌ̤䥹¥×¥é¥¤¥È¤ÎÂ礭¤µ¤Ê¤É¤Ë¤Ä¤¤¤Æ¤ÎÀßÄê¤ò¹Ô¤¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SCREEN[<²èÌ̥⡼¥É>][,<¥¹¥×¥é¥¤¥È¥µ¥¤¥º>][,<¥­¡¼¥¯¥ê¥Ã¥¯¥¹¥¤¥Ã¥Á>][,<¥«¥»¥Ã¥È¥Ü¡¼¥ì¡¼¥È>][,<¥×¥ê¥ó¥¿¥ª¥×¥·¥ç¥ó>][,<¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É>] ,ʸ¡¡Îã{SIZE:100|CENTER} SCREEN 1,2 ,²ò¡¡Àâ{SIZE:100|CENTER} »ÈÍѤ¹¤ë²èÌ̤ò32¡ß24ʸ»ú¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤ËÀßÄꤷ¡¢¥¹¥×¥é¥¤¥ÈÌÏÍͤÎÂ礭¤µ¤ò16¡ß16¤ËÀßÄꤷ¤Þ¤¹¡£ºÇ½é¤ÎÃÍ(1)¤¬²èÌ̥⡼¥É¤ò¡¢¥«¥ó¥Þ¤Ë³¤¯¼¡¤ÎÃÍ(2)¤¬¥¹¥×¥é¥¤¥È¤ÎÂ礭¤µ¤òÀßÄꤷ¤Æ¤¤¤Þ¤¹¡£ ÀßÄê¤ò¹Ô¤¦¤Ë¤Ï¡¢°Ê²¼¤Î¹àÌܤÇÀâÌÀ¤·¤Æ¤¤¤ëÃͤòSCREEN¤Ë³¤±¤Æ»ØÄꤷ¤Þ¤¹¡£ '''¢£²èÌ̥⡼¥É''' 12¤Î²èÌ̥⡼¥É¤Î¤¦¤Á¤Î¤É¤ì¤ò»È¤¦¤«¤ò»ØÄꤷ¤Þ¤¹¡£²èÌ̤λØÄê¤ò¤·¤ÆSCREEN¤ò¼Â¹Ô¤¹¤ë¤È¡¢º£¤Þ¤Çɽ¼¨¤µ¤ì¤Æ¤¤¤¿²èÌ̤¬¾Ã¤¨¤Æ¡¢¿·¤·¤¤ÀßÄê¤È¤Ê¤ê¤Þ¤¹¡£¤¿¤À¤·¡¢SCREEN 10°Ê¾å¤Î¥â¡¼¥É¤Ç¤Ï¸ß¤¤¤ËÀÚ¤êÂؤ¨¤Æ¤â²èÌ̤νé´ü²½¤Ï¤·¤Þ¤»¤ó¡£SCREEN 9¤ÏÆüËܸì¥Ð¡¼¥¸¥ç¥ó¤Ç¤Ï»È¤¨¤Þ¤»¤ó¡£BASIC¤ò¥¹¥¿¡¼¥È¤·¤¿¤È¤­¤Ë¤Ï¡¢32¡ß24ʸ»ú¤Î²èÌ̤¬¼«Æ°Åª¤ËÁª¤Ð¤ì¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0} ,¥â¡¼¥É,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0} ,0 ,40¡ß24(¤Þ¤¿¤Ï80¡ß26)ʸ»ú¤Î¥Æ¥­¥¹¥È¥â¡¼¥É ,1 ,32¡ß24ʸ»ú¤Î¥Æ¥­¥¹¥È¥â¡¼¥É ,2 ,256¡ß192ÅÀ¤Î¹â²òÁüÅÙ¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,3 ,64¡ß48¥Ö¥í¥Ã¥¯¤ÎÄã²òÁüÅÙ¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,4 ,256¡ß192ÅÀ¤Î¹â²òÁüÅÙ¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,5 ,256¡ß212ÅÀ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,6 ,512¡ß212ÅÀ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,7 ,512¡ß212ÅÀ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,8 ,256¡ß212ÅÀ¤Î¥Ó¥Ã¥È¥Þ¥Ã¥×¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É ,9 ,ÆüËܸì¥Ð¡¼¥¸¥ç¥ó¤Ë¤Ï¤Ê¤¤ ,10 ,256¡ß212ÅÀ¤ÎRGB¡¢YJKº®ºß¥â¡¼¥É¡¢¥°¥é¥Õ¥£¥Ã¥¯¥ë¡¼¥Á¥ó½èÍý¤¢¤ê ,11 ,256¡ß212ÅÀ¤ÎRGB¡¢YJKº®ºß¥â¡¼¥É¡¢¥°¥é¥Õ¥£¥Ã¥¯¥ë¡¼¥Á¥ó½èÍý¤Ê¤· ,12 ,256¡ß212ÅÀ¤ÎYJK¥â¡¼¥É 0¡¢1¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤Ï¥×¥í¥°¥é¥à¤Î¥ê¥¹¥È¤òɽ¼¨¤µ¤»¤¿¤ê¤Ç¤­¤Þ¤¹¤¬¡¢Àþ¤ä³¨¤òÉÁ¤¯¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£2°Ê¹ß¤Ç¤Ï¤³¤ì¤È¤ÏµÕ¤Ë¤Ê¤ê¤Þ¤¹¡£0¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤Ï¡¢¥¹¥×¥é¥¤¥È¤òɽ¼¨¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£¤Þ¤¿¡¢2°Ê¹ß¤Î²èÌ̤ò»ØÄꤷ¤Æ¤â¡¢¥×¥í¥°¥é¥à¤¬½ªÎ»¤¹¤ë¤È¤¹¤°¤Ë¥Æ¥­¥¹¥È¥â¡¼¥É¤ËÌá¤Ã¤Æ¤·¤Þ¤·¤Þ¤¹¡£2°Ê¹ß¤Î²èÌ̤òɽ¼¨¤·Â³¤±¤¿¤¤¤È¤­¤Ë¤Ï¡¢Î㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£ 10 SCREEN 2 20 GOTO 20 ¤³¤Î¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤¹¤ë¤È¡¢2¤Î²èÌ̤¬É½¼¨¤µ¤ì³¤±¤Þ¤¹¡£ ¤½¤ì¤¾¤ì¤Î¥â¡¼¥É¤Ç»È¤¨¤ë¿§¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100},{BSIZE:0} ,0 ,16¥Ñ¥ì¥Ã¥ÈÃæ¤Î2¿§ ,1 ,16¥Ñ¥ì¥Ã¥ÈÃæ¤Î3¿§ ,"2¡Á5,7",16¥Ñ¥ì¥Ã¥È ,6 ,4¥Ñ¥ì¥Ã¥È ,8 ,256¿§¸ÇÄê ,"10,11",0¡Á15¤Î¥Ñ¥ì¥Ã¥È¤ª¤è¤ÓYJK ,12 ,YJK 1¤Ä¤Î¥Ñ¥ì¥Ã¥È¤Ë¤Ï¡¢512¿§¤ÎÃ椫¤é1¿§¤òÁª¤ó¤Ç³ä¤êÅö¤Æ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¥Ñ¥ì¥Ã¥È¤Î³ä¤êÅö¤Æ¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR=¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ MSX2+¤Ç¤Ï¥¹¥¯¥ê¡¼¥ó10¡¢11¡¢12¤¬Äɲ䵤ì¤Æ¤¤¤Þ¤¹¡£10¡¢11¤ÏRGB¡¢YJKº®ºß¥â¡¼¥É¤Ç¤¹¤¬¡¢10¤Î¾ì¹ç¤ÏLINEʸÅù¤Î¥°¥é¥Õ¥£¥Ã¥¯Ì¿Îá¤ò¼Â¹Ô¤¹¤ë¾ì¹ç¤Ë¡¢RGB¾å¤ÎÌ¿Îá¤È¤·¤Æ½èÍý¤·¡¢¥¢¥È¥ê¥Ó¥å¡¼¥È¥Ó¥Ã¥È¤ÎON/OFFÅù¤¬¹Í褵¤ì¤Þ¤¹¡£11¡¢12¤Ç¤Ï¤½¤Î¤è¤¦¤Ê½èÍý¤Ï°ìÀÚ¤¢¤ê¤Þ¤»¤ó¡£YJKÊý¼°¤Ë¤Ä¤¤¤Æ¤ÏVDP¤Îɽ¼¨¥â¡¼¥É¤Ë´Ø¤¹¤ëµ­½Ò¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ¤Þ¤¿¥¹¥×¥é¥¤¥È¤ÏSCREEN 4°Ê¹ß¤Ç¤Ï1¥é¥¤¥óËè¤Ë¿§¤òÉÕ¤±¤ë¤³¤È¤¬¤Ç¤­¡¢¿åÊ¿Àþ¾å¤Ë8¤Ä¤Þ¤Çʤ٤Æɽ¼¨¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹(COLOR SPRITE»²¾È)¡£ '''¢£¥¹¥×¥é¥¤¥È¤ÎÂ礭¤µ''' ¥¹¥×¥é¥¤¥È¤ò²èÌ̤Ëɽ¼¨¤¹¤ë¤È¤­¤ÎÂ礭¤µ¤òÀßÄꤷ¤Þ¤¹¡£¤Þ¤¿¡¢SPRITE$¤Ç¥¹¥×¥é¥¤¥È¤òºî¤ë¤È¤­¤Ë¤Ï¡¢¤³¤³¤Ç¤ÎÀßÄê¤ÈƱ¤¸Â礭¤µ¤Ë¤·¤Þ¤¹(SPRITE$»²¾È)¡£BASIC¤ò¥¹¥¿¡¼¥È¤µ¤»¤¿»þÅÀ¤Ç¤Ï¡¢¼«Æ°Åª¤Ë0¤¬ÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:100},{BSIZE:0} ,0,8¡ß8¤ÎÅÀ¤Ç¥¹¥×¥é¥¤¥È¤òºî¤ë ,1,8¡ß8¤ÎÅÀ¤Î¥¹¥×¥é¥¤¥È¤ò½Ä²£2Çܤˤ·¤Æɽ¼¨¤¹¤ë ,2,16¡ß16¤ÎÅÀ¤Ç¥¹¥×¥é¥¤¥È¤òºî¤ë ,3,16¡ß16¤ÎÅÀ¤Î¥¹¥×¥é¥¤¥È¤ò½Ä²£2Çܤˤ·¤Æɽ¼¨¤¹¤ë ²èÌ̥⡼¥É¤òÊѤ¨¤º¤Ë¡¢¥¹¥×¥é¥¤¥È¤ÎÂ礭¤µ¤À¤±¤òÀßÄꤹ¤ë¤Ë¤Ï¡¢Î㤨¤Ð¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£¤³¤Î¤È¤­¥¹¥×¥é¥¤¥È¤ÎºÂɸ¥Ç¡¼¥¿Åù¤Ï½é´ü²½¤µ¤ì¤Þ¤¹¡£ SCREEN ,2 SCREEN¤Ç¤Ï¡¢Â¾¤Ë3ÈÖÌÜ¡¢4ÈÖÌÜ¡¢5ÈÖÌÜ¡¢6ÈÖÌܤÎÃͤòÀßÄꤹ¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢°Ê²¼¤Î¤è¤¦¤ÊÀßÄê¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ '''ɽ2.12 SCREENʸ¤Î3¡Á6ÈÖÌܤΥѥé¥á¡¼¥¿''' ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80|TOP},{BSIZE:1 0|SIZE:150},{BSIZE:1 0|SIZE:150|TOP},{BSIZE:1 0|TOP} , ,°ÕÌ£,»ØÄꤹ¤ëÃÍ,È÷¹Í ,{c},{BSIZE:0|TOP},{BSIZE:0|TOP},{BSIZE:0|TOP},{BSIZE:0|TOP} ,3ÈÖÌÜ,¥­¡¼¤ò²¡¤·¤¿¤È¤­¤Ë²»¤ò½Ð¤¹¤«½Ð¤µ¤Ê¤¤¤«¤òÀßÄꤹ¤ë{ROWS:2},0=²»¤ò½Ð¤µ¤Ê¤¤,BASIC¥¹¥¿¡¼¥È»þ¤Ë¤Ï1¤ËÀßÄꤵ¤ì¤Æ¤¤¤ë{ROWS:2} , , ,1=²»¤ò½Ð¤¹ , ,4ÈÖÌÜ,¥×¥í¥°¥é¥à¤ò¥«¥»¥Ã¥È¤Ë¥»¡¼¥Ö¤¹¤ë¤È¤­¤Î¥Ü¡¼¥ì¡¼¥ÈÀßÄê{ROWS:2},1=1200bps,BASIC¥¹¥¿¡¼¥È»þ¤Ë¤Ï1¤ËÀßÄꤵ¤ì¤Æ¤¤¤ë{ROWS:2} , , ,2=2400bps, ,5ÈÖÌÜ,¤Ä¤Ê¤¬¤Ã¤Æ¤¤¤ë¥×¥ê¥ó¥¿¤¬MSXɸ½à¤Î¤â¤Î¤«¤É¤¦¤«¤ÎÀßÄê{ROWS:2},0=MSXɸ½à,0°Ê³°¤ò»ØÄꤹ¤ë¤È¡¢¥°¥é¥Õ¥£¥Ã¥¯Ê¸»ú¤Ï¶õÇò¡¢¤Ò¤é¤¬¤Ê¤Ï¥«¥¿¥«¥Ê¤ËÃÖ¤­´¹¤¨¤Æ°õ»ú¤µ¤ì¤ë¡£{ROWS:2} , , ,0°Ê³°=MSXɸ½à°Ê³°, ,6ÈÖÌÜ,¥¤¥ó¥¿¥ì¡¼¥¹¥â¡¼¥É¤ÎÀßÄê{ROWS:4},0=Ä̾ï ,MSX2°Ê¹ß¤Î¤ß²Äǽ¡£¥â¡¼¥É1¤ÏƱ¤¸¥Ú¡¼¥¸¤ÎÆâÍƤò¥¤¥ó¥¿¥ì¡¼¥¹É½¼¨¡£¥â¡¼¥É2¤Ï2¤Ä¤Î¥Ú¡¼¥¸¤ÎÆâÍƤòƱ°ì¥é¥¤¥ó¾å¤Ë¸ò¸ß¤Ëɽ¼¨¡£¥â¡¼¥É3¤Ï2¤Ä¤Î¥Ú¡¼¥¸¤ÎÆâÍƤò¥¤¥ó¥¿¥ì¡¼¥¹É½¼¨¡£¥â¡¼¥É2¤È3¤Ï¥Ç¥£¥¹¥×¥ì¥¤¥Ú¡¼¥¸¤¬´ñ¿ô¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£{ROWS:4} , , ,1=¥¤¥ó¥¿¥ì¡¼¥¹ , , , ,2=Even/Odd¸ò¸ß , , , ,3=Even/Odd¥¤¥ó¥¿¥ì¡¼¥¹, ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR,COLOR}}¡¢{{# COLOR SPRITE,COLOR SPRITE}}¡¢{{# CSAVE,CSAVE}}¡¢{{# SPRITE$,SPRITE$}} ---- !SET ADJUST ¡Ú2¡Û {{anchor SET ADJUST}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ²èÌ̤Îɽ¼¨°ÌÃÖ¤ò¾å²¼º¸±¦¤ËÄ´À°¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET ADJUST(,) ,ʸ¡¡Îã{SIZE:100|CENTER} SET ADJUST(4,4) ,²ò¡¡Àâ{SIZE:100|CENTER} Ä´À°¤·¤¿ÃͤϥХåƥ꡼¥Ð¥Ã¥¯¥¢¥Ã¥×¤µ¤ì¤¿SRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¡£X¡¢Y¤Ï¤½¤ì¤¾¤ì-8¡Á+7¤ÎÃͤǤ¹¡£ ---- !SET BEEP ¡Ú2¡Û {{anchor SET BEEP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} BEEP²»¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET BEEP<²»¿§>,<Â礭¤µ> ,ʸ¡¡Îã{SIZE:100|CENTER} SET BEEP 2,2 ,²ò¡¡Àâ{SIZE:100|CENTER} ÀßÄꤷ¤¿ÃͤϥХåƥ꡼¥Ð¥Ã¥¯¥¢¥Ã¥×¤µ¤ì¤¿SRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¡£<²»¿§>¡¢<Â礭¤µ>¤Ï¤½¤ì¤¾¤ì0¡Á3¤ÎÃͤǤ¹¡£ ---- !SET DATE ¡Ú2¡Û {{anchor SET DATE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <ÆüÉÕ>¤ò¸½ºß¤ÎÆüÉդȤ·¤ÆÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET DATE <ÆüÉÕ>[,A] ,ʸ¡¡Îã{SIZE:100|CENTER} SET DATE "90/01/01" ,²ò¡¡Àâ{SIZE:100|CENTER} ÀßÄꤷ¤¿ÃͤϥХåƥ꡼¥Ð¥Ã¥¯¥¢¥Ã¥×¤µ¤ì¤¿SRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¡£¥ª¥×¥·¥ç¥ó¤ÎA¤òÉÕ¤±¤ë¤È¡¢¤³¤ÎÆüÉդ˥¢¥é¡¼¥à¤¬ÀßÄꤵ¤ì¤Þ¤¹¡£<ÆüÉÕ>¤Ï¡¢¡Ö85/04/03¡×¤Î¤è¤¦¤Ëǯ·îÆü¤ò¥¹¥é¥Ã¥·¥å¤Ç¶èÀÚ¤ê¤Þ¤¹¡£·îÆü¤¬£±·å¤Î¾ì¹ç¤Ï04¤Î¤è¤¦¤Ë£²·å¤È¤·¤Þ¤¹¡£ ¥¢¥é¡¼¥à¤ÎÀßÄêÆü»þ¤Ë¤Ê¤Ã¤¿¤È¤­¤Ë¡¢²¿¤¬µ¯¤³¤ë¤«¤Ï³Æµ¡¼ï¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¡£ ---- !SET PAGE {{anchor SET PAGE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} VRAM¾å¤Ç¥Ú¡¼¥¸¥ó¥°¤ò¹Ô¤¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET PAGE <¥Ç¥£¥¹¥×¥ì¥¤¥Ú¡¼¥¸>,<¥¢¥¯¥Æ¥£¥Ö¥Ú¡¼¥¸> ,ʸ¡¡Îã{SIZE:100|CENTER} SET PAGE 0,1 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Ç¥£¥¹¥×¥ì¥¤¥Ú¡¼¥¸>¤È¤Ï¼ÂºÝ¤Ë¥â¥Ë¥¿¤Ëɽ¼¨¤µ¤ì¤ë¥Ú¡¼¥¸¤Ç¡¢<¥¢¥¯¥Æ¥£¥Ö¥Ú¡¼¥¸>¤Ï¥Ç¡¼¥¿¤¬½ñ¤­¹þ¤Þ¤ì¤ë¥Ú¡¼¥¸¤Ç¤¹¡£¥Ú¡¼¥¸¤òÀÚ¤êÂؤ¨¤Æ¤â¤½¤ÎÆâÍƤϽé´ü²½¤µ¤ì¤Þ¤»¤ó¡£¥Ú¡¼¥¸¤ÏSCREEN 5¤È6¤Ç¤Ï0¡Á3¡¢SCREEN 7°Ê¾å¤Ç¤Ï0¡Á1¤¬»ÈÍѤǤ­¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} ---- !SET PASSWORD ¡Ú2¡Û {{anchor SET PASSWORD}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Ñ¥¹¥ï¡¼¥É¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET PASSWORD<¥Ñ¥¹¥ï¡¼¥É> ,ʸ¡¡Îã{SIZE:100|CENTER} SET PASSWORD "sesame" ,²ò¡¡Àâ{SIZE:100|CENTER} ÅŸ»ON¤Î¤È¤­<¥Ñ¥¹¥ï¡¼¥É>¤òÆþÎϤ·¤Ê¤±¤ì¤Ð¤½¤Î¥·¥¹¥Æ¥à¤¬»È¤¨¤Ê¤¤¤è¤¦¤Ë¤·¤Þ¤¹¡£<¥Ñ¥¹¥ï¡¼¥É>¤Ï6ʸ»ú°ÊÆâ¤Ç¤¹¡£¤Ê¤ªÀßÄꤷ¤¿¥Ñ¥¹¥ï¡¼¥É¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¤È¤­¤Ê¤É¤Ï¡¢[GRAPH]¥­¡¼¤È[STOP]¥­¡¼¤ò²¡¤·¤Ê¤¬¤é¥ê¥»¥Ã¥È¤·¤Þ¤¹¡£¤³¤ÎÀßÄê¤ÏSRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¤¬¡¢SET PROMPT¤äSET TITLE¤ÇÀßÄꤹ¤ë¤Î¤ÈƱ¤¸¾ì½ê¤ò»È¤Ã¤Æ¤¤¤ë¤Î¤Ç¤³¤ì¤é¤ÎÀßÄê¤È¤Ï¶¦Â¸¤Ç¤­¤Þ¤»¤ó¡£ºÇ¸å¤ËÀßÄꤷ¤¿¤â¤Î¤À¤±¤¬Í­¸ú¤È¤Ê¤ê¤Þ¤¹¡£ÀßÄꤷ¤¿¥Ñ¥¹¥ï¡¼¥É¤ò̵¸ú¤Ë¤¹¤ë¤È¤­¤Ï¡¢ SET TITLE"" ¤ò¼Â¹Ô¤·¤Þ¤¹¡£¾Ü¤·¤¯¤ÏSET TITLE¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ---- !SET PROMPT ¡Ú2¡Û {{anchor SET PROMPT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥ó¥×¥È¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET PROMPT<¥×¥í¥ó¥×¥È> ,ʸ¡¡Îã{SIZE:100|CENTER} SET PROMPT"Ready" ,²ò¡¡Àâ{SIZE:100|CENTER} BASIC¤Î¥×¥í¥ó¥×¥È¡ÖOk¡×¤ò¹¥¤­¤Ê¤è¤¦¤ËÊѹ¹¤·¤Þ¤¹¡£<¥×¥í¥ó¥×¥È>¤Ï6ʸ»ú°ÊÆâ¤Ç¤¹¡£¤³¤ÎÀßÄê¤ÏSRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¤¬¡¢SET PASSWORD¤äSET TITLE¤ÇÀßÄꤹ¤ë¤Î¤ÈƱ¤¸¾ì½ê¤ò»È¤Ã¤Æ¤¤¤ë¤Î¤Ç¤³¤ì¤é¤ÎÀßÄê¤È¤Ï¶¦Â¸¤Ç¤­¤Þ¤»¤ó¡£ºÇ¸å¤ËÀßÄꤷ¤¿¤â¤Î¤À¤±¤¬Í­¸ú¤È¤Ê¤ê¤Þ¤¹¡£¥×¥í¥ó¥×¥È¤ÎÀßÄ̵꤬¸ú¤Ë¤Ê¤Ã¤¿¾ì¹ç¤Ï¡¢¥×¥í¥ó¥×¥È¤Ï¡ÖOk¡×¤È¤Ê¤ê¤Þ¤¹¡£ ---- !SET SCREEN ¡Ú2¡Û {{anchor SET SCREEN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¸½ºß¤ÎWIDTH¡¢SCREEN¤Î³Æ¥Ñ¥é¥á¡¼¥¿¤ò½é´üÃͤȤ·¤ÆÅÐÏ¿¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET SCREEN ,ʸ¡¡Îã{SIZE:100|CENTER} SET SCREEN ---- !SET SCROLL ¡Ú2+¡Û {{anchor SET SCROLL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥Ï¡¼¥É¥¦¥§¥¢¥¹¥¯¥í¡¼¥ë¤ò¹Ô¤¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET SCROLL [][,][,<º¸Ã¼¥Þ¥¹¥¯>][,<2¥Ú¡¼¥¸Ï¢Â³>] ,ʸ¡¡Îã{SIZE:100|CENTER} SET SCROLL 100,100,1,1 ,²ò¡¡Àâ{SIZE:100|CENTER} MSX2+ÀìÍÑÌ¿Îá¤Ç¡¢V9958¤Î¥Ï¡¼¥É¥¹¥¯¥í¡¼¥ë¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤Ï0¡Á511¡¢¤Ï0¡Á255¤Ç¤¹¡£<º¸Ã¼¥Þ¥¹¥¯>¤¬1¤Ê¤é²èÌ̤κ¸Ã¼8¥É¥Ã¥Èʬ¤Ïɽ¼¨¤»¤º¡¢0¤Ê¤éɽ¼¨¤·¤Þ¤¹¡£<2¥Ú¡¼¥¸Ï¢Â³>¤¬1¤Ê¤éϢ³¤¹¤ë2¥Ú¡¼¥¸(Î㤨¤Ð¡¢0¡¢1)¤ò²£¤Ë¤Ä¤Ê¤¬¤Ã¤¿1¥Ú¡¼¥¸¤È¤·¤Æ½èÍý¤·¡¢0¤Ê¤éñÆÈ¥Ú¡¼¥¸Æâ¤Î¥¹¥¯¥í¡¼¥ë¤À¤±¤È¤·¤Þ¤¹¡£2¥Ú¡¼¥¸Ï¢Â³¤Îɽ¼¨¤ò¹Ô¤¦¤È¤­¤Ïɽ¼¨¥Ú¡¼¥¸¤¬´ñ¿ô¥Ú¡¼¥¸¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£¥Ï¡¼¥É¥¹¥¯¥í¡¼¥ë¤ÏSCREEN 1°Ê¹ß¡¢2¥Ú¡¼¥¸Ï¢Â³¤Îɽ¼¨¤ÏSCREEN 5°Ê¹ß¤Ç¤Î¤ß²Äǽ¤Ç¤¹¡£ ---- !SET TIME ¡Ú2¡Û {{anchor SET TIME}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <»þ¹ï>¤ò¸½ºß¤Î»þ¹ï¤È¤·¤ÆÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET TIME <»þ¹ï>[,A] ,ʸ¡¡Îã{SIZE:100|CENTER} SET TIME"14:50:30" ,²ò¡¡Àâ{SIZE:100|CENTER} ÀßÄꤷ¤¿ÃͤϥХåƥ꡼¥Ð¥Ã¥¯¥¢¥Ã¥×¤µ¤ì¤¿SRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¡£¥ª¥×¥·¥ç¥ó¤ÎA¤òÉÕ¤±¤ë¤È¡¢¤³¤Î»þ¹ï¤Ë¥¢¥é¡¼¥à¤¬ÀßÄꤵ¤ì¤Þ¤¹¡£<»þ¹ï>¤Ï¡¢¡Ö11:20:03¡×¤ÎÍѤ˻þʬÉäò¥³¥í¥ó¤Ç¶èÀÚ¤ê¤Þ¤¹¡£»þ¹ï¤¬1·å¤Î¾ì¹ç¤Ï03¤ÎÍѤË2·å¤Ë¤·¤Þ¤¹¡£ ¥¢¥é¡¼¥à¤ÎÀßÄêÆü»þ¤Ë¤Ê¤Ã¤¿¤È¤­¤Ë¡¢²¿¤¬µ¯¤³¤ë¤«¤Ï³Æµ¡¼ï¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¡£ ---- !SET TITLE ¡Ú2¡Û {{anchor SET TITLE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ½é´ü²èÌ̤Υ¿¥¤¥È¥ë¤È¿§¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET TITLE<¥¿¥¤¥È¥ë>[,<¿§ÈÖ¹æ>] ,ʸ¡¡Îã{SIZE:100|CENTER} SET TITLE"MSX2+!" ,²ò¡¡Àâ{SIZE:100|CENTER} <¥¿¥¤¥È¥ë>¤Ï6ʸ»ú°ÊÆâ¤Ç¡¢¤Á¤ç¤¦¤É6ʸ»ú¤Î¤È¤­¤Ë¤Ï²¿¤«¥­¡¼¤ò²¡¤¹¤Þ¤Ç¥¿¥¤¥È¥ë¤Î¤Þ¤Þ¤Ë¤Ê¤ê¤Þ¤¹¡£<¿§ÈÖ¹æ>¤Ï1¡Á4¤Ç¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:2 0|SIZE:90},{BSIZE:2 0|SIZE:90} ,ÈÖ¹æ,¿§ ,{c},{BSIZE:0},{BSIZE:0} ,1,ÀÄ ,2,ÎÐ ,3,ÀÖ ,4,¥ª¥ì¥ó¥¸ ¤³¤ÎÀßÄê¤ÏSRAM¤Ëµ­²±¤µ¤ì¤Þ¤¹¤¬¡¢SET PASSWORD¤äSET PROMPT¤ÇÀßÄꤹ¤ë¤Î¤ÈƱ¤¸¾ì½ê¤ò»È¤Ã¤Æ¤¤¤ë¤Î¤Ç¤³¤ì¤é¤ÎÀßÄê¤È¤Ï¶¦Â¸¤Ç¤­¤Þ¤»¤ó¡£ºÇ¸å¤ËÀßÄꤷ¤¿¤â¤Î¤À¤±¤¬Í­¸ú¤È¤Ê¤ê¤Þ¤¹¡£ PASSWORD¡¢PROMPT¡¢TITLE¤Îµ¡Ç½¤ò»È¤ï¤Ê¤¤¤È¤­¤Ï¡¢ SET TITLE"" ¤ò¼Â¹Ô¤·¤Æ²¼¤µ¤¤¡£ ---- !SET VIDEO ¡Ú2¡Û {{anchor SET VIDEO}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¡¼¥Ñ¡¼¥¤¥ó¥Ý¡¼¥º¤Î¥â¡¼¥É¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SET VIDEO<¥â¡¼¥É>[,[,]] ,ʸ¡¡Îã{SIZE:100|CENTER} SET VIDEO 2 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥â¡¼¥É>¤Ï ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:90},{BSIZE:0} ,0,ÆâÉôƱ´ü¡¢¥³¥ó¥Ô¥å¡¼¥¿²èÌÌ ,1,³°ÉôƱ´ü¡¢¥³¥ó¥Ô¥å¡¼¥¿²èÌÌ ,2,³°ÉôƱ´ü¡¢¥¹¡¼¥Ñ¡¼¥¤¥ó¥Ý¡¼¥º ,3,³°ÉôƱ´ü¡¢³°Éô¥Ó¥Ç¥ª²èÌÌ ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£ ¤Ï¥â¥Ë¥¿¤Î²èÌÌÌ©Å٤ǡ¢0¤¬¥Î¡¼¥Þ¥ë¡¢1¤¬¥Ï¡¼¥Õ¥È¡¼¥ó¤Ç¤¹¡£¤ÏVDP¤Î¥«¥é¡¼¥Ð¥¹¤Î¥â¡¼¥É¤Ç¡¢0¤¬½ÐÎÏ¡¢1¤¬ÆþÎϥ⡼¥É¤È¤Ê¤ê¤Þ¤¹¡£ ¤³¤ÎÌ¿Îá¤Ï¡¢¥¹¡¼¥Ñ¡¼¥¤¥ó¥Ý¡¼¥ºµ¡Ç½¤¬Ìµ¤¤µ¡¼ï¤Ç¤Ï̵°ÕÌ£¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} ---- !SGN {{anchor SGN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÉä¹æ¤òÄ´¤Ù¡¢Àµ¤Î¿ô¤Ê¤é1¡¢0¤Ê¤é0¡¢Éé¤Î¿ô¤Ê¤é-1¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SGN(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT SGN(20) ¡Úɽ¼¨¡Û1 ---- !SIN {{anchor SIN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÀµ¸¹(¥µ¥¤¥ó)¤ò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SIN(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT SIN(3.1415927/2) ¡Úɽ¼¨¡Û1 ---- !SOUND {{anchor SOUND}} ,µ¡¡¡Ç½{SIZE:100|CENTER} PSG¤ËľÀÜ»ØÄꤷ¤Æ²»¤ò½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SOUND<¥ì¥¸¥¹¥¿ÈÖ¹æ>,<¥Ç¡¼¥¿> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 'ŽÁŽ¬ŽÝŽÈŽÙA 20 SOUND 0,254 30 SOUND 1,0 40 SOUND 8,8 50 'ŽÁŽ¬ŽÝŽÈŽÙB 60 SOUND 2,250 70 SOUND 3,0 80 SOUND 9,16 90 'ŽÁŽ¬ŽÝŽÈŽÙC 100 SOUND 6,4 110 SOUND 10,4 120 'Ž·Ž®Ž³ŽÂŽ³ 130 SOUND 7,&B011100 140 SOUND 11,172 150 SOUND 12,13 160 SOUND 13,12 ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤Î¥×¥í¥°¥é¥à¤Ï¡¢¥Á¥ã¥ó¥Í¥ëA¡¢B¤«¤é²»¤ò½Ð¤·¡¢¥Á¥ã¥ó¥Í¥ëC¤«¤é¤Ï¥Î¥¤¥º¤ò½Ð¤¹¤â¤Î¤Ç¤¹¡£¥Á¥ã¥ó¥Í¥ëA¤ÈC¤Î²»Î̤ϰìÄê¤Ç¤¹¤¬¡¢¥Á¥ã¥ó¥Í¥ëB¤Ç¤ÏÇÈ·Á¤Ë¤è¤Ã¤Æ²»Î̤¬ÊѤï¤ë¤è¤¦¤Ë»ØÄꤷ¤Æ¤¤¤Þ¤¹¡£²»¤ò»ß¤á¤ë¤Ë¤Ï¡¢[CTRL]¥­¡¼¤ò²¡¤·¤Ê¤¬¤é[STOP]¥­¡¼¤ò²¡¤¹¤«¡¢¼¡¤Î¤è¤¦¤ËÂǤÁ¹þ¤ó¤Ç¤½¤ì¤¾¤ì¥ê¥¿¡¼¥ó¥­¡¼¤ò²¡¤·¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:150},{BSIZE:0} SOUND 8,0 ¥Á¥ã¥ó¥Í¥ëA¤Î²»¤¬»ß¤Þ¤ë¡£ SOUND 9,0 ¥Á¥ã¥ó¥Í¥ëB¤Î²»¤¬»ß¤Þ¤ë¡£ SOUND 10,0 ¥Á¥ã¥ó¥Í¥ëC¤Î²»¤¬»ß¤Þ¤ë¡£ SOUND¤Ç¤Ï¡¢A¡¢B¡¢C¤Î»°¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤´¤È¤ËºÙ¤«¤Ê»ØÄê¤ò¤·¤Æ¡¢³Æ¼«¤¢¤ë¤¤¤ÏƱ»þ¤Ë²»¤ò½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£»ØÄê¤Ï¼¡¤Î·Á¤Ç¹Ô¤¤¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0} ,,"SOUND ¥ì¥¸¥¹¥¿ÈÖ¹æ,¥Ç¡¼¥¿" ¥ì¥¸¥¹¥¿(SOUNDÍѤÎÆÃÊ̤Υá¥â¥ê)¤Ï0¡Á13¤Þ¤Ç¤¢¤ê¡¢ÈÖ¹æ¤Ë±þ¤¸¤Æ¤½¤ì¤¾¤ì¤Îµ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢SOUND¤Ç¤Ï¹Ô¤ï¤»¤¿¤¤µ¡Ç½¤Ë±þ¤¸¤Æ¥ì¥¸¥¹¥¿¤òÁªÂò¤·¤Þ¤¹¡£ ¥Ç¡¼¥¿¤Ï¡¢¤½¤ì¤¾¤ì¤Î¥ì¥¸¥¹¥¿¤Î¾ðÊó¤È¤Ê¤ë¤â¤Î¤Ç¤¹¡£¥Ç¡¼¥¿¤Ï¥ì¥¸¥¹¥¿¤´¤È¤Ë1¤Ä¤º¤Ä»ØÄꤷ¤Þ¤¹¡£ 3¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤Ç»È¤¦¥ì¥¸¥¹¥¿¤òµ¡Ç½Ê̤˼¨¤·¤Þ¤¹¡£ '''ɽ2.13 SOUNDÌ¿Îá¤Î¥ì¥¸¥¹¥¿ÈÖ¹æ''' ,{t},{BSIZE:2 0} ,{c},{BSIZE:0|SIZE:100},{BSIZE:0|SIZE:70},{BSIZE:0|SIZE:120},{BSIZE:0|SIZE:120},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:80},{BSIZE:0|SIZE:80} ,¥Á¥ã¥ó¥Í¥ë,¼þÇÈ¿ô,¥Î¥¤¥º¼þÇÈ¿ô,¥Á¥ã¥ó¥Í¥ëÀßÄê,²»ÎÌ,ÇÈ·Á¼þ´ü,ÇÈ·Á·Á¾õ ,{c},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0} ,A{ROWS:2},0,6{ROWS:2},7{ROWS:2},8{ROWS:2} ,11,13{ROWS:2} ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} , ,1, , , ,12, ,{c},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0} ,B{ROWS:2},2,6{ROWS:2},7{ROWS:2},9{ROWS:2} ,11,13{ROWS:2} ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} , ,3, , , ,12, ,{c},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0},{BSIZE:1 0 0 0} ,B{ROWS:2},4,6{ROWS:2},7{ROWS:2},10{ROWS:2},11,13{ROWS:2} ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} , ,5, , , ,12, SOUND¤Ç²»¤ò½Ð¤¹¤È¤­¤Ëɬ¤º»ØÄꤷ¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¤Î¤Ï¡¢¥Á¥ã¥ó¥Í¥ëÀßÄê¡¢²»ÎÌ¡¢¤½¤ì¤Ë¼þÇÈ¿ô¤Þ¤¿¤Ï¥Î¥¤¥º¼þÇÈ¿ô¤Ç¤¹¡£ ¼¡¤Ë³Æ¥ì¥¸¥¹¥¿¤Îµ¡Ç½¤ò¤Þ¤È¤á¤Æ¤ß¤Þ¤¹¡£ '''ɽ2.13 SOUNDÌ¿Îá¤Î¥ì¥¸¥¹¥¿ÈÖ¹æ''' ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:100},{BSIZE:1 0} ,¥ì¥¸¥¹¥¿,µ¡Ç½ ,{c},{BSIZE:0},{BSIZE:0} ,0¡¢1 ,¥Á¥ã¥ó¥Í¥ëA¤Î¼þÇÈ¿ô¤ò2¤Ä¤Î¥ì¥¸¥¹¥¿¤ò»È¤Ã¤Æ»ØÄꤹ¤ë ,2¡¢3 ,¥Á¥ã¥ó¥Í¥ëB¤Î¼þÇÈ¿ô¤ò2¤Ä¤Î¥ì¥¸¥¹¥¿¤ò»È¤Ã¤Æ»ØÄꤹ¤ë ,4¡¢5 ,¥Á¥ã¥ó¥Í¥ëC¤Î¼þÇÈ¿ô¤ò2¤Ä¤Î¥ì¥¸¥¹¥¿¤ò»È¤Ã¤Æ»ØÄꤹ¤ë ,6 ,¥Î¥¤¥º¤Î¼þÇÈ¿ô¤ò»ØÄꤹ¤ë ,7 ,¤É¤Î¥Á¥ã¥ó¥Í¥ë¤«¤é²»¤¢¤ë¤¤¤Ï¥Î¥¤¥º¤ò½Ð¤¹¤«¤ò»ØÄꤹ¤ë ,8¡¢9¡¢10,²»Î̤λØÄê¤È¡¢ÇÈ·Á¤ò»È¤¦¤«¤É¤¦¤«¤Î»ØÄê¤ò¹Ô¤¦ ,11¡¢12 ,ÇÈ·Á¤Î¼þ´ü¤ò2¤Ä¤Î¥ì¥¸¥¹¥¿¤ò»È¤Ã¤Æ»ØÄꤹ¤ë ,13 ,ÇÈ·Á¤Î·Á¾õ¤ò»ØÄꤹ¤ë '''¢£¼þÇÈ¿ô¤ÎÀßÄê''' ³Æ¥Á¥ã¥ó¥Í¥ë¤Î¼þÇÈ¿ô {{chart {\rm f_T} }} ¤ËÂбþ¤¹¤ë¥ì¥¸¥¹¥¿¤ÎÃÍ ( {{chart {\rm T_P} }} ) ¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¤·¤Æµá¤á¤é¤ì¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm T_P=f_{clock}/16 \times f_T } }}{COLS:2} ,,{{chart {\rm f_{clock} }},{{chart {\rm 1.78977MHz(1.78977\times10^6) } }} ,,{{chart {\rm f_T }},¼þÇÈ¿ô Î㤨¤Ð¡¢440Hz¤Î¼þÇÈ¿ô¤ò½Ð¤·¤¿¤È¤­¤Ï¡¢Àè¤Î¼°¤Î{{chart {\rm f_T} }}¤Ë440¤ò¤¢¤Æ¤Ï¤á¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm T_P=1.78977 \times 10^6/16 \times 440 }} ,,{{chart {\rm T_P= }}Ìó254 ¤³¤Î{{chart {\rm T_P} }}¤ÎÃͤò256¤Ç³ä¤Ã¤¿Åú¤¨¤¬¥ì¥¸¥¹¥¿1¡¢3¡¢5¤ÎÃÍ¡¢Í¾¤ê¤¬¥ì¥¸¥¹¥¿0¡¢2¡¢4¤ÎÃͤˤʤê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,,254/256,¡¦¡¦¡¦Åú¡¡(¤³¤Î¾ì¹ç¡¢0) ,¥ì¥¸¥¹¥¿1¡¢3¡¢5¤Ø¤ÎÃÍ ,, ,¡¦¡¦¡¦Í¾¤ê(¤³¤Î¾ì¹ç¡¢254),¥ì¥¸¥¹¥¿0¡¢2¡¢4¤Ø¤ÎÃÍ Í¾¤ê¤òµá¤á¤ë¤Ë¤ÏBASIC¤ÎMOD¤ò»È¤Ã¤Æ¼¡¤Î¤è¤¦¤Ë»ØÄꤹ¤ë¤È´Êñ¤Ç¤¹¡£ PRINT 254 MOD 256 ¤Þ¤¿¡¢{{chart {\rm T_P} }}¤ÎÃͤ¬32767¤ò±Û¤¨¤ë¾ì¹ç¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£(Î㤨¤Ð¡¢32768)¡£ PRINT 32768-INT(32768/256)*256 ¥Á¥ã¥ó¥Í¥ëA¤Ë¤³¤ì¤é¤Î¼þÇÈ¿ô¤ò»ØÄꤹ¤ë¤È¤­¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£ SOUND 0,254 SOUND 1,0 ¥Ç¡¼¥¿¤¬0¤Î¤È¤­¤Ë¤â¡¢Á°¤Ë»ØÄꤷ¤¿Ãͤ¬»Ä¤Ã¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ë¤Î¤Ç¡¢É¬¤º»ØÄê¤ò¹Ô¤¦¤è¤¦¤Ë¤·¤Þ¤¹¡£ '''¢£¥Î¥¤¥º¼þÇÈ¿ô¤ÎÀßÄê''' ¥Î¥¤¥º¼þÇÈ¿ô{{chart {\rm T_N} }}¤ËÂбþ¤¹¤ë¥ì¥¸¥¹¥¿¤ÎÃÍ({{chart {\rm N_P} }}¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¤·¤Æµá¤á¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm N_P=f_{clock}/16 \times f_N } }}{COLS:2} ,,{{chart {\rm f_{clock} }},{{chart {\rm 1.78977MHz(1.78977\times10^6) } }} ,,{{chart {\rm f_N }},¥Î¥¤¥º¼þÇÈ¿ô(Hz) ,,{{chart {\rm N_P }},¥ì¥¸¥¹¥¿6¤Ë»ØÄꤹ¤ëÃÍ 30KHz¤Î¥Î¥¤¥º¤ò½ÐÎϤ¹¤ë¤Ë¤Ï¡¢¾å¤Î¼°¤Î{{chart {\rm F_N} }}¤Ë30¤ò¤¢¤Æ¤Ï¤á¤Æ¡¢ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm N_P=1.78977 \times 10^6/16(30 \times 10^3) }} ,,{{chart {\rm N_P= }}Ìó4 ¥ì¥¸¥¹¥¿6¤ØÆþ¤ì¤ëÃͤϡ¢4¤È¤Ê¤ê¤Þ¤¹¡£SOUND¤Ç»ØÄꤹ¤ë¤Ë¤Ï¼¡¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£ SOUND 6,4 ¥ì¥¸¥¹¥¿6¤Ï¡¢»°¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤Ç¶¦Ä̤Ǥ¹¡£ '''¢£¥Á¥ã¥ó¥Í¥ë¤ÎÀßÄê''' ¤É¤Î¥Á¥ã¥ó¥Í¥ë¤«¤é²»¤¢¤ë¤¤¤Ï¥Î¥¤¥º¤ò½Ð¤¹¤Î¤«¤ò»ØÄꤷ¤Þ¤¹¡£»ØÄê¤Ï¥Á¥ã¥ó¥Í¥ë¤ËÂбþ¤¹¤ë¥Ó¥Ã¥È¤ò0¤Ë¤·¤Þ¤¹¡£ {{svg ¿Þ2.16.svg}} '''¿Þ2.16 SOUNDʸ¤Î¥Á¥ã¥ó¥Í¥ëÀßÄê''' Î㤨¤Ð¡¢¥Á¥ã¥ó¥Í¥ëA¤«¤é²»¤È¥Î¥¤¥º¤ò½Ð¤·¡¢¥Á¥ã¥ó¥Í¥ëB¤«¤é²»¤ò½Ð¤¹¤È¤¤¤¦»ØÄê¤ò¤¹¤ë¤È¤­¤ÎÃͤÏ&B110100¤È¤Ê¤ê¤Þ¤¹¡£ SOUND¤Ç»ØÄꤹ¤ë¤È¡¢¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ SOUND 7,&B110100 ¥ì¥¸¥¹¥¿7¤Î¥Á¥ã¥ó¥Í¥ë»ØÄê¤Î¾ì¹ç¡¢¤³¤Î¤è¤¦¤Ë2¿Ê¿ô¤Ç»ØÄꤷ¤¿Êý¤¬¤ï¤«¤ê¤ä¤¹¤¯´Êñ¤Ç¤¹¡£ '''¢£²»ÎÌÀßÄê''' ²»Î̤ÎÀßÄê¤Ç¤Ï¡¢²»¤ÎÂ礭¤µ¤È²»Î̤òÇÈ·Á¤Ë±þ¤¸¤ÆÊѲ½¤µ¤»¤ë¤«¤É¤¦¤«¤Î»ØÄê¤ò¹Ô¤¤¤Þ¤¹¡£ ²»Î̤ϡ¢0¡Á15¤ÎÃͤǻØÄꤷ¤Þ¤¹¡£15¤Î¤È¤­ºÇÂç²»Î̤Ȥʤꡢ0¤Î¤È¤­¤Ë¤Ï¡¢²»¤¬¤Ç¤Þ¤»¤ó¡£ ²»Î̤òÇÈ·Á¤ÇÊѲ½¤µ¤»¤ë¤È¤­¤Ë¤Ï16¤ò»ØÄꤷ¤Þ¤¹¡£ ¥Á¥ã¥ó¥Í¥ëB¤ÇÇÈ·ÁÊѲ½¤ò¹Ô¤¦¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£ SOUND 9,16 '''¢£ÇÈ·Á¼þ´ü¤ÎÀßÄê''' {{svg ¿Þ2.17.svg}} '''¿Þ2.17 ÇÈ·Á¼þ´ü¤ÎÀßÄê''' ÇÈ·Á¤Î¼þ´ü{{chart {\rm E_P} }}¤Ï¼¡¤Î¤è¤¦¤Ë¤·¤Æµá¤á¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm E_P=f_{clock} \times T_E / 256 } }}{COLS:2} ,,{{chart {\rm f_{clock} }},{{chart {\rm 1.78977MHz(1.78977\times10^6) } }} ,,{{chart {\rm T_E }},²»¤¬Áý²Ã¡¦¸º¾¯¤¹¤ë¼þ´ü(ÉÃ) ,,{{chart {\rm E_P }},¼þ´ü Î㤨¤Ð¡¢²»¤ÎÇȤ¬¸º¾¯¤·¤Æ0¤Ë¤Ê¤ë¤Þ¤Ç¤Î»þ´Ö¤ò2Éäˤ¹¤ë¤È¤·¤Þ¤¹¡£¤½¤Î¤È¤­¤Ë»ØÄꤹ¤ëÃͤϼ¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0} ,,{{chart {\rm E_P=1.78977 \times 10^6/16 \times 2/256 }} ,,{{chart {\rm E_P= }}Ìó14000 ¤³¤ÎÃͤò256¤Ç³ä¤Ã¤¿¤È¤­¤ÎÅú¤¨¤¬¥ì¥¸¥¹¥¿12¤Ø¤ÎÃÍ¡¢Í¾¤ê¤¬¥ì¥¸¥¹¥¿11¤Ø¤ÎÃͤǤ¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0|SIZE:100},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,,14000/256,¡¦¡¦¡¦Åú¡¡(¤³¤Î¾ì¹ç¡¢54) ,¥ì¥¸¥¹¥¿12¤Ø¤ÎÃÍ ,, ,¡¦¡¦¡¦Í¾¤ê(¤³¤Î¾ì¹ç¡¢176) ,¥ì¥¸¥¹¥¿11¤Ø¤ÎÃÍ Í¾¤ê¤òµá¤á¤ë¤Ë¤ÏBASIC¤ÎMOD¤ò»È¤Ã¤Æ¼¡¤Î¤è¤¦¤Ë»ØÄꤹ¤ë¤È´Êñ¤Ç¤¹¡£ PRINT 14000 MOD 256 ¤Þ¤¿¡¢{{chart {\rm E_P} }}¤ÎÃͤ¬32767¤ò±Û¤¨¤ë¾ì¹ç¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë»ØÄꤷ¤Þ¤¹¡£(Î㤨¤Ð¡¢32768)¡£ PRINT 32768-INT(32768/256)*256 ¤³¤ÎÃͤòSOUND¤Ç»ØÄꤹ¤ë¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£ SOUND 11,1764 SOUND 12,54 ÇÈ·Á¤Î¼þÇÈ¿ô¤Ï»°¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤Ç¶¦Ä̤Υ쥸¥¹¥¿¤Ë»ØÄꤷ¤Þ¤¹¡£ '''¢£ÇÈ·Á¤Î·Á¾õ¤ÎÀßÄê''' ÇÈ·Á¤Î·Á¤Ë¤Ï¼¡¤Î¿Þ¤Î¤è¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤¹¡£ {{svg ¿Þ2.18.svg}} '''¿Þ2.18 ÇÈ·Á·Á¾õ¤ÎÀßÄê''' ¤³¤ÎÃ椫¤éÁª¤ó¤ÇÃͤò»ØÄꤷ¤Þ¤¹¡£ÃÍ12¤ÎÇÈ·Á¤ò»ØÄꤹ¤ë¤Ë¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£ SOUND 13,12 ÇÈ·Á¤Î·Á¤Ï»°¤Ä¤Î¥Á¥ã¥ó¥Í¥ë¤Ç¶¦Ä̤Υ쥸¥¹¥¿¤Ë»ØÄꤷ¤Þ¤¹¡£ ---- !SPACE$ {{anchor SPACE$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿¿ô¤Î¶õÇò¤«¤é¤Ê¤ëʸ»úÎó¤òºî¤ê¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SPACE$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="MSX" 20 B$=SPACE$(5) 30 PRINT A$+B$+A$:END ¡Úɽ¼¨¡ÛMSX MSX ---- !SPC {{anchor SPC}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤷ¤¿¿ô¤À¤±¶õÇò¤òɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SPC(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT SPC(10);"TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} TAB¤Î¾ì¹ç¤Ï²èÌ̤κ¸Ã¼¤«¤é¿ô¤¨¤Æ¶õÇò¤òɽ¼¨¤·¤Þ¤¹¤¬¡¢SPC¤Ï»ØÄꤵ¤ì¤¿°ÌÃÖ¤«¤é¶õÇò¤òɽ¼¨¤·¤Þ¤¹¡£SPC¤Ç»ØÄê¤Ç¤­¤ëÃͤϡ¢0¤«¤é255¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SPACE$,SPACE$}}¡¢{{# TAB,TAB}} ---- !SPRITE$ {{anchor SPRITE$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¤Çɽ¼¨¤¹¤ë¥Ñ¥¿¡¼¥ó¤òÄêµÁ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SPRITE$(<¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥óÈÖ¹æ>) ,ʸ¡¡Îã1{SIZE:100|CENTER} 10 SCREEN 1,0 20 FOR I=1 TO 8 30 READ A$:B$=B$+CHR$(VAL("&B"+A$)) 40 NEXT I 50 SPRITE$(0)=B$ 60 PUT SPRITE0,(128,96),3,0 100 DATA 00010000 110 DATA 00111000 120 DATA 01111100 130 DATA 11111110 140 DATA 11111110 150 DATA 00010000 160 DATA 00010000 170 DATA 00010000 ,²ò¡¡Àâ{SIZE:100|CENTER} SPRITE$¤Î»ØÄê¤Ï¼¡¤Î·Á¤Ç¹Ô¤¤¤Þ¤¹¡£ ,{t},{BSIZE:0} ,{c},{BSIZE:0|SIZE:50},{BSIZE:0} ,,SPRITE$(¥¹¥×¥é¥¤¥ÈÈÖ¹æ)=ʸ»úÎó¥Ç¡¼¥¿ ¥¹¥×¥é¥¤¥ÈÈÖ¹æ¤Ï¡¢SCREEN¤Ç¥¹¥×¥é¥¤¥È¥µ¥¤¥º¤ò0¤«1¤Ë»ØÄꤷ¤Æ¤¤¤ë¤È¤­¤Ë¤Ï0¡Á255¡¢¥¹¥×¥é¥¤¥È¥µ¥¤¥º¤ò2¤«3¤Ë»ØÄꤷ¤Æ¤¤¤ë¤È¤­¤Ë¤Ï0¡Á63¤ÎÃͤòÉÕ¤±¤Þ¤¹¡£ ¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤Ï¡¢SCREEN¤Î¥¹¥×¥é¥¤¥È¥µ¥¤¥º¤Î»ØÄê¤ò0¤«1¤Ë¤·¤Æ¤¤¤ë¤È¤­¤Ï8¡ß8¤ÎÅÀ¡¢2¤«3¤Ë¤·¤Æ¤¤¤ë¤È¤­¤Ë¤Ï16¡ß16¤ÎÅÀ¤Çºî¤ê¤Þ¤¹¡£Î㤨¤Ð¡¢¾å¤ÎÎã¤Ç¤Ï¡¢10¹Ô¤ÇSCREEN 1,0¤È»ØÄꤷ¤Æ¤¤¤ë¤Î¤Ç¡¢¥¹¥×¥é¥¤¥È¤Ï¡¢8¡ß8¤ÎÂ礭¤µ¤Ë¤Ê¤ê¤Þ¤¹¡£ ¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤òÄêµÁ¤¹¤ë¤È¤­¤Ë¤Ï¡¢¾å¤ÎÎã¤Î¤è¤¦¤Ë0¤È1¤È¤Çɽ¤·¤¿DATA¤ò»È¤¦¤È¤ï¤«¤ê¤ä¤¹¤¤¤â¤Î¤Ë¤Ê¤ê¤Þ¤¹¡£1¤Î¤È¤³¤í¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¤ëÉôʬ¤Ç¡¢0¤Î¤È¤³¤í¤Ïɽ¼¨¤µ¤ì¤Þ¤»¤ó¡£¥Ñ¥¿¡¼¥ó¤ÎÄêµÁ¤Ï¡¢1¥Ð¥¤¥È¤º¤Ä¹Ô¤ï¤ì¤Þ¤¹¡£ 100¹Ô¤«¤é170¹Ô¤Ï¡¢1¹Ô¤¬1¥Ð¥¤¥Èʬ¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢¾å¤«¤é½çÈÖ¤Ëʸ»úÊÑ¿ô¤ËÂåÆþ¤·¤Æ¤¤¤­¡¢8¤Ä¤È¤âÂåÆþ¤µ¤ì¤ë¤È¡¢¤½¤Îʸ»úÊÑ¿ô¤ÎÃͤϥ¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤òɽ¤¹¤â¤Î¤È¤Ê¤ê¤Þ¤¹¡£ ¾å¤ÎÎã¤Ç¤Ï30¹Ô¤Ç¥Ç¡¼¥¿Ê¸¤«¤é¡¢A$¤ËÃͤòÆɤ߹þ¤ß¡¢¤µ¤é¤ËA$¤ÎÃͤ¬É½¤¹¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤Îʸ»ú¤òB$¤ËÆþ¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤Î¹Ô¤ÇA$¤ò¡¢"&B"+A$¤È¤·¤Æ2¿Ê¿ô¤È¤·¤Æ°·¤¦¤Î¤Ï¡¢100¹Ô¤«¤é170¹Ô¤Ç»ØÄꤷ¤Æ¤¤¤ë¥Ç¡¼¥¿¤¬2¿Ê¿ô¤ËÁêÅö¤¹¤ë¤â¤Î¤À¤«¤é¤Ç¤¹¡£20¹Ô¤Î»ØÄê¤ÇB$¤Ë¤Ï100¹Ô¤«¤é170¹Ô¤Î8Îó¤Î¥Ç¡¼¥¿¤¬Æþ¤ì¤é¤ì¤Þ¤¹¡£¤³¤ÎB$¤ÎÃͤ¬¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤òɽ¤¹¤â¤Î¤Ç¤¹¡£50¹Ô¤Ç¡¢¥¹¥×¥é¥¤¥ÈÈÖ¹æ0È֤Ȥ·¤ÆB$¤ÎÃͤòÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£60¹Ô¤Î¥¹¥×¥é¥¤¥È¤Îɽ¼¨¤ÎÊýË¡¤Ë¤Ä¤¤¤Æ¤Ï¡¢PUT SPRITE¤ò¸«¤Æ¤¯¤À¤µ¤¤¡£ ¾å¤ÎÎã¤Î10¹Ô¤òSCREEN 1,1¤ÎÍѤËÊѤ¨¤ë¤È¡¢É½¼¨¤µ¤ì¤ë¥¹¥×¥é¥¤¥È¤¬ÇܤÎÂ礭¤µ¤Ë¤Ê¤ê¤Þ¤¹¡£ ,ʸ¡¡Îã2{SIZE:100|CENTER} 10 SCREEN 1,3 20 FOR I=1 TO 16 30 READ D$ 40 A$=A$+CHR$(VAL("&B"+LEFT$(D$,8))) 50 B$=B$+CHR$(VAL("&B"+RIGHT$(D$,8))) 60 NEXT I 70 SPRITE$(0)=A$+B$ 80 PUT SPRITE0,(128,96),8 100 DATA 0000000000011110 110 DATA 0000100000101001 120 DATA 0001011110101101 130 DATA 0001111111111001 140 DATA 0011111011111111 150 DATA 0001111111111000 160 DATA 0000001111111000 170 DATA 0000011111110000 180 DATA 0000001111100010 190 DATA 0000000111100100 200 DATA 1100001111100100 210 DATA 0011111111110010 220 DATA 0000001111110010 230 DATA 0000001111110010 240 DATA 0000000111111100 250 DATA 0000011111110000 ¤³¤Î¤è¤¦¤Ë¡¢SCREEN¤Î¥¹¥×¥é¥¤¥È¥µ¥¤¥º¤Î»ØÄ꤬2¤«3¤È¤¹¤ë¤È¡¢16¡ß16¤ÎÅÀ¤Ç¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤òºî¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¤È¤­Ãí°Õ¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¤Î¤¬¡¢¥Ç¡¼¥¿¤òÂåÆþ¤·¤Æ¤¤¤¯½çÈ֤Ǥ¹¡£ ¥Ç¡¼¥¿¤Ï¡¢¤Þ¤ºº¸Â¦¤Î8¤Ä(1¥Ð¥¤¥È)¤¬¾å¤«¤é½çÈ֤ˡ¢°ìÈÖ²¼¤Þ¤ÇÄêµÁ¤µ¤ì¤Þ¤¹¡£¤³¤Î»þÅÀ¤Ç16¸Ä¤Î¥Ç¡¼¥¿(1¥Ð¥¤¥Èñ°Ì¤Ç)¤¬ÄêµÁ¤µ¤ì¤¿¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¼¡¤Ë¡¢º£Å٤ϱ¦Â¦¤Î8¤Ä¤¬¾å¤«¤é½çÈ֤ˡ¢°ìÈÖ²¼¤Þ¤ÇÄêµÁ¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ç¹ç·×32¸Ä¤Î¥Ç¡¼¥¿¤¬ÄêµÁ¤µ¤ì¡¢16¡ß16¤Î¥Ñ¥¿¡¼¥ó¤òÄêµÁ¤·¤¿¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤½¤Î¤¿¤áʸ»úÊÑ¿ô¤Ï¡¢º¸Â¦ÍѤΤâ¤Î(A$)¤È±¦Â¦ÍÑ(B$)¤Î¤â¤Î2¤ÄÍÑ°Õ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£70¹Ô¤Ç¤³¤ì¤é¤Î¥Ç¡¼¥¿¤ò¹ç¤ï¤»¤Æ¡¢1¤Ä¤Î¥Ñ¥¿¡¼¥ó¤ò¥¹¥×¥é¥¤¥È¤È¤·¤ÆÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£ SCREEN 4°Ê¹ß¤ÎSPRITE¤Ç¤Ï¡¢1¥é¥¤¥óËè¤Ë¿§¤òÉÕ¤±¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤ÏCOLOR SPRITE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR SPRITE,COLOR SPRITE}}¡¢{{# PUT SPRITE,PUT SPRITE}} ---- !SPRITE ON/OFF/STOP {{anchor SPRITE ON}}{{anchor SPRITE OFF}}{{anchor SPRITE STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¥¸¥ã¥ó¥×¤¹¤ë¤«¤É¤¦¤«¤ò·èÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SPRITE ON SPRITE OFF SPRITE STOP ,ʸ¡¡Îã{SIZE:100|CENTER} 10 SCREEN 1,1 20 SPRITE$(0)=STRING$(8,CHR$(&B11111111)) 30 ON SPRITE GOSUB 90 40 PUT SPRITE 0,(100,100),1,0 50 SPRITE ON 60 X=255 70 PUT SPRITE 1,(X,100),6,0 80 X=X-1:GOTO 70 90 REM SUB 100 X=255:SPRITE OFF 110 RETURN ,²ò¡¡Àâ{SIZE:100|CENTER} 50¹Ô¤ÇSPRITE ON¤¬»ØÄꤷ¤Æ¤¢¤ë¤Î¤Ç¡¢ºÇ½é¤Ë¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¤Ï¡¢30¹Ô¤Î»ØÄê¤Ë¤è¤Ã¤Æ90¹Ô¤Ø¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£100¹Ô¤ÇSPRITE OFF¤¬»ØÄꤷ¤Æ¤¢¤ë¤Î¤Ç¡¢°Ê¸å¥¸¥ã¥ó¥×¤Ï¹Ô¤ï¤ì¤Þ¤»¤ó¡£¤³¤Î¥×¥í¥°¥é¥à¤ò½ªÎ»¤¹¤ë¤Ë¤Ï¡¢[CTRL]¥­¡¼¤ò²¡¤·¤Ê¤¬¤é[STOP]¥­¡¼¤ò²¡¤·¤Þ¤¹(¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥ó¤ò¾Ã¤¹¤Ë¤Ï¡¢²èÌ̥⡼¥É¤«¥¹¥×¥é¥¤¥È¥â¡¼¥É¤ò»ØÄꤷ¤¿SCREENÌ¿Îá¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤)¡£ SPRITE ON¤ò»ØÄꤹ¤ë¤È¡¢°Ê¸å¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Ë¤Ï¡¢ON SPRITE GOSUB¤Ç»ØÄꤷ¤¿¹Ô¤Ø¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ SPRITE OFF¤ò»ØÄꤹ¤ë¤È¡¢°Ê¸å¤Î¥¹¥×¥é¥¤¥È¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤Æ¤â¡¢¥¸¥ã¥ó¥×¤Ïµ¯¤³¤ê¤Þ¤»¤ó¡£ SPRITE STOP¤ò»ØÄꤹ¤ë¤È¡¢°Ê¸å¥¹¥×¥é¥¤¥È¤Î¥Ñ¥¿¡¼¥ó¤¬½Å¤Ê¤Ã¤¿¤È¤­¤Î¥¸¥ã¥ó¥×¤ò°ì»þÄä»ß¤·¡¢SPRITE ON¤¬»ØÄꤵ¤ì¤ë¤Èľ¤Á¤Ë¥¸¥ã¥ó¥×¤·¤Þ¤¹¡£ SCREEN 4°Ê¹ß¤ÎSPRITE¤Ç¡¢COLOR SPRITE¤Ë¤è¤Ã¤ÆÆüì¤Ê¥«¥é¡¼ÈÖ¹æ¤ò»ØÄꤷ¤Æ¤ª¤¯¤È¡¢¤½¤Î¿§¤ÎÉôʬ¤Ï³ä¤ê¹þ¤ß¤òµ¯¤³¤µ¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¤ä¤êÊý¤Ë¤Ä¤¤¤Æ¤Ï¡¢COLOR SPRITE¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# COLOR SPRITE,COLOR SPRITE}}¡¢{{# ON SPRITE GOSUB,ON SPRITE GOSUB}} ---- !SQR {{anchor SQR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÊ¿Êýº¬(¥ë¡¼¥È)¤òÊÖ¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SQR(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT SQR(2) ¡Úɽ¼¨¡Û1.414213562373 ---- !STICK {{anchor STICK}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤¬¤É¤ÎÊý¸þ¤Ë²¡¤µ¤ì¤Æ¤¤¤ë¤«¤òÄ´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STICK(<¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PRINT STICK(0):GOTO 10 ,²ò¡¡Àâ{SIZE:100|CENTER} STICK¤Ë³¤¯¥«¥Ã¥³Æâ¤Î¿ôÃͤˤϡ¢0¤«1¤«2¤¬Æþ¤ê¡¢¤½¤ì¤¾¤ì¼¡¤Î¤è¤¦¤Ë¡¢²¿¤ÎÊý¸þ¤òÄ´¤Ù¤ë¤«¤ò»ØÄꤷ¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0} ,ÈÖ¹æ,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0} ,0 ,¥«¡¼¥½¥ë¥­¡¼ ,1 ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ ,2 ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ STICKÌ¿Îá¤Î¼Â¹Ô¤Ë¤è¤Ã¤ÆÆÀ¤é¤ì¤ë¿ôÃͤϡ¢0¤«¤é8¤Þ¤Ç¤Î9¤Ä¤Ç¡¢¤½¤ì¤¾¤ì°Ê²¼¤Î¿Þ¤Ë¼¨¤µ¤ì¤¿Êý¸þ¤ÈÂбþ¤·¤Æ¤¤¤Þ¤¹¡£ 0¤Ï¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤¬¤É¤ÎÊý¸þ¤Ë¤â¸þ¤¤¤Æ¤¤¤Ê¤¤(¤Þ¤¿¤Ï¥«¡¼¥½¥ë¥­¡¼¤¬²¿¤â²¡¤µ¤ì¤Æ¤¤¤Ê¤¤)¤³¤È¤ò¼¨¤·¤Æ¤¤¤Þ¤¹¡£ {{svg ¿Þ2.19.svg}} '''¿Þ2.19 STICKÌ¿Îá¤ÇÆÀ¤é¤ì¤ëÃÍ''' ---- !STOP {{anchor STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òÄä»ß¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STOP ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PRINT "ŽÊŽÙŽ¶ŽÞ " 20 STOP 30 PRINT "Ž·ŽÀ" 40 END ,²ò¡¡Àâ{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òÄä»ß¤·¤Æ¡¢Ä¾ÀÜÌ¿Î᤬ÆþÎϤǤ­¤ë¾õÂ֤ˤ·¤Þ¤¹¡£STOP¤Ï¥×¥í¥°¥é¥à¤Î¤É¤³¤Ë¤ª¤¤¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£STOPÌ¿Î᤬¼Â¹Ô¤µ¤ì¤ë¤È¡¢¡ÖBreak in xxxx¡×(xxxx¤ÏSTOP¤µ¤ì¤¿¹ÔÈÖ¹æ)¤È²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£ENDÌ¿Îá¤È°Û¤Ê¤ê¡¢¥ª¡¼¥×¥ó¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤¬¤¢¤Ã¤Æ¤â¥¯¥í¡¼¥º¤Ï¤µ¤ì¤Þ¤»¤ó¡£¥×¥í¥°¥é¥à¤òºÆ³«¤¹¤ë¤Ë¤ÏCONTÌ¿Îá¤ò¼Â¹Ô¤·¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CONT,CONT}} ---- !STOP ON/OFF/STOP {{anchor STOP ON}}{{anchor STOP OFF}}{{anchor STOP STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} [CTRL]+[STOP]¥­¡¼¤¬²¡¤µ¤ì¤¿¤È¤­¤ËON STOP GOSUBʸ¤Ç»ØÄꤵ¤ì¤¿¹Ô¤Ëʬ´ô¤¹¤ë¤«¤É¤¦¤«¤ò·èÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STOP ON STOP OFF STOP STOP ,ʸ¡¡Îã{SIZE:100|CENTER} STOP ON ,²ò¡¡Àâ{SIZE:100|CENTER} ¤³¤ÎÌ¿Îá¤Ï¡¢ON STOP GOSUB¤Ë¤è¤Ã¤ÆÄêµÁ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¼Â¹Ô¤òµö²Ä¤¹¤ë¤«(ON)¡¢¶Ø»ß¤¹¤ë¤«(OFF)¡¢°ì»þÄä»ß¤¹¤ë¤«(STOP)¤ò·èÄꤷ¤Þ¤¹¡£ STOP ON¤ò¼Â¹Ô¤¹¤ë¤È¡¢[CTRL]+[STOP]¥­¡¼¤ò²¡¤¹¤´¤È¤Ë¡¢ON STOP GOSUB¤Ë¤è¤êÄêµÁ¤µ¤ì¤Æ¤¤¤ë½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¸Æ¤Ó½Ð¤µ¤ì¤Þ¤¹¡£ STOP OFF¤ò¼Â¹Ô¤¹¤ë¤È¡¢[CTRL]+[STOP]¥­¡¼¤ò²¡¤·¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤º¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤¬Ää»ß¤·¤Þ¤¹¡£ STOP STOP¤ò¼Â¹Ô¤¹¤ë¤È¡¢[CTRL]+[STOP]¥­¡¼¤ò²¡¤·¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¤¬¡¢ºÆ¤ÓSTOP ON¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢½èÍý¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ ¤³¤ÎÌ¿Îá¤ÏON KEY(n) GOSUBÌ¿Îá¤ÈKEY(n) ON/FF/STOPÌ¿Îá¤Î´Ø·¸¤ÈƱ¤¸¤Ç¤¹¡£ STOP ON/STOP¤Î¾õÂ֤Ǥϡ¢¥×¥í¥°¥é¥à¤Ë¤è¤Ã¤Æ¤Ï¼Â¹Ô¤òÄä»ß¤Ç¤­¤Ê¤¯¤Ê¤ë¤Î¤Ç¡¢Ãí°Õ¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON STOP GOSUB,ON STOP GOSUB}}¡¢{{# KEY(n) ON/OFF/STOP}} ---- !STR$ {{anchor STR$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¿ôÃͤòʸ»úÎó¤ËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STR$(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A=123:B=-45 20 C=A+B 30 C$=STR$(A)+STR$(B) 40 PRINT C,C$:END ¡Úɽ¼¨¡Û78 123-45 ,²ò¡¡Àâ{SIZE:100|CENTER} <¿ô¼°>¤Î¿ôÃͤò10¿Ê¿ô¤Îʸ»úÎó¤ËÊÑ´¹¤·¤Þ¤¹¡£Ê¸»úÎó¤ËÊÑ´¹¤µ¤ì¤¿¡Ö123¡×¤È¡Ö-45¡×¤Ï¡¢¤â¤¦¿ôÃͤǤϤʤ¤¤Î¤Ç¡¢+¤Ë¤è¤Ã¤Æ²Ã»»¤µ¤ì¤Æ¤â¡Ö78¡×¤Ë¤Ï¤Ê¤é¤º¡¢¡Ö123-45¡×¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# VAL,VAL}}¡¢{{# STRING$,STRING$}} ---- !STRIG {{anchor STRIG}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤«¤É¤¦¤«Ä´¤Ù¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STRIG(<¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 PRINT "Ž½ŽÍŽßŽ°Ž½Ž·Ž°Ž¦ŽµŽ¼ŽÃŽ¸ŽÀŽÞŽ»Ž²" 20 A=STRIG(0) 30 IF A THEN BEEP 40 GOTO 20 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥¹¥Ú¡¼¥¹¥­¡¼¤¬²¡¤µ¤ì¤ë¤È¡¢-1¤¬ÊÑ¿ôA¤ËÂåÆþ¤µ¤ì¤Æ30¹Ô¤¬¼Â¹Ô¤µ¤ì¡¢¥Ó¡¼¥×²»¤¬ÌĤê¤Þ¤¹¡£ STRIGÌ¿Îá¤Ï¡¢»ØÄꤷ¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤Þ¤¿¤Ï¥¹¥Ú¡¼¥¹¥­¡¼¤¬²¡¤µ¤ì¤¿¤«¤É¤¦¤«¤òÄ´¤Ù¡¢²¡¤µ¤ì¤Æ¤¤¤ì¤Ð-1¤ò¡¢²¡¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð0¤òÊÖ¤·¤Þ¤¹¡£ STRIG¤Ë³¤¯¥«¥Ã¥³Æâ¤Ë¤Ï¡¢0¤«¤é4¤Þ¤Ç¤Î¿ôÃͤ¬Æþ¤ê¡¢¤½¤ì¤¾¤ì¤¤¤«¤Ë¼¨¤¹¥È¥ê¥¬¥Ü¥¿¥ó¤ÈÂбþ¤·¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0} ,ÈÖ¹æ,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0} ,0 ,¥È¥ê¥¬¥Ü¥¿¥ó¤Î¤«¤ï¤ê¤Ë¥¹¥Ú¡¼¥¹¥­¡¼¤ò»È¤¦ ,1 ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,2 ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,3 ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ,4 ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ¤¿¤À¤·¡¢¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Ë¤è¤Ã¤Æ¤Ï¥È¥ê¥¬¥Ü¥¿¥ó2¤Î¤Ê¤¤¤â¤Î¤â¤¢¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON STRIG GOSUB,ON STRIG GOSUB}}¡¢{{# STRIG ON,STRIG ON}}/{{# STRIG OFF,OFF}}/{{# STRIG STOP,STOP}} ---- !STRIG(n) ON/OFF/STOP {{anchor STRIG(n) ON/OFF/STOP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤¿¤È¤­¤Ë¡¢ON STRIG GOSUBʸ¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤¿¹Ô¤Ëʬ´ô¤¹¤ë¤«¤É¤¦¤«¤ò·èÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STRIG(<¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ÈÖ¹æ>)ON STRIG(<¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ÈÖ¹æ>)OFF STRIG(<¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯ÈÖ¹æ>)STOP ,ʸ¡¡Îã{SIZE:100|CENTER} ¡¡STRIG(0) ON ,²ò¡¡Àâ{SIZE:100|CENTER} ¥­¡¼¥Ü¡¼¥É¤Î¥¹¥Ú¡¼¥¹¥­¡¼¤¬²¡¤µ¤ì¤ë¤È¡¢ON STRIG GOSUB¤Ë¤è¤Ã¤Æ»ØÄꤵ¤ì¤¿¹ÔÈÖ¹æ°Ê²¼¤Î½èÍý¤ò¼Â¹Ô¤·¤Þ¤¹¡£¤³¤ÎÌ¿Îá¤Ï¡¢ON STRIG GOSUB¤Ë¤è¤Ã¤ÆÄêµÁ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Î¼Â¹Ô¤òµö²Ä¤¹¤ë¤«(ON)¡¢¶Ø»ß¤¹¤ë¤«(OFF)¡¢°ì»þÄä»ß¤¹¤ë¤«(STOP)¤ò·èÄꤷ¤Þ¤¹¡£ ¥«¥Ã¥³Æâ¤Î¿ôÃͤϡ¢°Ê²¼¤Î¤è¤¦¤Ë¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0} ,ÈÖ¹æ,°ÕÌ£ ,{c},{BSIZE:0},{BSIZE:0} ,0 ,¥È¥ê¥¬¥Ü¥¿¥ó¤Î¤«¤ï¤ê¤Ë¥¹¥Ú¡¼¥¹¥­¡¼¤ò»È¤¦ ,1 ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,2 ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó1 ,3 ,¥Ý¡¼¥È1¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ,4 ,¥Ý¡¼¥È2¤ËÀܳ¤µ¤ì¤¿¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Î¥È¥ê¥¬¥Ü¥¿¥ó2 ¤¿¤À¤·¡¢¥¸¥ç¥¤¥¹¥Æ¥£¥Ã¥¯¤Ë¤è¤Ã¤Æ¤Ï¥È¥ê¥¬¥Ü¥¿¥ó2¤Î¤Ê¤¤¤â¤Î¤â¤¢¤ê¤Þ¤¹¡£ STRIG ON¤ò¼Â¹Ô¤¹¤ë¤È¡¢»ØÄꤵ¤ì¤¿¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤ë¤´¤È¤Ë¡¢ON STRIG GOSUB¤Ë¤è¤êÄêµÁ¤µ¤ì¤Æ¤¤¤ë½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤¬¸Æ¤Ó½Ð¤µ¤ì¤Þ¤¹¡£ STRIG OFF¤ò¼Â¹Ô¤¹¤ë¤È¡¢»ØÄꤵ¤ì¤¿¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¡£ STRIG STOP¤ò¼Â¹Ô¤¹¤ë¤È¡¢»ØÄꤵ¤ì¤¿¥È¥ê¥¬¥Ü¥¿¥ó¤¬²¡¤µ¤ì¤Æ¤â¡¢ÍÑ°Õ¤µ¤ì¤¿½èÍý¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¼Â¹Ô¤µ¤ì¤Þ¤»¤ó¤¬¡¢ºÆ¤ÓSTRIG ON¤ò¼Â¹Ô¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢½èÍý¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# ON STRIG GOSUB,ON STRIG GOSUB}}¡¢{{# KEY ON,KEY ON}}/{{# KEY OFF,OFF}}/{{# KEY STOP,STOP}} ---- !STRING$ {{anchor STRING$}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¼°2>¤Ç»ØÄꤵ¤ì¤¿Ê¸»ú¤À¤±¤Ç¤Ç¤­¤¿Ê¸»úÎó¤òºî¤ê¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} STRING$(<¼°1>,<¼°2>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$=STRING$(10,"*") 20 PRINT A$:END ¡Úɽ¼¨¡Û********** ,²ò¡¡Àâ{SIZE:100|CENTER} <¼°2>¤Ç»ØÄꤷ¤¿Ê¸»ú¤ò<¼°1>¤Ë»ØÄꤷ¤¿¿ô¤À¤±Ï¢¤Í¤¿Ê¸»úÎó¤òºî¤ê¤Þ¤¹¡£<¼°2>¤Îʸ»ú¤Ï0¡Á255¤Þ¤Ç¤Î¿ôÃͤǤ⹽¤¤¤Þ¤»¤ó¡£¤³¤Î¾ì¹ç¤Ï¡¢Âбþ¤¹¤ë¥­¥ã¥é¥¯¥¿¡¼¥³¡¼¥É¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£ ---- !SWAP {{anchor SWAP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} 2¤Ä¤ÎÊÑ¿ô¤ÎÃͤò¹¥´¶¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} SWAP<ÊÑ¿ô>,<ÊÑ¿ô> ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A=12:B=34 20 PRINT "A=";A,"B=";B 30 SWAP A,B 40 PRINT "A=";A,"B=";B 50 END ¡Úɽ¼¨¡ÛA=12 B=34 A=34 B=12 ,²ò¡¡Àâ{SIZE:100|CENTER} ¹ÔÈÖ¹æ30¤Î¼Â¹Ô¤Ë¤è¤ê¡¢ÊÑ¿ôA¤ÈÊÑ¿ôB¤ÎÃͤ¬Æþ¤ìÂؤï¤ê¤Þ¤¹¡£ÊÑ¿ô¤Î·¿¤Ï¡¢Ê¸»ú·¿¤Ç¤â¿ôÃÍ·¿¤Ç¤â¹½¤¤¤Þ¤»¤ó¤¬¡¢2¤Ä¤ÎÊÑ¿ô¤Î·¿¤ÏƱ¤¸¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ---- !TAB {{anchor TAB}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »ØÄꤵ¤ì¤¿·å¤Þ¤Ç¶õÇò¤òɽ¼¨¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} TAB(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT TAB(10);"TEST" ,²ò¡¡Àâ{SIZE:100|CENTER} »ØÄꤷ¤¿·å¤Þ¤Ç¶õÇò¤ò½ÐÎϤ·¤Þ¤¹¡£»ØÄꤷ¤¿·å¤«¤éɽ¼¨¤ò¹Ô¤¤¤¿¤¤¤È¤­¤Ë¡¢PRINT¤äLPRINT¤Ê¤É¤ÎÌ¿Îá¤ÎÃæ¤Ç»È¤¤¤Þ¤¹¡£»ØÄê¤Ç¤­¤ë¤Î¤Ï¡¢0¤«¤é255¤Þ¤Ç¤ÎÃͤǤ¹¡£ ¸½ºß¤Î½ÐÎÏ°ÌÃÖ¤¬¤¹¤Ç¤Ë»ØÄꤵ¤ì¤¿·å°ÌÃÖ¤è¤ê¤âÂ礭¤¤¤È¤­¤Ï¡¢²¿¤â½ÐÎϤ·¤Þ¤»¤ó¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SPC,SPC}} ---- !TAN {{anchor TAN}} ,µ¡¡¡Ç½{SIZE:100|CENTER} <¿ô¼°>¤ÎÀµÀÜ(¥¿¥ó¥¸¥§¥ó¥È)¤ò·×»»¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} TAN(<¿ô¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT TAN(3.14159/4) ¡Úɽ¼¨¡Û.99999867320603 ---- !TIME {{anchor TIME}} ,µ¡¡¡Ç½{SIZE:100|CENTER} »þ´Ö¤ò·×¤ê¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} TIME[=<¿ô¼°>] ,ʸ¡¡Îã{SIZE:100|CENTER} 10 CLS:TIME=0 20 LOCATE 0,12:T%=TIME/60:PRINT T% 30 IF T%=60 THEN PRINT "1 ŽÌŽßŽÝŽ¹Ž²Ž¶" ELSE 20 40 END ,²ò¡¡Àâ{SIZE:100|CENTER} TIME¤Ï½é´üÃͤòÍ¿¤¨¤ë¤È¡¢1/60É䴤Ȥˤ½¤ÎÃͤò1¤Ä¤º¤ÄÁý¤ä¤·¤Æ¤¤¤­¤Þ¤¹¡£¤½¤Î¤¿¤á¡¢¥×¥í¥°¥é¥àÆâ¤ÎŬÅö¤Ê¾ì½ê¤ËTIME=0¤òÃÖ¤¤¤Æ¡¢ºÇ¸å¤ËTIME¤ÎÃͤòÄ´¤Ù¤ì¤Ð¡¢¤½¤Î´Ö¤Î¥×¥í¥°¥é¥à¤Î¼Â¹Ô»þ´Ö¤ò·×¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£TIME¤ËÍ¿¤¨¤ë½é´üÃͤϡ¢0¤«¤é65535¤Þ¤Ç¤ÎÃͤǤ¢¤ì¤Ð¡¢0¤Ç¤Ê¤¯¤Æ¤â¤«¤Þ¤¤¤Þ¤»¤ó¡£¤Þ¤¿¡¢¥Õ¥í¥Ã¥Ô¡¼¥Ç¥£¥¹¥¯¤ò»ÈÍѤ·¤Æ¤¤¤ë´Ö¤Ê¤É¤ÏTIME¤ÎÃÍ°¡h¹¹¿·¤µ¤ì¤Þ¤»¤ó¡£ ¾å¤Î¥×¥í¥°¥é¥à¤Ç¤Ï¡¢¼Â¹Ô¸å¤Î·Ð²áÉÿô¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£60É÷ФĤȡÖ1ŽÌŽßŽÝŽ¹Ž²Ž¶¡×¤Èɽ¼¨¤µ¤ì¤Æ¡¢¥×¥í¥°¥é¥à¤Ï½ªÎ»¤·¤Þ¤¹¡£ ¤Ê¤ª¡¢¾å¤Î¥×¥í¥°¥é¥à¤Î20¹Ô¤ÇT%¤È¤·¤Æ¤¤¤ë¤Î¤Ï¡¢TIME¤ÎÃͤò60¤Ç³ä¤Ã¤¿¤È¤­¤Î;¤ê¤ò¼Î¤Æ¤ë¤¿¤á¤Ç¤¹¡£ ¥Ð¥Ã¥Æ¥ê¡¼¥Ð¥Ã¥¯¥¢¥Ã¥×¤µ¤ì¤Æ¤¤¤ë»þ·×¤Î»þ¹ï¤äÆüÉդˤĤ¤¤Æ¤Ï¡¢GET DATE¡¢GET TIME ¡¢SET DATE¡¢SET TIME¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# GET DATE,GET DATE}}¡¢{{# GET TIME,GET TIME}}¡¢{{# ON INTERVAL GOSUB,ON INTERVAL GOSUB}}¡¢{{# SET DATE,SET DATE}}¡¢{{# SET TIME,SET TIME}} ---- !TRON¡¢TROFF {{anchor TRON}}{{anchor TROFF}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ¥×¥í¥°¥é¥à¤Î¼Â¹Ô¾õÂÖ¤òÄɤ¤¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} TRON TROFF ,²ò¡¡Àâ{SIZE:100|CENTER} TRON¤ò¼Â¹Ô¤µ¤»¤Æ¤«¤é¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤µ¤»¤ë¤È¡¢°Ê¸å¼Â¹Ô¤µ¤ì¤¿¥×¥í¥°¥é¥à¤Î¹ÔÈֹ椬¥«¥®¥«¥Ã¥³([])¤Ä¤­¤Ç²èÌ̤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£¸µ¤Î¾õÂÖ¤ËÌ᤹¤È¤­¤Ï¡¢TROFF¤òÍѤ¤¤Þ¤¹¡£ ---- !USR {{anchor USR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} µ¡³£¸ì¤Çºî¤é¤ì¤¿¥×¥í¥°¥é¥à¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} USR[<ÈÖ¹æ>](<°ú¿ô>) ,ʸ¡¡Îã{SIZE:100|CENTER} I=USR3(J) ,²ò¡¡Àâ{SIZE:100|CENTER} ¥æ¡¼¥¶¡¼¤ÎºîÀ®¤·¤¿µ¡³£¸ì¥×¥í¥°¥é¥à¤ò¸Æ¤Ó½Ð¤·¤Þ¤¹¡£µ¡³£¸ì¥×¥í¥°¥é¥à¤Ï¡¢¤¢¤é¤«¤¸¤á¥á¥â¥êÃæ¤Ë½àÈ÷¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤é¤º¡¢¤Þ¤¿DEF USRÌ¿Îá¤Ë¤è¤ê¡¢¤½¤Î¼Â¹ÔÈÖÃϤ¬»ØÄꤵ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ <ÈÖ¹æ>¤ÏDEF USRÌ¿Îá¤Ë¤è¤êÄêµÁ¤µ¤ì¤¿ÈÖ¹æ¤ËÂбþ¤·¤Æ¤ª¤ê¡¢0¤«¤é9¤¬»È¤¨¤Þ¤¹¡£¾Êά¤·¤¿¾ì¹ç¤Ï0¤È¤ß¤Ê¤µ¤ì¤Þ¤¹¡£¥«¥Ã¥³Æâ¤Î°ú¿ô¤Ï¡¢BASIC¤«¤éµ¡³£¸ì¥×¥í¥°¥é¥à¤ØÃͤò°ú¤­ÅϤ¹¤¿¤á¤Î¤â¤Î¤Ç¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# DEF USR,DEF USR}} ---- !VAL {{anchor VAL}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ʸ»úÎó¤ò¿ôÃͤËÊÑ´¹¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} VAL(<ʸ»ú¼°>) ,ʸ¡¡Îã{SIZE:100|CENTER} 10 A$="123":B$="-45" 20 C$=A$+B$ 30 A=VAL(A$):B=VAL(B$ 40 C=A+B 50 PRINT C$,C:END ¡Úɽ¼¨¡Û123-45 78 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥«¥Ã¥³Æâ¤Îʸ»úÎó¤ò¿ôÃͤËÊÑ´¹¤·¤Æ¤¤¤Þ¤¹¡£A¤ÈB¤Ï¤½¤ì¤¾¤ì¡Ö123¡×¤È¡Ö45¡×¤¬¿ôÃͤËÊѤï¤Ã¤¿¤â¤Î¤Ê¤Î¤Ç¡¢²Ã»»¤Ë¤è¤Ã¤ÆC¤Ï78¤È¤¤¤¦¿ô¤Ë¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# STR$,STR$}} ---- !VARPTR {{anchor VARPTR}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÊÑ¿ô¤Î³ÊǼ¤µ¤ì¤Æ¤¤¤ë¥á¥â¥êÈÖÃÏ¡¢¥Õ¥¡¥¤¥ë¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¥³¥ó¥È¥í¡¼¥ë¥Ö¥í¥Ã¥¯¤Î³«»ÏÈÖÃϤòµá¤á¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} VARPTR(<ÊÑ¿ô̾>) VARPTR(#<¥Õ¥¡¥¤¥ëÈÖ¹æ>) ,ʸ¡¡Îã1{SIZE:100|CENTER} PRINT HEX$(VARPTR(A)) ,²ò¡¡Àâ1{SIZE:100|CENTER} <ÊÑ¿ô̾>¤Ç»ØÄꤷ¤¿ÊÑ¿ô¤Î¥Ç¡¼¥¿¤¬³ÊǼ¤µ¤ì¤Æ¤¤¤ëÊÑ¿ôÎΰè¤Î¥á¥â¥êÈÖÃϤòµá¤á¤Þ¤¹¡£¤³¤Î¤È¤­»ØÄꤵ¤ì¤Æ¤¤¤ëÊÑ¿ô¤Ë¤ÏÃͤ¬ÂåÆþ¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó ,ʸ¡¡Îã2{SIZE:100|CENTER} BVAD=VARPTR(#1) ,²ò¡¡Àâ2{SIZE:100|CENTER} »ØÄꤷ¤¿<¥Õ¥¡¥¤¥ëÈÖ¹æ>¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥Õ¥¡¥¤¥ë¥³¥ó¥È¥í¡¼¥ë¥Ö¥í¥Ã¥¯¤Î³«»ÏÈÖÃϤòÆÀ¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} ¥á¥â¥ê¥Þ¥Ã¥× !VDP {{anchor VDP}} ,µ¡¡¡Ç½{SIZE:100|CENTER} VDP(TMS9918¡¢V9938¡¢V9958)¤Î¥ì¥¸¥¹¥¿¤Ø¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤ó¤À¤ê¡¢¥ì¥¸¥¹¥¿¤«¤é¥Ç¡¼¥¿¤òÆɤ߽Ф·¤¿¤ê¤·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} VDP(<¥ì¥¸¥¹¥¿ÈÖ¹æ>) ,ʸ¡¡Îã{SIZE:100|CENTER} VDP(1)=&HE1 ,²ò¡¡Àâ{SIZE:100|CENTER} VDP(¥Ó¥Ç¥ª¥Ç¥£¥¹¥×¥ì¥¤¥×¥í¥»¥Ã¥µ)¤Î¥ì¥¸¥¹¥¿1¤Ë¡¢&HE1¤È¤¤¤¦¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£ Æɤ߽ñ¤­¤Ç¤­¤ëÈϰϤϼ¡¤ÎÄ̤ê¤Ç¤¹¡£ ,{t},{BSIZE:2 0} ,{c},{BSIZE:1 0|SIZE:80},{BSIZE:1 0|SIZE:160},{BSIZE:1 0|SIZE:200},{BSIZE:1 0|SIZE:200} , ,¥ì¥¸¥¹¥¿0¡Á7(R/W),¥¹¥Æ¡¼¥¿¥¹¥ì¥¸¥¹¥¿0(R),¥ì¥¸¥¹¥¿8¡Á(R/W) ,{c},{BSIZE:0},{BSIZE:0},{BSIZE:0},{BSIZE:0} ,MSX ,0¡Á7,8, ,MSX2 ,0¡Á7,8,9¡Á24(R8¡ÁR23) ,MSX2+,0¡Á7,8,9¡Á24¡¢26¡Á28(R8¡ÁR27) ,»²¡¡¾È{SIZE:100|CENTER} {{# BASE,BASE}} ---- !VPEEK {{anchor VPEEK}} ,µ¡¡¡Ç½{SIZE:100|CENTER} VRAM¾å¤Î»ØÄꤷ¤¿ÈÖÃϤÎÆâÍƤòÆɤ߽Ф·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} VPEEK(<ÈÖÃÏ>) ,ʸ¡¡Îã{SIZE:100|CENTER} PRINT VPEEK(0) ,²ò¡¡Àâ{SIZE:100|CENTER} Æɤ߽Ф¹¥Ç¡¼¥¿¤ò»ØÄꤹ¤ëÈÖÃϤϡ¢SET PAGEÌ¿Îá¤Ç»ØÄꤷ¤¿¥Ú¡¼¥¸¤«¤é¤Î¥ª¥Õ¥»¥Ã¥È¤Ç¡¢0¡Á&HFFFF(65535)¤ÎÃͤǤ¹¡£ÊÖ¤µ¤ì¤ëÃͤÏ0¡Á255¤Ç¤¹¡£¾Ü¤·¤¯¤ÏVRAM¥Þ¥Ã¥×¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SET PAGE,SET PAGE}}¡¢{{# VPOKE,VPOKE}} ---- !VPOKE {{anchor VPOKE}} ,µ¡¡¡Ç½{SIZE:100|CENTER} VRAM¾å¤Î»ØÄꤷ¤¿ÈÖÃϥǡ¼¥¿¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} VPOKE<ÈÖÃÏ>,<¥Ç¡¼¥¿> ,ʸ¡¡Îã{SIZE:100|CENTER} VPOKE 0,65 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Ç¡¼¥¿¤ò½ñ¤­¹þ¤àÈÖÃϤϡ¢SET PAGEÌ¿Îá¤ÇÀßÄꤷ¤¿¥Ú¡¼¥¸¤«¤é¤Î¥ª¥Õ¥»¥Ã¥È¤Ç¡¢0¡Á&HFFFF(65535)¤ÎÃͤǤ¹¡£½ñ¤­¹þ¤àÃͤÏ0¡Á255¤Ç¤¹¡£¾Ü¤·¤¯¤ÏVRAM¥Þ¥Ã¥×¤ò»²¾È¤·¤Æ²¼¤µ¤¤¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# SET PAGE,SET PAGE}}¡¢{{# VPEEK,VPEEK}} ---- !WAIT {{anchor WAIT}} ,µ¡¡¡Ç½{SIZE:100|CENTER} ÆþÎϥݡ¼¥È¤Ë»ØÄꤷ¤¿Ãͤ¬Æþ¤ë¤Þ¤Ç¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òÃæÃǤ·¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} WAIT<¥Ý¡¼¥ÈÈÖ¹æ>,<¼°1>[,<¼°2>] ,ʸ¡¡Îã{SIZE:100|CENTER} WAIT 1,&H22,&H22 ,²ò¡¡Àâ{SIZE:100|CENTER} <¥Ý¡¼¥ÈÈÖ¹æ>¤Ç»ØÄꤷ¤¿ÆþÎϥݡ¼¥È¤«¤éÆɤ߹þ¤ó¤À¥Ç¡¼¥¿¤È<¼°2>¤È¤ÎXOR¤Î·ë²Ì¤ò¡¢<¼°1>¤ÇAND¤·¤¿·ë²Ì¤¬¿¿¤Ë¤Ê¤ë¤Þ¤Ç¡¢¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤òÃæÃǤ·¤Þ¤¹¡£<¼°2>¤¬¾Êά¤µ¤ì¤¿¤È¤­¤Ï¡¢¡Ö0¡×¤¬Å¬ÍѤµ¤ì¤Þ¤¹¡£¥Ý¡¼¥ÈÈÖ¹æ¤Ë´Ø¤·¤Æ¤Ï¡¢I/O¥Þ¥Ã¥×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ WAIT¤Ï¡¢¥Ï¡¼¥É¥¦¥§¥¢¤ÈÈó¾ï¤ËÌ©Àܤ·¤¿Ì¿Îá¤Ç¡¢³Æ¡¹¤ÎMSX¤Ç¤Ï°Û¤Ê¤ëÆ°ºî¤ò¤¹¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£MSX¤Î¸ß´¹À­¤ò°Ý»ý¤¹¤ë¤¿¤á¡¢¹­¤¯¸øÊ礹¤ë¥×¥í¥°¥é¥à¤Ë¤Ï»ÈÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£ ---- !WIDTH {{anchor WIDTH}} ,µ¡¡¡Ç½{SIZE:100|CENTER} 1¹Ô¤Ëɽ¼¨¤¹¤ëʸ»ú¿ô¤òÀßÄꤷ¤Þ¤¹¡£ ,½ñ¡¡¼°{SIZE:100|CENTER} WIDTH<·å¿ô> ,ʸ¡¡Îã{SIZE:100|CENTER} WIDTH 30 ,²ò¡¡Àâ{SIZE:100|CENTER} ¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç²èÌ̤Ëɽ¼¨¤¹¤ë¡¢1¹Ô¤Îʸ»ú¿ô¤ò30ʸ»ú¤ËÀßÄꤷ¤Þ¤¹¡£40¡ß24¤Î¥â¡¼¥É¤Ç¤Ï1¡Á40¡¢32¡ß24¤Î¥â¡¼¥É¤Ç¤Ï1¡Á32¡¢80¡ß25¤Î¥â¡¼¥É¤Ç¤Ï1¡Á80¡¢¤Þ¤Ç¤ÎÃͤò»ØÄê¤Ç¤­¤Þ¤¹¡£ ʸ»ú¿ô¤ÎÀßÄê¤Ï¡¢³Æ¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤½¤ì¤¾¤ì¹Ô¤¤¤Þ¤¹¡£Î㤨¤Ð¡¢32¡ß24¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¡¢¾å¤ÎÎã¤Î¤è¤¦¤Ë30ʸ»ú¤ÎÀßÄê¤ò¹Ô¤Ã¤Æ¤â¡¢40¡ß24¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç¤ÎÀßÄê¤ÏÊѤï¤ê¤Þ¤»¤ó¡£ BASIC¤ò¥¹¥¿¡¼¥È¤·¤¿»þÅÀ¤Ç¤Ï¡¢40¡ß24¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç39ʸ»ú¡¢32¡ß24¤Î¥Æ¥­¥¹¥È¥â¡¼¥É¤Ç29ʸ»ú¤¬¼«Æ°Åª¤ËÀßÄꤵ¤ì¤Þ¤¹¡£ WIDTH¥¹¥Æ¡¼¥È¥á¥ó¥È¤Ï´Á»ú¥â¡¼¥É¤Î»þ¤Ë¤Ï°Ê²¼¤Î¤è¤¦¤ËÆ°ºî¤·¤Þ¤¹¡£ '''´Á»ú¥Æ¥­¥¹¥È¥â¡¼¥É¤Î¾ì¹ç''' ¢£KANJI0¤«KANJI2¤Î¾ì¹ç <·å¿ô>¤Î»ØÄê¤Ï26¤«¤é64¤¬Í­¸ú¤Ç¤¹¡£ ¢£KANJI1¤«KANJI3¤Î¾ì¹ç <·å¿ô>¤Î»ØÄê¤Ï26¤«¤é80¤¬Í­¸ú¤Ç¤¹¡£ ¾åµ­°Ê³°¤ÎÃͤ¬»ØÄꤵ¤ì¤ë¤È¡ÖIllegal function call¡×¤È¤Ê¤ê¤Þ¤¹¡£ '''´Á»ú¥°¥é¥Õ¥£¥Ã¥¯¥â¡¼¥É¤Î¾ì¹ç''' ¾ï¤Ë¡ÖIllegal function call¡×¤È¤Ê¤ê¤Þ¤¹¡£ ,»²¡¡¾È{SIZE:100|CENTER} {{# CALL KANJI,CALL KANJI}}¡¢{{# SCREEN,SCREEN}}¡¢{{# SET SCREEN,SET SCREEN}} ---- ,{t},{BSIZE:1 0|SIZE:100%} ,{BSIZE:0}¢«[[3¾Ï BASIC]] ,{BSIZE:0|RIGHT}[[4¾Ï BASIC¤ÎÆâÉô¹½Â¤]] ¢ª