eidas

KEY 3,"SAVE"+CHR$(34)+"MISSILE"
KEY 4,"EXEC"+CHR$(34)+"LNC"
KEY 2,"VISIBLE 1,1,1,1,1,1"
'PRG:MISSILE
'┏━━━━━━━━━━┓
'┃ ミサイルディフェンス ┃
'┗━━━━━━━━━━┛
CLEAR
'--ガメン ショキカ--
CLS:COLINIT "GRP",0

eidas

'+----------------------+
'| TURTLE GRAPHICS V0.2 |
'+----------------------+
CLEAR:CLS:GPAGE 0:GCLS
VISIBLE 1,1,1,1,1,1
?"TURTLE GRAPHICS V0.2"

MYPRG$="TURTLE"
KEY 3,"SAVE"+CHR$(34)+"PRG:"+MYPRG$
EDPRG$="TEDIT"

eidas

IF RTPRG$!="" THEN LOCATE 0,0:?RTPRG$
CLEAR
TITLE$="ﾃｷｽﾄｴﾃﾞｨﾀ V0.12"
MYPRG$="PRG:TEDIT012"
KEY 3,"SAVE"+CHR$(34)+MYPRG$
'┏━━━━━━┓
'┃ ﾃｷｽﾄｴﾃﾞｨﾀ  ┃
'┗━━━━━━┛
'256ﾊﾞｲﾄﾏﾃﾞﾉﾃｷｽﾄｦﾍﾝｼｭｳ

eidas

'+----------------------+
'| TURTLE GRAPHICS V0.3 |
'+----------------------+
CLEAR:CLS:GPAGE 0:GCLS
VISIBLE 1,1,1,1,1,1
?"TURTLE GRAPHICS V0.3"

MYPRG$="TURTLE"
KEY 3,"SAVE"+CHR$(34)+"PRG:"+MYPRG$
EDPRG$="TEDIT"

eidas

'GRPﾃﾞｰﾀｦ ﾌｧﾝｸｼｮﾝｷｰ ﾆ ｶｷﾀﾞｼ
THISPRG$="LTEFNK"
SPC$="        "
GPAGE 1
IF LEN(MEM$)==0 THEN MEM$=SPC$+"2"
P$=MID$(MEM$,0,8)

@ENT_NM
SAVEPRG$=""
FOR I=0 TO LEN(P$)-1

eidas

'ﾌﾟﾁｺﾝｱﾝｺﾞｳPETITGMA Ver1.0
'ﾌﾟﾁｺﾝ ﾉ ﾌｫﾝﾄﾊﾟﾀ-ﾝﾃﾞ ｱﾝｺﾞｳｶ
'ｱﾝｺﾞｳ ﾊﾞ-ｼﾞｮﾝ A1.00
CLS
CLEAR
DIM BN$(16),CH(8),T64(256)
GOSUB @PTGINIT
BGMPLAY 27

@PSTART

eidas

'***ｲｶﾉ ﾁｭｳｲｶﾞｷｦ ｺﾞﾗﾝｸﾀﾞｻｲ***

@PTGTEST
'ﾌﾟﾛｸﾞﾗﾑ ｹﾝｼｮｳ ﾖｳ ﾃｽﾄｺ-ﾄﾞ ﾃﾞｽ
' ｺﾚｲｶ ﾊ ｳﾏｸ ｳｺﾞｶﾅｲ ﾄｷ ﾆ ﾆｭｳﾘｮｸ ｼﾃﾐﾃ ｸﾀﾞｻｲ
' ﾂｳｼﾞｮｳ ﾊ ﾆｭｳﾘｮｸ ﾌﾖｳ ﾃﾞｽ
BGMSTOP

'***TEST FOR PTGINIT(1)

eidas

# -*- coding: utf-8 -*-

# sbcountmk2.py : Smile Basic mk2のキーワード出現頻度を調べる

import re, sys, codecs

# グローバル変数定義
iflag = False
dic = {}

eidas

'+------------------+
'| FONT EDITOR V0.2 |
'+------------------+
'PRG:FONTED

'------------
'--- ｼｮｷｶ ---
'------------
CLEAR
PNLTYPE "OFF"

eidas

import random

random.seed()

def rand(y,randmax,n):
  for i in range(randmax+1):
    y[i] = 0
  for i in range(randmax*n+1):
    r = random.randint(0,randmax)
    y[r] += 1