home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ910501.ARC / CONVERT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  60 lines
  1. 10 CLR:DIMD(26),DS$(26),T%(100),B(49),B$(49),D$(14),S$(14)
  2. 20 POKE53280,0:POKE53281,0
  3. 30 PRINT"[147][196][212][202]-[194][194][211] [210]EV 900225 [195]ONVERSION [213]TILITY"
  4. 35 PRINT "[194]E SURE YOU HAVE BACKUPS OF YOUR PROGRAM";
  5. 36 PRINT"AND DATA DISKS BEFORE RUNNING THIS"
  6. 37 PRINT "CONVERSION PROGRAM!"
  7. 38 PRINT"[196]O NOT RUN THIS PROGRAM ON A SYSTEM THATIS ALREADY CONVERTED!"
  8. 40 PRINT"** [201]NSERT [194][194][211] BOOT DISK IN DRIVE.  [197]NTER";
  9. 50 PRINT"DRIVE DEVICE NUMBER AND PRESS [210][197][212][213][210][206]."
  10. 60 INPUTD:IFD<8ORD>15THEN10
  11. 70 OPEN1,D,15:CLOSE1:IFSTTHEN10
  12. 80 PRINT"[210]EADING [211].1 FILE...":GOSUB500
  13. 90 OPEN1,D,15:OPEN8,D,8,"S.1":GOSUB1000
  14. 100 INPUT#8,S6$,S4,S5,S8$,SF,S9,S2,S3,S3$,S2$,S1$,S1
  15. 110 FORT=1TO46:INPUT#8,T%(T):NEXT
  16. 120 INPUT#8,M0$,M1$:FORT=47TO58:INPUT#8,T%(T):NEXT
  17. 121 T%(47)=0:T%(48)=0:T%(51)=0:T%(52)=0:T%(55):T%(56)=0
  18. 130 I=4:HH$="[193][212][200]":DB=0:NM$="****":C$=CHR$(13):Q$=CHR$(34)
  19. 140 IFST=0THENINPUT#8,I:IFST=0THENINPUT#8,HH$:IFST=0THENINPUT#8,DB:IFST=0THENINPUT#8,NM$
  20. 150 CLOSE8:IFNM$="****"THENNM$="[206]AME"
  21. 160 PRINT"[195]ONVERTING [211].1 FILE..."
  22. 170 PRINT#1,"S0:S.1":OPEN8,D,8,"S.1,S,W"
  23. 180 PRINT#8,S6$C$S4;C$S5;C$S8$C$SF;C$S9;C$S2;C$S3;C$S3$C$S2$C$S1$C$S1
  24. 190 FORT=1TO46:PRINT#8,T%(T):NEXT
  25. 200 PRINT#8,M0$C$M1$:BD=300:GOSUB600:BD=1219:GOSUB600:BD=2400:GOSUB600
  26. 210 PRINT#8,I;C$Q$HH$C$DB;C$NM$C$Q$:CLOSE8
  27. 220 PRINT"[210]EADING [211].3 FILE..."
  28. 230 OPEN8,D,8,"S.3":GOSUB1000:FORT=-22TO25
  29. 240 GET#8,A$:IFA$=""THENNEXT:GOTO290
  30. 250 IFT<0THEN240
  31. 260 D(T)=VAL(A$)+8:I$=""
  32. 270 GET#8,A$:IFA$<>""THENI$=I$+A$:GOTO270
  33. 280 DS$(T)=I$:NEXT
  34. 290 CLOSE8:CLOSE1
  35. 300 PRINT"[201]NSERT DATA DISKS IN DRIVES AND PRESS   [210][197][212][213][210][206]."
  36. 310 POKE198,0:WAIT198,255:GETA$:IFA$="!"THEN350
  37. 320 PRINT"[195]ONVERTING [194][193][211][197][211] FILE...":D=D(0)
  38. 330 OPEN1,D,15,DS$(0):OPEN8,D,8,"BASES,S,A"
  39. 340 PRINT#8,20:FORI=0TO19:PRINT#8,"0,0":NEXT:CLOSE8:CLOSE1:GOSUB500
  40. 350 PRINT"[195]ONVERTING ACCOUNTS...":D=D(S4-65)
  41. 360 OPEN1,D,15,DS$(S4-65):OPEN8,D,8,"A-MAIN,L,"+CHR$(254)
  42. 370 GOSUB1000:FORI=1TOS2:PRINTI"[145]":GOSUB800:GET#8,A$:INPUT#1,E,E$:IFETHEN460
  43. 380 C=1:IFA$<>"[206]"ANDA$<>"[214]"ANDA$<>"[211]"ANDA$<>"[205]"ANDA$<>"[212]"THEN450
  44. 390 GET#8,X$:IFX$=C$THENC=C+1
  45. 400 A$=A$+X$:IFST=0THEN390
  46. 405 IFC=17THEN450
  47. 410 IFC<17THENA$=A$+" 0"+C$:C=C+1:GOTO410
  48. 420 GOSUB800:PRINT#8,A$;:GOSUB800
  49. 450 NEXT
  50. 460 CLOSE8:CLOSE1:GOSUB500:PRINT"[196]ONE.":END
  51. 500 OPEN1,D,15,"/":INPUT#1,E,E$:PRINT#1,"U0>H0":INPUT#1,E,E$:CLOSE1:RETURN
  52. 600 BU$="":IFPEEK(678)THENBD=985250/BD:GOTO620
  53. 610 BD=1022730/BD
  54. 620 BU$=STR$(BDAND255)+C$+STR$(INT(BD/256))+C$:BU$=BU$+BU$:BD=BD/2-100
  55. 630 BU$=STR$(BDAND255)+C$+STR$(INT(BD/256))+C$+BU$
  56. 640 PRINT#8," 0"+C$+" 0"+C$+BU$;:RETURN
  57. 800 PRINT#1,"P"CHR$(104)CHR$(IAND255)CHR$(I/256)CHR$(1):RETURN
  58. 1000 INPUT#1,E,E$,E1,E2:IFETHEN10
  59. 1010 RETURN
  60.