home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / Q-ROME (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  26 lines
  1. 1 REM BY DANIEL BERDICHEVSKY
  2. 2 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT"     ROMAN NUMERAL CONVERTER":PRINT:PRINT"NOW ACTIVATED!
  3. 4 [151] 19,65
  4. 5 [153]:[133]"CLRNUMBER TO BE CONVERTED? ";A
  5. 6 [153]:[153]
  6. 7 [153]
  7. 8 [139]A[178][177]1000000[167][133]"CLREXCUSE ME, BUT ARE YOU SURE YOU WANT    THAT NUMBER?";A$
  8. 9 [139] A$[178]"N" [167] A$[178]" ":[137]1
  9. 10 [139] A$[178]"NO"[167] A$[178]" ":[137]1
  10. 11 [139] A[177][178]1000 [167] [153]"SYSM";:A[178]A[171]1000:[137]11
  11. 12 [139] A[179]1000 [175] A[177]899[167] [153]"IM";:A[178]A[171]900
  12. 13 [139] A[178][177]500 [167] [153]"D";:A[178]A[171]500:[143] [204]
  13. 14 [139] A[178][177]400 [167] [153]"CLRCD";:A[178]A[171]400
  14. 15 [139] A[178][177]100 [167] [153]"CLRC";:A[178]A[171]100:[137]15
  15. 16 [139] A[177]89 [175] A[179]100 [167] [153]"OPENXC";:A[178]A[171]90
  16. 17 [139] A[177][178]50 [167] [153]"L";:A[178]A[171]50
  17. 18 [139] A[177]39 [175] A[179]50 [167] [153]"XL";:A[178]A[171]40
  18. 19 [139] A[178][177]10 [167] [153]"SYSX";:A[178]A[171]10:[137]19
  19. 21 [139] A[178]9 [167] [153]"IX";:A[178]A[171]9
  20. 22 [139] A[178][177]5 [167] [153]"V";:A[178]A[171]5
  21. 23 [139] A[178]4 [167] [153]"IVOPEN";:A[178]A[171]4
  22. 24 [139] A[178][177]1 [167] [153]"I";:A[178]A[171]1:[137]24
  23. 25 [153]:[153]:[133]"FINISHED! CLRDO YOU WISH TO DO ANOTHER     NUMERAL? (Y/N) ";A$
  24. 26 [139] A$[178]"Y" [167] [137] 1
  25. 27 [158] 64738
  26.