>>489
俺もやってみたおｗｗ

100 DEFINT A-Z: OPTION BASE 1
110 DIM NAME$(100), ISVALID(100), NEXTID(100), PREVID(100)
120 DIM FIRSTID=0, LASTID=0,
130 PRINT "ADD(1) INSERT(2) DELETE(3) LISTVIEW(4) END(5) COMMAND:";
140 WHILE INK$="": INK$=INKEY$: WEND
150 IF INK$=1 THEN GOSUB *ADD
160 IF INK$=2 THEN GOSUB *INSERT
170 IF INK$=3 THEN GOSUB *DELETE
180 IF INK$=4 THEN GOSUB *LISTVIEW
190 IF INK$=5 THEN END
200 PRINT: GOTO 130