home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8604.d64
/
lms
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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.