苦悶式SDカード ５．９ あくまでもアップロードのテスト２

えいやっと！今度はBASICのプログラムのアップロード・テスト。

BASICはTABを使ってないから、勝手に書式を書き換えられる心配はないかな？

でも半角スペースが２個以上続いたら１個になるとかないかな？

内容は、ん〜〜、ご覧のとおりです。いかにもデバッグ中でしょ？ｗ

いつになったら満足に動くのでしょうね。←他人事モード

1000 '==================
1010 'SD3.BAS
1020 '==================
1030 SAVE "SD3.BAS"
1040 SCREEN0:KEY OFF:KEY1,"_SYSTEM"+CHR$(13)
1050 CLEAR 100,&HBFFF:DEFINT A-Z
1060 BLOAD "SD3.OBJ"
1070 DEFUSR0=&HC000:DEFUSR1=&HC003
1080 PRINT"R/W?";:I$=INPUT$(1):PRINT I$:I=INSTR("RrWw",I$):IF I=0 THEN 1080
1090 IF(I=1)OR(I=2)THEN GOSUB 1110:ELSE GOSUB 1270
1100 GOTO 1060
1110 '
1120 N=0:INPUT "ARG1";N:POKE &HC00D,N
1130 N=0:INPUT "ARG2";N:POKE &HC00E,N
1140 N=0:INPUT "ARG3";N:POKE &HC00F,N
1150 D=USR0(0)
1160 PRINT "CMD_0RES:";RIGHT$("0"+HEX$(PEEK(&HC006)),2)
1170 PRINT "CMD_1RES:";RIGHT$("0"+HEX$(PEEK(&HC007)),2)
1180 PRINT "CMD16RES:";RIGHT$("0"+HEX$(PEEK(&HC008)),2)
1190 PRINT "CMD17RES:";RIGHT$("0"+HEX$(PEEK(&HC009)),2)
1200 PRINT "CMD17STB:";RIGHT$("0"+HEX$(PEEK(&HC00C)),2)
1210 PRINT
1220 FOR I=0 TO 511
1230   C=PEEK(&HC013+I):IF(C<32)OR(C=127)THEN C$="." ELSE C$=CHR$(C)
1240   PRINT C$;
1250 NEXT I
1260 PRINT:PRINT:RETURN
1270 '
1280 'N=0:INPUT "ARG1";N:POKE &HC00D,N
1290 'N=0:INPUT "ARG2";N:POKE &HC00E,N
1300 'N=0:INPUT "ARG3";N:POKE &HC00F,N
1310 'N$="":INPUT "CHAR";N$:POKE &HC011,ASC(N$)
1320 D=USR1(0)
1330 'PRINT "CMD_0RES:";RIGHT$("0"+HEX$(PEEK(&HC006)),2)
1340 'PRINT "CMD_1RES:";RIGHT$("0"+HEX$(PEEK(&HC007)),2)
1350 'PRINT "CMD16RES:";RIGHT$("0"+HEX$(PEEK(&HC008)),2)
1360 'PRINT "CMD24RES:";RIGHT$("0"+HEX$(PEEK(&HC00A)),2)
1370 'PRINT "CMD24DRS:";RIGHT$("0"+HEX$(PEEK(&HC00B)),2)
1380 'FOR I=0 TO 511
1390 '  C=PEEK(&HC013+I):IF(C<32)OR(C=127)THEN C$="." ELSE C$=CHR$(C)
1400 '  PRINT C$;
1410 'NEXT I
1420 'PRINT:PRINT:RETURN
2000 FOR A1=0 TO &HFF
2010   FOR A2=0 TO &HFF
2020     FOR A3=1 TO &HFE STEP2
2030       POKE &H11,65
2040       D=USR1(0)
2050     NEXT A3
2060   NEXT A2
2070 NEXT A1
2080 END