A little demo to host several messages in a single line.
Code: Select all
# REM _______________________ _
# ______ DATA DEMO ______ _
1 REM [HEX:\
85,89,89,89,89,89,89,89,\
89,89,89,89,89,89,89,89,\
89,89,89,89,89,89,05,00,\
82,00,00,00,00,00,00,00,\
88,05,88,88,88,88,00,29,\
26,39,26,00,29,2A,32,34,\
00,88,88,88,88,85,88,00,\
80,82,00,00,00,00,00,00,\
88,05,88,88,00,3A,38,2A,\
00,39,2D,2E,38,00,26,38,\
32,00,00,88,88,85,88,00,\
80,80,82,00,00,00,00,00,\
88,05,88,88,88,88,88,00,\
37,34,3A,39,2E,33,2A,00,\
88,88,88,88,88,85,88,00,\
80,80,80,05,00,00,00,00,\
85,8A,8A,8A,8A,8A,8A,8A,\
8A,8A,8A,8A,8A,8A,8A,8A,\
8A,8A,8A,8A,8A,8A,05,00,\
80,80,07,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
80,07,00,00,00,00,00,00,\
00,00,00,00,00,00,27,3E,\
00,3D,26,3B,38,33,26,35,\
1B,00,00,00,00,00,00,00,\
07,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,76,\
76,E7,CD,92,0D,CD,F5,0B,\
48,06,00,E7,23,7E,FE,76,\
CA,5B,00,CB,7F,28,F5,0B,\
78,B1,20,F0,23,7E,CB,7F,\
20,0D,FE,0C,28,0F,FE,01,\
20,02,3E,0B,D7,18,ED,CB,\
BF,D7,C3,5B,00,ED,5B,0E,\
40,1A,FE,76,28,DE,3E,00,\
D7,13,18,F5,11,82,40,01,\
06,06,ED,43,7B,40,D5,CD,\
F5,08,D1,62,6B,01,17,00,\
D5,CD,6B,0B,D1,EB,01,20,\
00,09,EB,ED,4B,7B,40,04,\
ED,43,7B,40,78,FE,0E,28,\
02,18,DB,01,07,06,ED,43,\
7B,40,C9 ]
2 RAND USR 16830
3 PAUSE 1000
4 SCROLL
5 SCROLL
6 SCROLL
7 SCROLL
8 PRINT AT 10,0;
10 FOR A=4 TO 1 STEP -1
30 PRINT USR 16763,A,"«VOUS ETES DEVANT UNE MAISON£LA PORTE EST OUVERTE–VOUS ETES DANS UN COULOIR,IL Y AUNE PORTE A L¶EST ET UNE PORTE£A L¶OUEST–VOUS ETES DANS UN SALON,IL Y A£UNE PORTE A L¶OUEST–IL Y A UNE DROLE D¶ODEUR–"
36 PRINT
37 PRINT "--------------------------------"
38 PAUSE 1000
40 NEXT A
Up right square character (/ ') = one quote.
£=New-Line.
Le display will be added at the actual cursor pointer TAB or PRINT AT...
P/ASM & Basic text listings:Note:
- The first REM had to be change to display the new program header, but the line had to be POKEd to avoid to delete the ASM codes after it !
- Alway put an inverted character at the first character location.
- An inverted character clase the (cluster) message line(s) in the PRINT string.
- You will be able to type many lines to store DATAs like :
For example:
100 PRINT USR 16763;"«\
SCREW DRIVEr\
DOOr\
MESSAGE 1«"
- Was designed to replace GOSUB/RETURN Basic routines:
10 GOSUB 1000+((A-1)*2)
1000 PRINT "MESSAGE1"
1001 RETURN
1002 PRINT "MESSAGE2"
1003 RETURN
1004 PRINT
1005 RETURN
... How use 6 bytes per option/line. (12 bytes saved)