home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ950307B.ARC / CONVERT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.3 KB  |  59 lines
  1. 10 CLR:DIMW$(110):POKE53280,12:POKE53281,11:C$=CHR$(13)
  2. 20 PRINT"[147] [196][212][202]-[194][194][211] [210]EV. 950307 [195]ONVERSION [208]ROGRAM"
  3. 30 PRINT"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 40 POKE631,159:POKE198,1:INPUT" [194][194][211] [208]ROGRAM [196]RIVE: [150]8[157][157][157]";D
  5. 50 PRINT" [201]NSERT [194][194][211] DISK IN DRIVE"D"AND PRESS"
  6. 60 PRINT" [210][197][212][213][210][206] TO CONTINUE.":WAIT198,255:GETA$:IFA$<>CHR$(13)THENEND
  7. 70 PRINT"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  8. 80 PRINT" S.1: ";:OPEN1,D,15:OPEN8,D,8,"S.1":INPUT#1,E,E$:IFE=0THEN100
  9. 90 CLOSE8:CLOSE1:PRINT" "E$:END
  10. 100 W$(0)="[213]NKNOWN":FORI=1TO99:W$(I)="0":NEXT
  11. 110 Q=0:RESTORE:INPUT#8,X$:IFLEN(X$)=15THEN160
  12. 120 CLOSE8:OPEN8,D,8,"S.1,,A"
  13. 130 PRINT#8,"7;40M"
  14. 140 PRINT#8,"6M[203]"
  15. 150 PRINT#8,"6M":CLOSE8:PRINT"DONE.":END
  16. 160 Q=1:READA:W$(A)=X$:PRINT"CONVERTING"
  17. 170 DATA32,34,35,33,36,1,74,66,65,69,99,76,96,98,77,78,79,80,81,82,83,84,85,86
  18. 180 DATA87,88,89,90,91,92,93,94,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53
  19. 190 DATA54,55,56,57,58,59,60,61,62,63,64,2,3,7,8,9,10,11,12,13,14,15,16,17,18
  20. 200 DATA19,20,21,22,23,24,25,26,27,28,29,30,31,4,6,95,5,-1
  21. 210 READA:IFA<0THEN260
  22. 220 I$="":IFA<2OR(A>5ANDA<>95)THENINPUT#8,I$:GOTO250
  23. 230 GET#8,A$:IFA$=CHR$(34)THEN230
  24. 240 IFA$<>CHR$(13)THENI$=I$+A$:GOTO230
  25. 250 W$(A)=I$:PRINTA,I$:GOTO210
  26. 260 CLOSE8:PRINT#1,"S:S.1":OPEN8,D,8,"S.1,S,W":FORI=0TO99:PRINT#8,W$(I):NEXT
  27. 270 CLOSE8:FORI=0TO99:W$(I)="":NEXT
  28. 280 PRINT" S.3: ";:OPEN8,D,8,"S.3":INPUT#1,E,E$:IFETHEN90
  29. 290 PRINTMID$("UPDATING  CONVERTING",10*Q+1,10):GOSUB370 :A=-1:GET#8,A$,A$
  30. 300 I$="":A=A+1:IFQTHENREADA
  31. 310 GET#8,A$:IFA$<>""THENI$=I$+A$:GOTO310
  32. 320 W$(A)=I$:IFST=0THEN300
  33. 330 DATA0,36,38,39,40,41,43,28,44,45,29,46,49,31,32,33,50,51,47,48,37,42,1,2,3
  34. 340 DATA4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,-1
  35. 350 CLOSE8:PRINT#1,"S:S.3":OPEN8,D,8,"S.3,P,W":PRINT#8,CHR$(88)CHR$(177);
  36. 360 FORI=0TO67:PRINT#8,W$(I)CHR$(0);:NEXT:CLOSE8:E$="[196]ONE.":GOTO90
  37. 370 W$(27)="A/DISABLED"
  38. 380 W$(30)="[197]NTER YOUR LOGON CODE OR PRESS [210][197][212][213][210][206] IF YOU DON'T HAVE ONE."
  39. 390 W$(34)="[212]HE SYSOP IS IN."
  40. 400 W$(35)="[212]HE SYSOP IS OUT."
  41. 410 W$(52)="A/MAINMENU"
  42. 420 W$(53)="A/EDITMENU"
  43. 430 W$(54)="A/SYSOPMENU"
  44. 440 W$(55)="A/SAVEMENU"
  45. 450 W$(56)="A/READMENU"
  46. 460 W$(57)="7;40M"
  47. 470 W$(58)="6M[203]"
  48. 480 W$(59)="6M"
  49. 490 W$(60)="[195][207][205][205][193][206][196] ([208]RESS [210][197][212][213][210][206] FOR MENU)"+C$
  50. 500 W$(61)="[197][196][201][212] [195][207][205][205][193][206][196] ([208]RESS [210][197][212][213][210][206] FOR MENU)"+C$
  51. 510 W$(62)="[ [191]LEFT$(Q$(0),30)[191][191]Q$(1)[191] ]"+C$+"[ [191]Q$(2)[191] ][ [191]Q$(3)[191] MESSAGES ]"
  52. 520 W$(62)=W$(62)+C$
  53. 530 W$(63)="M[191]S$(T0-1)[191] ROOMS:[191]LEFT$(SP$,20-LEN(S$(T0-1)))[191]([191]X$[191]) NEW:"
  54. 540 W$(64)="M[191]Q$(0)[191]1M[191]Q$(1)[191]"
  55. 550 W$(65)="[196]O YOU WANT [193][206][211][201] GRAPHICS? "
  56. 560 W$(66)="[197]NTER A BLANK LINE TO END."+C$+"-----"+C$
  57. 570 W$(67)="[211]HORT DESCRIPTION OF UPLOAD:"+C$
  58. 580 RETURN
  59.