10 REM ***************************************** 20 REM 30 REM 最初のREM分だけは立派だった 40 REM 50 REM Copyright (C) 2005 by naiconsan 60 REM 70 REM *****************************************
よく秋葉原のパソコンに打ち込んで遊んだ。 10 for i=0 to 255 20 print chr$(i); 30 next i
48 : ナイコンさん : 2007/05/30(水) 21:31:09
diskcopy
だよな。役に立つのは。
これでダメならMagicCopy
49 : ナイコンさん[sage] : 2007/07/13(金) 02:25:22
わ~い、サブルーチンでけた。
1000 REM MOVE 1010 A$=INKEY$(1) 1020 IF A$="4" THEN X=X-1 GOTO 1070 1030 IF A$="6" THEN X=X+1 GOTO 1070 1040 IF A$="2" THEN Y=Y-1 GOTO 1070 1050 IF A$="8" THEN Y=Y+1 GOTO 1070 1055 IF A$="5" GOSUB 1100 1060 GOTO 1010 1070 LOCATE(X,Y):PRINT "(´・ω・`)":GOTO 1010 1080 RETURN 1090 REM 1100 REM (^_^); 1100 FOR I=0 TO 1000 1110 PRINT "(^_^);" :BEEP 1 1120 IF INKEY$(1)="" GOTO 1110 1130 NEXT I 1140 RETURN
あれ?
50 : ナイコンさん[sage] : 2008/07/26(土) 22:38:02
おっと、1年以上経ってるじゃん。
1000 REM MOVE 1010 A$=INKEY$(1) 1020 IF A$="4" THEN X=X-1 GOTO 1070 1030 IF A$="6" THEN X=X+1 GOTO 1070 1040 IF A$="2" THEN Y=Y-1 GOTO 1070 1050 IF A$="8" THEN Y=Y+1 GOTO 1070 1055 IF A$="5" GOSUB 1100 1060 GOTO 1010 1070 REM LOCATE(X,Y):PRINT "(´・ω・`)":GOTO 1010 1072 LOCATE(X0,Y0): PRINT " ":'前消し 1074 LOCATE(X,Y):PRINT "(´・ω・`)" :'表示 1076 X0=X,Y0=Y :'前位置保存 1078 GOTO 1010 1080 RETURN 1090 REM 1100 REM (^_^); 1100 FOR I=0 TO 1000 1110 PRINT "(^_^);" :BEEP 1 1120 IF INKEY$(1)="" GOTO 1110 1130 NEXT I 1140 RETURN