mirror of https://github.com/cybernesto/VBMP.git
Added Applesoft examples
* Added the source of the Applesoft example programs for a slideshow and a file viewer. * Moved the source files to the Source directory * Updated the disk image files
This commit is contained in:
parent
8a774d50c9
commit
45328a9a99
BIN
Images/VBMP.dsk
BIN
Images/VBMP.dsk
Binary file not shown.
BIN
Images/VBMP.po
BIN
Images/VBMP.po
Binary file not shown.
|
@ -0,0 +1,10 @@
|
||||||
|
10 D$ = CHR$(4)
|
||||||
|
15 FOR I = 1 TO 8: READ F$
|
||||||
|
20 PRINT D$;"BLOAD ";F$;".BMP,A$4000"
|
||||||
|
30 PRINT D$;"BRUN DISPLAY"
|
||||||
|
35 FOR J = 1 TO 1000: NEXT J
|
||||||
|
40 NEXT I
|
||||||
|
45 POKE -16372,0: TEXT
|
||||||
|
60 DATA "IMAGE","SJOBS"
|
||||||
|
70 DATA "STEVES","A2C1984"
|
||||||
|
80 DATA "ADVTIME2","IRONMAN","SIMPSONS","SPONGEBOB"
|
|
@ -0,0 +1,12 @@
|
||||||
|
5 HOME
|
||||||
|
10 D$ = CHR$(4)
|
||||||
|
15 PRINT D$;"CAT"
|
||||||
|
20 PRINT "FILENAME TO DISPLAY (WITHOUT EXTENSION)"
|
||||||
|
25 INPUT F$: IF LEN(F$) = 0 GOTO 25
|
||||||
|
30 PRINT D$;"BLOAD ";F$;".BMP,A$4000"
|
||||||
|
40 PRINT D$;"BRUN DISPLAY"
|
||||||
|
50 K = PEEK( -16384)
|
||||||
|
60 IF K <127 GOTO 50
|
||||||
|
70 POKE -16368,0
|
||||||
|
80 POKE -16372,0: TEXT
|
||||||
|
90 IF K < >128 +27 GOTO 5
|
Loading…
Reference in New Issue