mirror of
https://github.com/equant/apple2idiot.git
synced 2024-06-13 08:29:38 +00:00
47 lines
975 B
QBasic
47 lines
975 B
QBasic
10 CA = 49664
|
|
20 AA = CA +1
|
|
30 CC$ = ""
|
|
35 CITY$ = ""
|
|
100 PRINT
|
|
110 PRINT "----"
|
|
120 PRINT "MENU"
|
|
130 PRINT "(1) COUNTRY","",CC$
|
|
140 PRINT "(2) CITY","",CITY$
|
|
150 PRINT "(3) FETCH WEATHER"
|
|
160 PRINT "(4) SHOW WEATHER"
|
|
170 PRINT "(0) QUIT"
|
|
175 PRINT
|
|
180 INPUT "SELECT: ";S
|
|
190 IF S >4 THEN GOTO 100
|
|
200 IF S = 0 THEN END
|
|
210 IF S = 1 THEN GOTO 1000
|
|
220 IF S = 2 THEN GOTO 2000
|
|
230 IF S = 3 THEN GOTO 3000
|
|
240 IF S = 4 THEN GOTO 4000
|
|
250 GOTO 100
|
|
1000 INPUT "COUNTRY CODE: ";CC$
|
|
1010 WS$ = CC$
|
|
1020 WA = AA +1
|
|
1030 GOSUB 10000
|
|
1040 POKE AA,200
|
|
1050 GOTO 100
|
|
2000 INPUT "CITY: ";CITY$
|
|
2010 WS$ = CITY$
|
|
2020 WA = AA +1
|
|
2030 GOSUB 10000
|
|
2040 POKE AA,201
|
|
2050 GOTO 100
|
|
3000 POKE AA,205
|
|
3010 GOTO 100
|
|
4000 REM
|
|
4010 REM
|
|
4020 GOTO 100
|
|
10000 REM WRITE WS$ TO WA
|
|
10010 FOR N = 0 TO LEN(WS$) -1
|
|
10020 P = WA +N
|
|
10030 C$ = MID$ (WS$,N +1,1)
|
|
10040 PRINT C$, ASC(C$)
|
|
10050 POKE P, ASC(C$)
|
|
10060 NEXT N
|
|
10070 POKE P +1,3
|
|
10080 RETURN |