This page (revision-7) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg 

This page was created on 27-May-2021 19:24 by Roland B. Wassenberg

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
7 03-Feb-2023 15:21 1 KB Roland B. Wassenberg to previous
6 30-May-2021 06:30 1 KB Roland B. Wassenberg to previous | to last
5 30-May-2021 06:26 1 KB Roland B. Wassenberg to previous | to last
4 27-May-2021 19:41 639 bytes Roland B. Wassenberg to previous | to last
3 27-May-2021 19:41 601 bytes Roland B. Wassenberg to previous | to last
2 27-May-2021 19:31 815 bytes Roland B. Wassenberg to previous | to last
1 27-May-2021 19:24 181 bytes Roland B. Wassenberg to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 14 added 23 lines
!!BASIC-Programm
{{{
10 GOSUB 31000:REM MUSIKPROGRAMM LADEN
20 AD=XXX:GOSUB 31500:REM FUER 'XXX' DIE INIT-ADRESSE EINSETZEN
30 POKE STADR,1:REM MUSIKPROGRAMM STARTEN...
50 GOTO 50
31000 DIM DISK$(35)
31010 RESTORE 7500:FOR I=1 TO 35:READ A:DISK$(I,I)=CHR$(A):NEXT I
31030 DATA 162,16,104,104,104,157,66,3,104,157,69,3,104,157,68,3
31040 DATA 104,157,73,3,104,157,72,3,32,86,228,152,133,212,169,0,133,213,96
31050 REM MUSIKSTUECK LADEN
31060 CLOSE #1:OPEN #1,4,0,"D:MUSIK.OBJ":REM FILENAMEN VOM MUSIKPROGRAMM HIER EINTRAGEN!
31070 GET #1,A:GET #1,A
31080 GET #1,A:GET #1,B:STADR=A+B*256
31090 GET #1,A:GET #1,B:EN=A+B*256
31100 LA=EN-STADR+1
31110 A=USR(ADR(DISK$),7,STADR,LA)
31120 CLOSE #1
31130 RETURN
31500 POKE 1024,104:POKE 1025,76:POKE 1027,INT(AD/256):POKE 1026,AD-PEEK(1027)*256
31510 Q=USR(1024):RETURN
}}}