home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / dir.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  531b  |  18 lines
  1. 5 OPEN1,8,2,"DIR.OBJ,P,W"
  2. 10 SYS 9*4096:.OPT P,O1:*= $C000
  3. 12 .ASC "PROGRAM:"
  4. 15 LDA #1:JSR $FFC3:JSR $FD15
  5. 20 LDA #1:LDX #8:LDY #0:JSR $FFBA
  6. 25 LDA #1:LDX PRGADR+1:LDY PRGADR+2:JSR $FFBD
  7. 30 JSR $FFC0:LDX #1:JSR $FFC6:JSR $FFCF:JSR $FFCF
  8. 35 ; EINGABE
  9. 40 L40 JSR $FFCF:JSR $FFCF:BIT 144:BVS CLOSE
  10. 50 JSR $FFCF:TAX:JSR $FFCF:JSR $BDCD
  11. 60 L60 JSR $FFCF:BEQ L70:JSR $F1CA:JMP L60
  12. 70 L70 LDA #13:JSR $F1CA:JMP L40
  13. 210 CLOSE JSR $FFCC:LDA #1:JSR $FFC3:JSR $FD15:RTS
  14. 215 PRGADR JMP PRGNAME
  15. 218 .BYTE $FF
  16. 220 PRGNAME .ASC "$"
  17. 230 .END:CLOSE1
  18.