8-Bit Software Online Conversion

Picture Gallery V2 - Listing

10ONERRORMODE7:CLS:REPORT:PRINT" at l ine ";ERL:END 20MODE7:CLS:PROCb:GOTO1020 60DEFPROCb 70c=128 80REPEAT 90FORN=0TO1:PRINTCHR$(c)CHR$141TAB(12 )"Picture Displayer":NEXT 100c=c+1 110UNTILc=135 120PRINT 130PRINT:PRINTTAB(13)" By P.A.Walden" 140PRINT:PRINTTAB(14)" Version 1.1" 150PRINT:PRINTTAB(7)" Press any key to continue";:d$=GET$ 160CLS 170ENDPROC 1020PRINT" Enter mode to be used." 1030PRINT" e.g. 1" 1040INPUT" :"e 1050PRINT 1060ONERRORMODE7:CLS:REPORT:PRINT" at l ine ";ERL:END 1070PRINT" Enter OS command" 1080PRINT" or RETURN to continue" 1090INPUT" :"f$ 1100IFf$=""THEN1130 1110PRINT 1120OSCLI"*"+f$ 1130CLS 1140PRINT" Directory of current drive" 1150PRINT 1160*. 1170PRINT 1180INPUT" Enter number of filenames: " g 1190IFg<1ORg>30THENPRINT"Invalid number - please input another":GOTO1170 1200DIMh$(g) 1210FORi=1TOg 1220INPUT" Enter filename: "h$(i) 1230IFh$(i)=""THENPRINT"Invalid filenam e.":GOTO1220 1240NEXT 1250PRINT 1260INPUT" Are the above filenames corr ect? "d$ 1270IFd$="Y"ORd$="y"THEN1300 1280IFd$="N"ORd$="N"THEN1130 1290GOTO1260 1300MODEe 1310FORi=1TOg 1320OSCLI"*LOAD "+h$(i)+" FFFF3000" 1330PRINT"Press any key...";:A$=GET$ 1340CLS 1350NEXT 1360MODE7:CLS 1370INPUT" Another run (Y/N) ?"d$ 1380IFd$="Y"ORd$="y"THENRUN 1390IFd$="N"ORd$="n"THENCLS:END 1400GOTO1360