home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD028A.D64 / show-a-hisp..exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  515 b   |  17 lines
  1. 0 EX=0:DV=PEEK(186):IFDV<8 THEN DV=8
  2. 1 POKE53272,21:POKE53280,0:POKE53281,0:POKE646,1:PRINT"[147]HISP DISPLAY PROGRAM"
  3. 2 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 3 PRINT:INPUT"ENTER HISP FILENAME: [157][157]";F$
  5. 4 IFF$=""THEN PRINT"[145][145]";:GOTO3
  6. 5 F$=F$+"*"
  7. 6 INPUT"DO YOU WANT EXPANSION";E$:IFE$="Y" THEN EX=255
  8. 7 SYS57812F$,DV,1:POKE780,0:SYS65493
  9. 8 V=53248:POKEV+21,0
  10. 9 FORT=0TO7:POKE2040+T,128+T
  11. 10 POKEV+(T*2),150:POKEV+1+(T*2),110
  12. 11 POKEV+39+T,PEEK(8704+T)
  13. 12 NEXTT
  14. 13 POKEV+23,EX:POKEV+29,EX:POKEV+28,0:POKEV+21,255
  15. 14 PRINT"PRESS A KEY TO CHOOSE ANOTHER FILE"
  16. 15 POKE198,0:WAIT198,1:POKE198,0:POKEV+21,0:RUN
  17.