home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 April
/
64er_Magazin_86-04_1986_Markt__Technik_de.d64
/
lms
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
44 lines
100 rem ----------- laufzeit-mess-system
110 rem --------------------ladeprogramm
120 rem --------------------------------
130 rem -------------- (c) franz stoiber
140 rem ------------- braeunlichgasse 30
150 rem ------------- a-2700 wr.neustadt
160 rem --------------------- oestereich
170 rem --------------------------------
180 if l=1 then 260
190 poke 53280,15: poke 53281,15: poke 646,6
200 ga=8
210 print chr$(14);"[147][204]aufzeit-[205]ess-[211]ystem [214]2.0"
220 print "(c) [198]ranz [211]toiber 11/85"
230 print "[194]itte warten"
240 poke 646,15
250 l=1: load "lms.pha",ga,1
260 sys 40698
270 print "";
280 print "sys 40780"
290 print "load ";chr$(34);"lms.bas";chr$(34);",";ga
300 print "run"
310 for i=631 to 633: poke i,13: next
320 poke 198,3
330 print "";
340 rem --------------------------------
350 rem fuer das arbeiten mit datassette
360 rem sind folgende zeilen zu aendern:
370 rem
380 rem *** 200 ga=1
390 rem *** 210 entfaellt
400 rem *** 220 entfaellt
410 rem *** 230 entfaellt
420 rem *** 240 poke 646,0
430 rem *** 270 print "[147]";
440 rem *** 300 print "run"
450 rem
460 rem --------------------------------
470 rem am band muessen die programme
480 rem in der reihenfolge
490 rem
500 rem lms, lms.pha, lms.bas
510 rem
520 rem gespeichert werden.