Tonband-Spielzeit-Rechner in C64-Basic

[eudatux23]

Hallo zusammen,

da ich sowohl gerne mit Tonband als auch mit alten Computern zu tun habe, dachte ich mir, ich kombiniere das mal und bastle einen Spielzeit-Rechner für den C64 in Basic. Viel Spaß damit:

Code:

5 print : print
10 print "wie viel meter band"
20 input lem
30 print
40 print "  cm/s", chr$(199); " min"
50 print "",chr$(199)
100 rem meter in cm umrechnen
110 lec=lem*100
120 spe=2.48  : gosub 1000
130 spe=4.75  : gosub 1000
140 spe=9.53  : gosub 1000
150 spe=19.05 : gosub 1000
160 spe=38.01 : gosub 1000
170 spe=76.05 : gosub 1000
180 end
1000 rem sekunden spielzeit
1010 pls=lec/spe
1020 rem minuten draus machen
1030 plm=int(pls/60)
1040 gosub 1100
1050 return
1100 rem ergebnisausgabe
1110 tmp=spe : gosub 1200
1120 print spe, chr$(199);
1130 tmp=plm : gosub 1200
1140 print plm
1150 if spe < 76.05 then print "", chr$(199)
1200 rem einruecker rechtsbuendig
1210 if tmp < 100 then print " ";
1220 if tmp < 10 then print " ";
1230 return

   


Schöne Grüße
Alexander