第3章 プログラミング例
Contents
1. LOOP LOOP FORK 1 PG FORK 1 PG TIME 100 TIME 100 QUIT 1 STOP 4 TIME 100 WAIT BSY1 0 GOTO LOOP QUIT 1 PG STOP 5 RMOV 1000 1000 GOTO LOOP TIME 50 PG RMOV 1000 1000 RMOV 1000 1000 TIME 50 TIME 50 GOTO PG RMOV 1000 1000 TIME 50 GOTO PG STOP STOP MPG STOP STOP FORK 1 MPG FORK 1 MPG WAIT SW1 1 WAIT SW1 1 STOP 1 STOP 1 END END MPG MPG RMOV 100 0 RMOV 100 0 GOTO MPG WAIT BSY 0 1 GOTO MPG RMOV 100 0 1 RMOV 100 0 RMOV WAIT BSY 0 1 1 STOP2. FORK 1 PG MAIN IF SW1 1 THEN EMG IF SW 1 THEN JOB1 GOTO MAIN EMG STOP 4 MPG STOP 1 MP G WAIT 0 QUIT 1 STOP 5 MPG GOTO EMG PG MOVE 1000 0 WAIT SW 3 1 MOVE 0 0 WAIT SW 1 GOTO PG STOP 4 STOP 1 WAIT BSY 0 1 FORK 1 PG TIME STOP 1 WAIT BSY 1 0 QUIT 1 END PG RMOV 1000 0 WAIT BSY 1 1 STOP GOTO PG PG 1 PG 1 STOP OVRUN MIF 816 SW 24 3
3. MPC 816 SRAM MPCINIT 3 0 SRAM MPC 816 200V MPC MPC RS 232C 1C
4. 1 O 1 2 AUTO 1 O 1 O DEFS DEFO 1 O 2 DEFS CMND 1 DEFS ACK 2 DEFO CMND 1 DEFO ACK 2 3 4 4 E P amp P
5. 5V EG XCW iCW G5V i iCoW xccm 0 LED 6 ACT000 P MIF 816_J5 PG 1 MIF 816 J5 MPG 303 4 PG 1 CTRL A4 MIEF 816 SW 16 23 STOP MODEB OVRUN OVRUN SE 2 31 60kpps ISHOM x y js s PPS 1 200pps FEBD n n 0 63 MAX60k
6. GP MPC 22 GP R 1 amp HFF 1 GP W GP 16 1 READ
7. H0 amp HOOFF H1 amp HFF00 A1 C 1000 HO A2 C 1000 H1 x 8 3 31 x PC 816 CH1 RS 232C 9600bps NPUT PRINT MPC STRO PRINT PUTS STRO FIND SKIP GET O
8. 3 29 GOSUB ABC ABC PRINT STR 1 RETURN STR 1 1 MPC MPC 816 FOR NEXT GOSUB GOTO IF THEN IF GOSUB 5 GOSUB FOR lt NBXT GOTO GOSUB
9. P amp P1 1 CHACK P amp P0 P amp P2 2 RBELS RUN rr a BU gt RUN P amp P1 NO STATE gt RUN P amp PO NO STATE gt NO STATE RETURN RETURN GOTO RETURN
10. AUTO OFF MAN1 ON START QUIT OA CE HP SETIO VT 5 2 LOOP 1F SW START THEN NORMAL 1F SW EMG 1 THEN EMG NORMAL AIT SW START 0 UIT 1 F SW AUTO 1 THEN A1 MAN1 1 THEN M1
11. MPG 301 0 7 IN8 ON MPG 301 mm dd 9 1 MS 4 3 NI NN gt J 4 We MPG 301 MPG 301 J4 gt Driyer CW Driver CW gt Driver CCW Driver CCW 4 CCW 100 k SW 8 ON NO IN7 DSW ST_REG 0 250
12. 7 LOOP WAIT SW START 1 WAIT SW START 0 QUIT 1 8 IF SW AUTO 1 THEN A1 1F SW MAN1 1 THEN M1 Al FORK 1 AUTO GOTO LOOP M1 FORK 1 MANU GOTO LOOP 1 AUTO 6 FOR I 0 TO 7 ON I TIME 5 OFF I EXT I i GOTO AUTO MANU FOR 0 TO 7 WAIT SW MAN2 1 PRINT I EXT I GOTO MANU 1 START START AUTO MAN1 FORK FORK AUTO ON
13. OVRUN OVRUN amp HFF ZSW 24 31 ON OVRUN amp HO1 SW 24 ON OK OVRUN amp HFFFF SW 24 31 OFF OVRUN amp HFFO1 SW 24 OFF OK ACCEL 3000 FEED 0 FEDZ 0 OVRUN amp HFF SW 24 31 ON MOVE 10000 10000 IF IN 3 lt gt 0 THEN OVRUNERR 0VRUN MPG 301 MPG 301 IC X3202 50kpps S MPG 301 Web MPG 301
14. 1z sec ACCEL ACCEL MPG 8kpps T 4 MPG 303 2 PG 1 REV 3 2 P 3 D45 0 ACCEL 8000 SETPOS 0 0 LOOP MOVE 10000 0 TIME 100 MOVE 0 0 GOTO LOOP oo oo oo o Roo oo an 0 5 1 7 4 2 1 2 0 mm kpps gg PG MPG 303 1 3 MPG PG 1
15. 30 P amp P1 P amp P2 P amp PO OFF HANDDWN STOP OFF HANDDWN OFF HANDDWN IME 50 STOP TIME 80 HANDMAE E 50 OFF HANDME IME 100 HANDMAE TIME 50 HANDDWN E100 RETURN IME 100 HANDDWN ETURN E 100 ETURN do Se TE Ce 3 5 1 P MPG 303 MPC 816 MPG 303 MODE5 MODB6 MODE5 MODEB6 10 20 rp sec
16. 4 PG 1 FORK 1 PG TIME 100 STOP 1 WAIT BSY 1 0 X1 X O END PG MOVE 10000 0 END 1 O LT MPG MPG TASK1 WAIT RSVC1 0 MOVE 1000 0 OFF 1 GOTO TASK1 1 TASK1 A 1 WAIT A 0 GOTO TASK1 PG IF A 1 THEN MV IF B 1 THEN R
17. MPC GBT IO 1 10 GETN A 20 A1 GET 0 30 SKIP amp HO00D 20 GET 0 GBTN GETN RS 1 Gr a
18. 5 LOOP 10 IF SW 1 0 THEN NEXT 20 FORK 1 SUB 30 NEXT 40 GOTO LOOP 50 SUB 60 ON 0 70 TIME 10 80 OFF 0 90 END FORK 5 LOOP 10 IF SW 1 0 THEN NEXT 12 FORK 1 SUB 14 WAIT SW1 0 16 QUIT 1 30 NEXT 40 GOTO LOOP 3 27 f SUB FORK SUB E IF SWG 5 LOOP 10 IF SW 1 1 THEN WORK1 20 IF SW 2 1 THEN WORK2 30 IF SW 3 1 THEN WORK3 200 IF SW 20 1 THEN WORK20 210 GOTO LOOP IN 5 LOOP 10 AIN O amp HFE 20 IF A 2 THEN WORK1 30 IF A 4 THEN WORK2 40 IF A 8 THEN WORKS 50 IF A 128 T
19. PC 816 RS 232C MPC 816 CA FORK FORK SW1 1 SUB SUB SW 1
20. ESC W LX hex 7 3 23 SO0 A amp HOF GOSUB WRITE1 S0 S amp HF000 7 S0 S0 amp H1000 GOSUB WRITE1 S0 S amp HOF00 S0 S0 amp H0100 GOSUB WRITE1 S0 S amp HFO0 S0 S0 amp H10 GOSUB WRITE1 S0 S amp HOF GOSUB WRITE1 PUT amp HOD RETURN WRITE1 IF SO0 gt 9 GOSUB AF ELSE_GOSUB O0_9 PUT SO RETURN A F S0 amp H37 S0 RETURN 0_9 S0 amp H30 SO0 RETURN RS_RCV R GET 0 PRINT R OUT R 0 GOTO RS_RCV 2 GP H70 SAMPLE USE GP READ WRITE COMMAND GPH70S20 980818 S 0 CNFG 4 0 2 LP1 READ WRITE A 600 S IN 0 GOSUB WRITE FOR A 500 TO 503 GOSUB READ NEXT A GOTO LP1 WRITE PUT amp H1B amp H57 S0 A amp HF000 S0 S0 amp H1000 GOSUB WRITE1 S0 A amp HOF00 S0 S0 amp HO100 GOSUB WRITE1 SO0 A amp HFO S0 S0 amp H10 GOSUB WRITE1 3 24 SO0 A amp HOF GOSUB WRITE1 S0 S amp HF000 S0 S0 amp H1000 GOSUB WRITE1 S0 S amp HOF00 S0 S0 amp H0100 GOSUB WRITE1 S0 S amp HFO0 S0 S0 amp H10 GOSUB WRITE1 S0 S amp HOF
21. ON 1 ON 1 2 OFF 1 2 3 4 ON A OUT IN O 0 OUT amp HAA 0 gt ON IN IN IN O 299 2 16 gt 10 A1 C 1000 amp HFF 15 gt LIST 10 Al1 C1000 amp HOOFF 17 gt LIST 10 Al1 C1000 amp HOOOF FF F gt 15 4 17 17 1
22. MPC 816 RS 232C CH1 GP70 MPC GP 1 GP GP SW T 13 RS 232C SW T MPC GET MPC GP W
23. ON OFF SW0 OUT I 0 1 O MBK 816 IF SW 5000 1 THEN A ld 5000 IF SW A0 1 THEN 3 26 PC MPC 816 RAM
24. 1 4 64 READ GP RS 232C GP GP RS 232C MBK 816 1 GP H70 SAMPLE USE T TAG amp SYS Adr13 GPH70S10 980818 CNFG 4 0 2 FORK 1 RS_RCV LP1 A 600 S IN 0 GOSUB WRITE WAIT IN O S GOTO LP1 WRITE PUT amp H1B amp H57 SO0 A amp HF000 S0 S0 amp H1000 GOSUB WRITE1 SO0 A amp HOF00 S0 S0 amp H0100 GOSUB WRITE1 SO A amp HFO0 S0 S0 amp H10 GOSUB WRITE1 9600bpsy 8bit 1
25. P n 1 3 PR Q gt MPCINIT PG 2 X Y Z U 2048 28691 2048 28691 XYZ U 400 400 T lt ENTER gt gt PG 1 gt MODE 5 gt ACCEL 15000 gt SETP0S 0 0 gt STPZU 0 0 0 PG 1 1 Y Z 0 0 0 0 XYZ U 200 200 T lt ENTER gt gt PG 1 1 Y Z U 400 0 0 0 XYZ U 200 200 P1 PG 1 1 Y Z U 800 0 0 0 XYZ U 200 200 P3 PG 1 1 Y Z U 800 0 0 0 XYZ U 200 200 gt PR P 1 P 3 400000800000 Xx Yy Zz Uu 0123 P Q X 1 Y 1 2Z U 3 10 T a a
26. 0 1 1 6 2 3 DSW 2 3 I O MPC 816 QUIT QUIT QUIT MPG
27. i ai IF SW O 1 GOSUB 1100 IF SW1 1 GOSUB 1200 IF SW 2 1 GOSUB 1300 GOTO 1000 RMOV 10 0 RETURN RMOV 10 0 RETURN SETP 1 X 0 Y O RETURN JO6 MPG JOG JOG XRANG URANG JOG STOP X1 JOG 910 XRANG 10000 10000 1000 1010 1100 1110 1120 1125 1130 1200 1210 1220 1225 1230 IF SW O 1 GOSUB 1100 IF SW1 1 GOSUB 1200 JOG 100 1 WAIT SW O 0 STOP 1 TIME 5 RETURN JOG 100 2 WAIT SW1 0 STOP 1 TIME 5 RETURN XRANG YRANG URANG ZRANG FE MPC 10KEY MPC STOP T
28. MPG MODB OVRUN MPG D45 0 SBETPOS SETPOS 0 0 10000 1 0 ACCEI ACCEL 4 ACCEL 8000
29. 0 1 2 MPC 1 MPC 1 MPC 2 5 LOOP 100 PRINT X1 Y1 10 INPUT AB 120 INPUT A 20 RMOV AB 130 IF A lt gt 7 THEN ERR 30 PRINT 7 40 GOTO LOOP MPC CH1 N88BASIC MPC 10 OPEN COM1 E71XN AS 5 CNFG 2 0 2 10 INPUT AB 20 RMOV A B 0 100 PRINT 1 A B 30 PRINT 7 110 INPUT 1 C 40 GOTO 10 N88BASIC MPC NYFSC
30. MPG 808 FS TEACH 4 JOG PG OVRUN D4 5 ACCEL 11 12 1 83 5X5 IF SW START 1 GOSUB START ym IF SW HOMES 1 GOSUB HOME IF SW TEACH 1 GOSUB TEACH GOTO MAIN START MOVE P1 ON PALET WAIT SW OP1 1 OFF PALET J 0 ON OP 1 D L00 WAIT SW SYS1 1 MOVE PLO GOSUB PLACE IF J 25 THEN END GOTO LOOP ICK PICK MOTION ETURN ACE LACE MOTION TURN D ETURN Ht
31. DC24V MPC LED 0 1 MPC 816 LED AC DC24V LED MPC 816 TNYFSC TNYFSC MPC 816 AZ 286 M AAO Al1 A8 A9 B BOB1 B8B9 CCO0C1 C8 6C9 1 YYO Y1 Y8 Y9 ZZ0Z1 Z82Z29 3byte 8388608 Z 32
32. E 0 CW ACCBL MODBE5 6 f 8Mhz 1841 208 Xn 10 2040 3 2k HOME ON OFF HOME E z 509 Z Z ON 3 8 J 2 1 XS1 ON OFF 0 2 XS2 2 OFF 0 ON 1 3 YS1 ON
33. OO Al FORK 1 AUTO GOTO LOOP M1 FORK 1 MANU GOTO LOOP Gr 3 3 3 LOOP 7 WAIT SW START 1 WAIT SW START 0 ON 1 WAIT SW 2 1 QUIT 1 1F SW AUTO 1 THEN A1 IF SW MAN1 1 THEN M1 Al OFF 1 2 FORK 1 MANU GOTO LOOP SS OB M1 ON 2 FORK 1 MANU GOTO LOOP 2 A IME 5 UTO k OR I 0 TO 7 I FF I EXT I F SW 1 0 THEN AUTO Fi 0 T 0 N 1 0 2 WAIT SW 1 0 GOTO AUTO E
34. 5 WAIT RS1 gt 10 10 GETN A 20 A1 GET 0 30 SKIP amp HO00D INPUT INPUT CR LF 3 32
35. TNYFSC gt LIST 10 FORK 1 TASK2 20 FOR 1 TO 10 30 ON 1 40 TIME 5 50 OFF 60 NEXTI 70 GOTO 20 80 TASK2 90 PG 3 3 28 100 RMOV 1000 0 110 GOTO 100 gt RUN 40 IIOut of Range gt 40 Out ogf Range 90 PG3 MON o gt MON TASK1 40 TASK2 90 IIOut of Range gt MON MPC 816K KF
36. MPC MPC GET PUT PUTS GETN SKIP FIND SP X1 230 13 SP SP Y1 156 17 SP CR INPUT X1 Gr 3 20 100 SKIP amp H3D amp H3D 110 GETN XO 230 X00 120 SKIP amp H2E amp H2E 130 GETN X1 13 X1 140 SKIP amp H3D 150 GETN YO 156 YO 160 SKIP amp H2E 170 GETN Y1 17 Y1 180 SKIP amp HOD amp HOD CR 190 X0 XO 100 200
37. MPC a VPC lt CTRL gt lt A gt AC PRNT NEUT ON 1 tT 1TERMINAL MPC 0 0 echo echo N N echo sp 2 A sp sp echo cr 1 1 echo If cr cr echo cr If gt HH gt 10 ON 1 1TERMINAL MPC 1 1 echo 0 0 echo sp sp echo 0 0 echo N N echo sp sp echo 1 1 echo er Ler echo cr If
38. 250 1 ST_REG 3 100 100pps ST_REG 4 1000 1000pps ST_REG 5 100 100pps2 ST_REG 6 100 CMND amp HAO CMND amp HO6 IF SW 8 1 GOTO STOP R4 IN O R4 R4 20 20 ST_REG 4 R4 GOTO LOOP STOP CMND amp HS1 WAIT REG 1 amp H20 WAIT SW 8 0 GOTO MAIN RS 232C MPC MPC 3 5 CNFG INPUT PRINT MPC 1 MPC 2 10 CNFG 2 0 2 10 CNFG 2 0 2 20 ON 1 20 INPUT A 30 PRINT 1 30 ON 1 40 INPUT A 40 TIME 100 50 IF A 0 THEN ERROR 50 IF SW 1 0 THEN ACK 60 OFF 1 60 OFF 1 70 GOTO 20 70 PRINT 1 1000 ERROR 80 GOTO 20 1010 1000 ACK 1010 PRINT 0 MPC 1 30 1 MPC 2 INPUT MPC 1 MPC 1 MPC 2 40 INPUT MPC 2
39. PLXO PLYO PLn X Y Z U 4 X Y 2 U Z PALET P Z U PL1Q U Z MPG 303 FS START 1 HOMES 2 mH i FO READY 1 FO ERR 2 mn FS SNS1 5 lt FS XCW 6 FS YCW 7 FS XCCW 8 FS YCCW 9 FS PENT 10 lt FS OP1 11 lt FO PALET 5 lt IT 1 PG 1 MODE 5 OVRUN 0 Ho gt D45 0 ACCEL 15000 PALET 11 12 13 MTRX 5 5 MAI
40. SHOM 2 8 10 HOME amp HA 100 100 NSR XY CCW SHOM 1 4 10 SHOM 2 2 XS2 Z Z MPG 30 3 to to 1 1 S S 2 1 XS1 MPG PIF 4 22 4 2 XCW 4 4 XCCW 4 6 YCW 4 8 YCCW 1 NN 8 MPC I XY
41. 48byte GOSUB 4byte FOR NEXT 6byte GOSUB 11 FOR NEXT 8 48 GOSUB 41 FOR NBXT 6 1 2 0 0N A 10 FOR A 1 TO 10 20 OFF B 20 ON 4 5 30 GOSUB WORK1 30 IF SW 5 1 THEN 70 40 WAIT SW 1 1 40 TIME 10 1F FOR 50 OFF 1 50 OFF 4 5 00 WORK1 60 NEXT A 10 ON 1 2 3 70 ON 1 2 20 OFF 5 4 80 OFF 4 5 30 GOTO 40 lt RETURN GO 1 2 0 ON A 0 A 1 20 OFF B 5 LOOP 30 GOSUB WORK 1 20 ON 4 5 40 WAIT SW 1 1 30 IF SW 5 1 THEN 70 50 OFF 1 40 TIME 10 50 OFF 4 5 00 WORK 1 60 A AT1 10 ON 1 2 3 65 IF A lt 11 THEN LOOP 20 OFF 5 4 70 ON 1 2 30 RETURN 80 OFF 4 5 IF ELSE ELSE IF ELSE
42. 1 0 MPC 0 15 0 7 MI MPC I O 2 4 0 6 0 DEFS START DEFS AUTO 1 7 H 1 E MPC 816 16 8 0 16 31 8 15 E DEFS DEFO 1 O DEFS MAN1 2 DEFS MAN2 1 DEFS CYCLE DEFS MIGI 5 DEFS HIDARI 6 DEFO PIN 0 DEFO HANDDWN 1
43. J0G STOP JOG STOP STOP STOP 1 STOP 0 1 STOP MPG MPG TEACH IF SW1 1 THEN XCW IF SW 1 THEN XCCW IF SW 3 1 THEN END GOTO TEACH XCW JOG 100 1 WAIT SW1 0 STOP 1 TIME 10 0 1 X X 0 GOTO TEACH XCCW JOG 100 2 WAIT SW 2 0 STOP 1 TIME 10 0 1 X X 0 GOTO TEACH RMOV MOVE STOPF MPG BSYO PG 1 FORK 1 PG TIME 100 STOP 1 X1 X 0 END PG MOVE 10000 0 END
44. a 1 O XY JOG RMOV 2 BOX XY BOX RMOV RMOV RMOV S 1000 1010 1020 1030 1100 1110 1200 1210 1300 1310 ETP X 1 RMOV
45. 23 C i OME amp E HA 100 1 6 15 0 4 MPG 303 J2 MPG 303 J2 MIF 816 J4 XS1 1 1 SW 16 XS2 2 3 GW17 YS1 3 5 SW 18 YS2 4 7 GW19 US1 5 9 SW 20 US2 6 11 SW 21 ZS1 7 13 SW 22 ZS2 8 15 SW 23 SHOM HOME MPG 303 2 SI
46. eo Pn X n YQ ZN UQ ARQ Ee n XQ Yn Z n un P n MOVE JMPZ JUMP PRINT Xn U n SBTP STPZU gt SETP 1 100 200 gt STPZU 1 300 400 gt X 1 100 gt Y 1 200 gt Z 1 300 gt U 1 400 gt 10 SETP 1 100 200 20 STPZU 1 300 400 3 9 1 MOVE P
47. 1kpps JOG PULSE F Fe i Z MIF 816 J5 Z PG 1 2Z P 3 7 2 0Y XY X 2 MN NR H
48. 50kpps FEED ACCEL 15 FEBD 0 FEED 15 MPG TTL 2 PIF 422 IF UL 3 6 MPG MPG 303 J2 OVRUN MIF 816 24 31
49. DEFO HANDMAE 2 DEFO PINUP DEFO AIR 4 DEFO MAE 5 DEFO STOP 6 DEFO VACUM 0 O NO 0 START ON 1 MOODE AUTO 4 2 MAN1 3 MAN 2 4 CYCLE 5 OFF 6 n 0 o 1 o 3 2 ON C 3 ON 4 Qo 5 0 7 6 ON B 7 ON START A MAN1 WNANI CYCLEI BOX 3 1 2 MPC
50. ELSE_THEN ELSE_GOSUB P Z 31 41 IF SW 0 1 THEN SUB1 IF SW 0 1 GOSUB SUB1 ELSE_THEN SUB2 ELSE_GOSUB SU SUB1 E SUB1 SUB2 2 SUB2 2 RETURN 3 30 MPC 816 IF a IF X 1 100000 THEN 200 IF b IF X 1 10000 THEN 200 TNYFSC 16byte IF a 100000 3byte b 10000 2byte b 16byte a 16byte IToo long PRINT 70000 10 PRINT SQR 50000 60000 70000 LIST 10 PRINT SQR 50000 60000 gt 3 ON OFF
51. KO RSm TST 0 CH1 INPUT GET 0 RS n TST 0 MPC CH 0 CH ON OFF 10 SAMPLE 10 INITIAL 20 INPUT B 20 OPEN COMI E71XN AS 30 QUIT 1 30 PRINT 1 CHR amp H1 40 OFF A 40 IF INPUT 1 1 gt THEN START 50 A B 50 GOTO 40 60 FORK 1 1000 gt 60 70 GOTO 20 70 START 1000 ON A 80 PRINTHI RUN CHR amp HD 1010 TIME 20 90 10
52. OFF 0 4 YS2 2 OFF 0 ON 1 amp H5 amp HA HOME 2 3 HPT 0 hs o CW Z 0 0 Z 4 S 100 HRD R SHRD Z a PG 1 PG 1 M OM F 816 3 PT MPG C
53. HOME SHOM 2 8 10 HO ET TEACH F SW XCW 1 THEN F SW YCW 1 THEN 2 GOT XMV 0G 100 1 WAIT SW XCW 0 GOTO MV_ END XMVN JOG 100 2 WAIT SW XCCW 0 GOTO MV_END YMV JOG 100 3 WAIT SW YCW 0 GOTO MV_END YMV JOG 100 4 WAIT SW YCCW 0 MV END STOP 1 TIME 10 GOTO TEACH PENT A IN 2 amp H000F Al IN 2 16 Al Al 10 A ATA1 SETP A X 0 Y 0 RETURN 0 TEACH F SWOCCW 1 THEN XMVN F SW YCCW 1 THEN YMVN F SW PENT 1 THEN PENT FEED Z SHRD 6 SHRD SHRD 15 E amp HO00A 100 100 URN XMV YMV TOG v TOG 100 9 JOG STOP
54. MOVE X YD A0 X 1 A1 Y 1 MOVE AO Al gt 10 X 1 X 1 DO 20 Y Y D1 Va wb 3 JOG T lt ENTER gt 0 3 X CW x CCW X Y 2Z U P
55. 20 OFF A 100 MAIL LOOP 1030 TIME 20 110 IF INPUT 1 1 9 THEN RSPNS ELSE 110 1040 GOTO 1000 120 RSPNSO 130 INPUT PLEASE SET DATA PORT NUMBER 4 140 IF A gt B THEN RESET 150 PRINT 1 A CHR amp HD 160 GOTO 110 170 180 RESET 190 INPUT CAN I RESET FASIC 1 Y N C 200 IF C Y THEN 30 ELSE RSPNS MI 01H PRINT CHRS amp H1 MPC 3 MPC BASIC FE gt INPUT 9 Z 3 21 MPC 1 AM CH 0 MPC
56. 767 2byte ARO ARO AR 0 AR 31 32 P MQ ARO SFTL SFTR X0 Y0 U0 20 4 1 300 X 0 Y 0 U 0 Z 0 Ed H MPC 816 12 11 RS 232C CH1 ABC
57. GOSUB WRITE1 PUT amp HOD RETURN WRITE1 IF SO0 gt 9 GOSUB AF ELSE_GOSUB O0_9 PUT SO RETURN A F S0 amp H37 S0 RETURN 0_9 S0 amp H30 SO0 RETURN READ PUT amp H1B amp H52 SO0 A amp HF000 S0 S0 amp H1000 GOSUB READ1 SO0 A amp HOF00 S0 S0 amp H0100 GOSUB READ1 SO A amp HFO0 S0 S0 amp H10 GOSUB READ1 SO0 A amp HOF GOSUB READ1 PUT amp H30 amp H30 amp H30 PUTS 1 PUT amp HOD SKIP amp H41 INPUT D 0 A 500 OUT D 0 RETURN READ1 IF SO gt 9 GOSUB A F ELSE_GOSUB 0_9 PUT SO RETURN ESC R LX hex 7 1 A CR 3 25 MBK 816 RS 232C MBK 816 MBK 816 Web BK 816 RS 422
58. HEN WORK7 60 A IN 1 HSW n SWn 2 2 HSW n 10 FORK 1 PRG1 20 FORK 2 PRG2 30 LOOP 40 IF A 1 THEN SUB1 50 IF B 1 THEN SUB2 100 GOTO LOOP 200 PRG1 210 A HSW 1 220 GOTO PRG1 230 PRG2 240 B HSW 2 250 GOTO PRG2 PRG1 PRG2 HSW 1 HSW 2 SWQ SW 1 HSWO
59. IME 5 MPG 3 1 1 1 2 3 5 5 PL 100 PALET 123 110 MTRX 5 5 120 FOR 1 TO 25 130 MOVE PLI 140 NEXT P P 4 PQ PL 1 P PL 5 P 3 PL 21 P 4 PL 25 PQ P P 2 PALET1 MTRX1 PL1 n X Y
60. V GOTO PG MV MOVE 1000 0 A 0 GOTO PG RV RMOV 1000 0 B 0 GOTO PG TASK2 WAIT RSV 1 0 RMOV 1000 0 OFF 1 GOTO TASK2 TASK2 B 1 WAIT B 0 GOTO TASK2 STOP STOP 1 5 STOP1 STOP STOP2 STPO STOP 3 1 O STOP 3 10 1 MOVE 10000 0 10 ON MOVE STOP 4 MPG STOP 5 STOP4 OVRUN OVRUN STOP 1 STOP 2 STOP 4 STOP 5
61. X0 XO X1 X0 23013 210 YO YO 100 220 YO YO Y1 YO 15617 SKIP GBTN 1 2 RS 232C CH1 DAT CR 1 100 CH1 DAT 110 PUTS STR 1 120 PUT amp HOD 2 100 PUT amp H43 amp H48 amp H31 110 PUT amp H20 amp H44 amp H41 120 PUT amp H54 amp HOD TNYFSC RSG TST
62. gt amp H_ NEW amp HD amp HD amp HA gt 10 ON 1 amp HD amp HD amp HA gt 20 ON 2 amp HD amp HD amp HA gt 30 TIME 100 amp HD amp HD amp HA gt LIST amp HD amp HD amp HA 10 amp HA ON 1 amp HD amp HA 20 amp H9 ON 2 amp HD amp HA 30 amp H9 TIME 100 amp HD amp HA gt INPUT A B amp HD amp HD amp HA 1234 567 amp HD 8HD amp HA gt PRINT A B amp HD amp HD amp HA 1234 567 amp HD amp HA gt TEACH amp HD amp HD X Y Z 0 0 210 0 XYZ U 100 100 Q amp HD amp HA gt FTMW ACTERM ACTBRM 1 E 3 22
Download Pdf Manuals
Related Search