home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SF-II.ARC / BOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  70 lines
  1. 10 REM *** STREET FIGHTER II
  2. 20 REM *** BOOT FILE
  3. 30 REM *** HOUMAN AZARM
  4. 40 REM *** 1992
  5. 45 :
  6. 46 IF A=1 THEN 230
  7. 50 :
  8. 60 POKE 53281,1
  9. 65 GOSUB 1000
  10. 70 A$(1)="RECKLESS"
  11. 80 A$(2)="ROMAN"
  12. 90 A$(3)="THICK"
  13. 100 A$(4)="STEALTH"
  14. 110 A$(5)="DUNGEON"
  15. 120 PRINT "[144][147]  STREET FIGHTER II BOOT FILE"
  16. 130 PRINT "FONTS:"
  17. 140 PRINT "1",A$(1)
  18. 150 PRINT "2",A$(2)
  19. 160 PRINT "3",A$(3)
  20. 170 PRINT "4",A$(4)
  21. 180 PRINT "5",A$(5)
  22. 190 PRINT "6","NO FONT"
  23. 200 PRINT "[145]ENTER A NUMBER":GET N
  24. 210 IF N<1 OR N>6 THEN 200
  25. 212 FO=1
  26. 215 IF N=6 THEN FO=0 : GOTO 300
  27. 220 IFA=0THENA=1:LOADA$(N)+".FONT",8,1
  28. 230 POKE53272,28
  29. 240 INPUT "OK (Y/N)";OK$
  30. 242 A=0
  31. 245 IF OK$="N" THEN GOTO120
  32. 300 PRINT "[147]"
  33. 310 PRINT "PROGRAMS"
  34. 320 PRINT "1","FIGHTER FACTORY"
  35. 330 PRINT "2","STREET FIGHTER II"
  36. 340 PRINT "[145]LOAD WHICH ONE?":GET Z
  37. 350 IF Z<>1 AND Z<>2 THEN 340
  38. 355 PRINT "LOADING..."
  39. 357 FORX=1TO700:NEXTX
  40. 358 POKE 53272,21
  41. 359 Q$=CHR$(34) : PRINT "[147]"
  42. 360 IF Z=1 THEN PRINT "LOAD"Q$"0:FIGHTER.FACTORY"Q$",8"
  43. 370 IF Z=2 THEN PRINT "LOAD"Q$"0:ST.FIGHTERII"Q$",8"
  44. 380 PRINT "RUN"
  45. 382 IF N<6 THEN  PRINT TAB(25) "Y"
  46. 383 IF N=6 THEN  PRINT TAB(25) "N"
  47. 385 PRINT ""
  48. 999 END
  49. 1000 REM MESSAGE
  50. 1010 PRINT "[147][156]" : PRINT CHR$(14)
  51. 1020 PRINT " [212]HIS GAME IS [211][200][193][210][197][215][193][210][197].  [201]F YOU ENJOY"
  52. 1030 PRINT " PLAYING IT, PLEASE SEND A FEW DOLLARS"
  53. 1040 PRINT " TO SHOW YOUR APPRECIATION."
  54. 1045 PRINT " [205]Y ADDRESS IS:"
  55. 1050 PRINT "   [200]OUMAN [193]ZARM"
  56. 1060 PRINT "   2280 [215]OODARD [210]OAD"
  57. 1070 PRINT "   [211]AN [202]OSE, [195][193]  95124"
  58. 1080 PRINT " [217]OU CAN HELP SUPPORT STARVING"
  59. 1090 PRINT " PROGRAMMERS SUCH AS MYSELF!  [201]F YOU"
  60. 1100 PRINT " HAVE ANY QUESTIONS, COMMENTS, OR SUG-"
  61. 1110 PRINT " GESTIONS, DON'T HESITATE TO [197]-MAIL ME"
  62. 1120 PRINT " ON [209]UANTUM [204]INK.  [212]HANK YOU."
  63. 1125 PRINT " [194]E SURE TO READ THE [210][197][205] STATEMENTS"
  64. 1126 PRINT " BEFORE THE GAME FOR A SLIGHT MODIFICA-"
  65. 1127 PRINT " TION THAT YOU MIGHT APPRECIATE."
  66. 1128 PRINT "                           --[200]OUMAN"
  67. 1130 FOR X=1 TO 3000:NEXT X
  68. 1150 GET A$:IF A$="" THEN 1150
  69. 1200 PRINT CHR$(142) : RETURN
  70.