kimpro82 / MyLegacyPractice

Old School Party!
1 stars 0 forks source link

GW-BASIC : Subroutine with `GOSUB` ~ `RETURN` statements #5

Closed kimpro82 closed 9 months ago

kimpro82 commented 1 year ago

References

kimpro82 commented 1 year ago

by ChatGPT

10 PRINT "1. 16진수 -> 10진수 변환"
20 PRINT "2. 10진수 -> 16진수 변환"
30 PRINT "3. 종료"
40 INPUT "메뉴를 선택하세요 (1, 2, 3): "; MENU

50 IF MENU = 1 THEN
60   INPUT "16진수 값을 입력하세요: "; HEX
70   PRINT "10진수 값: "; VAL("&H" + HEX)
80 ELSEIF MENU = 2 THEN
90   INPUT "10진수 값을 입력하세요: "; DEC
100  PRINT "16진수 값: "; HEX$(DEC)
110 ELSEIF MENU = 3 THEN
120  PRINT "프로그램을 종료합니다."
130  END
140 ELSE
150  PRINT "잘못된 메뉴를 선택했습니다. 다시 선택해주세요."
160  GOTO 40
170 END IF

180 GOTO 40
kimpro82 commented 9 months ago