home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9410a.d64
/
auto-basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
62 lines
100 REM AUTOSTART-UTILITY
340 REM INITALISIEREN DES PROGRAMMES:SYS51458 ($C902)
350 REM ZEIGER RUECKSETZEN:SYS 51550
360 :
380 REM MENUE
410 PRINTCHR$(147);
420 PRINT:PRINT:PRINT:PRINT
430 PRINT "<1> PROGRAMM IN ARBEITSSPEICHER LADEN":PRINT
440 PRINT "<2> PROGRAMM AUF DISKETTE SPEICHERN":PRINT
450 PRINT "IHRE WAHL:";
460 GET WAHL:IF WAHL=0 THEN 460
470 IF WAHL<1 OR WAHL >2 THEN 460
480 PRINT WAHL
490 ON WAHL GOSUB 560,700
500 SYS51458:NEW
510 :
530 REM IN ARBEITSSPEICHER EINLESEN
550 :
560 RESTORE
570 SUMME=0
580 FOR I=51456 TO 51578
590 READ X
600 S=S+X
610 SUMME=SUMME+X
620 POKE I,X
630 NEXT I
640 IF SUMME<>12924 THEN PRINT"FEHLER IN DATAS !"
650 RETURN
660 :
670 REM SPEICHERN AUF DISKETTE
690 :
700 RESTORE
710 SUMME=0
720 OPEN 1,8,1,"@:AS"
730 PRINT#1,CHR$(00);:REM LOWBYTE STARTADRESSE
740 PRINT#1,CHR$(201);:REM HIGHBYTE STARTADRESSE
750 FOR I=51456 TO 51578
760 READ X
770 SUMME=SUMME+X
780 PRINT#1,CHR$(X);
790 NEXT I
800 CLOSE 1
810 IF SUMME<>12924 THEN PRINT "FEHLER IN DATAS !"
820 RETURN
830 :
850 DATA228,167,120,173,8,3,201,41
860 DATA208,7,173,9,3,201,201,240
870 DATA22,173,8,3,141,0,201,173
880 DATA9,3,141,1,201,169,41,141
890 DATA8,3,169,201,141,9,3,88
900 DATA96,32,115,0,201,33,240,11
910 DATA166,122,208,2,198,123,198,122
920 DATA108,0,201,32,115,0,32,87
930 DATA226,160,2,169,2,162,8,32
940 DATA186,255,169,0,32,213,255,144
950 DATA3,76,249,224,134,45,132,46
960 DATA32,89,166,76,174,167,173,8
970 DATA3,201,41,208,21,173,9,3
980 DATA201,201,208,14,120,173,0,201
990 DATA141,8,3,173,1,201,141,9
1000 DATA3,88,96