Hehe jak w temacie. Ktoś z Was programuje hobbystycznie może jakiś stary sprzęt? Ja sobie ostatnio odświeżyłem Basic'a dla Commodore C64. Fizycznie mam tego kompka w domu całkowicie sprawnego. Aż się łezka w oku kręci. I pomyśleć, że jeszcze 20 lat temu niewiele bym z tego kodu rozumiał (no, może nie zapędzajmy się aż tak hehe):
10 PRINT "KALKULATOR"
20 PRINT "1. DODAJ"
30 PRINT "2. ODEJMIJ"
40 PRINT "3. POMNOZ"
50 PRINT "4. PODZIEL"
55 PRINT "K. KONIEC"
60 PRINT ""
70 INPUT"WYBIERZ"; WYB$
80 IF WYB$="1" THEN GOTO 90
81 IF WYB$="2" THEN GOTO 100
82 IF WYB$="3" THEN GOTO 110
83 IF WYB$="4" THEN GOTO 120
84 IF WYB$="K" THEN GOTO 1000
90 PRINT "DODAWANIE"
91 INPUT "PIERWSZA LICZBA: "; A%
92 INPUT "DRUGA LICZBA: "; B%
93 PRINT "WYNIK: "; A%+B%
94 GOTO 200
100 PRINT "ODEJMOWANIE"
101 INPUT "PIERWSZA LICZBA: "; A%
102 INPUT "DRUGA LICZBA: "; B%
103 PRINT "WYNIK: "; A%-B%
104 GOTO 200
110 PRINT "MNOZENIE"
111 INPUT "PIERWSZA LICZBA: "; A%
112 INPUT "DRUGA LICZBA: "; B%
113 PRINT "WYNIK: "; A%*B%
114 GOTO 200
120 PRINT "DZIELENIE"
121 INPUT "PIERWSZA LICZBA: "; A%
122 INPUT "DRUGA LICZBA: "; B%
123 IF B%=0 THEN PRINT "DZIELENIE PRZEZ ZERO!": GOTO 122
124 PRINT "WYNIK: "; A%/B%
125 GOTO 200
200 INPUT"CZY JESZCZE RAZ"; WYB$
201 IF WYB$="T" THEN GOTO 10
202 IF WYB$<>"T" THEN GOTO 1000
1000 PRINT "DO WIDZENIA"
Numerowanie linii, goto. ech... To były czasy :)