8bit부터 486 시절까지 접했던 자료들에 대한 개인적인 이야기.
다운로드는 기본적으로 제공하지 않고 있습니다.
비밀번호

  • 자료 처리 프로그램 v0.95 [소스 포함]

  • 짧은주소 : http://dreamphp.com/s/g0qn

  • 작 성 자 : BiHonHomepage

  • 조 회 수 : 69

  • 등 록 일 : 2018-05-01 12:28:19

  • 자료 처리 프로그램 v0.95
    -
    권용범
    2.46 KiB

    GW-BASIC으로 작성된 프로그램입니다.
    이름이 같아서 받았던가…. 가물가물하군요.


    
    10 REM 자료 처리 프로 그램  VER. 0.95
    20 DATA 자,료,처,리,프,로,그,램
    30 KEY 1," 자료"
    40 KEY 2," 처리"
    50 KEY 3," 프로"
    60 KEY 4," 그램"
    70 KEY 5," ...."
    80 KEY 6,"김포"
    90 KEY 7,"중앙"
    100 KEY 8,"컴퓨터"
    110 KEY 9," 학원"
    120 KEY 10," K.Y.B "
    130 DIM A$(8)
    140 COLOR 13,4:CLS
    150 LOCATE 6,14
    160 KEY ON
    170 FOR I=1 TO 8
    180 BEEP
    190 READ A$(I)
    200 PRINT SPC(4);A$(I);
    210 NEXT I
    220 FOR J=1 TO 9111:NEXT J
    230 COLOR 15,1
    240 CLS
    250 LOCATE 6,28 : PRINT "   메  뉴   "
    260 LOCATE 8,20 : PRINT " -- [ 1 ] --   자료 등록   --  "
    270 LOCATE 10,20 : PRINT " -- [ 2 ] --   자료 조회   --  "
    280 LOCATE 12,20 : PRINT " -- [ 3 ] --   DOS 로-->   --  "
    290 LOCATE 14,20 : PRINT " -- [ 4 ] --   종  료      --  "
    300 LOCATE 16,20 : PRINT " -- [ 5 ] --   도 움 말    --  "
    310 PLAY "mft150"
    320 PLAY "o2g4g8g8g4g8g8b4>d8d8<b4g4"
    330 LOCATE 18,16 : INPUT "    번호를 선택 하시오 ";N
    340 ON N GOSUB 360,600,820,940,1020
    350 GOTO 220
    360 COLOR 1,15:CLS
    370 KEY 1,"------"
    380 KEY 2,"------"
    390 KEY 5,"------"
    400 KEY 3," 자료 "
    410 KEY 4," 등록 "
    420 OPEN "r",#1,"FRIEND",62
    430 FIELD #1,10 AS N$,2 AS A$,40 AS AD$,10 AS T$
    440 LOCATE 6,16 : PRINT " 자료 등록  [  1  ]  "
    450 LOCATE 10,20:INPUT " 레코드 번호 ";CO%
    460 IF CO%=0 THEN 580
    470 LOCATE 12,20:INPUT " 이  름 : ";NN$
    480 LOCATE 14,20:INPUT " 학  년 : ";A
    490 LOCATE 16,20:INPUT " 소  속 : ";AAD$
    500 LOCATE 18,20:INPUT "전화번호: ";TT$
    510 LSET A$=MKI$(A)
    520 LSET N$=NN$
    530 LSET AD$=AAD$
    540 LSET T$=TT$
    550 PUT #1,CO%
    560 PRINT
    570 GOTO 450
    580 CLOSE #1
    590 RETURN
    600 REM 자료 조회 프로 그램
    610 COLOR 14,2:CLS
    620 KEY 1,"------"
    630 KEY 2,"------"
    640 KEY 3," 자료 "
    650 KEY 4," 조회 "
    660 KEY 5,"------"
    670 OPEN "r",#1,"FRIEND",62
    680 FIELD #1,10 AS N$,2 AS A$,40 AS AD$,10 AS T$
    690 LOCATE 6,16 : PRINT " 자료 조회  [  2  ]  "
    700 LOCATE 10,20:INPUT " 레코드 번호 ";CO%
    710 IF CO%=0 THEN 800
    720 GET #1,CO%
    730 A=CVI(A$)
    740 LOCATE 12,20:PRINT " 이  름 : ";N$
    750 LOCATE 14,20:PRINT " 학  년 : ";A
    760 LOCATE 16,20:PRINT " 소  속 : ";AD$
    770 LOCATE 18,20:PRINT "전화번호: ";T$
    780 PRINT
    790 GOTO 700
    800 CLOSE #1
    810 RETURN
    820 CLS
    830 KEY 1," DOS "
    840 KEY 2,"로 갑"
    850 KEY 3,"니다."
    860 KEY 4,"------"
    870 KEY 5,"----->"
    880 LOCATE 12,26:INPUT " 저장 ( 1 ) 저장안함 ( 2 ) : ";L
    890 ON L GOTO 910,900
    900 SYSTEM
    910 LOCATE 14,20: PRINT " 저장 합니다"
    920 SAVE"KYB
    930 GOTO 900
    940 CLS
    950 LOCATE 8,16:PRINT "종료 하겠습니까 ( Y or y ) "
    960 LOCATE 8,43:INPUT O$
    970 IF O$=CHR$(121) OR O$=CHR$(89) OR O$="ㅛ" THEN 980 ELSE 1010
    980 LOCATE 10,16 : PRINT " 프로그램을 이용해 주셔서 감사합니다. "
    990 LOCATE 12,20 : PRINT " 프로그램 작성자 : 권 용 범 "
    1000 END
    1010 RETURN
    1020 CLS
    1030 FOR I=1 TO 10
    1040 KEY I,"도움말"
    1050 NEXT I
    1060 LOCATE 6,28:PRINT "  도 움 말 "
    1070 LOCATE 8,20:PRINT "   1 번   자료 입력 "
    1080 LOCATE 10,20:PRINT "   2 번   자료 조회 "
    1090 LOCATE 12,20:PRINT "   3 번   도스로 빠져나감 "
    1100 LOCATE 14,20:PRINT "   4 번   프로그램을 종료 "
    1110 LOCATE 17,18: INPUT " MAIN 으로 갈까요 ( M or m ) ";M$
    1120 IF M$=CHR$(77) OR M$=CHR$(109) OR M$="ㅡ" THEN 1130 ELSE 1020
    1130 RETURN
    
    

+ 이름

- 홈페이지

+ 내용

+ 비밀번호

* 4~20자

+ CAPTCHA

CAPTCHA Image [새로고침] (※ 대소문자 구분)

  • 번호

  • 제목

  • 이름

  • 등록일

  • 조회수