home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / stdgen.prg (.txt) < prev    next >
Commodore BASIC  |  1989-07-09  |  512b  |  18 lines
  1. 100 REM TRANSACTOR STANDARD PROGRAM GENERATOR
  2. 110 N$="FILENAME":REM NAME OF PROGRAM
  3. 120 ND=000:SA=00000:CH=00000
  4. 130 FOR I=1 TO ND:READ X
  5. 140 CH=CH-X:NEXT
  6. 150 IF CH THEN PRINT "DATA ERROR":STOP
  7. 160 PRINT "DATA OK, NOW CREATING FILE."
  8. 170 RESTORE
  9. 180 OPEN 1,8,1,"0:"+N$
  10. 190 HI=INT(SA/256):LO=SA-256*HI
  11. 200 PRINT#1,CHR$(LO)CHR$(HI);
  12. 210 FOR I=1 TO ND:READ X
  13. 220 PRINT#1,CHR$(X);:NEXT
  14. 230 CLOSE 1
  15. 240 PRINT"PRG FILE'";N$;"'CREATED..."
  16. 250 PRINT"THIS GENERATOR NO LONGER NEEDED."
  17. 260 :
  18.