AutoHotkey Community

MODIFIED=20080110
/*
  date..............20080110
  name .............XP2PC8201A.ahk
  use for ..........transfer from XP to BASIC Calculator NEC PC-8201A
  addon.............gwbasic.exe
  ..................http://www.web8201.com/
  ..................http://www.geocities.com/KindlyRat/GWBASIC.html
  ..................http://oldfiles.org.uk/powerload/msdos.htm
  ..................http://www.autohotkey.com
*/



;------- this is autohotkey script can use numbered lines alone with GWBASIC -------------
; select xy.ba to transfer to NEC PC-8201A
; RS232 COM1 NullModemCable
;
F11=test1.bas
F12=test2.bas
filedelete,%F11%
  gosub,gosub11

Gui,1:Add, Listview, x10 y10 w400 h170 altsubmit vAAA1 gAAA2, FILES
Gui,1:add,text,x10 y190 w200 vAL
Gui,1:Show,x0 y0 w430 h210,Transfer to NEC PC-8201A
Loop, *.ba, 1, 1
  LV_Add("",A_loopfilename)

GuiControl,1:Text,AL,%nothing%
return

AAA2:
gui,1:submit,nohide
if A_GuiEvent=normal
     {
     LV_GetText(C1,A_EventInfo,1)
     goto,test11
     return
     }
return

TEST11:
filedelete,%F12%
FileRead,AAC,%F11%
  stringreplace,AAB,AAC,XXXXX,%C1%,all
  fileappend,%AAB%,%F12%
GuiControl,1:Text,AL,Running.....
runwait,%comspec% /C gwbasic test2
GuiControl,1:Text,AL,Transfer to PC-8201 finished
return

GuiClose:
ExitApp


GOSUB11:
transform,eof,chr,26
e11=
(
500 '
520 PRINT "First type in at computer NEC PC-8201A=":PRINT
560 PRINT "LOAD";Chr$(34);"COM:5N81NN";Chr$(34);"  and ENTER"
565 PRINT:PRINT:PRINT "push any key ......"
570 IF INKEY$<>" " THEN GOTO 570
580 OPEN "COM1:1200,n,8,1,asc" AS 1
592 OPEN "XXXXX" FOR INPUT AS 2
595 'x
600 A$=INPUT$(1,#2)
605 Print A$;
610 PRINT #1,A$;
615 IF EOF(2) <>0 THEN 630
620 GOTO 600
630 'x --
634 CLOSE
660 SYSTEM
)
transform,ten,chr,10
transform,tre,chr,13
CF=%TRE%%TEN%
stringreplace,e11,e11,%ten%,%CF%,all
Fileappend,%e11%`r`n,%F11%
return