home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(05-1985).d64 / labels (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  643b  |  21 lines
  1. 5 INPUT"[147]TOP NAME ";TN$:IFLEN(TN$)<1THEN5
  2. 10 IFLEN(TN$)>20THENPRINT"[147]TOO LONG, TRY AGAIN":FORI=1TO2000:NEXT:GOTO5
  3. 15 PRINT"[147]MIDDLE NAME":INPUTMN$:IFLEN(MN$)<1THEN15
  4. 20 IFLEN(MN$)>32THENPRINT"[147]TOO LONG, TRY AGAIN":FORI=1TO2000:NEXT:GOTO15
  5. 25 INPUT"[147]DISK ID ";ID$:IFLEN(ID$)<>2THEN25
  6. 30 INPUT"[147]BOTTOM NAME ";BN$:IFLEN(BN$)<1THEN30
  7. 35 IFLEN(BN$)>20THENPRINT"[147]TOO LONG, TRY AGAIN":FORI=1TO2000:NEXT:GOTO30
  8. 40 INPUT"[147]NO. OF COPIES ";NC:IFNC<0THEN40
  9. 45 U(1)=2*LEN(TN$):U(2)=LEN(MN$)+8:U(3)=2*LEN(BN$)
  10. 50 FORI=1TO3:U(I)=INT((40-U(I))/2):NEXT
  11. 55 CLOSE3:FORJ=1TONC:OPEN3,4
  12. 60 PRINT#3,TAB(U(1))CHR$(14)TN$CHR$(15)
  13. 65 PRINT#3
  14. 70 PRINT#3,TAB(U(2))MN$+"  ID: "+ID$
  15. 75 PRINT#3
  16. 80 PRINT#3,TAB(U(3))CHR$(14)BN$CHR$(15)
  17. 85 FORK=1TO4:PRINT#3:NEXTK:CLOSE3:NEXTJ
  18. 90 PRINT"[147]ANOTHER LABEL ?"
  19. 95 GETZ$:IFZ$=""THEN95
  20. 100 IFZ$="Y"THEN5
  21.