plirof2

Basic ZX _Royal Long name Generator NOT SEND

May 23rd, 2022 (edited)
464
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 GO SUB 9000: REM ---Royal Name Generator For CSSCGC 2022
  2. 15 REM By Firelord Quality Programs Ltd - giatoula+spectrum
  3. 20 INK colink: PAPER colpaper: BORDER colborder: CLS
  4. 100 PRINT INVERSE 1;"         Welcome to Royal"'"        Long Name Generator"
  5. 110 PRINT "By Firelord Quality Programs Ltd"'';INVERSE 0
  6. 120 GO SUB 8000: GO SUB 7000
  7. 1000 STOP
  8. 7000 REM GENEAATE NAME
  9. 7010 CLS : PRINT AT 10,1;"Your (new) Royal name is :"'
  10. 7020 PRINT AT 14,0;""; INVERSE 1;
  11. 7050 FOR K=1 TO d: PRINT INVERSE 1;n$(1+INT (RND*39));
  12. 7060 NEXT K
  13. 7500 RETURN
  14. 8000 REM MAIN SUBROUTINE -MENU
  15. 8010 PRINT "Please enter the number of"'"digits (zero's) after the 1000"'"that represents your fortune!"'"(Default Currency is Canadian $)"
  16. 8050 INPUT "Digits :";d
  17. 8999 RETURN
  18. 9000 REM --variables
  19. 9010 LET colpaper=5: LET colink=3: LET colborder=0
  20. 9020 DIM n$(41,10)
  21. 9030 FOR I=1 TO 39
  22. 9040 READ n$(I): REM  PRINT I;")-";n$(I)
  23. 9050 NEXT I
  24. 9790 REM "Name list 40name "
  25. 9800 DATA "Hose","Alfonso","Mario","Luigi"
  26. 9810 DATA "Jim","Jack","Helen","Miguel"
  27. 9820 DATA "Charles","Philip","Arthur","George"
  28. 9830 DATA "Anne","Elizabeth","Alice","Louise"
  29. 9840 DATA "Andrew","Albert","Christian","Edward"
  30. 9850 DATA "Leopold","George","Duncan","Albert"
  31. 9860 DATA "Beatrice","Mary","Victoria","Fedore"
  32. 9870 DATA "Victoria","Adelaide","Mary","Louisa"
  33. 9880 DATA "Helena","Augusta","Victoria","Mitsaras"
  34. 9890 DATA "William","Arthur","Philip","Louis"
  35. 9900 DATA "Antony","Richard","Louis","Edward"
  36. 9990 RETURN
  37.  
RAW Paste Data Copied