あなたの文章真面目に酷評しますPart72

このエントリーをはてなブックマークに追加
705名無し物書き@推敲中?
10 CLEAR
20 PRINT "hello, world."
30 FOR i=1 TO 1000000
40 NEXT i
50 CLEAR
60 PRINT "her ";
70 FOR i=1 TO 1000000
80 NEXT i
90 PRINT "storie"
100 FOR i=1 TO 1000000
110 NEXT i 
604 REM
1000 RESTORE
1221 READ ck$
1969 IF ck$="333" THEN
1970    PRINT
1976    FOR i=1 TO 10000000
1977    NEXT i
1980    PRINT
1981    GOTO 2050
1985 END IF
706名無し物書き@推敲中?:2012/04/10(火) 09:20:08.40
1986 IF ck$="805" THEN GOTO 20000
1987 IF ck$="000" THEN 
1988    GOSUB 122170
1989    GOTO 2050
1990 END if
1991 IF ck$="999" THEN
1995    PRINT
1999    GOTO 2050
2000 END if
2001 PRINT ck$;
2050 FOR i=1 TO 500000
2061 NEXT i 
3001 GOTO 1221
707名無し物書き@推敲中?:2012/04/10(火) 09:21:01.49
10000 DATA "i ","found ","myself ","standing ","on ","the ","uur",", ",a,", ","shortcuts ","ov ",999
10002 DATA "glass ","full ","fields.",999
10004 DATA "so,"," i ","decide ","i ","will ","have ","to ","go ","anywhere ","else ","exclusive ","here.",999
10006 DATA ".",".",".",".",".",".",". ","how ","should ","i ","?",000
10008 DATA "maybe ","tiny ","is ","worthy."," i ","guess.",999
10010 DATA "i ,","i ","wanna ","be ","some ","kind ","ov ","stable ",".",999
10012 DATA "not ","to ","be ","melt ","i ","go ","some ","there ","beyond ","even ","as ","like.",333
10014 DATA "i ","will ","take ","risence ","to ","drive. ","it's ","needful.",333
10016 DATA "i ","stand ","up ","to ","go.",333
10018 DATA "mom, ","i ","will ","go.","i ","dont ","look ","back.",999
10020 DATA "school ","? ","it's ","not ","meanless, ","is ","it ","?",333
10022 DATA "full ","ov ","mean ","? ",333
10024 DATA "oh. ","mean. ",999
10026 DATA "i ","thought ","mean ","ov ","it ","at ","that ","day ","and ","go ","to ","school ","then.",333
10028 DATA "but ","NO ","but."," i ","went ","to ","bed ","to ","sleep ","to ","dream ","sort ","ov.",999
708名無し物書き@推敲中?:2012/04/10(火) 09:21:25.81
10030 DATA "tiny ","star ","home.",".",".",".",333
10032 DATA "against.",".",".",".",".",333
10034 DATA "カチューシャ",333
10036 DATA "'what ","ov ","it ","i ","thought ","now ","?",333
10038 DATA "i ","cant ","solve ","out ","in ","my ","it ","now.",333
10040 DATA "vacuum.",333
10042 DATA "twinkle.",333
10044 DATA "haste.",000
10046 DATA "rainy ","morning. ","i ","drove ","umbllera ","with ","humming ","ovsession"," today.",805
20000 REM
30000 GOTO 150000
122170 FOR i=1 TO 10000000
130000 NEXT i
135000 PRINT
140000 RETURN
150000 rem
    END