home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / 64er / waffles / scoregen.p00 / scoregen (.txt)
Encoding:
Commodore BASIC  |  1994-09-29  |  328 b   |  20 lines
  1. 10 REM       --- WAFFLES ---
  2. 11 REM
  3. 15 REM
  4. 20 REM ERZEUGT DEMO-SCORE AUF DISKETTE
  5. 30 REM (C) CLAUS FABER
  6. 40 REM     BERND JOHANNES,1987
  7. 50 REM
  8. 60 REM
  9. 70 :
  10. 80 :   
  11. 90 :
  12. 110 OPEN2,8,14,"SCORES,P,W"
  13. 120 PRINT#2,CHR$(0);CHR$(47);
  14. 130 A$="C.FABER & B.JOHANNES"
  15. 140 FORI=1TO10
  16. 150 FORN=1TO20:PRINT#2,CHR$(ASC(MID$(A$,N,1))AND255-64);:NEXT
  17. 160 PRINT#2,CHR$(0)CHR$(0)CHR$(0);
  18. 170 NEXT
  19. 180 CLOSE2
  20.