home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Killer Drive 64 3
/
Killer-Drive_64_03_1998_-_de_Side_A.d64
/
benzin
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
116 lines
10 poke 53280,0
20 poke 53281,0
30 print"[147]benzin"tab(11)"version 1.2"
40 printtab(1)"benzin"tab(12)"version 1.2"
50 printtab(2)"benzin"tab(13)"version 1.2"
51 printtab(3)"[158]benzin"tab(14)"version 1.2"
52 printtab(4)"benzin"tab(15)"version 1.2"
53 printtab(5)"benzin"tab(16)"version 1.2"
54 printtab(6)"geschrieben von thomas schulz"
55 printtab(9)"[159]benzin"tab(20)"version 1.2"
56 printtab(10)"benzin"tab(21)"version 1.2"
57 printtab(11)"benzin"tab(22)"version 1.2"
58 printtab(12)"[149]benzin"tab(23)"version 1.2"
59 printtab(13)"benzin"tab(24)"version 1.2"
60 printtab(14)"benzin"tab(25)"version 1.2"
90 print"[152]weiter mit (w)"
100 input a$
110 if a$="w"then 130
120 goto 10
130 poke 53280,0
140 poke 53281,0
150 print"[147]moechten sie die anleitung"
160 print"(j/n)
170 [133] b$
180 [139] b$[178]"j" [167] 200
185 [139] b$[178]"n" [167] 210
190 [137] 130
200 [141] 5000
210 [151] 53280,0
220 [151] 53281,0
230 [153]"geben sie das kennzeichen ein"
240 [133] c$
250 [153]"geben sie die gefahrenen km. ein"
260 [133] a
270 [153]"geben sie die gtankte menge ein"
275 [133] b
280 [153]"geben sie die benzinkosten ein"
290 [133] c
300 [153]"alle angaben richtig ? (j/n)"
310 [133] d$
320 [139] d$[178]"n" [167] 230
330 [139] d$[178]"j" [167] 350
340 [137] 300
350 [136] x1[178]b[173]a[172]100
360 [136] x2[178]c[173]a[172]100
370 [153] "loaddas fahrzeug mit dem kennzeichen"
375 [153] c$
380 [153]"verbraucht auf 100 km."
385 [153] x1 "liter treibstoff"
400 [153]"das kostet auf 100 km."
405 [153] x2 "dm"
410 [153]"moechten sie das progamm"
420 [153]"wiederholen (w) ?"
430 [153]"beenden (e) ?"
440 [133] e$
450 [139] e$[178]"w"[167] 10
460 [139] e$[178]"e"[167] 7000
470 [137] 410
5000 [151] 53280,12
5010 [151] 53281,12
5020 [153]"loadstopanleitung zu benzin v1.2"
5030 [153]"dieses programm dient zur "
5035 [153]"berechnung des benzinverbrauch"
5040 [153]"und der kosten au 100 km."
5050 [153]"dazu einfach den anweisungen"
5060 [153]"des programms ausfueren."
5080 [153]"weiter mit (w)"
5090 [133] a$
5100 [139]a$[178]"w" [167] 5120
5110 [137] 5020
5120 [153]"loaddieses programm wurde geschrieben"
5130 [153]"von"
5140 [153][163]6)"thomas schulz"
5150 [153][163]6)"muehlenweg 51"
5160 [153][163]6)"38448 wolfsburg"
5170 [153]"im september 1995"
5180 [153]"es ist frei von allen rechten"
5185 [153]"moechten sie die anleitung"
5190 [153]"wiederholen (w) ?"
5200 [153]"beenden (e) ?"
5210 [133] b$
5220 [139] b$[178]"w" [167] 5000
5230 [139] b$[178]"e" [167] 5250
5240 [137] 5120
5250 [142]
6000 [143]*******************************
6001 [143]* *
6002 [143]* dieses programm wurde von *
6003 [143]* *
6004 [143]* thomas schulz *
6005 [143]* fritz weiberg str 38 *
6006 [143]* 38448 wolfsburg *
6007 [143]* *
6008 [143]* tel.05363/40522 *
6009 [143]* *
6010 [143]* am 19 september 1995 *
6011 [143]* beendet *
6012 [143]* *
6013 [143]* viel spass damit und *
6014 [143]* fahrt nicht soviel auto *
6015 [143]* *
6016 [143]* denkt an die umwelt *
6017 [143]* danke *
6018 [143]* *
6019 [143]*******************************
7000 [151] 53280,2
7010 [151] 53281,2
7020 [153]"loadmoechten sie das programm"
7030 [153]"beenden (e) ?"
7040 [153]"wiederholen (w) ?"
7050 [133] f$
7060 [139] f$[178]"w" [167] 10
7070 [139] f$[178]"e" [167] 7090
7080 [137] 7000
7090 [128]