Apple-2-Tools/VBMP
1
0
Fork 0
mirror of https://github.com/cybernesto/VBMP.git synced 2025-02-05 20:33:49 +00:00
Code Issues Projects Releases Wiki Activity

Added Applesoft examples

Browse Source 
* 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:
Mario Patiño 2013-07-23 19:25:00 +02:00
parent 8a774d50c9
commit 45328a9a99
5 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Images/VBMP.dsk
View File

Binary file not shown.

BIN
Images/VBMP.po
View File

Binary file not shown.

0
DISPLAY.S → Sources/DISPLAY.S
View File

10
Sources/SLIDESHOW.bas Normal file
View File

@ -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"

12
Sources/VBMP.bas Normal file
View File

@ -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