home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh72a.d64 / lader_centout (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  357b  |  12 lines
  1. 100 INPUT"[147]AN WELCHE ADRESSE LADEN";LA
  2. 110 :
  3. 120 NM$="CENTOUT":A=LEN(NM$)
  4. 130 HI=INT(LA/256):LO=LA-HI*256
  5. 140 FORI=1TOA:POKE827+I,ASC(MID$(NM$,I,1)):NEXT
  6. 150 POKE781,8:POKE782,0:SYS65466:REM FILEPARAMETER $FFBA
  7. 160 POKE780,A:REM A=FILENAMENLAENGE
  8. 170 POKE781,60:POKE782,3:SYS65469:REM FILENAMENPARAMETER $FFBD
  9. 180 POKE780,0:POKE781,LO:POKE782,HI
  10. 190 SYS65493:REM LOAD-ROUTINE $FFD5
  11. 200 POKE174,PEEK(781):POKE175,PEEK(782)
  12.