Hier noch mal eine Anwendung für USR() und zwar das RAM-PEEK:
Dieser Code erlaubt es dem Anwender mit USR ins RAM unter dem ROM zu blicken.
Installiert wird der Code in den String in Zeile 61, in Zeile 62 wird der usr-Vektor dann auf die ermittelte Stringadresse gesetzt.
Quellcode
- 60 :rem---usr-ram-peek(31b)
- 61 :a=-len(":123456789a123456789b123456789c1")+peek(113)+peek(114)*256
- 62 :poke786,a/256:poke785,a-peek(786)*256
- 65 :fori=atoa+30:readb:pokei,b:next::::data165,21,72,165,20,72,32,247,183,165
- 66 :data1,133,9,160,48,120,132,1,160,1,136,177,20,164,9,132,1,88,76,26,184
- 69 :::b=usr(1):printb
Schönen Gruß.