C64 Software  <  SCA: The C64 Software Collection / CARD II DEMO

  Run
10 POKE53281,0:POKE53280,0:PRINTCHR$(142)
20 IFA=0THENA=1:LOAD"",8,1
30 IFA=1THENA=2:GOSUB500
40 IFA=2THENA=3:LOADF$(N),8,1
50 IFA=3THENSYS21808
500 PRINT ""
510 PRINT""
520 PRINT""
530 PRINT""
540 PRINT"
550 PRINT"
560 PRINT"
570 PRINT"
580 PRINT"
590 PRINT"
600 PRINT"
610 PRINT"
670 GETX$:IFX$<>""ANDX$<>""THEN670
680 N=VAL(X$)
690 F$(1)=""
700 F$(2)=""
1000 RETURN
READY.