home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / ZBBS-V2.3.LBR / USERFILE.prg (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  285 b   |  12 lines
  1. 100 RL=144:RL=RL+1:PRINT"[147] [208]LEASE WAIT..."
  2. 110 RN=300:RN=RN+1
  3. 130 HB=INT(RN/256)
  4. 140 LB=RN-HB*256
  5. 150 OPEN15,8,15
  6. 160 OPEN1,8,2,".USERFILE,L,"+CHR$(RL)
  7. 170 PRINT#15,"P"+CHR$(2+96)+CHR$(LB)+CHR$(HB)+CHR$(1)
  8. 180 PRINT#1,"END"
  9. 190 CLOSE1
  10. 200 INPUT#15,E,E$:PRINT"[196]ISK [211]TATUS: ";E$:CLOSE15
  11. 210 PRINT"^^ [211]HOULD BE A [210][197][195][207][210][196][160][206][207][212] [208][210][197][211][197][206][212]"
  12.